From e71a0bf9d51d92a9d36507e8a7f13ea8897f4287 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 8 Jan 2020 15:11:40 +0100 Subject: [PATCH 01/26] GDPicture WISAG Etc --- app/DD_PM_WINDREAM/App.config | 2 +- .../ClassAllgemeineFunktionen.vb | 26 +- app/DD_PM_WINDREAM/ClassControlCreator.vb | 2 +- app/DD_PM_WINDREAM/ClassDatabase.vb | 13 +- app/DD_PM_WINDREAM/ClassFinalizeDoc.vb | 12 +- app/DD_PM_WINDREAM/ClassIDBData.vb | 4 +- app/DD_PM_WINDREAM/ClassInit.vb | 15 +- .../DD_DMSLiteDataSet.Designer.vb | 89 +- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd | 28 +- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss | 6 +- app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj | 3 + app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb | 2 +- .../My Project/Settings.Designer.vb | 2 +- .../My Project/Settings.settings | 2 +- app/DD_PM_WINDREAM/My Project/licenses.licx | 4 +- .../My Project/licenses.licx.bak | 4 + app/DD_PM_WINDREAM/clsPatterns.vb | 6 +- app/DD_PM_WINDREAM/frmAdmin2.Designer.vb | 43 +- app/DD_PM_WINDREAM/frmAdmin2.resx | 676 +++-- app/DD_PM_WINDREAM/frmAdmin2.vb | 12 + app/DD_PM_WINDREAM/frmDocView.Designer.vb | 2 +- app/DD_PM_WINDREAM/frmKonfig.Designer.vb | 13 +- app/DD_PM_WINDREAM/frmKonfig.resx | 37 +- app/DD_PM_WINDREAM/frmKonfig.vb | 16 - app/DD_PM_WINDREAM/frmMain.Designer.vb | 404 +-- app/DD_PM_WINDREAM/frmMain.resx | 927 ++++--- app/DD_PM_WINDREAM/frmMain.vb | 657 ++--- app/DD_PM_WINDREAM/frmMonitor.Designer.vb | 96 +- app/DD_PM_WINDREAM/frmMonitor.resx | 28 +- app/DD_PM_WINDREAM/frmMonitor.vb | 117 +- app/DD_PM_WINDREAM/frmValidator.Designer.vb | 468 ++-- app/DD_PM_WINDREAM/frmValidator.resx | 2415 +++++++++-------- app/DD_PM_WINDREAM/frmValidator.vb | 569 ++-- .../frmValidatorSearch.Designer.vb | 484 ++-- app/DD_PM_WINDREAM/frmValidatorSearch.resx | 1030 +++---- app/DD_PM_WINDREAM/frmValidatorSearch.vb | 49 +- 36 files changed, 4629 insertions(+), 3634 deletions(-) diff --git a/app/DD_PM_WINDREAM/App.config b/app/DD_PM_WINDREAM/App.config index 9083b80..705200f 100644 --- a/app/DD_PM_WINDREAM/App.config +++ b/app/DD_PM_WINDREAM/App.config @@ -54,7 +54,7 @@ 0, 0 - 558 + 563 Normal diff --git a/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb b/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb index 6061aec..9764b8e 100644 --- a/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb +++ b/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb @@ -49,7 +49,7 @@ Public Class ClassAllgemeineFunktionen LOGGER.Debug("User logged in....") Return True Else - LOGGER.Info(" >> User could not be logged in/out....") + LOGGER.Info("User could not be logged in/out....") Return False End If Catch ex As Exception @@ -156,7 +156,7 @@ Public Class ClassAllgemeineFunktionen Dim xffres As String = Path & "\" & Stammname & ".xffres" If file_exists(xffres, clsWD) = True Then System.IO.File.Delete(xffres) - LOGGER.Info(">> Datei " & xffres & " erfolgreich gelöscht") + LOGGER.Info("Datei " & xffres & " erfolgreich gelöscht") Return True Else Return Nothing @@ -164,7 +164,7 @@ Public Class ClassAllgemeineFunktionen Catch ex As Exception LOGGER.Error(ex) LOGGER.Info(" Fehler bei Delete_xffres", True) - LOGGER.Info(">> Fehlermeldung: " & ex.Message) + LOGGER.Info("Fehlermeldung: " & ex.Message) End Try End Function 'Public Function Delete_File(originFile As String) @@ -172,7 +172,7 @@ Public Class ClassAllgemeineFunktionen ' If file_exists(originFile, False) = True Then ' System.IO.File.Delete(originFile) - ' LOGGER.Info(">> Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False) + ' LOGGER.Info("Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False) ' Return True ' Else ' MsgBox("Die Datei konnte nicht gelsöcht werden. File NOT EXISTS", MsgBoxStyle.Exclamation) @@ -180,7 +180,7 @@ Public Class ClassAllgemeineFunktionen ' End If ' Catch ex As Exception ' LOGGER.Info(" Fehler bei Delete_File", True) - ' LOGGER.Info(">> Fehlermeldung: " & ex.Message) + ' LOGGER.Info("Fehlermeldung: " & ex.Message) ' End Try 'End Function @@ -201,18 +201,18 @@ Public Class ClassAllgemeineFunktionen version = version + 1 Loop My.Computer.FileSystem.MoveFile(vMove_File, _Ziel) - LOGGER.Info(">> Datei erfolgreich verschoben - Ziel: " & _Ziel) + LOGGER.Info("Datei erfolgreich verschoben - Ziel: " & _Ziel) Else - LOGGER.Info(">> Ziel und Quellpfad sind identisch!") + LOGGER.Info("Ziel und Quellpfad sind identisch!") End If Return "" Catch ex As Exception LOGGER.Error(ex) - LOGGER.Info(" Fehler bei Move2Folder", True) - LOGGER.Info(">> Fehlermeldung") - LOGGER.Info(">>" & ex.Message) - Insert_LogEntry($"ERROR >> {ex.Message}") + LOGGER.Info("Fehler bei Move2Folder", True) + LOGGER.Info("Fehlermeldung") + LOGGER.Info(ex.Message) + Insert_LogEntry($"ERROR {ex.Message}") Return ex.Message End Try End Function @@ -298,7 +298,7 @@ Public Class ClassAllgemeineFunktionen Catch ex As Exception LOGGER.Error(ex) MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:") - Insert_LogEntry($"ERROR Execute_Scalar_SQLServer>> {ex.Message}") + Insert_LogEntry($"ERROR Execute_Scalar_SQLServer{ex.Message}") LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message) LOGGER.Info(" - SQL: " & vsql_statement) LOGGER.Info(" - Connection: " & vconnectionString) @@ -332,7 +332,7 @@ Public Class ClassAllgemeineFunktionen Catch ex As Exception LOGGER.Error(ex) MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:") - Insert_LogEntry($"ERROR Execute_Scalar_Oracle>> {ex.Message}") + Insert_LogEntry($"ERROR Execute_Scalar_Oracle{ex.Message}") LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message) LOGGER.Info(" - SQL: " & vsql_statement) LOGGER.Info(" - Connection: " & vconnectionString) diff --git a/app/DD_PM_WINDREAM/ClassControlCreator.vb b/app/DD_PM_WINDREAM/ClassControlCreator.vb index 849671c..6132b66 100644 --- a/app/DD_PM_WINDREAM/ClassControlCreator.vb +++ b/app/DD_PM_WINDREAM/ClassControlCreator.vb @@ -577,7 +577,7 @@ Public Class ClassControlCreator CURRENT_CONTROL_ID = row("GUID") CURR_CON_ID = IIf(IsDBNull(row("CONNECTION_ID")), 0, row("CONNECTION_ID")) If CURR_CON_ID = 0 Then - LOGGER.Info(" >> CONNECTION NOT DEFINED - CTRL_GUID:" & CURRENT_CONTROL_ID) + LOGGER.Info("CONNECTION NOT DEFINED - CTRL_GUID:" & CURRENT_CONTROL_ID) End If CURR_SELECT_CONTROL = IIf(IsDBNull(row("SQL_UEBERPRUEFUNG")), "", row("SQL_UEBERPRUEFUNG")) diff --git a/app/DD_PM_WINDREAM/ClassDatabase.vb b/app/DD_PM_WINDREAM/ClassDatabase.vb index 0bbad4d..ca7aaba 100644 --- a/app/DD_PM_WINDREAM/ClassDatabase.vb +++ b/app/DD_PM_WINDREAM/ClassDatabase.vb @@ -61,12 +61,12 @@ Public Class ClassDatabase Try Dim SQLconnect As New SqlClient.SqlConnection Dim SQLcommand As SqlClient.SqlCommand - LOGGER.Debug(">>> ReturnDatatable: " & Select_anweisung) + LOGGER.Debug("ReturnDatatable: " & Select_anweisung) SQLconnect.ConnectionString = SQLSERVERConnectionString SQLconnect.Open() SQLcommand = SQLconnect.CreateCommand SQLcommand.CommandText = Select_anweisung - LOGGER.Debug(">>> Execute ReturnDatatable: " & Select_anweisung) + LOGGER.Debug("Execute ReturnDatatable: " & Select_anweisung) Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand) Dim dt As DataTable = New DataTable() adapter1.Fill(dt) @@ -74,16 +74,13 @@ Public Class ClassDatabase Return dt Catch ex As Exception LOGGER.Warn($"Unexpected Error in Return_Datatable: {ex.Message} [{Select_anweisung}]") - If userInput = True Then - MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) - End If Return Nothing End Try End Function Public Shared Function Return_Datatable_ConId(SQLCommand As String, ConnID As Integer, Optional userInput As Boolean = False) Try Dim oConnString = Get_ConnectionString(ConnID) - LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand) + LOGGER.Debug("ReturnDatatable: " & SQLCommand) Dim oSQLconnect As New SqlClient.SqlConnection Dim oSQLcommand As SqlClient.SqlCommand oSQLconnect.ConnectionString = oConnString @@ -106,7 +103,7 @@ Public Class ClassDatabase End Function Public Shared Function Return_Datatable_ConStr(SQLCommand As String, ConNStr As String, Optional userInput As Boolean = False) Try - LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand) + LOGGER.Debug("ReturnDatatable: " & SQLCommand) Dim oSQLconnect As New SqlClient.SqlConnection Dim oSQLcommand As SqlClient.SqlCommand oSQLconnect.ConnectionString = ConNStr @@ -216,7 +213,7 @@ Public Class ClassDatabase SQLcommand = SQLconnect.CreateCommand 'Update Last Created Record in Foo SQLcommand.CommandText = cmdscalar - LOGGER.Debug(">>> Execute Scalar: " & cmdscalar) + LOGGER.Debug("Execute Scalar: " & cmdscalar) result = SQLcommand.ExecuteScalar() SQLcommand.Dispose() SQLconnect.Close() diff --git a/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb b/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb index 24da374..f6f7a6d 100644 --- a/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb +++ b/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb @@ -25,7 +25,7 @@ '' alle Vorkommen innerhalbd er Namenkonvention durchlaufen 'For Each element As System.Text.RegularExpressions.Match In elemente ' Try - ' If LogErrorsOnly = False Then LOGGER.Info(" >> element in RegeX: " & element.Value) + ' If LogErrorsOnly = False Then LOGGER.Info(" element in RegeX: " & element.Value) ' Dim WDINDEXNAME = element.Value.Substring(2, element.Value.Length - 3) ' Dim wertWD = WMObject.GetVariableValue(WDINDEXNAME) ' If Not IsNothing(wertWD) Then @@ -41,7 +41,7 @@ sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement) sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject) - LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql_Statement) + LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement) Dim dynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, CONNECTION_STRING, True) If Not IsNothing(dynamic_value) Then value = dynamic_value @@ -107,7 +107,7 @@ End If Catch ex As Exception LOGGER.Error(ex) - LOGGER.Info(">> unexpected error in Write_Final_Metadata: " & ex.Message.ToString, True) + LOGGER.Info("unexpected error in Write_Final_Metadata: " & ex.Message.ToString, True) Return False End Try End Function @@ -147,7 +147,7 @@ End If 'Catch ex As Exception - ' LOGGER.Info(">> Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString, True) + ' LOGGER.Info("Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString, True) ' Return Err() 'End Try End Function @@ -200,7 +200,7 @@ PM_String = "DD-PM#" & Bezeichner & "#" & input & "#" & USER_USERNAME & "#" & Now.ToString Catch ex As Exception LOGGER.Error(ex) - LOGGER.Info(">> Fehler in Return_PM_VEKTOR: " & ex.Message, True) + LOGGER.Info("Fehler in Return_PM_VEKTOR: " & ex.Message, True) PM_String = "DD-PM ERROR: " & ex.Message End Try Return PM_String @@ -217,7 +217,7 @@ Catch ex As Exception LOGGER.Error(ex) - LOGGER.Info(">> Fehler in Return_LOGString: " & ex.Message, True) + LOGGER.Info("Fehler in Return_LOGString: " & ex.Message, True) PM_String = "DD-PM ERROR: " & ex.Message End Try Return PM_String diff --git a/app/DD_PM_WINDREAM/ClassIDBData.vb b/app/DD_PM_WINDREAM/ClassIDBData.vb index 93314ed..88408f1 100644 --- a/app/DD_PM_WINDREAM/ClassIDBData.vb +++ b/app/DD_PM_WINDREAM/ClassIDBData.vb @@ -131,14 +131,14 @@ End Function - Public Function SetVariableValue(oAttributeName As String, oNewValue As Object, Optional CheckDeleted As Boolean = False) + Public Function SetVariableValue(oAttributeName As String, oNewValue As Object, Optional CheckDeleted As Boolean = False, Optional oIDBTyp As Integer = 0) Try Dim omytype = oNewValue.GetType.ToString If omytype = "System.Data.DataTable" Then Dim oDTMyNewValues As DataTable = oNewValue If CheckDeleted = True Then - Dim oOldAttributeResult = GetVariableValue(oAttributeName) + Dim oOldAttributeResult = GetVariableValue(oAttributeName, oIDBTyp) Dim oTypeOldResult = oOldAttributeResult.GetType.ToString If oTypeOldResult = "System.Data.DataTable" Then Dim myOldValues As DataTable = oOldAttributeResult diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb index a14cff4..18ccceb 100644 --- a/app/DD_PM_WINDREAM/ClassInit.vb +++ b/app/DD_PM_WINDREAM/ClassInit.vb @@ -21,9 +21,10 @@ Public Class ClassInit Public Sub InitUserConfig() - CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath) + CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath) LOGGER.Info("Config loaded") + If CONFIG.Config.ConnectionStringTest <> String.Empty And CONFIG.Config.TestMode = True Then LOGGER.Debug("Test Connection String loaded") CONNECTION_STRING = DecryptConnectionString(CONFIG.Config.ConnectionStringTest) @@ -146,7 +147,7 @@ Public Class ClassInit CLIENT_SELECTED = 1 End Try - LOGGER.Info(">> Username: " & USER_USERNAME) + LOGGER.Debug("Username: " & USER_USERNAME) Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED) @@ -227,11 +228,11 @@ Public Class ClassInit LOGGER.Debug("Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString) If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") - LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!") - If USER_IS_ADMIN = False Then + LOGGER.Info("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!") + If USER_IS_ADMIN = False Then ClassAllgemeineFunktionen.LoginOut("LOGOUT") - LOGGER.Info(" - Wieder abgemeldet - START INCOMPLETE") - ERROR_STATE = "START INCOMPLETE" + LOGGER.Info("Wieder abgemeldet - START INCOMPLETE") + ERROR_STATE = "START INCOMPLETE" End If End If 'Alles OK bis hierhin...nun die FolderwatchKonfig laden @@ -254,7 +255,7 @@ Public Class ClassInit CURRENT_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql) Settings_LoadBasicConfig() - oSql = "Select * from TBDD_3RD_PARTY_MODULES" + oSql = "Select * FROM TBDD_3RD_PARTY_MODULES WHERE ACTIVE = 1" Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSql) For Each oROW As DataRow In oDT.Rows If oROW.Item("NAME") = "GDPICTURE" Then diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index fa721fd..49f9715 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -4053,6 +4053,8 @@ Partial Public Class DD_DMSLiteDataSet Private columnDISPLAY_MODE As Global.System.Data.DataColumn + Private columnSQL_BTN_FINISH As Global.System.Data.DataColumn + _ Public Sub New() @@ -4288,6 +4290,14 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property + _ + Public ReadOnly Property SQL_BTN_FINISHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_BTN_FINISH + End Get + End Property + _ @@ -4349,9 +4359,10 @@ Partial Public Class DD_DMSLiteDataSet ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ ByVal WORK_HISTORY_ENTRY As String, _ - ByVal DISPLAY_MODE As String) As TBPM_PROFILERow + ByVal DISPLAY_MODE As String, _ + ByVal SQL_BTN_FINISH As String) As TBPM_PROFILERow Dim rowTBPM_PROFILERow As TBPM_PROFILERow = CType(Me.NewRow,TBPM_PROFILERow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, Nothing, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE} + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, Nothing, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH} If (Not (parentTBPM_TYPERowByFK_TBPM_PROFILE_TYPE1) Is Nothing) Then columnValuesArray(15) = parentTBPM_TYPERowByFK_TBPM_PROFILE_TYPE1(0) End If @@ -4408,6 +4419,7 @@ Partial Public Class DD_DMSLiteDataSet Me.columnANNOTATE_WORK_HISTORY_ENTRY = MyBase.Columns("ANNOTATE_WORK_HISTORY_ENTRY") Me.columnWORK_HISTORY_ENTRY = MyBase.Columns("WORK_HISTORY_ENTRY") Me.columnDISPLAY_MODE = MyBase.Columns("DISPLAY_MODE") + Me.columnSQL_BTN_FINISH = MyBase.Columns("SQL_BTN_FINISH") End Sub _ + Public Property SQL_BTN_FINISH() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn) = value + End Set + End Property + _ Public Property TBPM_TYPERow() As TBPM_TYPERow @@ -17938,6 +17966,7 @@ Namespace DD_DMSLiteDataSetTableAdapters tableMapping.ColumnMappings.Add("ANNOTATE_WORK_HISTORY_ENTRY", "ANNOTATE_WORK_HISTORY_ENTRY") tableMapping.ColumnMappings.Add("WORK_HISTORY_ENTRY", "WORK_HISTORY_ENTRY") tableMapping.ColumnMappings.Add("DISPLAY_MODE", "DISPLAY_MODE") + tableMapping.ColumnMappings.Add("SQL_BTN_FINISH", "SQL_BTN_FINISH") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -17995,21 +18024,22 @@ Namespace DD_DMSLiteDataSetTableAdapters "PTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT,"& _ " MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, "& _ - "ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@TITLE,@PRIORIT"& _ - "Y,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@FINAL_PROFILE,@FI"& _ - "NAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX,@WOR"& _ - "K_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@ANNOTATE_WORK_HIST"& _ - "ORY_ENTRY,@DISPLAY_MODE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTIO"& _ - "N, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG"& _ - "ED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LA"& _ - "TEST FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDENTITY())" + "ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME"& _ + ",@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@F"& _ + "INAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_V"& _ + "EKTOR_INDEX,@WORK_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@AN"& _ + "NOTATE_WORK_HISTORY_ENTRY,@DISPLAY_MODE,@SQL_BTN_FINISH); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _ + "NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WH"& _ + "O, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER"& _ + ", TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDEN"& _ + "TITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -18024,6 +18054,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, TITLE = @TITLE, PRIOR"& _ @@ -18035,18 +18066,19 @@ Namespace DD_DMSLiteDataSetTableAdapters "INDEX, LOG_INDEX = @LOG_INDEX, WORK_HISTORY_ENTRY = @WORK_HISTORY_ENTRY, SQL_VIE"& _ "W = @SQL_VIEW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @A"& _ "NNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_H"& _ - "ISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"& _ - "; "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, N"& _ - "O_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE,"& _ - " FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE "& _ - "WHERE (GUID = @GUID)" + "ISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_BTN_F"& _ + "INISH = @SQL_BTN_FINISH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ + "GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, AD"& _ + "DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2"& _ + "FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUI"& _ + "D)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -18062,6 +18094,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub @@ -18083,8 +18116,8 @@ Namespace DD_DMSLiteDataSetTableAdapters "DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINA"& _ "L_TEXT, MOVE2FOLDER, TYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WD_OBJECTTYPE, SORT_BY_LAT"& _ "EST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, AN"& _ - "NOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBP"& _ - "M_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME" + "NOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " SQL_BTN_FINISH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection @@ -18365,7 +18398,8 @@ Namespace DD_DMSLiteDataSetTableAdapters ByVal SQL_VIEW As String, _ ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ - ByVal DISPLAY_MODE As String) As Integer + ByVal DISPLAY_MODE As String, _ + ByVal SQL_BTN_FINISH As String) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else @@ -18434,6 +18468,11 @@ Namespace DD_DMSLiteDataSetTableAdapters Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(DISPLAY_MODE,String) End If + If (SQL_BTN_FINISH Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_BTN_FINISH") + Else + Me.Adapter.InsertCommand.Parameters(20).Value = CType(SQL_BTN_FINISH,String) + End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -18475,6 +18514,7 @@ Namespace DD_DMSLiteDataSetTableAdapters ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ ByVal DISPLAY_MODE As String, _ + ByVal SQL_BTN_FINISH As String, _ ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer If (NAME Is Nothing) Then @@ -18550,8 +18590,13 @@ Namespace DD_DMSLiteDataSetTableAdapters Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(DISPLAY_MODE,String) End If - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GUID,Integer) + If (SQL_BTN_FINISH Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_BTN_FINISH") + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(SQL_BTN_FINISH,String) + End If + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index bdc9969..f2c31df 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -966,8 +966,8 @@ WHERE (GUID = @GUID) INSERT INTO TBPM_PROFILE (NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, - WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE) -VALUES (@NAME,@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@FINAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX,@WORK_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@ANNOTATE_WORK_HISTORY_ENTRY,@DISPLAY_MODE); + WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH) +VALUES (@NAME,@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@FINAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX,@WORK_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@ANNOTATE_WORK_HISTORY_ENTRY,@DISPLAY_MODE,@SQL_BTN_FINISH); SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDENTITY()) @@ -975,7 +975,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -990,13 +990,15 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME + SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, - WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE + WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, + SQL_BTN_FINISH FROM TBPM_PROFILE ORDER BY NAME @@ -1008,8 +1010,9 @@ ORDER BY NAME SET NAME = @NAME, TITLE = @TITLE, PRIORITY = @PRIORITY, DESCRIPTION = @DESCRIPTION, ACTIVE = @ACTIVE, WD_SEARCH = @WD_SEARCH, NO_OF_DOCUMENTS = @NO_OF_DOCUMENTS, CHANGED_WHO = @CHANGED_WHO, FINAL_PROFILE = @FINAL_PROFILE, FINAL_TEXT = @FINAL_TEXT, MOVE2FOLDER = @MOVE2FOLDER, TYPE = @TYPE, WD_OBJECTTYPE = @WD_OBJECTTYPE, SORT_BY_LATEST = @SORT_BY_LATEST, PM_VEKTOR_INDEX = @PM_VEKTOR_INDEX, LOG_INDEX = @LOG_INDEX, WORK_HISTORY_ENTRY = @WORK_HISTORY_ENTRY, SQL_VIEW = @SQL_VIEW, - ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE -WHERE (GUID = @Original_GUID); + ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE, + SQL_BTN_FINISH = @SQL_BTN_FINISH +WHERE (GUID = @Original_GUID); SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUID) @@ -1017,7 +1020,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -1033,6 +1036,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME + @@ -1066,6 +1070,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME + @@ -2535,6 +2540,13 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI + + + + + + + @@ -3111,7 +3123,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index 8f757d3..6791efa 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -4,7 +4,7 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + @@ -17,12 +17,12 @@ - + - + diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index 72b9367..5c92a41 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -164,8 +164,10 @@ P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\PdfSharp-gdi.dll + + @@ -517,6 +519,7 @@ frmValidatorSearch.vb + Designer diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index 77c9052..308a4d1 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb b/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb index 5528daa..9716fdb 100644 --- a/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb @@ -231,7 +231,7 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("563")> _ Public Property frmValSearchSplitterDistance() As Integer Get Return CType(Me("frmValSearchSplitterDistance"),Integer) diff --git a/app/DD_PM_WINDREAM/My Project/Settings.settings b/app/DD_PM_WINDREAM/My Project/Settings.settings index 4e45d56..172fd91 100644 --- a/app/DD_PM_WINDREAM/My Project/Settings.settings +++ b/app/DD_PM_WINDREAM/My Project/Settings.settings @@ -50,7 +50,7 @@ 0, 0 - 558 + 563 Normal diff --git a/app/DD_PM_WINDREAM/My Project/licenses.licx b/app/DD_PM_WINDREAM/My Project/licenses.licx index 9b6c594..db6fe7a 100644 --- a/app/DD_PM_WINDREAM/My Project/licenses.licx +++ b/app/DD_PM_WINDREAM/My Project/licenses.licx @@ -1,5 +1,5 @@ +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_PM_WINDREAM/My Project/licenses.licx.bak b/app/DD_PM_WINDREAM/My Project/licenses.licx.bak index 3b1559f..9b6c594 100644 --- a/app/DD_PM_WINDREAM/My Project/licenses.licx.bak +++ b/app/DD_PM_WINDREAM/My Project/licenses.licx.bak @@ -1 +1,5 @@ +DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_PM_WINDREAM/clsPatterns.vb b/app/DD_PM_WINDREAM/clsPatterns.vb index 3f6cfa1..dca15b4 100644 --- a/app/DD_PM_WINDREAM/clsPatterns.vb +++ b/app/DD_PM_WINDREAM/clsPatterns.vb @@ -114,7 +114,9 @@ Public Class clsPatterns While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SURNAME) result = ReplacePattern(result, PATTERN_USER, surname) End While - + If IsDBNull(shortname) Then + shortname = "" + End If While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SHORTNAME) result = ReplacePattern(result, PATTERN_USER, shortname) End While @@ -145,7 +147,7 @@ Public Class clsPatterns While ContainsPattern(result, PATTERN_CTRL) If oTryCounter > MAX_TRY_COUNT Then - Throw New Exception("Max tries in ReplaceControlValues exceeded.") + Throw New Exception($"Max tries in ReplaceControlValues exceeded - Result so far [{result}].") End If Dim controlName As String = GetNextPattern(result, PATTERN_CTRL).Value diff --git a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb index 1f749c7..1f5f064 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb @@ -85,8 +85,9 @@ Partial Class frmAdmin2 Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() - Me.OBJ_NAMETextBox = New System.Windows.Forms.TextBox() + Me.INTERNALCheckBox = New System.Windows.Forms.CheckBox() Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.OBJ_NAMETextBox = New System.Windows.Forms.TextBox() Me.CHANGED_WHENTextBox1 = New System.Windows.Forms.TextBox() Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox() Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox() @@ -387,6 +388,7 @@ Partial Class frmAdmin2 ' 'RibbonPageGroup2 ' + Me.RibbonPageGroup2.Enabled = False Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem6) Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3) Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem4) @@ -475,6 +477,7 @@ Partial Class frmAdmin2 Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView1.OptionsBehavior.Editable = False + Me.GridView1.OptionsBehavior.ReadOnly = True Me.GridView1.OptionsView.EnableAppearanceEvenRow = True Me.GridView1.OptionsView.ShowAutoFilterRow = True ' @@ -495,12 +498,14 @@ Partial Class frmAdmin2 Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "GUID", True)) resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox") Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.ReadOnly = True ' 'TITLETextBox ' Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "TITLE", True)) resources.ApplyResources(Me.TITLETextBox, "TITLETextBox") Me.TITLETextBox.Name = "TITLETextBox" + Me.TITLETextBox.ReadOnly = True ' 'EMAIL_SUBJECTTextBox ' @@ -510,20 +515,20 @@ Partial Class frmAdmin2 ' 'EMAIL_BODY1TextBox ' - Me.EMAIL_BODY1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY1", True)) resources.ApplyResources(Me.EMAIL_BODY1TextBox, "EMAIL_BODY1TextBox") + Me.EMAIL_BODY1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY1", True)) Me.EMAIL_BODY1TextBox.Name = "EMAIL_BODY1TextBox" ' 'EMAIL_BODY2TextBox ' - Me.EMAIL_BODY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY2", True)) resources.ApplyResources(Me.EMAIL_BODY2TextBox, "EMAIL_BODY2TextBox") + Me.EMAIL_BODY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY2", True)) Me.EMAIL_BODY2TextBox.Name = "EMAIL_BODY2TextBox" ' 'EMAIL_BODY3TextBox ' - Me.EMAIL_BODY3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY3", True)) resources.ApplyResources(Me.EMAIL_BODY3TextBox, "EMAIL_BODY3TextBox") + Me.EMAIL_BODY3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY3", True)) Me.EMAIL_BODY3TextBox.Name = "EMAIL_BODY3TextBox" ' 'ADDED_WHOTextBox @@ -531,28 +536,33 @@ Partial Class frmAdmin2 Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHO", True)) resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox") Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True ' 'ADDED_WHENTextBox ' Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHEN", True)) resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox") Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True ' 'CHANGED_WHOTextBox ' Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHO", True)) resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True ' 'CHANGED_WHENTextBox ' Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHEN", True)) resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox") Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True ' 'XtraTabPage2 ' resources.ApplyResources(Me.XtraTabPage2, "XtraTabPage2") + Me.XtraTabPage2.Controls.Add(Me.INTERNALCheckBox) Me.XtraTabPage2.Controls.Add(OBJ_NAMELabel) Me.XtraTabPage2.Controls.Add(Me.OBJ_NAMETextBox) Me.XtraTabPage2.Controls.Add(CHANGED_WHENLabel1) @@ -586,17 +596,24 @@ Partial Class frmAdmin2 Me.XtraTabPage2.Controls.Add(Me.GridControl2) Me.XtraTabPage2.Name = "XtraTabPage2" ' - 'OBJ_NAMETextBox + 'INTERNALCheckBox ' - Me.OBJ_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "OBJ_NAME", True)) - resources.ApplyResources(Me.OBJ_NAMETextBox, "OBJ_NAMETextBox") - Me.OBJ_NAMETextBox.Name = "OBJ_NAMETextBox" + Me.INTERNALCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "INTERNAL", True)) + resources.ApplyResources(Me.INTERNALCheckBox, "INTERNALCheckBox") + Me.INTERNALCheckBox.Name = "INTERNALCheckBox" + Me.INTERNALCheckBox.UseVisualStyleBackColor = True ' 'TBDD_GUI_LANGUAGE_PHRASEBindingSource ' Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataMember = "TBDD_GUI_LANGUAGE_PHRASE" Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataSource = Me.DD_DMSLiteDataSet ' + 'OBJ_NAMETextBox + ' + Me.OBJ_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "OBJ_NAME", True)) + resources.ApplyResources(Me.OBJ_NAMETextBox, "OBJ_NAMETextBox") + Me.OBJ_NAMETextBox.Name = "OBJ_NAMETextBox" + ' 'CHANGED_WHENTextBox1 ' Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHEN", True)) @@ -651,14 +668,18 @@ Partial Class frmAdmin2 ' 'STRING2TextBox ' - Me.STRING2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True)) + Me.STRING2TextBox.AcceptsReturn = True + Me.STRING2TextBox.AcceptsTab = True resources.ApplyResources(Me.STRING2TextBox, "STRING2TextBox") + Me.STRING2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True)) Me.STRING2TextBox.Name = "STRING2TextBox" ' 'STRING1TextBox ' - Me.STRING1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True)) + Me.STRING1TextBox.AcceptsReturn = True + Me.STRING1TextBox.AcceptsTab = True resources.ApplyResources(Me.STRING1TextBox, "STRING1TextBox") + Me.STRING1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True)) Me.STRING1TextBox.Name = "STRING1TextBox" ' 'CAPT_TYPEComboBox @@ -709,6 +730,7 @@ Partial Class frmAdmin2 Me.GridView2.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView2.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView2.OptionsBehavior.Editable = False + Me.GridView2.OptionsBehavior.ReadOnly = True Me.GridView2.OptionsView.EnableAppearanceEvenRow = True Me.GridView2.OptionsView.ShowAutoFilterRow = True ' @@ -852,4 +874,5 @@ Partial Class frmAdmin2 Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents OBJ_NAMETextBox As TextBox Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents INTERNALCheckBox As CheckBox End Class diff --git a/app/DD_PM_WINDREAM/frmAdmin2.resx b/app/DD_PM_WINDREAM/frmAdmin2.resx index 45a71ab..6411afd 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.resx +++ b/app/DD_PM_WINDREAM/frmAdmin2.resx @@ -246,7 +246,7 @@ True - 359, 166 + 359, 224 41, 13 @@ -276,7 +276,7 @@ True - 359, 239 + 359, 350 41, 13 @@ -306,7 +306,7 @@ True - 359, 315 + 359, 426 65, 13 @@ -336,7 +336,7 @@ True - 604, 315 + 604, 426 73, 13 @@ -366,7 +366,7 @@ True - 359, 345 + 359, 456 77, 13 @@ -396,7 +396,7 @@ True - 604, 345 + 604, 456 85, 13 @@ -447,7 +447,7 @@ XtraTabPage2 - 28 + 29 False @@ -477,7 +477,7 @@ XtraTabPage2 - 26 + 27 False @@ -507,7 +507,7 @@ XtraTabPage2 - 24 + 25 False @@ -537,7 +537,7 @@ XtraTabPage2 - 22 + 23 False @@ -567,7 +567,7 @@ XtraTabPage2 - 20 + 21 False @@ -576,7 +576,7 @@ True - 586, 178 + 586, 256 48, 13 @@ -597,7 +597,7 @@ XtraTabPage2 - 18 + 19 False @@ -606,7 +606,7 @@ True - 586, 205 + 586, 349 48, 13 @@ -627,7 +627,7 @@ XtraTabPage2 - 16 + 17 False @@ -636,7 +636,7 @@ True - 586, 232 + 586, 376 48, 13 @@ -657,7 +657,7 @@ XtraTabPage2 - 14 + 15 False @@ -666,7 +666,7 @@ True - 586, 259 + 586, 403 48, 13 @@ -687,7 +687,7 @@ XtraTabPage2 - 12 + 13 False @@ -696,7 +696,7 @@ True - 586, 286 + 586, 430 48, 13 @@ -717,7 +717,7 @@ XtraTabPage2 - 10 + 11 False @@ -726,7 +726,7 @@ True - 586, 313 + 586, 457 65, 13 @@ -747,7 +747,7 @@ XtraTabPage2 - 8 + 9 False @@ -756,7 +756,7 @@ True - 803, 313 + 803, 457 73, 13 @@ -777,7 +777,7 @@ XtraTabPage2 - 6 + 7 False @@ -786,7 +786,7 @@ True - 586, 337 + 586, 481 77, 13 @@ -807,7 +807,7 @@ XtraTabPage2 - 4 + 5 False @@ -816,7 +816,7 @@ True - 803, 337 + 803, 481 85, 13 @@ -837,7 +837,7 @@ XtraTabPage2 - 2 + 3 False @@ -867,7 +867,7 @@ XtraTabPage2 - 0 + 1 Neue Vorlage @@ -1138,23 +1138,17 @@ 0, 0 - - Vorlagen Verwaltung - - - Phrasen Verwaltung - Aktionen - 1207, 158 + 1059, 158 - 0, 559 + 0, 691 - 1207, 24 + 1059, 24 RibbonStatusBar1 @@ -1180,6 +1174,12 @@ 2 + + Vorlagen Verwaltung + + + Phrasen Verwaltung + RibbonPage2 @@ -1193,18 +1193,6 @@ True - - 907, 37 - - - 75, 23 - - - 21 - - - Vorschau - Button1 @@ -1217,48 +1205,6 @@ 0 - - 179, 17 - - - 17, 17 - - - Left - - - 0, 0 - - - ID - - - True - - - 0 - - - 51 - - - Titel - - - True - - - 1 - - - 128 - - - 353, 376 - - - 20 - GridControl1 @@ -1271,15 +1217,6 @@ 1 - - 461, 12 - - - 100, 21 - - - 1 - GUIDTextBox @@ -1292,15 +1229,6 @@ 3 - - 461, 39 - - - 428, 21 - - - 3 - TITLETextBox @@ -1313,15 +1241,6 @@ 5 - - 461, 66 - - - 428, 21 - - - 5 - EMAIL_SUBJECTTextBox @@ -1334,21 +1253,6 @@ 7 - - 461, 93 - - - True - - - Both - - - 583, 67 - - - 7 - EMAIL_BODY1TextBox @@ -1361,21 +1265,6 @@ 9 - - 461, 166 - - - True - - - Both - - - 583, 67 - - - 9 - EMAIL_BODY2TextBox @@ -1388,21 +1277,6 @@ 11 - - 461, 239 - - - True - - - Both - - - 583, 67 - - - 11 - EMAIL_BODY3TextBox @@ -1415,15 +1289,6 @@ 13 - - 461, 312 - - - 124, 21 - - - 13 - ADDED_WHOTextBox @@ -1436,15 +1301,6 @@ 15 - - 694, 312 - - - 128, 21 - - - 15 - ADDED_WHENTextBox @@ -1457,15 +1313,6 @@ 17 - - 461, 342 - - - 124, 21 - - - 17 - CHANGED_WHOTextBox @@ -1478,15 +1325,6 @@ 19 - - 694, 342 - - - 128, 21 - - - 19 - CHANGED_WHENTextBox @@ -1500,7 +1338,7 @@ 21 - 1205, 376 + 1057, 508 Email Inhalte Workflow @@ -1518,7 +1356,7 @@ 0 - 1207, 401 + 1059, 533 2 @@ -1529,11 +1367,41 @@ 17, 56 + + False + + + 999, 89 + + + 56, 24 + + + 38 + + + Intern + + + INTERNALCheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 0 + + + 17, 56 + 671, 65 - 384, 21 + 375, 21 37 @@ -1548,10 +1416,10 @@ XtraTabPage2 - 1 + 2 - 942, 334 + 933, 478 113, 21 @@ -1569,10 +1437,10 @@ XtraTabPage2 - 3 + 4 - 671, 334 + 671, 478 116, 21 @@ -1590,10 +1458,10 @@ XtraTabPage2 - 5 + 6 - 942, 310 + 933, 454 113, 21 @@ -1611,10 +1479,10 @@ XtraTabPage2 - 7 + 8 - 671, 310 + 671, 454 116, 21 @@ -1632,13 +1500,13 @@ XtraTabPage2 - 9 + 10 - 671, 283 + 671, 427 - 384, 21 + 375, 21 32 @@ -1653,13 +1521,13 @@ XtraTabPage2 - 11 + 12 - 671, 256 + 671, 400 - 384, 21 + 375, 21 31 @@ -1674,13 +1542,13 @@ XtraTabPage2 - 13 + 14 - 671, 229 + 671, 373 - 384, 21 + 375, 21 30 @@ -1695,13 +1563,13 @@ XtraTabPage2 - 15 + 16 - 671, 202 + 671, 346 - 384, 21 + 375, 21 29 @@ -1716,13 +1584,19 @@ XtraTabPage2 - 17 + 18 + + + Top, Left, Right - 671, 175 + 671, 253 + + + True - 384, 21 + 375, 87 28 @@ -1737,13 +1611,19 @@ XtraTabPage2 - 19 + 20 + + + Top, Left, Right 671, 148 + + True + - 384, 21 + 375, 99 27 @@ -1758,7 +1638,7 @@ XtraTabPage2 - 21 + 22 Button @@ -1794,7 +1674,7 @@ XtraTabPage2 - 23 + 24 de-DE @@ -1824,13 +1704,13 @@ XtraTabPage2 - 25 + 26 671, 39 - 384, 21 + 375, 21 24 @@ -1845,7 +1725,7 @@ XtraTabPage2 - 27 + 28 671, 12 @@ -1866,7 +1746,7 @@ XtraTabPage2 - 29 + 30 Left @@ -1914,7 +1794,7 @@ 3 - 580, 376 + 580, 508 21 @@ -1929,10 +1809,10 @@ XtraTabPage2 - 30 + 31 - 1205, 376 + 1057, 508 GUI Phrasen @@ -1961,6 +1841,324 @@ 0 + + 907, 37 + + + 75, 23 + + + 21 + + + Vorschau + + + Button1 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 0 + + + 179, 17 + + + 17, 17 + + + Left + + + 0, 0 + + + ID + + + True + + + 0 + + + 51 + + + Titel + + + True + + + 1 + + + 128 + + + 353, 508 + + + 20 + + + GridControl1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPage1 + + + 1 + + + 17, 17 + + + 461, 12 + + + 100, 21 + + + 1 + + + GUIDTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 3 + + + 461, 39 + + + 428, 21 + + + 3 + + + TITLETextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 5 + + + 461, 66 + + + 428, 21 + + + 5 + + + EMAIL_SUBJECTTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 7 + + + Top, Left, Right + + + 461, 93 + + + True + + + Both + + + 583, 125 + + + 7 + + + EMAIL_BODY1TextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 9 + + + Top, Left, Right + + + 461, 224 + + + True + + + Both + + + 583, 120 + + + 9 + + + EMAIL_BODY2TextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 11 + + + Top, Left, Right + + + 461, 350 + + + True + + + Both + + + 583, 67 + + + 11 + + + EMAIL_BODY3TextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 13 + + + 461, 423 + + + 124, 21 + + + 13 + + + ADDED_WHOTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 15 + + + 694, 423 + + + 128, 21 + + + 15 + + + ADDED_WHENTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 17 + + + 461, 453 + + + 124, 21 + + + 17 + + + CHANGED_WHOTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 19 + + + 694, 453 + + + 128, 21 + + + 19 + + + CHANGED_WHENTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 21 + 442, 17 @@ -1977,7 +2175,7 @@ 6, 13 - 1207, 583 + 1059, 715 diff --git a/app/DD_PM_WINDREAM/frmAdmin2.vb b/app/DD_PM_WINDREAM/frmAdmin2.vb index 7b375df..75e5ed8 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.vb @@ -19,6 +19,7 @@ Public Class frmAdmin2 Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbitemplateAdd.ItemClick TBDD_EMAIL_TEMPLATEBindingSource.AddNew() + TITLETextBox.ReadOnly = False End Sub @@ -57,6 +58,7 @@ Public Class frmAdmin2 Me.TBDD_EMAIL_TEMPLATEBindingSource.EndEdit() Me.TBDD_EMAIL_TEMPLATETableAdapter.Update(DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE) Status_Changed("Vorlage gespeichert") + TITLETextBox.ReadOnly = True Else Status_Changed("Keine Änderung") End If @@ -137,4 +139,14 @@ Public Class frmAdmin2 Private Sub TBDD_GUI_LANGUAGE_PHRASEBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_GUI_LANGUAGE_PHRASEBindingSource.AddingNew DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE.ADDED_WHOColumn.DefaultValue = USER_USERNAME End Sub + + Private Sub INTERNALCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles INTERNALCheckBox.CheckedChanged + If INTERNALCheckBox.Checked Then + TITLETextBox1.ReadOnly = True + OBJ_NAMETextBox.ReadOnly = True + Else + TITLETextBox1.ReadOnly = False + OBJ_NAMETextBox.ReadOnly = False + End If + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmDocView.Designer.vb b/app/DD_PM_WINDREAM/frmDocView.Designer.vb index bdeec96..52fe3b9 100644 --- a/app/DD_PM_WINDREAM/frmDocView.Designer.vb +++ b/app/DD_PM_WINDREAM/frmDocView.Designer.vb @@ -32,7 +32,7 @@ Partial Class frmDocView ' Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0) - Me.DocumentViewer1.Name = "DocumentViewer1" + Me.DocumentViewer1.Name = "DocumentViewerfrmDocView" Me.DocumentViewer1.Size = New System.Drawing.Size(800, 450) Me.DocumentViewer1.TabIndex = 0 ' diff --git a/app/DD_PM_WINDREAM/frmKonfig.Designer.vb b/app/DD_PM_WINDREAM/frmKonfig.Designer.vb index a97f60f..4593b96 100644 --- a/app/DD_PM_WINDREAM/frmKonfig.Designer.vb +++ b/app/DD_PM_WINDREAM/frmKonfig.Designer.vb @@ -50,7 +50,6 @@ Partial Class frmKonfig Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox() Me.Button3 = New System.Windows.Forms.Button() Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() - Me.Button2 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.btnLogMail = New System.Windows.Forms.Button() Me.TabPage4 = New System.Windows.Forms.TabPage() @@ -202,7 +201,6 @@ Partial Class frmKonfig Me.TabPage3.Controls.Add(Me.chkLogErrorsOnly) Me.TabPage3.Controls.Add(Me.Button3) Me.TabPage3.Controls.Add(Me.LinkLabel1) - Me.TabPage3.Controls.Add(Me.Button2) Me.TabPage3.Controls.Add(Me.Button1) Me.TabPage3.Controls.Add(Me.btnLogMail) resources.ApplyResources(Me.TabPage3, "TabPage3") @@ -256,12 +254,6 @@ Partial Class frmKonfig Me.LinkLabel1.Name = "LinkLabel1" Me.LinkLabel1.TabStop = True ' - 'Button2 - ' - resources.ApplyResources(Me.Button2, "Button2") - Me.Button2.Name = "Button2" - Me.Button2.UseVisualStyleBackColor = True - ' 'Button1 ' resources.ApplyResources(Me.Button1, "Button1") @@ -308,7 +300,7 @@ Partial Class frmKonfig ' 'gvLogs ' - Me.gvLogs.Appearance.OddRow.BackColor = CType(resources.GetObject("gvLogs.Appearance.OddRow.BackColor"), System.Drawing.Color) + Me.gvLogs.Appearance.OddRow.BackColor = System.Drawing.Color.LightCyan Me.gvLogs.Appearance.OddRow.Options.UseBackColor = True Me.gvLogs.GridControl = Me.GridControlLogs Me.gvLogs.Name = "gvLogs" @@ -334,6 +326,8 @@ Partial Class frmKonfig ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing + Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing @@ -388,7 +382,6 @@ Partial Class frmKonfig Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents Button1 As System.Windows.Forms.Button - Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents chkLogErrorsOnly As System.Windows.Forms.CheckBox diff --git a/app/DD_PM_WINDREAM/frmKonfig.resx b/app/DD_PM_WINDREAM/frmKonfig.resx index 19a78ee..cd9da18 100644 --- a/app/DD_PM_WINDREAM/frmKonfig.resx +++ b/app/DD_PM_WINDREAM/frmKonfig.resx @@ -643,7 +643,7 @@ True - 506, 28 + 438, 29 117, 21 @@ -717,32 +717,8 @@ 7 - - 506, 105 - - - 219, 28 - - - 38 - - - List all processes - - - Button2 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 8 - - 506, 71 + 438, 64 219, 29 @@ -763,7 +739,7 @@ TabPage3 - 9 + 8 MiddleLeft @@ -793,7 +769,7 @@ TabPage3 - 10 + 9 4, 26 @@ -838,7 +814,7 @@ Speichere Log als... - 198, 48 + 198, 70 ContextMenuInternalLog @@ -855,9 +831,6 @@ 3, 3 - - LightCyan - 826, 312 diff --git a/app/DD_PM_WINDREAM/frmKonfig.vb b/app/DD_PM_WINDREAM/frmKonfig.vb index f3c3dcd..5a167db 100644 --- a/app/DD_PM_WINDREAM/frmKonfig.vb +++ b/app/DD_PM_WINDREAM/frmKonfig.vb @@ -150,22 +150,6 @@ Public Class frmKonfig MsgBox("Culture-Name: " & CultureInfo.CurrentCulture.Name & vbNewLine & "Culture-ThreeLetterISOLanguageName: " & CultureInfo.CurrentCulture.ThreeLetterISOLanguageName & vbNewLine & "CurrentUICulture-Name: " & CultureInfo.CurrentUICulture.Name & vbNewLine & "CurrentUICulture-ThreeLetterISOLanguageName: " & CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName) End Sub - - Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click - Dim p As Process - Dim processes As Process() - processes = Process.GetProcesses() - Dim msg As String - For Each p In processes - If p.ProcessName <> "svchost" Then - msg = msg & p.ProcessName & vbNewLine - End If - - - Next - MsgBox("Liste der Processnames: " & vbNewLine & msg, MsgBoxStyle.Information) - End Sub - Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) My.Settings.Save() End Sub diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index 8b26c09..d3ea2aa 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -1,6 +1,6 @@  Partial Class frmMain - Inherits System.Windows.Forms.Form + Inherits DevExpress.XtraBars.Ribbon.RibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -40,23 +40,6 @@ Partial Class frmMain Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() - Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() - Me.tsbtnrefresh = New System.Windows.Forms.ToolStripButton() - Me.tsddConfig = New System.Windows.Forms.ToolStripDropDownButton() - Me.ProfileUndBasisToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.KonfigurationenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.tsbtnMonitoring = New System.Windows.Forms.ToolStripButton() - Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() - Me.tsstlblUser = New System.Windows.Forms.ToolStripStatusLabel() - Me.tslblLicenses = New System.Windows.Forms.ToolStripStatusLabel() - Me.tslblUserLoggedin = New System.Windows.Forms.ToolStripStatusLabel() - Me.tslblVersion = New System.Windows.Forms.ToolStripStatusLabel() - Me.tsslblLastSysnc = New System.Windows.Forms.ToolStripStatusLabel() - Me.tslblmessage = New System.Windows.Forms.ToolStripStatusLabel() - Me.tsslblDEBUG_LOG = New System.Windows.Forms.ToolStripStatusLabel() Me.Panel1 = New System.Windows.Forms.Panel() Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl() Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -102,6 +85,29 @@ Partial Class frmMain Me.TimerReminder = New System.Windows.Forms.Timer(Me.components) Me.Timer5Mins = New System.Windows.Forms.Timer(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.bbtniRefresh = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniMonitor = New DevExpress.XtraBars.BarButtonItem() + Me.bbiProfilverwaltung = New DevExpress.XtraBars.BarButtonItem() + Me.bbiKonfiguration = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniGrundeinstellung = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitemInfo = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.bsiUser = New DevExpress.XtraBars.BarStaticItem() + Me.bsiLicenses = New DevExpress.XtraBars.BarStaticItem() + Me.bsiUserLoggedIn = New DevExpress.XtraBars.BarStaticItem() + Me.bsiVersion = New DevExpress.XtraBars.BarStaticItem() + Me.bsilastsync = New DevExpress.XtraBars.BarStaticItem() + Me.bsiDebug = New DevExpress.XtraBars.BarStaticItem() + Me.bsiMessage = New DevExpress.XtraBars.BarStaticItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerDashboard.Panel1.SuspendLayout() Me.SplitContainerDashboard.Panel2.SuspendLayout() @@ -120,8 +126,6 @@ Partial Class frmMain CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.ToolStrip1.SuspendLayout() - Me.StatusStrip1.SuspendLayout() Me.Panel1.SuspendLayout() CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuGrid.SuspendLayout() @@ -135,6 +139,8 @@ Partial Class frmMain CType(Me.TBPM_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'SplitContainerDashboard @@ -275,134 +281,11 @@ Partial Class frmMain Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' - 'ToolStrip1 - ' - resources.ApplyResources(Me.ToolStrip1, "ToolStrip1") - Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20) - Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.tsbtnrefresh, Me.tsddConfig, Me.tsbtnMonitoring}) - Me.ToolStrip1.Name = "ToolStrip1" - ' - 'ToolStripButton2 - ' - Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2") - Me.ToolStripButton2.Name = "ToolStripButton2" - ' - 'ToolStripButton1 - ' - Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.ToolStripButton1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Hammer_Builder_16xLG - resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") - Me.ToolStripButton1.Name = "ToolStripButton1" - ' - 'ToolStripSeparator1 - ' - Me.ToolStripSeparator1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.ToolStripSeparator1.Name = "ToolStripSeparator1" - resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1") - ' - 'tsbtnrefresh - ' - Me.tsbtnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG - resources.ApplyResources(Me.tsbtnrefresh, "tsbtnrefresh") - Me.tsbtnrefresh.Name = "tsbtnrefresh" - ' - 'tsddConfig - ' - Me.tsddConfig.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.tsddConfig.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ProfileUndBasisToolStripMenuItem, Me.KonfigurationenToolStripMenuItem}) - resources.ApplyResources(Me.tsddConfig, "tsddConfig") - Me.tsddConfig.Name = "tsddConfig" - ' - 'ProfileUndBasisToolStripMenuItem - ' - Me.ProfileUndBasisToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.puzzle2 - Me.ProfileUndBasisToolStripMenuItem.Name = "ProfileUndBasisToolStripMenuItem" - resources.ApplyResources(Me.ProfileUndBasisToolStripMenuItem, "ProfileUndBasisToolStripMenuItem") - ' - 'KonfigurationenToolStripMenuItem - ' - resources.ApplyResources(Me.KonfigurationenToolStripMenuItem, "KonfigurationenToolStripMenuItem") - Me.KonfigurationenToolStripMenuItem.Name = "KonfigurationenToolStripMenuItem" - ' - 'tsbtnMonitoring - ' - Me.tsbtnMonitoring.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.tsbtnMonitoring.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Monitor_Screen_16xLG - resources.ApplyResources(Me.tsbtnMonitoring, "tsbtnMonitoring") - Me.tsbtnMonitoring.Name = "tsbtnMonitoring" - ' - 'StatusStrip1 - ' - resources.ApplyResources(Me.StatusStrip1, "StatusStrip1") - Me.StatusStrip1.ImageScalingSize = New System.Drawing.Size(20, 20) - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsstlblUser, Me.tslblLicenses, Me.tslblUserLoggedin, Me.tslblVersion, Me.tsslblLastSysnc, Me.tslblmessage, Me.tsslblDEBUG_LOG}) - Me.StatusStrip1.Name = "StatusStrip1" - ' - 'tsstlblUser - ' - Me.tsstlblUser.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) - Me.tsstlblUser.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.user - Me.tsstlblUser.Name = "tsstlblUser" - resources.ApplyResources(Me.tsstlblUser, "tsstlblUser") - ' - 'tslblLicenses - ' - Me.tslblLicenses.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) - Me.tslblLicenses.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.key - Me.tslblLicenses.Name = "tslblLicenses" - resources.ApplyResources(Me.tslblLicenses, "tslblLicenses") - ' - 'tslblUserLoggedin - ' - Me.tslblUserLoggedin.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) - Me.tslblUserLoggedin.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.group_key - Me.tslblUserLoggedin.Name = "tslblUserLoggedin" - resources.ApplyResources(Me.tslblUserLoggedin, "tslblUserLoggedin") - ' - 'tslblVersion - ' - Me.tslblVersion.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) - Me.tslblVersion.Name = "tslblVersion" - resources.ApplyResources(Me.tslblVersion, "tslblVersion") - ' - 'tsslblLastSysnc - ' - Me.tsslblLastSysnc.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) - resources.ApplyResources(Me.tsslblLastSysnc, "tsslblLastSysnc") - Me.tsslblLastSysnc.Name = "tsslblLastSysnc" - ' - 'tslblmessage - ' - Me.tslblmessage.BackColor = System.Drawing.Color.Yellow - Me.tslblmessage.Name = "tslblmessage" - resources.ApplyResources(Me.tslblmessage, "tslblmessage") - ' - 'tsslblDEBUG_LOG - ' - resources.ApplyResources(Me.tsslblDEBUG_LOG, "tsslblDEBUG_LOG") - Me.tsslblDEBUG_LOG.ForeColor = System.Drawing.SystemColors.ActiveCaptionText - Me.tsslblDEBUG_LOG.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.A_1 - Me.tsslblDEBUG_LOG.Name = "tsslblDEBUG_LOG" - ' 'Panel1 ' Me.Panel1.Controls.Add(Me.GridControl_Docs) Me.Panel1.Controls.Add(Me.BindingNavigator1) Me.Panel1.Controls.Add(Me.NavBarControl1) - Me.Panel1.Controls.Add(Me.ToolStrip1) - Me.Panel1.Controls.Add(Me.StatusStrip1) Me.Panel1.Controls.Add(Me.SplitContainerDashboard) resources.ApplyResources(Me.Panel1, "Panel1") Me.Panel1.Name = "Panel1" @@ -476,6 +359,7 @@ Partial Class frmMain Me.GridView_Docs.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[True] Me.GridView_Docs.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True] Me.GridView_Docs.OptionsBehavior.Editable = False + Me.GridView_Docs.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridView_Docs.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect Me.GridView_Docs.OptionsView.ColumnAutoWidth = False Me.GridView_Docs.OptionsView.EnableAppearanceEvenRow = True @@ -669,13 +553,200 @@ Partial Class frmMain Me.Timer5Mins.Enabled = True Me.Timer5Mins.Interval = 350000 ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage}) + resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") + Me.RibbonControl1.MaxItemId = 15 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.QuickToolbarItemLinks.Add(Me.bbtnitemInfo) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'bbtniRefresh + ' + resources.ApplyResources(Me.bbtniRefresh, "bbtniRefresh") + Me.bbtniRefresh.Id = 1 + Me.bbtniRefresh.ImageOptions.Image = CType(resources.GetObject("bbtniRefresh.ImageOptions.Image"), System.Drawing.Image) + Me.bbtniRefresh.ImageOptions.LargeImage = CType(resources.GetObject("bbtniRefresh.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtniRefresh.Name = "bbtniRefresh" + ' + 'bbtniMonitor + ' + resources.ApplyResources(Me.bbtniMonitor, "bbtniMonitor") + Me.bbtniMonitor.Id = 2 + Me.bbtniMonitor.ImageOptions.Image = CType(resources.GetObject("bbtniMonitor.ImageOptions.Image"), System.Drawing.Image) + Me.bbtniMonitor.ImageOptions.LargeImage = CType(resources.GetObject("bbtniMonitor.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtniMonitor.Name = "bbtniMonitor" + ' + 'bbiProfilverwaltung + ' + resources.ApplyResources(Me.bbiProfilverwaltung, "bbiProfilverwaltung") + Me.bbiProfilverwaltung.Id = 3 + Me.bbiProfilverwaltung.ImageOptions.Image = CType(resources.GetObject("bbiProfilverwaltung.ImageOptions.Image"), System.Drawing.Image) + Me.bbiProfilverwaltung.ImageOptions.LargeImage = CType(resources.GetObject("bbiProfilverwaltung.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbiProfilverwaltung.Name = "bbiProfilverwaltung" + ' + 'bbiKonfiguration + ' + resources.ApplyResources(Me.bbiKonfiguration, "bbiKonfiguration") + Me.bbiKonfiguration.Id = 4 + Me.bbiKonfiguration.ImageOptions.Image = CType(resources.GetObject("bbiKonfiguration.ImageOptions.Image"), System.Drawing.Image) + Me.bbiKonfiguration.ImageOptions.LargeImage = CType(resources.GetObject("bbiKonfiguration.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbiKonfiguration.Name = "bbiKonfiguration" + ' + 'bbtniGrundeinstellung + ' + resources.ApplyResources(Me.bbtniGrundeinstellung, "bbtniGrundeinstellung") + Me.bbtniGrundeinstellung.Id = 5 + Me.bbtniGrundeinstellung.ImageOptions.Image = CType(resources.GetObject("bbtniGrundeinstellung.ImageOptions.Image"), System.Drawing.Image) + Me.bbtniGrundeinstellung.ImageOptions.LargeImage = CType(resources.GetObject("bbtniGrundeinstellung.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtniGrundeinstellung.Name = "bbtniGrundeinstellung" + Me.bbtniGrundeinstellung.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'bbtnitemInfo + ' + resources.ApplyResources(Me.bbtnitemInfo, "bbtnitemInfo") + Me.bbtnitemInfo.Id = 6 + Me.bbtnitemInfo.ImageOptions.Image = CType(resources.GetObject("bbtnitemInfo.ImageOptions.Image"), System.Drawing.Image) + Me.bbtnitemInfo.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitemInfo.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtnitemInfo.Name = "bbtnitemInfo" + Me.bbtnitemInfo.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'BarButtonItem1 + ' + resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1") + Me.BarButtonItem1.Id = 7 + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'bsiUser + ' + resources.ApplyResources(Me.bsiUser, "bsiUser") + Me.bsiUser.Id = 8 + Me.bsiUser.ImageOptions.Image = CType(resources.GetObject("bsiUser.ImageOptions.Image"), System.Drawing.Image) + Me.bsiUser.ImageOptions.LargeImage = CType(resources.GetObject("bsiUser.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bsiUser.Name = "bsiUser" + Me.bsiUser.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'bsiLicenses + ' + resources.ApplyResources(Me.bsiLicenses, "bsiLicenses") + Me.bsiLicenses.Id = 9 + Me.bsiLicenses.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.key + Me.bsiLicenses.Name = "bsiLicenses" + Me.bsiLicenses.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'bsiUserLoggedIn + ' + resources.ApplyResources(Me.bsiUserLoggedIn, "bsiUserLoggedIn") + Me.bsiUserLoggedIn.Id = 10 + Me.bsiUserLoggedIn.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.group_key + Me.bsiUserLoggedIn.Name = "bsiUserLoggedIn" + Me.bsiUserLoggedIn.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'bsiVersion + ' + resources.ApplyResources(Me.bsiVersion, "bsiVersion") + Me.bsiVersion.Id = 11 + Me.bsiVersion.Name = "bsiVersion" + ' + 'bsilastsync + ' + resources.ApplyResources(Me.bsilastsync, "bsilastsync") + Me.bsilastsync.Id = 12 + Me.bsilastsync.ImageOptions.Image = CType(resources.GetObject("bsilastsync.ImageOptions.Image"), System.Drawing.Image) + Me.bsilastsync.ImageOptions.LargeImage = CType(resources.GetObject("bsilastsync.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bsilastsync.Name = "bsilastsync" + Me.bsilastsync.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'bsiDebug + ' + resources.ApplyResources(Me.bsiDebug, "bsiDebug") + Me.bsiDebug.Id = 13 + Me.bsiDebug.ImageOptions.Image = CType(resources.GetObject("bsiDebug.ImageOptions.Image"), System.Drawing.Image) + Me.bsiDebug.ImageOptions.LargeImage = CType(resources.GetObject("bsiDebug.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bsiDebug.Name = "bsiDebug" + Me.bsiDebug.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'bsiMessage + ' + resources.ApplyResources(Me.bsiMessage, "bsiMessage") + Me.bsiMessage.Id = 14 + Me.bsiMessage.Name = "bsiMessage" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4}) + Me.RibbonPage1.Name = "RibbonPage1" + resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtniRefresh) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtniMonitor) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2") + ' + 'RibbonPageGroup3 + ' + Me.RibbonPageGroup3.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup3.ItemLinks.Add(Me.bbiProfilverwaltung) + Me.RibbonPageGroup3.ItemLinks.Add(Me.bbiKonfiguration) + Me.RibbonPageGroup3.Name = "RibbonPageGroup3" + resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3") + ' + 'RibbonPageGroup4 + ' + Me.RibbonPageGroup4.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup4.ItemLinks.Add(Me.bbtniGrundeinstellung) + Me.RibbonPageGroup4.ItemLinks.Add(Me.bbtnitemInfo) + Me.RibbonPageGroup4.Name = "RibbonPageGroup4" + resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4") + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUser) + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiLicenses) + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUserLoggedIn) + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiVersion) + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsilastsync) + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDebug) + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiMessage) + resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1") + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") + ' + 'ApplicationMenu1 + ' + Me.ApplicationMenu1.Name = "ApplicationMenu1" + Me.ApplicationMenu1.Ribbon = Me.RibbonControl1 + ' 'frmMain ' + Me.Appearance.Options.UseFont = True resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.Icon = CType(resources.GetObject("frmMain.IconOptions.Icon"), System.Drawing.Icon) Me.KeyPreview = True Me.Name = "frmMain" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 Me.SplitContainerDashboard.Panel1.ResumeLayout(False) Me.SplitContainerDashboard.Panel2.ResumeLayout(False) CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).EndInit() @@ -698,10 +769,6 @@ Partial Class frmMain CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.ToolStrip1.ResumeLayout(False) - Me.ToolStrip1.PerformLayout() - Me.StatusStrip1.ResumeLayout(False) - Me.StatusStrip1.PerformLayout() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).EndInit() @@ -717,7 +784,10 @@ Partial Class frmMain CType(Me.TBPM_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) + Me.PerformLayout() End Sub Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet @@ -725,24 +795,14 @@ Partial Class frmMain Friend WithEvents TBPM_PROFILETableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents ImageListProfile As System.Windows.Forms.ImageList - Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip - Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip - Friend WithEvents tsstlblUser As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon Friend WithEvents TimerRefresh As System.Windows.Forms.Timer - Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator Friend WithEvents TBPM_USERBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter - Friend WithEvents tslblLicenses As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents tslblUserLoggedin As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents tsbtnrefresh As System.Windows.Forms.ToolStripButton - Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton - Friend WithEvents tslblVersion As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents TimerReminder As System.Windows.Forms.Timer Friend WithEvents ContextMenuGrid As ContextMenuStrip Friend WithEvents CMGroupStart As ToolStripMenuItem @@ -752,7 +812,6 @@ Partial Class frmMain Friend WithEvents NavBarGroupMore As DevExpress.XtraNavBar.NavBarGroup Friend WithEvents NavBarItemOverview As DevExpress.XtraNavBar.NavBarItem Friend WithEvents NavBarItemDashboard As DevExpress.XtraNavBar.NavBarItem - Friend WithEvents tsslblLastSysnc As ToolStripStatusLabel Friend WithEvents cmsNavPane As ContextMenuStrip Friend WithEvents tsmiValidationProfil As ToolStripMenuItem Friend WithEvents Panel1 As Panel @@ -768,7 +827,6 @@ Partial Class frmMain Friend WithEvents ChartBottomRight As DevExpress.XtraCharts.ChartControl Friend WithEvents ToolStripBottomRight As ToolStrip Friend WithEvents TabellenlayoutZurücksetzenToolStripMenuItem As ToolStripMenuItem - Friend WithEvents tslblmessage As ToolStripStatusLabel Friend WithEvents tsmiMarkedFilesFinish As ToolStripMenuItem Friend WithEvents GridControl_Docs As DevExpress.XtraGrid.GridControl Friend WithEvents GridView_Docs As DevExpress.XtraGrid.Views.Grid.GridView @@ -788,14 +846,32 @@ Partial Class frmMain Friend WithEvents ToolStripSeparator3 As ToolStripSeparator Friend WithEvents LayoutSpeichernToolStripMenuItem As ToolStripMenuItem Friend WithEvents Timer5Mins As Timer - Friend WithEvents tsslblDEBUG_LOG As ToolStripStatusLabel Friend WithEvents ToolTip1 As ToolTip - Friend WithEvents tsddConfig As ToolStripDropDownButton - Friend WithEvents ProfileUndBasisToolStripMenuItem As ToolStripMenuItem - Friend WithEvents KonfigurationenToolStripMenuItem As ToolStripMenuItem Friend WithEvents LöscheAlleFilterToolStripMenuItem As ToolStripMenuItem Friend WithEvents ContextMenuNotifyIcon As ContextMenuStrip Friend WithEvents PopupErinnerungInaktivierenToolStripMenuItem As ToolStripMenuItem Friend WithEvents AnzeigenToolStripMenuItem As ToolStripMenuItem - Friend WithEvents tsbtnMonitoring As ToolStripButton + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents bbtniRefresh As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtniMonitor As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbiProfilverwaltung As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbiKonfiguration As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtniGrundeinstellung As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents bbtnitemInfo As DevExpress.XtraBars.BarButtonItem + Friend WithEvents ApplicationMenu1 As DevExpress.XtraBars.Ribbon.ApplicationMenu + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bsiUser As DevExpress.XtraBars.BarStaticItem + Friend WithEvents bsiLicenses As DevExpress.XtraBars.BarStaticItem + Friend WithEvents bsiUserLoggedIn As DevExpress.XtraBars.BarStaticItem + Friend WithEvents bsiVersion As DevExpress.XtraBars.BarStaticItem + Friend WithEvents bsilastsync As DevExpress.XtraBars.BarStaticItem + Friend WithEvents bsiDebug As DevExpress.XtraBars.BarStaticItem + Friend WithEvents bsiMessage As DevExpress.XtraBars.BarStaticItem End Class diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 215b600..adb73ac 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -141,7 +141,7 @@ 0, 25 - 162, 147 + 162, 39 @@ -160,7 +160,7 @@ 0 - 662, 95 + 907, 95 0, 0 @@ -205,7 +205,7 @@ 0, 25 - 330, 147 + 330, 39 1 @@ -223,7 +223,7 @@ 0 - 804, 95 + 17, 134 0, 0 @@ -262,7 +262,7 @@ 1 - 496, 172 + 496, 64 162 @@ -307,7 +307,7 @@ 0, 25 - 162, 89 + 162, 15 1 @@ -325,7 +325,7 @@ 0 - 955, 95 + 168, 134 0, 0 @@ -370,7 +370,7 @@ 0, 25 - 330, 89 + 330, 15 1 @@ -388,7 +388,7 @@ 0 - 1117, 95 + 330, 134 0, 0 @@ -427,7 +427,7 @@ 1 - 496, 114 + 496, 40 162 @@ -460,10 +460,10 @@ 1 - 496, 290 + 496, 108 - 172 + 64 7 @@ -478,7 +478,7 @@ Panel1 - 5 + 3 770, 17 @@ -488,7 +488,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAewBBAHsAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAUQBBQFEAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -541,214 +541,70 @@ 597, 17 - - 908, 17 + + 637, 95 - - Tahoma, 9pt - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC9SURBVDhP3ZOxEcMgEAQpxbWoEtdBAeSqyDERpWAHQIhZ - /PYIhNCMnflmLvm/u3leL9UjpXQNIdxijHlLavREtkdpXorQWWuz1jovy9KQGj00aMX2gpi9MWZn7Lmu - KyG+CSGVRi+++0dlX5cQV828i9F6ETwKgHjwKpYzevMZ8eBl/KEAziaAeP8hYLbEWcBniT9/RlBGcaMr - PApoDglwlqXgR9fYc3jKQEK++5m24F0spwjrlt+kRk9kAqWezFIoWYYVo9kAAAAASUVORK5CYII= - - - - Magenta - - - 24, 24 - - - Information - - - MiddleLeft - - - Magenta - - - 136, 24 - - - Grundeinstellungen - - - 6, 27 - - - Magenta + + 269, 26 - - 99, 24 + + Validierung für Gruppe/Profil starten - - Aktualisieren + + 269, 26 - - 184, 26 + + Validierung für Datei starten - - Profilverwaltung + + 266, 6 - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAQNJREFUOE+VUrkNg0AQpASXQAkuwSKnADICCiCmAFJEThfkEJOTk0NARnqeWe9Z - x2NOHmmE8Dy3ezj4F9u25eCqfOrPfsAcgv04jibLMlOWpWGJyn7Q3DSNiaJImCTJfQHECpQR+QS/YXIY - BhbkYr4CAyD3TPnkyDZc1zW1Xq1nQJQTdU95MmjfQRaHat8DAsM0SIi7OuH7m6c4z/NaFIXhbduT9cLI - VK1n2DA/kbPncfzrCY5hmpdlMXYSFjmsNPYBw+Dadd0ufJjk9+4QJpp4Er+tG74d2wKimOM4lhJ3Em+Y - YAHDbon+y/xhAqaqbVspIL07HwHjgyUgg+QEvlT2IAje23iU4vnsUjYAAAAASUVORK5CYII= - - - - 184, 26 - - - Konfigurationen - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACpSURBVDhPvVLLDcMgDO0InYktmIIVemKHZA2m4NQLe7g9 - wJXwrBoRBdJGiWrpoScbPz8+t1GklPIv+GzfBopKqV38T+BF7xUOC4xwnQMiuscYHyVBSAq01nVzD1Wg - kGcIgRPGGAa49z5ba7vNAAtgMpqRQKMUhUNk5IQFysK20TBNcz0nuDhxzu0K1GntBQlHDS4k3+IygUNH - aIewwOlLPP2MEr2P9B0pLx8WRpfW43ukAAAAAElFTkSuQmCC + wwAADsMBx2+oZAAAAM5JREFUOE9jwAa+fv3a8O3bt/9I+D0QCECl8QOQQpAG+fTl/xmC5/yvXnryP8hA + qDRhALJx1s4rYM38sYv+P3/zAcUlX758MYAqhQAkSbACEI1se2Rk5H8nJycwTklJ+f/8+XNUQ0CakDUg + 2754xVq4ZpyGgPyHrAnZsI8fPv3/8P4jHOfl5mEagh5oyLYja0Y2AGYISB+GK2C2g/yObgAMwwwBhRfY + AJgrQAIgvHnzZrACbJpBGMMAZAAShCnAphmER5IBhDDtDCAef/sPAEGjQ6y45GCmAAAAAElFTkSuQmCC - - Magenta - - - 103, 24 - - - Verwaltung - - - Magenta - - - 88, 24 - - - Monitoring - - - 0, 0 - - - 1023, 27 - - - 2 - - - ToolStrip1 - - - ToolStrip1 - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 3 - - - 1015, 17 - - - Tahoma, 9pt - - - 0, 498 - - - 1023, 29 - - - 3 - - - StatusStrip1 - - - StatusStrip1 - - - System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 4 - - - 150, 24 - - - ToolStripStatusLabel1 - - - 120, 24 - - - Anzahl Lizenzen: - - - 137, 24 - - - Angemeldete User: + + 269, 26 - - 130, 24 + + Massenabschluss markierte Dateien - - ToolStripStatusLabel1 + + 266, 6 - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAMhJREFUOE+lksENwyAMRTMKI2SG3LkzQMZCyjLNMnCgvXB1/ZHd0sZpmybSk4xj - P0PCQESnMJNHeAby1FodszCFIQExck7KbAEXjCmlEmMk7z1N09RAjJyIRlMAOwrmeX5pDCE81ngnEmcJ - FkzRxvWy0rXcGoh1R7KTxRIULdJmxL1E5ajdCHLOrQBb1qZeAHQAC7hlR4CiXqBgrd/DFFhH6Pl6BE6e - /oib3/jOx9+oFwkFmKITAWKZvH+R9IGdOX6V/8VM/g4Nd1V+xlTSTXpaAAAAAElFTkSuQmCC + wwAADsMBx2+oZAAAAP9JREFUOE9jAIHv3787fHz5/P/DQ3v+f/v2jSQMNuDr168NZ/qa/i9U4/1/sCQF + RcGRPbvAYk/v3fkfGRn538nJCY7hBgBdkPDs/Kn/y4xlwIYcaywGS17YueX/Gget/6fnTv6fkpKCohnF + ABAAcV7fufl/o68l3BCQgddWzIe7BhuGaocYAMKgsIC5ZFuUO4YGdAzVjukCkNNBNC7no3gBGIj7b29d + C7cZFpAg54PEbh/Zjz8MQM4GaUTWDMOgwAW5CkQji8Mw2AAg4z1IIygq0RUQwmADvnz5YgDi4PIrLgw3 + AARAHGyK8GEMA8jBUO1UMgCbM/Fh6htAOv72HwANMrXhfARkwAAAAABJRU5ErkJggg== - - No - - - 43, 24 + + 269, 26 - - ... + + Lösche alle Filter - - 0, 24 + + 269, 26 - - Tahoma, 9pt, style=Bold + + Layout zurücksetzen - - 20, 24 + + 269, 26 - - False + + Layout speichern - - 392, 95 - 270, 172 @@ -759,10 +615,10 @@ System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 252, 57 + 256, 30 - 631, 380 + 631, 241 8 @@ -780,10 +636,10 @@ 0 - 17, 134 + 500, 134 - 171, 134 + 654, 134 87, 24 @@ -904,7 +760,7 @@ Letzte verschieben - 233, 27 + 233, 0 790, 27 @@ -980,8 +836,14 @@ - 541, 95 + 786, 95 + + 219, 26 + + + Starte Validierung für Profil + 220, 30 @@ -1153,13 +1015,13 @@ - 0, 27 + 0, 0 233 - 233, 471 + 233, 345 5 @@ -1186,10 +1048,10 @@ Tahoma, 9pt - 0, 0 + 0, 158 - 1023, 527 + 1023, 345 4 @@ -1206,79 +1068,24 @@ 3 - - 269, 26 - - - Validierung für Gruppe/Profil starten - - - 269, 26 - - - Validierung für Datei starten - - - 266, 6 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAM5JREFUOE9jwAa+fv3a8O3bt/9I+D0QCECl8QOQQpAG+fTl/xmC5/yvXnryP8hA - qDRhALJx1s4rYM38sYv+P3/zAcUlX758MYAqhQAkSbACEI1se2Rk5H8nJycwTklJ+f/8+XNUQ0CakDUg - 2754xVq4ZpyGgPyHrAnZsI8fPv3/8P4jHOfl5mEagh5oyLYja0Y2AGYISB+GK2C2g/yObgAMwwwBhRfY - AJgrQAIgvHnzZrACbJpBGMMAZAAShCnAphmER5IBhDDtDCAef/sPAEGjQ6y45GCmAAAAAElFTkSuQmCC - - - - 269, 26 - - - Massenabschluss markierte Dateien - - - 266, 6 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAP9JREFUOE9jAIHv3787fHz5/P/DQ3v+f/v2jSQMNuDr168NZ/qa/i9U4/1/sCQF - RcGRPbvAYk/v3fkfGRn538nJCY7hBgBdkPDs/Kn/y4xlwIYcaywGS17YueX/Gget/6fnTv6fkpKCohnF - ABAAcV7fufl/o68l3BCQgddWzIe7BhuGaocYAMKgsIC5ZFuUO4YGdAzVjukCkNNBNC7no3gBGIj7b29d - C7cZFpAg54PEbh/Zjz8MQM4GaUTWDMOgwAW5CkQji8Mw2AAg4z1IIygq0RUQwmADvnz5YgDi4PIrLgw3 - AARAHGyK8GEMA8jBUO1UMgCbM/Fh6htAOv72HwANMrXhfARkwAAAAABJRU5ErkJggg== - - - - 269, 26 - - - Lösche alle Filter - - - 269, 26 - - - Layout zurücksetzen - - - 269, 26 - - - Layout speichern - - - 219, 26 - - - Starte Validierung für Profil - - 1132, 17 + 908, 17 - 519, 134 + 17, 173 + + 234, 22 + + + Popup Erinnerung inaktivieren + + + 234, 22 + + + Monitor anzeigen + 235, 48 @@ -1460,18 +1267,6 @@ True - - 234, 22 - - - Popup Erinnerung inaktivieren - - - 234, 22 - - - Monitor anzeigen - 17, 56 @@ -1488,19 +1283,341 @@ 789, 56 - 1046, 56 + 17, 95 - 17, 95 + 262, 95 - 257, 95 + 502, 95 - 305, 134 + 788, 134 - 420, 134 + 903, 134 + + + Aktualisieren + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA1dEVYdFRpdGxlAEFycm93O1JlY3VycmVuY2U7UmVm + cmVzaDtVcGRhdGU7UmVsb2FkO0V4Y2hhbmdlhrRdSAAAANJJREFUOE+lkrENwkAQBI1EATRg0YFzirDI + SMgdIkeQ0wQlkJKZjH5o4tl9/Z5O6B6BCUY67d7tv33fpJT+IhR/wYr+fBctGMEEngXW1OjlvlrAAhxA + qnADGxAGrEAPGHICA1gXWD+AQtooYF8aGGK68zugkFG6TA7pmjlEDR7ovAn9SVo0LCwk8IyPJoeP18sS + dfUQfz2uiuIgzcPm4tswdd/APdPgj+qkO9+H2Of5Bj4Srkgh72vcAYXYnA8gfCQKidiC3FsLIPOe8lxC + 8XtS8wL/7IdaesUzOwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA1dEVYdFRpdGxlAEFycm93O1JlY3VycmVuY2U7UmVm + cmVzaDtVcGRhdGU7UmVsb2FkO0V4Y2hhbmdlhrRdSAAAAc5JREFUWEfFlj1Ow1AQhFMEmnRIFCgUFCDl + BNAlJ/BVUtImQkIcAW7gA9BwgHTUqSgouAK9mUHeaN9mXuwQ8VJ8Sjxvdnfkv+dB0zRHRYolkWJJpFgS + KZZEijmqh7cJmIMarMF3C/9T49pE1eaQYgRNx2AJPkDTAT30jlWviBQ9aHQLXkEc1AVrpqqnR4oGGpAL + 8AnUkC5WYGcIKRIUkqr9vQIW4h0swAyctfA/Na7FEDwT2cshRYIiDmcDH+IR3Cg/4Rp4ATHEUvnJlnBf + Pw9RYMMNC3ES/RF4RiCG4I0pn47kAMPPYYzDjcp7dwEvz0S8HHPlTQ5gyg039gnBe8LX1sq3+QND13Cj + Vwj4eGP6urXymbnvcCMJweOw3pfqoOIDQ/zWbxp4sMh3uzfPlC8C396XcasJgYEbiy9YKJ8C3q4QyZlL + ig2YuKv5Ij5S2RdQBN5ciIqPuvcmhQaM3HbjzseXy0j5PfCcAhWCw4fRnxx4UMAt1TcgDNH1Kn4C18CH + SE67R4oERfwGUNtwn83oC/gQcgaRooHCKeCWGkP0gSEugextSNGDBgzx1w+SO9XTI8UIGh3vk8yDpsf5 + KP1PpFgSKZZEiiWRYjmawQ//5PL6OeAKogAAAABJRU5ErkJggg== + + + + Monitoring + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAEZpbmQ7SWQ7TG9jYXRlO1NlYXJj + aMjN118AAACCSURBVDhPtY7REYAwCENd0DUcxGOJbuJ22KjpUSy13unHOw0JoZOqFuZ1UzIyB5WIgtEc + NEM2HM2JL1h80OrM4XMHfFPgQoUnD4TXO1SvCC9cdH1bMHqdlFf8VwAzf0nlZV4XNLEFN2ACEVGD12mk + gEv8t/oM9XALXreXLFeYOC1pB/JUiL0FdxNpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAEZpbmQ7SWQ7TG9jYXRlO1NlYXJj + aMjN118AAADxSURBVFhH7ZJRDsIwDEN3Qa7BQdAuwU24XUZQi1zPrbJ1G2Lax5OIcRxTMZjZT5HikUjx + SKTI3B4vI5Rn5mOPQopMNDjqQ6TIRIOjPkSKGQ5klvoUUsykgDuGIeRTfHazTyHFDIZUQJ/iKvDHBSio + RtiL2YgUnbTY+vVRmq8gRQeXO9mvAHlrLCtAy5vD94rBScYtnp6RL1EMDpo35mQFKnstrgK7FwjBezPh + bfIDqwqM42hL8L0ixEkHugqgLuYn+r5fZNKB7hdwTc2o++cixOFDNcTeSQr0kIP5EM6o+2cZtBYMRo3m + 9p+whxwcxcyGCV++4POOhQ6sAAAAAElFTkSuQmCC + + + + Profilverwaltung + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABHdEVYdFRpdGxlAEN1c3RvbWVyO0VtcGxveWVlO0Zp + eDtQdWJsaWM7U2V0dGluZ3M7T3B0aW9ucztDdXN0b21pejtHcm91cDtUZWFtaQsTiAAAARBJREFUOE+l + 0z9qAlEQx/E1Bi1t7D1BCgXb3EBT2nkBmxQSW5HtPUCKdIGcwL2CFnuI4A0EFSRuvr9lHsyTlSWk+PCY + cf68XTUpiuJfKpN/kaRpek8D7ziYDzwgqouCG11sUThDRHU+uLfxB2HABL4nGqDpfpsot3PxAr4nGqDp + vlmU+0SONnx9yQeaHg0YrbLENNHH2U7F5Wd+QAdHNZqDFWnQG2a42qm4XOAHyBxhwJQCbVLxxRoCxcpH + Ax7xhGfToEDX1UY1rdGzU7HyfTXq5SzxjT1eTIsCPbOurYYeuVedFit/1oAvhGt77fFqM6Co9ganm8Yg + p6DuHTTD81eioP5bqPqHBSpw/O/AclnyC9lwIPbajFPHAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABHdEVYdFRpdGxlAEN1c3RvbWVyO0VtcGxveWVlO0Zp + eDtQdWJsaWM7U2V0dGluZ3M7T3B0aW9ucztDdXN0b21pejtHcm91cDtUZWFtaQsTiAAAAsFJREFUWEfF + 1k+ITWEYx/EZ/8IwslQWNlJylcJM/hU76U7drBAWWCh2YiGb6W5sbSULRSQrf0aNPxmE/JdpRlZI2E0i + orm+v5n3bZ6ennMdV6E+Ofd53/f3vOfcc86dtkaj8V+FxX8pLJZVr9fX4zI+4gc+4So2RPMjYbEMmnTj + JxoB1ddF67ywWAYNTpmGkbPROi8slkGDJ66h9zRa54XFMmhwFKOmofc6WueFxYyQHRiAvcnuYifacRhR + c9F9UIlyrbAoLD5iwiL6NwMjiMalGmVbYZGFM/HZBEW+ohO3TM16hulRvhUWWdhlgppZi4uulu2Ksr2w + yOJNLqyI5h1zNfmAjijbC4ss3mfCmtmP5a72HRuj3EhYJOCeCWzmAXS/HMd9nMRv73wrLBLSj6ih11+w + voIp0ZgXFlNA0Xs+0/hSTHNr50Pvi8fYq8923AuLwsKixyvTC2oy9Ou3GyuwB+9g5+kFdgJzq719bV7Y + XFhQSwFFNL7G1byFxgLMK70BYcEZRMGn0/gFV79jjKQmrzCcG3ph44yQqTiAN1CDtzgEXfotqZbpyWnv + 6b2yutZ7aQ7HldSkkeSmnViVP4eNMwWa49nmeFL6fzOGMLYBmncTOorn2I4byBu4mWoa05wuxBsgbBF0 + +Q8WjOtX8LzmKcTQ2b1AblpEczR3YgOEzYIu7yDyZdVbreaa69LbR1Tzta5DgdiK3EhnqqsgOs51zZn4 + Clisu9k/PtZDnMMjU7PsldClzs17Uk10nDehOeMbYPEyfDFhrdAGhlJ4dh25eWbvCRnWBsq+dpvRBl66 + 8NvwG1DNzhnUBr65sFYsJiw3sV9BNdVEx+FX8N6FtUp/mi0h1N+E1zCQjnN9G8Y3YO/wVuSgpPXHsFUK + MVZCZ/p3L6I/oRBHr9mxs0vyBvJnjZV7FZeRg5rQj5EEY31tvwDXIzKeLFW7IwAAAABJRU5ErkJggg== + + + + Konfiguration + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAEJ1aWxkO1NldHRpbmdzO0N1c3Rv + bWl6O09wdGlvbnNZCaCYAAAAvklEQVQ4T72RQQoCMQxFB7qYY8wZ6j0E7+HOxRxAu/c44wFcz1FcFxTj + /5DBBmaa4sLAIyTk/6ZtJyKGlJI4mHlTEA5txX8MgBdm3hSP+0lKlljptxlsUWpaDF5gBv1CqfEM2Ov2 + 51s4XKYdctYcWgx4MsUCRnAEb82sIakbzBgKOvykoID16Bn0ui5PpOgKBs2s2Y9VAwxkwLUpGNDjlWjC + mv3sGUTw8wbuG4BgDNZQQdsv1ICA1+GbxG9fug/ssNACwjT8OgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAEJ1aWxkO1NldHRpbmdzO0N1c3Rv + bWl6O09wdGlvbnNZCaCYAAABy0lEQVRYR82VPU7DQBSEc4O0UZQ2TZooB6HMRZCoIyFXdFyDE3AAKqrQ + 0keIBkU0EQixzET7nJeXifAPllnpU9azb2d27bUzSCn1ihQjRVGkBnCe9PNIUVC7VQknUvS4HdUmeimk + 6MlGtVtehPT0SDHQuLVeQN5FK6JnRIpGNmjcWi8A/EVTviVSJG8Pl+kc3187lBwar1WdgSYziBSJMjI+ + Xh9Rcmi8VnUGmswgUiTKyHh/ut2Hcuf85bWqM6K3R4pEGTUlenukSJRRU6K3R4pEGTUlenukSJRRRZ7B + 0KP8DSkSTFTmihewcawvru+nYJuZKn9DigRGKizC8AFCRmCM/hJcoT8HKTM3T9aAkc8pO5Ec8BsbGuag + O7AAE3ADPjPsU+MYa1hbLuIk2BBhCi6AuzLjKrB2bDknwYYIU/CZL2HI3akwxcLnHIV6QpCCp30N+Mx5 + iy2Ad2UFZhn2qdn4xOcchXpc0DmGMONp54Hjc7aAFcY4v4SaG2ct5+zfDhlOMFGFergAvmY05WGzgBnG + 4gJ4J2zcarfMkeEEE1Wo518soNdH0PshJN29hlWBYTcfoqrArJtPcR1oCMpdod/+z6gNCKn4d5wGP9ko + qHzFAnr7AAAAAElFTkSuQmCC + + + + Grundeinstellungen + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAydEVYdFRpdGxlAEN1c3RvbWVyO0VtcGxveWVlO1Bl + cnNvbjtDb250YWN0O1VzZXI7Q2xpZW50fhE26AAAAM1JREFUOE+l0TEOQUEUBdBfiN4ySDQqKvTfGuxF + pbEIi5DoRcIa/gqovwKRca/MvMw8/zGhODKZd98NpnDO/eX1MVtstSHs4eIdYAxJzipowQmccoY2SNYq + 6IJeDnogWatgAk3LNAXJWgVLaFomziRrFYzgAXqZd/xzJWsV0A50Ae+S3KcCPtkNwjLP2c8YzOHo8fyW + sQo6sIL4zXnmHWeS1QUD2MAd+LXX0Pd45h1nzDCbFJRwhfCbv2G2jAuqaJirigtqNcxRS8HvXPEEp3w/ + tQHvKFEAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAydEVYdFRpdGxlAEN1c3RvbWVyO0VtcGxveWVlO1Bl + cnNvbjtDb250YWN0O1VzZXI7Q2xpZW50fhE26AAAAfhJREFUWEfF1rFLVWEYx3FBFweHwGhVamnIvdUQ + CmwI+mOiIUIXwV10cQ8aGoVcbFWCiIYgAiVHsWgwSDj+fofzHN7nvV+vDt7r8Fne87zP99x7HZxomuZW + DRw8X9m5jmV5J7/kf+dY3ssLoTtJ9FLcaLiyIc0VtoXu9qKX4kbDhadCQfJSaEcreiluNFzw104x8kFo + Ryt6KW40XPguFCM/hHa0opfiRsOFv0Ix8ltoRyt6KW40XKDQZf4J7WhFL8WNhjuLQqFhfId29b0UNxru + bApFhvEd2tX3UtxouLMmFBnGd2hX30txo+HOfTkRChHP+g7t6nspbjRceCMUI6+EdrSil+JGw4VHQjHi + WdrRil6KGw1XPgoFS7tCd3vRS3Gj4cqCnAmFzc88Q3d70Utxo2HwTE6ljv8RP6M7SfRS3Gj4Enfltfgn + +SRv5Z7Q7IDopbjRcGUSzmpTcJZEL8WNhguP5bM8KM5q/uv/Ip6l563opbjB8JysyDeJ33pPpqWenZED + iTnfWZV5SbPRS3Erhu7Ilvj/vVhY2pcn4q/bluSr0Kx3eJd3XusFHspPoWW18w49q3mnd/e9FDc9nJVD + oQU3wbtno0cvsF4Mj8p69OgFRvnpw2H06AXowo2LHr3AUT08AkfRG3iBccPDccLDccLD8WkmLgAKdExB + J+0x6AAAAABJRU5ErkJggg== + + + + Über + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAJxJREFUOE+t + k+ENQDAUhDuKafyzlN9MYQkbWEdiAO5rNEEOlZJ8Cb17l77XCk07XqlFLyYx7/DOGtrJf/yoRCcWsd6A + hgfvKYCFQbgiB94YkgJIdcYnqIkB9GW3rSeA0wQ1NSLDcYa3AOgRmbATc5gI4JicmLOD+ZeA2xYyAmIL + xUMsPkYoukhQfJVTCKm2nR00PLEYjgGJD7/zGDZMp1TRLvGgqwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAahJREFUWEfN + lz1SwzAQhcMRSMXkCpyFPkeggg5aJjWTmqNQ5AoU3CC3yFCZ/TzejGQ/WZKNxxRfxuPs232RVj/ZNE2z + Ku3Hw+GzhJ2xN47GyTgblw6eecd3xBCrckSUGrg33oxvoymEWDRoVc6WnIEb49H4MlSREtCSg1yDGmMG + 7ox3QyWdArnIGdVJGSDww1CJ5kDOyIQywFCV/PIf48nYGrfdM+9UbAi5r9OhDDBfStjnGV2IvXvtxaSg + hjRAx5Y23DYs3uVgNFRsH2q0qwNdaIBlowSKOQaAWpEBNo6ada6m4KUXMwa1duhczO6lAlN4E9KANU0Y + sg8NsIWqoCU5hgbYx1XQkpxCAxwmKigJuhAVk+GMzsWcaCooiRd2VEyGC7p/Y2D1KahuQi/sqJgMURNW + L0Mv7KiYDNEyrN2ITDbbQLQR1W7FJptlYLAVQ81hZLJZBgaHEdQcxyabbCB5HEPphcRkkw0kLyRQeiWb + SvZKBqteSh0C/3IkyBUVhzEDwFAxX8WNKUBLjuuwh+QMOHQsy6ZmnyAWTdvtKUoNOMv9OV2PZvMLsfKg + vDjYoZ0AAAAASUVORK5CYII= + + + + BarButtonItem1 + + + BarStaticItem1 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAydEVYdFRpdGxlAEN1c3RvbWVyO0VtcGxveWVlO1Bl + cnNvbjtDb250YWN0O1VzZXI7Q2xpZW50fhE26AAAAM1JREFUOE+l0TEOQUEUBdBfiN4ySDQqKvTfGuxF + pbEIi5DoRcIa/gqovwKRca/MvMw8/zGhODKZd98NpnDO/eX1MVtstSHs4eIdYAxJzipowQmccoY2SNYq + 6IJeDnogWatgAk3LNAXJWgVLaFomziRrFYzgAXqZd/xzJWsV0A50Ae+S3KcCPtkNwjLP2c8YzOHo8fyW + sQo6sIL4zXnmHWeS1QUD2MAd+LXX0Pd45h1nzDCbFJRwhfCbv2G2jAuqaJirigtqNcxRS8HvXPEEp3w/ + tQHvKFEAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAydEVYdFRpdGxlAEN1c3RvbWVyO0VtcGxveWVlO1Bl + cnNvbjtDb250YWN0O1VzZXI7Q2xpZW50fhE26AAAAfhJREFUWEfF1rFLVWEYx3FBFweHwGhVamnIvdUQ + CmwI+mOiIUIXwV10cQ8aGoVcbFWCiIYgAiVHsWgwSDj+fofzHN7nvV+vDt7r8Fne87zP99x7HZxomuZW + DRw8X9m5jmV5J7/kf+dY3ssLoTtJ9FLcaLiyIc0VtoXu9qKX4kbDhadCQfJSaEcreiluNFzw104x8kFo + Ryt6KW40XPguFCM/hHa0opfiRsOFv0Ix8ltoRyt6KW40XKDQZf4J7WhFL8WNhjuLQqFhfId29b0UNxru + bApFhvEd2tX3UtxouLMmFBnGd2hX30txo+HOfTkRChHP+g7t6nspbjRceCMUI6+EdrSil+JGw4VHQjHi + WdrRil6KGw1XPgoFS7tCd3vRS3Gj4cqCnAmFzc88Q3d70Utxo2HwTE6ljv8RP6M7SfRS3Gj4Enfltfgn + +SRv5Z7Q7IDopbjRcGUSzmpTcJZEL8WNhguP5bM8KM5q/uv/Ip6l563opbjB8JysyDeJ33pPpqWenZED + iTnfWZV5SbPRS3Erhu7Ilvj/vVhY2pcn4q/bluSr0Kx3eJd3XusFHspPoWW18w49q3mnd/e9FDc9nJVD + oQU3wbtno0cvsF4Mj8p69OgFRvnpw2H06AXowo2LHr3AUT08AkfRG3iBccPDccLDccLD8WkmLgAKdExB + J+0x6AAAAABJRU5ErkJggg== + + + + BarStaticItem2 + + + BarStaticItem3 + + + BarStaticItem4 + + + No Sync so far + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAWdEVYdFRpdGxlAFRpbWU7Q2xvY2s7V2F0Y2hviDio + AAAAyklEQVQ4T62TzRGCQAxGaYM+KIES6MCDZchhO6ERmnDGJjjYgDFvJ2EChoPi4TG7yeOb/YFGRE5R + H49LH+mUUZmVxWBMjd7qZgFX5a7IAfRw0gAaT+WlTMqgtAZjavRwakgMYGmkI9yoQSlFwOf0zMHtqHmD + /bHEyWXYBwCOuSNzL3JIFIcoHwSwHdyZuRc5aYptlD0gBuGYuzD/W0C6hQwcczdbSA8xA8fczSGm17iH + njkf1winPqQYQjpLzKBXX4YsAL7/mX5Hmjfh6HbzAvf6qQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAWdEVYdFRpdGxlAFRpbWU7Q2xvY2s7V2F0Y2hviDio + AAAByElEQVRYR8WWsW0DMQxFPYEHSenKTbqMkA3SGJnA6T1EJgjgxgNkEm+RykC6C59BGhQpn9lEVzzA + R/3/xTtJd15N07Qo3eJIusWRdIsjSYXz28scW2EvnISzcFH4TY0xND3vlThfKvRMwrPwKfwI0wPQoMWT + suJ8qdAxvQvcYW+yOfDgbfLifKkQDB/Cr2ChPO6jsBM2wlrhNzXG0JgeLxm3zDhfKjgx3fvJv4XXqI+g + Ua1v4vYkoj4VQISsn3/sX8JT1B0Oh0lp6mjVY36yrnvC6yAVQIRsIjNzN2lyuNcA4FGv5ZCZdKkgIo6R + 7XbW8+5jn2sA8GoGWWRuo6a5ABFxlq3rYxz3PGoAyHB5+zjeXICIeKGYYRfHPcUGOB2Wd4rjzQWIyG++ + TRz3FBvgiFreOY43FyAif47XcdzjGmjwGjJc3sWPQXMBiJxhkQbKS1CBDJdXWoLyJqxAhssrbcLyMaxA + hssrHcPyi+gReDWDrPKLCEqv4jnwqNdyyq9iKH2M7oFWPeavf4wQKct8jk2oLPqHxKB7vxxV8Nzu3Ijz + pUI0KKwfm8hOxxxo0F7XPBLnS4WeyfH/f8tH0y2OpFscSbc4jmn1Bw8VkFVeTnsNAAAAAElFTkSuQmCC + + + + BarStaticItem1 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA4dEVYdFRpdGxlAEhpZ2g7TG93O0Nsb3NlO0NoYXJ0 + O1N0b2NrO1NoYXJlO09wZW47Q2FuZGxlO1N0aWNr36bPbQAAAGtJREFUOE/NztENgCAMBFAWdB0HcAlH + cAW3O1vCNZTyIYFEP14CZ3uYAEzphiNCsB03RMj364QIeQiWF5RFh9+UHcpiy16uyPgXBZz7dwHlRVpV + 4HBH2YFYwLssUP4TVc+7i5ouGNUN30N6AFQmr8/EPoHpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA4dEVYdFRpdGxlAEhpZ2g7TG93O0Nsb3NlO0NoYXJ0 + O1N0b2NrO1NoYXJlO09wZW47Q2FuZGxlO1N0aWNr36bPbQAAAN5JREFUWEft0MsRwjAMhOE0SDsUQBOU + QAt0Z2SPl6zNn9xQcsjhG4aV9ZgspZRDYZgJw0wYZsIwE4bu9niXgLX761kC1vb6HIbuOoAG9cWz4U3G + AfVXvgf09wPvnWHo+pAh00JzzAH03xeL3hEMXR8yZNcBKQfQoNBq1wFnOWC22aeZBMOKBoVWq8u6tli2 + +jSTYFjRoNBqtvSYA0QHeAY9Ea/1GYYVDQrDm38fIG2x+Bs6QLyP6oJhpWYfVPmbjS/w0+f1GYZOg6h2 + ygNkr89hmAnDTBhmwjAThnnK8gHwijMDX2l9pwAAAABJRU5ErkJggg== + + + + BarStaticItem1 + + + 0, 0 + + + Allgemein + + + Funktionen + + + Verwaltung + + + Grundeinstellungen + + + Funktionen + + + 1023, 158 + + + 0, 503 + + + 1023, 24 + + + RibbonStatusBar1 + + + DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 4 + + + RibbonControl1 + + + DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 5 + + + RibbonPage2 + + + 199, 173 True @@ -1517,7 +1634,7 @@ Tahoma, 12pt - + AAABAAEAMDAAAAEAIACoJQAAFgAAACgAAAAwAAAAYAAAAAEAIAAAAAAAgCUAABMLAAATCwAAAAAAAAAA AAAxJKXfMSSl8jEkpe4uIqHuMCSk7lhC3e5eSOfuWELe7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD @@ -1722,96 +1839,6 @@ DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - ToolStripButton2 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripSeparator1 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tsbtnrefresh - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tsddConfig - - - System.Windows.Forms.ToolStripDropDownButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ProfileUndBasisToolStripMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - KonfigurationenToolStripMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tsbtnMonitoring - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tsstlblUser - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tslblLicenses - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tslblUserLoggedin - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tslblVersion - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tsslblLastSysnc - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tslblmessage - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tsslblDEBUG_LOG - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - CMGroupStart @@ -2040,10 +2067,136 @@ System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + bbtniRefresh + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbtniMonitor + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiProfilverwaltung + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiKonfiguration + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbtniGrundeinstellung + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbtnitemInfo + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem1 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bsiUser + + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bsiLicenses + + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bsiUserLoggedIn + + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bsiVersion + + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bsilastsync + + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bsiDebug + + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bsiMessage + + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPage1 + + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPageGroup1 + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPageGroup2 + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPageGroup3 + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPageGroup4 + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPage2 + + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ApplicationMenu1 + + + DevExpress.XtraBars.Ribbon.ApplicationMenu, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmMain - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 442572a..556bba9 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -16,7 +16,7 @@ Public Class frmMain 'Private _windreamPM As ClassPMWindream Private UserLoggedin As Integer = 0 Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable - Private CURR_DT_PROFILEGRID As DataTable + Private CURR_DT_OVERVIEW As DataTable Private RedDocuments As Integer = 0 Private YellowDocuments As Integer = 0 @@ -32,6 +32,7 @@ Public Class frmMain Private formopenClose As Boolean = False Private formShown As Boolean = False 'Private _windream As New ClassWindream_allgemein + Private allgFunk As New ClassAllgemeineFunktionen Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Try @@ -53,17 +54,14 @@ Public Class frmMain Catch ex As Exception End Try - + End If Try ClassAllgemeineFunktionen.LoginOut("LOGOUT") - LOGGER.Info("## ProcessManager beendet - " & Now, False) - LOGGER.Info("", False) + LOGGER.Info("ProcessManager closed - " & Now, False) Catch ex As Exception LOGGER.Error(ex) - LOGGER.Info("### Fehler bei LogOut") - LOGGER.Info("### Fehler: " & ex.Message) End Try End Sub @@ -82,7 +80,7 @@ Public Class frmMain ' Create helper to save/load expanded GroupColumns at runtime RefreshHelper = New RefreshHelper(GridView_Docs, "GUID") - tslblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString) + bsiVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString) If ERROR_STATE = "NO DB-CONNECTION" Or ERROR_STATE = "FAILED DBCONNECTION" Then MsgBox("Bitte hinterlegen Sie die Datenbankverbindung in der Konfiguration!", MsgBoxStyle.Critical, "Fehlende Konfiguration:") frmKonfig.ShowDialog() @@ -100,7 +98,7 @@ Public Class frmMain End Try If Refresh_ConnectionString() = True Then Try - tslblLicenses.Text = "Anzahl Lizenzen: " & LICENSE_COUNT + bsiLicenses.Caption = "Anzahl Lizenzen: " & LICENSE_COUNT LOGGER.Debug("Initializing MainForm....") If ERROR_STATE = "NO USER" Then Dim oDT As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("No Userconfig") @@ -113,7 +111,7 @@ Public Class frmMain Me.Close() End If Else - LOGGER.Info(">> Username: " & USER_USERNAME, False) + LOGGER.Info("Username: " & USER_USERNAME, False) 'Wenn license abgelaufen und der User nicht admin ist! If LICENSE_EXPIRED = True Then If USER_IS_ADMIN = False Then @@ -122,20 +120,20 @@ Public Class frmMain End If End If If USER_IS_ADMIN = True Then - tsddConfig.Visible = True + RibbonPageGroup3.Visible = True Else - tsddConfig.Visible = False + RibbonPageGroup3.Visible = False End If If MONITORING_ACTIVE = False Then - tsbtnMonitoring.Visible = False + RibbonPageGroup2.Visible = False Else - tsbtnMonitoring.Visible = True + RibbonPageGroup2.Visible = True End If 'Anzahl der eingeloggten User If USER_LANGUAGE <> "de-DE" Then - tslblUserLoggedin.Text = "License Count: " & USERCOUNT_LOGGED_IN + bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN Else - tslblUserLoggedin.Text = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN + bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN End If @@ -145,7 +143,7 @@ Public Class frmMain LOGGER.Error(ex) MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei User Check:") End Try - tsstlblUser.Text = USER_USERNAME + bsiUser.Caption = USER_USERNAME Try @@ -177,7 +175,8 @@ Public Class frmMain Check_Timer_Notification() formShown = True Restore_Form_Position() - If IDB_ACTIVE = False Then + + If IDB_ACTIVE = False And ERROR_STATE = "" Then Try WINDREAM = New ClassPMWindream WINDREAM.Start_WMCC_andCo() @@ -301,8 +300,20 @@ Public Class frmMain Try Dim xml As String = GetXML_OverviewLayoutName() IO.File.Delete(xml) + Try + GridView_Docs.Columns.Clear() + Catch ex As Exception + If IsNothing(GridView_Docs) Then + LOGGER.Warn("Somehow GridView_Docs is nothing....") + Else + If IsNothing(GridView_Docs.Columns) Then + LOGGER.Warn("Somehow GridView_Docs.Columns is nothing....") + + End If + End If + Exit Sub + End Try - GridView_Docs.Columns.Clear() GridView_Docs.PopulateColumns() If GridView_Docs.Columns.Count > 0 Then GridView_Docs.Columns.Item("PROFILE_ID").Visible = False @@ -314,8 +325,14 @@ Public Class frmMain GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left - GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime - GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + Try + GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + Catch ex As Exception + GridView_Docs.Columns("Zuletzt bearbeitetd").DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + End Try + Try GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False @@ -642,8 +659,8 @@ Public Class frmMain sql = sql.Replace("@MACHINE_NAME", Environment.MachineName) sql = sql.Replace("@DATE", Now.ToShortDateString) sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) - CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True) - If CURR_DT_PROFILEGRID.Rows.Count = 0 Then + CURR_DT_OVERVIEW = ClassDatabase.Return_Datatable(sql, True) + If CURR_DT_OVERVIEW.Rows.Count = 0 Then NO_WORKFLOWITEMS = True Else NO_WORKFLOWITEMS = False @@ -661,71 +678,83 @@ Public Class frmMain End Sub Sub Create_Basic_View() - - GridControl_Docs.DataSource = Nothing Try - GridView_Docs.Columns.Clear() - Catch ex As Exception - LOGGER.Error(ex) + GridControl_Docs.DataSource = Nothing + Try + GridView_Docs.Columns.Clear() + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Warn("Could not clear GridView_Docs.Columns") + End Try - End Try + ' Spalte für Status Icon erstellen + Dim columnStateIcon As New DataColumn() + columnStateIcon.DataType = GetType(Image) + columnStateIcon.ColumnName = "ICON" + columnStateIcon.Caption = "" + CURR_DT_OVERVIEW.Columns.Add(columnStateIcon) + + RedDocuments = 0 + YellowDocuments = 0 + GreenDocuments = 0 + + For Each row As DataRow In CURR_DT_OVERVIEW.Rows + Dim State As Integer = row.Item("TL_STATE") + Select Case State + Case 1 + RedDocuments += 1 + row.Item("ICON") = My.Resources.ampel_rot + Case 2 + YellowDocuments += 1 + row.Item("ICON") = My.Resources.ampel_gelb + Case 3 + GreenDocuments += 1 + row.Item("ICON") = My.Resources.ampel_gruen + End Select + Next - ' Spalte für Status Icon erstellen - Dim columnStateIcon As New DataColumn() - columnStateIcon.DataType = GetType(Image) - columnStateIcon.ColumnName = "ICON" - columnStateIcon.Caption = "" - CURR_DT_PROFILEGRID.Columns.Add(columnStateIcon) - - RedDocuments = 0 - YellowDocuments = 0 - GreenDocuments = 0 - - For Each row As DataRow In CURR_DT_PROFILEGRID.Rows - Dim State As Integer = row.Item("TL_STATE") - Select Case State - Case 1 - RedDocuments += 1 - row.Item("ICON") = My.Resources.ampel_rot - Case 2 - YellowDocuments += 1 - row.Item("ICON") = My.Resources.ampel_gelb - Case 3 - GreenDocuments += 1 - row.Item("ICON") = My.Resources.ampel_gruen - End Select - Next - - bindsourcegrid.DataSource = CURR_DT_PROFILEGRID - GridControl_Docs.DataSource = bindsourcegrid - - 'GridControlDocRow.ForceInitialize() - - RestoreLayout() - - GridView_Docs.Columns.Item("PROFILE_ID").Visible = False - GridView_Docs.Columns.Item("GUID").Visible = False - GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False - 'GridView_Docs.Columns.Item("DocID").Visible = False - GridView_Docs.Columns.Item("TL_STATE").Visible = False - GridView_Docs.Columns.Item("ICON").MaxWidth = 24 - GridView_Docs.Columns.Item("ICON").MinWidth = 24 - GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White - GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left - GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime - GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" - Try - GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False - GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False - Catch ex As Exception + bindsourcegrid.DataSource = CURR_DT_OVERVIEW + GridControl_Docs.DataSource = bindsourcegrid + + 'GridControlDocRow.ForceInitialize() + + RestoreLayout() + + GridView_Docs.Columns.Item("PROFILE_ID").Visible = False + GridView_Docs.Columns.Item("GUID").Visible = False + GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False + 'GridView_Docs.Columns.Item("DocID").Visible = False + GridView_Docs.Columns.Item("TL_STATE").Visible = False + GridView_Docs.Columns.Item("ICON").MaxWidth = 24 + GridView_Docs.Columns.Item("ICON").MinWidth = 24 + GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White + GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left + Try + GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + Catch ex As Exception + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + End Try + + LOGGER.Debug("All columns in CreateBasicView created") + Try + GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False + GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False + Catch ex As Exception + End Try + LOGGER.Debug("All columns in CreateBasicView created") + Catch ex As Exception + LOGGER.Error(ex) End Try + End Sub Private Function GridLayoutChanged() As Boolean Try - For Each oViewColumn As DataColumn In CURR_DT_PROFILEGRID.Columns + For Each oViewColumn As DataColumn In CURR_DT_OVERVIEW.Columns If oViewColumn.Caption = "" Then Continue For End If @@ -758,7 +787,7 @@ Public Class frmMain End If Dim oGridColumn_exists As Boolean = False Dim oGridDXFieldName = oActGridColumn.FieldName - For Each oViewColumn As DataColumn In CURR_DT_PROFILEGRID.Columns + For Each oViewColumn As DataColumn In CURR_DT_OVERVIEW.Columns If oViewColumn.Caption = oGridDXFieldName Then oGridColumn_exists = True End If @@ -775,97 +804,6 @@ Public Class frmMain End Try End Function - 'Sub LoadProfile_PM() - ' Try - ' If Me.Visible = True And frmAdministration.Visible = False Then - ' Load_Profiles_for_User() - - ' PROFILE_COUNT = 0 - ' ClassInit.InitBasics() - ' Dim sql = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") - - ' sql = clsPatterns.ReplaceInternalValues(sql) - ' sql = clsPatterns.ReplaceUserValues(sql, USER_PRENAME, USER_SURNAME, USER_SHORTNAME,USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - - ' ' this needs to stay for backwards compatibility - ' sql = sql.Replace("@USER_ID", USER_ID) - ' sql = sql.Replace("@USERNAME", USER_USERNAME) '{#INT#USERNAME} - ' sql = sql.Replace("@MACHINE_NAME", Environment.MachineName) '{#INT#machineName} - ' sql = sql.Replace("@DATE", Now.ToShortDateString) - ' sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID) - - ' 'String.Format("SELECT '1' TL_STATE,T.PROFIL_ID,T1.TITLE, T.DocID, T.FILE_PATH, T.DMS_ERSTELLT_DATE,[dbo].[FNPM_LAST_WORKUSER_DOC] (T.PROFIL_ID,T.DocID) AS 'Last User',[dbo].[FNPM_LAST_EDITED_DOC] (T.PROFIL_ID,T.DocID) as 'Last edited' FROM TBPM_PROFILE_FILES T, VWPM_PROFILE_USER T1 " & - ' ' "WHERE T.PROFIL_ID = T1.PROFIL_ID " & - ' ' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", USER_USERNAME) - ' CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True) - - ' If Not IsNothing(CURR_DT_PROFILEGRID) Then - ' If CURR_DT_PROFILEGRID.Rows.Count = 0 Then - ' NO_WORKFLOWITEMS = True - ' Else - ' NO_WORKFLOWITEMS = False - ' End If - ' Create_Basic_View() - - ' Try - ' Try - ' GridView_Docs.Columns.Item("GROUP_TEXT").GroupIndex = 0 - ' GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False - ' GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False - ' Catch ex As Exception - - ' End Try - - ' For I = 0 To GridView_Docs.GroupCount - 1 - ' Dim v = GridView_Docs.GroupedColumns(I).ToString - ' Dim ii = Nothing - ' GridView_Docs.GroupedColumns(I).Tag = GridView_Docs.Columns.Item("PROFILE_ID") - ' Next - - ' 'GridView_Docs.OptionsBehavior.AutoExpandAllGroups = False - ' 'GridView_Docs.OptionsView.ShowGroupedColumns = False - ' Catch ex As Exception - ' LOGGER.Error(ex) - ' LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message) - ' End Try - - ' Dim Columns_Removed = GridView_CheckInvalidColumns() - ' RestoreLayout() - - ' If GridView_Docs.Columns.Count <= 2 Then - ' LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False) - ' Reset_GridLayout() - ' End If - - ' Else - ' GridControl_Docs.DataSource = Nothing - ' Try - ' GridView_Docs.Columns.Clear() - ' Catch ex As Exception - ' LOGGER.Error(ex) - - ' End Try - ' End If - ' End If - ' Catch ex As Exception - ' LOGGER.Error(ex) - ' LOGGER.Info("LoadProfile_PM - Fehler: " & ex.Message) - ' MsgBox("Fehler LoadProfile_PM - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") - ' End Try - - 'End Sub - Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click - Try - frmKonfig.ShowDialog() - Refresh_ConnectionString() - ' Load_Profil() - Check_Timer_Notification() - Catch ex As Exception - LOGGER.Error(ex) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden Grundeinstellungen:") - End Try - - End Sub Private Sub NotifyIcon1_MouseDoubleClick(sender As System.Object, e As MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick ShowMonitor() @@ -878,14 +816,25 @@ Public Class frmMain If TimerRefresh.Enabled = False Then Exit Sub End If + If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo() + 'If Not Application.OpenForms().OfType(Of frmValidator).Any Then + ' Dim oUpdate = "Not Defined" + ' Try + ' oUpdate = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = NULL, IN_WORK_WHEN = NULL where UPPER(WORK_USER) = UPPER('{USER_USERNAME}')" + ' ClassDatabase.Execute_non_Query(oUpdate) + ' Catch ex As Exception + ' LOGGER.Warn($"Unexpected Error in freefileforUser [{oUpdate}] - {ex.Message}") + ' End Try + + 'End If SaveGridLayout() Load_Profile_items() Decide_Load() If USER_LANGUAGE <> "de-DE" Then - tsslblLastSysnc.Text = "Last Client-Sync: " & Now.ToLongTimeString + bsilastsync.Caption = "Last Client-Sync: " & Now.ToLongTimeString Else - tsslblLastSysnc.Text = "Letzte Synchronisation: " & Now.ToLongTimeString + bsilastsync.Caption = "Letzte Synchronisation: " & Now.ToLongTimeString End If If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo() @@ -931,25 +880,10 @@ Public Class frmMain End Sub - Private Sub ToolStripButton2_Click_1(sender As Object, e As EventArgs) Handles tsbtnrefresh.Click - If GridControl_Docs.Visible = True And formopenClose = False Then - RefreshHelper.SaveViewInfo() - SaveGridLayout() - End If - - Load_Profile_items() - Decide_Load() - If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo() - End Sub - Private Sub ToolStripButton2_Click_2(sender As Object, e As EventArgs) frmAdminPasswort.ShowDialog() End Sub - Private Sub ToolStripButton2_Click_3(sender As Object, e As EventArgs) Handles ToolStripButton2.Click - frmAbout.ShowDialog() - End Sub - Public Sub New() Dim splash As New frmSplash() Try @@ -989,46 +923,65 @@ Public Class frmMain End Sub - Sub Load_Profil_from_Grid(ID As Integer) + Sub Load_Profil_from_Grid(pProfilID As Integer) Try 'Me.Visible = False - CURRENT_ProfilGUID = ID - CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING) + CURRENT_ProfilGUID = pProfilID + ' CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING) CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID)) + CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME") CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID)) CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID)) My.Settings.Save() - + Dim omsg = "Es ist bereits ein Workflow geöffnet!" + Dim omsgTitle = "Achtung:" + If USER_LANGUAGE <> "de-DE" Then + omsg = "There is already a workflow active!" + omsgTitle = "Attention:" + End If If TimerRefresh.Enabled Then TimerRefresh.Stop() End If - Dim th As System.Threading.Thread + ' Dim th As System.Threading.Thread If Not Application.OpenForms().OfType(Of frmValidator).Any Then - th = New Threading.Thread(AddressOf Task_A) - th.SetApartmentState(ApartmentState.STA) - th.Start() + frmValidator.Show() + + Decide_Load() + TimerRefresh.Enabled = True + TimerRefresh.Start() + Dim iterateIndex As Integer = 0 + Dim oNewDataTable As DataTable = CURR_DT_OVERVIEW.Copy + For Each row As DataRow In oNewDataTable.Rows + If row("GUID") = CURRENT_DOC_GUID Then + CURR_DT_OVERVIEW.Rows.RemoveAt(iterateIndex) + Exit For + Else + iterateIndex += 1 + End If + Next + ' th = New Threading.Thread(AddressOf Task_A) + ' th.SetApartmentState(ApartmentState.STA) + ' th.Start() Else LOGGER.Debug("Validator is already open...") - Exit Sub + MsgBox(omsg, MsgBoxStyle.Exclamation, omsgTitle) + End If - ' frmValidator.ShowDialog() - Do While th.IsAlive - Loop - LOGGER.Debug("th has ended!") + Catch ex As Exception LOGGER.Error(ex) MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ") End Try - ' Me.Visible = True - Decide_Load() + 'Me.Visible = True + 'Decide_Load() End Sub - Public Sub Task_A() - Dim frmA = New frmValidator() ' Must be created on this thread! - Application.Run(frmA) - End Sub + 'Public Sub Task_A() + ' Dim frmA = New frmValidator() ' Must be created on this thread! + ' Application.Run(frmA) + 'End Sub Private Sub ContextMenuGrid_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuGrid.Opening CMFileStart.Enabled = False CMGroupStart.Enabled = False @@ -1061,23 +1014,44 @@ Public Class frmMain End Sub Private Sub Item_Scope(startedFrom As String) Try + Dim OItemScopeInfo = "No Item so far" 'GridView_Docs.EndSelection() CURRENT_JUMP_DOC_GUID = 0 Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation) Dim groupRowText - Dim PROFIL_ID + Dim oHitProfilID If hitInfo.InGroupRow Then GridViewItem_Clicked = "GROUP" + LOGGER.Debug($"Item_Scope: InGroupRow") + OItemScopeInfo = "InGroupRow" groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle) - PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID")) + OItemScopeInfo = $"groupRowText {groupRowText}" + LOGGER.Debug($"Item_Scope: groupRowText {groupRowText}") + oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID")) + ElseIf hitInfo.InDataRow Then GridViewItem_Clicked = "ROW" + OItemScopeInfo = "InDataRow" + LOGGER.Debug($"Item_Scope: InDataRow") If GRID_LOAD_TYPE = "OVERVIEW" Then + OItemScopeInfo = $"GRID_LOAD_TYPE = OVERVIEW" + LOGGER.Debug($"Item_Scope: GRID_LOAD_TYPE = OVERVIEW") groupRowText = GridView_Docs.GetGroupRowDisplayText(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)) - PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID")) + OItemScopeInfo = $"OVERVIEWgroupRowText {groupRowText}" + LOGGER.Debug($"Item_Scope: OVERVIEWgroupRowText {groupRowText}") + oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID")) Else - PROFIL_ID = CURRENT_CLICKED_PROFILE_ID + OItemScopeInfo = $"NOT GRID_LOAD_TYPE = OVERVIEW" + LOGGER.Debug($"Item_Scope: NOT GRID_LOAD_TYPE = OVERVIEW") + If IsNothing(CURRENT_CLICKED_PROFILE_ID) = False Then + LOGGER.Debug($"Item_Scope: CURRENT_CLICKED_PROFILE_ID [{CURRENT_CLICKED_PROFILE_ID}]") + oHitProfilID = CURRENT_CLICKED_PROFILE_ID + Else + LOGGER.Warn("In ItemScope: CURRENT_CLICKED_PROFILE_ID is nothing!!!") + Exit Sub + End If + End If Else @@ -1099,28 +1073,37 @@ Public Class frmMain End If - If Not IsNothing(PROFIL_ID) And IsNumeric(PROFIL_ID) Then - + If Not IsNothing(oHitProfilID) And IsNumeric(oHitProfilID) Then + LOGGER.Debug($"Item_Scope: Not IsNothing(PROFIL_ID) And IsNumeric(PROFIL_ID)") Dim expression As String - expression = "PROFILE_ID = " & PROFIL_ID + expression = "PROFILE_ID = " & oHitProfilID If hitInfo.InGroupRow Or (startedFrom = "CMGROUP" And hitInfo.InDataRow) Then CURRENT_JUMP_DOC_GUID = 0 CURRENT_DOC_GUID = 0 - CURRENT_ProfilGUID = PROFIL_ID + CURRENT_ProfilGUID = oHitProfilID - Load_Profil_from_Grid(PROFIL_ID) + Load_Profil_from_Grid(oHitProfilID) ElseIf hitInfo.InDataRow Then - Dim DOC_GUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID")) - Dim DocID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DocID")) - If IsNothing(DocID) Then Exit Sub + LOGGER.Debug($"Item_Scope: hitInfo.InDataRow...") + Dim oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID")) + Dim oFocusedDocID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DocID")) + If IsNothing(oFocusedDocID) Then + LOGGER.Warn("In hitInfo.InDataRow: DocID is nothing!!!") + Exit Sub + End If + LOGGER.Debug($"Item_Scope: GotDocID {oFocusedDocID} and DocGUID {oFocusedDocGUID}") Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("FULL_FILE_PATH")) + If IsNothing(DOC_PATH) Then + LOGGER.Warn("In hitInfo.InDataRow: DOC_PATH is nothing!!!") + Exit Sub + End If DOC_PATH = DOC_PATH.Replace("W:", "\\windream\objects") DOC_PATH = DOC_PATH.Replace("K:", "\\windream\objects") 'Checking if table really contains one record with profile-id and docid - expression = expression & " AND DocID = " & DocID - Dim TEMP_TABLE = CURR_DT_PROFILEGRID + expression = expression & " AND DocID = " & oFocusedDocID + Dim TEMP_TABLE = CURR_DT_OVERVIEW Dim foundRows() As DataRow foundRows = TEMP_TABLE.Select(expression) Dim result = 0 @@ -1128,11 +1111,28 @@ Public Class frmMain result += 1 Next If result = 1 Then - CURRENT_DOC_ID = DocID - CURRENT_JUMP_DOC_GUID = DOC_GUID + CURRENT_DOC_ID = oFocusedDocID + CURRENT_JUMP_DOC_GUID = oFocusedDocGUID CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID CURRENT_DOC_PATH = DOC_PATH - Load_Profil_from_Grid(PROFIL_ID) + Dim oSQL = $"SELECT [dbo].[FNPM_CHECK_DocGUID_Valid] ({CURRENT_DOC_GUID})" + Dim oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) + Try + If CBool(oResult) = True Then + Load_Profil_from_Grid(oHitProfilID) + Else + Dim omsg As String = "Achtung: der gewählte Beleg ist durch einen anderen Benutzer bereits in Bearbeitung oder anderweitig gesperrt" + Dim otitle = "Achtung:" + If USER_LANGUAGE <> "de-DE" Then + omsg = "Attention: the chosen item is in work from another user or locked!" + otitle = "Attention:" + End If + MsgBox(omsg, MsgBoxStyle.Exclamation, otitle) + End If + Catch ex As Exception + LOGGER.Warn($"Uenxpected error in Checking freefile - sql so far: {oSQL} - ") + End Try + Else Exit Sub End If @@ -1144,7 +1144,8 @@ Public Class frmMain End If Catch ex As Exception LOGGER.Error(ex) - MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical) + allgFunk.Insert_LogEntry($"{ex.Message} - Stack: [{ex.StackTrace}]") + MsgBox("Unexpected error in Item_Scope: " & ex.Message & vbNewLine & "Choose file again!", MsgBoxStyle.Information) End Try End Sub Private Function Init_IDB() @@ -1155,7 +1156,7 @@ Public Class frmMain Catch ex As Exception LOGGER.Error(ex) MsgBox("Error Init_IDB:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - LOGGER.Info(">> Unexpected error in Init_IDB: " & ex.Message, True) + LOGGER.Info("Unexpected error in Init_IDB: " & ex.Message, True) Return False End Try End Function @@ -1173,7 +1174,7 @@ Public Class frmMain Catch ex As Exception LOGGER.Error(ex) MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - LOGGER.Info(">> Unexpected error in Init_windream: " & ex.Message, True) + LOGGER.Info("Unexpected error in Init_windream: " & ex.Message, True) Return False End Try End Function @@ -1229,12 +1230,12 @@ Public Class frmMain For Each oRowHandle As Integer In oSelectedRows - Dim DocID = GridView_Docs.GetRowCellValue(oRowHandle, "DocID") - If IsNothing(DocID) Then + Dim oDocID = GridView_Docs.GetRowCellValue(oRowHandle, "DocID") + If IsNothing(oDocID) Then Continue For End If Dim R As DataRow = NewDatatable.NewRow - CURRENT_DOC_ID = DocID + CURRENT_DOC_ID = oDocID Dim DOC_PATH = GridView_Docs.GetRowCellValue(oRowHandle, "FULL_FILE_PATH") CURRENT_DOC_PATH = DOC_PATH CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(oRowHandle, "GUID") @@ -1283,17 +1284,20 @@ Public Class frmMain Layout_Single_Profile() GRID_LOAD_TYPE = "OVERVIEW" CURRENT_CLICKED_PROFILE_ID = 0 - ToolStripLabelViewTape.Text = "Gesamtübersicht" - + If USER_LANGUAGE = "de-DE" Then + ToolStripLabelViewTape.Text = "Gesamtübersicht" + Else + ToolStripLabelViewTape.Text = "Overview" + End If Try Dim sel = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID ={0}", USER_ID) - CURRENT_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(sel, True) - tslblmessage.Text = "" + CURRENT_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(sel) + bsiMessage.Caption = "" If CURRENT_DT_VW_PROFILE_USER.Rows.Count = 0 Then - LOGGER.Info(" >> no profiles for user: '" & USER_USERNAME & "' configured!", False) + LOGGER.Info("no profiles for user: '" & USER_USERNAME & "' configured!", False) NO_WORKFLOWITEMS = True - tslblmessage.Text = "Keine Profile für Ihren User hinterlegt" + bsiMessage.Caption = "Keine Profile für Ihren User hinterlegt" Exit Sub End If @@ -1304,7 +1308,7 @@ Public Class frmMain If IsDBNull(oSQLOverview) Then - tslblmessage.Text = "No GROUP-CONFIG (SQL_PROFILE_MAIN_VIEW) in Baseconfig" + bsiMessage.Caption = "No GROUP-CONFIG (SQL_PROFILE_MAIN_VIEW) in Baseconfig" Exit Sub End If @@ -1320,19 +1324,22 @@ Public Class frmMain 'String.Format("SELECT '1' TL_STATE,T.PROFIL_ID,T1.TITLE, T.DocID, T.FILE_PATH, T.DMS_ERSTELLT_DATE,[dbo].[FNPM_LAST_WORKUSER_DOC] (T.PROFIL_ID,T.DocID) AS 'Last User',[dbo].[FNPM_LAST_EDITED_DOC] (T.PROFIL_ID,T.DocID) as 'Last edited' FROM TBPM_PROFILE_FILES T, VWPM_PROFILE_USER T1 " & ' "WHERE T.PROFIL_ID = T1.PROFIL_ID " & ' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", USER_USERNAME) - CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(oSQLOverview, True) + CURR_DT_OVERVIEW = ClassDatabase.Return_Datatable(oSQLOverview) + + Dim DTGRID_GROUPS As DataTable Try - DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1", True) + DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1") Catch ex As Exception LOGGER.Error(ex) LOGGER.Info(ex.Message) End Try - If Not IsNothing(CURR_DT_PROFILEGRID) Then + If Not IsNothing(CURR_DT_OVERVIEW) Then + LOGGER.Debug($"Datatable CURR_DT_OVERVIEW loaded: {CURR_DT_OVERVIEW.Rows.Count} rows") NO_WORKFLOWITEMS = False - If CURR_DT_PROFILEGRID.Rows.Count = 0 Then + If CURR_DT_OVERVIEW.Rows.Count = 0 Then ToolStripLabelViewTape.Text = "Aktuell keine Workflowdaten vorhanden!" NO_WORKFLOWITEMS = True @@ -1362,13 +1369,13 @@ Public Class frmMain columnStateIcon.DataType = GetType(Image) columnStateIcon.ColumnName = "ICON" columnStateIcon.Caption = "" - CURR_DT_PROFILEGRID.Columns.Add(columnStateIcon) + CURR_DT_OVERVIEW.Columns.Add(columnStateIcon) RedDocuments = 0 YellowDocuments = 0 GreenDocuments = 0 - For Each row As DataRow In CURR_DT_PROFILEGRID.Rows + For Each row As DataRow In CURR_DT_OVERVIEW.Rows Dim State As Integer = row.Item("TL_STATE") Select Case State Case 1 @@ -1382,10 +1389,14 @@ Public Class frmMain row.Item("ICON") = My.Resources.ampel_gruen End Select Next - bindsourcegrid.DataSource = CURR_DT_PROFILEGRID + bindsourcegrid.DataSource = CURR_DT_OVERVIEW GridControl_Docs.DataSource = bindsourcegrid + If USER_LANGUAGE = "de-DE" Then + ToolStripLabelViewTape.Text = "Gesamtübersicht" + Else + ToolStripLabelViewTape.Text = "Overview" + End If - ToolStripLabelViewTape.Text = "Gesamtübersicht" 'GridControlDocRow.ForceInitialize() ' GridControl1.DataSource = CURR_DT_PROFILEGRID @@ -1398,6 +1409,7 @@ Public Class frmMain Try + LOGGER.Debug("Now Working on Groups..") 'GridView_Docs.OptionsBehavior.AutoExpandAllGroups = False 'GridView_Docs.OptionsView.ShowGroupedColumns = False GridView_Docs.OptionsView.ShowGroupPanel = False @@ -1414,18 +1426,14 @@ Public Class frmMain GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False Catch ex As Exception - End Try - - For index = 0 To GridView_Docs.GroupCount - 1 Dim v = GridView_Docs.GroupedColumns(index).ToString LOGGER.Debug($"Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...") Dim sd = GridView_Docs.GroupedColumns(index).GetTextCaption GridView_Docs.GroupedColumns(index).Tag = GridView_Docs.Columns.Item("PROFILE_ID") - Next - + LOGGER.Debug("finished Grouping!") GridView_Docs.Columns.Item("PROFILE_ID").Visible = False GridView_Docs.Columns.Item("GUID").Visible = False GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False @@ -1435,24 +1443,25 @@ Public Class frmMain GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left - GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime - GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + Try + GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + Catch ex As Exception + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + End Try + + LOGGER.Debug("finished Formatting Grid!") Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message) End Try - - SaveGridLayout() If GridView_Docs.Columns.Count <= 2 Then LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False) Reset_GridLayout() End If - - - Else - NO_WORKFLOWITEMS = True GridControl_Docs.Visible = False BindingNavigator1.Visible = False @@ -1463,15 +1472,12 @@ Public Class frmMain GridView_Docs.Columns.Clear() Catch ex As Exception LOGGER.Error(ex) - End Try End If Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Load_Grid_Overview - Fehler: " & ex.Message) - MsgBox("Fehler Load_Grid_Overview - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") End Try - End Sub Private Sub tsmiValidationProfil_Click(sender As Object, e As EventArgs) Handles tsmiValidationProfil.Click @@ -1629,13 +1635,13 @@ Public Class frmMain Sub Handling_DEBUG_USER() If USER_DEBUG_LOG = True Then If USER_LANGUAGE = "de-DE" Then - tsslblDEBUG_LOG.Text = "ACHTUNG: UserDebugMode ist eingeschaltet!" + bsiDebug.Caption = "ACHTUNG: UserDebugMode ist eingeschaltet!" Else - tsslblDEBUG_LOG.Text = "ATTENTION: UserDebugMode activated!" + bsiDebug.Caption = "ATTENTION: UserDebugMode activated!" End If - tsslblDEBUG_LOG.Visible = True + bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Always Else - tsslblDEBUG_LOG.Visible = False + bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End If End Sub Private Sub Timer5Mins_Tick(sender As Object, e As EventArgs) Handles Timer5Mins.Tick @@ -1644,44 +1650,50 @@ Public Class frmMain ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE) If USER_LANGUAGE = "de-DE" Then - tslblUserLoggedin.Text = "License Count: " & USERCOUNT_LOGGED_IN + bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN Else - tslblUserLoggedin.Text = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN + bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN End If + If USER_DEBUG_LOG = True Then + ' 'Jetzt de rinsert der Inhalte + If Not IsNothing(LOGCONFIG.Logs) Then + If LOGCONFIG.Logs.Count > 0 Then + ' Dim odel = $"delete from TBPM_LOG_DEBUG where userid = {USER_ID}" + ' ClassDatabase.Execute_non_Query(odel) + Dim thread As New Thread(AddressOf DebuglogBackgroundthread) + thread.Start() - 'If USER_DEBUG_LOG = True Then - ' 'Jetzt de rinsert der Inhalte - ' If Not IsNothing(LOGCONFIG.Logs) Then - ' If LOGCONFIG.Logs.Count > 0 Then - ' Dim odel = $"delete from TBPM_LOG_DEBUG where userid = {USER_ID}" - ' ClassDatabase.Execute_non_Query(odel) - - ' Dim thread As New Thread(AddressOf DebuglogBackgroundthread) - ' thread.Start() + End If - ' End If + End If + End If - ' End If - 'End If + End Sub + Sub DebuglogBackgroundthread() + Dim oSQL As String = "None" + Try + For Each oSLogstring As String In LOGCONFIG.Logs + Dim oLogSplit As String() + oLogSplit = oSLogstring.Split("|") + 'Console.WriteLine(oLogSplit(2)) + Dim omsg = oLogSplit(2).Replace("'", "''") + omsg = omsg.Replace("\\n", "") + omsg = omsg.Replace(Chr(10), "") + omsg = omsg.Replace(Chr(13), "") + Dim odatetime As Date = CDate(oLogSplit(0)) + oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID] , [LOGMSG], [ADDED_WHEN]) VALUES({USER_ID},'{omsg}','{odatetime}')" + ClassDatabase.Execute_non_Query(oSQL) + Next + LOGCONFIG.ClearLogs() + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Warn($"oSQL so far [{oSQL}]") + End Try End Sub - 'Sub DebuglogBackgroundthread() - ' For Each oSLogstring As String In LOGCONFIG.Logs - ' Dim oLogSplit As String() - ' oLogSplit = oSLogstring.Split("|") - ' 'Console.WriteLine(oLogSplit(2)) - ' Dim omsg = oLogSplit(2).Replace("'", "''") - ' omsg = omsg.Replace("\\n", "") - ' omsg = omsg.Replace(Chr(10), "") - ' omsg = omsg.Replace(Chr(13), "") - ' Dim odatetime As Date = CDate(oLogSplit(0)) - ' Dim oSQL As String = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID] , [LOGMSG], [ADDED_WHEN]) VALUES({USER_ID},'{omsg}','{odatetime}')" - ' ClassDatabase.Execute_non_Query(oSQL) - ' Next - 'End Sub - Private Sub tsslblDEBUG_LOG_MouseHover(sender As Object, e As EventArgs) Handles tsslblDEBUG_LOG.MouseHover + Private Sub tsslblDEBUG_LOG_MouseHover(sender As Object, e As EventArgs) MsgBox("UserDebugMode is activated remotely. Debugdata will be transferred to database and will be deleted after 10 days!!", MsgBoxStyle.Information) End Sub @@ -1690,19 +1702,6 @@ Public Class frmMain End Sub - Private Sub ProfileUndBasisToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProfileUndBasisToolStripMenuItem.Click - Dim AdminSecurity As Boolean = False - AdminSecurity = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminSecurity() - If AdminSecurity = True Then - frmLoginAdmin.ShowDialog() - Else - frmAdministration.ShowDialog() - End If - Decide_Load() - End Sub - Private Sub KonfigurationenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KonfigurationenToolStripMenuItem.Click - frmAdmin2.ShowDialog() - End Sub Private Sub LöscheAlleFilterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöscheAlleFilterToolStripMenuItem.Click Try @@ -1751,8 +1750,52 @@ Public Class frmMain End If My.Settings.Save() End Sub + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniGrundeinstellung.ItemClick + Try + frmKonfig.ShowDialog() + Refresh_ConnectionString() + ' Load_Profil() + Check_Timer_Notification() + Catch ex As Exception + LOGGER.Error(ex) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden Grundeinstellungen:") + End Try + End Sub + + Private Sub bbtnitemInfo_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitemInfo.ItemClick + frmAbout.ShowDialog() + End Sub + + Private Sub bbtniRefresh_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefresh.ItemClick + If GridControl_Docs.Visible = True And formopenClose = False Then + RefreshHelper.SaveViewInfo() + SaveGridLayout() + End If + + Load_Profile_items() + Decide_Load() + If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo() + End Sub + + Private Sub bbtniMonitor_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniMonitor.ItemClick + If Not Application.OpenForms().OfType(Of frmMonitor).Any Then + frmMonitor.Show() + End If + + End Sub + + Private Sub bbiProfilverwaltung_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbiProfilverwaltung.ItemClick + Dim AdminSecurity As Boolean = False + AdminSecurity = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminSecurity() + If AdminSecurity = True Then + frmLoginAdmin.ShowDialog() + Else + frmAdministration.ShowDialog() + End If + Decide_Load() + End Sub - Private Sub tsbtnMonitoring_Click(sender As Object, e As EventArgs) Handles tsbtnMonitoring.Click - frmMonitor.ShowDialog() + Private Sub bbiKonfiguration_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbiKonfiguration.ItemClick + frmAdmin2.ShowDialog() End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMonitor.Designer.vb b/app/DD_PM_WINDREAM/frmMonitor.Designer.vb index 1c63f64..027c5ac 100644 --- a/app/DD_PM_WINDREAM/frmMonitor.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMonitor.Designer.vb @@ -27,6 +27,9 @@ Partial Class frmMonitor Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.BarStaticItemInfoDoc = New DevExpress.XtraBars.BarStaticItem() + Me.BarStaticItemInfo = New DevExpress.XtraBars.BarStaticItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() @@ -43,7 +46,8 @@ Partial Class frmMonitor Me.GridControl4 = New DevExpress.XtraGrid.GridControl() Me.GridView4 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.XtraSaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() - Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.SplitContainerControlMain = New DevExpress.XtraEditors.SplitContainerControl() + Me.DocumentViewerMonitor = New DigitalData.Controls.DocumentViewer.DocumentViewer() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerControl1.SuspendLayout() @@ -59,15 +63,17 @@ Partial Class frmMonitor CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControlMain, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControlMain.SuspendLayout() Me.SuspendLayout() ' 'RibbonControl1 ' Me.RibbonControl1.AutoHideEmptyItems = True Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarStaticItemInfoDoc, Me.BarStaticItemInfo}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 5 + Me.RibbonControl1.MaxItemId = 7 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Size = New System.Drawing.Size(1202, 158) @@ -96,6 +102,31 @@ Partial Class frmMonitor Me.BarButtonItem3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImage"), System.Drawing.Image) Me.BarButtonItem3.Name = "BarButtonItem3" ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "Layouts zurücksetzen" + Me.BarButtonItem4.Id = 4 + Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem4.Name = "BarButtonItem4" + ' + 'BarStaticItemInfoDoc + ' + Me.BarStaticItemInfoDoc.Caption = "No Row Selected" + Me.BarStaticItemInfoDoc.Id = 5 + Me.BarStaticItemInfoDoc.Name = "BarStaticItemInfoDoc" + ' + 'BarStaticItemInfo + ' + Me.BarStaticItemInfo.Caption = "BarStaticItemInfo" + Me.BarStaticItemInfo.Id = 6 + Me.BarStaticItemInfo.ItemAppearance.Normal.BackColor = System.Drawing.Color.OrangeRed + Me.BarStaticItemInfo.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Black + Me.BarStaticItemInfo.ItemAppearance.Normal.Options.UseBackColor = True + Me.BarStaticItemInfo.ItemAppearance.Normal.Options.UseForeColor = True + Me.BarStaticItemInfo.Name = "BarStaticItemInfo" + Me.BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) @@ -112,6 +143,8 @@ Partial Class frmMonitor ' 'RibbonStatusBar1 ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemInfoDoc) + Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemInfo) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 673) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 @@ -125,13 +158,13 @@ Partial Class frmMonitor 'SplitContainerControl1 ' Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158) + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0) Me.SplitContainerControl1.Name = "SplitContainerControl1" Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControl1) Me.SplitContainerControl1.Panel1.Text = "Panel1" Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2) Me.SplitContainerControl1.Panel2.Text = "Panel2" - Me.SplitContainerControl1.Size = New System.Drawing.Size(1202, 515) + Me.SplitContainerControl1.Size = New System.Drawing.Size(866, 515) Me.SplitContainerControl1.SplitterPosition = 510 Me.SplitContainerControl1.TabIndex = 2 ' @@ -154,6 +187,9 @@ Partial Class frmMonitor Me.GridView1.Name = "GridView1" Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView1.OptionsBehavior.Editable = False + Me.GridView1.OptionsBehavior.ReadOnly = True + Me.GridView1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridView1.OptionsView.EnableAppearanceEvenRow = True Me.GridView1.OptionsView.ShowAutoFilterRow = True Me.GridView1.OptionsView.ShowViewCaption = True @@ -170,7 +206,7 @@ Partial Class frmMonitor Me.SplitContainerControl2.Panel1.Text = "Panel1" Me.SplitContainerControl2.Panel2.Controls.Add(Me.SplitContainerControl3) Me.SplitContainerControl2.Panel2.Text = "Panel2" - Me.SplitContainerControl2.Size = New System.Drawing.Size(682, 515) + Me.SplitContainerControl2.Size = New System.Drawing.Size(346, 515) Me.SplitContainerControl2.SplitterPosition = 270 Me.SplitContainerControl2.TabIndex = 0 ' @@ -181,7 +217,7 @@ Partial Class frmMonitor Me.GridControl2.MainView = Me.GridView2 Me.GridControl2.MenuManager = Me.RibbonControl1 Me.GridControl2.Name = "GridControl2" - Me.GridControl2.Size = New System.Drawing.Size(682, 270) + Me.GridControl2.Size = New System.Drawing.Size(346, 270) Me.GridControl2.TabIndex = 1 Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) ' @@ -193,6 +229,9 @@ Partial Class frmMonitor Me.GridView2.Name = "GridView2" Me.GridView2.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView2.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView2.OptionsBehavior.Editable = False + Me.GridView2.OptionsBehavior.ReadOnly = True + Me.GridView2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridView2.OptionsView.EnableAppearanceEvenRow = True Me.GridView2.OptionsView.ShowAutoFilterRow = True Me.GridView2.OptionsView.ShowViewCaption = True @@ -208,7 +247,7 @@ Partial Class frmMonitor Me.SplitContainerControl3.Panel1.Text = "Panel1" Me.SplitContainerControl3.Panel2.Controls.Add(Me.GridControl4) Me.SplitContainerControl3.Panel2.Text = "Panel2" - Me.SplitContainerControl3.Size = New System.Drawing.Size(682, 235) + Me.SplitContainerControl3.Size = New System.Drawing.Size(346, 235) Me.SplitContainerControl3.SplitterPosition = 400 Me.SplitContainerControl3.TabIndex = 0 ' @@ -219,7 +258,7 @@ Partial Class frmMonitor Me.GridControl3.MainView = Me.GridView3 Me.GridControl3.MenuManager = Me.RibbonControl1 Me.GridControl3.Name = "GridControl3" - Me.GridControl3.Size = New System.Drawing.Size(400, 235) + Me.GridControl3.Size = New System.Drawing.Size(336, 235) Me.GridControl3.TabIndex = 2 Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) ' @@ -231,6 +270,9 @@ Partial Class frmMonitor Me.GridView3.Name = "GridView3" Me.GridView3.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView3.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView3.OptionsBehavior.Editable = False + Me.GridView3.OptionsBehavior.ReadOnly = True + Me.GridView3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridView3.OptionsView.EnableAppearanceEvenRow = True Me.GridView3.OptionsView.ShowAutoFilterRow = True Me.GridView3.OptionsView.ShowViewCaption = True @@ -243,7 +285,7 @@ Partial Class frmMonitor Me.GridControl4.MainView = Me.GridView4 Me.GridControl4.MenuManager = Me.RibbonControl1 Me.GridControl4.Name = "GridControl4" - Me.GridControl4.Size = New System.Drawing.Size(272, 235) + Me.GridControl4.Size = New System.Drawing.Size(0, 0) Me.GridControl4.TabIndex = 3 Me.GridControl4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView4}) ' @@ -264,20 +306,34 @@ Partial Class frmMonitor ' Me.XtraSaveFileDialog1.Filter = """xlsx-Dateien|*.xlsx""" ' - 'BarButtonItem4 + 'SplitContainerControlMain ' - Me.BarButtonItem4.Caption = "Layouts zurücksetzen" - Me.BarButtonItem4.Id = 4 - Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image) - Me.BarButtonItem4.Name = "BarButtonItem4" + Me.SplitContainerControlMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1 + Me.SplitContainerControlMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControlMain.Location = New System.Drawing.Point(0, 158) + Me.SplitContainerControlMain.Name = "SplitContainerControlMain" + Me.SplitContainerControlMain.Panel1.Controls.Add(Me.DocumentViewerMonitor) + Me.SplitContainerControlMain.Panel1.Text = "Panel1" + Me.SplitContainerControlMain.Panel2.Controls.Add(Me.SplitContainerControl1) + Me.SplitContainerControlMain.Panel2.Text = "Panel2" + Me.SplitContainerControlMain.Size = New System.Drawing.Size(1202, 515) + Me.SplitContainerControlMain.SplitterPosition = 326 + Me.SplitContainerControlMain.TabIndex = 5 + ' + 'DocumentViewerMonitor + ' + Me.DocumentViewerMonitor.Dock = System.Windows.Forms.DockStyle.Fill + Me.DocumentViewerMonitor.Location = New System.Drawing.Point(0, 0) + Me.DocumentViewerMonitor.Name = "DocumentViewerMonitor" + Me.DocumentViewerMonitor.Size = New System.Drawing.Size(326, 515) + Me.DocumentViewerMonitor.TabIndex = 0 ' 'frmMonitor ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1202, 697) - Me.Controls.Add(Me.SplitContainerControl1) + Me.Controls.Add(Me.SplitContainerControlMain) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) Me.Name = "frmMonitor" @@ -299,6 +355,8 @@ Partial Class frmMonitor CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControlMain, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControlMain.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() @@ -325,4 +383,8 @@ Partial Class frmMonitor Friend WithEvents XtraSaveFileDialog1 As SaveFileDialog Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents SplitContainerControlMain As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents BarStaticItemInfoDoc As DevExpress.XtraBars.BarStaticItem + Friend WithEvents BarStaticItemInfo As DevExpress.XtraBars.BarStaticItem + Friend WithEvents DocumentViewerMonitor As DigitalData.Controls.DocumentViewer.DocumentViewer End Class diff --git a/app/DD_PM_WINDREAM/frmMonitor.resx b/app/DD_PM_WINDREAM/frmMonitor.resx index 5cece43..3b5db8d 100644 --- a/app/DD_PM_WINDREAM/frmMonitor.resx +++ b/app/DD_PM_WINDREAM/frmMonitor.resx @@ -170,25 +170,23 @@ - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJXRFWHRUaXRsZQBDbGVhcjtF - cmFzZTtSZW1vdmU7QmFycztSaWJib247h4CDcwAAAIxJREFUOE+lkNsNgCAQBO3JFvylCjuxKkuxm5Ml - d3jAggY/Jr52JsFFRH5BX1775gkRUXBfbIsHAyPFyzRSiAYGOqxlI0caGeiAiZ6A7aycwH5aBixAhx3a - I5BRj+cnhuNcI4KrfmCCJ8nAApCNt0iWAQuMIo1cH2EUKWTgA92IjUZYgEbqMYO+/I4sN6ixgsCcjQTu - AAAAAElFTkSuQmCC + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAENsZWFyO0VyYXNlO1JlbW92ZTtC + YXJzO1JpYmJvbjuHgINzAAAAjElEQVQ4T6WQ2w2AIBAE7ckW/KUKO7EqS7GbkyV3eMCCBj8mvnYmwUVE + fkFfXvvmCRFRcF9siwcDI8XLNFKIBgY6rGUjRxoZ6ICJnoDtrJzAfloGLECHHdojkFGP5yeG41wjgqt+ + YIInycACkI23SJYBC4wijVwfYRQpZOAD3YiNRliARuoxg778jiw3qLGCwJyNBO4AAAAASUVORK5CYII= - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJXRFWHRUaXRsZQBDbGVhcjtF - cmFzZTtSZW1vdmU7QmFycztSaWJib247h4CDcwAAATVJREFUWEfFkdFtwzAMRLNTV+ivp+gmnaqjZBtV - Z+gEkj7ZkiU4Hw+xCfLeIX6llD6KHD6JHFreP98jbJlUwLPMtMihBSGdWHl3CTm0IKADJSd7iQjznUyh - jgNncnIowXwnU8TDQI+cuBLMdzKFPQqMyEktwXwnU/AgcEdO9hLMdzIFlgMzcrIx/yCM5OXV8h3mH4SR - vLxcDph/EEby8nJ5ZugTLJdnar6TRcqyCrnLLgd0OKGlLKuQu1Q5oMdJLeVoFVIO3IulHK7AyYH1uJft - 9+8rk/BbDlXgCAc5sE4lJ7MlpBy0Clj5bImmHIwUAKMlTuWgVSB+AktviUs5aBWYLdElB2cF7pboloOr - AqMlhuSgp8BlCRsyQ33IoYpmCd7NUh9yaAtVYv0/8Cnk8Enk8DnS6x9vj+lSV2uHuAAAAABJRU5ErkJg - gg== + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAENsZWFyO0VyYXNlO1JlbW92ZTtC + YXJzO1JpYmJvbjuHgINzAAABNUlEQVRYR8WR0W3DMAxEs1NX6K+n6CadqqNkG1Vn6ASSPtmSJTgfD7EJ + 8t4hfqWUPoocPokcWt4/3yNsmVTAs8y0yKEFIZ1YeXcJObQgoAMlJ3uJCPOdTKGOA2dycijBfCdTxMNA + j5y4Esx3MoU9CozISS3BfCdT8CBwR072Esx3MgWWAzNysjH/IIzk5dXyHeYfhJG8vFwOmH8QRvLycnlm + 6BMsl2dqvpNFyrIKucsuB3Q4oaUsq5C7VDmgx0kt5WgVUg7ci6UcrsDJgfW4l+337yuT8FsOVeAIBzmw + TiUnsyWkHLQKWPlsiaYcjBQAoyVO5aBVIH4CS2+JSzloFZgt0SUHZwXuluiWg6sCoyWG5KCnwGUJGzJD + fcihimYJ3s1SH3JoC1Vi/T/wKeTwSeTwOdLrH2+P6VJXa4e4AAAAAElFTkSuQmCC diff --git a/app/DD_PM_WINDREAM/frmMonitor.vb b/app/DD_PM_WINDREAM/frmMonitor.vb index 0b805e8..f347768 100644 --- a/app/DD_PM_WINDREAM/frmMonitor.vb +++ b/app/DD_PM_WINDREAM/frmMonitor.vb @@ -14,7 +14,7 @@ Public Class frmMonitor Dim GRID4_TITLE As String Dim GRID4_SQL As String Private _ActiveGrid As GridControl = Nothing - Private _frmDocView As frmDocView 'You need a reference to Form1 + ' Private _frmDocView As frmDocView 'You need a reference to Form1 Dim FormShown As Boolean = False Private Sub GridView1_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged If FormShown = False Then Exit Sub @@ -32,58 +32,96 @@ Public Class frmMonitor oDocPath = GridView1.GetFocusedRowCellValue(GridView1.Columns("FULL_FILE_PATH")) Catch ex As Exception LOGGER.Warn($"Error getting DocPath in Monitor: {ex.Message}") + oDocPath = String.Empty End Try + BarStaticItemInfoDoc.Caption = $"DocID: {oDocID} - Docpath: {oDocPath}" Dim oDetailSQL = GRID2_SQL oDetailSQL = oDetailSQL.Replace("@DocID", oDocID) - oDetailSQL = oDetailSQL.ToLower.Replace("@idbobjid", oDocID) + oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID) oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID) oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME) Dim oDT2 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL) If Not IsNothing(oDT2) Then + LOGGER.Debug($"Found {oDT2.Rows.Count} rows for GridView2") GridView2.Columns.Clear() GridControl2.DataSource = oDT2 + Try + GridView2.Columns("Wann").DisplayFormat.FormatType = FormatType.DateTime + GridView2.Columns("Wann").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + Catch ex As Exception + GridView2.Columns("When").DisplayFormat.FormatType = FormatType.DateTime + GridView2.Columns("When").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + End Try + End If If DT_MONITOR_KONFIG.Rows.Count > 2 Then oDetailSQL = GRID3_SQL oDetailSQL = oDetailSQL.Replace("@DocID", oDocID) - oDetailSQL = oDetailSQL.ToLower.Replace("@idbobjid", oDocID) + oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID) oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID) oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME) Dim oDT3 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL) If Not IsNothing(oDT3) Then + LOGGER.Debug($"Found {oDT3.Rows.Count} rows for GridView3") GridView3.Columns.Clear() GridControl3.DataSource = oDT3 End If If DT_MONITOR_KONFIG.Rows.Count = 4 Then oDetailSQL = GRID4_SQL oDetailSQL = oDetailSQL.Replace("@DocID", oDocID) - oDetailSQL = oDetailSQL.ToLower.Replace("@idbobjid", oDocID) + oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID) oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID) oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME) Dim oDT4 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL) If Not IsNothing(oDT4) Then + LOGGER.Debug($"Found {oDT4.Rows.Count} rows for GridView4") GridView4.Columns.Clear() GridControl4.DataSource = oDT4 + Try + GridView4.Columns("Geändert wann").DisplayFormat.FormatType = FormatType.DateTime + GridView4.Columns("Geändert wann").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + Catch ex As Exception + GridView4.Columns("Changed when").DisplayFormat.FormatType = FormatType.DateTime + GridView4.Columns("Changed when").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + End Try End If End If End If + Load_Doc(oDocPath) - If BarButtonItem3.Caption <> "DocView aktivieren" And oDocPath <> "" Then - If Not Application.OpenForms().OfType(Of frmValidator).Any Then - frmDocView.Show() - _frmDocView = frmDocView + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error GridView1.FocusedRowChanged:") + End Try + End Sub + Sub Load_Doc(oDocPath As String) + Try + If SplitContainerControlMain.Collapsed = False And oDocPath <> String.Empty Then + 'If Not Application.OpenForms().OfType(Of frmValidator).Any Then + ' frmDocView.Show() + ' _frmDocView = frmDocView + 'End If + '_frmDocView.LoadFile(oDocPath) + + If File.Exists(oDocPath) Then + DocumentViewerMonitor.LoadFile(oDocPath) + BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + DocumentViewerMonitor.Visible = True + Else + BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + BarStaticItemInfo.Caption = $"File is not existing or accessible!" + DocumentViewerMonitor.Visible = False End If - _frmDocView.LoadFile(oDocPath) - - End If + End If Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Error GridView1.FocusedRowChanged:") + LOGGER.Error(ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in LoadDoc:") End Try End Sub Private Sub frmMonitor_Load(sender As Object, e As EventArgs) Handles Me.Load + SplitContainerControlMain.Collapsed = True Load_Grid_Data() Select Case DT_MONITOR_KONFIG.Rows.Count @@ -106,7 +144,11 @@ Public Class frmMonitor SplitContainerControl2.SplitterPosition = CONFIG.Config.MonitorSplitter2_Distance SplitContainerControl3.SplitterPosition = CONFIG.Config.MonitorSplitter3_Distance End Select - + Try + DocumentViewerMonitor.Init(LOGCONFIG, GDPICTURE_LICENSE) + Catch ex As Exception + LOGGER.Error(ex) + End Try End Sub Sub Load_Grid_Data() Try @@ -146,8 +188,8 @@ Public Class frmMonitor GRID3_SQL = DT_MONITOR_KONFIG.Rows(2).Item("GRID_SQL") GridView3.ViewCaption = GRID3_TITLE Case 4 - GRID3_TITLE = DT_MONITOR_KONFIG.Rows(3).Item("GRID_TITLE") - GRID3_SQL = DT_MONITOR_KONFIG.Rows(3).Item("GRID_SQL") + GRID3_TITLE = DT_MONITOR_KONFIG.Rows(2).Item("GRID_TITLE") + GRID3_SQL = DT_MONITOR_KONFIG.Rows(2).Item("GRID_SQL") GridView3.ViewCaption = GRID3_TITLE GRID4_TITLE = DT_MONITOR_KONFIG.Rows(3).Item("GRID_TITLE") GRID4_SQL = DT_MONITOR_KONFIG.Rows(3).Item("GRID_SQL") @@ -318,9 +360,10 @@ Public Class frmMonitor End Select CONFIG.Save() Try - _frmDocView.Close() + DocumentViewerMonitor.Done() + '_frmDocView.Close() Catch ex As Exception - + LOGGER.Error(ex) End Try End Sub @@ -365,25 +408,43 @@ Public Class frmMonitor End Sub Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick - If BarButtonItem3.Caption = "DocView aktivieren" Then - BarButtonItem3.Caption = "DocView deaktivieren" + If SplitContainerControlMain.Collapsed = True Then + SplitContainerControlMain.Collapsed = False + + If USER_LANGUAGE = "de-DE" Then + BarButtonItem3.Caption = "DocView deaktivieren" + Else + BarButtonItem3.Caption = "Deactivate DocView" + End If + BarButtonItem3.Down = True Dim oDocPath Try oDocPath = GridView1.GetFocusedRowCellValue(GridView1.Columns("FULL_FILE_PATH")) + + Catch ex As Exception LOGGER.Warn($"Error getting DocPath in Monitor: {ex.Message}") + Exit Sub End Try - If oDocPath <> "" Then - If Not Application.OpenForms().OfType(Of frmValidator).Any Then - frmDocView.Show() - _frmDocView = frmDocView - End If - _frmDocView.LoadFile(oDocPath) - Me.SendToBack() - End If + DocumentViewerMonitor?.LoadFile(oDocPath) + + 'If oDocPath <> "" Then + ' If Not Application.OpenForms().OfType(Of frmValidator).Any Then + ' frmDocView.Show() + ' _frmDocView = frmDocView + ' End If + ' _frmDocView.LoadFile(oDocPath) + ' Me.SendToBack() + 'End If Else - BarButtonItem3.Caption = "DocView aktivieren" + SplitContainerControlMain.Collapsed = True + + If USER_LANGUAGE = "de-DE" Then + BarButtonItem3.Caption = "DocView aktivieren" + Else + BarButtonItem3.Caption = "Activate DocView" + End If BarButtonItem3.Down = False End If diff --git a/app/DD_PM_WINDREAM/frmValidator.Designer.vb b/app/DD_PM_WINDREAM/frmValidator.Designer.vb index 228b03e..1df6f16 100644 --- a/app/DD_PM_WINDREAM/frmValidator.Designer.vb +++ b/app/DD_PM_WINDREAM/frmValidator.Designer.vb @@ -1,6 +1,6 @@  Partial Class frmValidator - Inherits System.Windows.Forms.Form + Inherits DevExpress.XtraBars.Ribbon.RibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -30,15 +30,9 @@ Partial Class frmValidator Me.btnSave = New System.Windows.Forms.Button() Me.DESCRIPTIONLabel = New System.Windows.Forms.Label() Me.pnldesigner = New System.Windows.Forms.Panel() - Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components) - Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() - Me.tstrplblError = New System.Windows.Forms.ToolStripStatusLabel() - Me.tstrlbl_Info = New System.Windows.Forms.ToolStripStatusLabel() - Me.tsslblDocID = New System.Windows.Forms.ToolStripStatusLabel() - Me.tsslbl_State = New System.Windows.Forms.ToolStripStatusLabel() Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() @@ -82,20 +76,31 @@ Partial Class frmValidator Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.PdfBarController1 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components) Me.PdfBarController2 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components) - Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() - Me.ToolStripDropDownButton2 = New System.Windows.Forms.ToolStripDropDownButton() - Me.DateiÖffnenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() - Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButtonSearchesReload = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButtonJumpFile = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButtonDeleteFile = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButtonAnnotation = New System.Windows.Forms.ToolStripButton() Me.FinalIndexDataSet = New DD_PM_WINDREAM.FinalIndexDataSet() Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.bsiError = New DevExpress.XtraBars.BarStaticItem() + Me.bsiInformation = New DevExpress.XtraBars.BarStaticItem() + Me.bsiDocID = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniRefresh = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniRefreshSearches = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniNext = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniDelete = New DevExpress.XtraBars.BarButtonItem() + Me.bbtniAnnotation = New DevExpress.XtraBars.BarButtonItem() + Me.bsiInfo1 = New DevExpress.XtraBars.BarStaticItem() + Me.bsiInfo2 = New DevExpress.XtraBars.BarStaticItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.DocumentViewerValidator = New DigitalData.Controls.DocumentViewer.DocumentViewer() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() @@ -104,7 +109,6 @@ Partial Class frmValidator CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.StatusStrip1.SuspendLayout() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -114,9 +118,9 @@ Partial Class frmValidator CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.ToolStrip1.SuspendLayout() CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'SplitContainer1 @@ -126,34 +130,27 @@ Partial Class frmValidator ' 'SplitContainer1.Panel1 ' - resources.ApplyResources(Me.SplitContainer1.Panel1, "SplitContainer1.Panel1") Me.SplitContainer1.Panel1.Controls.Add(Me.Panel1) - Me.ToolTip1.SetToolTip(Me.SplitContainer1.Panel1, resources.GetString("SplitContainer1.Panel1.ToolTip")) ' 'SplitContainer1.Panel2 ' - resources.ApplyResources(Me.SplitContainer1.Panel2, "SplitContainer1.Panel2") - Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewer1) - Me.ToolTip1.SetToolTip(Me.SplitContainer1.Panel2, resources.GetString("SplitContainer1.Panel2.ToolTip")) + Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewerValidator) Me.SplitContainer1.TabStop = False - Me.ToolTip1.SetToolTip(Me.SplitContainer1, resources.GetString("SplitContainer1.ToolTip")) ' 'Panel1 ' - resources.ApplyResources(Me.Panel1, "Panel1") Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLight Me.Panel1.Controls.Add(Me.TITLELabel1) Me.Panel1.Controls.Add(Me.btnSave) Me.Panel1.Controls.Add(Me.DESCRIPTIONLabel) Me.Panel1.Controls.Add(Me.pnldesigner) + resources.ApplyResources(Me.Panel1, "Panel1") Me.Panel1.Name = "Panel1" - Me.ToolTip1.SetToolTip(Me.Panel1, resources.GetString("Panel1.ToolTip")) ' 'TITLELabel1 ' resources.ApplyResources(Me.TITLELabel1, "TITLELabel1") Me.TITLELabel1.Name = "TITLELabel1" - Me.ToolTip1.SetToolTip(Me.TITLELabel1, resources.GetString("TITLELabel1.ToolTip")) ' 'btnSave ' @@ -161,27 +158,18 @@ Partial Class frmValidator Me.btnSave.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_pink Me.btnSave.Name = "btnSave" Me.btnSave.TabStop = False - Me.ToolTip1.SetToolTip(Me.btnSave, resources.GetString("btnSave.ToolTip")) Me.btnSave.UseVisualStyleBackColor = True ' 'DESCRIPTIONLabel ' resources.ApplyResources(Me.DESCRIPTIONLabel, "DESCRIPTIONLabel") Me.DESCRIPTIONLabel.Name = "DESCRIPTIONLabel" - Me.ToolTip1.SetToolTip(Me.DESCRIPTIONLabel, resources.GetString("DESCRIPTIONLabel.ToolTip")) ' 'pnldesigner ' resources.ApplyResources(Me.pnldesigner, "pnldesigner") Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnldesigner.Name = "pnldesigner" - Me.ToolTip1.SetToolTip(Me.pnldesigner, resources.GetString("pnldesigner.ToolTip")) - ' - 'DocumentViewer1 - ' - resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1") - Me.DocumentViewer1.Name = "DocumentViewer1" - Me.ToolTip1.SetToolTip(Me.DocumentViewer1, resources.GetString("DocumentViewer1.ToolTip")) ' 'BarAndDockingController3 ' @@ -198,35 +186,6 @@ Partial Class frmValidator Me.BarAndDockingController1.PropertiesBar.AllowLinkLighting = False Me.BarAndDockingController1.PropertiesDocking.ViewStyle = DevExpress.XtraBars.Docking2010.Views.DockingViewStyle.Classic ' - 'StatusStrip1 - ' - resources.ApplyResources(Me.StatusStrip1, "StatusStrip1") - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tstrplblError, Me.tstrlbl_Info, Me.tsslblDocID, Me.tsslbl_State}) - Me.StatusStrip1.Name = "StatusStrip1" - Me.ToolTip1.SetToolTip(Me.StatusStrip1, resources.GetString("StatusStrip1.ToolTip")) - ' - 'tstrplblError - ' - resources.ApplyResources(Me.tstrplblError, "tstrplblError") - Me.tstrplblError.ForeColor = System.Drawing.Color.Red - Me.tstrplblError.Name = "tstrplblError" - ' - 'tstrlbl_Info - ' - resources.ApplyResources(Me.tstrlbl_Info, "tstrlbl_Info") - Me.tstrlbl_Info.Name = "tstrlbl_Info" - ' - 'tsslblDocID - ' - resources.ApplyResources(Me.tsslblDocID, "tsslblDocID") - Me.tsslblDocID.Name = "tsslblDocID" - ' - 'tsslbl_State - ' - resources.ApplyResources(Me.tsslbl_State, "tsslbl_State") - Me.tsslbl_State.BackColor = System.Drawing.Color.Yellow - Me.tsslbl_State.Name = "tsslbl_State" - ' 'DD_DMSLiteDataSet ' Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" @@ -307,40 +266,33 @@ Partial Class frmValidator ' 'barDockControlTop ' - resources.ApplyResources(Me.barDockControlTop, "barDockControlTop") Me.barDockControlTop.CausesValidation = False + resources.ApplyResources(Me.barDockControlTop, "barDockControlTop") Me.barDockControlTop.Manager = Me.BarManager1 - Me.ToolTip1.SetToolTip(Me.barDockControlTop, resources.GetString("barDockControlTop.ToolTip")) ' 'barDockControlBottom ' - resources.ApplyResources(Me.barDockControlBottom, "barDockControlBottom") Me.barDockControlBottom.CausesValidation = False + resources.ApplyResources(Me.barDockControlBottom, "barDockControlBottom") Me.barDockControlBottom.Manager = Me.BarManager1 - Me.ToolTip1.SetToolTip(Me.barDockControlBottom, resources.GetString("barDockControlBottom.ToolTip")) ' 'barDockControlLeft ' - resources.ApplyResources(Me.barDockControlLeft, "barDockControlLeft") Me.barDockControlLeft.CausesValidation = False + resources.ApplyResources(Me.barDockControlLeft, "barDockControlLeft") Me.barDockControlLeft.Manager = Me.BarManager1 - Me.ToolTip1.SetToolTip(Me.barDockControlLeft, resources.GetString("barDockControlLeft.ToolTip")) ' 'barDockControlRight ' - resources.ApplyResources(Me.barDockControlRight, "barDockControlRight") Me.barDockControlRight.CausesValidation = False + resources.ApplyResources(Me.barDockControlRight, "barDockControlRight") Me.barDockControlRight.Manager = Me.BarManager1 - Me.ToolTip1.SetToolTip(Me.barDockControlRight, resources.GetString("barDockControlRight.ToolTip")) ' 'PdfFileOpenBarItem1 ' resources.ApplyResources(Me.PdfFileOpenBarItem1, "PdfFileOpenBarItem1") Me.PdfFileOpenBarItem1.Enabled = False Me.PdfFileOpenBarItem1.Id = 1 - Me.PdfFileOpenBarItem1.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFileOpenBarItem1.ImageOptions.ImageIndex"), Integer) - Me.PdfFileOpenBarItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFileOpenBarItem1.ImageOptions.LargeImageIndex"), Integer) - Me.PdfFileOpenBarItem1.ImageOptions.SvgImage = CType(resources.GetObject("PdfFileOpenBarItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfFileOpenBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O)) Me.PdfFileOpenBarItem1.Name = "PdfFileOpenBarItem1" ' @@ -349,9 +301,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfFileSaveAsBarItem1, "PdfFileSaveAsBarItem1") Me.PdfFileSaveAsBarItem1.Enabled = False Me.PdfFileSaveAsBarItem1.Id = 2 - Me.PdfFileSaveAsBarItem1.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFileSaveAsBarItem1.ImageOptions.ImageIndex"), Integer) - Me.PdfFileSaveAsBarItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFileSaveAsBarItem1.ImageOptions.LargeImageIndex"), Integer) - Me.PdfFileSaveAsBarItem1.ImageOptions.SvgImage = CType(resources.GetObject("PdfFileSaveAsBarItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfFileSaveAsBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S)) Me.PdfFileSaveAsBarItem1.Name = "PdfFileSaveAsBarItem1" ' @@ -360,9 +309,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfFilePrintBarItem2, "PdfFilePrintBarItem2") Me.PdfFilePrintBarItem2.Enabled = False Me.PdfFilePrintBarItem2.Id = 3 - Me.PdfFilePrintBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFilePrintBarItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfFilePrintBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFilePrintBarItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfFilePrintBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfFilePrintBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfFilePrintBarItem2.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.P)) Me.PdfFilePrintBarItem2.Name = "PdfFilePrintBarItem2" ' @@ -371,9 +317,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfPreviousPageBarItem2, "PdfPreviousPageBarItem2") Me.PdfPreviousPageBarItem2.Enabled = False Me.PdfPreviousPageBarItem2.Id = 4 - Me.PdfPreviousPageBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfPreviousPageBarItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfPreviousPageBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfPreviousPageBarItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfPreviousPageBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfPreviousPageBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfPreviousPageBarItem2.Name = "PdfPreviousPageBarItem2" ' 'PdfNextPageBarItem2 @@ -381,9 +324,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfNextPageBarItem2, "PdfNextPageBarItem2") Me.PdfNextPageBarItem2.Enabled = False Me.PdfNextPageBarItem2.Id = 5 - Me.PdfNextPageBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfNextPageBarItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfNextPageBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfNextPageBarItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfNextPageBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfNextPageBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfNextPageBarItem2.Name = "PdfNextPageBarItem2" ' 'PdfFindTextBarItem2 @@ -391,9 +331,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfFindTextBarItem2, "PdfFindTextBarItem2") Me.PdfFindTextBarItem2.Enabled = False Me.PdfFindTextBarItem2.Id = 6 - Me.PdfFindTextBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFindTextBarItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfFindTextBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFindTextBarItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfFindTextBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfFindTextBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfFindTextBarItem2.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F)) Me.PdfFindTextBarItem2.Name = "PdfFindTextBarItem2" ' @@ -402,9 +339,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfZoomOutBarItem2, "PdfZoomOutBarItem2") Me.PdfZoomOutBarItem2.Enabled = False Me.PdfZoomOutBarItem2.Id = 7 - Me.PdfZoomOutBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoomOutBarItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfZoomOutBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoomOutBarItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfZoomOutBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoomOutBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfZoomOutBarItem2.Name = "PdfZoomOutBarItem2" ' 'PdfZoomInBarItem2 @@ -412,9 +346,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfZoomInBarItem2, "PdfZoomInBarItem2") Me.PdfZoomInBarItem2.Enabled = False Me.PdfZoomInBarItem2.Id = 8 - Me.PdfZoomInBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoomInBarItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfZoomInBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoomInBarItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfZoomInBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoomInBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfZoomInBarItem2.Name = "PdfZoomInBarItem2" ' 'PdfExactZoomListBarSubItem2 @@ -422,9 +353,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfExactZoomListBarSubItem2, "PdfExactZoomListBarSubItem2") Me.PdfExactZoomListBarSubItem2.Enabled = False Me.PdfExactZoomListBarSubItem2.Id = 9 - Me.PdfExactZoomListBarSubItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfExactZoomListBarSubItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfExactZoomListBarSubItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfExactZoomListBarSubItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfExactZoomListBarSubItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfExactZoomListBarSubItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfExactZoomListBarSubItem2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom10CheckItem2, True), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom25CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom50CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom75CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom100CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom125CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom150CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom200CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom400CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom500CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetActualSizeZoomModeCheckItem2, True), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetPageLevelZoomModeCheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitWidthZoomModeCheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitVisibleZoomModeCheckItem2)}) Me.PdfExactZoomListBarSubItem2.Name = "PdfExactZoomListBarSubItem2" Me.PdfExactZoomListBarSubItem2.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu @@ -434,9 +362,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfZoom10CheckItem2, "PdfZoom10CheckItem2") Me.PdfZoom10CheckItem2.Enabled = False Me.PdfZoom10CheckItem2.Id = 10 - Me.PdfZoom10CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom10CheckItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfZoom10CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom10CheckItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfZoom10CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom10CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfZoom10CheckItem2.Name = "PdfZoom10CheckItem2" ' 'PdfZoom25CheckItem2 @@ -444,9 +369,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfZoom25CheckItem2, "PdfZoom25CheckItem2") Me.PdfZoom25CheckItem2.Enabled = False Me.PdfZoom25CheckItem2.Id = 11 - Me.PdfZoom25CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom25CheckItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfZoom25CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom25CheckItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfZoom25CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom25CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfZoom25CheckItem2.Name = "PdfZoom25CheckItem2" ' 'PdfZoom50CheckItem2 @@ -454,9 +376,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfZoom50CheckItem2, "PdfZoom50CheckItem2") Me.PdfZoom50CheckItem2.Enabled = False Me.PdfZoom50CheckItem2.Id = 12 - Me.PdfZoom50CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom50CheckItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfZoom50CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom50CheckItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfZoom50CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom50CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfZoom50CheckItem2.Name = "PdfZoom50CheckItem2" ' 'PdfZoom75CheckItem2 @@ -464,9 +383,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfZoom75CheckItem2, "PdfZoom75CheckItem2") Me.PdfZoom75CheckItem2.Enabled = False Me.PdfZoom75CheckItem2.Id = 13 - Me.PdfZoom75CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom75CheckItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfZoom75CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom75CheckItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfZoom75CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom75CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfZoom75CheckItem2.Name = "PdfZoom75CheckItem2" ' 'PdfZoom100CheckItem2 @@ -474,9 +390,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfZoom100CheckItem2, "PdfZoom100CheckItem2") Me.PdfZoom100CheckItem2.Enabled = False Me.PdfZoom100CheckItem2.Id = 14 - Me.PdfZoom100CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom100CheckItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfZoom100CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom100CheckItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfZoom100CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom100CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfZoom100CheckItem2.Name = "PdfZoom100CheckItem2" ' 'PdfZoom125CheckItem2 @@ -484,9 +397,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfZoom125CheckItem2, "PdfZoom125CheckItem2") Me.PdfZoom125CheckItem2.Enabled = False Me.PdfZoom125CheckItem2.Id = 15 - Me.PdfZoom125CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom125CheckItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfZoom125CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom125CheckItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfZoom125CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom125CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfZoom125CheckItem2.Name = "PdfZoom125CheckItem2" ' 'PdfZoom150CheckItem2 @@ -494,9 +404,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfZoom150CheckItem2, "PdfZoom150CheckItem2") Me.PdfZoom150CheckItem2.Enabled = False Me.PdfZoom150CheckItem2.Id = 16 - Me.PdfZoom150CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom150CheckItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfZoom150CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom150CheckItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfZoom150CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom150CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfZoom150CheckItem2.Name = "PdfZoom150CheckItem2" ' 'PdfZoom200CheckItem2 @@ -504,9 +411,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfZoom200CheckItem2, "PdfZoom200CheckItem2") Me.PdfZoom200CheckItem2.Enabled = False Me.PdfZoom200CheckItem2.Id = 17 - Me.PdfZoom200CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom200CheckItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfZoom200CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom200CheckItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfZoom200CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom200CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfZoom200CheckItem2.Name = "PdfZoom200CheckItem2" ' 'PdfZoom400CheckItem2 @@ -514,9 +418,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfZoom400CheckItem2, "PdfZoom400CheckItem2") Me.PdfZoom400CheckItem2.Enabled = False Me.PdfZoom400CheckItem2.Id = 18 - Me.PdfZoom400CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom400CheckItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfZoom400CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom400CheckItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfZoom400CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom400CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfZoom400CheckItem2.Name = "PdfZoom400CheckItem2" ' 'PdfZoom500CheckItem2 @@ -524,9 +425,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfZoom500CheckItem2, "PdfZoom500CheckItem2") Me.PdfZoom500CheckItem2.Enabled = False Me.PdfZoom500CheckItem2.Id = 19 - Me.PdfZoom500CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom500CheckItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfZoom500CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom500CheckItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfZoom500CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom500CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfZoom500CheckItem2.Name = "PdfZoom500CheckItem2" ' 'PdfSetActualSizeZoomModeCheckItem2 @@ -534,9 +432,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfSetActualSizeZoomModeCheckItem2, "PdfSetActualSizeZoomModeCheckItem2") Me.PdfSetActualSizeZoomModeCheckItem2.Enabled = False Me.PdfSetActualSizeZoomModeCheckItem2.Id = 20 - Me.PdfSetActualSizeZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetActualSizeZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfSetActualSizeZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetActualSizeZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfSetActualSizeZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetActualSizeZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfSetActualSizeZoomModeCheckItem2.Name = "PdfSetActualSizeZoomModeCheckItem2" ' 'PdfSetPageLevelZoomModeCheckItem2 @@ -544,9 +439,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfSetPageLevelZoomModeCheckItem2, "PdfSetPageLevelZoomModeCheckItem2") Me.PdfSetPageLevelZoomModeCheckItem2.Enabled = False Me.PdfSetPageLevelZoomModeCheckItem2.Id = 21 - Me.PdfSetPageLevelZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetPageLevelZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfSetPageLevelZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetPageLevelZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfSetPageLevelZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetPageLevelZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfSetPageLevelZoomModeCheckItem2.Name = "PdfSetPageLevelZoomModeCheckItem2" ' 'PdfSetFitWidthZoomModeCheckItem2 @@ -554,9 +446,6 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfSetFitWidthZoomModeCheckItem2, "PdfSetFitWidthZoomModeCheckItem2") Me.PdfSetFitWidthZoomModeCheckItem2.Enabled = False Me.PdfSetFitWidthZoomModeCheckItem2.Id = 22 - Me.PdfSetFitWidthZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetFitWidthZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfSetFitWidthZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetFitWidthZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfSetFitWidthZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetFitWidthZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfSetFitWidthZoomModeCheckItem2.Name = "PdfSetFitWidthZoomModeCheckItem2" ' 'PdfSetFitVisibleZoomModeCheckItem2 @@ -564,18 +453,12 @@ Partial Class frmValidator resources.ApplyResources(Me.PdfSetFitVisibleZoomModeCheckItem2, "PdfSetFitVisibleZoomModeCheckItem2") Me.PdfSetFitVisibleZoomModeCheckItem2.Enabled = False Me.PdfSetFitVisibleZoomModeCheckItem2.Id = 23 - Me.PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer) - Me.PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer) - Me.PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.PdfSetFitVisibleZoomModeCheckItem2.Name = "PdfSetFitVisibleZoomModeCheckItem2" ' 'BarButtonItem1 ' resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1") Me.BarButtonItem1.Id = 0 - Me.BarButtonItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.ImageIndex"), Integer) - Me.BarButtonItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImageIndex"), Integer) - Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem1.Name = "BarButtonItem1" ' 'PdfBarController2 @@ -604,68 +487,6 @@ Partial Class frmValidator Me.PdfBarController2.BarItems.Add(Me.PdfSetFitWidthZoomModeCheckItem2) Me.PdfBarController2.BarItems.Add(Me.PdfSetFitVisibleZoomModeCheckItem2) ' - 'ToolStrip1 - ' - resources.ApplyResources(Me.ToolStrip1, "ToolStrip1") - Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButton2, Me.ToolStripButton1, Me.ToolStripButtonSearchesReload, Me.ToolStripButtonJumpFile, Me.ToolStripButtonDeleteFile, Me.ToolStripButtonAnnotation}) - Me.ToolStrip1.Name = "ToolStrip1" - Me.ToolTip1.SetToolTip(Me.ToolStrip1, resources.GetString("ToolStrip1.ToolTip")) - ' - 'ToolStripDropDownButton2 - ' - resources.ApplyResources(Me.ToolStripDropDownButton2, "ToolStripDropDownButton2") - Me.ToolStripDropDownButton2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem1, Me.InfoToolStripMenuItem, Me.EigenschaftenToolStripMenuItem}) - Me.ToolStripDropDownButton2.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Files_7954 - Me.ToolStripDropDownButton2.Name = "ToolStripDropDownButton2" - ' - 'DateiÖffnenToolStripMenuItem1 - ' - resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem1, "DateiÖffnenToolStripMenuItem1") - Me.DateiÖffnenToolStripMenuItem1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Open_6296 - Me.DateiÖffnenToolStripMenuItem1.Name = "DateiÖffnenToolStripMenuItem1" - ' - 'InfoToolStripMenuItem - ' - resources.ApplyResources(Me.InfoToolStripMenuItem, "InfoToolStripMenuItem") - Me.InfoToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.information - Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem" - ' - 'EigenschaftenToolStripMenuItem - ' - resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem") - Me.EigenschaftenToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.properties_16xLG - Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem" - ' - 'ToolStripButton1 - ' - resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") - Me.ToolStripButton1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xMD - Me.ToolStripButton1.Name = "ToolStripButton1" - ' - 'ToolStripButtonSearchesReload - ' - resources.ApplyResources(Me.ToolStripButtonSearchesReload, "ToolStripButtonSearchesReload") - Me.ToolStripButtonSearchesReload.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xMD - Me.ToolStripButtonSearchesReload.Name = "ToolStripButtonSearchesReload" - ' - 'ToolStripButtonJumpFile - ' - resources.ApplyResources(Me.ToolStripButtonJumpFile, "ToolStripButtonJumpFile") - Me.ToolStripButtonJumpFile.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Nextrequest_10302 - Me.ToolStripButtonJumpFile.Name = "ToolStripButtonJumpFile" - ' - 'ToolStripButtonDeleteFile - ' - resources.ApplyResources(Me.ToolStripButtonDeleteFile, "ToolStripButtonDeleteFile") - Me.ToolStripButtonDeleteFile.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.delete_12x12 - Me.ToolStripButtonDeleteFile.Name = "ToolStripButtonDeleteFile" - ' - 'ToolStripButtonAnnotation - ' - resources.ApplyResources(Me.ToolStripButtonAnnotation, "ToolStripButtonAnnotation") - Me.ToolStripButtonAnnotation.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_orange - Me.ToolStripButtonAnnotation.Name = "ToolStripButtonAnnotation" - ' 'FinalIndexDataSet ' Me.FinalIndexDataSet.DataSetName = "FinalIndexDataSet" @@ -680,21 +501,202 @@ Partial Class frmValidator ' Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2}) + resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") + Me.RibbonControl1.MaxItemId = 16 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'bsiError + ' + Me.bsiError.Id = 1 + Me.bsiError.ItemAppearance.Normal.Font = CType(resources.GetObject("bsiError.ItemAppearance.Normal.Font"), System.Drawing.Font) + Me.bsiError.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Red + Me.bsiError.ItemAppearance.Normal.Options.UseFont = True + Me.bsiError.ItemAppearance.Normal.Options.UseForeColor = True + Me.bsiError.Name = "bsiError" + ' + 'bsiInformation + ' + resources.ApplyResources(Me.bsiInformation, "bsiInformation") + Me.bsiInformation.Id = 2 + Me.bsiInformation.Name = "bsiInformation" + ' + 'bsiDocID + ' + resources.ApplyResources(Me.bsiDocID, "bsiDocID") + Me.bsiDocID.Id = 3 + Me.bsiDocID.Name = "bsiDocID" + ' + 'BarButtonItem2 + ' + resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2") + Me.BarButtonItem2.Id = 4 + Me.BarButtonItem2.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem2.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3") + Me.BarButtonItem3.Id = 5 + Me.BarButtonItem3.ImageOptions.Image = CType(resources.GetObject("BarButtonItem3.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem3.Name = "BarButtonItem3" + Me.BarButtonItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'BarButtonItem4 + ' + resources.ApplyResources(Me.BarButtonItem4, "BarButtonItem4") + Me.BarButtonItem4.Id = 6 + Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem4.Name = "BarButtonItem4" + Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'bbtniRefresh + ' + resources.ApplyResources(Me.bbtniRefresh, "bbtniRefresh") + Me.bbtniRefresh.Id = 7 + Me.bbtniRefresh.ImageOptions.Image = CType(resources.GetObject("bbtniRefresh.ImageOptions.Image"), System.Drawing.Image) + Me.bbtniRefresh.ImageOptions.LargeImage = CType(resources.GetObject("bbtniRefresh.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtniRefresh.Name = "bbtniRefresh" + ' + 'bbtniRefreshSearches + ' + resources.ApplyResources(Me.bbtniRefreshSearches, "bbtniRefreshSearches") + Me.bbtniRefreshSearches.Id = 8 + Me.bbtniRefreshSearches.ImageOptions.Image = CType(resources.GetObject("bbtniRefreshSearches.ImageOptions.Image"), System.Drawing.Image) + Me.bbtniRefreshSearches.ImageOptions.LargeImage = CType(resources.GetObject("bbtniRefreshSearches.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtniRefreshSearches.Name = "bbtniRefreshSearches" + ' + 'bbtniNext + ' + resources.ApplyResources(Me.bbtniNext, "bbtniNext") + Me.bbtniNext.Id = 9 + Me.bbtniNext.ImageOptions.Image = CType(resources.GetObject("bbtniNext.ImageOptions.Image"), System.Drawing.Image) + Me.bbtniNext.ImageOptions.LargeImage = CType(resources.GetObject("bbtniNext.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtniNext.Name = "bbtniNext" + ' + 'bbtniDelete + ' + resources.ApplyResources(Me.bbtniDelete, "bbtniDelete") + Me.bbtniDelete.Id = 10 + Me.bbtniDelete.ImageOptions.Image = CType(resources.GetObject("bbtniDelete.ImageOptions.Image"), System.Drawing.Image) + Me.bbtniDelete.ImageOptions.LargeImage = CType(resources.GetObject("bbtniDelete.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtniDelete.Name = "bbtniDelete" + Me.bbtniDelete.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'bbtniAnnotation + ' + resources.ApplyResources(Me.bbtniAnnotation, "bbtniAnnotation") + Me.bbtniAnnotation.Id = 11 + Me.bbtniAnnotation.ImageOptions.Image = CType(resources.GetObject("bbtniAnnotation.ImageOptions.Image"), System.Drawing.Image) + Me.bbtniAnnotation.ImageOptions.LargeImage = CType(resources.GetObject("bbtniAnnotation.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtniAnnotation.Name = "bbtniAnnotation" + Me.bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'bsiInfo1 + ' + resources.ApplyResources(Me.bsiInfo1, "bsiInfo1") + Me.bsiInfo1.Id = 14 + Me.bsiInfo1.ImageOptions.Image = CType(resources.GetObject("bsiInfo1.ImageOptions.Image"), System.Drawing.Image) + Me.bsiInfo1.ImageOptions.LargeImage = CType(resources.GetObject("bsiInfo1.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bsiInfo1.ItemAppearance.Normal.Font = CType(resources.GetObject("bsiInfo1.ItemAppearance.Normal.Font"), System.Drawing.Font) + Me.bsiInfo1.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Red + Me.bsiInfo1.ItemAppearance.Normal.Options.UseFont = True + Me.bsiInfo1.ItemAppearance.Normal.Options.UseForeColor = True + Me.bsiInfo1.Name = "bsiInfo1" + Me.bsiInfo1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'bsiInfo2 + ' + resources.ApplyResources(Me.bsiInfo2, "bsiInfo2") + Me.bsiInfo2.Id = 15 + Me.bsiInfo2.ImageOptions.Image = CType(resources.GetObject("bsiInfo2.ImageOptions.Image"), System.Drawing.Image) + Me.bsiInfo2.ImageOptions.LargeImage = CType(resources.GetObject("bsiInfo2.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bsiInfo2.ItemAppearance.Normal.Font = CType(resources.GetObject("bsiInfo2.ItemAppearance.Normal.Font"), System.Drawing.Font) + Me.bsiInfo2.ItemAppearance.Normal.Options.UseFont = True + Me.bsiInfo2.Name = "bsiInfo2" + Me.bsiInfo2.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") + ' + 'RibbonPageGroup3 + ' + Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefresh) + Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefreshSearches) + Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniNext) + Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniDelete) + Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniAnnotation) + Me.RibbonPageGroup3.Name = "RibbonPageGroup3" + resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3") + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[True] + Me.RibbonPageGroup2.ImageOptions.Image = CType(resources.GetObject("RibbonPageGroup2.ImageOptions.Image"), System.Drawing.Image) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bsiInfo1) + Me.RibbonPageGroup2.ItemLinks.Add(Me.bsiInfo2) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2") + Me.RibbonPageGroup2.Visible = False + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiError) + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInformation) + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDocID) + resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1") + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") + ' + 'DocumentViewerValidator + ' + resources.ApplyResources(Me.DocumentViewerValidator, "DocumentViewerValidator") + Me.DocumentViewerValidator.Name = "DocumentViewerValidator" + ' 'frmValidator ' + Me.Appearance.Options.UseFont = True resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.ToolStrip1) Me.Controls.Add(Me.SplitContainer1) - Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.RibbonControl1) + Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.barDockControlLeft) Me.Controls.Add(Me.barDockControlRight) Me.Controls.Add(Me.barDockControlBottom) Me.Controls.Add(Me.barDockControlTop) + Me.IconOptions.Icon = CType(resources.GetObject("frmValidator.IconOptions.Icon"), System.Drawing.Icon) + Me.IconOptions.LargeImage = CType(resources.GetObject("frmValidator.IconOptions.LargeImage"), System.Drawing.Image) Me.KeyPreview = True Me.Name = "frmValidator" - Me.ToolTip1.SetToolTip(Me, resources.GetString("$this.ToolTip")) - Me.TopMost = True + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False) CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() @@ -703,8 +705,6 @@ Partial Class frmValidator CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).EndInit() - Me.StatusStrip1.ResumeLayout(False) - Me.StatusStrip1.PerformLayout() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() @@ -714,18 +714,13 @@ Partial Class frmValidator CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).EndInit() - Me.ToolStrip1.ResumeLayout(False) - Me.ToolStrip1.PerformLayout() CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub - Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip - Friend WithEvents tstrplblError As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents tstrlbl_Info As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents tsslblDocID As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents TITLELabel1 As System.Windows.Forms.Label Friend WithEvents btnSave As System.Windows.Forms.Button @@ -778,20 +773,29 @@ Partial Class frmValidator Friend WithEvents BarAndDockingController2 As DevExpress.XtraBars.BarAndDockingController Friend WithEvents BarAndDockingController3 As DevExpress.XtraBars.BarAndDockingController Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer - Friend WithEvents ToolStrip1 As ToolStrip - Friend WithEvents ToolStripButtonJumpFile As ToolStripButton - Friend WithEvents ToolStripButtonDeleteFile As ToolStripButton - Friend WithEvents ToolStripButtonAnnotation As ToolStripButton Friend WithEvents FinalIndexDataSet As FinalIndexDataSet Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGBindingSource As BindingSource Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGTableAdapter As FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter - Friend WithEvents ToolStripDropDownButton2 As ToolStripDropDownButton - Friend WithEvents DateiÖffnenToolStripMenuItem1 As ToolStripMenuItem - Friend WithEvents InfoToolStripMenuItem As ToolStripMenuItem - Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem - Friend WithEvents ToolStripButtonSearchesReload As ToolStripButton Friend WithEvents ToolTip1 As ToolTip - Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer - Friend WithEvents ToolStripButton1 As ToolStripButton - Friend WithEvents tsslbl_State As ToolStripStatusLabel + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents bsiError As DevExpress.XtraBars.BarStaticItem + Friend WithEvents bsiInformation As DevExpress.XtraBars.BarStaticItem + Friend WithEvents bsiDocID As DevExpress.XtraBars.BarStaticItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents bbtniRefresh As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtniRefreshSearches As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtniNext As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtniDelete As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbtniAnnotation As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents bsiInfo1 As DevExpress.XtraBars.BarStaticItem + Friend WithEvents bsiInfo2 As DevExpress.XtraBars.BarStaticItem + Friend WithEvents DocumentViewerValidator As DigitalData.Controls.DocumentViewer.DocumentViewer End Class diff --git a/app/DD_PM_WINDREAM/frmValidator.resx b/app/DD_PM_WINDREAM/frmValidator.resx index 241f7fe..f0b7eb3 100644 --- a/app/DD_PM_WINDREAM/frmValidator.resx +++ b/app/DD_PM_WINDREAM/frmValidator.resx @@ -117,503 +117,797 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Fill + - - 0, 17 + + 0, 158 - - barDockControlBottom + + Top, Left, Right - - 400 % + + Segoe UI Symbol, 12pt, style=Bold - - ToolStripButtonAnnotation + + 3, 4 - - barDockControlTop + + No - - + + 455, 29 + + + + 1 + + + Label1 + + + MiddleLeft + + + TITLELabel1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 0 + + + Bottom, Left, Right + + + Tahoma, 9.75pt + + + MiddleLeft + + + 7, 404 + + + 3, 4, 3, 4 + + + 467, 50 + + + 11 + + + Validierung speichern - Nächstes Dokument + + + btnSave + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 1 + + Top, Left, Right - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu - My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE - ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi - bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s - VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw - BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh - bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl - bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF - eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA - Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs - dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz - cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z - CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA - AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN - QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs - b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT - eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp - b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg - Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ - dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k - ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E - cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO - AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL - + + 5, 33 - - + + 469, 48 - - PdfZoom10CheckItem2 + + 1 - - PdfPreviousPageBarItem2 + + Label3 - - InfoToolStripMenuItem + + DESCRIPTIONLabel - - DevExpress.XtraPdfViewer.Bars.PdfSetPageLevelZoomModeCheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 100 % + + Panel1 - - - -1 + + 2 - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu - My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE - ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi - bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s - VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw - BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh - bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl - bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF - eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA - Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs - dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz - cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z - CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA - AAAAAAAAPAEAAAAGDAAAABZTcGVpY2hlcm4gYWxzIChTdHJnK1MpBQgAAAAcRGV2RXhwcmVzcy5VdGls - cy5Ub29sVGlwSXRlbQcAAAANQWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50 - CE1heFdpZHRoEk93bmVyQWxsb3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRl - ZmF1bHRCb29sZWFuAwAAABNTeXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRv - b2xUaXBJdGVtSW1hZ2VPcHRpb25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAA - Bg8AAAAYU3BlaWNoZXJuIGRlciBQREYtRGF0ZWkuBQsAAAAoRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlw - SXRlbUltYWdlT3B0aW9ucwUAAAAISW1hZ2VVcmkMU3ZnSW1hZ2VTaXplCUFsaWdubWVudApJbWFnZUlu - ZGV4E0ltYWdlVG9UZXh0RGlzdGFuY2UBBAQAABNTeXN0ZW0uRHJhd2luZy5TaXplCQAAACZEZXZFeHBy - ZXNzLlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAIAAAAICAIAAAAGEAAAAAAF7////xNTeXN0ZW0u - RHJhd2luZy5TaXplAgAAAAV3aWR0aAZoZWlnaHQAAAgICQAAAAAAAAAAAAAABe7///8mRGV2RXhwcmVz - cy5VdGlscy5Ub29sVGlwSW1hZ2VBbGlnbm1lbnQBAAAAB3ZhbHVlX18ACAIAAAAAAAAA/////w4AAAAB - DgAAAAsAAAAJEAAAAAHt////7////wAAAAAAAAAAAez////u////AAAAAP////8OAAAACw== - + + Top, Bottom, Left, Right - - Left + + True - + + 8, 85 + + + 3, 4, 3, 4 + + + 466, 311 + + + 18 + + + pnldesigner + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Panel1 - - 962, 643 + + 3 - - False + + Fill - - DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + 0, 0 - - -1 + + 3, 4, 3, 4 - - $this + + 477, 461 + + + 24 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1.Panel1 + + + 0 + + + SplitContainer1.Panel1 System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - + + SplitContainer1 - - ToolStrip1 + + 0 - - tstrplblError + + Fill - - 24 + + 0, 0 - - 1, 0, 16, 0 + + 3, 4, 3, 4 - - FinalIndexDataSet + + 481, 461 - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu - My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE - ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi - bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s - VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw - BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh - bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl - bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF - eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA - Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs - dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz - cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z - CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA - AAAAAAAAPAEAAAAGDAAAAAhOw6RjaHN0ZQUIAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0H - AAAADUFsbG93SHRtbFRleHQESWNvbgxJbWFnZU9wdGlvbnMKTGVmdEluZGVudAhNYXhXaWR0aBJPd25l - ckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMA - AAATU3lzdGVtLkRyYXdpbmcuSWNvbgkAAAAoRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbUltYWdl - T3B0aW9ucwIAAAAICAECAAAAAfP////8////AgAAAAoJDgAAAAAAAAA8AQAAAAYPAAAAF07DpGNoc3Rl - IFNlaXRlIGFuemVpZ2VuBQsAAAAoRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9u - cwUAAAAISW1hZ2VVcmkMU3ZnSW1hZ2VTaXplCUFsaWdubWVudApJbWFnZUluZGV4E0ltYWdlVG9UZXh0 - RGlzdGFuY2UBBAQAABNTeXN0ZW0uRHJhd2luZy5TaXplCQAAACZEZXZFeHByZXNzLlV0aWxzLlRvb2xU - aXBJbWFnZUFsaWdubWVudAIAAAAICAIAAAAGEAAAAAAF7////xNTeXN0ZW0uRHJhd2luZy5TaXplAgAA - AAV3aWR0aAZoZWlnaHQAAAgICQAAAAAAAAAAAAAABe7///8mRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlw - SW1hZ2VBbGlnbm1lbnQBAAAAB3ZhbHVlX18ACAIAAAAAAAAA/////w4AAAABDgAAAAsAAAAJEAAAAAHt - ////7////wAAAAAAAAAAAez////u////AAAAAP////8OAAAACw== - + + 0 + + + DocumentViewerValidator + + + DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + SplitContainer1.Panel2 + + + 0 + + + SplitContainer1.Panel2 + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1 + + + 1 + + + 962, 461 - - 212, 22 + + 477 + + + 37 + + + SplitContainer1 + + + System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 0 + + + 17, 17 + + + 214, 17 + + + 411, 17 + + + 725, 17 + + + 887, 17 + + + 813, 56 + + + 278, 134 + + + 938, 95 + + + 17, 95 + + + 469, 95 + + + 569, 56 + + + 1051, 56 + + + 257, 95 + + + 675, 95 + + + 17, 134 + + + 681, 134 + + + Top - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu - My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE - ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi - bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s - VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw - BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh - bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl - bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF - eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA - Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs - dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz - cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z - CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA - AAAAAAAAPAEAAAAGDAAAABBEcnVja2VuIChTdHJnK1ApBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29s - VGlwSXRlbQcAAAANQWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdp - ZHRoEk93bmVyQWxsb3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRC - b29sZWFuAwAAABNTeXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ - dGVtSW1hZ2VPcHRpb25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAAN - RGF0ZWkgZHJ1Y2tlbgULAAAAKERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMF - AAAACEltYWdlVXJpDFN2Z0ltYWdlU2l6ZQlBbGlnbm1lbnQKSW1hZ2VJbmRleBNJbWFnZVRvVGV4dERp - c3RhbmNlAQQEAAATU3lzdGVtLkRyYXdpbmcuU2l6ZQkAAAAmRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlw - SW1hZ2VBbGlnbm1lbnQCAAAACAgCAAAABhAAAAAABe////8TU3lzdGVtLkRyYXdpbmcuU2l6ZQIAAAAF - d2lkdGgGaGVpZ2h0AAAICAkAAAAAAAAAAAAAAAXu////JkRldkV4cHJlc3MuVXRpbHMuVG9vbFRpcElt - YWdlQWxpZ25tZW50AQAAAAd2YWx1ZV9fAAgCAAAAAAAAAP////8OAAAAAQ4AAAALAAAACRAAAAAB7f// - /+////8AAAAAAAAAAAHs////7v///wAAAAD/////DgAAAAs= - + + 0, 0 - - 477 + + 962, 0 - - + + barDockControlTop - - MiddleLeft + + DevExpress.XtraBars.BarDockControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - BarManager1 + + $this - - TBPM_PROFILE_FILESTableAdapter + + 6 - - -1 + + Bottom - - -1 + + 0, 643 - - PdfFileSaveAsBarItem1 + + 962, 0 - - ToolStripButtonSearchesReload + + barDockControlBottom - - 962, 22 + + DevExpress.XtraBars.BarDockControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - + + $this - - Fill + + 5 - - TBPM_KONFIGURATIONBindingSource + + Left - - 156, 22 + + 0, 0 - - 22, 17 + + 0, 643 - - Segoe UI Symbol, 12pt, style=Bold + + barDockControlLeft DevExpress.XtraBars.BarDockControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - + $this - - PdfZoom500CheckItem2 - - - SplitContainer1 - - - DevExpress.XtraPdfViewer.Bars.PdfZoomOutBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - + + 3 - - + + Right 962, 0 - - DevExpress.XtraPdfViewer.Bars.PdfSetActualSizeZoomModeCheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 0, 643 - - -1 + + barDockControlRight - - ToolStripDropDownButton2 + + DevExpress.XtraBars.BarDockControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - PdfFindTextBarItem2 + + $this - - Magenta + + 4 - - DevExpress.XtraPdfViewer.Bars.PdfZoom125CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + True + + + 46 + + + 7, 17 - - 0, 643 + + 962, 643 - - Info + + Tahoma, 8.25pt, style=Bold - - frmValidator + + BarStaticItem1 - - -1 + + BarStaticItem1 - - 1 + + Datei öffnen - + - AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu - My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE - ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi - bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s - VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw - BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh - bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl - bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF - eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA - Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs - dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz - cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z - CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA - AAAAAAAAPAEAAAAGDAAAAA9GaW5kZW4gKFN0cmcrRikFCAAAABxEZXZFeHByZXNzLlV0aWxzLlRvb2xU - aXBJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25zCkxlZnRJbmRlbnQITWF4V2lk - dGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJlc3MuVXRpbHMuRGVmYXVsdEJv - b2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0 - ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAHz/////P///wIAAAAKCQ4AAAAAAAAAPAEAAAAGDwAAAAtU - ZXh0IHN1Y2hlbgULAAAAKERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMFAAAA - CEltYWdlVXJpDFN2Z0ltYWdlU2l6ZQlBbGlnbm1lbnQKSW1hZ2VJbmRleBNJbWFnZVRvVGV4dERpc3Rh - bmNlAQQEAAATU3lzdGVtLkRyYXdpbmcuU2l6ZQkAAAAmRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSW1h - Z2VBbGlnbm1lbnQCAAAACAgCAAAABhAAAAAABe////8TU3lzdGVtLkRyYXdpbmcuU2l6ZQIAAAAFd2lk - dGgGaGVpZ2h0AAAICAkAAAAAAAAAAAAAAAXu////JkRldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEltYWdl - QWxpZ25tZW50AQAAAAd2YWx1ZV9fAAgCAAAAAAAAAP////8OAAAAAQ4AAAALAAAACRAAAAAB7f///+// - //8AAAAAAAAAAAHs////7v///wAAAAD/////DgAAAAs= + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABV0RVh0VGl0 + bGUAVmlld01lcmdlZERhdGE7shxIswAAAkJJREFUOE+lkl9Ik2EUxjdnYg4Z6IUX0Y1dBEUQdrOQpEYy + K9LEQpTFxD+oTXMbXkT7xoKyzaitVrJkW0RXQbJagU5rG5ulEYEXgUIkmNYHBl4krWB/ejrv15avK696 + 4Afn/TjPc97348gA/BcbxYbkREEWBVFIbMvCavmWASZfJGLyR2H0RTDgDeP86Av03X2Oc54p9IyE0OkK + xqmtaKuAAqM/QuXfymQySKfTaHcGWaOK9RLSTfgABZuaL2acDMdhc9zE6bZ+1Ld2xk6caeulfvYkOR9Q + 2E9XZroXFeENf4YntIQLtwIwX3LiYWgWn9a+IxyfgUmwJ2sbWvqYhw8oYm/llUwmYR0i88QsyCvp7eJX + 3A9Oo/aUbpo8JXxAMftRTJ6pFdweX8K1sXk06Q3SZKYv335iZHIZLz+sU8DZH+RR8QHbu9zjUmNOiUQC + g8JlhGOvsErmOTEN98RH3HkUQc2xptf5Acp21zPJ6Hy6CPvYAmzeKIbMvTBevAL/4xhi79dhdgWgM1hS + VdVHLWwoH1Cqv/5ECkilUlgVVxBymREUmmGs16KjZwCaBh0Oak6+268+bKP+MkLBB6h0w4GseZnMJgSt + zXAcV+NNLApRFHHE4GKNVYSSmSUfF6BsFPwzLVbfn8l2MtfpLdAOjhJ+HOoanqO+ipwnP4DtffmNDu3V + B911EKp3r+0rL22lb3uIXUQlUUH8e5Wlw+8VVXXv3enQ7CirobqEkFsOVMp4Nnn4g7tRnQspJqRVzTdv + DoDsF67YQEGpdtFTAAAAAElFTkSuQmCC - - Magenta + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABV0RVh0VGl0 + bGUAVmlld01lcmdlZERhdGE7shxIswAABztJREFUWEedVwlMFGcUXvG+UOuBtba2sYfapDVpjCZNrVdU + FOuNVSmKqAgKaiyVxqgoHhiV+1LwaD2qFFCJqICCoiiHnCr3oSCLVEBYXGDPr+8NOwLLrqIv+XZ3dmbe + 973jf/+MBEA76FkXIzAxgK5vAZ/n+zrydfijxUQSvrkbobsOPQg9dehF6K1DH0JfQj8d+hNMdeDffJ79 + dOnA1+6g1Uw2h2THbT7xCE6MkEdwDMmGY3AWNhE2Hiccy4KDgEzYB2VgAyMwA3YB6VjP8E/DWobfQ6z2 + vH+XfLJADqg9Z7uDFuPouzHx+5pWBH1odFDTwRqfVHY+iP2yf7rknQK6O1HE72MisUiupg+1VgOVWgMb + nxR2PoT9sn+69J0CejgGdz4DHcjph1qthYoOFCRgtbcgYCj7Zf90+TsF9HQMbp+B03cqceq2VMCJ+AqE + xFUg+NZzHI8tR1BMGQKiy+B//Rl8r5XCJ6oUShKgVGnQrNJitVcyOx9G6JQA7v5em/QE6Jt+1BqOmtNO + ESs1BPpm8ialBtaegoDhhM4L4E43ZiJ57fVpqDwpQUWwBGXHJSgJkqDAX4Kn4dPQrNSiUaGBXKHGbx5J + 7PxjQqcF9HbQE3AiToqQW5T2m89xjNLOAqQhfFtHy/KQoJEiZ/LXzWpYHRUEjCDw/OAStxpdb0hAX17f + bU2MujXlQFXUbJQESJDvJ0GOtwTZnhKkH5UgN3TWG3JZkxorjz5g558QOiWAh0U/Hi6idSRvqTd3uYqa + TcHQ1buiqgZXYxPg7hMCB+c92LBtF5ZvcYeFpc3eqRZLv9b5bxVBvg0J6M+TjU0kPxYjdvsz+Om63ftq + CbwiS+BxpQhHLhVh7+l7cHINRNDZCMRnPkVaWSOyK5pwP7sY/qdCscR6Y5TFsjWTdRwtIphYhM74pKld + YLrBqIXIdVHzUmumpdakVFPk1fAI/AthMfeRUKpCaoUGj/9To6hajfJ6NQoq5Th3JRYLrDZETZ696Csd + TxdDAnhcmvIsb0teY6TjS8OnUq1ViIy+jaAzEbhbpsJDgVyLghotymVavGjQIPNZAx5XKnDA9yRmLbbe + QRy8mZkYEzCQBTC5GPXbOr5eroD9Di8h7alSIq/SorAGeFqnxXOZBoWUhWuZL/GgrAnnbqTAfInNHeIY + IHCRD0MCBq31S2uX8hdGOv7JxVmobWiGvfNuPKSaP35B6a7R4Okrir5ei9xqDZLLlDiZUIHreXJEpFdh + 7jLbWuIwI/QwJuAjW9pGxS7nWnOXt9Sb17cGr2mZNdASq5crUV0vx/qtO6nh5EK05ULkLeSJVJLYoiZ4 + UOOGZjfgXFIl5i5d84o4RhJ6GhLAO9Zg3kKFeS6Qa+ARWYyj1O2HLxXiUEQ+Dobl40BoHtz+eYLdZzKw + xtkdidTt3HBccxaSRJHHFikQmdOIfZdLcDZNBt+wREyftyKZON4qYIgNCeComZyjbp1sGshowNRT9HWN + KlQ3KCCtluHUhcvCUpPK1JR+FTKlSsQXNwvkF7Ia4BpRhBMp9di61weTpll4EweXoLsxAUN5C20SyYlY + SDtPNiYn4jq5imqvQGXtaxSUluPMfgc42PyK87TUHlG3J1HDRec14l9KO0e+M6wIewIuYsocy+RRX46b + QRzchF31BfBwYAHDVnmRACLlyDnqQ+Gc9jzsD83Fvou52HP+EXb+nYE//G/C224mwl1mwu/3xbCzWiIs + tbPU7dxwXHNO+9Y9PphsviR97PiJ68g/b0wtY9mAAN6xzFZ5JQlRyylibjae6Rz5KyHtzZDWNCA7KxNn + t85A8hlnxAfY4pTdD/BwssTOA56wdfwTi6wdsNDKDjOW2mP8pKmhIz4bvZB8c+35IZX3nA6TUBQw3Jq2 + UKHTOe1EKpBT2qtlVHMif5yTj/PbZqLwpi9yovbh0g7KgPVERMXEIyE1G3eSsxB7NxXRCSmY7nSanU8l + MDk/RTO5wVEslsDMigTUUI2rZc14Saiqo6hr5Xj2og5ZucU45/wLnkS6ozjOEzEH58N35fcIjbiCu+l5 + eJj/HGkFUqTkliPpSRnm7brOzscR+BGdR3Cr6QlgEyah5f6bCSuP3McKwvLDiQKWud/BItcbcLG1ROKx + DSi4sR/X3ObCbcG3MF93CHNcwjDfNQYL3OKxkLBgbxzmu8XB3CX8Afnk5wHhgYTQam0F6ERwerhB+DGa + m+VTwijC54QxVhMGO13cMgk5V1wQsX0KXKcPLTTr19Wazv1I+I4wlvBNG4wmsJ837wXtzIAANhbBmWDF + 4lsQN84Qj/kjk+8FWuPk6nHYPnlwtGlPk5/o/y8Igwn8VsTXtQXXnP20bsFtTV+ACJ3xDSLYQR+LcaYT + DpmbpViNH7CJjscQ+HGbBYoExmDYDJEbAhk74axwlEzKLxr8m5vW5MDPAyX66JQZIjMGMhbBkTKpQKz7 + 78PNENG7QCaktc3xB5pE8j85qMlvq3bZ3AAAAABJRU5ErkJggg== + - - Anzahl Dateien: + + Info - - 0, 0 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAJxJREFUOE+t + k+ENQDAUhDuKafyzlN9MYQkbWEdiAO5rNEEOlZJ8Cb17l77XCk07XqlFLyYx7/DOGtrJf/yoRCcWsd6A + hgfvKYCFQbgiB94YkgJIdcYnqIkB9GW3rSeA0wQ1NSLDcYa3AOgRmbATc5gI4JicmLOD+ZeA2xYyAmIL + xUMsPkYoukhQfJVTCKm2nR00PLEYjgGJD7/zGDZMp1TRLvGgqwAAAABJRU5ErkJggg== + - - DevExpress.XtraPdfViewer.Bars.PdfZoom150CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAahJREFUWEfN + lz1SwzAQhcMRSMXkCpyFPkeggg5aJjWTmqNQ5AoU3CC3yFCZ/TzejGQ/WZKNxxRfxuPs232RVj/ZNE2z + Ku3Hw+GzhJ2xN47GyTgblw6eecd3xBCrckSUGrg33oxvoymEWDRoVc6WnIEb49H4MlSREtCSg1yDGmMG + 7ox3QyWdArnIGdVJGSDww1CJ5kDOyIQywFCV/PIf48nYGrfdM+9UbAi5r9OhDDBfStjnGV2IvXvtxaSg + hjRAx5Y23DYs3uVgNFRsH2q0qwNdaIBlowSKOQaAWpEBNo6ada6m4KUXMwa1duhczO6lAlN4E9KANU0Y + sg8NsIWqoCU5hgbYx1XQkpxCAxwmKigJuhAVk+GMzsWcaCooiRd2VEyGC7p/Y2D1KahuQi/sqJgMURNW + L0Mv7KiYDNEyrN2ITDbbQLQR1W7FJptlYLAVQ81hZLJZBgaHEdQcxyabbCB5HEPphcRkkw0kLyRQeiWb + SvZKBqteSh0C/3IkyBUVhzEDwFAxX8WNKUBLjuuwh+QMOHQsy6ZmnyAWTdvtKUoNOMv9OV2PZvMLsfKg + vDjYoZ0AAAAASUVORK5CYII= + - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + Eigenschaften - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACR0RVh0VGl0 + bGUARG9jdW1lbnRQcm9wZXJ0aWVzO1Byb3BlcnRpZXM7NlalgwAAA0ZJREFUOE99k3swlFEYxpdNlExT + f6UyI11UpIyprXamErVUssoyXWwtacvSWrdBtN00iq66mJiRpi1DSozRVkqUxUZiEmLQRsUOacOS3adz + rOqf6pl55n3nzPd7zjnv932M/8iI2JiYOd7/W/HJdxmHk3Jo+wsyDj92gx916jYiT8hwKD59D1mjQb9s + JI5PZ4hi0khrkJE3P9IiKkH2LOL4TZng0Gm70KMZ+XXvOvCmoR0hcWkFPEGMXVD0tVtBMamKleu8plFG + GHXVQBMZhx/PLG5s7YSytgUnL+XqxNIMnVb7A739AxDFXtdJk2SjL5XvxgL3SS6UEsbEX3zRQBMxQ+LS + s5VvWqAZ1EIzoEXHxx78GNVB3atBfeMHaIdHMDA0jAJ5BTjbJXmEMfELSjbQREyeINZBmpyl6/8+CHWf + Bt2938bqp56v6OruI7UP7Z1q7Bae1C1jeawizETiseEy9wYn7QmQXCgURlzWq7rU+Kz+iuLSGggOJiAw + JBGlijq0fVSj8nUTdgSe0nH5cXJ37zCB9TxHMxpgui88BVU1TfimGcTg0Ag6yY4evlFwYvvwWM47ffwO + JqLrSx+Uda0oq2rEg4cKeO46AsJOoQFme0POQvGqEZ2fe9He1YNWVTd8/aVY7eLHX+sewBdGpJAT9KCk + ogHF5fVIk8mx2TeaBljQgAlr3AJFazcfeOwTkKCvICd526xC0dNq+IvPQRh5GfKSWtSTtdyiCqxzDwLL + 2a/UgeUlIawpDaCDMHVie67YH3p+tI3sXl7djDJyovomFZrbP6G2oQPysjoUPKmGu3eo3srGyZkwk4np + RzcmUzdeWM6deyV4+16FR+Th2/efo6jkNQqf1iAj+wnuyauQ+7AS0tMZWOzokU+YybZLtxhoIjPOtrDK + PLkCSVeywPEMhitXos97VIXswnKw1gv0HK5IH5uQjsSULNgu2aQkjPlce46BJmLOmG0703mLSGG3nFsw + y3rZBvbGgBepmYU4cyUHS5ZzX1paObgtsN/4YL69W43FVEsbwkyYs8jVQK/fKqaF/iT0XtTmjqt5Yjbn + ANiuQsy1cwkla/SVmY9XE2Ij64XjAX8RHewk4unjpv3vgf0Rg/ETmVy1UwLUO6MAAAAASUVORK5CYII= + - - -1 + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wgAADsIBFShKgAAAACR0RVh0VGl0bGUARG9jdW1lbnRQcm9wZXJ0aWVzO1Byb3BlcnRpZXM7NlalgwAA + BvdJREFUWEfFVwlQlVUU/jG1xcqWmZpsWqZSc6tsGaeccbIMsXRwIZeyKVHDjfGhQGApiOCugPtOqJip + gErIIhiyC4qKSSwuIILLez6W93grj69z7uP9vPI30GmmM/PNPe/w3vm+e8+991wkAP8r7g60mUsrOhEe + ugc6K4Dj/Lt/NZnPmVwEyNZF56ZH7s4FjYhkROVgXZR9jCDYx2xE7MpG+M5srKVx7c4sgeA1x0IoBQth + 4S4hkWlSSESqtJjgbDKfM7kIkDFpe2Y2W6E3mFHfYMAtTSMqq7UoLL6O9JwKBCyLX0JpuhCEiJLym3Ju + h/FnEXM4coAsIjqHXMBqa4HVaqPRBou1RcBMnxkGoxW6JjO0DUbcUOtwqeoOVm0/iZYW4GhaCVTBB0Mp + VVeCEOHI7TD+LGIORw6Q8dKyWYiI4SA1W0iAxQZTKwxGMxr1ZqjvNOFylRqhG9OEAJ3BivjUPzAjcG8Y + pXuYcNe+kPkcjhwgC6dasjGhhYjs5HZSMZptMFIJTK1l0NQbUFGlwcLVx4QAA/2dRRxKPA9Pn11LKeUj + hL+JkPkcjhwgW9MqwJmQfSOPreQMA8NkxR3aBxVX1fANOywEcKn4uzpDM/YfLcLXszbfJULmczhygGw1 + 1ZKNZ8jgZEaLnVQQE6kDepMFdY1GlF/VwHvRQfE7FtFsIyHNLKQZ++ILMH5aJItw7Ik2PocjB8hWbbML + +NtMSYSd1CJGndFCMzQTLGIjXqnR4qeVR/H9DzGY5rcX03z3Yup8xh4qxVkqTxInf4zAq9DG53DkANmK + rRnkkgCnmYpVuAc09XrU3G5AGZWhqOQ6Tp2vRF5RJTILruBEXgUy8y85BDxBaF/Ass2/k0ubiYj1LKB1 + tg1NJkUBjOparYxrtXXiXrh8TYuyK2o6IRosWJHIyZ8k8CXVxudw5ABZ2KZ0UBkFuZ7IlQjvB7c0OgSs + SODk3QlCgGxKAkLXt55nIm+kGislvR9o6ZT4hwkBTxHaFxASeVwIUEr2IGjQGeG75DAnf5rQOTHMTTq5 + cqjgUhQQHJ7y3wrQmzB/SRwnf4bQ2XXsIulYyDDBpSggaG0SCbBfJg8Cg6kZTdQr9FQ+9rln+ATHcvJn + CV2GjQmSRo4PElyKAvjI3K8ABykj93Q5/Jfug9+SGGQVlNIe0MN74a+c/HkCX0Yubh7ctcmUBATSkbF1 + UAAT8ybbtPs4dh/KpCN3C1v2Hkfxn1U4X1KJTdHJuFhWidmBO+Hlv+F0v4FDniOKTm4eiwWXooCA5b/B + Rq1YifCf4Blv/DkZpZdrUHjuEkLXxUIVFAUTHWFtQxPmLNiG4NUxyCn8UwiaqgrPIoquHhMDBZeiAP+l + RzosgOu8PSYNhecv0WVlonqbUHVdDSs1A41Whwul16ifWEioGQkp+XAdO/coUXQ95P2+4FIU4Bcaf18C + ymj2Qav30243QFOnw21toxhvqOtRe7uORroZazSY7BVq6/+u6xCi4DeCvTUrCZi3OI66WfsCmPxEdjHW + bImHl+8GuoY1uKmpR3pmEabMDMN07+XIzCvG1esanDpbhknTl9rcJy847jZO5fnqGwO5PSsLUAXFdkhA + faMB0+avR0FRGRp1BtEzamjGoyb4IzElB8dSc/HNzOWovVVH78XL4kQcSc6D+9eLmOhxQaYgwGXuwkMd + ElBHm+w77zXIO12KmptaVNZS46m+jQmeQTiSmImE5GxamfW0Ampk5JcgPfcC7ZcUfDEhgIm4MyoLmPPT + AbGJlEidwRfMr3HpUAWGY/zUMOTTSlwsr0bSiTPwnLsWXn4bkJJxDhcoFpuUj49HzMKgod9kvjVojA/x + 8D5QFjArsGMC+A7gMpw5VwovnwhcpdnnnilHFq3IhbJqlFfewLmSKqRkFSMh7QxGeKhaXnrtPW4C/DAR + LyMlAdKMgF/oOWV/ATWJlmwHvwkaadZ11Fzu1DdBTTu9+gY9RpftwC9xGbhYUY1UItsXfxJJGWeReKII + UQfSEJdSgNjkUwhaEYW+A0fxMWQBbC6KArz89yV97x+D6X4EX3piEab67hFPLE96YnnO202v3WhMIUye + sw0jJ/6Iwyl5WLVxP4a7z8Gw0T44nFqAA4m5GPTJFAwfPRsLwnZg+fr96D3g80Ki6CaI7iXAyfistofO + z/fo+eLQkbPz+n0wOqHHK2+7fvSZZ86W6ESs3HgQAz4YnfPiywNG9OrveqRnf7eiJ7q/8Br/Rv79PwXc + C86266u+0s5JfaUdE/pIHw3+lkP8zuNlZXR750MP1eDhMzB4mBde7/epimJ85HjWPPK/bG0TUCJTgrNt + H99H2vblm9LWcb2lrWN7SZvHENx7SZvce/KfOfGjBG693P/Z76SQi74nSX8BeVG3UOpFZ3YAAAAASUVO + RK5CYII= + - - DevExpress.XtraPdfViewer.Bars.PdfZoom200CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + Neu laden - - PdfZoom25CheckItem2 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA1dEVYdFRpdGxlAEFycm93O1JlY3VycmVuY2U7UmVm + cmVzaDtVcGRhdGU7UmVsb2FkO0V4Y2hhbmdlhrRdSAAAALlJREFUOE+lksENgzAMRVkEdQhOSJmnZyZg + pt56ZIwee2cJ93/LRiQ4kIpID4y//RXidCJyizD5D1uQUnJ6MIE3WA3GzFHzujkyGMELSAVqrJn5XRrQ + 3ZsX8AQPgzFz1D72Phhwi948eN40MoAv0GZCTQtqqzDQbe/ZDK6Imgk1LziIQE/5Cn1EzSAvDFbNgAfF + A8sMLOeTmDxfGviIzsbIUfeRAbfdepG0b2+g/2w0XeXM4A5hsh3pfngbEtI9NQFmAAAAAElFTkSuQmCC + - - Verkleinern + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA1dEVYdFRpdGxlAEFycm93O1JlY3VycmVuY2U7UmVm + cmVzaDtVcGRhdGU7UmVsb2FkO0V4Y2hhbmdlhrRdSAAAAbFJREFUWEfFljFOw0AQRXMAJK6TwtwkJ6Ak + TWhyDk5BlQJuQscRqJDozH/W2poZj2MLm03xJO/4//mOd7PeXdu2NyUt1iQt1iQt1mRUaJrmGntxEq/i + Q3wXuKbGPTSZtyPmjQqZSTyIF/El2hnQoMWT9TrbPBcOieFR8AuzsGvgwWt7nYVilj/As/gRWcAS8NJj + CAeb58KhiIGnz8LfxZNgru8LXFPjXtTT42JrNs+FgwTA/MXX/imO4i56erhXNGit12E9rgFIACwia6Lh + IWoj0vQcisf2GLAe1wAk4HXG1X6MugzpLG/C9hiwHtcAJOC/bA3M6+Rrt0jXMyy4DOtxDdai5rPhYD2u + wVrUfDYcrMc1uAVpsSZukL2uBLeXr8UNkrAIc+w8a3GDEBbpwsF6ppCOXTFuzaeoc4MgtrCpdOFgPVNI + x5Zse7C57aPODYLB0m3FYtEDFG3citneR1o3CIYIDf/6MeLD1h1QoscNjAH4hG71OR4OJjYP3KAYoF9w + Wx5IFj/AsNoLWx7JXB64gQQxvGezQ6nNg1EhMxmY6/89ltcmLdYkLdYkLdaj3f0Cj5M+ApfcyL4AAAAA + SUVORK5CYII= + - - tsslbl_State + + Suchen aktualisieren - - PdfSetActualSizeZoomModeCheckItem2 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAndEVYdFRpdGxlAFJlZnJlc2g7UmVwZWF0O0JhcnM7 + UmliYm9uO1JlbG9hZM1N9ukAAADSSURBVDhPpZKxDcJAEASNRAE0YNGBc4qwyEjIHSJHkNMEJZCSmYx+ + aOLZff2eTugegQlGOu3e7b9936SU/iIUf8GK/nwXLRjBBJ4F1tTo5b5awAIcQKpwAxsQBqxADxhyAgNY + F1g/gELaKGBfGhhiuvM7oJBRukwO6Zo5RA0e6LwJ/UlaNCwsJPCMjyaHj9fLEnX1EH89roriIM3D5uLb + MHXfwD3T4I/qpDvfh9jn+QY+Eq5IIe9r3AGF2JwPIHwkConYgtxbCyDznvJcQvF7UvMC/+yHWnrFMzsA + AAAASUVORK5CYII= + - - Right + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAndEVYdFRpdGxlAFJlZnJlc2g7UmVwZWF0O0JhcnM7 + UmliYm9uO1JlbG9hZM1N9ukAAAHOSURBVFhHxZY9TsNQEIRTBJp0SBQoFBQg5QTQJSfwVVLSJkJCHAFu + 4APQcIB01KkoKLgCvZlB3mjfZl7sEPFSfEo8b3Z35L/nQdM0R0WKJZFiSaRYEimWRIo5qoe3CZiDGqzB + dwv/U+PaRNXmkGIETcdgCT5A0wE99I5Vr4gUPWh0C15BHNQFa6aqp0eKBhqQC/AJ1JAuVmBnCCkSFJKq + /b0CFuIdLMAMnLXwPzWuxRA8E9nLIUWCIg5nAx/iEdwoP+EaeAExxFL5yZZwXz8PUWDDDQtxEv0ReEYg + huCNKZ+O5ADDz2GMw43Ke3cBL89EvBxz5U0OYMoNN/YJwXvC19bKt/kDQ9dwo1cI+Hhj+rq18pm573Aj + CcHjsN6X6qDiA0P81m8aeLDId7s3z5QvAt/el3GrCYGBG4svWCifAt6uEMmZS4oNmLir+SI+UtkXUATe + XIiKj7r3JoUGjNx2487Hl8tI+T3wnAIVgsOH0Z8ceFDALdU3IAzR9Sp+AtfAh0hOu0eKBEX8BlDbcJ/N + 6Av4EHIGkaKBwinglhpD9IEhLoHsbUjRgwYM8dcPkjvV0yPFCBod75PMg6bH+Sj9T6RYEimWRIolkWI5 + msEP/+Ty+jngCqIAAAAASUVORK5CYII= + - - Top + + Datei überspringen - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAEZvcndhcmQ7TmV4dOtv9uEAAAEC + SURBVDhPpZMhDsJAEEXrQVUgICEYBDcgmKLquAIG7kGCBo9HcgEsqkFxAxwkGFIJqvxHts10KSQN4iXT + /X9+d2fbYLLc+8RiLRKROqhZQyv57UNPrMRBLEQkQgc1a2h48JYCWNiKjehnWRZUgeY8eN8heQCpCI2q + Rgse56XnHcC52FrxZtUz8RCZOIqWF8JO6Il5YDgLa3CmobgIQs5i4OnMZE3BhCMrGlPb6YTcxdhoDDah + 4JpCI2D+xlNMnY/bSesGMJePgF9H6AiGSPNNjIxWHOHbEEfiKmg+ia6nF0Osusa5yK9xJ5pec+ka4a8P + Cf7+lPMQUtla7Z/JUuN33gcvikpCVBUd29sAAAAASUVORK5CYII= + - - Top, Left, Right + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAEZvcndhcmQ7TmV4dOtv9uEAAAJm + SURBVFhHxZe/Sh1BFMa1EkvRoAjp7OxSpksZ0CZIkKSwSSApLHwCg7VY+wq+gaBvIOYfhJAiYGdhkSIQ + SdBsvt8yX5i7OXvvZC/eLX6Xu+d858zszpkzu1NVVfVK/bO+d1zCstgUB+JUXIjrBP+x4UODNsoxQOkE + VsUb8UFUhaAlhtgoZ82oCUyLV+JckPS3OBG7Yk2siNkE/7HhQ4OWGGLJQa5/xhg2gSWxL3xHR+IJ2hLQ + phjHk4ucA+OgdUAOwkNB4FexI2byAUogJsWSg1zkHJgEOosNj8p3/k5s5Em7QI6Uy0/i73Lgt8iwXr7z + sQc35Eo5yc0Y4QSoWBfcTp4gR7774kvSmZ9iPdIb+VkOtIxR7w7sdgLbBgHFM3TN5Weff076fBKthSof + NeHCZKzabicJ2btsn6Jql25RfBL5JH6Jp5Ee5GN3MAZjLWOzg+5FgpM8YBTS3xPvU6y5Ec8iPchHn0C3 + ybWNtFCMu7m4BMXMi7cpPp/EVoueZoXmgGsb6eMY13JxKYqbE2cph7kVLwItHRP/Kdc2cphgXGmI84Rd + YL1fN3LStvFdcG0jJxrG2YY4T9YVJrGd5eTswH7N9SQmQD28zHKGE7irJWDw542c4RKMW4TRTggbk2xh + EY67DX3YmB/icYs+3IZdG9GCaA7+XTyK9CBf2Ii6tOKoC34TDyM9yNfaiuF/DqNo8CvxINKDfEMPIyg9 + jhn8Y9KZS7Ea6Y38I49j6PWFBHp/JYNeX0oNQj8JoHgm9lpueFSslwuT7TOxD5McKpZtw971HY0CLTF1 + tbdROgFzdx+n/VFN/QGBB9aBYCiYpwAAAABJRU5ErkJggg== + - - -1 + + Löschen - - Eigenschaften + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAApdEVYdFRpdGxlAFJlbW92ZTtEZWxldGU7QmFycztS + aWJib247U3RhbmRhcmQ7Y1ZIMAAAAMJJREFUOE+Nk0sKAjEQRHM4YVZ6CS8gfhBGHK/pSRRXbRWkJOlO + q4sHSf0YBlLMrNy3qzWYef4HZC/s8KzyCxi4+rAHmVvNsrOhcKqCSEfgqSz2Ms7OCCPQfPlIvQ2kIzgP + y+QzUIN+ZAFpmXQDBAE/0tKVSXcRCI5GQpkEgSDsP5sso2wQEByVRRjpLgj48gGEH9t2vpYbLx35WRbQ + hiM0+DBaI5QFPD8yU5zAowppWSCjkSeYJHJk58MZyPIBTmZW3tJAnMwmSptiAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAApdEVYdFRpdGxlAFJlbW92ZTtEZWxldGU7QmFycztS + aWJib247U3RhbmRhcmQ7Y1ZIMAAAAW5JREFUWEfFlk1KBDEUhGfmAg56JTcuHEGP4FFFFMVZz1Vcxaom + D57pek1ehLj4FilSP9Dd0LtSyr8ixZlIcSZSvDzf/okm6+DPLVKsQVfgBdzVczcu5x68gqPP90gRBpZ/ + gAK+QWpEzWA5vcz4BHLESsDFA+BqGo3sCF9uMHPf9v06GLj4BNqA3hGqnOcH1bUSCC6Tx2psg7ZGpMqJ + FGEwMiPS5USKMHl6RgyVEynC2LI1YricSBFmRTRiuJxIEQERaoQnVU6kiJAtohFLOZCZEVJkyAbqmduA + 5cVUmRFSZEhAVG4sI1RmhBQRoojedqV1j5AiAnrL+czDT1Rlt0gR5t5yuzM8QoowZsqNoRFShIlE5Sfg + iz3pEVKEYaTcSI1YCbi4B2/V6AN6yg014h10/5Bcg69qzJZbhh9xBjdtD1kJBJcJR3B1qpy4HI5ghiwn + UrQgwP9Df+6iycr/ls9EijOR4kykOBMpzqPsfgDZ5w1jF/MagwAAAABJRU5ErkJggg== + - - System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Annotationen - - -1 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAFN0YXR1cztGbGFnO4MAHmMAAACg + SURBVDhP5c+xCQJBFATQRdNrwMAeBOsQ7MPAzAo29kJLuNwyDosQLMDA0OA7Iztyfw8WdlODxx2fmYEN + ZubEGO00XAJcYZ3+Z5R3ZZoM8PuCIyzTrXpAbrCF5gF6wxk6+OVdmQoDcoed8i0DD9grXzPAJ/TQ9IQR + NsD7l/KuTNnAEw6wSLeqgQFWKuSUd2WaDBQp78rEgfxWMjv83YCFD5Unnnyt/ObUAAAAAElFTkSuQmCC + - - ToolStrip1 + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAFN0YXR1cztGbGFnO4MAHmMAAAEL + SURBVFhH7daxTcNAGMVxFyg1BVMwSVrWSItETeEBaKKMkBFQBqFiBAoGoDi+J/nQ093flh0gp0gufkr0 + indPzkVJl1JqCsNLwtD1fZ/k6Xjowmu4H94vQt2CoSsG6PUr7MPdkM1C3YKhgwHZZ3gMm1AdWKJuwdBN + DMjew0OoDnXULRi6GQOyUxi9H9QtGLoFA2T0flC3YOgWDsiq+0HdgqE7c0D2cz+oWzB0vxyQPVO3YOiu + 9Qk0uwNNvwWTvxPULRi6GQPewjZUhzrqFgzdxICPsAs3oTqwRN2CoYMB+pxfwu2QzULdgqErBjT/P3A2 + 6hYMXR5Q5n8FQ7cOWAesA9YBzQf8NwwvJ3XffqLn3Fz4CFYAAAAASUVORK5CYII= + - - DevExpress.XtraBars.BarAndDockingController, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarStaticItem1 - - Magenta + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAJlJREFUOE+t + k9EJgDAQQzuKg/Tb6XQKh3EdwQE0r7SgErVShQe2yQXvWkOM8UovRjGLJcM7e2gn/3HRiUGsYrsBDQ/e + UwAbk3BFDrwppASQ6oxPUJMC6Mt+tp4AThPU9IgMxxneAmBEZMJOrAmYETkmJ9YELL8E3LZQQWqheYjN + xwhNFwmar3IJIdW2k0HDk4rhGFD48DvHsANkuY1Mp0kAqQAAAABJRU5ErkJggg== + - - Zusätzliche Suchen aktualisieren + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAVxJREFUWEfF + l7FxwzAMRT2Bq4yjPp1nyAAZxNu4dZkt0rnLCm4ZPF+gg5LPCLJko3h3Ovn/T5gCSWnXWitF3nwm48Uw + DHPsjYNxNM7Gxbj+wDX3+A0NWpUxsqSAF+Pd+DBaErR48KrMdAGvxslQg2TAS8af7EwBb8anoYKXQAZZ + k/y5AjB8GSrwHsiaFPFfAUzZFv/8N2SOj6NXAE2z5pnPQfatMXsF0LnKuCWMIQtg7aaXmvuCX+oEjLF3 + XwxgA1EGifuCX+o6HNwXA9jFlFjivuCXug5H98UAtlIllrgv+KWuw9l9MYD9XIkl7gt+qetwcV8M4FBR + Yon7gl/qOlzdFwPKCyh/BOVNWL4MF21EK5EbUflWDOnDyH3BL3WC7mEE5ccxlL6QOKWvZA6GLWaCjMng + kCkAmLI1PYF3nPZItgCgaejc9BI10OK5NZxiSQHOYz/NqpA3n0fbfQM/tJcKTygMggAAAABJRU5ErkJg + gg== + - - 3 + + Tahoma, 11.25pt - - 3 + + BarStaticItem2 - - 481, 593 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAJxJREFUOE+t + k+ENQDAUhDuKafyzlN9MYQkbWEdiAO5rNEEOlZJ8Cb17l77XCk07XqlFLyYx7/DOGtrJf/yoRCcWsd6A + hgfvKYCFQbgiB94YkgJIdcYnqIkB9GW3rSeA0wQ1NSLDcYa3AOgRmbATc5gI4JicmLOD+ZeA2xYyAmIL + xUMsPkYoukhQfJVTCKm2nR00PLEYjgGJD7/zGDZMp1TRLvGgqwAAAABJRU5ErkJggg== + - - Finden + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAahJREFUWEfN + lz1SwzAQhcMRSMXkCpyFPkeggg5aJjWTmqNQ5AoU3CC3yFCZ/TzejGQ/WZKNxxRfxuPs232RVj/ZNE2z + Ku3Hw+GzhJ2xN47GyTgblw6eecd3xBCrckSUGrg33oxvoymEWDRoVc6WnIEb49H4MlSREtCSg1yDGmMG + 7ox3QyWdArnIGdVJGSDww1CJ5kDOyIQywFCV/PIf48nYGrfdM+9UbAi5r9OhDDBfStjnGV2IvXvtxaSg + hjRAx5Y23DYs3uVgNFRsH2q0qwNdaIBlowSKOQaAWpEBNo6ada6m4KUXMwa1duhczO6lAlN4E9KANU0Y + sg8NsIWqoCU5hgbYx1XQkpxCAxwmKigJuhAVk+GMzsWcaCooiRd2VEyGC7p/Y2D1KahuQi/sqJgMURNW + L0Mv7KiYDNEyrN2ITDbbQLQR1W7FJptlYLAVQ81hZLJZBgaHEdQcxyabbCB5HEPphcRkkw0kLyRQeiWb + SvZKBqteSh0C/3IkyBUVhzEDwFAxX8WNKUBLjuuwh+QMOHQsy6ZmnyAWTdvtKUoNOMv9OV2PZvMLsfKg + vDjYoZ0AAAAASUVORK5CYII= + - - SplitContainer1.Panel2 + + Tahoma, 9.75pt - - -1 + + 0, 0 - - SplitContainer1 + + Datei - - DevExpress.XtraBars.BarAndDockingController, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + Aktionen - - + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAVxJREFUWEfF + l7FxwzAMRT2Bq4yjPp1nyAAZxNu4dZkt0rnLCm4ZPF+gg5LPCLJko3h3Ovn/T5gCSWnXWitF3nwm48Uw + DHPsjYNxNM7Gxbj+wDX3+A0NWpUxsqSAF+Pd+DBaErR48KrMdAGvxslQg2TAS8af7EwBb8anoYKXQAZZ + k/y5AjB8GSrwHsiaFPFfAUzZFv/8N2SOj6NXAE2z5pnPQfatMXsF0LnKuCWMIQtg7aaXmvuCX+oEjLF3 + XwxgA1EGifuCX+o6HNwXA9jFlFjivuCXug5H98UAtlIllrgv+KWuw9l9MYD9XIkl7gt+qetwcV8M4FBR + Yon7gl/qOlzdFwPKCyh/BOVNWL4MF21EK5EbUflWDOnDyH3BL3WC7mEE5ccxlL6QOKWvZA6GLWaCjMng + kCkAmLI1PYF3nPZItgCgaejc9BI10OK5NZxiSQHOYz/NqpA3n0fbfQM/tJcKTygMggAAAABJRU5ErkJg + gg== + - - TBPM_PROFILE_FINAL_INDEXINGTableAdapter + + Information - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Menü - - + + 962, 158 - - + + 0, 619 - - -1 + + 962, 24 - - TBPM_PROFILE_FILESBindingSource + + RibbonStatusBar1 - - PdfFilePrintBarItem2 + + DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DevExpress.XtraPdfViewer.Bars.PdfBarController, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + $this - - DocumentViewer1 + + 2 - - 125 % + + RibbonControl1 - - PdfZoomOutBarItem2 + + DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 0, 28 + + $this - - TBPM_CONTROL_TABLETableAdapter + + 1 + + + Segoe UI, 9.75pt - + AAABAAEAMDAAAAEAIACoJQAAFgAAACgAAAAwAAAAYAAAAAEAIAAAAAAAgCUAABMLAAATCwAAAAAAAAAA AAAxJKXfMSSl8jEkpe4uIqHuMCSk7lhC3e5eSOfuWELe7llD3+5ZQ9/uWUPf7llD3+5ZQ9/uWUPf7llD @@ -775,890 +1069,722 @@ AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAA= - - - - 106, 22 - - - PdfBarController2 - - - DevExpress.XtraPdfViewer.Bars.PdfZoom75CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - - - - -1 - - - 105, 22 - - - -1 - - - 2 - - - -1 - - - Panel1 - - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - - DevExpress.XtraPdfViewer.Bars.PdfZoom100CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - 3, 4, 3, 4 - - - MiddleLeft - - - TBPM_KONFIGURATIONTableAdapter - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu - My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE - ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi - bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s - VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw - BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh - bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl - bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF - eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA - Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs - dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz - cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z - CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA - AAAAAAAAPAEAAAAGDAAAAAlWb3JoZXJpZ2UFCAAAABxEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVt - BwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25zCkxlZnRJbmRlbnQITWF4V2lkdGgST3du - ZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJlc3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4D - AAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFn - ZU9wdGlvbnMCAAAACAgBAgAAAAHz/////P///wIAAAAKCQ4AAAAAAAAAPAEAAAAGDwAAABlWb3JoZXJp - Z2UgU2VpdGUgYW56ZWlnZW4uBQsAAAAoRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0 - aW9ucwUAAAAISW1hZ2VVcmkMU3ZnSW1hZ2VTaXplCUFsaWdubWVudApJbWFnZUluZGV4E0ltYWdlVG9U - ZXh0RGlzdGFuY2UBBAQAABNTeXN0ZW0uRHJhd2luZy5TaXplCQAAACZEZXZFeHByZXNzLlV0aWxzLlRv - b2xUaXBJbWFnZUFsaWdubWVudAIAAAAICAIAAAAGEAAAAAAF7////xNTeXN0ZW0uRHJhd2luZy5TaXpl - AgAAAAV3aWR0aAZoZWlnaHQAAAgICQAAAAAAAAAAAAAABe7///8mRGV2RXhwcmVzcy5VdGlscy5Ub29s - VGlwSW1hZ2VBbGlnbm1lbnQBAAAAB3ZhbHVlX18ACAIAAAAAAAAA/////w4AAAABDgAAAAsAAAAJEAAA - AAHt////7////wAAAAAAAAAAAez////u////AAAAAP////8OAAAACw== - - - - -1 - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - No - - - Bottom - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - DevExpress.XtraPdfViewer.Bars.PdfZoom500CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DevExpress.XtraPdfViewer.Bars.PdfNextPageBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - - - - -1 - - - 1 - - - DevExpress.XtraBars.BarDockControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - - - - PdfZoom200CheckItem2 - - - btnSave - - - pnldesigner - - - PdfFileOpenBarItem1 - - - DESCRIPTIONLabel - - - -1 - - - - - - 0, 0 - - - TBDD_CONNECTIONBindingSource - - - TITLELabel1 - - - Validierung speichern - Nächstes Dokument - - - -1 - - - -1 - - - - - - -1 - - - Magenta - - - 67, 22 - - - - - - DevExpress.XtraPdfViewer.Bars.PdfPreviousPageBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - sichtbare einpassen - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 0 - - - PdfZoom50CheckItem2 - - - 4 - - - 3, 4 - - - DevExpress.XtraPdfViewer.Bars.PdfBarController, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButtonDeleteFile - - - - - - - - - $this - - - -1 - - - 0, 0 - - - 1 - - - DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - System.Windows.Forms.ToolStripDropDownButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 10% - - - -1 - - - - - - System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - DevExpress.XtraPdfViewer.Bars.PdfZoom10CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DevExpress.XtraPdfViewer.Bars.PdfZoomInBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - 200 % - - - 50% - - - DevExpress.XtraPdfViewer.Bars.PdfExactZoomListBarSubItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DevExpress.XtraPdfViewer.Bars.PdfZoom25CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - 0, 0 - - - -1 - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - - DevExpress.XtraPdfViewer.Bars.PdfSetFitWidthZoomModeCheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Datei öffnen - - - -1 - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 0, 643 - - - BarAndDockingController2 - - - DateiÖffnenToolStripMenuItem1 - - - ToolStripButton1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBPM_PROFILETableAdapter - - - Datei - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - - DevExpress.XtraPdfViewer.Bars.PdfFileOpenBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - 3, 4, 3, 4 - - - DD_DMSLiteDataSet - - - Annotationen - - - BarAndDockingController1 - - - -1 + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAA= + - - -1 + + + 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 + - - 11 + + 3, 4, 3, 4 - - Nächste + + frmValidator - - DD_PM_WINDREAM.FinalIndexDataSet, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + BarAndDockingController3 - - 18 + + DevExpress.XtraBars.BarAndDockingController, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - PdfZoom125CheckItem2 + + BarAndDockingController2 - - DevExpress.XtraBars.BarDockControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraBars.BarAndDockingController, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - + + BarAndDockingController1 - - 962, 25 + + DevExpress.XtraBars.BarAndDockingController, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - -1 + + DD_DMSLiteDataSet - - Magenta + + DD_PM_WINDREAM.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - 0 + + TableAdapterManager - - 469, 57 + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - ToolStripButtonJumpFile + + TBDD_CONNECTIONTableAdapter - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - PdfSetFitWidthZoomModeCheckItem2 + + TBPM_CONTROL_TABLETableAdapter - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - 2 + + TBPM_KONFIGURATIONTableAdapter - - PdfZoom150CheckItem2 + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - -1 + + TBPM_PROFILE_FILESTableAdapter - - + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - PdfZoom75CheckItem2 + + TBPM_PROFILETableAdapter - - barDockControlLeft + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - 477, 593 + + TBDD_CONNECTIONBindingSource - - Panel1 + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 1 + + TBPM_PROFILE_FILESBindingSource - - ToolTip1 + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - + + TBPM_PROFILEBindingSource - - tstrlbl_Info + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Label3 + + TBPM_KONFIGURATIONBindingSource - - PdfZoom100CheckItem2 + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 TBPM_CONTROL_TABLEBindingSource - - 25% - - - -1 + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Zoom auf Seitenebene + + BarManager1 - - -1 + + DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - $this + + PdfFileOpenBarItem1 - - Breite anpassen + + DevExpress.XtraPdfViewer.Bars.PdfFileOpenBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - + + PdfFileSaveAsBarItem1 - - Öffnen + + DevExpress.XtraPdfViewer.Bars.PdfFileSaveAsBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 156, 22 + + PdfFilePrintBarItem2 DevExpress.XtraPdfViewer.Bars.PdfFilePrintBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - 0 - - - 962, 0 - - - DevExpress.XtraBars.BarDockControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - 451, 50 - - - Fill - - - True - - - Label1 - - - 4 + + PdfPreviousPageBarItem2 - - Panel1 + + DevExpress.XtraPdfViewer.Bars.PdfPreviousPageBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + PdfNextPageBarItem2 - - -1 + + DevExpress.XtraPdfViewer.Bars.PdfNextPageBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + PdfFindTextBarItem2 - - BarButtonItem1 + + DevExpress.XtraPdfViewer.Bars.PdfFindTextBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - frmValidator + + PdfZoomOutBarItem2 - - Drucken + + DevExpress.XtraPdfViewer.Bars.PdfZoomOutBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + PdfZoomInBarItem2 - - TableAdapterManager + + DevExpress.XtraPdfViewer.Bars.PdfZoomInBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Segoe UI, 9.75pt + + PdfExactZoomListBarSubItem2 - - -1 + + DevExpress.XtraPdfViewer.Bars.PdfExactZoomListBarSubItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - + + PdfZoom10CheckItem2 - - StatusStrip1 + + DevExpress.XtraPdfViewer.Bars.PdfZoom10CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 6 + + PdfZoom25CheckItem2 - - -1 + + DevExpress.XtraPdfViewer.Bars.PdfZoom25CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - TBPM_PROFILEBindingSource + + PdfZoom50CheckItem2 - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraPdfViewer.Bars.PdfZoom50CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 3, 5, 3, 5 + + PdfZoom75CheckItem2 - - PdfExactZoomListBarSubItem2 + + DevExpress.XtraPdfViewer.Bars.PdfZoom75CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - -1 + + PdfZoom100CheckItem2 - - Speichern als + + DevExpress.XtraPdfViewer.Bars.PdfZoom100CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - PdfSetPageLevelZoomModeCheckItem2 + + PdfZoom125CheckItem2 - - -1 + + DevExpress.XtraPdfViewer.Bars.PdfZoom125CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + PdfZoom150CheckItem2 - - TBDD_CONNECTIONTableAdapter + + DevExpress.XtraPdfViewer.Bars.PdfZoom150CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 0 + + PdfZoom200CheckItem2 - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraPdfViewer.Bars.PdfZoom200CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - PdfZoomInBarItem2 + + PdfZoom400CheckItem2 - - DevExpress.XtraPdfViewer.Bars.PdfFileSaveAsBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraPdfViewer.Bars.PdfZoom400CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - StatusStrip1 + + PdfZoom500CheckItem2 - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraPdfViewer.Bars.PdfZoom500CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - barDockControlRight + + PdfSetActualSizeZoomModeCheckItem2 - - 34 + + DevExpress.XtraPdfViewer.Bars.PdfSetActualSizeZoomModeCheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + PdfSetPageLevelZoomModeCheckItem2 - - Vorherige + + DevExpress.XtraPdfViewer.Bars.PdfSetPageLevelZoomModeCheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + PdfSetFitWidthZoomModeCheckItem2 + + + DevExpress.XtraPdfViewer.Bars.PdfSetFitWidthZoomModeCheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - -1 + + PdfSetFitVisibleZoomModeCheckItem2 - - + + DevExpress.XtraPdfViewer.Bars.PdfSetFitVisibleZoomModeCheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - + + BarButtonItem1 DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - -1 + + PdfBarController1 - - Magenta + + DevExpress.XtraPdfViewer.Bars.PdfBarController, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - -1 + + PdfBarController2 - - 165, 22 + + DevExpress.XtraPdfViewer.Bars.PdfBarController, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Tahoma, 9.75pt + + FinalIndexDataSet - - DevExpress.XtraPdfViewer.Bars.PdfFindTextBarItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DD_PM_WINDREAM.FinalIndexDataSet, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + TBPM_PROFILE_FINAL_INDEXINGBindingSource - - -1 + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DD_PM_WINDREAM.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + TBPM_PROFILE_FINAL_INDEXINGTableAdapter - - PdfBarController1 + + DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - $this + + ToolTip1 - - Datei löschen + + System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - $this + + bsiError - - Bottom, Left, Right + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - + + bsiInformation - - -1 + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DevExpress.XtraPdfViewer.Bars.PdfZoom50CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + bsiDocID - - Neu Laden + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + BarButtonItem2 - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 75% + + BarButtonItem3 - - 500 % + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + BarButtonItem4 - - Tatsächliche Größe + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + bbtniRefresh - - 7, 17 + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DevExpress.XtraBars.BarAndDockingController, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + bbtniRefreshSearches - - 450, 426 + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - + + bbtniNext - - + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DevExpress.XtraPdfViewer.Bars.PdfSetFitVisibleZoomModeCheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + bbtniDelete + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - -1 + + bbtniAnnotation - - SplitContainer1.Panel1 + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - + + bsiInfo1 - - PdfSetFitVisibleZoomModeCheckItem2 + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 455, 29 + + bsiInfo2 - - TBPM_PROFILE_FINAL_INDEXINGBindingSource + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - SplitContainer1.Panel1 + + RibbonPage1 - - 5 + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DevExpress.XtraPdfViewer.Bars.PdfZoom400CheckItem, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + RibbonPageGroup1 - - 1 + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + RibbonPageGroup3 - - + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - -1 + + RibbonPageGroup2 - - PdfNextPageBarItem2 + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - -1 + + RibbonPage2 - - -1 + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 8, 102 + + frmValidator + + + DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - EigenschaftenToolStripMenuItem + + Öffnen - - 962, 0 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu + My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE + ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi + bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s + VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw + BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh + bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl + bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF + eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA + Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs + dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz + cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z + CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA + AAAAAAAAPAEAAAAGDAAAABDDlmZmbmVuIChTdHJnK08pBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29s + VGlwSXRlbQcAAAANQWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdp + ZHRoEk93bmVyQWxsb3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRC + b29sZWFuAwAAABNTeXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ + dGVtSW1hZ2VPcHRpb25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAAb + w5ZmZm5lbiBTaWUgZWluZSBQREYtRGF0ZWkuBQsAAAAoRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRl + bUltYWdlT3B0aW9ucwUAAAAISW1hZ2VVcmkMU3ZnSW1hZ2VTaXplCUFsaWdubWVudApJbWFnZUluZGV4 + E0ltYWdlVG9UZXh0RGlzdGFuY2UBBAQAABNTeXN0ZW0uRHJhd2luZy5TaXplCQAAACZEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAIAAAAICAIAAAAGEAAAAAAF7////xNTeXN0ZW0uRHJh + d2luZy5TaXplAgAAAAV3aWR0aAZoZWlnaHQAAAgICQAAAAAAAAAAAAAABe7///8mRGV2RXhwcmVzcy5V + dGlscy5Ub29sVGlwSW1hZ2VBbGlnbm1lbnQBAAAAB3ZhbHVlX18ACAIAAAAAAAAA/////w4AAAABDgAA + AAsAAAAJEAAAAAHt////7////wAAAAAAAAAAAez////u////AAAAAP////8OAAAACw== + + + + Speichern als + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu + My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE + ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi + bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s + VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw + BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh + bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl + bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF + eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA + Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs + dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz + cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z + CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA + AAAAAAAAPAEAAAAGDAAAABZTcGVpY2hlcm4gYWxzIChTdHJnK1MpBQgAAAAcRGV2RXhwcmVzcy5VdGls + cy5Ub29sVGlwSXRlbQcAAAANQWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50 + CE1heFdpZHRoEk93bmVyQWxsb3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRl + ZmF1bHRCb29sZWFuAwAAABNTeXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRv + b2xUaXBJdGVtSW1hZ2VPcHRpb25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAA + Bg8AAAAYU3BlaWNoZXJuIGRlciBQREYtRGF0ZWkuBQsAAAAoRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlw + SXRlbUltYWdlT3B0aW9ucwUAAAAISW1hZ2VVcmkMU3ZnSW1hZ2VTaXplCUFsaWdubWVudApJbWFnZUlu + ZGV4E0ltYWdlVG9UZXh0RGlzdGFuY2UBBAQAABNTeXN0ZW0uRHJhd2luZy5TaXplCQAAACZEZXZFeHBy + ZXNzLlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAIAAAAICAIAAAAGEAAAAAAF7////xNTeXN0ZW0u + RHJhd2luZy5TaXplAgAAAAV3aWR0aAZoZWlnaHQAAAgICQAAAAAAAAAAAAAABe7///8mRGV2RXhwcmVz + cy5VdGlscy5Ub29sVGlwSW1hZ2VBbGlnbm1lbnQBAAAAB3ZhbHVlX18ACAIAAAAAAAAA/////w4AAAAB + DgAAAAsAAAAJEAAAAAHt////7////wAAAAAAAAAAAez////u////AAAAAP////8OAAAACw== + - - tsslblDocID + + Drucken - - 42 + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu + My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE + ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi + bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s + VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw + BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh + bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl + bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF + eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA + Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs + dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz + cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z + CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA + AAAAAAAAPAEAAAAGDAAAABBEcnVja2VuIChTdHJnK1ApBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29s + VGlwSXRlbQcAAAANQWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdp + ZHRoEk93bmVyQWxsb3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRC + b29sZWFuAwAAABNTeXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ + dGVtSW1hZ2VPcHRpb25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAAN + RGF0ZWkgZHJ1Y2tlbgULAAAAKERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMF + AAAACEltYWdlVXJpDFN2Z0ltYWdlU2l6ZQlBbGlnbm1lbnQKSW1hZ2VJbmRleBNJbWFnZVRvVGV4dERp + c3RhbmNlAQQEAAATU3lzdGVtLkRyYXdpbmcuU2l6ZQkAAAAmRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlw + SW1hZ2VBbGlnbm1lbnQCAAAACAgCAAAABhAAAAAABe////8TU3lzdGVtLkRyYXdpbmcuU2l6ZQIAAAAF + d2lkdGgGaGVpZ2h0AAAICAkAAAAAAAAAAAAAAAXu////JkRldkV4cHJlc3MuVXRpbHMuVG9vbFRpcElt + YWdlQWxpZ25tZW50AQAAAAd2YWx1ZV9fAAgCAAAAAAAAAP////8OAAAAAQ4AAAALAAAACRAAAAAB7f// + /+////8AAAAAAAAAAAHs////7v///wAAAAD/////DgAAAAs= + - - 37 + + Vorherige - - 3, 4, 3, 4 + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu + My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE + ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi + bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s + VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw + BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh + bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl + bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF + eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA + Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs + dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz + cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z + CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA + AAAAAAAAPAEAAAAGDAAAAAlWb3JoZXJpZ2UFCAAAABxEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVt + BwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25zCkxlZnRJbmRlbnQITWF4V2lkdGgST3du + ZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJlc3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4D + AAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFn + ZU9wdGlvbnMCAAAACAgBAgAAAAHz/////P///wIAAAAKCQ4AAAAAAAAAPAEAAAAGDwAAABlWb3JoZXJp + Z2UgU2VpdGUgYW56ZWlnZW4uBQsAAAAoRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0 + aW9ucwUAAAAISW1hZ2VVcmkMU3ZnSW1hZ2VTaXplCUFsaWdubWVudApJbWFnZUluZGV4E0ltYWdlVG9U + ZXh0RGlzdGFuY2UBBAQAABNTeXN0ZW0uRHJhd2luZy5TaXplCQAAACZEZXZFeHByZXNzLlV0aWxzLlRv + b2xUaXBJbWFnZUFsaWdubWVudAIAAAAICAIAAAAGEAAAAAAF7////xNTeXN0ZW0uRHJhd2luZy5TaXpl + AgAAAAV3aWR0aAZoZWlnaHQAAAgICQAAAAAAAAAAAAAABe7///8mRGV2RXhwcmVzcy5VdGlscy5Ub29s + VGlwSW1hZ2VBbGlnbm1lbnQBAAAAB3ZhbHVlX18ACAIAAAAAAAAA/////w4AAAABDgAAAAsAAAAJEAAA + AAHt////7////wAAAAAAAAAAAez////u////AAAAAP////8OAAAACw== + - - 0, 643 + + Nächste - - PdfZoom400CheckItem2 + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu + My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE + ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi + bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s + VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw + BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh + bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl + bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF + eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA + Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs + dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz + cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z + CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA + AAAAAAAAPAEAAAAGDAAAAAhOw6RjaHN0ZQUIAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0H + AAAADUFsbG93SHRtbFRleHQESWNvbgxJbWFnZU9wdGlvbnMKTGVmdEluZGVudAhNYXhXaWR0aBJPd25l + ckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMA + AAATU3lzdGVtLkRyYXdpbmcuSWNvbgkAAAAoRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbUltYWdl + T3B0aW9ucwIAAAAICAECAAAAAfP////8////AgAAAAoJDgAAAAAAAAA8AQAAAAYPAAAAF07DpGNoc3Rl + IFNlaXRlIGFuemVpZ2VuBQsAAAAoRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9u + cwUAAAAISW1hZ2VVcmkMU3ZnSW1hZ2VTaXplCUFsaWdubWVudApJbWFnZUluZGV4E0ltYWdlVG9UZXh0 + RGlzdGFuY2UBBAQAABNTeXN0ZW0uRHJhd2luZy5TaXplCQAAACZEZXZFeHByZXNzLlV0aWxzLlRvb2xU + aXBJbWFnZUFsaWdubWVudAIAAAAICAIAAAAGEAAAAAAF7////xNTeXN0ZW0uRHJhd2luZy5TaXplAgAA + AAV3aWR0aAZoZWlnaHQAAAgICQAAAAAAAAAAAAAABe7///8mRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlw + SW1hZ2VBbGlnbm1lbnQBAAAAB3ZhbHVlX18ACAIAAAAAAAAA/////w4AAAABDgAAAAsAAAAJEAAAAAHt + ////7////wAAAAAAAAAAAez////u////AAAAAP////8OAAAACw== + - - $this + + Finden - - 89, 17 + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu + My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE + ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi + bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s + VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw + BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh + bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl + bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF + eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA + Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs + dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz + cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z + CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA + AAAAAAAAPAEAAAAGDAAAAA9GaW5kZW4gKFN0cmcrRikFCAAAABxEZXZFeHByZXNzLlV0aWxzLlRvb2xU + aXBJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25zCkxlZnRJbmRlbnQITWF4V2lk + dGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJlc3MuVXRpbHMuRGVmYXVsdEJv + b2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0 + ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAHz/////P///wIAAAAKCQ4AAAAAAAAAPAEAAAAGDwAAAAtU + ZXh0IHN1Y2hlbgULAAAAKERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMFAAAA + CEltYWdlVXJpDFN2Z0ltYWdlU2l6ZQlBbGlnbm1lbnQKSW1hZ2VJbmRleBNJbWFnZVRvVGV4dERpc3Rh + bmNlAQQEAAATU3lzdGVtLkRyYXdpbmcuU2l6ZQkAAAAmRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSW1h + Z2VBbGlnbm1lbnQCAAAACAgCAAAABhAAAAAABe////8TU3lzdGVtLkRyYXdpbmcuU2l6ZQIAAAAFd2lk + dGgGaGVpZ2h0AAAICAkAAAAAAAAAAAAAAAXu////JkRldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEltYWdl + QWxpZ25tZW50AQAAAAd2YWx1ZV9fAAgCAAAAAAAAAP////8OAAAAAQ4AAAALAAAACRAAAAAB7f///+// + //8AAAAAAAAAAAHs////7v///wAAAAD/////DgAAAAs= + - - 91, 22 + + Verkleinern Vergrößern - - 3, 4, 3, 4 - - - Panel1 - - - - - - BarButtonItem1 - Zoom - - - - - BarAndDockingController3 - - - -1 - - - 0, 0 - - - Datei überspringen (F4) - - - Document-ID: + + 10% - - + + 25% - - 5, 33 + + 50% - - 0, 621 + + 75% - - 82, 17 + + 100 % - - 7, 536 + + 125 % 150 % - - - - - Top, Bottom, Left, Right - - - SplitContainer1 - - - sss - - - 0 - - - Segoe UI, 9pt, style=Bold - - - 962, 593 - - - 156, 22 - - - -1 - - - Top, Bottom, Left, Right + + 200 % - - + + 400 % - - + + 500 % - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Tatsächliche Größe - - -1 + + Zoom auf Seitenebene - - + + Breite anpassen - - -1 + + sichtbare einpassen - + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE @@ -1677,105 +1803,42 @@ CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA - AAAAAAAAPAEAAAAGDAAAABDDlmZmbmVuIChTdHJnK08pBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29s - VGlwSXRlbQcAAAANQWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdp - ZHRoEk93bmVyQWxsb3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRC - b29sZWFuAwAAABNTeXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ - dGVtSW1hZ2VPcHRpb25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAAb - w5ZmZm5lbiBTaWUgZWluZSBQREYtRGF0ZWkuBQsAAAAoRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRl - bUltYWdlT3B0aW9ucwUAAAAISW1hZ2VVcmkMU3ZnSW1hZ2VTaXplCUFsaWdubWVudApJbWFnZUluZGV4 - E0ltYWdlVG9UZXh0RGlzdGFuY2UBBAQAABNTeXN0ZW0uRHJhd2luZy5TaXplCQAAACZEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAIAAAAICAIAAAAGEAAAAAAF7////xNTeXN0ZW0uRHJh - d2luZy5TaXplAgAAAAV3aWR0aAZoZWlnaHQAAAgICQAAAAAAAAAAAAAABe7///8mRGV2RXhwcmVzcy5V - dGlscy5Ub29sVGlwSW1hZ2VBbGlnbm1lbnQBAAAAB3ZhbHVlX18ACAIAAAAAAAAA/////w4AAAABDgAA - AAsAAAAJEAAAAAHt////7////wAAAAAAAAAAAez////u////AAAAAP////8OAAAACw== + AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN + QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs + b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT + eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp + b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg + Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ + dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k + ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E + cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO + AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL - - Segoe UI, 9.75pt - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 + + BarButtonItem1 - - 327, 173 - - - 1061, 134 - - - 257, 95 - - - 1051, 56 - - - 17, 17 - - - 214, 17 - - - 675, 95 - - - 17, 95 - - - 278, 134 - - - 411, 17 - - - 938, 95 - - - 608, 17 - - - 17, 134 - - - 725, 17 - - - 469, 95 - - - 806, 134 - - - 632, 173 - - - 681, 134 - - - 46 - 533, 134 - - 813, 56 - - - 954, 134 + + 806, 134 - - 887, 17 + + 1061, 134 17, 173 - - 569, 56 + + 327, 173 - - True + + 632, 173 + + RibbonPage2 + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index ea3b5e8..b451074 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -15,6 +15,7 @@ Public Class frmValidator Dim strFileList() Dim PROFIL_sortbynewest As Boolean Dim PROFIL_VEKTORINDEX + Dim PROFIL_FINISH_SQL Dim PROFIL_LOGINDEX Dim Delimiter As String @@ -56,8 +57,9 @@ Public Class frmValidator Private _SetControlValue_in_action As Boolean = False Private DTCONTROLS As DataTable Private DTGRID_COLUMNS As DataTable + Private DTGRID_COLUMNS_TEXTBOX As DataTable Private DTVWCONTROL_INDEX As DataTable - Private FormLoaded As Boolean = False + Public FormLoaded As Boolean = False Private ItemWorked As Boolean = False Private Override As Boolean = False Private OverrideAll As Boolean = False @@ -65,31 +67,31 @@ Public Class frmValidator Private ControlHandleStarted As Boolean = False - - Public Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As Boolean - End Function - Function set_foreground() - Try - Dim hwnd As IntPtr - Dim prc() As Process = Process.GetProcessesByName("DD_PM_WINDREAM") - - If Not prc Is Nothing AndAlso Not prc.Length = 0 Then - hwnd = prc(0).MainWindowHandle - SetForegroundWindow(hwnd) - Else - prc = Process.GetProcessesByName("DD_PM_WINDREAM.vshost") - If Not prc Is Nothing AndAlso Not prc.Length = 0 Then - hwnd = prc(0).MainWindowHandle - SetForegroundWindow(hwnd) - End If + ' + 'Public Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As Boolean + 'End Function + 'Function set_foreground() + ' Try + ' Dim hwnd As IntPtr + ' Dim prc() As Process = Process.GetProcessesByName("DD_PM_WINDREAM") + + ' If Not prc Is Nothing AndAlso Not prc.Length = 0 Then + ' hwnd = prc(0).MainWindowHandle + ' SetForegroundWindow(hwnd) + ' Else + ' prc = Process.GetProcessesByName("DD_PM_WINDREAM.vshost") + ' If Not prc Is Nothing AndAlso Not prc.Length = 0 Then + ' hwnd = prc(0).MainWindowHandle + ' SetForegroundWindow(hwnd) + ' End If - End If - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("ERror in set_foreground: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "") - End Try + ' End If + ' Catch ex As Exception + ' LOGGER.Error(ex) + ' MsgBox("ERror in set_foreground: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "") + ' End Try - End Function + 'End Function Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load Override = False ItemWorked = False @@ -116,8 +118,7 @@ Public Class frmValidator End If Dim _step = 0 Try - - DocumentViewer1.Init(LOGCONFIG, GDPICTURE_LICENSE) + DocumentViewerValidator.Init(LOGCONFIG, GDPICTURE_LICENSE) Catch ex As Exception LOGGER.Error(ex) End Try @@ -160,13 +161,14 @@ Public Class frmValidator MsgBox("More than 1 profile (" & CURRENT_DT_PROFILE.Rows.Count & ") returned!!", MsgBoxStyle.Critical, "Attention:") Else If CURRENT_DT_PROFILE.Rows.Count = 1 Then - For Each dr As DataRow In CURRENT_DT_PROFILE.Rows - PROFIL_VEKTORINDEX = dr.Item("PM_VEKTOR_INDEX") - PROFIL_LOGINDEX = dr.Item("LOG_INDEX") - Me.Text = "Process Manager - " & dr.Item("TITLE") - - TITLELabel1.Text = dr.Item("TITLE") - DESCRIPTIONLabel.Text = IIf(IsDBNull(dr.Item("DESCRIPTION")), "", dr.Item("DESCRIPTION")) + For Each oProfileRow As DataRow In CURRENT_DT_PROFILE.Rows + PROFIL_FINISH_SQL = oProfileRow.Item("SQL_BTN_FINISH") + PROFIL_VEKTORINDEX = oProfileRow.Item("PM_VEKTOR_INDEX") + PROFIL_LOGINDEX = oProfileRow.Item("LOG_INDEX") + Me.Text = "Process Manager - " & oProfileRow.Item("TITLE") + + TITLELabel1.Text = oProfileRow.Item("TITLE") + DESCRIPTIONLabel.Text = IIf(IsDBNull(oProfileRow.Item("DESCRIPTION")), "", oProfileRow.Item("DESCRIPTION")) If PROFIL_VEKTORINDEX.GetType.ToString.ToLower = "system.dbnull" Then PROFIL_VEKTORINDEX = "" End If @@ -174,13 +176,13 @@ Public Class frmValidator PROFIL_LOGINDEX = "" End If - WD_Search = dr.Item("WD_SEARCH") - finalProfile = dr.Item("FINAL_PROFILE") - Move2Folder = IIf(IsDBNull(dr.Item("MOVE2Folder")), "", dr.Item("MOVE2Folder")) + WD_Search = oProfileRow.Item("WD_SEARCH") + finalProfile = oProfileRow.Item("FINAL_PROFILE") + Move2Folder = IIf(IsDBNull(oProfileRow.Item("MOVE2Folder")), "", oProfileRow.Item("MOVE2Folder")) Try If finalProfile = True Then - Dim text As String = IIf(IsDBNull(dr.Item("FINAL_TEXT")), "", dr.Item("FINAL_TEXT") & (" (F2)")) + Dim text As String = IIf(IsDBNull(oProfileRow.Item("FINAL_TEXT")), "", oProfileRow.Item("FINAL_TEXT") & (" (F2)")) If text <> "" Then btnSave.Text = text Else @@ -195,9 +197,9 @@ Public Class frmValidator MsgBox("Error loading final profile text:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") LOGGER.Info(">> Error loading final profile text: " & ex.Message, True) End Try - ToolStripButtonJumpFile.Visible = True + bbtniNext.Visibility = DevExpress.XtraBars.BarItemVisibility.Always If CURRENT_JUMP_DOC_GUID <> 0 Then - ToolStripButtonJumpFile.Visible = False + bbtniNext.Visibility = DevExpress.XtraBars.BarItemVisibility.Never Anzahl_ValDoks = 1 Else @@ -217,14 +219,15 @@ Public Class frmValidator LOGGER.Debug("PROFIL_sortbynewest: " & PROFIL_sortbynewest.ToString) 'Delete Button anzeigen ja/nein If USER_RIGHT_FILE_DELETE = True Then - ToolStripButtonDeleteFile.Enabled = True + bbtniDelete.Visibility = DevExpress.XtraBars.BarItemVisibility.Always Else - ToolStripButtonDeleteFile.Enabled = False + bbtniDelete.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End If + If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then - ToolStripButtonAnnotation.Visible = True + bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always Else - ToolStripButtonAnnotation.Visible = False + bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End If LOGGER.Debug("Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString) Create_Controls() @@ -232,6 +235,7 @@ Public Class frmValidator End If End If + LOGGER.Debug("frmValidation_Load finished!") Catch ex As Exception LOGGER.Error(ex) MsgBox("Error LOADING Profile-Data1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") @@ -262,6 +266,7 @@ Public Class frmValidator Catch ex As Exception LOGGER.Error(ex) + End Try Try Dim oDel = $"DELETE FROM TBPM_FILES_USER_NOT_INDEXED WHERE UPPER(USR_NAME) = UPPER('{USER_USERNAME}')" @@ -280,61 +285,15 @@ Public Class frmValidator LOGGER.Error(ex) End Try End If - DocumentViewer1.Done() - 'If VIEWER_ALL = "docview" Then - ' If IDB_ACTIVE = False Then - ' CloseWDDocview() - ' End If - - 'End If - - 'If VIEWER_PDF = "system" Then - ' Kill_PDFAcrobat() - 'Else - ' If pdfxchange = True Or sumatra = True Then - ' Close_PDF_Viewer(WMDocPathWindows) - ' End If - ' KillU_Viewer() - 'End If - + Try + DocumentViewerValidator.Done() + Catch ex As Exception + LOGGER.Warn($"Unexpected error in DocumentViewerValidator.Done: {ex.Message}") + End Try End Sub - Private Function process_User_exists(processname As String, Status As String) - Dim fi = New FileInfo(processname) - Dim filename As String = fi.Name.Replace(fi.Extension, "") - - Try - If Process.GetProcessesByName(filename).Length > 0 Then - Return True - Else - Return False - End If - Catch ex As Exception - LOGGER.Error(ex) - LOGGER.Info(">> error in process_User_exists: " & ex.Message, True) - Return False - End Try - End Function - 'Private Function process_terminate(processname As String) - ' Try - ' Dim selectQuery As SelectQuery = New SelectQuery("Win32_Process") - ' Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(selectQuery) - ' For Each proc As ManagementObject In searcher.Get - ' If proc("Name").ToString = processname Then - ' Dim s(1) As String - ' proc.InvokeMethod("GetOwner", CType(s, Object())) - ' If CStr(s(0)).ToLower.Contains(USER_USERNAME.ToLower) Then - ' proc.InvokeMethod("Terminate", Nothing) - ' End If - ' End If - ' Next - ' Return False - ' Catch ex As Exception - ' LOGGER.Info(">> error in process_terminate: " & ex.Message, True) - ' End Try - 'End Function Private Function Init_IDB() Try IDBData = New ClassIDBData @@ -399,9 +358,8 @@ Public Class frmValidator End If If oDataResultsExist = True Or oDocResultsExist = True Then - ToolStripButtonSearchesReload.Visible = True - frmValidatorSearch.Show() - _frmValidatorSearch = frmValidatorSearch + bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + _frmValidatorSearch.Show() Dim oPnl1Collapsed As Boolean = True Dim oPnl2Collapsed As Boolean = True If oDataResultsExist = True Then @@ -434,11 +392,11 @@ Public Class frmValidator End If Else LOGGER.Info("Not loading AdditionalSearches...!") - ToolStripButtonSearchesReload.Visible = False + bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End If Else LOGGER.Info("Not loading AdditionalSearches...!") - ToolStripButtonSearchesReload.Visible = False + bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End If End Sub Sub LoadSQLData(control As Control, controlId As Integer) @@ -574,8 +532,12 @@ Public Class frmValidator pnldesigner.Controls.Clear() Dim oSQL = $"SELECT [dbo].[FNPM_LANGUAGE_CONTROL_TEXT] (NAME,'{USER_LANGUAGE}',CTRL_TYPE,CTRL_TEXT) CTRL_CAPTION_LANG, * FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC" DTCONTROLS = ClassDatabase.Return_Datatable(oSQL) - oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0" + oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 0" DTGRID_COLUMNS = ClassDatabase.Return_Datatable(oSQL) + + oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 1" + DTGRID_COLUMNS_TEXTBOX = ClassDatabase.Return_Datatable(oSQL) + Dim oCount As Integer = 0 For Each oControlRow As DataRow In DTCONTROLS.Rows @@ -639,7 +601,7 @@ Public Class frmValidator LOGGER.Debug("ConID <> String.Empty") If oCONID > 0 And commandsql <> String.Empty Then LOGGER.Debug("ConID > 0 And commandsql <> String.Empty") - Dim connectionString As String + Dim oConnectionString As String TBDD_CONNECTIONTableAdapter.FillByID(DD_DMSLiteDataSet.TBDD_CONNECTION, oCONID) Dim DTConnection As DataTable = DD_DMSLiteDataSet.TBDD_CONNECTION @@ -647,11 +609,11 @@ Public Class frmValidator Select Case drConnection.Item("SQL_PROVIDER").ToString.ToLower Case "ms-sql" If drConnection.Item("USERNAME") = "WINAUTH" Then - connectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog=" & drConnection.Item("DATENBANK") & ";Trusted_Connection=True;" + oConnectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog=" & drConnection.Item("DATENBANK") & ";Trusted_Connection=True;" Else - connectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";" + oConnectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";" End If - LOGGER.Debug("ConnString Sql-Server: " & connectionString) + LOGGER.Debug("ConnString Sql-Server: " & oConnectionString) Case "oracle" Dim conn As New OracleConnectionStringBuilder Dim connstr As String @@ -667,13 +629,13 @@ Public Class frmValidator connstr = conn.ConnectionString End If - connectionString = connstr + oConnectionString = connstr Case Else LOGGER.Info(" - ConnectionType nicht integriert") MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!") End Select Next - If connectionString Is Nothing = False Then + If oConnectionString Is Nothing = False Then Try Dim sqlCnn As SqlClient.SqlConnection Dim sqlCmd As SqlClient.SqlCommand @@ -692,7 +654,7 @@ Public Class frmValidator sql = clsPatterns.ReplaceInternalValues(sql) sql = clsPatterns.ReplaceControlValues(sql, pnldesigner) LOGGER.Debug(">>> sql after HasOnlySimplePatterns: " & sql) - sqlCnn = New SqlClient.SqlConnection(connectionString) + sqlCnn = New SqlClient.SqlConnection(oConnectionString) ' Try sqlCnn.Open() sqlCmd = New SqlClient.SqlCommand(sql, sqlCnn) @@ -887,6 +849,9 @@ Public Class frmValidator Next LOGGER.Debug("Create_Controls finished!") + + + Catch ex As Exception Dim st As New StackTrace(True) st = New StackTrace(ex, True) @@ -917,7 +882,7 @@ Public Class frmValidator End Select Next - set_foreground() + 'set_foreground() If first_control Is Nothing = False Then first_control.Focus() End If @@ -968,7 +933,7 @@ Public Class frmValidator sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql) + '' Regulären Ausdruck zum Auslesen der Indexe definieren 'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" '' einen Regulären Ausdruck laden @@ -1089,14 +1054,14 @@ Public Class frmValidator OverrideAll = False End Try If OverrideAll = True Then - LOGGER.Warn($"OverrideAll will be in Action!") + LOGGER.Info($"CURRENT_DOC_ID: {CURRENT_DOC_ID} - OverrideAll will be in Action!") End If - Select Case oAction - Case "SetButton" + Select Case oAction.ToString.ToUpper + Case "SetButton".ToUpper btnSave.Text = oCaption & " (F2)" btnSave.BackColor = oColor - Case "Override_Question" + Case "Override_Question".ToUpper If oQuestion <> "" Then Dim result As MsgBoxResult result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) @@ -1105,7 +1070,7 @@ Public Class frmValidator Finish_WFStep() End If End If - Case "Update_Single_Control" + Case "Update_Single_Control".ToUpper Dim oResult1 As Boolean = True If oQuestion <> "" Then Dim result As MsgBoxResult @@ -1127,7 +1092,7 @@ Public Class frmValidator MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation) End If End If - Case "Update_Controls" + Case "Update_Controls".ToUpper If oQuestion <> "" Then Dim result As MsgBoxResult result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) @@ -1145,11 +1110,12 @@ Public Class frmValidator End If End If - Case "Override_Direct" + Case "Override_Direct".ToUpper Override = True Finish_WFStep() Case Else - MsgBox($"No configured action provided [{oAction}]", MsgBoxStyle.Exclamation, "") + MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, "") + LOGGER.Warn($"No configured action provided for onCustomButtonClick [{oAction}]") End Select @@ -1160,7 +1126,7 @@ Public Class frmValidator Try Dim CONTROL_ID = DirectCast(dgv.Tag, ClassControlCreator.ControlMetadata).Guid ' VWPM_CONTROL_INDEXTableAdapter.cmdGetControlID(CURRENT_ProfilGUID, dgv.Name) Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} And SQL_UEBERPRUEFUNG Like '%{1}%'", CURRENT_ProfilGUID, dgv.Name) - Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) If Not IsNothing(DT) And DT.Rows.Count > 0 Then For Each ROW As DataRow In DT.Rows Try @@ -1485,7 +1451,7 @@ Public Class frmValidator Exit Sub End If oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - LOGGER.Debug(">>> sql after ReplaceAllValues: " & oSqlCommand) + _dependingColumn_in_action = True Try Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand) @@ -1530,7 +1496,7 @@ Public Class frmValidator sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) _Step = 3 - LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql) + '' Regulären Ausdruck zum Auslesen der Indexe definieren 'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" '' einen Regulären Ausdruck laden @@ -1736,24 +1702,7 @@ Public Class frmValidator End Function - 'Sub Close_document_viewer() - ' 'Vorherige Datei Schliessen - ' If CURRENT_HTML_DOC <> "" Then - ' If File.Exists(CURRENT_HTML_DOC) Then - ' File.Delete(CURRENT_HTML_DOC) - ' End If - ' End If - ' If pdfxchange = True Or sumatra = True Or VIEWER_PDF = "system" Then - ' Close_PDF_Viewer(WMDocPathWindows) - ' End If - ' If CURRENT_WMFILE Is Nothing = False Then - ' If CURRENT_WMFILE.aLocked Then - ' CURRENT_WMFILE.Save() - ' ' unlock the windream object - ' CURRENT_WMFILE.unlock() - ' End If - ' End If - 'End Sub + Private Function CreateWMObject() As String LOGGER.Debug($"in GetWMDocFileString...'") Dim oWMRELPATH As String = CURRENT_DT_CONFIG.Rows.Item(0).Item("WM_REL_PATH") @@ -1869,7 +1818,7 @@ Public Class frmValidator LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'") If CURRENT_DOC_GUID > 0 Then If GetWMDocPathWindows(0) = False Then - MsgBox("Could not acces the file! Check the log!", MsgBoxStyle.Critical, "") + MsgBox("Could not access the file! Check the log!", MsgBoxStyle.Critical, "") Exit Sub End If If IDB_ACTIVE = False Then @@ -1891,11 +1840,10 @@ Public Class frmValidator ClassDatabase.Execute_non_Query(sql) ' ############ Infos eintragen ################# - tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - DocGUID: " & CURRENT_DOC_GUID ' txtDateipfad.Text = Document_Path - tstrlbl_Info.Text = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString + bsiInformation.Caption = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString LOGGER.Info(">> Validierung für Dokument '" & WMDocPathWindows & "' gestartet") - tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID + bsiDocID.Caption = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID LOGGER.Debug("AllDocInfo created...") If IDB_ACTIVE = False Then @@ -1910,10 +1858,8 @@ Public Class frmValidator load_viewer() LOGGER.Debug("Viewer loaded!") - If WMDocPathWindows.ToLower.EndsWith(".pdf") Then - ToolStripButtonAnnotation.Visible = True - Else - ToolStripButtonAnnotation.Visible = False + If WMDocPathWindows.ToLower.EndsWith(".pdf") = False Then + bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End If @@ -1927,7 +1873,6 @@ Public Class frmValidator Next LOGGER.Debug("Indexmask loaded") - LOGGER.Debug("") 'Nun im Vektoprindex loggen das das Profil geladen wurde 'If PROFIL_VEKTORINDEX <> "" Then @@ -1947,6 +1892,7 @@ Public Class frmValidator If IDB_ACTIVE = False Then WMIndexVectofield(oLogString, PROFIL_LOGINDEX) Else + oLogString = $"PMProfile loaded: [{CURRENT_ProfilGUID}-{CURRENT_ProfilName}]" IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogString) 'LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben") 'Else @@ -1959,7 +1905,6 @@ Public Class frmValidator End If End If activate_controls(True) - Me.BringToFront() Else errormessage = oErrorMessage frmError.ShowDialog() @@ -1984,7 +1929,7 @@ Public Class frmValidator Me.Close() End If End If - + LOGGER.Debug("frmValidator: LoadNextDocument finished!") Catch ex As Exception LOGGER.Error(ex) allgFunk.Insert_LogEntry($"ERROR LoadNextDocument >> {ex.Message}") @@ -1995,7 +1940,7 @@ Public Class frmValidator End Try End Sub Sub load_viewer() - DocumentViewer1.LoadFile(WMDocPathWindows) + DocumentViewerValidator.LoadFile(WMDocPathWindows) SplitContainer1.Panel2Collapsed = False End Sub @@ -2949,8 +2894,110 @@ Public Class frmValidator End Select oCount += 1 Next - set_foreground() + ' set_foreground() If first_control Is Nothing = False Then first_control.Focus() + Try + For Each oRow As DataRow In DTGRID_COLUMNS_TEXTBOX.Rows + Dim oDEPENDING_GUID = oRow.Item("CONTROL_ID") + Dim oDEPENDING_COLUMN = oRow.Item("SPALTENNAME") + Dim oSqlCommand = oRow.Item("SQL_COMMAND") + oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + + + Try + Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand) + If Not IsNothing(oDTDEPENDING_RESULT) Then + For Each oControl As Control In pnldesigner.Controls + If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_GUID Then + ClassControlCreator.GridTables.Add(oDEPENDING_COLUMN, oDTDEPENDING_RESULT) + + Exit For + End If + Next + End If + + Catch ex As Exception + LOGGER.Warn($"Unexpected error in creating dropdown for oDEPENDING_GUID {oDEPENDING_GUID} an Column {oDEPENDING_COLUMN} " & ex.Message) + + End Try + Next + Catch ex As Exception + LOGGER.Warn($"Unexpected error in creating dropdown for Grid: " & ex.Message) + End Try + + + + If IDB_ACTIVE = True Then + Try + Dim oSQL = $"select Attribut, TERM_VALUE from VWIDB_VALUE_TEXT WHERE LANG_CODE = '{USER_LANGUAGE}' AND IDB_OBJ_ID = {CURRENT_DOC_ID} AND Attribut in ('PM_Info1','PM_Info2') ORDER BY Attribut" + Dim oDTINFO As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) + If Not IsNothing(oDTINFO) Then + Dim oColor As System.Drawing.Color + If oDTINFO.Rows.Count > 0 Then + Dim oColumns As String() + If oDTINFO.Rows.Count = 1 Then + oColumns = Split(oDTINFO.Rows(0).Item("TERM_VALUE"), "#") + If oColumns.Length = 1 Then + bsiInfo1.Caption = oDTINFO.Rows(0).Item("TERM_VALUE") + ElseIf oColumns.Length = 2 Then + bsiInfo1.Caption = oColumns(0) + Try + oColor = System.Drawing.Color.FromName(oColumns(1)) + bsiInfo1.ItemAppearance.Normal.ForeColor = oColor + Catch ex As Exception + + End Try + End If + + bsiInfo2.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ElseIf oDTINFO.Rows.Count = 2 Then + 'ITEM 1 + oColumns = Split(oDTINFO.Rows(0).Item("TERM_VALUE"), "#") + If oColumns.Length = 1 Then + bsiInfo1.Caption = oDTINFO.Rows(0).Item("TERM_VALUE") + ElseIf oColumns.Length = 2 Then + bsiInfo1.Caption = oColumns(0) + Try + oColor = System.Drawing.Color.FromName(oColumns(1)) + bsiInfo1.ItemAppearance.Normal.ForeColor = oColor + Catch ex As Exception + + End Try + End If + 'ITEM 1 + oColumns = Split(oDTINFO.Rows(1).Item("TERM_VALUE"), "#") + If oColumns.Length = 1 Then + bsiInfo2.Caption = oDTINFO.Rows(1).Item("TERM_VALUE") + ElseIf oColumns.Length = 2 Then + bsiInfo2.Caption = oColumns(0) + Try + oColor = System.Drawing.Color.FromName(oColumns(1)) + bsiInfo2.ItemAppearance.Normal.ForeColor = oColor + Catch ex As Exception + + End Try + End If + bsiInfo2.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End If + RibbonPageGroup2.Visible = True + Else + LOGGER.Debug($"No PM_Info-Configuration!!") + RibbonPageGroup2.Visible = False + End If + Else + LOGGER.Warn($"oDTINFO is nothing!!") + RibbonPageGroup2.Visible = False + End If + Catch ex As Exception + LOGGER.Warn($"Unexpected error in Setting PMINFO - ERROR: {ex.Message}") + RibbonPageGroup2.Visible = False + End Try + + Else + RibbonPageGroup2.Visible = False + End If + + 'Flag setzen das Indexe geladen sind _Indexe_Loaded = True Load_Additional_Searches() @@ -2975,14 +3022,77 @@ Public Class frmValidator _dependingColumn_in_action = False BringToFront() FormLoaded = True + LOGGER.Debug("frmValidation_Shown finished!") End Sub Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click btnSave.Enabled = False Finish_WFStep() btnSave.Enabled = True End Sub - Sub Finish_WFStep() + Private Function btnFinish_continue() + Try + Dim oSQL = PROFIL_FINISH_SQL + oSQL = clsPatterns.ReplaceAllValues(oSQL, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + + Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL) + If IsNothing(oDT_ACTIONS) Then + MsgBox("Something went wrong in btnFinish_continue - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation) + Return False + ElseIf oDT_ACTIONS.Rows.Count = 0 Then + MsgBox("Something went wrong in btnFinish_continue (No row) - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation) + Return False + End If + 'Select Case'Override' as Action_Type, 'Sind Sie sicher dass Sie nicht zuständig sind?' as Question,'Nicht Zuständig' as Caption,'Red' as Color + Dim oMsgType + Dim oQuestion + Dim oTitle + + Try + oMsgType = oDT_ACTIONS?.Rows(0).Item("MsgType") + Catch ex As Exception + oMsgType = "" + End Try + + Try + oQuestion = oDT_ACTIONS?.Rows(0).Item("Question") + Catch ex As Exception + oQuestion = "" + End Try + Try + oTitle = oDT_ACTIONS?.Rows(0).Item("Title") + Catch ex As Exception + oTitle = "" + End Try + + Select Case oMsgType.ToString.ToUpper + Case "MsgboxResult".ToUpper + If oQuestion <> "" Then + Dim result As MsgBoxResult + result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) + If result = MsgBoxResult.Yes Then + Return True + Else + Return False + End If + End If + Case "Msgbox".ToUpper + MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return True + Case "Continue".ToUpper + Return True + Case Else + MsgBox($"No valid action provided [{oMsgType}] in btnFinishContinue - Check Your log and inform the WorkflowTeam", MsgBoxStyle.Exclamation, "") + LOGGER.Warn($"No valid action provided [{oMsgType}] in btnFinishContinue - Check Your log and inform the WorkflowTeam") + Return False + End Select + Catch ex As Exception + LOGGER.Error(ex) + MsgBox("An unhandled exeception occured in btnFinish Procedure! Please inform Your WorkflowTeam and Check Your log!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + Sub Finish_WFStep() btnSave.Enabled = False LOGGER.Debug("Abschluss für Dok: " & CURRENT_DOC_PATH & " gestartet") ItemWorked = True @@ -2990,12 +3100,18 @@ Public Class frmValidator If OverrideAll = False Then 'Eingaben auf Form überprüfen If Check_UpdateIndexe() = False Then + If PROFIL_FINISH_SQL <> String.Empty Then + If btnFinish_continue() = False Then + Exit Sub + + End If + End If 'lblerror.Visible = False Try TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName) Dim oDTFinalIndexes As DataTable = FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING - If oDTFinalIndexes.Rows.Count > 0 Then + If oDTFinalIndexes?.Rows.Count > 0 Then 'Jetzt finale Indexe setzen LOGGER.Debug("FINAL INDEXING STARTING...") For Each oFinalIndexRow As DataRow In oDTFinalIndexes.Rows @@ -3301,7 +3417,7 @@ Public Class frmValidator 'Das nächste Dokument laden Load_Next_Document(False) - set_foreground() + ' set_foreground() If first_control Is Nothing = False Then first_control.Focus() End If @@ -3412,6 +3528,7 @@ Public Class frmValidator 'Den Indexnamen auslesen Dim oIndexName As String = dr.Item("INDEX_NAME") + Dim oIsRequired As Boolean = CBool(dr.Item("VALIDATION")) Dim oSQLCheckCommand As String = IIf(IsDBNull(dr.Item("SQL_UEBERPRUEFUNG")), "", dr.Item("SQL_UEBERPRUEFUNG")) Dim oIsReadOnly As Boolean = CBool(dr.Item("READ_ONLY")) @@ -4078,11 +4195,17 @@ Public Class frmValidator Dim exists = False Select Case oControlType Case "TABLE" + Dim oRowValue = row.Item(0) + If IsNothing(oRowValue) Then + oRowValue = String.Empty + ElseIf IsDBNull(oRowValue) Then + oRowValue = String.Empty + End If ' MsgBox(row.Cells(0).Value.GetType.ToString) Dim str As String = String.Empty - If row.Item(0) <> String.Empty Then - 'Das Array anpassen - ReDim Preserve myVektorArr(ZeilenGrid) + 'If oRowValue <> String.Empty Then + 'Das Array anpassen + ReDim Preserve myVektorArr(ZeilenGrid) Dim oValueList As New List(Of String) @@ -4097,8 +4220,8 @@ Public Class frmValidator 'Den Wert im Array speichern myVektorArr(ZeilenGrid) = str ZeilenGrid += 1 - End If - Case Else + 'End If + Case Else ' MsgBox(row.Cells(0).Value.GetType.ToString) If row.Item(0) Is Nothing = False Then 'Das Array anpassen @@ -4121,7 +4244,7 @@ Public Class frmValidator Else Dim oMyDT = DT_FOR_ARRAY(myVektorArr) If oMyDT.Rows.Count > 0 Then - If IDBData.SetVariableValue(oIndexName, oMyDT, True) = False Then + If IDBData.SetVariableValue(oIndexName, oMyDT, True, oIDBTyp) = False Then oMissing = True oErrorMessage = $"Error while indexing table IDB (1) {dgv.Name} - ERROR: " & idxerr_message Exit For @@ -4213,7 +4336,7 @@ Public Class frmValidator End Sub Function GetConnectionString(id As Integer) Try - Dim connectionString As String + Dim oConnectionString As String Dim DTConnection As DataTable DTConnection = DD_DMSLiteDataSet.TBDD_CONNECTION Dim drConnection As DataRow @@ -4221,10 +4344,10 @@ Public Class frmValidator If drConnection.Item("GUID") = id Then Select Case drConnection.Item("SQL_PROVIDER") Case "SqlClient.SqlConnection" - connectionString = "%MSData Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";" + oConnectionString = "%MSData Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";" Case "Oracle" - connectionString = "%ORProvider=OraOLEDB.Oracle;Data Source=" & drConnection.Item("SERVER") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";OLEDB.NET=True;" + oConnectionString = "%ORProvider=OraOLEDB.Oracle;Data Source=" & drConnection.Item("SERVER") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";OLEDB.NET=True;" ' connectionString = "%ORData Source=" & drConnection.Item("SERVER") & ";Persist Security Info=True;User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";Unicode=True" Case Else LOGGER.Info(" - ConnectionType '" & drConnection.Item("SQL_PROVIDER") & "' nicht integriert") @@ -4233,7 +4356,7 @@ Public Class frmValidator End Select End If Next - Return connectionString + Return oConnectionString Catch ex As Exception LOGGER.Error(ex) LOGGER.Info(" -Unexpected error in GetConnectionString - Fehler: " & vbNewLine & ex.Message) @@ -4354,8 +4477,8 @@ Public Class frmValidator MyBase.New ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() + _frmValidatorSearch = New frmValidatorSearch ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - _frmValidatorSearch = frmValidatorSearch End Sub @@ -4400,24 +4523,6 @@ Public Class frmValidator End Sub - Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButtonJumpFile.Click - Datei_ueberspringen() - End Sub - - Private Sub ToolStripButtonDeleteFile_Click(sender As Object, e As EventArgs) Handles ToolStripButtonDeleteFile.Click - delete_active_File() - End Sub - - Private Sub ToolStripButtonAnnotation_Click(sender As Object, e As EventArgs) Handles ToolStripButtonAnnotation.Click - 'PdfViewer1.CloseDocument() - 'Close_PDF_Viewer(WMDocPathWindows) - Application.DoEvents() - - frmAnnotations.ShowDialog() - - load_viewer() - End Sub - Private Sub frmValidator_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing End Sub @@ -4434,30 +4539,32 @@ Public Class frmValidator End If My.Settings.Save() End Sub + Private Sub btnSave_MouseHover(sender As Object, e As EventArgs) Handles btnSave.MouseHover + Dim msg = "F2 für Speichern" + If USER_LANGUAGE <> "de-DE" Then + msg = "F2 for saving" + End If + ToolTip1.Show(msg, btnSave) + End Sub + + Private Sub frmValidator_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown - Private Sub InfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoToolStripMenuItem.Click - frmFileInfo.ShowDialog() End Sub - Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click - If WMDocPathWindows <> "" Then - Cursor = Cursors.WaitCursor - Dim oShellExecuteInfo As New SHELLEXECUTEINFO - oShellExecuteInfo.cbSize = Marshal.SizeOf(oShellExecuteInfo) - oShellExecuteInfo.lpVerb = "properties" - oShellExecuteInfo.lpFile = WMDocPathWindows - oShellExecuteInfo.nShow = SW_SHOW - oShellExecuteInfo.fMask = SEE_MASK_INVOKEIDLIST - If Not ShellExecuteEx(oShellExecuteInfo) Then - Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error()) - MsgBox("error in Datei-Eigenschaften öffnen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End If - End If - Cursor = Cursors.Default + Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) + + End Sub + Sub Reload_Controls(SingleAttribute As String) + Load_IDB_DOC_DATA() + FillIndexValues(False) End Sub - Private Sub DateiÖffnenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem1.Click + Sub StatusLabel(infotext As String) + bsiInformation.Caption = infotext & " " & Now.ToString + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick Try Dim Proc As New System.Diagnostics.Process Dim psi As New ProcessStartInfo(WMDocPathWindows) @@ -4472,35 +4579,59 @@ Public Class frmValidator End Try End Sub - Private Sub ToolStripButtonSearchesReload_Click(sender As Object, e As EventArgs) Handles ToolStripButtonSearchesReload.Click - Load_Additional_Searches() + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + frmFileInfo.ShowDialog() End Sub - Private Sub btnSave_MouseHover(sender As Object, e As EventArgs) Handles btnSave.MouseHover - Dim msg = "F2 für Speichern" - If USER_LANGUAGE <> "de-DE" Then - msg = "F2 for saving" + Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick + If WMDocPathWindows <> "" Then + Try + Cursor = Cursors.WaitCursor + Dim oShellExecuteInfo As New SHELLEXECUTEINFO + oShellExecuteInfo.cbSize = Marshal.SizeOf(oShellExecuteInfo) + oShellExecuteInfo.lpVerb = "properties" + oShellExecuteInfo.lpFile = WMDocPathWindows + oShellExecuteInfo.nShow = SW_SHOW + oShellExecuteInfo.fMask = SEE_MASK_INVOKEIDLIST + If Not ShellExecuteEx(oShellExecuteInfo) Then + Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error()) + MsgBox("error in Datei-Eigenschaften öffnen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End If + Catch ex As Exception + End Try + Cursor = Cursors.Default End If - ToolTip1.Show(msg, btnSave) - End Sub - Private Sub frmValidator_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown + End Sub + Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefreshSearches.ItemClick + Load_Additional_Searches() End Sub - Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) + Private Sub bbtniRefresh_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefresh.ItemClick + Reload_Controls("") + Try + btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton") + Catch ex As Exception + End Try + + StatusLabel("All Data refreshed") End Sub - Sub Reload_Controls(SingleAttribute As String) - Load_IDB_DOC_DATA() - FillIndexValues(False) + Private Sub bbtniNext_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniNext.ItemClick + Datei_ueberspringen() End Sub - Private Sub ToolStripButton1_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton1.Click - Reload_Controls("") - StatusLabel("Controls refreshed") + + Private Sub bbtniDelete_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniDelete.ItemClick + delete_active_File() End Sub - Sub StatusLabel(infotext As String) - tsslbl_State.Text = infotext & " " & Now.ToString + + Private Sub bbtniAnnotation_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniAnnotation.ItemClick + Application.DoEvents() + + frmAnnotations.ShowDialog() + + load_viewer() End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb b/app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb index ce6089d..541fe2c 100644 --- a/app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb +++ b/app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb @@ -24,19 +24,34 @@ Partial Class frmValidatorSearch Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmValidatorSearch)) + Dim GridLevelNode7 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() - Dim GridLevelNode6 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() + Me.SplitContainerControlDoc = New DevExpress.XtraEditors.SplitContainerControl() + Me.XtraTabControlDocs = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControlDocSearch1 = New DevExpress.XtraGrid.GridControl() + Me.GridViewDocSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPageDoc2 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControlDocSearch2 = New DevExpress.XtraGrid.GridControl() + Me.GridViewDocSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPageDoc3 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControlDocSearch3 = New DevExpress.XtraGrid.GridControl() + Me.GridViewDocSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPageDoc4 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControlDocSearch4 = New DevExpress.XtraGrid.GridControl() + Me.GridViewDocSearch4 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPageDoc5 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControlDocSearch5 = New DevExpress.XtraGrid.GridControl() + Me.GridViewDocSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStripDropDownButtonFile = New System.Windows.Forms.ToolStripDropDownButton() Me.DateiÖffnenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripButtonRefreshSearches = New System.Windows.Forms.ToolStripButton() - Me.GridControlDocSearch1 = New DevExpress.XtraGrid.GridControl() - Me.GridViewDocSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.SplitContainerSearches = New System.Windows.Forms.SplitContainer() Me.XtraTabControlSQL = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPageSearch1 = New DevExpress.XtraTab.XtraTabPage() @@ -56,20 +71,6 @@ Partial Class frmValidatorSearch Me.GridViewSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.tsslblSQL = New System.Windows.Forms.ToolStripStatusLabel() - Me.XtraTabControlDocs = New DevExpress.XtraTab.XtraTabControl() - Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage() - Me.XtraTabPageDoc2 = New DevExpress.XtraTab.XtraTabPage() - Me.GridControlDocSearch2 = New DevExpress.XtraGrid.GridControl() - Me.GridViewDocSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.XtraTabPageDoc3 = New DevExpress.XtraTab.XtraTabPage() - Me.GridControlDocSearch3 = New DevExpress.XtraGrid.GridControl() - Me.GridViewDocSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.XtraTabPageDoc4 = New DevExpress.XtraTab.XtraTabPage() - Me.GridControlDocSearch4 = New DevExpress.XtraGrid.GridControl() - Me.GridViewDocSearch4 = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.XtraTabPageDoc5 = New DevExpress.XtraTab.XtraTabPage() - Me.GridControlDocSearch5 = New DevExpress.XtraGrid.GridControl() - Me.GridViewDocSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() Me.tslblDocID = New System.Windows.Forms.ToolStripLabel() Me.tslblState = New System.Windows.Forms.ToolStripLabel() @@ -82,9 +83,27 @@ Partial Class frmValidatorSearch Me.ContextMenuStripSQL = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem() - Me.ToolStrip1.SuspendLayout() + Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() + CType(Me.SplitContainerControlDoc, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControlDoc.SuspendLayout() + CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControlDocs.SuspendLayout() + Me.XtraTabPageDoc1.SuspendLayout() CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageDoc2.SuspendLayout() + CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageDoc3.SuspendLayout() + CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageDoc4.SuspendLayout() + CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageDoc5.SuspendLayout() + CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() CType(Me.SplitContainerSearches, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerSearches.Panel1.SuspendLayout() Me.SplitContainerSearches.Panel2.SuspendLayout() @@ -107,26 +126,180 @@ Partial Class frmValidatorSearch CType(Me.GridControlSearch5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewSearch5, System.ComponentModel.ISupportInitialize).BeginInit() Me.StatusStrip1.SuspendLayout() - CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabControlDocs.SuspendLayout() - Me.XtraTabPageDoc1.SuspendLayout() - Me.XtraTabPageDoc2.SuspendLayout() - CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabPageDoc3.SuspendLayout() - CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabPageDoc4.SuspendLayout() - CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabPageDoc5.SuspendLayout() - CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit() Me.ToolStrip2.SuspendLayout() Me.ContextMenuStripWMFile.SuspendLayout() Me.ContextMenuStripSQL.SuspendLayout() Me.SuspendLayout() ' + 'SplitContainerControlDoc + ' + resources.ApplyResources(Me.SplitContainerControlDoc, "SplitContainerControlDoc") + Me.SplitContainerControlDoc.Name = "SplitContainerControlDoc" + Me.SplitContainerControlDoc.Panel1.Controls.Add(Me.XtraTabControlDocs) + resources.ApplyResources(Me.SplitContainerControlDoc.Panel1, "SplitContainerControlDoc.Panel1") + Me.SplitContainerControlDoc.Panel2.Controls.Add(Me.DocumentViewer1) + resources.ApplyResources(Me.SplitContainerControlDoc.Panel2, "SplitContainerControlDoc.Panel2") + Me.SplitContainerControlDoc.SplitterPosition = 351 + ' + 'XtraTabControlDocs + ' + resources.ApplyResources(Me.XtraTabControlDocs, "XtraTabControlDocs") + Me.XtraTabControlDocs.Name = "XtraTabControlDocs" + Me.XtraTabControlDocs.SelectedTabPage = Me.XtraTabPageDoc1 + Me.XtraTabControlDocs.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageDoc1, Me.XtraTabPageDoc2, Me.XtraTabPageDoc3, Me.XtraTabPageDoc4, Me.XtraTabPageDoc5}) + ' + 'XtraTabPageDoc1 + ' + Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1) + Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1" + resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1") + ' + 'GridControlDocSearch1 + ' + resources.ApplyResources(Me.GridControlDocSearch1, "GridControlDocSearch1") + GridLevelNode7.RelationName = "Level1" + Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode7}) + Me.GridControlDocSearch1.MainView = Me.GridViewDocSearch1 + Me.GridControlDocSearch1.Name = "GridControlDocSearch1" + Me.GridControlDocSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch1}) + ' + 'GridViewDocSearch1 + ' + Me.GridViewDocSearch1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua + Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime + Me.GridViewDocSearch1.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewDocSearch1.GridControl = Me.GridControlDocSearch1 + Me.GridViewDocSearch1.Name = "GridViewDocSearch1" + Me.GridViewDocSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewDocSearch1.OptionsFind.AlwaysVisible = True + Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceHideSelection = False + Me.GridViewDocSearch1.OptionsSelection.MultiSelect = True + Me.GridViewDocSearch1.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridViewDocSearch1.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewDocSearch1.OptionsView.ShowAutoFilterRow = True + ' + 'XtraTabPageDoc2 + ' + Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2) + Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2" + resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2") + ' + 'GridControlDocSearch2 + ' + resources.ApplyResources(Me.GridControlDocSearch2, "GridControlDocSearch2") + Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2 + Me.GridControlDocSearch2.Name = "GridControlDocSearch2" + Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2}) + ' + 'GridViewDocSearch2 + ' + Me.GridViewDocSearch2.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua + Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime + Me.GridViewDocSearch2.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewDocSearch2.GridControl = Me.GridControlDocSearch2 + Me.GridViewDocSearch2.Name = "GridViewDocSearch2" + Me.GridViewDocSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewDocSearch2.OptionsFind.AlwaysVisible = True + Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceHideSelection = False + Me.GridViewDocSearch2.OptionsSelection.MultiSelect = True + Me.GridViewDocSearch2.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridViewDocSearch2.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewDocSearch2.OptionsView.ShowAutoFilterRow = True + ' + 'XtraTabPageDoc3 + ' + Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3) + Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3" + resources.ApplyResources(Me.XtraTabPageDoc3, "XtraTabPageDoc3") + ' + 'GridControlDocSearch3 + ' + resources.ApplyResources(Me.GridControlDocSearch3, "GridControlDocSearch3") + Me.GridControlDocSearch3.MainView = Me.GridViewDocSearch3 + Me.GridControlDocSearch3.Name = "GridControlDocSearch3" + Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch3}) + ' + 'GridViewDocSearch3 + ' + Me.GridViewDocSearch3.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua + Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime + Me.GridViewDocSearch3.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewDocSearch3.GridControl = Me.GridControlDocSearch3 + Me.GridViewDocSearch3.Name = "GridViewDocSearch3" + Me.GridViewDocSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewDocSearch3.OptionsFind.AlwaysVisible = True + Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceHideSelection = False + Me.GridViewDocSearch3.OptionsSelection.MultiSelect = True + Me.GridViewDocSearch3.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridViewDocSearch3.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewDocSearch3.OptionsView.ShowAutoFilterRow = True + ' + 'XtraTabPageDoc4 + ' + Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4) + Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4" + resources.ApplyResources(Me.XtraTabPageDoc4, "XtraTabPageDoc4") + ' + 'GridControlDocSearch4 + ' + resources.ApplyResources(Me.GridControlDocSearch4, "GridControlDocSearch4") + Me.GridControlDocSearch4.MainView = Me.GridViewDocSearch4 + Me.GridControlDocSearch4.Name = "GridControlDocSearch4" + Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch4}) + ' + 'GridViewDocSearch4 + ' + Me.GridViewDocSearch4.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua + Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime + Me.GridViewDocSearch4.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewDocSearch4.GridControl = Me.GridControlDocSearch4 + Me.GridViewDocSearch4.Name = "GridViewDocSearch4" + Me.GridViewDocSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewDocSearch4.OptionsFind.AlwaysVisible = True + Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceHideSelection = False + Me.GridViewDocSearch4.OptionsSelection.MultiSelect = True + Me.GridViewDocSearch4.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridViewDocSearch4.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewDocSearch4.OptionsView.ShowAutoFilterRow = True + ' + 'XtraTabPageDoc5 + ' + Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5) + Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5" + resources.ApplyResources(Me.XtraTabPageDoc5, "XtraTabPageDoc5") + ' + 'GridControlDocSearch5 + ' + resources.ApplyResources(Me.GridControlDocSearch5, "GridControlDocSearch5") + Me.GridControlDocSearch5.MainView = Me.GridViewDocSearch5 + Me.GridControlDocSearch5.Name = "GridControlDocSearch5" + Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch5}) + ' + 'GridViewDocSearch5 + ' + Me.GridViewDocSearch5.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua + Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime + Me.GridViewDocSearch5.Appearance.SelectedRow.Options.UseBackColor = True + Me.GridViewDocSearch5.GridControl = Me.GridControlDocSearch5 + Me.GridViewDocSearch5.Name = "GridViewDocSearch5" + Me.GridViewDocSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewDocSearch5.OptionsFind.AlwaysVisible = True + Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceHideSelection = False + Me.GridViewDocSearch5.OptionsSelection.MultiSelect = True + Me.GridViewDocSearch5.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridViewDocSearch5.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewDocSearch5.OptionsView.ShowAutoFilterRow = True + ' 'ToolStrip1 ' Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile, Me.ToolStripButtonRefreshSearches}) @@ -159,32 +332,6 @@ Partial Class frmValidatorSearch resources.ApplyResources(Me.ToolStripButtonRefreshSearches, "ToolStripButtonRefreshSearches") Me.ToolStripButtonRefreshSearches.Name = "ToolStripButtonRefreshSearches" ' - 'GridControlDocSearch1 - ' - resources.ApplyResources(Me.GridControlDocSearch1, "GridControlDocSearch1") - GridLevelNode1.RelationName = "Level1" - Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1}) - Me.GridControlDocSearch1.MainView = Me.GridViewDocSearch1 - Me.GridControlDocSearch1.Name = "GridControlDocSearch1" - Me.GridControlDocSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch1}) - ' - 'GridViewDocSearch1 - ' - Me.GridViewDocSearch1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch1.Appearance.EvenRow.BackColor"), System.Drawing.Color) - Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch1.Appearance.SelectedRow.BackColor"), System.Drawing.Color) - Me.GridViewDocSearch1.Appearance.SelectedRow.Options.UseBackColor = True - Me.GridViewDocSearch1.GridControl = Me.GridControlDocSearch1 - Me.GridViewDocSearch1.Name = "GridViewDocSearch1" - Me.GridViewDocSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewDocSearch1.OptionsFind.AlwaysVisible = True - Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceFocusedCell = False - Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceHideSelection = False - Me.GridViewDocSearch1.OptionsSelection.MultiSelect = True - Me.GridViewDocSearch1.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect - Me.GridViewDocSearch1.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewDocSearch1.OptionsView.ShowAutoFilterRow = True - ' 'SplitContainerSearches ' Me.SplitContainerSearches.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.DD_PM_WINDREAM.My.MySettings.Default, "frmValSearchSplitterDistance", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) @@ -198,7 +345,7 @@ Partial Class frmValidatorSearch ' 'SplitContainerSearches.Panel2 ' - Me.SplitContainerSearches.Panel2.Controls.Add(Me.XtraTabControlDocs) + Me.SplitContainerSearches.Panel2.Controls.Add(Me.SplitContainerControlDoc) Me.SplitContainerSearches.Panel2.Controls.Add(Me.ToolStrip2) Me.SplitContainerSearches.SplitterDistance = Global.DD_PM_WINDREAM.My.MySettings.Default.frmValSearchSplitterDistance ' @@ -218,17 +365,17 @@ Partial Class frmValidatorSearch 'GridControlSearch1 ' resources.ApplyResources(Me.GridControlSearch1, "GridControlSearch1") - GridLevelNode2.RelationName = "Level1" - Me.GridControlSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2}) + GridLevelNode1.RelationName = "Level1" + Me.GridControlSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1}) Me.GridControlSearch1.MainView = Me.GridViewSearch1 Me.GridControlSearch1.Name = "GridControlSearch1" Me.GridControlSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch1}) ' 'GridViewSearch1 ' - Me.GridViewSearch1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch1.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridViewSearch1.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue Me.GridViewSearch1.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewSearch1.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch1.Appearance.SelectedRow.BackColor"), System.Drawing.Color) + Me.GridViewSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewSearch1.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewSearch1.GridControl = Me.GridControlSearch1 Me.GridViewSearch1.Name = "GridViewSearch1" @@ -250,17 +397,17 @@ Partial Class frmValidatorSearch 'GridControlSearch2 ' resources.ApplyResources(Me.GridControlSearch2, "GridControlSearch2") - GridLevelNode3.RelationName = "Level1" - Me.GridControlSearch2.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3}) + GridLevelNode2.RelationName = "Level1" + Me.GridControlSearch2.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2}) Me.GridControlSearch2.MainView = Me.GridViewSearch2 Me.GridControlSearch2.Name = "GridControlSearch2" Me.GridControlSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch2}) ' 'GridViewSearch2 ' - Me.GridViewSearch2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch2.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridViewSearch2.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue Me.GridViewSearch2.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewSearch2.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch2.Appearance.SelectedRow.BackColor"), System.Drawing.Color) + Me.GridViewSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewSearch2.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewSearch2.GridControl = Me.GridControlSearch2 Me.GridViewSearch2.Name = "GridViewSearch2" @@ -282,17 +429,17 @@ Partial Class frmValidatorSearch 'GridControlSearch3 ' resources.ApplyResources(Me.GridControlSearch3, "GridControlSearch3") - GridLevelNode4.RelationName = "Level1" - Me.GridControlSearch3.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4}) + GridLevelNode3.RelationName = "Level1" + Me.GridControlSearch3.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3}) Me.GridControlSearch3.MainView = Me.GridViewSearch3 Me.GridControlSearch3.Name = "GridControlSearch3" Me.GridControlSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch3}) ' 'GridViewSearch3 ' - Me.GridViewSearch3.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch3.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridViewSearch3.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue Me.GridViewSearch3.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewSearch3.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch3.Appearance.SelectedRow.BackColor"), System.Drawing.Color) + Me.GridViewSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewSearch3.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewSearch3.GridControl = Me.GridControlSearch3 Me.GridViewSearch3.Name = "GridViewSearch3" @@ -314,17 +461,17 @@ Partial Class frmValidatorSearch 'GridControlSearch4 ' resources.ApplyResources(Me.GridControlSearch4, "GridControlSearch4") - GridLevelNode5.RelationName = "Level1" - Me.GridControlSearch4.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode5}) + GridLevelNode4.RelationName = "Level1" + Me.GridControlSearch4.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4}) Me.GridControlSearch4.MainView = Me.GridViewSearch4 Me.GridControlSearch4.Name = "GridControlSearch4" Me.GridControlSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch4}) ' 'GridViewSearch4 ' - Me.GridViewSearch4.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch4.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridViewSearch4.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue Me.GridViewSearch4.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewSearch4.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch4.Appearance.SelectedRow.BackColor"), System.Drawing.Color) + Me.GridViewSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewSearch4.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewSearch4.GridControl = Me.GridControlSearch4 Me.GridViewSearch4.Name = "GridViewSearch4" @@ -346,17 +493,17 @@ Partial Class frmValidatorSearch 'GridControlSearch5 ' resources.ApplyResources(Me.GridControlSearch5, "GridControlSearch5") - GridLevelNode6.RelationName = "Level1" - Me.GridControlSearch5.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode6}) + GridLevelNode5.RelationName = "Level1" + Me.GridControlSearch5.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode5}) Me.GridControlSearch5.MainView = Me.GridViewSearch5 Me.GridControlSearch5.Name = "GridControlSearch5" Me.GridControlSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch5}) ' 'GridViewSearch5 ' - Me.GridViewSearch5.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch5.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridViewSearch5.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue Me.GridViewSearch5.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewSearch5.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch5.Appearance.SelectedRow.BackColor"), System.Drawing.Color) + Me.GridViewSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime Me.GridViewSearch5.Appearance.SelectedRow.Options.UseBackColor = True Me.GridViewSearch5.GridControl = Me.GridControlSearch5 Me.GridViewSearch5.Name = "GridViewSearch5" @@ -380,139 +527,6 @@ Partial Class frmValidatorSearch Me.tsslblSQL.Name = "tsslblSQL" resources.ApplyResources(Me.tsslblSQL, "tsslblSQL") ' - 'XtraTabControlDocs - ' - resources.ApplyResources(Me.XtraTabControlDocs, "XtraTabControlDocs") - Me.XtraTabControlDocs.Name = "XtraTabControlDocs" - Me.XtraTabControlDocs.SelectedTabPage = Me.XtraTabPageDoc1 - Me.XtraTabControlDocs.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageDoc1, Me.XtraTabPageDoc2, Me.XtraTabPageDoc3, Me.XtraTabPageDoc4, Me.XtraTabPageDoc5}) - ' - 'XtraTabPageDoc1 - ' - Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1) - Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1" - resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1") - ' - 'XtraTabPageDoc2 - ' - Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2) - Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2" - resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2") - ' - 'GridControlDocSearch2 - ' - resources.ApplyResources(Me.GridControlDocSearch2, "GridControlDocSearch2") - Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2 - Me.GridControlDocSearch2.Name = "GridControlDocSearch2" - Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2}) - ' - 'GridViewDocSearch2 - ' - Me.GridViewDocSearch2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch2.Appearance.EvenRow.BackColor"), System.Drawing.Color) - Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch2.Appearance.SelectedRow.BackColor"), System.Drawing.Color) - Me.GridViewDocSearch2.Appearance.SelectedRow.Options.UseBackColor = True - Me.GridViewDocSearch2.GridControl = Me.GridControlDocSearch2 - Me.GridViewDocSearch2.Name = "GridViewDocSearch2" - Me.GridViewDocSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewDocSearch2.OptionsFind.AlwaysVisible = True - Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceFocusedCell = False - Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceHideSelection = False - Me.GridViewDocSearch2.OptionsSelection.MultiSelect = True - Me.GridViewDocSearch2.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect - Me.GridViewDocSearch2.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewDocSearch2.OptionsView.ShowAutoFilterRow = True - ' - 'XtraTabPageDoc3 - ' - Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3) - Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3" - resources.ApplyResources(Me.XtraTabPageDoc3, "XtraTabPageDoc3") - ' - 'GridControlDocSearch3 - ' - resources.ApplyResources(Me.GridControlDocSearch3, "GridControlDocSearch3") - Me.GridControlDocSearch3.MainView = Me.GridViewDocSearch3 - Me.GridControlDocSearch3.Name = "GridControlDocSearch3" - Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch3}) - ' - 'GridViewDocSearch3 - ' - Me.GridViewDocSearch3.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch3.Appearance.EvenRow.BackColor"), System.Drawing.Color) - Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch3.Appearance.SelectedRow.BackColor"), System.Drawing.Color) - Me.GridViewDocSearch3.Appearance.SelectedRow.Options.UseBackColor = True - Me.GridViewDocSearch3.GridControl = Me.GridControlDocSearch3 - Me.GridViewDocSearch3.Name = "GridViewDocSearch3" - Me.GridViewDocSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewDocSearch3.OptionsFind.AlwaysVisible = True - Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceFocusedCell = False - Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceHideSelection = False - Me.GridViewDocSearch3.OptionsSelection.MultiSelect = True - Me.GridViewDocSearch3.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect - Me.GridViewDocSearch3.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewDocSearch3.OptionsView.ShowAutoFilterRow = True - ' - 'XtraTabPageDoc4 - ' - Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4) - Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4" - resources.ApplyResources(Me.XtraTabPageDoc4, "XtraTabPageDoc4") - ' - 'GridControlDocSearch4 - ' - resources.ApplyResources(Me.GridControlDocSearch4, "GridControlDocSearch4") - Me.GridControlDocSearch4.MainView = Me.GridViewDocSearch4 - Me.GridControlDocSearch4.Name = "GridControlDocSearch4" - Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch4}) - ' - 'GridViewDocSearch4 - ' - Me.GridViewDocSearch4.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch4.Appearance.EvenRow.BackColor"), System.Drawing.Color) - Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch4.Appearance.SelectedRow.BackColor"), System.Drawing.Color) - Me.GridViewDocSearch4.Appearance.SelectedRow.Options.UseBackColor = True - Me.GridViewDocSearch4.GridControl = Me.GridControlDocSearch4 - Me.GridViewDocSearch4.Name = "GridViewDocSearch4" - Me.GridViewDocSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewDocSearch4.OptionsFind.AlwaysVisible = True - Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceFocusedCell = False - Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceHideSelection = False - Me.GridViewDocSearch4.OptionsSelection.MultiSelect = True - Me.GridViewDocSearch4.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect - Me.GridViewDocSearch4.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewDocSearch4.OptionsView.ShowAutoFilterRow = True - ' - 'XtraTabPageDoc5 - ' - Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5) - Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5" - resources.ApplyResources(Me.XtraTabPageDoc5, "XtraTabPageDoc5") - ' - 'GridControlDocSearch5 - ' - resources.ApplyResources(Me.GridControlDocSearch5, "GridControlDocSearch5") - Me.GridControlDocSearch5.MainView = Me.GridViewDocSearch5 - Me.GridControlDocSearch5.Name = "GridControlDocSearch5" - Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch5}) - ' - 'GridViewDocSearch5 - ' - Me.GridViewDocSearch5.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch5.Appearance.EvenRow.BackColor"), System.Drawing.Color) - Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch5.Appearance.SelectedRow.BackColor"), System.Drawing.Color) - Me.GridViewDocSearch5.Appearance.SelectedRow.Options.UseBackColor = True - Me.GridViewDocSearch5.GridControl = Me.GridControlDocSearch5 - Me.GridViewDocSearch5.Name = "GridViewDocSearch5" - Me.GridViewDocSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewDocSearch5.OptionsFind.AlwaysVisible = True - Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceFocusedCell = False - Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceHideSelection = False - Me.GridViewDocSearch5.OptionsSelection.MultiSelect = True - Me.GridViewDocSearch5.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect - Me.GridViewDocSearch5.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewDocSearch5.OptionsView.ShowAutoFilterRow = True - ' 'ToolStrip2 ' resources.ApplyResources(Me.ToolStrip2, "ToolStrip2") @@ -579,19 +593,40 @@ Partial Class frmValidatorSearch Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" resources.ApplyResources(Me.ToolStripMenuItem4, "ToolStripMenuItem4") ' + 'DocumentViewer1 + ' + resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1") + Me.DocumentViewer1.Name = "DocumentViewer1" + ' 'frmValidatorSearch ' resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.Controls.Add(Me.SplitContainerSearches) Me.Controls.Add(Me.ToolStrip1) - Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "frmValidatorSearch" - Me.ToolStrip1.ResumeLayout(False) - Me.ToolStrip1.PerformLayout() + CType(Me.SplitContainerControlDoc, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControlDoc.ResumeLayout(False) + CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControlDocs.ResumeLayout(False) + Me.XtraTabPageDoc1.ResumeLayout(False) CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageDoc2.ResumeLayout(False) + CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageDoc3.ResumeLayout(False) + CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageDoc4.ResumeLayout(False) + CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageDoc5.ResumeLayout(False) + CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() Me.SplitContainerSearches.Panel1.ResumeLayout(False) Me.SplitContainerSearches.Panel1.PerformLayout() Me.SplitContainerSearches.Panel2.ResumeLayout(False) @@ -617,21 +652,6 @@ Partial Class frmValidatorSearch CType(Me.GridViewSearch5, System.ComponentModel.ISupportInitialize).EndInit() Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() - CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabControlDocs.ResumeLayout(False) - Me.XtraTabPageDoc1.ResumeLayout(False) - Me.XtraTabPageDoc2.ResumeLayout(False) - CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabPageDoc3.ResumeLayout(False) - CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabPageDoc4.ResumeLayout(False) - CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabPageDoc5.ResumeLayout(False) - CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).EndInit() Me.ToolStrip2.ResumeLayout(False) Me.ToolStrip2.PerformLayout() Me.ContextMenuStripWMFile.ResumeLayout(False) @@ -693,4 +713,6 @@ Partial Class frmValidatorSearch Friend WithEvents ToolStripMenuItem4 As ToolStripMenuItem Friend WithEvents StatusStrip1 As StatusStrip Friend WithEvents tsslblSQL As ToolStripStatusLabel + Friend WithEvents SplitContainerControlDoc As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer End Class diff --git a/app/DD_PM_WINDREAM/frmValidatorSearch.resx b/app/DD_PM_WINDREAM/frmValidatorSearch.resx index 4233999..400a76d 100644 --- a/app/DD_PM_WINDREAM/frmValidatorSearch.resx +++ b/app/DD_PM_WINDREAM/frmValidatorSearch.resx @@ -117,80 +117,245 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 17, 17 - + + + Fill + - - 148, 22 + + 0, 0 - - Öffnen + + Fill - - 148, 22 + + 0, 0 - - Eigenschaften + + GridControlDocSearch1 - - Magenta + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 63, 22 + + XtraTabPageDoc1 - - Datei + + 0 - - Magenta + + 349, 557 - - 131, 22 + + XtraTabPage1 - - Aktualisiere Ansicht + + XtraTabPageDoc1 - - 0, 0 + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 1203, 25 + + XtraTabControlDocs + + + 0 + + + 351, 582 - + + 4 + + + GridControlDocSearch2 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageDoc2 + + 0 - - ToolStrip1 + + 349, 557 - - ToolStrip1 + + XtraTabPage2 - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + XtraTabPageDoc2 - - $this + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - + + XtraTabControlDocs + + + 1 + + + GridControlDocSearch3 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageDoc3 + + + 0 + + + 349, 557 + + + XtraTabPage1 + + + XtraTabPageDoc3 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControlDocs + + + 2 + + + GridControlDocSearch4 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageDoc4 + + + 0 + + + 349, 557 + + + XtraTabPage2 + + + XtraTabPageDoc4 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControlDocs + + 3 - - + + GridControlDocSearch5 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageDoc5 + + + 0 + + + 349, 557 + + + XtraTabPage3 + + + XtraTabPageDoc5 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControlDocs + + + 4 + + + XtraTabControlDocs + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + SplitContainerControlDoc.Panel1 + + + 0 + + + Panel1 + + Fill - + 0, 0 - - Aqua + + 286, 582 + + + 0 + + + DocumentViewer1 + + + DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + SplitContainerControlDoc.Panel2 + + + 0 + + + Panel2 + + + 647, 582 + + + 6 - - Lime + + SplitContainerControlDoc + + + DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + SplitContainerSearches.Panel2 + + + 0 + + + Fill + + + 0, 0 - 635, 372 + 349, 557 0 @@ -207,36 +372,171 @@ 0 - + Fill - - 0, 25 + + 0, 0 - + + 349, 557 + + + 1 + + + GridControlDocSearch2 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageDoc2 + + + 0 + + Fill - + 0, 0 - + + 349, 557 + + + 1 + + + GridControlDocSearch3 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageDoc3 + + + 0 + + Fill - + 0, 0 - - LightBlue + + 349, 557 - - Lime + + 1 - - 552, 375 + + GridControlDocSearch4 - + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageDoc4 + + + 0 + + + Fill + + + 0, 0 + + + 349, 557 + + 1 + + GridControlDocSearch5 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageDoc5 + + + 0 + + + 17, 17 + + + 0, 0 + + + 1214, 25 + + + 0 + + + ToolStrip1 + + + ToolStrip1 + + + System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + + + Magenta + + + 63, 22 + + + Datei + + + 148, 22 + + + Öffnen + + + 148, 22 + + + Eigenschaften + + + Magenta + + + 131, 22 + + + Aktualisiere Ansicht + + + Fill + + + 0, 25 + + + Fill + + + 0, 0 + GridControlSearch1 @@ -250,7 +550,7 @@ 0 - 552, 375 + 561, 560 Search1 @@ -268,29 +568,11 @@ 0 - 558, 403 + 563, 585 4 - - Fill - - - 0, 0 - - - LightBlue - - - Lime - - - 552, 375 - - - 2 - GridControlSearch2 @@ -304,7 +586,7 @@ 0 - 552, 375 + 561, 560 Search2 @@ -321,24 +603,6 @@ 1 - - Fill - - - 0, 0 - - - LightBlue - - - Lime - - - 552, 375 - - - 2 - GridControlSearch3 @@ -352,7 +616,7 @@ 0 - 552, 375 + 561, 560 XtraTabPage1 @@ -369,24 +633,6 @@ 2 - - Fill - - - 0, 0 - - - LightBlue - - - Lime - - - 552, 375 - - - 2 - GridControlSearch4 @@ -400,7 +646,7 @@ 0 - 552, 375 + 561, 560 XtraTabPage2 @@ -417,24 +663,6 @@ 3 - - Fill - - - 0, 0 - - - LightBlue - - - Lime - - - 552, 375 - - - 2 - GridControlSearch5 @@ -448,7 +676,7 @@ 0 - 552, 375 + 561, 560 XtraTabPage3 @@ -478,19 +706,13 @@ 0 - 712, 17 + 595, 17 - - 91, 17 - - - No action so far - - 0, 403 + 0, 585 - 558, 22 + 563, 22 5 @@ -504,281 +726,35 @@ System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - SplitContainerSearches.Panel1 - - - 1 - - - SplitContainerSearches.Panel1 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerSearches - - - 0 - - - Fill - - - 0, 0 - - - 635, 372 - - - XtraTabPage1 - - - XtraTabPageDoc1 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControlDocs - - - 0 - - - 641, 400 - - - 4 - - - Fill - - - 0, 0 - - - Aqua - - - Lime - - - 635, 372 - - - 1 - - - GridControlDocSearch2 - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabPageDoc2 - - - 0 - - - 635, 372 - - - XtraTabPage2 - - - XtraTabPageDoc2 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControlDocs - - - 1 - - - Fill - - - 0, 0 - - - Aqua - - - Lime - - - 635, 372 - - - 1 - - - GridControlDocSearch3 - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabPageDoc3 - - - 0 - - - 635, 372 - - - XtraTabPage1 - - - XtraTabPageDoc3 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControlDocs - - - 2 - - - Fill - - - 0, 0 - - - Aqua - - - Lime - - - 635, 372 - - - 1 - - - GridControlDocSearch4 - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabPageDoc4 - - - 0 - - - 635, 372 - - - XtraTabPage2 - - - XtraTabPageDoc4 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControlDocs - - - 3 - - - Fill - - - 0, 0 - - - Aqua - - - Lime - - - 635, 372 - - - 1 - - - GridControlDocSearch5 - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabPageDoc5 - - - 0 - - - 635, 372 - - - XtraTabPage3 - - - XtraTabPageDoc5 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControlDocs - - - 4 + + SplitContainerSearches.Panel1 - - XtraTabControlDocs + + 1 - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + SplitContainerSearches.Panel1 - - SplitContainerSearches.Panel2 + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + + SplitContainerSearches + + 0 - 433, 17 + 316, 17 Bottom - - 61, 22 - - - tslblDocID - - - 91, 22 - - - No action so far - - 0, 400 + 0, 582 - 641, 25 + 647, 25 3 @@ -811,7 +787,7 @@ 1 - 1203, 425 + 1214, 607 3 @@ -828,9 +804,156 @@ 2 + + Fill + + + 0, 0 + + + 561, 560 + + + 1 + + + GridControlSearch1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageSearch1 + + + 0 + + + Fill + + + 0, 0 + + + 561, 560 + + + 2 + + + GridControlSearch2 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageSearch2 + + + 0 + + + Fill + + + 0, 0 + + + 561, 560 + + + 2 + + + GridControlSearch3 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageSearch3 + + + 0 + + + Fill + + + 0, 0 + + + 561, 560 + + + 2 + + + GridControlSearch4 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageSearch4 + + + 0 + + + Fill + + + 0, 0 + + + 561, 560 + + + 2 + + + GridControlSearch5 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPageSearch5 + + + 0 + + + 91, 17 + + + No action so far + + + 61, 22 + + + tslblDocID + + + 91, 22 + + + No action so far + - 241, 17 + 124, 17 + + 182, 98 + + + ContextMenuStripWMFile + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + iVBORw0KGgoAAAANSUhEUgAAACAAAAAZCAYAAABQDyyRAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6 @@ -933,18 +1056,18 @@ Layout zurücksetzen - - 182, 120 + + 423, 17 + + + 143, 32 - - ContextMenuStripWMFile + + ContextMenuStripSQL - + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 540, 17 - 139, 6 @@ -954,26 +1077,17 @@ Aktualisieren - - 143, 32 - - - ContextMenuStripSQL - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - True - 167 + 81 6, 13 - 1203, 450 + 1214, 632 Tahoma, 8.25pt @@ -1014,6 +1128,36 @@ Zusätzliche Suchen + + GridViewDocSearch1 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridViewDocSearch2 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridViewDocSearch3 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridViewDocSearch4 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridViewDocSearch5 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ToolStripDropDownButtonFile @@ -1038,12 +1182,6 @@ System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GridViewDocSearch1 - - - DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - GridViewSearch1 @@ -1080,30 +1218,6 @@ System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GridViewDocSearch2 - - - DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridViewDocSearch3 - - - DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridViewDocSearch4 - - - DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridViewDocSearch5 - - - DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - tslblDocID diff --git a/app/DD_PM_WINDREAM/frmValidatorSearch.vb b/app/DD_PM_WINDREAM/frmValidatorSearch.vb index d8f3eb0..070a996 100644 --- a/app/DD_PM_WINDREAM/frmValidatorSearch.vb +++ b/app/DD_PM_WINDREAM/frmValidatorSearch.vb @@ -78,12 +78,13 @@ Public Class frmValidatorSearch End If XtraTabControlDocs.TabPages(p).Text = DTDOC.Rows(p).Item("TAB_TITLE") Next + End If End If Catch ex As Exception - + LOGGER.Error(ex) End Try End Sub @@ -367,6 +368,11 @@ Public Class frmValidatorSearch End Try End Function Private Sub frmValidatorSearch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + Try + DocumentViewer1.Done() + Catch ex As Exception + LOGGER.Warn($"Unexpected error in DocumentViewerValSearch.Done: {ex.Message}") + End Try Try ' Position und Größe speichern My.Settings.frmValidatorSearchSize = Me.Size @@ -377,9 +383,15 @@ Public Class frmValidatorSearch LOGGER.Error(ex) LOGGER.Info("Error in Save FormLayout: " & ex.Message) End Try + End Sub Private Sub frmValidatorSearch_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + DocumentViewer1.Init(LOGCONFIG, GDPICTURE_LICENSE) + Catch ex As Exception + LOGGER.Warn("Error initializing DocViewDocsValdiatorSearch: " & ex.Message) + End Try SplitContainerSearches.Panel1Collapsed = True If My.Settings.frmValidatorSearchPosition.IsEmpty = False Then If My.Settings.frmValidatorSearchPosition.X > 0 And My.Settings.frmValidatorSearchPosition.Y > 0 Then @@ -454,8 +466,14 @@ Public Class frmValidatorSearch Dim msg = "Doc-ID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString tslblDocID.Text = msg ToolStripDropDownButtonFile.Enabled = True - Else - tslblDocID.Text = "DocRow not selected" + If Not IsNothing(clsWMDocGrid.SELECTED_DOC_PATH) And Not IsNothing(DocumentViewer1) Then + If clsWMDocGrid.SELECTED_DOC_PATH <> "" Then + DocumentViewer1.LoadFile(clsWMDocGrid.SELECTED_DOC_PATH) + End If + End If + + Else + tslblDocID.Text = "DocRow not selected" ToolStripDropDownButtonFile.Enabled = False End If End Sub @@ -499,13 +517,11 @@ Public Class frmValidatorSearch End Sub Sub FileShow() Try - If IsNothing(clsWMDocGrid.DTDocuments) Then + If IsNothing(clsWMDocGrid.SELECTED_DOC_PATH) Then MsgBox("Could not read fileparameters(5)!", MsgBoxStyle.Exclamation) Exit Sub End If - For Each row As DataRow In clsWMDocGrid.DTDocuments.Rows - File_SYSOPEN(row.Item("DOC_PATH"), row.Item("DOC_ID")) - Next + File_SYSOPEN(clsWMDocGrid.SELECTED_DOC_PATH, clsWMDocGrid.SELECTED_DOC_ID) Catch ex As Exception End Try @@ -513,14 +529,20 @@ Public Class frmValidatorSearch Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String) Try If RESULT_DOC_PATH <> Nothing Then + If File.Exists(RESULT_DOC_PATH) Then + BW_DocPath = RESULT_DOC_PATH + BW_DocID = DocID - BW_DocPath = RESULT_DOC_PATH - BW_DocID = DocID + Dim BWFileHandler As New BackgroundWorker + AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork + BWFileHandler.RunWorkerAsync() + Else + MsgBox("Document is not existing or accessible!", MsgBoxStyle.Exclamation) - Dim BWFileHandler As New BackgroundWorker - AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork - BWFileHandler.RunWorkerAsync() + End If + Else + LOGGER.Warn("Attention: RESULT_DOC_PATH is nothing") End If Catch ex As Exception MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical) @@ -531,8 +553,7 @@ Public Class frmValidatorSearch Try Dim oMyProcess = New Process() - Dim oExtension - Dim oSql + Try 'Dim oPSI As New ProcessStartInfo(BW_DocPath) oMyProcess.StartInfo.FileName = BW_DocPath From 25b444528d5068bba8224023eb9a396a6a7bb1c9 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 9 Jan 2020 12:34:46 +0100 Subject: [PATCH 02/26] MS --- app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj | 18 + app/DD_PM_WINDREAM/My Project/licenses.licx | 4 +- app/DD_PM_WINDREAM/frmAdmin2.Designer.vb | 2 + app/DD_PM_WINDREAM/frmAdmin2.resx | 513 +++++++----------- .../frmDesignerLayout.Designer.vb | 123 +++++ app/DD_PM_WINDREAM/frmDesignerLayout.resx | 120 ++++ app/DD_PM_WINDREAM/frmDesignerLayout.vb | 3 + app/DD_PM_WINDREAM/frmMain.Designer.vb | 41 +- app/DD_PM_WINDREAM/frmMain.resx | 75 ++- app/DD_PM_WINDREAM/frmMain.vb | 4 + .../frmMetadataFile.Designer.vb | 116 ++++ app/DD_PM_WINDREAM/frmMetadataFile.resx | 132 +++++ app/DD_PM_WINDREAM/frmMetadataFile.vb | 3 + app/DD_PM_WINDREAM/frmMonitor.Designer.vb | 1 + app/DD_PM_WINDREAM/frmMonitor.resx | 11 + app/DD_PM_WINDREAM/frmSplash.vb | 4 +- 16 files changed, 834 insertions(+), 336 deletions(-) create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout.resx create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout.vb create mode 100644 app/DD_PM_WINDREAM/frmMetadataFile.Designer.vb create mode 100644 app/DD_PM_WINDREAM/frmMetadataFile.resx create mode 100644 app/DD_PM_WINDREAM/frmMetadataFile.vb diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index 5c92a41..590ad0d 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -287,6 +287,12 @@ Form + + frmDesignerLayout.vb + + + Form + frmDocView.vb @@ -341,6 +347,12 @@ Form + + frmMetadataFile.vb + + + Form + frmMonitor.vb @@ -449,6 +461,9 @@ frmControl_Detail.vb + + frmDesignerLayout.vb + frmDocView.vb @@ -486,6 +501,9 @@ frmKonfig.vb + + frmMetadataFile.vb + frmMonitor.vb diff --git a/app/DD_PM_WINDREAM/My Project/licenses.licx b/app/DD_PM_WINDREAM/My Project/licenses.licx index db6fe7a..8ed718f 100644 --- a/app/DD_PM_WINDREAM/My Project/licenses.licx +++ b/app/DD_PM_WINDREAM/My Project/licenses.licx @@ -1,5 +1,7 @@ DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb index 1f5f064..001ec16 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb @@ -111,6 +111,7 @@ Partial Class frmAdmin2 Me.TBDD_EMAIL_TEMPLATETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter() Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter() + Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components) GUIDLabel = New System.Windows.Forms.Label() TITLELabel = New System.Windows.Forms.Label() EMAIL_SUBJECTLabel = New System.Windows.Forms.Label() @@ -875,4 +876,5 @@ Partial Class frmAdmin2 Friend WithEvents OBJ_NAMETextBox As TextBox Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents INTERNALCheckBox As CheckBox + Friend WithEvents LayoutConverter1 As DevExpress.XtraLayout.Converter.LayoutConverter End Class diff --git a/app/DD_PM_WINDREAM/frmAdmin2.resx b/app/DD_PM_WINDREAM/frmAdmin2.resx index 6411afd..d733754 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.resx +++ b/app/DD_PM_WINDREAM/frmAdmin2.resx @@ -1138,6 +1138,12 @@ 0, 0 + + Vorlagen Verwaltung + + + Phrasen Verwaltung + Aktionen @@ -1174,12 +1180,6 @@ 2 - - Vorlagen Verwaltung - - - Phrasen Verwaltung - RibbonPage2 @@ -1193,6 +1193,18 @@ True + + 907, 37 + + + 75, 23 + + + 21 + + + Vorschau + Button1 @@ -1205,6 +1217,48 @@ 0 + + 179, 17 + + + 17, 17 + + + Left + + + 0, 0 + + + ID + + + True + + + 0 + + + 51 + + + Titel + + + True + + + 1 + + + 128 + + + 353, 508 + + + 20 + GridControl1 @@ -1217,6 +1271,15 @@ 1 + + 461, 12 + + + 100, 21 + + + 1 + GUIDTextBox @@ -1229,6 +1292,15 @@ 3 + + 461, 39 + + + 428, 21 + + + 3 + TITLETextBox @@ -1241,6 +1313,15 @@ 5 + + 461, 66 + + + 428, 21 + + + 5 + EMAIL_SUBJECTTextBox @@ -1253,6 +1334,24 @@ 7 + + Top, Left, Right + + + 461, 93 + + + True + + + Both + + + 583, 125 + + + 7 + EMAIL_BODY1TextBox @@ -1265,6 +1364,24 @@ 9 + + Top, Left, Right + + + 461, 224 + + + True + + + Both + + + 583, 120 + + + 9 + EMAIL_BODY2TextBox @@ -1277,6 +1394,24 @@ 11 + + Top, Left, Right + + + 461, 350 + + + True + + + Both + + + 583, 67 + + + 11 + EMAIL_BODY3TextBox @@ -1289,6 +1424,15 @@ 13 + + 461, 423 + + + 124, 21 + + + 13 + ADDED_WHOTextBox @@ -1301,6 +1445,15 @@ 15 + + 694, 423 + + + 128, 21 + + + 15 + ADDED_WHENTextBox @@ -1313,6 +1466,15 @@ 17 + + 461, 453 + + + 124, 21 + + + 17 + CHANGED_WHOTextBox @@ -1325,6 +1487,15 @@ 19 + + 694, 453 + + + 128, 21 + + + 19 + CHANGED_WHENTextBox @@ -1394,9 +1565,6 @@ 0 - - 17, 56 - 671, 65 @@ -1841,324 +2009,6 @@ 0 - - 907, 37 - - - 75, 23 - - - 21 - - - Vorschau - - - Button1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 0 - - - 179, 17 - - - 17, 17 - - - Left - - - 0, 0 - - - ID - - - True - - - 0 - - - 51 - - - Titel - - - True - - - 1 - - - 128 - - - 353, 508 - - - 20 - - - GridControl1 - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabPage1 - - - 1 - - - 17, 17 - - - 461, 12 - - - 100, 21 - - - 1 - - - GUIDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 3 - - - 461, 39 - - - 428, 21 - - - 3 - - - TITLETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 5 - - - 461, 66 - - - 428, 21 - - - 5 - - - EMAIL_SUBJECTTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 7 - - - Top, Left, Right - - - 461, 93 - - - True - - - Both - - - 583, 125 - - - 7 - - - EMAIL_BODY1TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 9 - - - Top, Left, Right - - - 461, 224 - - - True - - - Both - - - 583, 120 - - - 9 - - - EMAIL_BODY2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 11 - - - Top, Left, Right - - - 461, 350 - - - True - - - Both - - - 583, 67 - - - 11 - - - EMAIL_BODY3TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 13 - - - 461, 423 - - - 124, 21 - - - 13 - - - ADDED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 15 - - - 694, 423 - - - 128, 21 - - - 15 - - - ADDED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 17 - - - 461, 453 - - - 124, 21 - - - 17 - - - CHANGED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 19 - - - 694, 453 - - - 128, 21 - - - 19 - - - CHANGED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 21 - 442, 17 @@ -2168,6 +2018,9 @@ 321, 56 + + 619, 56 + True @@ -2362,6 +2215,12 @@ DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + LayoutConverter1 + + + DevExpress.XtraLayout.Converter.LayoutConverter, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmAdmin2 diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb b/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb new file mode 100644 index 0000000..b25308d --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb @@ -0,0 +1,123 @@ + _ +Partial Class frmDesignerLayout + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.DataLayoutControl1 = New DevExpress.XtraDataLayout.DataLayoutControl() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataLayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 1 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.Size = New System.Drawing.Size(1196, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "RibbonPageGroup2" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 598) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1196, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'DataLayoutControl1 + ' + Me.DataLayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataLayoutControl1.Location = New System.Drawing.Point(0, 158) + Me.DataLayoutControl1.Name = "DataLayoutControl1" + Me.DataLayoutControl1.Root = Me.Root + Me.DataLayoutControl1.Size = New System.Drawing.Size(1196, 440) + Me.DataLayoutControl1.TabIndex = 2 + Me.DataLayoutControl1.Text = "DataLayoutControl1" + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(1196, 440) + Me.Root.TextVisible = False + ' + 'frmDesignerLayout + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1196, 622) + Me.Controls.Add(Me.DataLayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmDesignerLayout" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "frmDesignerLayout" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataLayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents DataLayoutControl1 As DevExpress.XtraDataLayout.DataLayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup +End Class diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout.resx b/app/DD_PM_WINDREAM/frmDesignerLayout.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout.vb b/app/DD_PM_WINDREAM/frmDesignerLayout.vb new file mode 100644 index 0000000..8e5608b --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout.vb @@ -0,0 +1,3 @@ +Public Class frmDesignerLayout + +End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index d3ea2aa..b1340a5 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -45,6 +45,7 @@ Partial Class frmMain Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.CMGroupStart = New System.Windows.Forms.ToolStripMenuItem() Me.CMFileStart = New System.Windows.Forms.ToolStripMenuItem() + Me.CMFileMetadata = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() Me.tsmiMarkedFilesFinish = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() @@ -100,11 +101,14 @@ Partial Class frmMain Me.bsilastsync = New DevExpress.XtraBars.BarStaticItem() Me.bsiDebug = New DevExpress.XtraBars.BarStaticItem() Me.bsiMessage = New DevExpress.XtraBars.BarStaticItem() + Me.bbtniMetadataFile = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) @@ -301,7 +305,7 @@ Partial Class frmMain 'ContextMenuGrid ' Me.ContextMenuGrid.ImageScalingSize = New System.Drawing.Size(20, 20) - Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CMGroupStart, Me.CMFileStart, Me.ToolStripSeparator4, Me.tsmiMarkedFilesFinish, Me.ToolStripSeparator3, Me.LöscheAlleFilterToolStripMenuItem, Me.TabellenlayoutZurücksetzenToolStripMenuItem, Me.LayoutSpeichernToolStripMenuItem}) + Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CMGroupStart, Me.CMFileStart, Me.CMFileMetadata, Me.ToolStripSeparator4, Me.tsmiMarkedFilesFinish, Me.ToolStripSeparator3, Me.LöscheAlleFilterToolStripMenuItem, Me.TabellenlayoutZurücksetzenToolStripMenuItem, Me.LayoutSpeichernToolStripMenuItem}) Me.ContextMenuGrid.Name = "ContextMenuStrip1" resources.ApplyResources(Me.ContextMenuGrid, "ContextMenuGrid") ' @@ -317,6 +321,11 @@ Partial Class frmMain Me.CMFileStart.Name = "CMFileStart" resources.ApplyResources(Me.CMFileStart, "CMFileStart") ' + 'CMFileMetadata + ' + resources.ApplyResources(Me.CMFileMetadata, "CMFileMetadata") + Me.CMFileMetadata.Name = "CMFileMetadata" + ' 'ToolStripSeparator4 ' Me.ToolStripSeparator4.Name = "ToolStripSeparator4" @@ -556,11 +565,11 @@ Partial Class frmMain 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 15 + Me.RibbonControl1.MaxItemId = 16 Me.RibbonControl1.Name = "RibbonControl1" - Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3}) Me.RibbonControl1.QuickToolbarItemLinks.Add(Me.bbtnitemInfo) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 @@ -676,6 +685,14 @@ Partial Class frmMain Me.bsiMessage.Id = 14 Me.bsiMessage.Name = "bsiMessage" ' + 'bbtniMetadataFile + ' + resources.ApplyResources(Me.bbtniMetadataFile, "bbtniMetadataFile") + Me.bbtniMetadataFile.Id = 15 + Me.bbtniMetadataFile.ImageOptions.Image = CType(resources.GetObject("bbtniMetadataFile.ImageOptions.Image"), System.Drawing.Image) + Me.bbtniMetadataFile.ImageOptions.LargeImage = CType(resources.GetObject("bbtniMetadataFile.ImageOptions.LargeImage"), System.Drawing.Image) + Me.bbtniMetadataFile.Name = "bbtniMetadataFile" + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4}) @@ -691,6 +708,7 @@ Partial Class frmMain 'RibbonPageGroup2 ' Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtniMetadataFile) Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtniMonitor) Me.RibbonPageGroup2.Name = "RibbonPageGroup2" resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2") @@ -711,6 +729,17 @@ Partial Class frmMain Me.RibbonPageGroup4.Name = "RibbonPageGroup4" resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4") ' + 'RibbonPage3 + ' + Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup5}) + Me.RibbonPage3.Name = "RibbonPage3" + resources.ApplyResources(Me.RibbonPage3, "RibbonPage3") + ' + 'RibbonPageGroup5 + ' + Me.RibbonPageGroup5.Name = "RibbonPageGroup5" + resources.ApplyResources(Me.RibbonPageGroup5, "RibbonPageGroup5") + ' 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUser) @@ -874,4 +903,8 @@ Partial Class frmMain Friend WithEvents bsilastsync As DevExpress.XtraBars.BarStaticItem Friend WithEvents bsiDebug As DevExpress.XtraBars.BarStaticItem Friend WithEvents bsiMessage As DevExpress.XtraBars.BarStaticItem + Friend WithEvents CMFileMetadata As ToolStripMenuItem + Friend WithEvents bbtniMetadataFile As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup End Class diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index adb73ac..1e423a4 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -488,7 +488,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAUQBBQFEAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAVwBBQFcAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -556,6 +556,25 @@ Validierung für Datei starten + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAANNJREFUOE+1k80NgzAMRhmlI3QGZuGeLdiBXjoEU2QaCk3gSPssjJIQBXpopE9y + 7M/PCT9VuuZ5XgsanHP3zZpfGOu6zqpt23NICYBOISHgNYyRipBlWW7e+ycAa63Ivd06jdMBEEKkGRIb + mpExRqR7QLmTUJPJ32Bomkaa+r7fDcTkqIWQCKDHxqiFVHoavY7mBcB0Ap3cdY99EjE5anj0FCkgmq6N + CtI8Hu/8fwCXr6CeCPDLQ0w9Arj6GjHndOlDolb8gVjBp7yDiMlR22zJqqoPDtN4ChAfojUAAAAASUVO + RK5CYII= + + + + 269, 26 + + + Metadaten Datei anzeigen + + + False + 266, 6 @@ -606,7 +625,7 @@ Layout speichern - 270, 172 + 270, 198 ContextMenuGrid @@ -1562,6 +1581,28 @@ BarStaticItem1 + + Metadaten Datei + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAATdEVYdFRpdGxlAFByb2plY3Q7RmlsZTs9+42CAAAA + cUlEQVQ4T92P2wmAMAxF3ck5upTkO/O4jJuosSkk1PRl/BIDh5bL7SGdiOhGWNYQIUOwPaEI+MGTTCgC + t4DX44IT/VKy15DCiK4AAKjBrAK51OCyHc4QcRPJcAM7nO3HqZJXghy3IJ+/COLZ5BuCPkAXqoH69KX6 + 0EkAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAATdEVYdFRpdGxlAFByb2plY3Q7RmlsZTs9+42CAAAA + 00lEQVRYR+2SXw7CIAyHdz4TruSD4cmIN+AeXoaL6EOli5DiWoHN4J+0yZcUNn79ljEBwEdhN0dSLMzh + ImEi0IihmTWKRTwswQ0SoZk1ikU8LJHCuWeU/xVogma1kpsY0HPR1rK4oFSAO/B20rzEzwrM//wZGtxK + bmIAN0histZCjb095t57v6ODE7lhhrxiFmgtfPfkzqzEMIEQAiuRGwSDW+kVwEIJ59yNStDh3JdKrBLA + ekhck8QwAY5YYwS4UgEVUAEVWAj0ogIq8BUCWwGA6Q7DQtTyWUCXGgAAAABJRU5ErkJggg== + + 0, 0 @@ -1580,6 +1621,12 @@ Funktionen + + RibbonPageGroup5 + + + RibbonPage3 + 1023, 158 @@ -1851,6 +1898,12 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + CMFileMetadata + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + ToolStripSeparator4 @@ -2151,6 +2204,12 @@ DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + bbtniMetadataFile + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage1 @@ -2181,6 +2240,18 @@ DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + RibbonPage3 + + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPageGroup5 + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage2 diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 556bba9..6a7c36c 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -1798,4 +1798,8 @@ Public Class frmMain Private Sub bbiKonfiguration_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbiKonfiguration.ItemClick frmAdmin2.ShowDialog() End Sub + + Private Sub bbtniMetadataFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniMetadataFile.ItemClick + frmDesignerLayout.Show() + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMetadataFile.Designer.vb b/app/DD_PM_WINDREAM/frmMetadataFile.Designer.vb new file mode 100644 index 0000000..fd7a3af --- /dev/null +++ b/app/DD_PM_WINDREAM/frmMetadataFile.Designer.vb @@ -0,0 +1,116 @@ + _ +Partial Class frmMetadataFile + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMetadataFile)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.SuspendLayout() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 1 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.Size = New System.Drawing.Size(1155, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "RibbonPageGroup2" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 586) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1155, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + Me.SplitContainerControl1.Panel1.Text = "Panel1" + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(1155, 428) + Me.SplitContainerControl1.SplitterPosition = 387 + Me.SplitContainerControl1.TabIndex = 2 + ' + 'frmMetadataFile + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1155, 610) + Me.Controls.Add(Me.SplitContainerControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.LargeImage = CType(resources.GetObject("frmMetadataFile.IconOptions.LargeImage"), System.Drawing.Image) + Me.Name = "frmMetadataFile" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Metadaten Objekt" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl +End Class diff --git a/app/DD_PM_WINDREAM/frmMetadataFile.resx b/app/DD_PM_WINDREAM/frmMetadataFile.resx new file mode 100644 index 0000000..2e1d95d --- /dev/null +++ b/app/DD_PM_WINDREAM/frmMetadataFile.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAE3RFWHRUaXRsZQBQcm9qZWN0 + O0ZpbGU7PfuNggAAANNJREFUWEftkl8OwiAMh3c+E67kg+HJiDfgHl6Gi+hDpYuQ4lqBzeCftMmXFDZ+ + /ZYxAcBHYTdHUizM4SJhItCIoZk1ikU8LMENEqGZNYpFPCyRwrlnlP8VaIJmtZKbGNBz0dayuKBUgDvw + dtK8xM8KzP/8GRrcSm5iADdIYrLWQo29Pebee7+jgxO5YYa8YhZoLXz35M6sxDCBEAIrkRsEg1vpFcBC + CefcjUrQ4dyXSqwSwHpIXJPEMAGOWGMEuFIBFVABFVgI9KICKvAVAlsBgOkOw0LU8llAlxoAAAAASUVO + RK5CYII= + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMetadataFile.vb b/app/DD_PM_WINDREAM/frmMetadataFile.vb new file mode 100644 index 0000000..a1157b0 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmMetadataFile.vb @@ -0,0 +1,3 @@ +Public Class frmMetadataFile + +End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMonitor.Designer.vb b/app/DD_PM_WINDREAM/frmMonitor.Designer.vb index 027c5ac..a21fbf0 100644 --- a/app/DD_PM_WINDREAM/frmMonitor.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMonitor.Designer.vb @@ -336,6 +336,7 @@ Partial Class frmMonitor Me.Controls.Add(Me.SplitContainerControlMain) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.LargeImage = CType(resources.GetObject("frmMonitor.IconOptions.LargeImage"), System.Drawing.Image) Me.Name = "frmMonitor" Me.Ribbon = Me.RibbonControl1 Me.StatusBar = Me.RibbonStatusBar1 diff --git a/app/DD_PM_WINDREAM/frmMonitor.resx b/app/DD_PM_WINDREAM/frmMonitor.resx index 3b5db8d..5e3a61f 100644 --- a/app/DD_PM_WINDREAM/frmMonitor.resx +++ b/app/DD_PM_WINDREAM/frmMonitor.resx @@ -192,4 +192,15 @@ 17, 17 + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAG3RFWHRUaXRsZQBGaW5kO0lk + O0xvY2F0ZTtTZWFyY2jIzddfAAAA8UlEQVRYR+2SUQ7CMAxDd0GuwUHQLsFNuF1GUItcz62ydRti2seT + iHEcUzGY2U+R4pFI8UikyNweLyOUZ+Zjj0KKTDQ46kOkyESDoz5EihkOZJb6FFLMpIA7hiHkU3x2s08h + xQyGVECf4irwxwUoqEbYi9mIFJ202Pr1UZqvIEUHlzvZrwB5aywrQMubw/eKwUnGLZ6ekS9RDA6aN+Zk + BSp7La4CuxcIwXsz4W3yA6sKjONoS/C9IsRJB7oKoC7mJ/q+X2TSge4XcE3NqPvnIsThQzXE3kkK9JCD + +RDOqPtnGbQWDEaN5vafsIccHMXMhglfvuDzjoUOrAAAAABJRU5ErkJggg== + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmSplash.vb b/app/DD_PM_WINDREAM/frmSplash.vb index bb42886..a7a71b4 100644 --- a/app/DD_PM_WINDREAM/frmSplash.vb +++ b/app/DD_PM_WINDREAM/frmSplash.vb @@ -112,8 +112,8 @@ Public NotInheritable Class frmSplash Private Sub bw_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) ' Bei Fehler MsgBox anzeigen und Programm beenden If e.Error IsNot Nothing Then - LOGGER.Info("Unexpected error in Initializing application....") - MsgBox(e.Error.Message, MsgBoxStyle.Critical, "Unexpected error in Initializing application") + LOGGER.Error(e.Error) + MsgBox(e.Error.Message & vbNewLine & e.Error.StackTrace.ToString, MsgBoxStyle.Critical, "Unexpected error in Initializing application") Application.Exit() End If From 582e701492d1da247044a356b69eef3042bdcc43 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Fri, 10 Jan 2020 11:02:33 +0100 Subject: [PATCH 03/26] ControlLayout --- app/DD_PM_WINDREAM/ClassIDBData.vb | 1 - app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj | 2 + .../My Project/Resources.Designer.vb | 10 + app/DD_PM_WINDREAM/My Project/Resources.resx | 99 +- app/DD_PM_WINDREAM/My Project/licenses.licx | 11 +- app/DD_PM_WINDREAM/Resources/TextBox.png | Bin 0 -> 207 bytes app/DD_PM_WINDREAM/clsPatterns.vb | 18 +- app/DD_PM_WINDREAM/frmAdmin2.Designer.vb | 544 +++-- app/DD_PM_WINDREAM/frmAdmin2.resx | 860 +++----- app/DD_PM_WINDREAM/frmAdmin2.vb | 57 +- .../frmAdministration.Designer.vb | 1 + app/DD_PM_WINDREAM/frmAdministration.resx | 1911 ++++++----------- .../frmDesignerLayout.Designer.vb | 189 +- app/DD_PM_WINDREAM/frmDesignerLayout.resx | 22 + app/DD_PM_WINDREAM/frmDesignerLayout.vb | 23 + app/DD_PM_WINDREAM/frmValidator.vb | 141 +- 16 files changed, 1828 insertions(+), 2061 deletions(-) create mode 100644 app/DD_PM_WINDREAM/Resources/TextBox.png diff --git a/app/DD_PM_WINDREAM/ClassIDBData.vb b/app/DD_PM_WINDREAM/ClassIDBData.vb index 88408f1..447258f 100644 --- a/app/DD_PM_WINDREAM/ClassIDBData.vb +++ b/app/DD_PM_WINDREAM/ClassIDBData.vb @@ -166,7 +166,6 @@ End If End If - For Each oNewValueRow As DataRow In oDTMyNewValues.Rows Dim oSuccess As Boolean = False Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValueRow.Item(1).ToString}','{USER_LANGUAGE}',{CURRENT_DOC_ID},@OMD_ID = @NEW_OBJ_MD_ID OUTPUT" diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index 590ad0d..6da43de 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -130,6 +130,7 @@ False + ..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll @@ -806,6 +807,7 @@ + diff --git a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb index 82f194c..098fc22 100644 --- a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb @@ -890,6 +890,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property TextBox() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("TextBox", 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_PM_WINDREAM/My Project/Resources.resx b/app/DD_PM_WINDREAM/My Project/Resources.resx index 95e9067..7bd89eb 100644 --- a/app/DD_PM_WINDREAM/My Project/Resources.resx +++ b/app/DD_PM_WINDREAM/My Project/Resources.resx @@ -121,20 +121,26 @@ ..\Resources\refresh_16xLG.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 + ..\Resources\asterisk_yellow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ComboBox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\hide_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\GoToDeclaration_5576.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\GoToDeclaration_5576.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -142,8 +148,8 @@ ..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\show_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ampel-rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -169,12 +175,12 @@ ..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ampel-rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\Settings.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ampel-gruen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\application_form_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -187,9 +193,6 @@ ..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\hide_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\checkbox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -199,12 +202,12 @@ ..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\show_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\database_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\zoom_in.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\information.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -235,9 +238,6 @@ ..\Resources\Hammer_Builder_16xLG.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 - ..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -265,8 +265,8 @@ ..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ampel-gruen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\A_1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -280,6 +280,9 @@ ..\Resources\puzzle2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ampel-gelb.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 @@ -289,15 +292,9 @@ ..\Resources\Nextrequest_10302.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\bullet_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\resultset_last.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\bullet_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -310,8 +307,8 @@ ..\Resources\hide_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\database_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\zoom_in.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Open_6296.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -319,20 +316,20 @@ ..\Resources\lbl.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ComboBox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\show_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\database_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\flag_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\flag_orange.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 + + ..\Resources\bullet_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\resultset_previous.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -346,8 +343,11 @@ ..\Resources\flag_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Monitor_Screen_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\flag_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\OpenFileDialog_692.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -355,17 +355,20 @@ ..\Resources\doc_text_image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ampel-gelb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\WorkItem_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\show_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\resultset_first.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -385,8 +388,8 @@ ..\Resources\Checkbox.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Einstellungen6.ico;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 ..\Resources\key1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -394,7 +397,7 @@ ..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Monitor_Screen_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\TextBox.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_PM_WINDREAM/My Project/licenses.licx b/app/DD_PM_WINDREAM/My Project/licenses.licx index 8ed718f..373f20f 100644 --- a/app/DD_PM_WINDREAM/My Project/licenses.licx +++ b/app/DD_PM_WINDREAM/My Project/licenses.licx @@ -1,7 +1,10 @@ -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_PM_WINDREAM/Resources/TextBox.png b/app/DD_PM_WINDREAM/Resources/TextBox.png new file mode 100644 index 0000000000000000000000000000000000000000..e38d5a05bba87c835cc62257e21b314e4e08d383 GIT binary patch literal 207 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`jKx9jP7LeL$-D$|SkfJR9T^xl z_H+M9WCij$3p^r=85sBugD~Uq{1quc!4yvy#}Etu4z6ih7_w=lZS?3^US%aFKo!ppsdYd}tC@O1TaS?83{1OQ0&L3aQE literal 0 HcmV?d00001 diff --git a/app/DD_PM_WINDREAM/clsPatterns.vb b/app/DD_PM_WINDREAM/clsPatterns.vb index dca15b4..46edfc2 100644 --- a/app/DD_PM_WINDREAM/clsPatterns.vb +++ b/app/DD_PM_WINDREAM/clsPatterns.vb @@ -54,13 +54,13 @@ Public Class clsPatterns Public Shared Function ReplaceAllValues(input As String, panel As Panel, document As WMObject, prename As Object, surname As Object, shortname As Object, language As Object, email As Object, userId As Object, profileId As Object) As String Try Dim result = input - LOGGER.Debug($"ReplaceString BEFORE replacing: [{result}]") + LOGGER.Debug($"inputString BEFORE replacing: [{result}]") result = ReplaceInternalValues(result) result = ReplaceControlValues(result, panel) If Not IsNothing(document) Then result = ReplaceWindreamIndicies(result, document) result = ReplaceIDBAttributes(result) result = ReplaceUserValues(result, prename, surname, shortname, language, email, userId, profileId) - LOGGER.Debug($"ReplaceString AFTER replacing: [{result}]") + LOGGER.Debug($"inputString AFTER replacing: [{result}]") Return result Catch ex As Exception LOGGER.Error(ex) @@ -91,7 +91,7 @@ Public Class clsPatterns While ContainsPatternAndValue(result, PATTERN_INT, INT_VALUE_DATE) result = ReplacePattern(result, PATTERN_INT, Now.ToShortDateString) End While - + LOGGER.Debug("sql after ReplaceInternalValues: " & input) Return result Catch ex As Exception LOGGER.Error(ex) @@ -132,7 +132,7 @@ Public Class clsPatterns While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PROFILE_ID) result = ReplacePattern(result, PATTERN_USER, profileId) End While - + LOGGER.Debug("sql after ReplaceUserValues: " & input) Return result Catch ex As Exception LOGGER.Error(ex) @@ -160,7 +160,7 @@ Public Class clsPatterns oTryCounter += 1 End While - + LOGGER.Debug("sql after ReplaceControlValues: " & input) Return result Catch ex As Exception LOGGER.Error(ex) @@ -186,7 +186,7 @@ Public Class clsPatterns End If oTryCounter += 100 End While - + LOGGER.Debug("sql after ReplaceWindreamIndicies: " & input) Return result Catch ex As Exception LOGGER.Error(ex) @@ -218,11 +218,13 @@ Public Class clsPatterns End If If oIDBValue IsNot Nothing Then - result = ReplacePattern(result, PATTERN_IDBA, oIDBValue) + Dim oReplaceValue = "{" + $"#{PATTERN_IDBA}#{indexName}" + "}" + result = result.Replace(oReplaceValue, oIDBValue) + 'result = ReplacePattern(result, oReplaceValue, oIDBValue) End If oTryCounter += 100 End While - + LOGGER.Debug("sql after ReplaceIDBAttributes: " & input) Return result Catch ex As Exception LOGGER.Error(ex) diff --git a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb index 001ec16..d8281c7 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb @@ -23,18 +23,8 @@ Partial Class frmAdmin2 Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim GUIDLabel As System.Windows.Forms.Label - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin2)) - Dim TITLELabel As System.Windows.Forms.Label - Dim EMAIL_SUBJECTLabel As System.Windows.Forms.Label - Dim EMAIL_BODY1Label As System.Windows.Forms.Label - Dim EMAIL_BODY2Label As System.Windows.Forms.Label - Dim EMAIL_BODY3Label As System.Windows.Forms.Label - Dim ADDED_WHOLabel As System.Windows.Forms.Label - Dim ADDED_WHENLabel As System.Windows.Forms.Label - Dim CHANGED_WHOLabel As System.Windows.Forms.Label - Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim GUIDLabel1 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin2)) Dim TITLELabel1 As System.Windows.Forms.Label Dim LANGUAGELabel As System.Windows.Forms.Label Dim CAPT_TYPELabel As System.Windows.Forms.Label @@ -60,6 +50,7 @@ Partial Class frmAdmin2 Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -67,23 +58,34 @@ Partial Class frmAdmin2 Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() - Me.Button1 = New System.Windows.Forms.Button() - Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.DataLayoutControl1 = New DevExpress.XtraDataLayout.DataLayoutControl() + Me.GUIDTextEdit = New DevExpress.XtraEditors.TextEdit() Me.TBDD_EMAIL_TEMPLATEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() + Me.TITLETextEdit = New DevExpress.XtraEditors.TextEdit() + Me.EMAIL_BODY3TextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ADDED_WHOTextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ADDED_WHENDateEdit = New DevExpress.XtraEditors.DateEdit() + Me.CHANGED_WHOTextEdit = New DevExpress.XtraEditors.TextEdit() + Me.CHANGED_WHENDateEdit = New DevExpress.XtraEditors.DateEdit() + Me.EMAIL_BODY1TextEdit = New DevExpress.XtraEditors.MemoEdit() + Me.EMAIL_BODY2TextEdit = New DevExpress.XtraEditors.MemoEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.ItemForGUID = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForTITLE = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForEMAIL_SUBJECT = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForEMAIL_BODY1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForEMAIL_BODY2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForEMAIL_BODY3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForADDED_WHO = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForADDED_WHEN = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForCHANGED_WHO = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForCHANGED_WHEN = New DevExpress.XtraLayout.LayoutControlItem() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GUIDTextBox = New System.Windows.Forms.TextBox() - Me.TITLETextBox = New System.Windows.Forms.TextBox() - Me.EMAIL_SUBJECTTextBox = New System.Windows.Forms.TextBox() - Me.EMAIL_BODY1TextBox = New System.Windows.Forms.TextBox() - Me.EMAIL_BODY2TextBox = New System.Windows.Forms.TextBox() - Me.EMAIL_BODY3TextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() Me.INTERNALCheckBox = New System.Windows.Forms.CheckBox() Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -112,16 +114,7 @@ Partial Class frmAdmin2 Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter() Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components) - GUIDLabel = New System.Windows.Forms.Label() - TITLELabel = New System.Windows.Forms.Label() - EMAIL_SUBJECTLabel = New System.Windows.Forms.Label() - EMAIL_BODY1Label = New System.Windows.Forms.Label() - EMAIL_BODY2Label = New System.Windows.Forms.Label() - EMAIL_BODY3Label = New System.Windows.Forms.Label() - ADDED_WHOLabel = New System.Windows.Forms.Label() - ADDED_WHENLabel = New System.Windows.Forms.Label() - CHANGED_WHOLabel = New System.Windows.Forms.Label() - CHANGED_WHENLabel = New System.Windows.Forms.Label() + Me.EMAIL_SUBJECTTextEdit = New DevExpress.XtraEditors.TextEdit() GUIDLabel1 = New System.Windows.Forms.Label() TITLELabel1 = New System.Windows.Forms.Label() LANGUAGELabel = New System.Windows.Forms.Label() @@ -141,66 +134,42 @@ Partial Class frmAdmin2 CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() Me.XtraTabPage1.SuspendLayout() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataLayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.DataLayoutControl1.SuspendLayout() + CType(Me.GUIDTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_EMAIL_TEMPLATEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TITLETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EMAIL_BODY3TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ADDED_WHOTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ADDED_WHENDateEdit.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ADDED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGED_WHOTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGED_WHENDateEdit.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EMAIL_BODY1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EMAIL_BODY2TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForGUID, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForTITLE, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForEMAIL_SUBJECT, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForEMAIL_BODY1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForEMAIL_BODY2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForEMAIL_BODY3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForADDED_WHO, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForADDED_WHEN, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForCHANGED_WHO, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForCHANGED_WHEN, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPage2.SuspendLayout() CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EMAIL_SUBJECTTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'GUIDLabel - ' - resources.ApplyResources(GUIDLabel, "GUIDLabel") - GUIDLabel.Name = "GUIDLabel" - ' - 'TITLELabel - ' - resources.ApplyResources(TITLELabel, "TITLELabel") - TITLELabel.Name = "TITLELabel" - ' - 'EMAIL_SUBJECTLabel - ' - resources.ApplyResources(EMAIL_SUBJECTLabel, "EMAIL_SUBJECTLabel") - EMAIL_SUBJECTLabel.Name = "EMAIL_SUBJECTLabel" - ' - 'EMAIL_BODY1Label - ' - resources.ApplyResources(EMAIL_BODY1Label, "EMAIL_BODY1Label") - EMAIL_BODY1Label.Name = "EMAIL_BODY1Label" - ' - 'EMAIL_BODY2Label - ' - resources.ApplyResources(EMAIL_BODY2Label, "EMAIL_BODY2Label") - EMAIL_BODY2Label.Name = "EMAIL_BODY2Label" - ' - 'EMAIL_BODY3Label - ' - resources.ApplyResources(EMAIL_BODY3Label, "EMAIL_BODY3Label") - EMAIL_BODY3Label.Name = "EMAIL_BODY3Label" - ' - 'ADDED_WHOLabel - ' - resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel") - ADDED_WHOLabel.Name = "ADDED_WHOLabel" - ' - 'ADDED_WHENLabel - ' - resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel") - ADDED_WHENLabel.Name = "ADDED_WHENLabel" - ' - 'CHANGED_WHOLabel - ' - resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel") - CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" - ' - 'CHANGED_WHENLabel - ' - resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") - CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" - ' 'GUIDLabel1 ' resources.ApplyResources(GUIDLabel1, "GUIDLabel1") @@ -279,9 +248,9 @@ Partial Class frmAdmin2 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BbitemplateAdd, Me.BbitemplateSave, Me.BbitemplateDelete, Me.BarButtonItem1, Me.labelStatus, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BbitemplateAdd, Me.BbitemplateSave, Me.BbitemplateDelete, Me.BarButtonItem1, Me.labelStatus, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 11 + Me.RibbonControl1.MaxItemId = 12 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 @@ -372,6 +341,14 @@ Partial Class frmAdmin2 Me.BarButtonItem6.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.LargeImage"), System.Drawing.Image) Me.BarButtonItem6.Name = "BarButtonItem6" ' + 'BarButtonItem7 + ' + resources.ApplyResources(Me.BarButtonItem7, "BarButtonItem7") + Me.BarButtonItem7.Id = 11 + Me.BarButtonItem7.ImageOptions.Image = CType(resources.GetObject("BarButtonItem7.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem7.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem7.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem7.Name = "BarButtonItem7" + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) @@ -382,6 +359,7 @@ Partial Class frmAdmin2 ' Me.RibbonPageGroup1.ItemLinks.Add(Me.BbitemplateAdd) Me.RibbonPageGroup1.ItemLinks.Add(Me.BbitemplateSave) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem7) Me.RibbonPageGroup1.ItemLinks.Add(Me.BbitemplateDelete) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" @@ -419,44 +397,40 @@ Partial Class frmAdmin2 'XtraTabPage1 ' resources.ApplyResources(Me.XtraTabPage1, "XtraTabPage1") - Me.XtraTabPage1.Controls.Add(Me.Button1) + Me.XtraTabPage1.Controls.Add(Me.DataLayoutControl1) Me.XtraTabPage1.Controls.Add(Me.GridControl1) - Me.XtraTabPage1.Controls.Add(GUIDLabel) - Me.XtraTabPage1.Controls.Add(Me.GUIDTextBox) - Me.XtraTabPage1.Controls.Add(TITLELabel) - Me.XtraTabPage1.Controls.Add(Me.TITLETextBox) - Me.XtraTabPage1.Controls.Add(EMAIL_SUBJECTLabel) - Me.XtraTabPage1.Controls.Add(Me.EMAIL_SUBJECTTextBox) - Me.XtraTabPage1.Controls.Add(EMAIL_BODY1Label) - Me.XtraTabPage1.Controls.Add(Me.EMAIL_BODY1TextBox) - Me.XtraTabPage1.Controls.Add(EMAIL_BODY2Label) - Me.XtraTabPage1.Controls.Add(Me.EMAIL_BODY2TextBox) - Me.XtraTabPage1.Controls.Add(EMAIL_BODY3Label) - Me.XtraTabPage1.Controls.Add(Me.EMAIL_BODY3TextBox) - Me.XtraTabPage1.Controls.Add(ADDED_WHOLabel) - Me.XtraTabPage1.Controls.Add(Me.ADDED_WHOTextBox) - Me.XtraTabPage1.Controls.Add(ADDED_WHENLabel) - Me.XtraTabPage1.Controls.Add(Me.ADDED_WHENTextBox) - Me.XtraTabPage1.Controls.Add(CHANGED_WHOLabel) - Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHOTextBox) - Me.XtraTabPage1.Controls.Add(CHANGED_WHENLabel) - Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHENTextBox) Me.XtraTabPage1.Name = "XtraTabPage1" ' - 'Button1 - ' - resources.ApplyResources(Me.Button1, "Button1") - Me.Button1.Name = "Button1" - Me.Button1.UseVisualStyleBackColor = True - ' - 'GridControl1 - ' - Me.GridControl1.DataSource = Me.TBDD_EMAIL_TEMPLATEBindingSource - resources.ApplyResources(Me.GridControl1, "GridControl1") - Me.GridControl1.MainView = Me.GridView1 - Me.GridControl1.MenuManager = Me.RibbonControl1 - Me.GridControl1.Name = "GridControl1" - Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + 'DataLayoutControl1 + ' + resources.ApplyResources(Me.DataLayoutControl1, "DataLayoutControl1") + Me.DataLayoutControl1.Controls.Add(Me.GUIDTextEdit) + Me.DataLayoutControl1.Controls.Add(Me.TITLETextEdit) + Me.DataLayoutControl1.Controls.Add(Me.EMAIL_BODY3TextEdit) + Me.DataLayoutControl1.Controls.Add(Me.ADDED_WHOTextEdit) + Me.DataLayoutControl1.Controls.Add(Me.ADDED_WHENDateEdit) + Me.DataLayoutControl1.Controls.Add(Me.CHANGED_WHOTextEdit) + Me.DataLayoutControl1.Controls.Add(Me.CHANGED_WHENDateEdit) + Me.DataLayoutControl1.Controls.Add(Me.EMAIL_BODY1TextEdit) + Me.DataLayoutControl1.Controls.Add(Me.EMAIL_BODY2TextEdit) + Me.DataLayoutControl1.Controls.Add(Me.EMAIL_SUBJECTTextEdit) + Me.DataLayoutControl1.DataSource = Me.TBDD_EMAIL_TEMPLATEBindingSource + Me.DataLayoutControl1.Name = "DataLayoutControl1" + Me.DataLayoutControl1.Root = Me.Root + ' + 'GUIDTextEdit + ' + Me.GUIDTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "GUID", True)) + resources.ApplyResources(Me.GUIDTextEdit, "GUIDTextEdit") + Me.GUIDTextEdit.MenuManager = Me.RibbonControl1 + Me.GUIDTextEdit.Name = "GUIDTextEdit" + Me.GUIDTextEdit.Properties.Appearance.Options.UseTextOptions = True + Me.GUIDTextEdit.Properties.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.GUIDTextEdit.Properties.Mask.EditMask = resources.GetString("GUIDTextEdit.Properties.Mask.EditMask") + Me.GUIDTextEdit.Properties.Mask.MaskType = CType(resources.GetObject("GUIDTextEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) + Me.GUIDTextEdit.Properties.Mask.UseMaskAsDisplayFormat = CType(resources.GetObject("GUIDTextEdit.Properties.Mask.UseMaskAsDisplayFormat"), Boolean) + Me.GUIDTextEdit.Properties.ReadOnly = True + Me.GUIDTextEdit.StyleController = Me.DataLayoutControl1 ' 'TBDD_EMAIL_TEMPLATEBindingSource ' @@ -468,6 +442,196 @@ Partial Class frmAdmin2 Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' + 'TITLETextEdit + ' + Me.TITLETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "TITLE", True)) + resources.ApplyResources(Me.TITLETextEdit, "TITLETextEdit") + Me.TITLETextEdit.MenuManager = Me.RibbonControl1 + Me.TITLETextEdit.Name = "TITLETextEdit" + Me.TITLETextEdit.StyleController = Me.DataLayoutControl1 + ' + 'EMAIL_BODY3TextEdit + ' + Me.EMAIL_BODY3TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY3", True)) + resources.ApplyResources(Me.EMAIL_BODY3TextEdit, "EMAIL_BODY3TextEdit") + Me.EMAIL_BODY3TextEdit.MenuManager = Me.RibbonControl1 + Me.EMAIL_BODY3TextEdit.Name = "EMAIL_BODY3TextEdit" + Me.EMAIL_BODY3TextEdit.StyleController = Me.DataLayoutControl1 + ' + 'ADDED_WHOTextEdit + ' + Me.ADDED_WHOTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHO", True)) + resources.ApplyResources(Me.ADDED_WHOTextEdit, "ADDED_WHOTextEdit") + Me.ADDED_WHOTextEdit.MenuManager = Me.RibbonControl1 + Me.ADDED_WHOTextEdit.Name = "ADDED_WHOTextEdit" + Me.ADDED_WHOTextEdit.Properties.ReadOnly = True + Me.ADDED_WHOTextEdit.StyleController = Me.DataLayoutControl1 + ' + 'ADDED_WHENDateEdit + ' + Me.ADDED_WHENDateEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHEN", True)) + resources.ApplyResources(Me.ADDED_WHENDateEdit, "ADDED_WHENDateEdit") + Me.ADDED_WHENDateEdit.MenuManager = Me.RibbonControl1 + Me.ADDED_WHENDateEdit.Name = "ADDED_WHENDateEdit" + Me.ADDED_WHENDateEdit.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ADDED_WHENDateEdit.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) + Me.ADDED_WHENDateEdit.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ADDED_WHENDateEdit.Properties.CalendarTimeProperties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) + Me.ADDED_WHENDateEdit.Properties.Mask.EditMask = resources.GetString("ADDED_WHENDateEdit.Properties.Mask.EditMask") + Me.ADDED_WHENDateEdit.Properties.ReadOnly = True + Me.ADDED_WHENDateEdit.StyleController = Me.DataLayoutControl1 + ' + 'CHANGED_WHOTextEdit + ' + Me.CHANGED_WHOTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHO", True)) + resources.ApplyResources(Me.CHANGED_WHOTextEdit, "CHANGED_WHOTextEdit") + Me.CHANGED_WHOTextEdit.MenuManager = Me.RibbonControl1 + Me.CHANGED_WHOTextEdit.Name = "CHANGED_WHOTextEdit" + Me.CHANGED_WHOTextEdit.Properties.ReadOnly = True + Me.CHANGED_WHOTextEdit.StyleController = Me.DataLayoutControl1 + ' + 'CHANGED_WHENDateEdit + ' + Me.CHANGED_WHENDateEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHEN", True)) + resources.ApplyResources(Me.CHANGED_WHENDateEdit, "CHANGED_WHENDateEdit") + Me.CHANGED_WHENDateEdit.MenuManager = Me.RibbonControl1 + Me.CHANGED_WHENDateEdit.Name = "CHANGED_WHENDateEdit" + Me.CHANGED_WHENDateEdit.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("CHANGED_WHENDateEdit.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) + Me.CHANGED_WHENDateEdit.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("CHANGED_WHENDateEdit.Properties.CalendarTimeProperties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) + Me.CHANGED_WHENDateEdit.Properties.ReadOnly = True + Me.CHANGED_WHENDateEdit.StyleController = Me.DataLayoutControl1 + ' + 'EMAIL_BODY1TextEdit + ' + Me.EMAIL_BODY1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY1", True)) + resources.ApplyResources(Me.EMAIL_BODY1TextEdit, "EMAIL_BODY1TextEdit") + Me.EMAIL_BODY1TextEdit.MenuManager = Me.RibbonControl1 + Me.EMAIL_BODY1TextEdit.Name = "EMAIL_BODY1TextEdit" + Me.EMAIL_BODY1TextEdit.StyleController = Me.DataLayoutControl1 + ' + 'EMAIL_BODY2TextEdit + ' + Me.EMAIL_BODY2TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY2", True)) + resources.ApplyResources(Me.EMAIL_BODY2TextEdit, "EMAIL_BODY2TextEdit") + Me.EMAIL_BODY2TextEdit.MenuManager = Me.RibbonControl1 + Me.EMAIL_BODY2TextEdit.Name = "EMAIL_BODY2TextEdit" + Me.EMAIL_BODY2TextEdit.StyleController = Me.DataLayoutControl1 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(684, 505) + Me.Root.TextVisible = False + ' + 'LayoutControlGroup1 + ' + Me.LayoutControlGroup1.AllowDrawBackground = False + Me.LayoutControlGroup1.GroupBordersVisible = False + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.ItemForGUID, Me.ItemForTITLE, Me.ItemForEMAIL_SUBJECT, Me.ItemForEMAIL_BODY1, Me.ItemForEMAIL_BODY2, Me.ItemForEMAIL_BODY3, Me.ItemForADDED_WHO, Me.ItemForCHANGED_WHO, Me.ItemForADDED_WHEN, Me.ItemForCHANGED_WHEN}) + Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlGroup1.Name = "autoGeneratedGroup0" + Me.LayoutControlGroup1.Size = New System.Drawing.Size(664, 485) + ' + 'ItemForGUID + ' + Me.ItemForGUID.Control = Me.GUIDTextEdit + Me.ItemForGUID.Location = New System.Drawing.Point(0, 0) + Me.ItemForGUID.Name = "ItemForGUID" + Me.ItemForGUID.Size = New System.Drawing.Size(664, 24) + resources.ApplyResources(Me.ItemForGUID, "ItemForGUID") + Me.ItemForGUID.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForTITLE + ' + Me.ItemForTITLE.Control = Me.TITLETextEdit + Me.ItemForTITLE.Location = New System.Drawing.Point(0, 24) + Me.ItemForTITLE.Name = "ItemForTITLE" + Me.ItemForTITLE.Size = New System.Drawing.Size(664, 24) + resources.ApplyResources(Me.ItemForTITLE, "ItemForTITLE") + Me.ItemForTITLE.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForEMAIL_SUBJECT + ' + Me.ItemForEMAIL_SUBJECT.Control = Me.EMAIL_SUBJECTTextEdit + Me.ItemForEMAIL_SUBJECT.Location = New System.Drawing.Point(0, 48) + Me.ItemForEMAIL_SUBJECT.Name = "ItemForEMAIL_SUBJECT" + Me.ItemForEMAIL_SUBJECT.Size = New System.Drawing.Size(664, 24) + resources.ApplyResources(Me.ItemForEMAIL_SUBJECT, "ItemForEMAIL_SUBJECT") + Me.ItemForEMAIL_SUBJECT.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForEMAIL_BODY1 + ' + Me.ItemForEMAIL_BODY1.Control = Me.EMAIL_BODY1TextEdit + Me.ItemForEMAIL_BODY1.Location = New System.Drawing.Point(0, 72) + Me.ItemForEMAIL_BODY1.Name = "ItemForEMAIL_BODY1" + Me.ItemForEMAIL_BODY1.Size = New System.Drawing.Size(664, 147) + resources.ApplyResources(Me.ItemForEMAIL_BODY1, "ItemForEMAIL_BODY1") + Me.ItemForEMAIL_BODY1.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForEMAIL_BODY2 + ' + Me.ItemForEMAIL_BODY2.Control = Me.EMAIL_BODY2TextEdit + Me.ItemForEMAIL_BODY2.Location = New System.Drawing.Point(0, 219) + Me.ItemForEMAIL_BODY2.Name = "ItemForEMAIL_BODY2" + Me.ItemForEMAIL_BODY2.Size = New System.Drawing.Size(664, 194) + resources.ApplyResources(Me.ItemForEMAIL_BODY2, "ItemForEMAIL_BODY2") + Me.ItemForEMAIL_BODY2.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForEMAIL_BODY3 + ' + Me.ItemForEMAIL_BODY3.Control = Me.EMAIL_BODY3TextEdit + Me.ItemForEMAIL_BODY3.Location = New System.Drawing.Point(0, 413) + Me.ItemForEMAIL_BODY3.Name = "ItemForEMAIL_BODY3" + Me.ItemForEMAIL_BODY3.Size = New System.Drawing.Size(664, 24) + resources.ApplyResources(Me.ItemForEMAIL_BODY3, "ItemForEMAIL_BODY3") + Me.ItemForEMAIL_BODY3.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForADDED_WHO + ' + Me.ItemForADDED_WHO.Control = Me.ADDED_WHOTextEdit + Me.ItemForADDED_WHO.Location = New System.Drawing.Point(0, 437) + Me.ItemForADDED_WHO.Name = "ItemForADDED_WHO" + Me.ItemForADDED_WHO.Size = New System.Drawing.Size(332, 24) + resources.ApplyResources(Me.ItemForADDED_WHO, "ItemForADDED_WHO") + Me.ItemForADDED_WHO.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForADDED_WHEN + ' + Me.ItemForADDED_WHEN.Control = Me.ADDED_WHENDateEdit + Me.ItemForADDED_WHEN.Location = New System.Drawing.Point(332, 437) + Me.ItemForADDED_WHEN.Name = "ItemForADDED_WHEN" + Me.ItemForADDED_WHEN.Size = New System.Drawing.Size(332, 24) + resources.ApplyResources(Me.ItemForADDED_WHEN, "ItemForADDED_WHEN") + Me.ItemForADDED_WHEN.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForCHANGED_WHO + ' + Me.ItemForCHANGED_WHO.Control = Me.CHANGED_WHOTextEdit + Me.ItemForCHANGED_WHO.Location = New System.Drawing.Point(0, 461) + Me.ItemForCHANGED_WHO.Name = "ItemForCHANGED_WHO" + Me.ItemForCHANGED_WHO.Size = New System.Drawing.Size(332, 24) + resources.ApplyResources(Me.ItemForCHANGED_WHO, "ItemForCHANGED_WHO") + Me.ItemForCHANGED_WHO.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForCHANGED_WHEN + ' + Me.ItemForCHANGED_WHEN.Control = Me.CHANGED_WHENDateEdit + Me.ItemForCHANGED_WHEN.Location = New System.Drawing.Point(332, 461) + Me.ItemForCHANGED_WHEN.Name = "ItemForCHANGED_WHEN" + Me.ItemForCHANGED_WHEN.Size = New System.Drawing.Size(332, 24) + resources.ApplyResources(Me.ItemForCHANGED_WHEN, "ItemForCHANGED_WHEN") + Me.ItemForCHANGED_WHEN.TextSize = New System.Drawing.Size(74, 13) + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.TBDD_EMAIL_TEMPLATEBindingSource + resources.ApplyResources(Me.GridControl1, "GridControl1") + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' 'GridView1 ' Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.PeachPuff @@ -494,72 +658,6 @@ Partial Class frmAdmin2 Me.colTITLE.FieldName = "TITLE" Me.colTITLE.Name = "colTITLE" ' - 'GUIDTextBox - ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "GUID", True)) - resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox") - Me.GUIDTextBox.Name = "GUIDTextBox" - Me.GUIDTextBox.ReadOnly = True - ' - 'TITLETextBox - ' - Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "TITLE", True)) - resources.ApplyResources(Me.TITLETextBox, "TITLETextBox") - Me.TITLETextBox.Name = "TITLETextBox" - Me.TITLETextBox.ReadOnly = True - ' - 'EMAIL_SUBJECTTextBox - ' - Me.EMAIL_SUBJECTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_SUBJECT", True)) - resources.ApplyResources(Me.EMAIL_SUBJECTTextBox, "EMAIL_SUBJECTTextBox") - Me.EMAIL_SUBJECTTextBox.Name = "EMAIL_SUBJECTTextBox" - ' - 'EMAIL_BODY1TextBox - ' - resources.ApplyResources(Me.EMAIL_BODY1TextBox, "EMAIL_BODY1TextBox") - Me.EMAIL_BODY1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY1", True)) - Me.EMAIL_BODY1TextBox.Name = "EMAIL_BODY1TextBox" - ' - 'EMAIL_BODY2TextBox - ' - resources.ApplyResources(Me.EMAIL_BODY2TextBox, "EMAIL_BODY2TextBox") - Me.EMAIL_BODY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY2", True)) - Me.EMAIL_BODY2TextBox.Name = "EMAIL_BODY2TextBox" - ' - 'EMAIL_BODY3TextBox - ' - resources.ApplyResources(Me.EMAIL_BODY3TextBox, "EMAIL_BODY3TextBox") - Me.EMAIL_BODY3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY3", True)) - Me.EMAIL_BODY3TextBox.Name = "EMAIL_BODY3TextBox" - ' - 'ADDED_WHOTextBox - ' - Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox") - Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" - Me.ADDED_WHOTextBox.ReadOnly = True - ' - 'ADDED_WHENTextBox - ' - Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox") - Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" - Me.ADDED_WHENTextBox.ReadOnly = True - ' - 'CHANGED_WHOTextBox - ' - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") - Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" - Me.CHANGED_WHOTextBox.ReadOnly = True - ' - 'CHANGED_WHENTextBox - ' - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox") - Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" - Me.CHANGED_WHENTextBox.ReadOnly = True - ' 'XtraTabPage2 ' resources.ApplyResources(Me.XtraTabPage2, "XtraTabPage2") @@ -784,6 +882,14 @@ Partial Class frmAdmin2 ' Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.ClearBeforeFill = True ' + 'EMAIL_SUBJECTTextEdit + ' + Me.EMAIL_SUBJECTTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_SUBJECT", True)) + resources.ApplyResources(Me.EMAIL_SUBJECTTextEdit, "EMAIL_SUBJECTTextEdit") + Me.EMAIL_SUBJECTTextEdit.MenuManager = Me.RibbonControl1 + Me.EMAIL_SUBJECTTextEdit.Name = "EMAIL_SUBJECTTextEdit" + Me.EMAIL_SUBJECTTextEdit.StyleController = Me.DataLayoutControl1 + ' 'frmAdmin2 ' resources.ApplyResources(Me, "$this") @@ -799,16 +905,41 @@ Partial Class frmAdmin2 CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabPage1.ResumeLayout(False) - Me.XtraTabPage1.PerformLayout() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataLayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.DataLayoutControl1.ResumeLayout(False) + CType(Me.GUIDTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_EMAIL_TEMPLATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TITLETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EMAIL_BODY3TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ADDED_WHOTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ADDED_WHENDateEdit.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ADDED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGED_WHOTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGED_WHENDateEdit.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EMAIL_BODY1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EMAIL_BODY2TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForGUID, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForTITLE, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForEMAIL_SUBJECT, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForEMAIL_BODY1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForEMAIL_BODY2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForEMAIL_BODY3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForADDED_WHO, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForADDED_WHEN, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForCHANGED_WHO, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForCHANGED_WHEN, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPage2.ResumeLayout(False) Me.XtraTabPage2.PerformLayout() CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EMAIL_SUBJECTTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -834,19 +965,8 @@ Partial Class frmAdmin2 Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colTITLE As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GUIDTextBox As TextBox - Friend WithEvents TITLETextBox As TextBox - Friend WithEvents EMAIL_SUBJECTTextBox As TextBox - Friend WithEvents EMAIL_BODY1TextBox As TextBox - Friend WithEvents EMAIL_BODY2TextBox As TextBox - Friend WithEvents EMAIL_BODY3TextBox As TextBox - Friend WithEvents ADDED_WHOTextBox As TextBox - Friend WithEvents ADDED_WHENTextBox As TextBox - Friend WithEvents CHANGED_WHOTextBox As TextBox - Friend WithEvents CHANGED_WHENTextBox As TextBox Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem - Friend WithEvents Button1 As Button Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem @@ -877,4 +997,28 @@ Partial Class frmAdmin2 Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents INTERNALCheckBox As CheckBox Friend WithEvents LayoutConverter1 As DevExpress.XtraLayout.Converter.LayoutConverter + Friend WithEvents DataLayoutControl1 As DevExpress.XtraDataLayout.DataLayoutControl + Friend WithEvents GUIDTextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents TITLETextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents EMAIL_BODY3TextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents ADDED_WHOTextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents ADDED_WHENDateEdit As DevExpress.XtraEditors.DateEdit + Friend WithEvents CHANGED_WHOTextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents CHANGED_WHENDateEdit As DevExpress.XtraEditors.DateEdit + Friend WithEvents EMAIL_BODY1TextEdit As DevExpress.XtraEditors.MemoEdit + Friend WithEvents EMAIL_BODY2TextEdit As DevExpress.XtraEditors.MemoEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents ItemForGUID As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForTITLE As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForEMAIL_SUBJECT As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForEMAIL_BODY1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForEMAIL_BODY2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForEMAIL_BODY3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForADDED_WHO As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForADDED_WHEN As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForCHANGED_WHO As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForCHANGED_WHEN As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents EMAIL_SUBJECTTextEdit As DevExpress.XtraEditors.TextEdit End Class diff --git a/app/DD_PM_WINDREAM/frmAdmin2.resx b/app/DD_PM_WINDREAM/frmAdmin2.resx index d733754..10f20e3 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.resx +++ b/app/DD_PM_WINDREAM/frmAdmin2.resx @@ -117,314 +117,14 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False - - - - True - - - - 359, 15 - - - 22, 13 - - - 0 - - - ID: - - - GUIDLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 2 - - - False - - - True - - - 359, 42 - - - 31, 13 - - - 2 - - - Titel: - - - TITLELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 4 - - - False - - - True - - - 359, 69 - - - 45, 13 - - - 4 - - - Betreff: - - - EMAIL_SUBJECTLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 6 - - - False - - - True - - - 359, 93 - - - 41, 13 - - - 6 - - - Body1: - - - EMAIL_BODY1Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 8 - - - False - - - True - - - 359, 224 - - - 41, 13 - - - 8 - - - Body2: - - - EMAIL_BODY2Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 10 - - - False - - - True - - - 359, 350 - - - 41, 13 - - - 10 - - - Body3: - - - EMAIL_BODY3Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 12 - - - False - - - True - - - 359, 426 - - - 65, 13 - - - 12 - - - Erstellt wer: - - - ADDED_WHOLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 14 - - - False - - - True - - - 604, 426 - - - 73, 13 - - - 14 - - - Erstellt wann: - - - ADDED_WHENLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 16 - - - False - - - True - - - 359, 456 - - - 77, 13 - - - 16 - - - Geändert wer: - - - CHANGED_WHOLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 18 - - - False - - - True - - - 604, 456 - - - 85, 13 - - - 18 - - - Geändert wann: - - - CHANGED_WHENLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 20 - False + True + 586, 15 @@ -1133,6 +833,32 @@ xH19sFD7OfC5qvuM1DsLoA2L4/Av+CbpIfVJvIGMWmU4T15T65r0kHqXbyB8zdCuVjl5BVZAgiUSgMMF h3NoFRgiMpykPok3QHzlPDmHr0NkOEm9ywCkh+DwDYgMFlLvOgAxRAl+HU5Sn0QA4j+d+F6E1DsL0ID/ AM4CNOXvBnAp3l8YN9Nk3EyTcTNNxs30+N4PvvKeTNimaekAAAAASUVORK5CYII= + + + + Vorschau Email + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAATdEVYdFRpdGxlAFByZXZpZXc7UHJpbnSYkaHzAAAA + rklEQVQ4T2P4//8/RRjOaGlp+Y8H/4PSxsiaQRjFAHwAJN/X13cX3RCSDACCX+iGkGQAMgYC0gxABgQN + 2Hjiwf+yeSf+B7XtAtMgPjLAawBIccGsY/83nXj4/9O3X2AaxEc2BK8BIBtBmpABiA8ShwG8BoCcDbIZ + GYD4IHEYoI0LQCKXHrz979u0g7wwgGmGYZCNJMUCsmaQYfgAXhfANIMU4cMgPSAMN4A8/J8BANeiMofG + 7sTDAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAATdEVYdFRpdGxlAFByZXZpZXc7UHJpbnSYkaHzAAAB + g0lEQVRYR9WUsUoDQRCG83yBoO9g5WvotdeksDsbH8HGIIgiCNYK0cBVARGbNDZGZdzvyMJmZzjM7bmH + P/ws+8/czr+zk4xEZFCaYk6aYk6aYk6aomdRFLIjl45jR75VtGqYoqf7yC2/B/llWX5WVTV22/isrb2n + KXp2MVDXtWkimwFgmchqAMQmshsAGxNrTAxiAHgTLqYGEyohZBcDLXxxKaqGEkLyYV/YnKVqKCGkZeBu + /irT80c5PLmV/WLWrOzR25BsYPX+IaeXT7J3PJPJ0YUiOnHyLCQb4HAKHUxv5OxqIfPlStZf383KHp04 + eRaSDNBebkiR6wdmSQOdOHnWcyQZ4I25HTdtA3HyyI+RZIBB42Da3Qbi5JEfI8kA087BvHkbiJNHfoz/ + 3YHBZ2DwX8H981tzM0gRbkq7//x/wHGrOOSG4T7Ue/8njIuzp728MYPGtLOyt9oeYmcDruAkLp6CLgZU + cQ5JIefGVIKnK+w7MLHifdEUc9IUc9IU81FGP7lCqzQ2PA77AAAAAElFTkSuQmCC @@ -1193,29 +919,8 @@ True - - 907, 37 - - - 75, 23 - - - 21 - - - Vorschau - - - Button1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 0 + + Top, Bottom, Left, Right 179, 17 @@ -1223,290 +928,349 @@ 17, 17 - - Left + + 89, 12 - - 0, 0 + + N0 - - ID + + + Numeric - + True - - 0 + + 583, 20 - - 51 + + 4 - - Titel + + GUIDTextEdit - - True + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 1 + + DataLayoutControl1 - - 128 + + 4 - - 353, 508 + + 89, 36 - - 20 + + 583, 20 - - GridControl1 + + 5 - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + TITLETextEdit - - XtraTabPage1 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 1 + + DataLayoutControl1 - - 461, 12 + + 5 - - 100, 21 + + 89, 425 - - 1 + + 583, 20 - - GUIDTextBox + + 9 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + EMAIL_BODY3TextEdit - - XtraTabPage1 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 3 + + DataLayoutControl1 - - 461, 39 + + 6 - - 428, 21 + + 89, 449 - - 3 + + 251, 20 - - TITLETextBox + + 10 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ADDED_WHOTextEdit - - XtraTabPage1 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 5 + + DataLayoutControl1 - - 461, 66 + + 7 - - 428, 21 + + - - 5 + + 421, 449 - - EMAIL_SUBJECTTextBox + + + Combo - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Combo - - XtraTabPage1 + + G - - 7 + + 251, 20 - - Top, Left, Right + + 11 - - 461, 93 + + ADDED_WHENDateEdit - - True + + DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Both + + DataLayoutControl1 - - 583, 125 + + 8 - - 7 + + 89, 473 - - EMAIL_BODY1TextBox + + 251, 20 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 12 - - XtraTabPage1 + + CHANGED_WHOTextEdit + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - + + DataLayoutControl1 + + 9 - - Top, Left, Right + + - - 461, 224 + + 421, 473 - - True + + Combo - - Both + + Combo - - 583, 120 + + 251, 20 - - 9 + + 13 - - EMAIL_BODY2TextBox + + CHANGED_WHENDateEdit - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - XtraTabPage1 + + DataLayoutControl1 - - 11 + + 10 - - Top, Left, Right + + 89, 84 - - 461, 350 + + 583, 143 - - True + + 7 + + + EMAIL_BODY1TextEdit - - Both + + DevExpress.XtraEditors.MemoEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 583, 67 + + DataLayoutControl1 - + 11 - - EMAIL_BODY3TextBox + + 89, 231 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 583, 190 - - XtraTabPage1 + + 8 - - 13 + + EMAIL_BODY2TextEdit + + + DevExpress.XtraEditors.MemoEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DataLayoutControl1 - - 461, 423 + + 12 + + + 89, 60 + + + 583, 20 + + + 6 + + + EMAIL_SUBJECTTextEdit - - 124, 21 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - + + DataLayoutControl1 + + 13 - - ADDED_WHOTextBox + + 359, 3 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ID - - XtraTabPage1 + + Titel - - 15 + + Betreff - - 694, 423 + + Body1 - - 128, 21 + + Body2 - - 15 + + Body3 - - ADDED_WHENTextBox + + Erstellt wer - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Geändert wer - - XtraTabPage1 + + Erstellt wann - - 17 + + Geändert wann - - 461, 453 + + 684, 505 - - 124, 21 + + 22 - - 17 + + DataLayoutControl1 - - CHANGED_WHOTextBox + + DataLayoutControl1 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - + XtraTabPage1 - - 19 + + 0 + + + Left - - 694, 453 + + 0, 0 - - 128, 21 + + ID - - 19 + + True - - CHANGED_WHENTextBox + + 0 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 51 + + + Titel - + + True + + + 1 + + + 128 + + + 353, 508 + + + 20 + + + GridControl1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + XtraTabPage1 - - 21 + + 1 1057, 508 @@ -2107,6 +1871,12 @@ DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarButtonItem7 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage1 @@ -2143,6 +1913,78 @@ DD_PM_WINDREAM.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + Root + + + DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlGroup1 + + + DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForGUID + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForTITLE + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForEMAIL_SUBJECT + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForEMAIL_BODY1 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForEMAIL_BODY2 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForEMAIL_BODY3 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForADDED_WHO + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForADDED_WHEN + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForCHANGED_WHO + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForCHANGED_WHEN + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + GridView1 diff --git a/app/DD_PM_WINDREAM/frmAdmin2.vb b/app/DD_PM_WINDREAM/frmAdmin2.vb index 75e5ed8..cb3c96d 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.vb @@ -1,16 +1,14 @@  +Imports System.IO Imports DevExpress.XtraTab Public Class frmAdmin2 Private Sub frmAdmin2_Load(sender As Object, e As EventArgs) Handles MyBase.Load - 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE". Sie können sie bei Bedarf verschieben oder entfernen. - - 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE". Sie können sie bei Bedarf verschieben oder entfernen. Load_Email_template() - Load_Gui_Phrases + Load_Gui_Phrases() End Sub Sub Status_Changed(text As String) labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always @@ -19,7 +17,7 @@ Public Class frmAdmin2 Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbitemplateAdd.ItemClick TBDD_EMAIL_TEMPLATEBindingSource.AddNew() - TITLETextBox.ReadOnly = False + TITLETextEdit.ReadOnly = False End Sub @@ -54,11 +52,11 @@ Public Class frmAdmin2 Try Me.TBDD_EMAIL_TEMPLATEBindingSource.EndEdit() If Not IsNothing(DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE.GetChanges) Then - Me.CHANGED_WHOTextBox.Text = USER_USERNAME + Me.CHANGED_WHOTextEdit.Text = USER_USERNAME Me.TBDD_EMAIL_TEMPLATEBindingSource.EndEdit() Me.TBDD_EMAIL_TEMPLATETableAdapter.Update(DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE) Status_Changed("Vorlage gespeichert") - TITLETextBox.ReadOnly = True + TITLETextEdit.ReadOnly = True Else Status_Changed("Keine Änderung") End If @@ -72,7 +70,7 @@ Public Class frmAdmin2 Dim result As MsgBoxResult = MsgBox("Wollen Sie die Vorlage wirklich löschen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") 'wenn Speichern ja If result = MsgBoxResult.Yes Then - Dim oSQL = $"Delete from TBDD_EMAIL_TEMPLATE where guid = {GUIDTextBox.Text}" + Dim oSQL = $"Delete from TBDD_EMAIL_TEMPLATE where guid = {GUIDTextEdit.Text}" If ClassDatabase.Execute_non_Query(oSQL) = True Then Load_Email_template() Status_Changed("Vorlage gelöscht!") @@ -92,18 +90,7 @@ Public Class frmAdmin2 End Select End Sub - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - Dim oText = EMAIL_BODY1TextBox.Text - If EMAIL_BODY2TextBox.Text <> "" Then - oText = oText & "

" & EMAIL_BODY2TextBox.Text - End If - If EMAIL_BODY3TextBox.Text <> "" Then - oText = oText & "

" & EMAIL_BODY3TextBox.Text - End If - Dim ofrm As New frmPreviewHtml - ofrm.DisplayText = oText - ofrm.ShowDialog() - End Sub + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick GuiPhrase_Save() @@ -149,4 +136,34 @@ Public Class frmAdmin2 OBJ_NAMETextBox.ReadOnly = False End If End Sub + + Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick + Dim oText = EMAIL_BODY1TextEdit.Text + If EMAIL_BODY2TextEdit.Text <> "" Then + oText = oText & "

" & EMAIL_BODY2TextEdit.Text + End If + If EMAIL_BODY3TextEdit.Text <> "" Then + oText = oText & "

" & EMAIL_BODY3TextEdit.Text + End If + Dim ofrm As New frmPreviewHtml + ofrm.DisplayText = oText + ofrm.ShowDialog() + End Sub + + Private Sub frmAdmin2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + Try + Dim Filename As String = String.Format("DevExLayoutAdmin2_Email.xml") + Dim xml As String = System.IO.Path.Combine(Application.UserAppDataPath(), Filename) + If File.Exists(xml) Then + DataLayoutControl1.SaveLayoutToXml(xml) + + End If + + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info("Error while restoring layout 1: " & ex.Message) + End Try + + + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index 87dc9d7..e4f478b 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -760,6 +760,7 @@ Partial Class frmAdministration Me.TableAdapterManager.Connection = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing + Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index c7fc528..7725ca3 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -264,6 +264,24 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Benutzer: + + + MiddleLeft + Label20 @@ -414,6 +432,24 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Benutzer: + + + MiddleLeft + Label19 @@ -483,69 +519,6 @@ 0 - - 206, 17 - - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Benutzer: - - - MiddleLeft - - - Label20 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 0 - - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Benutzer: - - - MiddleLeft - - - Label19 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel2 - - - 0 - Fill @@ -609,6 +582,27 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Gruppen: + + + MiddleLeft + Label22 @@ -711,6 +705,27 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Gruppen: + + + MiddleLeft + Label23 @@ -780,72 +795,6 @@ 0 - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Gruppen: - - - MiddleLeft - - - Label22 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel3 - - - 0 - - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Gruppen: - - - MiddleLeft - - - Label23 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel4 - - - 0 - False @@ -1921,9 +1870,18 @@ 4 - - 174, 56 - + + Segoe UI, 9pt + + + 9, 21 + + + 862, 23 + + + 0 + MOVE2FOLDERTextBox @@ -1936,6 +1894,21 @@ 0 + + Segoe UI, 9.75pt, style=Bold + + + 877, 19 + + + 29, 23 + + + 72 + + + ... + btnmovetoFolderDialog @@ -1975,68 +1948,17 @@ 3 - - Segoe UI, 9pt - - - 9, 21 + + Tahoma, 9.75pt - - 862, 23 + + 693, 12 - - 0 + + 55, 23 - - MOVE2FOLDERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 0 - - - Segoe UI, 9.75pt, style=Bold - - - 877, 19 - - - 29, 23 - - - 72 - - - ... - - - btnmovetoFolderDialog - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 1 - - - Tahoma, 9.75pt - - - 693, 12 - - - 55, 23 - - - 5 + + 5 PRIORITYNumericUpDown @@ -2566,740 +2488,164 @@ True - - TabControl2 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Top, Bottom, Left, Right - - TabPage6 + + 17, 251 + + + 677, 212 + + + Fill - - 0 + + 0, 0 - - 4, 25 + + Windream Index - - 3, 3, 3, 3 + + True - - 970, 473 + + 0 - - 1 + + Fester Wert - - Aktionen nach erfolgreicher Indexierung: + + True - - TabPage6 + + 2 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + SQL Befehl - - tabctrl_Profilkonfig + + True - + 1 - - 288, 98 - - - 978, 502 + + Doppelte Werte vermeiden - - 79 + + Neue Werte erlauben - - tabctrl_Profilkonfig + + Hinzugefügt Wer - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True - - TabPage1 + + 3 - - 0 + + Hinzugefügt Wann - - Left + + True - - 3, 3 + + 4 - - Profil-Name + + Geändert Wer - + True - - 0 + + 5 - - 129 + + Geändert Wann - - 276, 600 + + True - - 84 + + 6 - - GridControl1 + + 627, 302 - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 93 - - TabPage1 + + gridFinalIndex - - 7 + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Tahoma, 9.75pt + + Panel5 - - 973, 68 + + 0 - - 238, 24 + + Right - - 78 + + False - - Neueste Dokumente zuerst anzeigen + + 627, 0 - - SORT_BY_LATESTCheckBox + + 323, 302 - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 91 - - TabPage1 + + PropertyGrid1 - - 9 + + System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 4, 25 + + Panel5 - - 3, 3, 3, 3 + + 1 - - 1272, 606 + + 3, 166 - - 0 + + 950, 302 - - Profil-Verwaltung + + 94 - - TabPage1 + + Panel5 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabControl1 + + TabPage11 - + 0 - - SplitContainerProfilzuordnung + + 1045, 173 + + + True - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1272, 606 - - - 1 - - - Profilzuordnung - - - TabPage2 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 1 - - - btnSQLProfilehome - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 0 - - - btnUserManager - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 1 - - - Button2 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 2 - - - VEKTOR_DELIMITERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 4 - - - btnConnections - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 5 - - - btnopen_SQLAdmin - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 6 - - - EMAIL_ACTIVECheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 7 - - - grpbxEmail - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 8 - - - btnlicensemanager_open - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 9 - - - INTERVALL_CKECK_NO_OF_FILESNumericUpDown - - - System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 11 - - - Label3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 12 - - - GEAENDERTWERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 14 - - - GEAENDERTWANNTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 16 - - - btnSaveKonfig - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 17 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1272, 606 - - - 2 - - - Grundeinstellungen - - - TabPage3 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 2 - - - Fill - - - 0, 0 - - - 1280, 635 - - - 3 - - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - pnlMain - - - 0 - - - TabPage11 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 0 - - - TabPage12 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 1 - - - Fill - - - 3, 3 - - - 964, 467 - - - 92 - - - TabControl2 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 0 - - - 1045, 173 - - - Panel5 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 0 - - - BindingNavigator1 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 1 - - - Label13 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 2 - - - Label5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 4 - - - Label6 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 5 - - - Tahoma, 9pt - - - 4, 25 - - - 3, 3, 3, 3 - - - 956, 438 - - - 0 - - - Move und finale Indexe - - - TabPage11 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 0 - - - Top, Bottom, Left, Right - - - gridFinalIndex - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel5 - - - 0 - - - PropertyGrid1 - - - System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel5 - - - 1 - - - 3, 166 - - - 950, 299 - - - 94 - - - Panel5 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 0 - - - 17, 251 - - - 677, 212 - - - Fill - - - 0, 0 - - - Windream Index - - - True - - - 0 - - - Fester Wert - - - True - - - 2 - - - SQL Befehl - - - True - - - 1 - - - Doppelte Werte vermeiden - - - Neue Werte erlauben - - - Hinzugefügt Wer - - - True - - - 3 - - - Hinzugefügt Wann - - - True - - - 4 - - - Geändert Wer - - - True - - - 5 - - - Geändert Wann - - - True - - - 6 - - - 627, 299 - - - 93 - - - gridFinalIndex - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel5 - - - 0 - - - 677, 212 - - - Right - - - False - - - 627, 0 - - - 323, 299 - - - 91 - - - PropertyGrid1 - - - System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel5 - - - 1 - - - 1045, 173 - - - True - - - 116, 24 + + 116, 24 Neu hinzufügen @@ -3563,101 +2909,56 @@ 583, 17 - - 75 - - - Diese Indexe werden nach erfolgreicher Indexierung automatisch bei dem indexierten Dokument gesetzt. - - - Label6 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 5 - - - True - - - ANNOTATE_WORK_HISTORY_ENTRYCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 0 - - - ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 1 - - - SQL_VIEWTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 + + 75 - - 3 + + Diese Indexe werden nach erfolgreicher Indexierung automatisch bei dem indexierten Dokument gesetzt. - - WORK_HISTORY_ENTRYTextBox + + Label6 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage12 + + TabPage11 - + 5 - + + Tahoma, 9pt + + 4, 25 - + 3, 3, 3, 3 - - 956, 441 + + 956, 438 - - 1 + + 0 - - Nachbearbeitungsfunktionen 2 + + Move und finale Indexe - - TabPage12 + + TabPage11 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabControl2 - - 1 + + 0 + + + True 291, 336 @@ -3755,6 +3056,195 @@ 5 + + 4, 25 + + + 3, 3, 3, 3 + + + 956, 441 + + + 1 + + + Nachbearbeitungsfunktionen 2 + + + TabPage12 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl2 + + + 1 + + + Fill + + + 3, 3 + + + 964, 467 + + + 92 + + + TabControl2 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage6 + + + 0 + + + 4, 25 + + + 3, 3, 3, 3 + + + 970, 473 + + + 1 + + + Aktionen nach erfolgreicher Indexierung: + + + TabPage6 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + tabctrl_Profilkonfig + + + 1 + + + 288, 98 + + + 978, 502 + + + 79 + + + tabctrl_Profilkonfig + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 0 + + + Left + + + 3, 3 + + + Profil-Name + + + True + + + 0 + + + 129 + + + 276, 600 + + + 84 + + + GridControl1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TabPage1 + + + 7 + + + Tahoma, 9.75pt + + + 973, 68 + + + 238, 24 + + + 78 + + + Neueste Dokumente zuerst anzeigen + + + SORT_BY_LATESTCheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 9 + + + 4, 25 + + + 3, 3, 3, 3 + + + 1272, 606 + + + 0 + + + Profil-Verwaltung + + + TabPage1 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 0 + Fill @@ -3842,15 +3332,30 @@ SplitContainerProfilzuordnung.Panel1 - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerProfilzuordnung + + + 0 + + + 4, 25 + + + 3, 3, 3, 3 - - SplitContainerProfilzuordnung + + 907, 571 - + 0 + + Benutzer + TabPage7 @@ -3863,6 +3368,21 @@ 0 + + 4, 25 + + + 3, 3, 3, 3 + + + 907, 571 + + + 1 + + + Gruppen + TabPage8 @@ -3932,58 +3452,31 @@ 0 - - 4, 25 - - - 3, 3, 3, 3 - - - 907, 571 - - - 0 - - - Benutzer - - - TabPage7 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl3 - - - 0 - - + 4, 25 - + 3, 3, 3, 3 - - 907, 571 + + 1272, 606 - + 1 - - Gruppen + + Profilzuordnung - - TabPage8 + + TabPage2 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabControl3 + + TabControl1 - + 1 @@ -4082,287 +3575,113 @@ 2 - - 234, 95 - - - 182, 61 - - - 45, 23 - - - 14 - - - VEKTOR_DELIMITERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 4 - - - 234, 95 - - - MiddleLeft - - - 649, 64 - - - 172, 30 - - - 13 - - - Connections Verwaltung - - - MiddleRight - - - btnConnections - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 5 - - - MiddleLeft - - - 649, 104 - - - 172, 30 - - - 12 - - - SQL-Admin - - - MiddleRight - - - btnopen_SQLAdmin - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 6 - - - 463, 32 - - - 162, 24 - - - 11 - - - Email Meldungen Aktiv - - - EMAIL_ACTIVECheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 7 - - - GroupBox5 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 0 - - - EMAIL_REMINDER_FOOTERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 2 - - - EMAIL_REMINDER_HEADERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 4 - - - EMAIL_PWTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 6 - - - EMAIL_USERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 8 - - - EMAIL_SMTPTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 234, 95 + + + 182, 61 - - grpbxEmail + + 45, 23 - - 10 + + 14 - - EMAIL_FROMTextBox + + VEKTOR_DELIMITERTextBox - + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - grpbxEmail - - - 12 + + TabPage3 - - False + + 4 - - 21, 90 + + MiddleLeft - - 622, 324 + + 649, 64 - - 1 + + 172, 30 - - E-Mail Konfiguration + + 13 - - grpbxEmail + + Connections Verwaltung - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + MiddleRight - - TabPage3 + + btnConnections - - 8 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - txtemailEmpfaenger + + TabPage3 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 5 - - GroupBox5 + + MiddleLeft - - 0 + + 649, 104 - - Label8 + + 172, 30 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 12 - - GroupBox5 + + SQL-Admin - - 1 + + MiddleRight - - btnTest_Email + + btnopen_SQLAdmin - + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GroupBox5 + + TabPage3 - - 2 + + 6 - - 307, 23 + + 463, 32 - - 303, 87 + + 162, 24 - - 21 + + 11 - - Email testen + + Email Meldungen Aktiv - - GroupBox5 + + EMAIL_ACTIVECheckBox - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - grpbxEmail + + TabPage3 - - 0 + + 7 112, 19 @@ -4445,6 +3764,30 @@ 2 + + 307, 23 + + + 303, 87 + + + 21 + + + Email testen + + + GroupBox5 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxEmail + + + 0 + 10, 258 @@ -4577,6 +3920,33 @@ 12 + + False + + + 21, 90 + + + 622, 324 + + + 1 + + + E-Mail Konfiguration + + + grpbxEmail + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 8 + MiddleLeft @@ -4727,6 +4097,57 @@ 17 + + 4, 25 + + + 3, 3, 3, 3 + + + 1272, 606 + + + 2 + + + Grundeinstellungen + + + TabPage3 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 2 + + + Fill + + + 0, 0 + + + 1280, 635 + + + 3 + + + TabControl1 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlMain + + + 0 + 775, 134 @@ -4736,6 +4157,12 @@ 754, 95 + + 20, 20 + + + False + 0, 635 @@ -4760,12 +4187,6 @@ 1 - - 20, 20 - - - False - 17, 95 diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb b/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb index b25308d..abe11dc 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb +++ b/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb @@ -22,30 +22,59 @@ Partial Class frmDesignerLayout 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDesignerLayout)) Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarListItem1 = New DevExpress.XtraBars.BarListItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.DataLayoutControl1 = New DevExpress.XtraDataLayout.DataLayoutControl() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.PropertyGridControl1 = New DevExpress.XtraVerticalGrid.PropertyGridControl() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.ToolboxControlMain = New DevExpress.XtraToolbox.ToolboxControl() + Me.ToolboxGroupMain = New DevExpress.XtraToolbox.ToolboxGroup() + Me.ToolboxItemTextbox = New DevExpress.XtraToolbox.ToolboxItem() + Me.ToolboxItemMemoedit = New DevExpress.XtraToolbox.ToolboxItem() + Me.ToolboxItemDatepicker = New DevExpress.XtraToolbox.ToolboxItem() + Me.ToolboxItemCheckbox = New DevExpress.XtraToolbox.ToolboxItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DataLayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + CType(Me.PropertyGridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPage2.SuspendLayout() Me.SuspendLayout() ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarListItem1, Me.BarButtonItem1}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 1 + Me.RibbonControl1.MaxItemId = 3 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Size = New System.Drawing.Size(1196, 158) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' + 'BarListItem1 + ' + Me.BarListItem1.Caption = "Layout auswählen" + Me.BarListItem1.Id = 1 + Me.BarListItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarListItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarListItem1.Name = "BarListItem1" + Me.BarListItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) @@ -54,11 +83,13 @@ Partial Class frmDesignerLayout ' 'RibbonPageGroup1 ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarListItem1) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "RibbonPageGroup1" ' 'RibbonPageGroup2 ' + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup2.Name = "RibbonPageGroup2" Me.RibbonPageGroup2.Text = "RibbonPageGroup2" ' @@ -74,30 +105,136 @@ Partial Class frmDesignerLayout Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Text = "RibbonPage2" ' - 'DataLayoutControl1 + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + Me.SplitContainerControl1.Panel1.Controls.Add(Me.LayoutControl1) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + Me.SplitContainerControl1.Panel2.Controls.Add(Me.XtraTabControl1) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(1196, 440) + Me.SplitContainerControl1.SplitterPosition = 818 + Me.SplitContainerControl1.TabIndex = 8 + ' + 'LayoutControl1 ' - Me.DataLayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.DataLayoutControl1.Location = New System.Drawing.Point(0, 158) - Me.DataLayoutControl1.Name = "DataLayoutControl1" - Me.DataLayoutControl1.Root = Me.Root - Me.DataLayoutControl1.Size = New System.Drawing.Size(1196, 440) - Me.DataLayoutControl1.TabIndex = 2 - Me.DataLayoutControl1.Text = "DataLayoutControl1" + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(818, 440) + Me.LayoutControl1.TabIndex = 0 + Me.LayoutControl1.Text = "LayoutControl1" ' 'Root ' Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.Root.GroupBordersVisible = False Me.Root.Name = "Root" - Me.Root.Size = New System.Drawing.Size(1196, 440) + Me.Root.Size = New System.Drawing.Size(818, 440) Me.Root.TextVisible = False ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(368, 440) + Me.XtraTabControl1.TabIndex = 0 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Controls.Add(Me.PropertyGridControl1) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(366, 415) + Me.XtraTabPage1.Text = "XtraTabPage1" + ' + 'PropertyGridControl1 + ' + Me.PropertyGridControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.PropertyGridControl1.Location = New System.Drawing.Point(0, 0) + Me.PropertyGridControl1.MenuManager = Me.RibbonControl1 + Me.PropertyGridControl1.Name = "PropertyGridControl1" + Me.PropertyGridControl1.Size = New System.Drawing.Size(366, 415) + Me.PropertyGridControl1.TabIndex = 0 + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Controls.Add(Me.ToolboxControlMain) + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(366, 415) + Me.XtraTabPage2.Text = "XtraTabPage2" + ' + 'ToolboxControlMain + ' + Me.ToolboxControlMain.Caption = "Form Controls" + Me.ToolboxControlMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.ToolboxControlMain.Groups.Add(Me.ToolboxGroupMain) + Me.ToolboxControlMain.Location = New System.Drawing.Point(0, 0) + Me.ToolboxControlMain.Name = "ToolboxControlMain" + Me.ToolboxControlMain.OptionsMinimizing.AllowMinimizing = False + Me.ToolboxControlMain.OptionsView.ShowMenuButton = False + Me.ToolboxControlMain.OptionsView.ShowSearchPanel = False + Me.ToolboxControlMain.OptionsView.ShowToolboxCaption = True + Me.ToolboxControlMain.SelectedGroup = Me.ToolboxGroupMain + Me.ToolboxControlMain.SelectedGroupIndex = 0 + Me.ToolboxControlMain.Size = New System.Drawing.Size(366, 415) + Me.ToolboxControlMain.TabIndex = 5 + Me.ToolboxControlMain.Text = "Form Controls" + ' + 'ToolboxGroupMain + ' + Me.ToolboxGroupMain.Caption = "Basis Controls" + Me.ToolboxGroupMain.Items.Add(Me.ToolboxItemTextbox) + Me.ToolboxGroupMain.Items.Add(Me.ToolboxItemMemoedit) + Me.ToolboxGroupMain.Items.Add(Me.ToolboxItemDatepicker) + Me.ToolboxGroupMain.Items.Add(Me.ToolboxItemCheckbox) + Me.ToolboxGroupMain.Name = "ToolboxGroupMain" + ' + 'ToolboxItemTextbox + ' + Me.ToolboxItemTextbox.Caption = "Textbox" + Me.ToolboxItemTextbox.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.TextBox + Me.ToolboxItemTextbox.Name = "ToolboxItemTextbox" + Me.ToolboxItemTextbox.Tag = "Textbox" + ' + 'ToolboxItemMemoedit + ' + Me.ToolboxItemMemoedit.Caption = "Multiline Textbox" + Me.ToolboxItemMemoedit.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.TextBox + Me.ToolboxItemMemoedit.Name = "ToolboxItemMemoedit" + Me.ToolboxItemMemoedit.Tag = "Memoedit" + ' + 'ToolboxItemDatepicker + ' + Me.ToolboxItemDatepicker.Caption = "Datepicker" + Me.ToolboxItemDatepicker.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.DateOrTimePicker_675 + Me.ToolboxItemDatepicker.Name = "ToolboxItemDatepicker" + Me.ToolboxItemDatepicker.Tag = "Datepicker" + ' + 'ToolboxItemCheckbox + ' + Me.ToolboxItemCheckbox.Caption = "Checkbox" + Me.ToolboxItemCheckbox.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.checkbox_16xLG + Me.ToolboxItemCheckbox.Name = "ToolboxItemCheckbox" + Me.ToolboxItemCheckbox.Tag = "Checkbox" + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "BarButtonItem1" + Me.BarButtonItem1.Id = 2 + Me.BarButtonItem1.Name = "BarButtonItem1" + ' 'frmDesignerLayout ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1196, 622) - Me.Controls.Add(Me.DataLayoutControl1) + Me.Controls.Add(Me.SplitContainerControl1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) Me.Name = "frmDesignerLayout" @@ -105,8 +242,15 @@ Partial Class frmDesignerLayout Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "frmDesignerLayout" CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DataLayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + CType(Me.PropertyGridControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPage2.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() @@ -118,6 +262,19 @@ Partial Class frmDesignerLayout Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents DataLayoutControl1 As DevExpress.XtraDataLayout.DataLayoutControl + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents ToolboxControlMain As DevExpress.XtraToolbox.ToolboxControl + Friend WithEvents ToolboxGroupMain As DevExpress.XtraToolbox.ToolboxGroup + Friend WithEvents ToolboxItemTextbox As DevExpress.XtraToolbox.ToolboxItem + Friend WithEvents ToolboxItemMemoedit As DevExpress.XtraToolbox.ToolboxItem + Friend WithEvents ToolboxItemDatepicker As DevExpress.XtraToolbox.ToolboxItem + Friend WithEvents ToolboxItemCheckbox As DevExpress.XtraToolbox.ToolboxItem + Friend WithEvents BarListItem1 As DevExpress.XtraBars.BarListItem + Friend WithEvents PropertyGridControl1 As DevExpress.XtraVerticalGrid.PropertyGridControl + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem End Class diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout.resx b/app/DD_PM_WINDREAM/frmDesignerLayout.resx index 1af7de1..a5fb450 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout.resx +++ b/app/DD_PM_WINDREAM/frmDesignerLayout.resx @@ -117,4 +117,26 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAADQDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iUmVwZWF0X0FsbF9JdGVtX0xhYmVsc19QaXZvdF9UYWJsZSIgc3R5bGU9 + ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3Mi + PgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLnN0MHtvcGFjaXR5 + OjAuNzU7fQo8L3N0eWxlPg0KICA8cGF0aCBkPSJNMjcsMkg1QzQuNCwyLDQsMi40LDQsM3YyNmMwLDAu + NiwwLjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjNDMjgsMi40LDI3LjYsMiwyNywyeiBNMjYsMjhI + NlY0aDIwVjI4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8ZyBjbGFzcz0ic3QwIj4NCiAgICA8cGF0aCBk + PSJNMTgsMTBoLTRWOGg0VjEweiBNMjQsOGgtNHYyaDRWOHogTTI0LDEyaC00djJoNFYxMnogTTE4LDEy + aC00djJoNFYxMnogTTE4LDE2aC00djJoNFYxNnogTTI0LDE2aC00djJoNFYxNiAgIHogTTI0LDIwaC00 + djJoNFYyMHogTTE4LDIwaC00djJoNFYyMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgPC9nPg0KICA8cGF0 + aCBkPSJNMTIsMTBIOFY4aDRWMTB6IE0xMiwxMkg4djJoNFYxMnogTTEyLDE2SDh2Mmg0VjE2eiBNMTIs + MjBIOHYyaDRWMjB6IiBjbGFzcz0iQmx1ZSIgLz4NCjwvc3ZnPgs= + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout.vb b/app/DD_PM_WINDREAM/frmDesignerLayout.vb index 8e5608b..77677b0 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout.vb +++ b/app/DD_PM_WINDREAM/frmDesignerLayout.vb @@ -1,3 +1,26 @@ Public Class frmDesignerLayout + Dim DT_Foms As DataTable + Private Sub frmDesignerLayout_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Dim oSQL = "Select * from TBIDB_LAYOUT_CONFIG" + DT_Foms = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) + If Not IsNothing(DT_Foms) Then + For Each oRow As DataRow In DT_Foms.Rows + BarListItem1.Strings.Add(oRow.Item("TITLE")) + Next + End If + Catch ex As Exception + MsgBox("Unexpected Error in FormLoad:" & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub BarListItem1_ListItemClick(sender As Object, e As DevExpress.XtraBars.ListItemClickEventArgs) Handles BarListItem1.ListItemClick + Dim barlistItem = e.Item + ' Dim oSelectedText = e.Item.str + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + LayoutControl1.sa + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index b451074..261cd5c 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -414,10 +414,10 @@ Public Class frmValidator For Each row As DataRow In dt.Rows Dim name As String = row.Item("NAME") Dim oGUID As String = row.Item("GUID") - If clsPatterns.HasComplexPatterns(row.Item("SQL_UEBERPRUEFUNG")) Then - LOGGER.Debug($"SQL has complex patterns - GUID: {oGUID}") - Continue For - End If + 'If clsPatterns.HasComplexPatterns(row.Item("SQL_UEBERPRUEFUNG")) Then + ' LOGGER.Debug($"SQL [{row.Item("SQL_UEBERPRUEFUNG")}] has complex patterns - GUID: {oGUID}") + ' Continue For + 'End If If IsDBNull(row.Item("CONNECTION_ID")) Then LOGGER.Info($"No CONNECTION_ID for SQL-Data - oGUID: {oGUID}") Continue For @@ -427,16 +427,137 @@ Public Class frmValidator Dim sqlStatement As String = row.Item("SQL_UEBERPRUEFUNG") Dim connectionId As Integer = row.Item("CONNECTION_ID") + 'If clsPatterns.HasComplexPatterns(sqlStatement) Then + ' Continue For + 'End If + If IsNothing(sqlStatement) Then + Continue For + End If + 'oSql = clsPatterns.ReplaceUserValues(sqlStatement, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + 'oSql = clsPatterns.ReplaceInternalValues(oSql) + sqlStatement = clsPatterns.ReplaceAllValues(sqlStatement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + If IsNothing(sqlStatement) Then + Continue For + End If If clsPatterns.HasComplexPatterns(sqlStatement) Then + LOGGER.Warn($"Unexpected error LoadSQLData2 - sql Statement still has complex patterns! [{oSql}]") Continue For End If - - oSql = clsPatterns.ReplaceUserValues(sqlStatement, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - oSql = clsPatterns.ReplaceInternalValues(oSql) - LOGGER.Debug(">>> sql after ReplaceInternalValues: " & oSql) 'sql = ClassPatterns.ReplaceInternalValues(sqlStatement) dt = ClassDatabase.Return_Datatable_ConId(oSql, connectionId) + If IsNothing(dt) Then + LOGGER.Warn($"SQL-Query [{oSql}] for control {control.Name} is invalid.") + Exit Sub + End If + Dim oValue + + If TypeOf control Is TextBox Then + Try + Dim firstRow As DataRow = dt.Rows(0) + + Dim value = firstRow.Item(0) + + control.Text = value + oValue = value + Catch ex As Exception + LOGGER.Error(ex) + clsLogger.Add("Error in LoadSimpleData for TextBox: " & ex.Message) + End Try + ElseIf TypeOf control Is ComboBox Then + Try + Dim oMyComboBox As ComboBox = control + Dim oselectedIndex = oMyComboBox.SelectedIndex + LOGGER.Debug($"oMyComboBox {oMyComboBox.Name} - Saving selected index {oselectedIndex}") + Dim list As New List(Of String) + + For Each _row As DataRow In dt.Rows + list.Add(_row.Item(0)) + Next + + oMyComboBox.DataSource = list + oMyComboBox.SelectedIndex = oselectedIndex + + Catch ex As Exception + LOGGER.Error(ex) + clsLogger.Add("Error in LoadSimpleData for Combobox: " & ex.Message) + End Try + ElseIf TypeOf control Is LookupControl2 Then + Try + Dim lookup As LookupControl2 = control + + lookup.DataSource = dt + Catch ex As Exception + LOGGER.Error(ex) + clsLogger.Add("Error in LoadSimpleData for LookupControl2: " & ex.Message) + End Try + ElseIf TypeOf control Is GridControl Then + Try + Dim dataGridView As GridControl = control + Dim oDataSource As DataTable = dataGridView.DataSource + + If oDataSource Is Nothing OrElse oDataSource.Rows.Count = 0 Then + 'dataGridView.DataSource = dt + + Dim oDatatable As DataTable = dt.Clone() + + For Each oColumn As DataColumn In oDatatable.Columns + If oDataSource.Columns(oColumn.ColumnName) Is Nothing Then + 'oDataSource.Columns.Add(oColumn) + oDataSource.Columns.Add(oColumn.ColumnName, oColumn.DataType) + End If + Next + + For Each oRow As DataRow In dt.Rows + oDataSource.ImportRow(oRow) + Next + + dataGridView.DataSource = oDataSource + End If + Catch ex As Exception + LOGGER.Error(ex) + clsLogger.Add("Error in LoadSimpleData for DataGridView: " & ex.Message) + End Try + End If + Next + Catch ex As Exception + LOGGER.Error(ex) + MsgBox("Error in LoadSQLData: " & ex.Message, MsgBoxStyle.Critical) + clsLogger.Add("Error in LoadSQLData: " & ex.Message) + End Try + End Sub + Sub LoadSQLData2(control As Control, controlId As Integer) + Try + If TypeOf control Is Label Then Exit Sub + + Dim oSql As String = $"SELECT GUID,NAME, CONNECTION_ID, SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE GUID = {controlId} AND PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND CTRL_TYPE <> 'BUTTON'" + ' And SQL_UEBERPRUEFUNG Not Like '%#WMI#%' AND SQL_UEBERPRUEFUNG NOT LIKE '%#CTRL#%' + Dim dt As DataTable = ClassDatabase.Return_Datatable(oSql) + + + If IsNothing(dt) Then Exit Sub + If dt.Rows.Count = 0 Then Exit Sub + + For Each row As DataRow In dt.Rows + Dim oControlName As String = row.Item("NAME") + Dim oControlID As String = row.Item("GUID") + If IsDBNull(row.Item("CONNECTION_ID")) Then + LOGGER.Info($"No CONNECTION_ID for SQL-Data - oGUID: {oControlID}") + Continue For + End If + If IsDBNull(row.Item("SQL_UEBERPRUEFUNG")) Then Continue For + + Dim oSqlStatement As String = row.Item("SQL_UEBERPRUEFUNG") + Dim oConnectionId As Integer = row.Item("CONNECTION_ID") + oSql = clsPatterns.ReplaceAllValues(oSqlStatement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + + If clsPatterns.HasComplexPatterns(oSqlStatement) Then + LOGGER.Warn($"Unexpected error LoadSQLData2 - sql Statement still has complex patterns! [{oSql}]") + Continue For + End If + 'sql = ClassPatterns.ReplaceInternalValues(sqlStatement) + dt = ClassDatabase.Return_Datatable_ConId(oSql, oConnectionId) + If IsNothing(dt) Then MsgBox($"SQL-Query for control {control.Name} is invalid.") Exit Sub @@ -513,8 +634,8 @@ Public Class frmValidator Next Catch ex As Exception LOGGER.Error(ex) - MsgBox("Error in LoadSimpleData: " & ex.Message, MsgBoxStyle.Critical) - clsLogger.Add("Error in LoadSimpleData: " & ex.Message) + MsgBox("Error in LoadSQLData2: " & ex.Message, MsgBoxStyle.Critical) + clsLogger.Add("Error in LoadSQLData2: " & ex.Message) End Try End Sub Private Function PreventNulletc(myObject As Object) From 407a5979ac6d63b2d5d0bdf33b1249fc99b84e5a Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 10 Jan 2020 14:30:58 +0100 Subject: [PATCH 04/26] first pass of new layout loading and editing --- app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj | 2 + .../frmDesignerLayout.Designer.vb | 86 ++++++----- app/DD_PM_WINDREAM/frmDesignerLayout.vb | 135 ++++++++++++++++-- .../frmDesignerLayout/Loader.vb | 110 ++++++++++++++ .../frmDesignerLayout/Metadata.vb | 5 + 5 files changed, 291 insertions(+), 47 deletions(-) create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Loader.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Metadata.vb diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index 6da43de..21005b2 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -294,6 +294,8 @@ Form + + frmDocView.vb diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb b/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb index abe11dc..181f559 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb +++ b/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb @@ -25,14 +25,14 @@ Partial Class frmDesignerLayout Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDesignerLayout)) Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.BarListItem1 = New DevExpress.XtraBars.BarListItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() - Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() - Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.PropertyGridControl1 = New DevExpress.XtraVerticalGrid.PropertyGridControl() @@ -43,25 +43,26 @@ Partial Class frmDesignerLayout Me.ToolboxItemMemoedit = New DevExpress.XtraToolbox.ToolboxItem() Me.ToolboxItemDatepicker = New DevExpress.XtraToolbox.ToolboxItem() Me.ToolboxItemCheckbox = New DevExpress.XtraToolbox.ToolboxItem() - Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.LayoutControlMain = New DevExpress.XtraLayout.LayoutControl() + Me.LayoutControlGroupMain = New DevExpress.XtraLayout.LayoutControlGroup() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerControl1.SuspendLayout() - CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() Me.XtraTabPage1.SuspendLayout() CType(Me.PropertyGridControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPage2.SuspendLayout() + CType(Me.LayoutControlMain, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroupMain, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarListItem1, Me.BarButtonItem1}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarListItem1, Me.BarButtonItem1, Me.BarButtonItem2}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 3 + Me.RibbonControl1.MaxItemId = 4 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Size = New System.Drawing.Size(1196, 158) @@ -75,6 +76,18 @@ Partial Class frmDesignerLayout Me.BarListItem1.Name = "BarListItem1" Me.BarListItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "BarButtonItem1" + Me.BarButtonItem1.Id = 2 + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Layout speichern" + Me.BarButtonItem2.Id = 3 + Me.BarButtonItem2.Name = "BarButtonItem2" + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) @@ -84,6 +97,7 @@ Partial Class frmDesignerLayout 'RibbonPageGroup1 ' Me.RibbonPageGroup1.ItemLinks.Add(Me.BarListItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "RibbonPageGroup1" ' @@ -110,7 +124,7 @@ Partial Class frmDesignerLayout Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158) Me.SplitContainerControl1.Name = "SplitContainerControl1" - Me.SplitContainerControl1.Panel1.Controls.Add(Me.LayoutControl1) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.LayoutControlMain) Me.SplitContainerControl1.Panel1.Text = "Panel1" Me.SplitContainerControl1.Panel2.Controls.Add(Me.XtraTabControl1) Me.SplitContainerControl1.Panel2.Text = "Panel2" @@ -118,24 +132,6 @@ Partial Class frmDesignerLayout Me.SplitContainerControl1.SplitterPosition = 818 Me.SplitContainerControl1.TabIndex = 8 ' - 'LayoutControl1 - ' - Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) - Me.LayoutControl1.Name = "LayoutControl1" - Me.LayoutControl1.Root = Me.Root - Me.LayoutControl1.Size = New System.Drawing.Size(818, 440) - Me.LayoutControl1.TabIndex = 0 - Me.LayoutControl1.Text = "LayoutControl1" - ' - 'Root - ' - Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] - Me.Root.GroupBordersVisible = False - Me.Root.Name = "Root" - Me.Root.Size = New System.Drawing.Size(818, 440) - Me.Root.TextVisible = False - ' 'XtraTabControl1 ' Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill @@ -223,11 +219,30 @@ Partial Class frmDesignerLayout Me.ToolboxItemCheckbox.Name = "ToolboxItemCheckbox" Me.ToolboxItemCheckbox.Tag = "Checkbox" ' - 'BarButtonItem1 - ' - Me.BarButtonItem1.Caption = "BarButtonItem1" - Me.BarButtonItem1.Id = 2 - Me.BarButtonItem1.Name = "BarButtonItem1" + 'LayoutControlMain + ' + Me.LayoutControlMain.AllowCustomization = False + Me.LayoutControlMain.AllowDrop = True + Me.LayoutControlMain.BackColor = System.Drawing.Color.Transparent + Me.LayoutControlMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControlMain.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlMain.Name = "LayoutControlMain" + Me.LayoutControlMain.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(706, 255, 650, 400) + Me.LayoutControlMain.OptionsCustomizationForm.ShowLayoutTreeView = False + Me.LayoutControlMain.OptionsCustomizationForm.ShowLoadButton = False + Me.LayoutControlMain.OptionsCustomizationForm.ShowSaveButton = False + Me.LayoutControlMain.Root = Me.LayoutControlGroupMain + Me.LayoutControlMain.Size = New System.Drawing.Size(818, 440) + Me.LayoutControlMain.TabIndex = 3 + Me.LayoutControlMain.Text = "LayoutControl1" + ' + 'LayoutControlGroupMain + ' + Me.LayoutControlGroupMain.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroupMain.GroupBordersVisible = False + Me.LayoutControlGroupMain.Name = "Root" + Me.LayoutControlGroupMain.Size = New System.Drawing.Size(818, 440) + Me.LayoutControlGroupMain.TextVisible = False ' 'frmDesignerLayout ' @@ -244,13 +259,13 @@ Partial Class frmDesignerLayout CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerControl1.ResumeLayout(False) - CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabPage1.ResumeLayout(False) CType(Me.PropertyGridControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPage2.ResumeLayout(False) + CType(Me.LayoutControlMain, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroupMain, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -263,8 +278,6 @@ Partial Class frmDesignerLayout Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl - Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl - Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage @@ -277,4 +290,7 @@ Partial Class frmDesignerLayout Friend WithEvents BarListItem1 As DevExpress.XtraBars.BarListItem Friend WithEvents PropertyGridControl1 As DevExpress.XtraVerticalGrid.PropertyGridControl Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControlMain As DevExpress.XtraLayout.LayoutControl + Friend WithEvents LayoutControlGroupMain As DevExpress.XtraLayout.LayoutControlGroup End Class diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout.vb b/app/DD_PM_WINDREAM/frmDesignerLayout.vb index 77677b0..c80ddbb 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout.vb +++ b/app/DD_PM_WINDREAM/frmDesignerLayout.vb @@ -1,26 +1,137 @@ -Public Class frmDesignerLayout - Dim DT_Foms As DataTable +Imports System.IO +Imports System.Text.Encoding +Imports DevExpress.XtraBars +Imports DevExpress.XtraLayout +Imports DevExpress.XtraLayout.Customization +Imports DevExpress.XtraLayout.Dragging +Imports DevExpress.XtraLayout.HitInfo +Imports DevExpress.XtraToolbox + +Public Class frmDesignerLayout + Private SelectedLayoutId As Integer = 0 + Private FormsDatatable As DataTable + Private _ControlLoader As ControlLoader + +#Region "Drag Helper" + Private _DragItem As BaseLayoutItem + Private _Window As DragFrameWindow + Private _DragController As LayoutItemDragController = Nothing + + Protected ReadOnly Property DragFrameWindow As DragFrameWindow + Get + If _Window Is Nothing Then + _Window = New DragFrameWindow(LayoutControlMain) + End If + Return _Window + End Get + End Property + + Private Sub ShowDragHelper() + DragFrameWindow.Visible = True + End Sub + + Private Sub HideDragHelper() + DragFrameWindow.Reset() + DragFrameWindow.Visible = False + End Sub + + Private Sub UpdateDragHelper(p As Point) + p = LayoutControlMain.PointToClient(p) + _DragController = New LayoutItemDragController(_DragItem, LayoutControlMain.Root, New Point(p.X, p.Y)) + DragFrameWindow.DragController = _DragController + End Sub +#End Region +#Region "Drag Drop Actions" + Private Sub ToolboxControlMain_DragItemDrop(sender As Object, e As ToolboxDragItemDropEventArgs) Handles ToolboxControlMain.DragItemDrop + Dim oPosition As Point = LayoutControlMain.PointToClient(MousePosition) + Dim oHitInfo As BaseLayoutItemHitInfo = LayoutControlMain.CalcHitInfo(oPosition) + Dim oLayoutControl As LayoutControlItem = DirectCast(_DragItem, LayoutControlItem) + Dim oControlName As String = oLayoutControl.Tag & Guid.NewGuid().ToString().GetHashCode().ToString("x") + Dim oControl As Control = _ControlLoader.CreateLayoutControl(oLayoutControl.Tag, oControlName, 0) + + If oLayoutControl IsNot Nothing Then + HideDragHelper() + oLayoutControl.Control = oControl + + If (_DragController IsNot Nothing AndAlso _DragItem IsNot Nothing) Then + If (_DragItem.Owner Is Nothing OrElse _DragItem.Parent Is Nothing) Then + _DragController.DragWildItem() + Else + _DragController.Drag() + End If + Focus() + End If + HideDragHelper() + '_DragItem = Nothing + End If + End Sub + + Private Sub ToolboxControlMain_DragItemStart(sender As Object, e As ToolboxDragItemStartEventArgs) Handles ToolboxControlMain.DragItemStart + _DragItem = CreateLayoutControlItem(e.Item.Tag) + End Sub + + Private Sub ToolboxControlMain_DragItemMove(sender As Object, e As DevExpress.XtraToolbox.ToolboxDragItemMoveEventArgs) Handles ToolboxControlMain.DragItemMove + If (CType(LayoutControlMain, ILayoutControl)).EnableCustomizationMode OrElse Me.DesignMode Then Return + Dim oFormPosition As Point = PointToClient(e.Location) + Dim oLayoutPosition As Point = LayoutControlMain.PointToClient(e.Location) + + If LayoutControlMain.Bounds.Contains(oFormPosition) Then + + If Not DragFrameWindow.Visible Then + DragFrameWindow.Visible = True + Return + End If + + UpdateDragHelper(e.Location) + Else + DragFrameWindow.Visible = False + End If + End Sub + + Private Function CreateLayoutControlItem(Id As String) As LayoutControlItem + Return New LayoutControlItem() With {.Tag = Id} + End Function +#End Region + Private Sub frmDesignerLayout_Load(sender As Object, e As EventArgs) Handles Me.Load Try + _ControlLoader = New ControlLoader(LOGCONFIG, LayoutControlGroupMain) + Dim oSQL = "Select * from TBIDB_LAYOUT_CONFIG" - DT_Foms = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) - If Not IsNothing(DT_Foms) Then - For Each oRow As DataRow In DT_Foms.Rows - BarListItem1.Strings.Add(oRow.Item("TITLE")) + FormsDatatable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) + If Not IsNothing(FormsDatatable) Then + For Each oRow As DataRow In FormsDatatable.Rows + Dim oItem As New BarButtonItem(RibbonControl1.Manager, oRow.Item("TITLE")) + oItem.Tag = oRow.Item("GUID") + AddHandler oItem.ItemClick, AddressOf Item_Click + + BarListItem1.ItemLinks.Add(oItem) Next End If Catch ex As Exception MsgBox("Unexpected Error in FormLoad:" & ex.Message, MsgBoxStyle.Critical) End Try - End Sub - Private Sub BarListItem1_ListItemClick(sender As Object, e As DevExpress.XtraBars.ListItemClickEventArgs) Handles BarListItem1.ListItemClick - Dim barlistItem = e.Item - ' Dim oSelectedText = e.Item.str + Private Sub Item_Click(sender As Object, e As ItemClickEventArgs) + SelectedLayoutId = e.Item.Tag + Dim oRow As DataRow = FormsDatatable.Select($"GUID = {SelectedLayoutId}").First() + 'Dim oXml = oRow.Item("XML_CONTENT") + Dim b As Byte() = System.Convert.FromBase64String(oRow.Item("XML_CONTENT")) + + Using oStream As New MemoryStream(b, False) + LayoutControlMain.RestoreLayoutFromStream(oStream) + End Using End Sub - Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick - LayoutControl1.sa + Private Sub BarButtonItem2_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem2.ItemClick + Using oStream As New MemoryStream() + LayoutControlMain.SaveLayoutToStream(oStream) + Dim oBase64 = System.Convert.ToBase64String(oStream.ToArray()) + 'Dim oXml As String = UTF8.GetString(oStream.ToArray()) + Dim oSql As String = $"UPDATE TBIDB_LAYOUT_CONFIG SET XML_CONTENT = '{oBase64}' WHERE GUID = {SelectedLayoutId}" + + ClassDatabase.Execute_non_Query_ConStr(oSql, CONNECTION_STRING_IDB) + End Using End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Loader.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Loader.vb new file mode 100644 index 0000000..fe7ab40 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Loader.vb @@ -0,0 +1,110 @@ +Imports DevExpress.XtraEditors +Imports DevExpress.XtraLayout +Imports DigitalData.Modules.Logging + + +Public Class ControlLoader + Public Const CONTROL_TEXTEDIT = "TextBox" + Public Const CONTROL_MEMOEDIT = "Memoedit" + Public Const CONTROL_COMBOEDIT = "Combobox" + Public Const CONTROL_CHECKEDIT = "Checkbox" + Public Const CONTROL_RADIOEDIT = "Radiobutton" + Public Const CONTROL_DATEEDIT = "Datepicker" + + Private _LayoutControlGroup As LayoutControlGroup + Private _LayoutControls As List(Of BaseEdit) + Private _LogConfig As LogConfig + Private _LOgger As Logger + + Public ReadOnly Property LayoutControls As List(Of BaseEdit) + Get + If _LayoutControls Is Nothing Then + _LayoutControls = New List(Of BaseEdit) + End If + Return _LayoutControls + End Get + End Property + + Public Sub New(LogConfig As LogConfig, LayoutControlGroup As LayoutControlGroup) + _LayoutControlGroup = LayoutControlGroup + _LogConfig = LogConfig + _LOgger = LogConfig.GetLogger + End Sub + + Public Sub AddControl(Name As String, Value As String, LayoutControlGroup As LayoutControlGroup) + Dim oTextEdit As New SimpleLabelItem() With { + .Name = Name, + .Text = Name & " - " & Value + } + + LayoutControlGroup.AddItem(oTextEdit) + End Sub + Public Sub AddControl(Name As String, Value As String) + AddControl(Name, Value, _LayoutControlGroup) + End Sub + + Public Sub AddSeparator(LayoutControlGroup As LayoutControlGroup) + Dim oSeparator = New SimpleSeparator() + + LayoutControlGroup.AddItem(oSeparator) + End Sub + Public Sub AddSeparator() + AddSeparator(_LayoutControlGroup) + End Sub + + Public Sub LoadControls(Datatable As DataTable, LayoutControlGroup As LayoutControlGroup) + For Each oRow As DataRow In Datatable.Rows + Dim oCaption As String = oRow.Item("COLNAME") + Dim oControlType As String = oRow.Item("CTRLTYPE") + Dim oControlId As Int64 = oRow.Item("RECORD_ID") + Dim oEditor As BaseEdit = CreateLayoutControl(oControlType, oControlId, oControlId) + + If oEditor Is Nothing Then + Continue For + End If + + oEditor.Tag = New Metadata() With { + .Id = oControlId, + .Type = oControlType, + .Caption = oCaption + } + + LayoutControls.Add(oEditor) + LayoutControlGroup.AddItem(oCaption, oEditor) + Next + + LayoutControlGroup.AddItem(New EmptySpaceItem()) + End Sub + Public Sub LoadControls(Datatable As DataTable) + LoadControls(Datatable, _LayoutControlGroup) + End Sub + + Public Function CreateLayoutControl(Type As String, Name As String, Id As Int64) + Dim oEditor As BaseEdit = Nothing + + LOGGER.Debug("Create new Control of type {0} with name {1}", Type, Name) + + Select Case Type + Case CONTROL_TEXTEDIT + Dim oTextEdit As New TextEdit() With {.Name = Name} + oEditor = oTextEdit + Case CONTROL_MEMOEDIT + Dim oMemoEdit As New MemoEdit() With {.Name = Name} + oEditor = oMemoEdit + Case CONTROL_DATEEDIT + Dim oDateEdit As New DateEdit() With {.Name = Name} + oEditor = oDateEdit + Case CONTROL_CHECKEDIT + Dim oCheckEdit As New CheckEdit() With {.Name = Name} + oEditor = oCheckEdit + Case Else + oEditor = Nothing + End Select + + Return oEditor + End Function + End Class + + + + diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Metadata.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Metadata.vb new file mode 100644 index 0000000..9bde075 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Metadata.vb @@ -0,0 +1,5 @@ +Public Class Metadata + Public Id As Int64 + Public Type As String + Public Caption As String +End Class \ No newline at end of file From 9b564f98b0a7463dc622dbfa8996c8c2c6ab3a7f Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Tue, 14 Jan 2020 16:27:16 +0100 Subject: [PATCH 05/26] update new form designer --- .../DD_PM_WINDREAM/DesignTimeBuild/.dtbcache | Bin 218 -> 218 bytes app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj | 32 ++ .../frmDesignerLayout.Designer.vb | 109 ++++--- app/DD_PM_WINDREAM/frmDesignerLayout.resx | 71 ++++- app/DD_PM_WINDREAM/frmDesignerLayout.vb | 94 +++++- .../Editors/DatasourceEditor.vb | 48 +++ .../Editors/DatasourceType.vb | 23 ++ .../Editors/StaticListEditor.vb | 72 +++++ .../Editors/frmDatasourceEditor.Designer.vb | 63 ++++ .../Editors/frmDatasourceEditor.resx | 120 +++++++ .../Editors/frmDatasourceEditor.vb | 54 ++++ .../Editors/frmStaticListEditor.Designer.vb | 81 +++++ .../Editors/frmStaticListEditor.en-US.resx | 136 ++++++++ .../Editors/frmStaticListEditor.resx | 279 ++++++++++++++++ .../Editors/frmStaticListEditor.vb | 19 ++ .../frmDesignerLayout/Loader.vb | 122 +++---- .../frmDesignerLayout/Localization.vb | 31 ++ .../Properties/BaseProperties.vb | 17 + .../Properties/CheckboxProperties.vb | 7 + .../Properties/ComboboxProperties.vb | 14 + .../Properties/DatepickerProperties.vb | 6 + .../Properties/MemoeditProperties.vb | 7 + .../Properties/TextboxProperties.vb | 7 + .../frmDesignerLayout/Serializer.vb | 297 ++++++++++++++++++ 24 files changed, 1568 insertions(+), 141 deletions(-) create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Editors/DatasourceEditor.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Editors/DatasourceType.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Editors/StaticListEditor.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.Designer.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.resx create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.Designer.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.en-US.resx create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.resx create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Localization.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Properties/BaseProperties.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Properties/CheckboxProperties.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Properties/ComboboxProperties.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Properties/DatepickerProperties.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Properties/MemoeditProperties.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Properties/TextboxProperties.vb create mode 100644 app/DD_PM_WINDREAM/frmDesignerLayout/Serializer.vb diff --git a/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache b/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache index 715c91bb439b5d68c69962a8f4a3c4d0343f04fc..671ed4a1339e1ed6980c0b51ee8bfb3acd087d30 100644 GIT binary patch delta 51 zcmcb`c#Cm@h-erC1A{Ar6+;Yz7egvT9uTH7cuh2vpBT|3P{2^ckk63Ca7Vr_5QG6f C`wfNw delta 48 zcmcb`c#Cm@h-@4K1A{Ar6+;X|Fhep!215};Dnlki5|Aun@SUhB&+5+L$q+KpwG{vb C=nAp` diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index 21005b2..be85dc9 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -294,8 +294,31 @@ Form + + + + frmDatasourceEditor.vb + + + Form + + + frmStaticListEditor.vb + + + Form + + + + + + + + + + frmDocView.vb @@ -467,6 +490,15 @@ frmDesignerLayout.vb + + frmDatasourceEditor.vb + + + frmStaticListEditor.vb + + + frmStaticListEditor.vb + frmDocView.vb diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb b/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb index 181f559..b8c7d6d 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb +++ b/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmDesignerLayout Inherits DevExpress.XtraBars.Ribbon.RibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,7 +20,7 @@ Partial Class frmDesignerLayout 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDesignerLayout)) Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() @@ -33,9 +33,11 @@ Partial Class frmDesignerLayout Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.LayoutControlMain = New DevExpress.XtraLayout.LayoutControl() + Me.LayoutControlGroupMain = New DevExpress.XtraLayout.LayoutControlGroup() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() - Me.PropertyGridControl1 = New DevExpress.XtraVerticalGrid.PropertyGridControl() + Me.PropertyGridMain = New DevExpress.XtraVerticalGrid.PropertyGridControl() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() Me.ToolboxControlMain = New DevExpress.XtraToolbox.ToolboxControl() Me.ToolboxGroupMain = New DevExpress.XtraToolbox.ToolboxGroup() @@ -43,18 +45,16 @@ Partial Class frmDesignerLayout Me.ToolboxItemMemoedit = New DevExpress.XtraToolbox.ToolboxItem() Me.ToolboxItemDatepicker = New DevExpress.XtraToolbox.ToolboxItem() Me.ToolboxItemCheckbox = New DevExpress.XtraToolbox.ToolboxItem() - Me.LayoutControlMain = New DevExpress.XtraLayout.LayoutControl() - Me.LayoutControlGroupMain = New DevExpress.XtraLayout.LayoutControlGroup() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerControl1.SuspendLayout() + CType(Me.LayoutControlMain, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroupMain, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() Me.XtraTabPage1.SuspendLayout() - CType(Me.PropertyGridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PropertyGridMain, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPage2.SuspendLayout() - CType(Me.LayoutControlMain, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlGroupMain, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 @@ -62,7 +62,7 @@ Partial Class frmDesignerLayout Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarListItem1, Me.BarButtonItem1, Me.BarButtonItem2}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 4 + Me.RibbonControl1.MaxItemId = 5 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Size = New System.Drawing.Size(1196, 158) @@ -78,15 +78,19 @@ Partial Class frmDesignerLayout ' 'BarButtonItem1 ' - Me.BarButtonItem1.Caption = "BarButtonItem1" + Me.BarButtonItem1.Caption = "Layout anpassen" Me.BarButtonItem1.Id = 2 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem1.Name = "BarButtonItem1" + Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText ' 'BarButtonItem2 ' Me.BarButtonItem2.Caption = "Layout speichern" Me.BarButtonItem2.Id = 3 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem2.Name = "BarButtonItem2" + Me.BarButtonItem2.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText ' 'RibbonPage1 ' @@ -98,12 +102,12 @@ Partial Class frmDesignerLayout ' Me.RibbonPageGroup1.ItemLinks.Add(Me.BarListItem1) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "RibbonPageGroup1" ' 'RibbonPageGroup2 ' - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup2.Name = "RibbonPageGroup2" Me.RibbonPageGroup2.Text = "RibbonPageGroup2" ' @@ -132,6 +136,31 @@ Partial Class frmDesignerLayout Me.SplitContainerControl1.SplitterPosition = 818 Me.SplitContainerControl1.TabIndex = 8 ' + 'LayoutControlMain + ' + Me.LayoutControlMain.AllowDrop = True + Me.LayoutControlMain.BackColor = System.Drawing.Color.Transparent + Me.LayoutControlMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControlMain.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlMain.Name = "LayoutControlMain" + Me.LayoutControlMain.OptionsCustomizationForm.DefaultPage = DevExpress.XtraLayout.CustomizationPage.LayoutTreeView + Me.LayoutControlMain.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1143, 263, 650, 400) + Me.LayoutControlMain.OptionsCustomizationForm.ShowLoadButton = False + Me.LayoutControlMain.OptionsCustomizationForm.ShowPropertyGrid = True + Me.LayoutControlMain.OptionsCustomizationForm.ShowSaveButton = False + Me.LayoutControlMain.Root = Me.LayoutControlGroupMain + Me.LayoutControlMain.Size = New System.Drawing.Size(818, 440) + Me.LayoutControlMain.TabIndex = 3 + Me.LayoutControlMain.Text = "LayoutControl1" + ' + 'LayoutControlGroupMain + ' + Me.LayoutControlGroupMain.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroupMain.GroupBordersVisible = False + Me.LayoutControlGroupMain.Name = "Root" + Me.LayoutControlGroupMain.Size = New System.Drawing.Size(818, 440) + Me.LayoutControlGroupMain.TextVisible = False + ' 'XtraTabControl1 ' Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill @@ -144,26 +173,27 @@ Partial Class frmDesignerLayout ' 'XtraTabPage1 ' - Me.XtraTabPage1.Controls.Add(Me.PropertyGridControl1) + Me.XtraTabPage1.Controls.Add(Me.PropertyGridMain) Me.XtraTabPage1.Name = "XtraTabPage1" Me.XtraTabPage1.Size = New System.Drawing.Size(366, 415) - Me.XtraTabPage1.Text = "XtraTabPage1" + Me.XtraTabPage1.Text = "Eigenschaften" ' - 'PropertyGridControl1 + 'PropertyGridMain ' - Me.PropertyGridControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.PropertyGridControl1.Location = New System.Drawing.Point(0, 0) - Me.PropertyGridControl1.MenuManager = Me.RibbonControl1 - Me.PropertyGridControl1.Name = "PropertyGridControl1" - Me.PropertyGridControl1.Size = New System.Drawing.Size(366, 415) - Me.PropertyGridControl1.TabIndex = 0 + Me.PropertyGridMain.Cursor = System.Windows.Forms.Cursors.Hand + Me.PropertyGridMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.PropertyGridMain.Location = New System.Drawing.Point(0, 0) + Me.PropertyGridMain.MenuManager = Me.RibbonControl1 + Me.PropertyGridMain.Name = "PropertyGridMain" + Me.PropertyGridMain.Size = New System.Drawing.Size(366, 415) + Me.PropertyGridMain.TabIndex = 0 ' 'XtraTabPage2 ' Me.XtraTabPage2.Controls.Add(Me.ToolboxControlMain) Me.XtraTabPage2.Name = "XtraTabPage2" Me.XtraTabPage2.Size = New System.Drawing.Size(366, 415) - Me.XtraTabPage2.Text = "XtraTabPage2" + Me.XtraTabPage2.Text = "Controls" ' 'ToolboxControlMain ' @@ -196,7 +226,7 @@ Partial Class frmDesignerLayout Me.ToolboxItemTextbox.Caption = "Textbox" Me.ToolboxItemTextbox.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.TextBox Me.ToolboxItemTextbox.Name = "ToolboxItemTextbox" - Me.ToolboxItemTextbox.Tag = "Textbox" + Me.ToolboxItemTextbox.Tag = "TextBox" ' 'ToolboxItemMemoedit ' @@ -219,31 +249,6 @@ Partial Class frmDesignerLayout Me.ToolboxItemCheckbox.Name = "ToolboxItemCheckbox" Me.ToolboxItemCheckbox.Tag = "Checkbox" ' - 'LayoutControlMain - ' - Me.LayoutControlMain.AllowCustomization = False - Me.LayoutControlMain.AllowDrop = True - Me.LayoutControlMain.BackColor = System.Drawing.Color.Transparent - Me.LayoutControlMain.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControlMain.Location = New System.Drawing.Point(0, 0) - Me.LayoutControlMain.Name = "LayoutControlMain" - Me.LayoutControlMain.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(706, 255, 650, 400) - Me.LayoutControlMain.OptionsCustomizationForm.ShowLayoutTreeView = False - Me.LayoutControlMain.OptionsCustomizationForm.ShowLoadButton = False - Me.LayoutControlMain.OptionsCustomizationForm.ShowSaveButton = False - Me.LayoutControlMain.Root = Me.LayoutControlGroupMain - Me.LayoutControlMain.Size = New System.Drawing.Size(818, 440) - Me.LayoutControlMain.TabIndex = 3 - Me.LayoutControlMain.Text = "LayoutControl1" - ' - 'LayoutControlGroupMain - ' - Me.LayoutControlGroupMain.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] - Me.LayoutControlGroupMain.GroupBordersVisible = False - Me.LayoutControlGroupMain.Name = "Root" - Me.LayoutControlGroupMain.Size = New System.Drawing.Size(818, 440) - Me.LayoutControlGroupMain.TextVisible = False - ' 'frmDesignerLayout ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -259,13 +264,13 @@ Partial Class frmDesignerLayout CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.LayoutControlMain, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroupMain, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabPage1.ResumeLayout(False) - CType(Me.PropertyGridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PropertyGridMain, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPage2.ResumeLayout(False) - CType(Me.LayoutControlMain, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlGroupMain, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -288,7 +293,7 @@ Partial Class frmDesignerLayout Friend WithEvents ToolboxItemDatepicker As DevExpress.XtraToolbox.ToolboxItem Friend WithEvents ToolboxItemCheckbox As DevExpress.XtraToolbox.ToolboxItem Friend WithEvents BarListItem1 As DevExpress.XtraBars.BarListItem - Friend WithEvents PropertyGridControl1 As DevExpress.XtraVerticalGrid.PropertyGridControl + Friend WithEvents PropertyGridMain As DevExpress.XtraVerticalGrid.PropertyGridControl Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents LayoutControlMain As DevExpress.XtraLayout.LayoutControl diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout.resx b/app/DD_PM_WINDREAM/frmDesignerLayout.resx index a5fb450..c6386fb 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout.resx +++ b/app/DD_PM_WINDREAM/frmDesignerLayout.resx @@ -122,21 +122,68 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAADQDAAAC77u/ + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABgEAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iUmVwZWF0X0FsbF9JdGVtX0xhYmVsc19QaXZvdF9UYWJsZSIgc3R5bGU9 - ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3Mi - PgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLnN0MHtvcGFjaXR5 - OjAuNzU7fQo8L3N0eWxlPg0KICA8cGF0aCBkPSJNMjcsMkg1QzQuNCwyLDQsMi40LDQsM3YyNmMwLDAu - NiwwLjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjNDMjgsMi40LDI3LjYsMiwyNywyeiBNMjYsMjhI - NlY0aDIwVjI4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8ZyBjbGFzcz0ic3QwIj4NCiAgICA8cGF0aCBk - PSJNMTgsMTBoLTRWOGg0VjEweiBNMjQsOGgtNHYyaDRWOHogTTI0LDEyaC00djJoNFYxMnogTTE4LDEy - aC00djJoNFYxMnogTTE4LDE2aC00djJoNFYxNnogTTI0LDE2aC00djJoNFYxNiAgIHogTTI0LDIwaC00 - djJoNFYyMHogTTE4LDIwaC00djJoNFYyMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgPC9nPg0KICA8cGF0 - aCBkPSJNMTIsMTBIOFY4aDRWMTB6IE0xMiwxMkg4djJoNFYxMnogTTEyLDE2SDh2Mmg0VjE2eiBNMTIs - MjBIOHYyaDRWMjB6IiBjbGFzcz0iQmx1ZSIgLz4NCjwvc3ZnPgs= + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + Qmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9CgkuWWVsbG93e2ZpbGw6I0ZG + QjExNTt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iTG9hZENoYXJ0 + Ij4NCiAgICA8cGF0aCBkPSJNMjkuMywxOEg5LjZMNCwyOGgxOS44YzAuNSwwLDEuMS0wLjIsMS4zLTAu + Nmw0LjktOC45QzMwLjEsMTguMiwyOS44LDE4LDI5LjMsMTh6IiBjbGFzcz0iWWVsbG93IiAvPg0KICAg + IDxnIGNsYXNzPSJzdDEiPg0KICAgICAgPHBhdGggZD0iTTIzLDEyaC0yLjJjLTAuNCwwLjUtMC43LDEt + MC44LDEuNWMtMC4yLDAuOS0xLDEuNi0yLDEuNmMwLDAsMCwwLDAsMGMtMSwwLTEuOC0wLjctMS45LTEu + NyAgICBDMTYsMTIuOSwxNiwxMi40LDE2LDEyaC00VjljMC0wLjYtMC40LTEtMS0xSDNDMi40LDgsMiw4 + LjUsMiw5djE4YzAsMC4yLDAsMC4zLDAuMSwwLjRjMCwwLDAuMS0wLjEsMC4xLTAuMmw1LjUtMTAgICAg + QzgsMTYuNSw4LjcsMTYsOS41LDE2SDI0di0zQzI0LDEyLjUsMjMuNSwxMiwyMywxMnoiIGNsYXNzPSJZ + ZWxsb3ciIC8+DQogICAgPC9nPg0KICAgIDxwYXRoIGQ9Ik0zMiw2bC02LTZ2NGMtNC40LDAtOCwzLjYt + OCw4YzAsMC40LDAsMC44LDAuMSwxLjFDMTguNiwxMC4yLDIyLDgsMjYsOHY0TDMyLDZ6IiBjbGFzcz0i + R3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMEDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3 + RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm + aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iRWRpdFF1ZXJ5Ij4NCiAgICA8 + ZyBjbGFzcz0ic3QxIj4NCiAgICAgIDxwYXRoIGQ9Ik0wLDI0aDh2LTZIMFYyNHogTTIwLDhoOFYyaC04 + Vjh6IE0xOCwyMS4yVjE4aC04djZoNS4yTDE4LDIxLjJ6IE0yMCwxMGg4djEuMkwyMy4yLDE2SDIwVjEw + eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cGF0aCBkPSJNMjksMjFsLTgsOGwtNC00 + bDgtOEwyOSwyMXogTTMwLDIwbDEuNy0xLjdjMC40LTAuNCwwLjQtMSwwLTEuM0wyOSwxNC4zYy0wLjQt + MC40LTEtMC40LTEuMywwTDI2LDE2TDMwLDIweiAgICBNMTYsMjZ2NGg0TDE2LDI2eiIgY2xhc3M9IkJs + dWUiIC8+DQogICAgPHBhdGggZD0iTTgsMTBIMHY2aDhWMTB6IE04LDJIMHY2aDhWMnogTTE4LDJoLTh2 + Nmg4VjJ6IE0xOCwxMGgtOHY2aDhWMTB6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOsCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iRXhwb3J0Ij4NCiAgICA8cGF0aCBkPSJNMTAsMTJINlY2aDRWMTJ6IE0yMiwxMnY2 + djljMCwwLjYtMC40LDEtMSwxSDFjLTAuNiwwLTEtMC40LTEtMVY3YzAtMC42LDAuNC0xLDEtMWgzdjho + MTR2LTJIMjJ6IE0xOCwxOEg0ICAgdjZoMTRWMTh6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBvbHln + b24gcG9pbnRzPSIxNiwxMCAyNCwxMCAyNCwxNCAzMiw4IDI0LDIgMjQsNiAxNiw2ICAiIGNsYXNzPSJH + cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout.vb b/app/DD_PM_WINDREAM/frmDesignerLayout.vb index c80ddbb..ec0484d 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout.vb +++ b/app/DD_PM_WINDREAM/frmDesignerLayout.vb @@ -1,6 +1,8 @@ Imports System.IO Imports System.Text.Encoding +Imports DD_PM_WINDREAM.Controls Imports DevExpress.XtraBars +Imports DevExpress.XtraEditors Imports DevExpress.XtraLayout Imports DevExpress.XtraLayout.Customization Imports DevExpress.XtraLayout.Dragging @@ -16,6 +18,7 @@ Public Class frmDesignerLayout Private _DragItem As BaseLayoutItem Private _Window As DragFrameWindow Private _DragController As LayoutItemDragController = Nothing + Private _LayoutSerializer As LayoutControlSerializer = Nothing Protected ReadOnly Property DragFrameWindow As DragFrameWindow Get @@ -47,11 +50,14 @@ Public Class frmDesignerLayout Dim oHitInfo As BaseLayoutItemHitInfo = LayoutControlMain.CalcHitInfo(oPosition) Dim oLayoutControl As LayoutControlItem = DirectCast(_DragItem, LayoutControlItem) Dim oControlName As String = oLayoutControl.Tag & Guid.NewGuid().ToString().GetHashCode().ToString("x") - Dim oControl As Control = _ControlLoader.CreateLayoutControl(oLayoutControl.Tag, oControlName, 0) + Dim oControl As BaseEdit = _ControlLoader.CreateLayoutControl(oLayoutControl.Tag, oControlName, 0) If oLayoutControl IsNot Nothing Then HideDragHelper() oLayoutControl.Control = oControl + oLayoutControl.Text = oControlName + oLayoutControl.Name = "Container-" & oControlName + If (_DragController IsNot Nothing AndAlso _DragItem IsNot Nothing) Then If (_DragItem.Owner Is Nothing OrElse _DragItem.Parent Is Nothing) Then @@ -62,7 +68,7 @@ Public Class frmDesignerLayout Focus() End If HideDragHelper() - '_DragItem = Nothing + _DragItem = Nothing End If End Sub @@ -96,6 +102,7 @@ Public Class frmDesignerLayout Private Sub frmDesignerLayout_Load(sender As Object, e As EventArgs) Handles Me.Load Try _ControlLoader = New ControlLoader(LOGCONFIG, LayoutControlGroupMain) + _LayoutSerializer = New LayoutControlSerializer(LOGCONFIG) Dim oSQL = "Select * from TBIDB_LAYOUT_CONFIG" FormsDatatable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) @@ -114,24 +121,79 @@ Public Class frmDesignerLayout End Sub Private Sub Item_Click(sender As Object, e As ItemClickEventArgs) - SelectedLayoutId = e.Item.Tag - Dim oRow As DataRow = FormsDatatable.Select($"GUID = {SelectedLayoutId}").First() - 'Dim oXml = oRow.Item("XML_CONTENT") - Dim b As Byte() = System.Convert.FromBase64String(oRow.Item("XML_CONTENT")) - - Using oStream As New MemoryStream(b, False) - LayoutControlMain.RestoreLayoutFromStream(oStream) - End Using + Try + SelectedLayoutId = e.Item.Tag + Dim oRow As DataRow = FormsDatatable.Select($"GUID = {SelectedLayoutId}").First() + 'Dim oXml = oRow.Item("XML_CONTENT") + + Dim oLayout As Byte() = System.Convert.FromBase64String(oRow.Item("XML_LAYOUT")) + Dim oControls As Byte() = System.Convert.FromBase64String(oRow.Item("XML_CONTENT")) + + Using oLayoutStream As New MemoryStream(oLayout, False) + Using oControlStream As New MemoryStream(oControls, False) + _LayoutSerializer.RestoreLayoutExFromStream(LayoutControlMain, oLayoutStream, oControlStream) + End Using + End Using + Catch ex As Exception + MsgBox("Unexpected Error in FormSave:" & ex.Message, MsgBoxStyle.Critical) + End Try End Sub Private Sub BarButtonItem2_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem2.ItemClick - Using oStream As New MemoryStream() - LayoutControlMain.SaveLayoutToStream(oStream) - Dim oBase64 = System.Convert.ToBase64String(oStream.ToArray()) - 'Dim oXml As String = UTF8.GetString(oStream.ToArray()) - Dim oSql As String = $"UPDATE TBIDB_LAYOUT_CONFIG SET XML_CONTENT = '{oBase64}' WHERE GUID = {SelectedLayoutId}" + Using oLayoutStream As New MemoryStream() + Using oControlStream As New MemoryStream() + _LayoutSerializer.SaveLayoutExToStream(LayoutControlMain, oLayoutStream, oControlStream) + + Dim oLayout = System.Convert.ToBase64String(oLayoutStream.ToArray()) + Dim oControls = System.Convert.ToBase64String(oControlStream.ToArray()) - ClassDatabase.Execute_non_Query_ConStr(oSql, CONNECTION_STRING_IDB) + Dim oSql As String = $"UPDATE TBIDB_LAYOUT_CONFIG SET XML_CONTENT = '{oControls}', XML_LAYOUT = '{oLayout}', CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {SelectedLayoutId}" + + ClassDatabase.Execute_non_Query_ConStr(oSql, CONNECTION_STRING_IDB) + End Using End Using End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem1.ItemClick + LayoutControlMain.ShowCustomizationForm() + End Sub + + Private Sub LayoutControlMain_ItemSelectionChanged(sender As Object, e As EventArgs) Handles LayoutControlMain.ItemSelectionChanged + ' only layout control items have properties + If TypeOf sender IsNot LayoutControlItem Then + Exit Sub + End If + + Dim oLayoutItem As LayoutControlItem = DirectCast(sender, LayoutControlItem) + Dim oSelectedControl As BaseEdit = oLayoutItem.Control + Dim oMetadata As New Metadata + + ' Don't load properties for layout items like splitters, separators, etc. + If oLayoutItem.Control Is Nothing Then + Exit Sub + End If + + Select Case oSelectedControl.GetType + Case GetType(MemoEdit) + PropertyGridMain.SelectedObject = New Properties.MemoeditProperties() With { + .Id = 0, + .Name = oSelectedControl.Name + } + Case GetType(TextEdit) + PropertyGridMain.SelectedObject = New Properties.TextboxProperties() With { + .Id = 0, + .Name = oSelectedControl.Name + } + Case GetType(DateEdit) + PropertyGridMain.SelectedObject = New Properties.DatepickerProperties() With { + .Id = 0, + .Name = oSelectedControl.Name + } + Case GetType(CheckEdit) + PropertyGridMain.SelectedObject = New Properties.CheckboxProperties() With { + .Id = 0, + .Name = oSelectedControl.Name + } + End Select + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/DatasourceEditor.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/DatasourceEditor.vb new file mode 100644 index 0000000..9d41137 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/DatasourceEditor.vb @@ -0,0 +1,48 @@ +Imports System.ComponentModel +'Imports System.ComponentModel.Design +Imports System.Drawing.Design +'Imports System.Windows.Forms +Imports System.Windows.Forms.Design + +Namespace Controls.Editors + Public Class DatasourceEditor + Inherits UITypeEditor + + Public Overrides Function GetEditStyle(context As ITypeDescriptorContext) As UITypeEditorEditStyle + Return UITypeEditorEditStyle.Modal + End Function + + Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object + Dim oService As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService) + Dim oDatasource As DatasourceType = DirectCast(value, DatasourceType) + + If oService IsNot Nothing AndAlso oDatasource IsNot Nothing Then + Using oForm As New frmDatasourceEditor() + oForm.Value = oDatasource + If oService.ShowDialog(oForm) = DialogResult.OK Then + + value = oForm.Value + End If + End Using + End If + + Return value + End Function + End Class + + Public Class DatasourceTypeConverter + Inherits TypeConverter + + Public Overrides Function ToString() As String + Return MyBase.ToString() + End Function + + ' Diese Funktion gibt den String zurück, der im PropertyGrid für den Benutzer sichtbar ist, kann ruhig etwas hübscher sein als foo;bar;baz + Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As Globalization.CultureInfo, value As Object, destinationType As Type) As Object + Return "Datasource" + End Function + End Class + +End Namespace + + diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/DatasourceType.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/DatasourceType.vb new file mode 100644 index 0000000..90849a3 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/DatasourceType.vb @@ -0,0 +1,23 @@ +Imports System.ComponentModel +Imports System.Drawing.Design +Imports DigitalData.GUIs.ClientSuite.Controls.Editors + +Namespace Controls.Editors + + + Public Class DatasourceType + Public Property StaticList As New List(Of String) + Public Property SQLCommand As String = String.Empty + + Public Sub New() + End Sub + + Public Sub New(Values As List(Of String)) + _StaticList = Values + End Sub + + Public Sub New(SQLCommand As String) + _SQLCommand = SQLCommand + End Sub + End Class +End Namespace diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/StaticListEditor.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/StaticListEditor.vb new file mode 100644 index 0000000..bf53f43 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/StaticListEditor.vb @@ -0,0 +1,72 @@ +Imports System.ComponentModel +'Imports System.ComponentModel.Design +Imports System.Drawing.Design +'Imports System.Windows.Forms +Imports System.Windows.Forms.Design + +Public Class StaticListEditor + Inherits UITypeEditor + + Public Overrides Function GetEditStyle(context As ITypeDescriptorContext) As UITypeEditorEditStyle + Return UITypeEditorEditStyle.Modal + End Function + + Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object + Dim oService As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService) + Dim oStaticListString As String = DirectCast(value, StaticList).Value + + If oService IsNot Nothing AndAlso oStaticListString IsNot Nothing Then + Using oForm As New frmStaticListEditor() + oStaticListString = oStaticListString.Replace(";", vbNewLine) ' Semikolon zu vbNewLine + oForm.Value = oStaticListString + If oService.ShowDialog(oForm) = DialogResult.OK Then + Dim oString As String = oForm.Value.Replace(vbNewLine, ";") ' vbNewLine zu Semikolon + Dim oStaticList As New StaticList(oString) + value = oStaticList + End If + End Using + End If + + Return value + End Function +End Class + + + +Public Class StaticList + + Public Sub New() + _Value = String.Empty + End Sub + + Public Sub New(Value As String) + _Value = Value + End Sub + + Public Property Value As String +End Class + +Public Class StaticListTypeConverter + Inherits TypeConverter + + + Public Overrides Function ToString() As String + Return MyBase.ToString() + End Function + + ' Diese Funktion gibt den String zurück, der im PropertyGrid für den Benutzer sichtbar ist, kann ruhig etwas hübscher sein als foo;bar;baz + Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As Globalization.CultureInfo, value As Object, destinationType As Type) As Object + Dim oStaticListString = String.Empty + + If TypeOf value Is StaticList Then + Dim oStaticList As StaticList = DirectCast(value, StaticList) + oStaticListString = oStaticList.Value + ElseIf TypeOf value Is String Then + oStaticListString = value + Else + MsgBox("Error in Converting StaticList value") + End If + + Return oStaticListString.Replace(";", ", ") + End Function +End Class diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.Designer.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.Designer.vb new file mode 100644 index 0000000..bdc5603 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.Designer.vb @@ -0,0 +1,63 @@ + _ +Partial Class frmDatasourceEditor + Inherits DevExpress.XtraEditors.XtraForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.PanelEditor = New DevExpress.XtraEditors.PanelControl() + Me.btnSave = New System.Windows.Forms.Button() + CType(Me.PanelEditor, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'PanelEditor + ' + Me.PanelEditor.Dock = System.Windows.Forms.DockStyle.Top + Me.PanelEditor.Location = New System.Drawing.Point(0, 0) + Me.PanelEditor.Name = "PanelEditor" + Me.PanelEditor.Size = New System.Drawing.Size(800, 394) + Me.PanelEditor.TabIndex = 0 + ' + 'btnSave + ' + Me.btnSave.Location = New System.Drawing.Point(713, 415) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(75, 23) + Me.btnSave.TabIndex = 1 + Me.btnSave.Text = "Speichern" + Me.btnSave.UseVisualStyleBackColor = True + ' + 'frmDatasourceEditor + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.btnSave) + Me.Controls.Add(Me.PanelEditor) + Me.Name = "frmDatasourceEditor" + Me.Text = "frmDatasourceEditor" + CType(Me.PanelEditor, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents PanelEditor As DevExpress.XtraEditors.PanelControl + Friend WithEvents btnSave As Button +End Class diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.resx b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.vb new file mode 100644 index 0000000..6fd169e --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.vb @@ -0,0 +1,54 @@ +Imports DD_PM_WINDREAM.Controls.Editors +'Imports ScintillaNET + +Public Class frmDatasourceEditor + Public Value As DatasourceType + + 'Private _Editor As Scintilla + Private _Editor As TextBox + + Private Sub frmDatasourceEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + + '_Editor = New Scintilla() With { + ' .Dock = DockStyle.Fill, + ' .BorderStyle = BorderStyle.None, + ' .Text = Value.SQLCommand + '} + + '_Editor.StyleResetDefault() + 'With _Editor.Styles(Style.Default) + ' .Font = "Consolas" + ' .Size = 10 + 'End With + '_Editor.StyleClearAll() + '_Editor.Lexer = Lexer.Sql + + '_Editor.Styles(Style.LineNumber).ForeColor = Color.FromArgb(255, 128, 128, 128) + '_Editor.Styles(Style.LineNumber).BackColor = Color.FromArgb(255, 228, 228, 228) + '_Editor.Styles(Style.Sql.Comment).ForeColor = Color.Green + '_Editor.Styles(Style.Sql.CommentLine).ForeColor = Color.Green + '_Editor.Styles(Style.Sql.CommentLineDoc).ForeColor = Color.Green + '_Editor.Styles(Style.Sql.Number).ForeColor = Color.Maroon + '_Editor.Styles(Style.Sql.Word).ForeColor = Color.Blue + '_Editor.Styles(Style.Sql.Word2).ForeColor = Color.Fuchsia + '_Editor.Styles(Style.Sql.User1).ForeColor = Color.Gray + '_Editor.Styles(Style.Sql.User2).ForeColor = Color.FromArgb(255, 0, 128, 192) + '_Editor.Styles(Style.Sql.String).ForeColor = Color.Red + '_Editor.Styles(Style.Sql.Character).ForeColor = Color.Red + '_Editor.Styles(Style.Sql.[Operator]).ForeColor = Color.Black + '_Editor.SetKeywords(0, "add alter as authorization backup begin bigint binary bit break browse bulk by cascade case catch check checkpoint close clustered column commit compute constraint containstable continue create current cursor cursor database date datetime datetime2 datetimeoffset dbcc deallocate decimal declare default delete deny desc disk distinct distributed double drop dump else end errlvl escape except exec execute exit external fetch file fillfactor float for foreign freetext freetexttable from full function goto grant group having hierarchyid holdlock identity identity_insert identitycol if image index insert int intersect into key kill lineno load merge money national nchar nocheck nocount nolock nonclustered ntext numeric nvarchar of off offsets on open opendatasource openquery openrowset openxml option order over percent plan precision primary print proc procedure public raiserror read readtext real reconfigure references replication restore restrict return revert revoke rollback rowcount rowguidcol rule save schema securityaudit select set setuser shutdown smalldatetime smallint smallmoney sql_variant statistics table table tablesample text textsize then time timestamp tinyint to top tran transaction trigger truncate try union unique uniqueidentifier update updatetext use user values varbinary varchar varying view waitfor when where while with writetext xml go ") + '_Editor.SetKeywords(1, "ascii cast char charindex ceiling coalesce collate contains convert current_date current_time current_timestamp current_user floor isnull max min nullif object_id session_user substring system_user tsequal ") + '_Editor.SetKeywords(4, "all and any between cross exists in inner is join left like not null or outer pivot right some unpivot ( ) * ") + '_Editor.SetKeywords(5, "sys objects sysobjects ") + + 'PanelEditor.Controls.Add(_Editor) + _Editor = New TextBox With {.Multiline = True} + + PanelEditor.Controls.Add(_Editor) + End Sub + + Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click + Value.SQLCommand = _Editor.Text + End Sub +End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.Designer.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.Designer.vb new file mode 100644 index 0000000..e9eb256 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.Designer.vb @@ -0,0 +1,81 @@ + _ +Partial Class frmStaticListEditor + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStaticListEditor)) + Me.txtValue = New System.Windows.Forms.TextBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'txtValue + ' + resources.ApplyResources(Me.txtValue, "txtValue") + Me.txtValue.Name = "txtValue" + ' + 'Button1 + ' + resources.ApplyResources(Me.Button1, "Button1") + Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK + Me.Button1.Name = "Button1" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Label1 + ' + resources.ApplyResources(Me.Label1, "Label1") + Me.Label1.Name = "Label1" + ' + 'Label2 + ' + resources.ApplyResources(Me.Label2, "Label2") + Me.Label2.Name = "Label2" + ' + 'Button2 + ' + resources.ApplyResources(Me.Button2, "Button2") + Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Button2.Name = "Button2" + Me.Button2.UseVisualStyleBackColor = True + ' + 'frmStaticListEditor + ' + resources.ApplyResources(Me, "$this") + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.txtValue) + Me.Name = "frmStaticListEditor" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents txtValue As System.Windows.Forms.TextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Button2 As System.Windows.Forms.Button +End Class diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.en-US.resx b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.en-US.resx new file mode 100644 index 0000000..9250f51 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.en-US.resx @@ -0,0 +1,136 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Save + + + + 159, 13 + + + Enter Listelements (One per line) + + + Cancel + + + Edit Static List + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.resx b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.resx new file mode 100644 index 0000000..d298956 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.resx @@ -0,0 +1,279 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + 3 + + + 1 + + + + 6, 13 + + + Listenelemente eingeben (Ein Element pro Zeile) + + + 12, 235 + + + Statische Liste bearbeiten + + + + Bottom, Right + + + 234, 13 + + + Top, Bottom, Left, Right + + + 75, 23 + + + Button2 + + + True + + + Bottom, Left + + + 12, 227 + + + 3 + + + System.Windows.Forms.Form, 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 + + + True + + + 0, 13 + + + 431, 230 + + + 4 + + + $this + + + $this + + + 75, 23 + + + 0, 0 + + + $this + + + $this + + + 1 + + + 0 + + + CenterScreen + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 518, 265 + + + 516, 224 + + + Label1 + + + Label2 + + + 2 + + + 4 + + + 0 + + + txtValue + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Button1 + + + Speichern + + + True + + + 350, 230 + + + 2 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Bottom, Right + + + frmStaticListEditor + + + Abbrechen + + + True + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.vb new file mode 100644 index 0000000..4ca1596 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmStaticListEditor.vb @@ -0,0 +1,19 @@ +Public Class frmStaticListEditor + + Public Property Value() As String + Get + Return txtValue.Text + End Get + Set(value As String) + txtValue.Text = value + End Set + End Property + + Private Sub frmStaticListEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'noop + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + + End Sub +End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Loader.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Loader.vb index fe7ab40..a72e68b 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout/Loader.vb +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Loader.vb @@ -4,14 +4,14 @@ Imports DigitalData.Modules.Logging Public Class ControlLoader - Public Const CONTROL_TEXTEDIT = "TextBox" - Public Const CONTROL_MEMOEDIT = "Memoedit" - Public Const CONTROL_COMBOEDIT = "Combobox" - Public Const CONTROL_CHECKEDIT = "Checkbox" - Public Const CONTROL_RADIOEDIT = "Radiobutton" - Public Const CONTROL_DATEEDIT = "Datepicker" - - Private _LayoutControlGroup As LayoutControlGroup + Public Const CONTROL_TEXTEDIT = "TextBox" + Public Const CONTROL_MEMOEDIT = "Memoedit" + Public Const CONTROL_COMBOEDIT = "Combobox" + Public Const CONTROL_CHECKEDIT = "Checkbox" + Public Const CONTROL_RADIOEDIT = "Radiobutton" + Public Const CONTROL_DATEEDIT = "Datepicker" + + Private _LayoutControlGroup As LayoutControlGroup Private _LayoutControls As List(Of BaseEdit) Private _LogConfig As LogConfig Private _LOgger As Logger @@ -32,57 +32,57 @@ Public Class ControlLoader End Sub Public Sub AddControl(Name As String, Value As String, LayoutControlGroup As LayoutControlGroup) - Dim oTextEdit As New SimpleLabelItem() With { - .Name = Name, - .Text = Name & " - " & Value - } - - LayoutControlGroup.AddItem(oTextEdit) - End Sub - Public Sub AddControl(Name As String, Value As String) - AddControl(Name, Value, _LayoutControlGroup) - End Sub - - Public Sub AddSeparator(LayoutControlGroup As LayoutControlGroup) - Dim oSeparator = New SimpleSeparator() - - LayoutControlGroup.AddItem(oSeparator) - End Sub - Public Sub AddSeparator() - AddSeparator(_LayoutControlGroup) - End Sub - - Public Sub LoadControls(Datatable As DataTable, LayoutControlGroup As LayoutControlGroup) - For Each oRow As DataRow In Datatable.Rows - Dim oCaption As String = oRow.Item("COLNAME") - Dim oControlType As String = oRow.Item("CTRLTYPE") - Dim oControlId As Int64 = oRow.Item("RECORD_ID") - Dim oEditor As BaseEdit = CreateLayoutControl(oControlType, oControlId, oControlId) - - If oEditor Is Nothing Then - Continue For - End If - - oEditor.Tag = New Metadata() With { - .Id = oControlId, - .Type = oControlType, - .Caption = oCaption - } - - LayoutControls.Add(oEditor) - LayoutControlGroup.AddItem(oCaption, oEditor) - Next - - LayoutControlGroup.AddItem(New EmptySpaceItem()) - End Sub - Public Sub LoadControls(Datatable As DataTable) - LoadControls(Datatable, _LayoutControlGroup) - End Sub - - Public Function CreateLayoutControl(Type As String, Name As String, Id As Int64) - Dim oEditor As BaseEdit = Nothing - - LOGGER.Debug("Create new Control of type {0} with name {1}", Type, Name) + Dim oTextEdit As New SimpleLabelItem() With { + .Name = Name, + .Text = Name & " - " & Value + } + + LayoutControlGroup.AddItem(oTextEdit) + End Sub + Public Sub AddControl(Name As String, Value As String) + AddControl(Name, Value, _LayoutControlGroup) + End Sub + + Public Sub AddSeparator(LayoutControlGroup As LayoutControlGroup) + Dim oSeparator = New SimpleSeparator() + + LayoutControlGroup.AddItem(oSeparator) + End Sub + Public Sub AddSeparator() + AddSeparator(_LayoutControlGroup) + End Sub + + Public Sub LoadControls(Datatable As DataTable, LayoutControlGroup As LayoutControlGroup) + For Each oRow As DataRow In Datatable.Rows + Dim oCaption As String = oRow.Item("COLNAME") + Dim oControlType As String = oRow.Item("CTRLTYPE") + Dim oControlId As Int64 = oRow.Item("RECORD_ID") + Dim oEditor As BaseEdit = CreateLayoutControl(oControlType, oControlId, oControlId) + + If oEditor Is Nothing Then + Continue For + End If + + oEditor.Tag = New Metadata() With { + .Id = oControlId, + .Type = oControlType, + .Caption = oCaption + } + + LayoutControls.Add(oEditor) + LayoutControlGroup.AddItem(oCaption, oEditor) + Next + + LayoutControlGroup.AddItem(New EmptySpaceItem()) + End Sub + Public Sub LoadControls(Datatable As DataTable) + LoadControls(Datatable, _LayoutControlGroup) + End Sub + + Public Function CreateLayoutControl(Type As String, Name As String, Id As Int64) + Dim oEditor As BaseEdit = Nothing + + LOGGER.Debug("Create new Control of type {0} with name {1}", Type, Name) Select Case Type Case CONTROL_TEXTEDIT @@ -102,8 +102,8 @@ Public Class ControlLoader End Select Return oEditor - End Function - End Class + End Function +End Class diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Localization.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Localization.vb new file mode 100644 index 0000000..48fc062 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Localization.vb @@ -0,0 +1,31 @@ +Imports System.ComponentModel + +Namespace Controls + Public Class Localization + Private Shared Function Lookup(key As String) + Try + 'Return My.Resources.ControlProperties.ResourceManager.GetString(key) + Return key + Catch ex As Exception + Return key + End Try + End Function + + Public Class LocalizedDescriptionAttribute + Inherits DescriptionAttribute + + Public Sub New(key As String) + MyBase.New(Lookup(key)) + End Sub + End Class + + Public Class LocalizedCategoryAttribute + Inherits CategoryAttribute + + Public Sub New(key As String) + MyBase.New(Lookup(key)) + End Sub + End Class + End Class +End Namespace + diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/BaseProperties.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/BaseProperties.vb new file mode 100644 index 0000000..ad3bd59 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/BaseProperties.vb @@ -0,0 +1,17 @@ +Imports System.ComponentModel +Imports DD_PM_WINDREAM.Controls.Localization + +Namespace Controls.Properties + Public MustInherit Class BaseProperties + + + + <[ReadOnly](True)> + Public Property Id As Integer + + + + Public Property Name As String + End Class +End Namespace + diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/CheckboxProperties.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/CheckboxProperties.vb new file mode 100644 index 0000000..c2512d0 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/CheckboxProperties.vb @@ -0,0 +1,7 @@ +Namespace Controls.Properties + Public Class CheckboxProperties + Inherits BaseProperties + End Class +End Namespace + + diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/ComboboxProperties.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/ComboboxProperties.vb new file mode 100644 index 0000000..266a371 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/ComboboxProperties.vb @@ -0,0 +1,14 @@ +Imports System.ComponentModel +Imports DD_PM_WINDREAM.Controls.Editors +Imports DD_PM_WINDREAM.Controls.Localization + +Namespace Controls.Properties + Public Class ComboboxProperties + Inherits BaseProperties + + + + Public Property Datasource As DatasourceType + End Class +End Namespace + diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/DatepickerProperties.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/DatepickerProperties.vb new file mode 100644 index 0000000..4b3213a --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/DatepickerProperties.vb @@ -0,0 +1,6 @@ +Namespace Controls.Properties + Public Class DatepickerProperties + Inherits BaseProperties + End Class + +End Namespace \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/MemoeditProperties.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/MemoeditProperties.vb new file mode 100644 index 0000000..14c155d --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/MemoeditProperties.vb @@ -0,0 +1,7 @@ +Namespace Controls.Properties + Public Class MemoeditProperties + Inherits BaseProperties + End Class +End Namespace + + diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/TextboxProperties.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/TextboxProperties.vb new file mode 100644 index 0000000..0dd0922 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/TextboxProperties.vb @@ -0,0 +1,7 @@ +Namespace Controls.Properties + Public Class TextboxProperties + Inherits BaseProperties + End Class +End Namespace + + diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Serializer.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Serializer.vb new file mode 100644 index 0000000..9af7f67 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Serializer.vb @@ -0,0 +1,297 @@ +Imports System.ComponentModel +Imports DevExpress.XtraEditors +Imports DevExpress.Utils.Serializing +Imports DevExpress.XtraLayout +Imports DevExpress.Utils.Serializing.Helpers +Imports System.IO +Imports DigitalData.Modules.Logging + +Public Class LayoutControlSerializer + Private appName As String = System.Reflection.Assembly.GetExecutingAssembly().FullName + Private serializer As XmlXtraSerializer = New MyXmlXtraSerializer() + Private LogConfig As LogConfig + Private Logger As Logger + + Public Sub New(LogConfig As LogConfig) + Me.LogConfig = LogConfig + Logger = LogConfig.GetLogger + End Sub + + 'Public Sub SaveLayoutExToXml(ByVal layoutControl As LayoutControl, ByVal filePath As String) + ' Try + ' Dim objects As New ObjectInfoCollection() + ' For Each ctrl As Control In layoutControl.Controls + ' If layoutControl.GetItemByControl(ctrl) IsNot Nothing Then + ' objects.Collection.Add(New ObjectInfo(ctrl)) + ' End If + ' Next ctrl + ' Dim filePathForControls As String = filePath.Replace(".xml", "Controls.xml") + ' layoutControl.SaveLayoutToXml(filePath) + ' serializer.SerializeObject(objects, filePathForControls, appName) + ' Catch ex As Exception + ' Logger.Error(ex) + ' End Try + 'End Sub + + Public Sub SaveLayoutExToStream(ByVal LayoutControl As LayoutControl, ByVal LayoutStream As Stream, ByVal ControlStream As Stream) + Try + Dim objects As New ObjectInfoCollection() + For Each ctrl As Control In LayoutControl.Controls + If LayoutControl.GetItemByControl(ctrl) IsNot Nothing Then + objects.Collection.Add(New ObjectInfo(ctrl)) + End If + Next ctrl + LayoutControl.SaveLayoutToStream(LayoutStream) + serializer.SerializeObject(objects, ControlStream, appName) + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + + 'Public Sub RestoreLayoutExFromXml(ByVal layoutControl As LayoutControl, ByVal filePath As String) + ' Try + ' Dim objects As New ObjectInfoCollection() + ' Dim filePathForControls As String = filePath.Replace(".xml", "Controls.xml") + ' serializer.DeserializeObject(objects, filePathForControls, appName) + ' For Each info As ObjectInfo In objects.Collection + ' Dim ctrl As Control = TryCast(info.SerializableObject, Control) + ' If ctrl IsNot Nothing Then + ' Dim controls() As Control = layoutControl.Controls.Find(ctrl.Name, False) + ' If controls.Length > 0 Then + ' layoutControl.Controls.Remove(controls(0)) + ' End If + ' layoutControl.Controls.Add(ctrl) + ' End If + ' Next info + ' layoutControl.RestoreLayoutFromXml(filePath) + ' Catch ex As Exception + ' Logger.Error(ex) + ' End Try + 'End Sub + + Public Sub RestoreLayoutExFromStream(ByVal layoutControl As LayoutControl, ByVal LayoutStream As Stream, ByVal ControlStream As Stream) + Try + Dim objects As New ObjectInfoCollection() + serializer.DeserializeObject(objects, ControlStream, appName) + For Each info As ObjectInfo In objects.Collection + Dim ctrl As Control = TryCast(info.SerializableObject, Control) + If ctrl IsNot Nothing Then + Dim controls() As Control = layoutControl.Controls.Find(ctrl.Name, False) + If controls.Length > 0 Then + layoutControl.Controls.Remove(controls(0)) + End If + layoutControl.Controls.Add(ctrl) + End If + Next info + layoutControl.RestoreLayoutFromStream(LayoutStream) + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub +End Class + +Public Class MyXmlXtraSerializer + Inherits XmlXtraSerializer + + Public Sub New() + End Sub + + Protected Overrides Function CreateSerializeHelper(ByVal rootObj As Object, ByVal useRootObj As Boolean) As SerializeHelper + Return If(useRootObj, New MySerializeHelper(rootObj), New MySerializeHelper()) + End Function + + Protected Overrides Function CreateDeserializeHelper(ByVal rootObj As Object, ByVal useRootObj As Boolean) As DeserializeHelper + Return If(useRootObj, New MyDeserializeHelper(rootObj), New MyDeserializeHelper()) + End Function + +End Class + +Public Class ObjectInfoCollection + Implements IXtraSupportDeserializeCollectionItem + + Public Sub New() + _Collection = New List(Of ObjectInfo)() + End Sub + + ' Fields... + Private _Collection As List(Of ObjectInfo) + + + Public Property Collection() As List(Of ObjectInfo) + Get + Return _Collection + End Get + Set(ByVal value As List(Of ObjectInfo)) + _Collection = value + End Set + End Property + + Public Function CreateCollectionItem(ByVal propertyName As String, ByVal e As XtraItemEventArgs) As Object Implements IXtraSupportDeserializeCollectionItem.CreateCollectionItem + Dim info As New ObjectInfo() + Collection.Add(info) + Return info + End Function + + Public Sub SetIndexCollectionItem(ByVal propertyName As String, ByVal e As XtraSetItemIndexEventArgs) Implements IXtraSupportDeserializeCollectionItem.SetIndexCollectionItem + End Sub +End Class + +Public Class ObjectInfo + Public Sub New(ByVal serializableObject As Object) + Me.SerializableObject = serializableObject + End Sub + + Public Sub New() + End Sub + + + ' Fields... + Private _type As String + Private _SerializableObject As Object + + + Public Property Type1() As String + Get + Return _type + End Get + Set(ByVal value As String) + _type = value + Try + If _SerializableObject Is Nothing Then + Dim index As Integer = _type.LastIndexOf("."c) + Dim [nameSpace] = _type.Substring(0, index) + Dim type = System.Type.GetType(_type & ", " & [nameSpace]) + _SerializableObject = Activator.CreateInstance(type) + End If + Catch + End Try + End Set + End Property + + + Public Property SerializableObject() As Object + Get + Return _SerializableObject + End Get + Set(ByVal value As Object) + _SerializableObject = value + _type = _SerializableObject.GetType().ToString() + End Set + End Property + + + Public Property SerializableObjectName() As String + Get + Dim ctrl As Control = TryCast(SerializableObject, Control) + If ctrl IsNot Nothing Then + Return ctrl.Name + End If + Return String.Empty + End Get + Set(ByVal value As String) + Dim ctrl As Control = TryCast(SerializableObject, Control) + If ctrl IsNot Nothing Then + ctrl.Name = value + End If + End Set + End Property +End Class + +Public Class MySerializeHelper + Inherits SerializeHelper + + Public Sub New() + End Sub + + Public Sub New(ByVal rootObject As Object) + MyBase.New(rootObject) + End Sub + + Public Sub New(ByVal rootObject As Object, ByVal context As SerializationContext) + MyBase.New(rootObject, context) + End Sub + + Protected Overrides Sub SerializeProperty(ByVal store As XtraPropertyInfoCollection, ByVal obj As Object, ByVal pair As SerializablePropertyDescriptorPair, ByVal parentFlags As XtraSerializationFlags, ByVal options As DevExpress.Utils.OptionsLayoutBase) + Dim name = pair.Property.Name + + If name = "Tag" Then + Console.WriteLine() + End If + + Dim prop As PropertyDescriptor = pair.Property + Dim attr As XtraSerializableProperty = pair.Attribute + If attr Is Nothing AndAlso prop.IsBrowsable AndAlso prop.ShouldSerializeValue(obj) Then + If prop.PropertyType IsNot GetType(String) AndAlso prop.PropertyType.IsClass Then + pair = New SerializablePropertyDescriptorPair(prop, New XtraSerializableProperty(XtraSerializationVisibility.Content)) + Else + pair = New SerializablePropertyDescriptorPair(prop, New XtraSerializableProperty()) + End If + End If + MyBase.SerializeProperty(store, obj, pair, parentFlags, options) + End Sub +End Class + +Public Class MyDeserializeHelper + Inherits DeserializeHelper + + Public Sub New(ByVal rootObject As Object) + MyBase.New(rootObject) + End Sub + + Public Sub New(ByVal rootObject As Object, ByVal resetProperties As Boolean) + MyBase.New(rootObject, resetProperties) + End Sub + + Public Sub New(ByVal rootObject As Object, ByVal resetProperties As Boolean, ByVal context As SerializationContext) + MyBase.New(rootObject, resetProperties, context) + End Sub + + Public Sub New() + End Sub + + Protected Overrides Function CreateSerializationContext() As SerializationContext + Return New MySerializationContext() + End Function +End Class + +Public Class MySerializationContext + Inherits SerializationContext + + Public Sub New() + End Sub + + Protected Overrides Sub CustomGetSerializableProperties(ByVal obj As Object, ByVal pairsList As List(Of SerializablePropertyDescriptorPair), ByVal props As PropertyDescriptorCollection) + MyBase.CustomGetSerializableProperties(obj, pairsList, props) + Dim i As Integer = 0 + Do While i < pairsList.Count + Dim pair As SerializablePropertyDescriptorPair = pairsList(i) + Dim prop As PropertyDescriptor = pair.Property + Dim attr As XtraSerializableProperty = pair.Attribute + If attr Is Nothing AndAlso prop.IsBrowsable Then + If prop.PropertyType IsNot GetType(String) AndAlso prop.PropertyType.IsClass Then + pair = New SerializablePropertyDescriptorPair(prop, New XtraSerializableProperty(XtraSerializationVisibility.Content)) + Else + pair = New SerializablePropertyDescriptorPair(prop, New XtraSerializableProperty()) + End If + pairsList.RemoveAt(i) + pairsList.Insert(i, pair) + End If + i += 1 + Loop + End Sub + + Protected Overrides Function GetProperties(ByVal obj As Object, ByVal store As IXtraPropertyCollection) As PropertyDescriptorCollection + Dim propertyDescriptors As PropertyDescriptorCollection = MyBase.GetProperties(obj, store) + If store Is Nothing Then + Return propertyDescriptors + End If + Dim newPropertyDescriptors As New PropertyDescriptorCollection(Nothing) + For Each info As XtraPropertyInfo In store + Dim pd As PropertyDescriptor = propertyDescriptors(info.Name) + If pd IsNot Nothing Then + newPropertyDescriptors.Add(pd) + End If + Next info + Return newPropertyDescriptors + End Function +End Class From 39073de080e399999a25895d476c0417d37b71f6 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 16 Jan 2020 15:39:56 +0100 Subject: [PATCH 06/26] MS --- app/DD_PM_WINDREAM/ClassFinalizeDoc.vb | 4 +- app/DD_PM_WINDREAM/ClassIDBData.vb | 1 + app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb | 2 +- app/DD_PM_WINDREAM/My Project/licenses.licx | 11 +- app/DD_PM_WINDREAM/frmAdmin2.Designer.vb | 847 ++++++++----- app/DD_PM_WINDREAM/frmAdmin2.resx | 1168 +++++++----------- app/DD_PM_WINDREAM/frmAdmin2.vb | 33 +- app/DD_PM_WINDREAM/frmAdministration.resx | 6 +- app/DD_PM_WINDREAM/frmDesignerLayout.vb | 2 +- app/DD_PM_WINDREAM/frmMain.Designer.vb | 17 +- app/DD_PM_WINDREAM/frmMain.resx | 20 +- app/DD_PM_WINDREAM/frmMain.vb | 12 +- app/DD_PM_WINDREAM/frmMassValidator.vb | 1 + app/DD_PM_WINDREAM/frmValidator.vb | 1 + 14 files changed, 1050 insertions(+), 1075 deletions(-) diff --git a/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb b/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb index f6f7a6d..041a15a 100644 --- a/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb +++ b/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb @@ -83,9 +83,9 @@ LOGGER.Debug("FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT") LOGGER.Debug("") 'Nun das Logging - If CURRENT_PROFILE_VEKTOR_LOG <> "" Then + If CURRENT_PROFILE_LOG_INDEX <> "" Then Dim logstr = Return_LOGString(value, "DDFINALINDEX", INDEXNAME) - Indexiere_VektorfeldPM(logstr, CURRENT_PROFILE_VEKTOR_LOG, WMObject) + Indexiere_VektorfeldPM(logstr, CURRENT_PROFILE_LOG_INDEX, WMObject) End If Else diff --git a/app/DD_PM_WINDREAM/ClassIDBData.vb b/app/DD_PM_WINDREAM/ClassIDBData.vb index 447258f..464590e 100644 --- a/app/DD_PM_WINDREAM/ClassIDBData.vb +++ b/app/DD_PM_WINDREAM/ClassIDBData.vb @@ -158,6 +158,7 @@ If oExists = False Then Dim oInfo = $"Value [{oOldValueRow.Item(0)}] no longer existing in Vector-Attribute [{oAttributeName}] - will be deleted!" LOGGER.Info(oInfo) + SetVariableValue(CURRENT_PROFILE_LOG_INDEX, oInfo) Delete_Term_Object_From_Metadata(oAttributeName, oOldValueRow.Item(0)) End If diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index a2b80a0..c9d7838 100644 --- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb +++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb @@ -7,7 +7,7 @@ Module ModuleRuntimeVariables ' Diese Werte müssen später zur Laufzeit geladen werden Public CURRENT_ProfilGUID As Integer Public CURRENT_ProfilName As String - Public CURRENT_PROFILE_VEKTOR_LOG As String + Public CURRENT_PROFILE_LOG_INDEX As String Public CURRENT_HTML_DOC As String Public CURRENT_DOC_GUID As Integer diff --git a/app/DD_PM_WINDREAM/My Project/licenses.licx b/app/DD_PM_WINDREAM/My Project/licenses.licx index 373f20f..a97b713 100644 --- a/app/DD_PM_WINDREAM/My Project/licenses.licx +++ b/app/DD_PM_WINDREAM/My Project/licenses.licx @@ -1,10 +1,11 @@ -DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb index d8281c7..d943780 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb @@ -23,22 +23,7 @@ Partial Class frmAdmin2 Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim GUIDLabel1 As System.Windows.Forms.Label Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin2)) - Dim TITLELabel1 As System.Windows.Forms.Label - Dim LANGUAGELabel As System.Windows.Forms.Label - Dim CAPT_TYPELabel As System.Windows.Forms.Label - Dim STRING1Label As System.Windows.Forms.Label - Dim STRING2Label As System.Windows.Forms.Label - Dim STRING3Label As System.Windows.Forms.Label - Dim STRING4Label As System.Windows.Forms.Label - Dim STRING5Label As System.Windows.Forms.Label - Dim STRING6Label As System.Windows.Forms.Label - Dim ADDED_WHOLabel1 As System.Windows.Forms.Label - Dim ADDED_WHENLabel1 As System.Windows.Forms.Label - Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label - Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label - Dim OBJ_NAMELabel As System.Windows.Forms.Label Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.BbitemplateAdd = New DevExpress.XtraBars.BarButtonItem() Me.BbitemplateSave = New DevExpress.XtraBars.BarButtonItem() @@ -70,6 +55,7 @@ Partial Class frmAdmin2 Me.CHANGED_WHENDateEdit = New DevExpress.XtraEditors.DateEdit() Me.EMAIL_BODY1TextEdit = New DevExpress.XtraEditors.MemoEdit() Me.EMAIL_BODY2TextEdit = New DevExpress.XtraEditors.MemoEdit() + Me.EMAIL_SUBJECTTextEdit = New DevExpress.XtraEditors.TextEdit() Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() Me.ItemForGUID = New DevExpress.XtraLayout.LayoutControlItem() @@ -79,32 +65,16 @@ Partial Class frmAdmin2 Me.ItemForEMAIL_BODY2 = New DevExpress.XtraLayout.LayoutControlItem() Me.ItemForEMAIL_BODY3 = New DevExpress.XtraLayout.LayoutControlItem() Me.ItemForADDED_WHO = New DevExpress.XtraLayout.LayoutControlItem() - Me.ItemForADDED_WHEN = New DevExpress.XtraLayout.LayoutControlItem() Me.ItemForCHANGED_WHO = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForADDED_WHEN = New DevExpress.XtraLayout.LayoutControlItem() Me.ItemForCHANGED_WHEN = New DevExpress.XtraLayout.LayoutControlItem() Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() - Me.INTERNALCheckBox = New System.Windows.Forms.CheckBox() - Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.OBJ_NAMETextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHENTextBox1 = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox() - Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() - Me.STRING6TextBox = New System.Windows.Forms.TextBox() - Me.STRING5TextBox = New System.Windows.Forms.TextBox() - Me.STRING4TextBox = New System.Windows.Forms.TextBox() - Me.STRING3TextBox = New System.Windows.Forms.TextBox() - Me.STRING2TextBox = New System.Windows.Forms.TextBox() - Me.STRING1TextBox = New System.Windows.Forms.TextBox() - Me.CAPT_TYPEComboBox = New System.Windows.Forms.ComboBox() - Me.LANGUAGEComboBox = New System.Windows.Forms.ComboBox() - Me.TITLETextBox1 = New System.Windows.Forms.TextBox() - Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() @@ -114,22 +84,43 @@ Partial Class frmAdmin2 Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter() Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components) - Me.EMAIL_SUBJECTTextEdit = New DevExpress.XtraEditors.TextEdit() - GUIDLabel1 = New System.Windows.Forms.Label() - TITLELabel1 = New System.Windows.Forms.Label() - LANGUAGELabel = New System.Windows.Forms.Label() - CAPT_TYPELabel = New System.Windows.Forms.Label() - STRING1Label = New System.Windows.Forms.Label() - STRING2Label = New System.Windows.Forms.Label() - STRING3Label = New System.Windows.Forms.Label() - STRING4Label = New System.Windows.Forms.Label() - STRING5Label = New System.Windows.Forms.Label() - STRING6Label = New System.Windows.Forms.Label() - ADDED_WHOLabel1 = New System.Windows.Forms.Label() - ADDED_WHENLabel1 = New System.Windows.Forms.Label() - CHANGED_WHOLabel1 = New System.Windows.Forms.Label() - CHANGED_WHENLabel1 = New System.Windows.Forms.Label() - OBJ_NAMELabel = New System.Windows.Forms.Label() + Me.DataLayoutControl2 = New DevExpress.XtraDataLayout.DataLayoutControl() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.MODULETextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ItemForMODULE = New DevExpress.XtraLayout.LayoutControlItem() + Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LANGUAGETextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ItemForLANGUAGE = New DevExpress.XtraLayout.LayoutControlItem() + Me.CAPT_TYPETextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ItemForCAPT_TYPE = New DevExpress.XtraLayout.LayoutControlItem() + Me.STRING1TextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ItemForSTRING1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.STRING2TextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ItemForSTRING2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.STRING3TextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ItemForSTRING3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.STRING4TextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ItemForSTRING4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.STRING5TextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ItemForSTRING5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.STRING6TextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ItemForSTRING6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ADDED_WHENTextEdit = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.CHANGED_WHENTextEdit = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.OBJ_NAMETextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ItemForOBJ_NAME = New DevExpress.XtraLayout.LayoutControlItem() + Me.INTERNALCheckEdit = New DevExpress.XtraEditors.CheckEdit() + Me.ItemForINTERNAL = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() @@ -149,6 +140,7 @@ Partial Class frmAdmin2 CType(Me.CHANGED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EMAIL_BODY1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EMAIL_BODY2TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EMAIL_SUBJECTTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForGUID, System.ComponentModel.ISupportInitialize).BeginInit() @@ -158,93 +150,55 @@ Partial Class frmAdmin2 CType(Me.ItemForEMAIL_BODY2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForEMAIL_BODY3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForADDED_WHO, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForADDED_WHEN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForCHANGED_WHO, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForADDED_WHEN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForCHANGED_WHEN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPage2.SuspendLayout() - CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.EMAIL_SUBJECTTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataLayoutControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.DataLayoutControl2.SuspendLayout() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MODULETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForMODULE, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LANGUAGETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForLANGUAGE, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForCAPT_TYPE, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.STRING5TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.STRING6TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ADDED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.OBJ_NAMETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForOBJ_NAME, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.INTERNALCheckEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForINTERNAL, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'GUIDLabel1 - ' - resources.ApplyResources(GUIDLabel1, "GUIDLabel1") - GUIDLabel1.Name = "GUIDLabel1" - ' - 'TITLELabel1 - ' - resources.ApplyResources(TITLELabel1, "TITLELabel1") - TITLELabel1.Name = "TITLELabel1" - ' - 'LANGUAGELabel - ' - resources.ApplyResources(LANGUAGELabel, "LANGUAGELabel") - LANGUAGELabel.Name = "LANGUAGELabel" - ' - 'CAPT_TYPELabel - ' - resources.ApplyResources(CAPT_TYPELabel, "CAPT_TYPELabel") - CAPT_TYPELabel.Name = "CAPT_TYPELabel" - ' - 'STRING1Label - ' - resources.ApplyResources(STRING1Label, "STRING1Label") - STRING1Label.Name = "STRING1Label" - ' - 'STRING2Label - ' - resources.ApplyResources(STRING2Label, "STRING2Label") - STRING2Label.Name = "STRING2Label" - ' - 'STRING3Label - ' - resources.ApplyResources(STRING3Label, "STRING3Label") - STRING3Label.Name = "STRING3Label" - ' - 'STRING4Label - ' - resources.ApplyResources(STRING4Label, "STRING4Label") - STRING4Label.Name = "STRING4Label" - ' - 'STRING5Label - ' - resources.ApplyResources(STRING5Label, "STRING5Label") - STRING5Label.Name = "STRING5Label" - ' - 'STRING6Label - ' - resources.ApplyResources(STRING6Label, "STRING6Label") - STRING6Label.Name = "STRING6Label" - ' - 'ADDED_WHOLabel1 - ' - resources.ApplyResources(ADDED_WHOLabel1, "ADDED_WHOLabel1") - ADDED_WHOLabel1.Name = "ADDED_WHOLabel1" - ' - 'ADDED_WHENLabel1 - ' - resources.ApplyResources(ADDED_WHENLabel1, "ADDED_WHENLabel1") - ADDED_WHENLabel1.Name = "ADDED_WHENLabel1" - ' - 'CHANGED_WHOLabel1 - ' - resources.ApplyResources(CHANGED_WHOLabel1, "CHANGED_WHOLabel1") - CHANGED_WHOLabel1.Name = "CHANGED_WHOLabel1" - ' - 'CHANGED_WHENLabel1 - ' - resources.ApplyResources(CHANGED_WHENLabel1, "CHANGED_WHENLabel1") - CHANGED_WHENLabel1.Name = "CHANGED_WHENLabel1" - ' - 'OBJ_NAMELabel - ' - resources.ApplyResources(OBJ_NAMELabel, "OBJ_NAMELabel") - OBJ_NAMELabel.Name = "OBJ_NAMELabel" - ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 @@ -515,6 +469,14 @@ Partial Class frmAdmin2 Me.EMAIL_BODY2TextEdit.Name = "EMAIL_BODY2TextEdit" Me.EMAIL_BODY2TextEdit.StyleController = Me.DataLayoutControl1 ' + 'EMAIL_SUBJECTTextEdit + ' + Me.EMAIL_SUBJECTTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_SUBJECT", True)) + resources.ApplyResources(Me.EMAIL_SUBJECTTextEdit, "EMAIL_SUBJECTTextEdit") + Me.EMAIL_SUBJECTTextEdit.MenuManager = Me.RibbonControl1 + Me.EMAIL_SUBJECTTextEdit.Name = "EMAIL_SUBJECTTextEdit" + Me.EMAIL_SUBJECTTextEdit.StyleController = Me.DataLayoutControl1 + ' 'Root ' Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] @@ -596,15 +558,6 @@ Partial Class frmAdmin2 resources.ApplyResources(Me.ItemForADDED_WHO, "ItemForADDED_WHO") Me.ItemForADDED_WHO.TextSize = New System.Drawing.Size(74, 13) ' - 'ItemForADDED_WHEN - ' - Me.ItemForADDED_WHEN.Control = Me.ADDED_WHENDateEdit - Me.ItemForADDED_WHEN.Location = New System.Drawing.Point(332, 437) - Me.ItemForADDED_WHEN.Name = "ItemForADDED_WHEN" - Me.ItemForADDED_WHEN.Size = New System.Drawing.Size(332, 24) - resources.ApplyResources(Me.ItemForADDED_WHEN, "ItemForADDED_WHEN") - Me.ItemForADDED_WHEN.TextSize = New System.Drawing.Size(74, 13) - ' 'ItemForCHANGED_WHO ' Me.ItemForCHANGED_WHO.Control = Me.CHANGED_WHOTextEdit @@ -614,6 +567,15 @@ Partial Class frmAdmin2 resources.ApplyResources(Me.ItemForCHANGED_WHO, "ItemForCHANGED_WHO") Me.ItemForCHANGED_WHO.TextSize = New System.Drawing.Size(74, 13) ' + 'ItemForADDED_WHEN + ' + Me.ItemForADDED_WHEN.Control = Me.ADDED_WHENDateEdit + Me.ItemForADDED_WHEN.Location = New System.Drawing.Point(332, 437) + Me.ItemForADDED_WHEN.Name = "ItemForADDED_WHEN" + Me.ItemForADDED_WHEN.Size = New System.Drawing.Size(332, 24) + resources.ApplyResources(Me.ItemForADDED_WHEN, "ItemForADDED_WHEN") + Me.ItemForADDED_WHEN.TextSize = New System.Drawing.Size(74, 13) + ' 'ItemForCHANGED_WHEN ' Me.ItemForCHANGED_WHEN.Control = Me.CHANGED_WHENDateEdit @@ -661,155 +623,10 @@ Partial Class frmAdmin2 'XtraTabPage2 ' resources.ApplyResources(Me.XtraTabPage2, "XtraTabPage2") - Me.XtraTabPage2.Controls.Add(Me.INTERNALCheckBox) - Me.XtraTabPage2.Controls.Add(OBJ_NAMELabel) - Me.XtraTabPage2.Controls.Add(Me.OBJ_NAMETextBox) - Me.XtraTabPage2.Controls.Add(CHANGED_WHENLabel1) - Me.XtraTabPage2.Controls.Add(Me.CHANGED_WHENTextBox1) - Me.XtraTabPage2.Controls.Add(CHANGED_WHOLabel1) - Me.XtraTabPage2.Controls.Add(Me.CHANGED_WHOTextBox1) - Me.XtraTabPage2.Controls.Add(ADDED_WHENLabel1) - Me.XtraTabPage2.Controls.Add(Me.ADDED_WHENTextBox1) - Me.XtraTabPage2.Controls.Add(ADDED_WHOLabel1) - Me.XtraTabPage2.Controls.Add(Me.ADDED_WHOTextBox1) - Me.XtraTabPage2.Controls.Add(STRING6Label) - Me.XtraTabPage2.Controls.Add(Me.STRING6TextBox) - Me.XtraTabPage2.Controls.Add(STRING5Label) - Me.XtraTabPage2.Controls.Add(Me.STRING5TextBox) - Me.XtraTabPage2.Controls.Add(STRING4Label) - Me.XtraTabPage2.Controls.Add(Me.STRING4TextBox) - Me.XtraTabPage2.Controls.Add(STRING3Label) - Me.XtraTabPage2.Controls.Add(Me.STRING3TextBox) - Me.XtraTabPage2.Controls.Add(STRING2Label) - Me.XtraTabPage2.Controls.Add(Me.STRING2TextBox) - Me.XtraTabPage2.Controls.Add(STRING1Label) - Me.XtraTabPage2.Controls.Add(Me.STRING1TextBox) - Me.XtraTabPage2.Controls.Add(CAPT_TYPELabel) - Me.XtraTabPage2.Controls.Add(Me.CAPT_TYPEComboBox) - Me.XtraTabPage2.Controls.Add(LANGUAGELabel) - Me.XtraTabPage2.Controls.Add(Me.LANGUAGEComboBox) - Me.XtraTabPage2.Controls.Add(TITLELabel1) - Me.XtraTabPage2.Controls.Add(Me.TITLETextBox1) - Me.XtraTabPage2.Controls.Add(GUIDLabel1) - Me.XtraTabPage2.Controls.Add(Me.GUIDTextBox1) + Me.XtraTabPage2.Controls.Add(Me.DataLayoutControl2) Me.XtraTabPage2.Controls.Add(Me.GridControl2) Me.XtraTabPage2.Name = "XtraTabPage2" ' - 'INTERNALCheckBox - ' - Me.INTERNALCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "INTERNAL", True)) - resources.ApplyResources(Me.INTERNALCheckBox, "INTERNALCheckBox") - Me.INTERNALCheckBox.Name = "INTERNALCheckBox" - Me.INTERNALCheckBox.UseVisualStyleBackColor = True - ' - 'TBDD_GUI_LANGUAGE_PHRASEBindingSource - ' - Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataMember = "TBDD_GUI_LANGUAGE_PHRASE" - Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' - 'OBJ_NAMETextBox - ' - Me.OBJ_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "OBJ_NAME", True)) - resources.ApplyResources(Me.OBJ_NAMETextBox, "OBJ_NAMETextBox") - Me.OBJ_NAMETextBox.Name = "OBJ_NAMETextBox" - ' - 'CHANGED_WHENTextBox1 - ' - Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextBox1, "CHANGED_WHENTextBox1") - Me.CHANGED_WHENTextBox1.Name = "CHANGED_WHENTextBox1" - Me.CHANGED_WHENTextBox1.ReadOnly = True - ' - 'CHANGED_WHOTextBox1 - ' - Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.CHANGED_WHOTextBox1, "CHANGED_WHOTextBox1") - Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" - Me.CHANGED_WHOTextBox1.ReadOnly = True - ' - 'ADDED_WHENTextBox1 - ' - Me.ADDED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextBox1, "ADDED_WHENTextBox1") - Me.ADDED_WHENTextBox1.Name = "ADDED_WHENTextBox1" - Me.ADDED_WHENTextBox1.ReadOnly = True - ' - 'ADDED_WHOTextBox1 - ' - Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.ADDED_WHOTextBox1, "ADDED_WHOTextBox1") - Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" - Me.ADDED_WHOTextBox1.ReadOnly = True - ' - 'STRING6TextBox - ' - Me.STRING6TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING6", True)) - resources.ApplyResources(Me.STRING6TextBox, "STRING6TextBox") - Me.STRING6TextBox.Name = "STRING6TextBox" - ' - 'STRING5TextBox - ' - Me.STRING5TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING5", True)) - resources.ApplyResources(Me.STRING5TextBox, "STRING5TextBox") - Me.STRING5TextBox.Name = "STRING5TextBox" - ' - 'STRING4TextBox - ' - Me.STRING4TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING4", True)) - resources.ApplyResources(Me.STRING4TextBox, "STRING4TextBox") - Me.STRING4TextBox.Name = "STRING4TextBox" - ' - 'STRING3TextBox - ' - Me.STRING3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING3", True)) - resources.ApplyResources(Me.STRING3TextBox, "STRING3TextBox") - Me.STRING3TextBox.Name = "STRING3TextBox" - ' - 'STRING2TextBox - ' - Me.STRING2TextBox.AcceptsReturn = True - Me.STRING2TextBox.AcceptsTab = True - resources.ApplyResources(Me.STRING2TextBox, "STRING2TextBox") - Me.STRING2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True)) - Me.STRING2TextBox.Name = "STRING2TextBox" - ' - 'STRING1TextBox - ' - Me.STRING1TextBox.AcceptsReturn = True - Me.STRING1TextBox.AcceptsTab = True - resources.ApplyResources(Me.STRING1TextBox, "STRING1TextBox") - Me.STRING1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True)) - Me.STRING1TextBox.Name = "STRING1TextBox" - ' - 'CAPT_TYPEComboBox - ' - Me.CAPT_TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CAPT_TYPE", True)) - Me.CAPT_TYPEComboBox.FormattingEnabled = True - Me.CAPT_TYPEComboBox.Items.AddRange(New Object() {resources.GetString("CAPT_TYPEComboBox.Items"), resources.GetString("CAPT_TYPEComboBox.Items1"), resources.GetString("CAPT_TYPEComboBox.Items2"), resources.GetString("CAPT_TYPEComboBox.Items3"), resources.GetString("CAPT_TYPEComboBox.Items4")}) - resources.ApplyResources(Me.CAPT_TYPEComboBox, "CAPT_TYPEComboBox") - Me.CAPT_TYPEComboBox.Name = "CAPT_TYPEComboBox" - ' - 'LANGUAGEComboBox - ' - Me.LANGUAGEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "LANGUAGE", True)) - Me.LANGUAGEComboBox.FormattingEnabled = True - Me.LANGUAGEComboBox.Items.AddRange(New Object() {resources.GetString("LANGUAGEComboBox.Items"), resources.GetString("LANGUAGEComboBox.Items1"), resources.GetString("LANGUAGEComboBox.Items2")}) - resources.ApplyResources(Me.LANGUAGEComboBox, "LANGUAGEComboBox") - Me.LANGUAGEComboBox.Name = "LANGUAGEComboBox" - ' - 'TITLETextBox1 - ' - Me.TITLETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "TITLE", True)) - resources.ApplyResources(Me.TITLETextBox1, "TITLETextBox1") - Me.TITLETextBox1.Name = "TITLETextBox1" - ' - 'GUIDTextBox1 - ' - Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "GUID", True)) - resources.ApplyResources(Me.GUIDTextBox1, "GUIDTextBox1") - Me.GUIDTextBox1.Name = "GUIDTextBox1" - Me.GUIDTextBox1.ReadOnly = True - ' 'GridControl2 ' Me.GridControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource @@ -819,6 +636,11 @@ Partial Class frmAdmin2 Me.GridControl2.Name = "GridControl2" Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) ' + 'TBDD_GUI_LANGUAGE_PHRASEBindingSource + ' + Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataMember = "TBDD_GUI_LANGUAGE_PHRASE" + Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' 'GridView2 ' Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.PeachPuff @@ -882,13 +704,362 @@ Partial Class frmAdmin2 ' Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.ClearBeforeFill = True ' - 'EMAIL_SUBJECTTextEdit - ' - Me.EMAIL_SUBJECTTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_SUBJECT", True)) - resources.ApplyResources(Me.EMAIL_SUBJECTTextEdit, "EMAIL_SUBJECTTextEdit") - Me.EMAIL_SUBJECTTextEdit.MenuManager = Me.RibbonControl1 - Me.EMAIL_SUBJECTTextEdit.Name = "EMAIL_SUBJECTTextEdit" - Me.EMAIL_SUBJECTTextEdit.StyleController = Me.DataLayoutControl1 + 'DataLayoutControl2 + ' + Me.DataLayoutControl2.Controls.Add(Me.TextEdit1) + Me.DataLayoutControl2.Controls.Add(Me.MODULETextEdit) + Me.DataLayoutControl2.Controls.Add(Me.TextEdit2) + Me.DataLayoutControl2.Controls.Add(Me.LANGUAGETextEdit) + Me.DataLayoutControl2.Controls.Add(Me.CAPT_TYPETextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING1TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING2TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING3TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING4TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING5TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING6TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.TextEdit3) + Me.DataLayoutControl2.Controls.Add(Me.ADDED_WHENTextEdit) + Me.DataLayoutControl2.Controls.Add(Me.TextEdit4) + Me.DataLayoutControl2.Controls.Add(Me.CHANGED_WHENTextEdit) + Me.DataLayoutControl2.Controls.Add(Me.OBJ_NAMETextEdit) + Me.DataLayoutControl2.Controls.Add(Me.INTERNALCheckEdit) + Me.DataLayoutControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource + resources.ApplyResources(Me.DataLayoutControl2, "DataLayoutControl2") + Me.DataLayoutControl2.Name = "DataLayoutControl2" + Me.DataLayoutControl2.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(3190, 411, 650, 400) + Me.DataLayoutControl2.Root = Me.LayoutControlGroup2 + ' + 'LayoutControlGroup2 + ' + Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup2.GroupBordersVisible = False + Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup3}) + Me.LayoutControlGroup2.Name = "Root" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(548, 508) + Me.LayoutControlGroup2.TextVisible = False + ' + 'LayoutControlGroup3 + ' + Me.LayoutControlGroup3.AllowDrawBackground = False + Me.LayoutControlGroup3.GroupBordersVisible = False + Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.ItemForMODULE, Me.ItemForSTRING1, Me.ItemForSTRING2, Me.ItemForSTRING3, Me.ItemForSTRING4, Me.ItemForSTRING5, Me.ItemForSTRING6, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.ItemForOBJ_NAME, Me.ItemForCAPT_TYPE, Me.LayoutControlItem2, Me.ItemForLANGUAGE, Me.ItemForINTERNAL}) + Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlGroup3.Name = "autoGeneratedGroup0" + Me.LayoutControlGroup3.Size = New System.Drawing.Size(528, 488) + ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "GUID", True)) + resources.ApplyResources(Me.TextEdit1, "TextEdit1") + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Properties.Appearance.Options.UseTextOptions = True + Me.TextEdit1.Properties.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.TextEdit1.Properties.Mask.EditMask = resources.GetString("TextEdit1.Properties.Mask.EditMask") + Me.TextEdit1.Properties.Mask.MaskType = CType(resources.GetObject("TextEdit1.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) + Me.TextEdit1.Properties.Mask.UseMaskAsDisplayFormat = CType(resources.GetObject("TextEdit1.Properties.Mask.UseMaskAsDisplayFormat"), Boolean) + Me.TextEdit1.StyleController = Me.DataLayoutControl2 + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEdit1 + Me.LayoutControlItem1.Enabled = False + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "ItemForGUID" + Me.LayoutControlItem1.Size = New System.Drawing.Size(150, 24) + resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1") + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(74, 13) + ' + 'MODULETextEdit + ' + Me.MODULETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "MODULE", True)) + resources.ApplyResources(Me.MODULETextEdit, "MODULETextEdit") + Me.MODULETextEdit.MenuManager = Me.RibbonControl1 + Me.MODULETextEdit.Name = "MODULETextEdit" + Me.MODULETextEdit.StyleController = Me.DataLayoutControl2 + ' + 'ItemForMODULE + ' + Me.ItemForMODULE.Control = Me.MODULETextEdit + Me.ItemForMODULE.Location = New System.Drawing.Point(0, 48) + Me.ItemForMODULE.Name = "ItemForMODULE" + Me.ItemForMODULE.Size = New System.Drawing.Size(150, 24) + resources.ApplyResources(Me.ItemForMODULE, "ItemForMODULE") + Me.ItemForMODULE.TextSize = New System.Drawing.Size(74, 13) + ' + 'TextEdit2 + ' + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "TITLE", True)) + resources.ApplyResources(Me.TextEdit2, "TextEdit2") + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.StyleController = Me.DataLayoutControl2 + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEdit2 + Me.LayoutControlItem2.Location = New System.Drawing.Point(150, 24) + Me.LayoutControlItem2.Name = "ItemForTITLE" + Me.LayoutControlItem2.Size = New System.Drawing.Size(302, 24) + resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2") + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(74, 13) + ' + 'LANGUAGETextEdit + ' + Me.LANGUAGETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "LANGUAGE", True)) + resources.ApplyResources(Me.LANGUAGETextEdit, "LANGUAGETextEdit") + Me.LANGUAGETextEdit.MenuManager = Me.RibbonControl1 + Me.LANGUAGETextEdit.Name = "LANGUAGETextEdit" + Me.LANGUAGETextEdit.StyleController = Me.DataLayoutControl2 + ' + 'ItemForLANGUAGE + ' + Me.ItemForLANGUAGE.Control = Me.LANGUAGETextEdit + Me.ItemForLANGUAGE.Location = New System.Drawing.Point(150, 48) + Me.ItemForLANGUAGE.Name = "ItemForLANGUAGE" + Me.ItemForLANGUAGE.Size = New System.Drawing.Size(302, 24) + resources.ApplyResources(Me.ItemForLANGUAGE, "ItemForLANGUAGE") + Me.ItemForLANGUAGE.TextSize = New System.Drawing.Size(74, 13) + ' + 'CAPT_TYPETextEdit + ' + Me.CAPT_TYPETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CAPT_TYPE", True)) + resources.ApplyResources(Me.CAPT_TYPETextEdit, "CAPT_TYPETextEdit") + Me.CAPT_TYPETextEdit.MenuManager = Me.RibbonControl1 + Me.CAPT_TYPETextEdit.Name = "CAPT_TYPETextEdit" + Me.CAPT_TYPETextEdit.StyleController = Me.DataLayoutControl2 + ' + 'ItemForCAPT_TYPE + ' + Me.ItemForCAPT_TYPE.Control = Me.CAPT_TYPETextEdit + Me.ItemForCAPT_TYPE.Location = New System.Drawing.Point(0, 24) + Me.ItemForCAPT_TYPE.Name = "ItemForCAPT_TYPE" + Me.ItemForCAPT_TYPE.Size = New System.Drawing.Size(150, 24) + resources.ApplyResources(Me.ItemForCAPT_TYPE, "ItemForCAPT_TYPE") + Me.ItemForCAPT_TYPE.TextSize = New System.Drawing.Size(74, 13) + ' + 'STRING1TextEdit + ' + Me.STRING1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True)) + resources.ApplyResources(Me.STRING1TextEdit, "STRING1TextEdit") + Me.STRING1TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING1TextEdit.Name = "STRING1TextEdit" + Me.STRING1TextEdit.StyleController = Me.DataLayoutControl2 + ' + 'ItemForSTRING1 + ' + Me.ItemForSTRING1.Control = Me.STRING1TextEdit + Me.ItemForSTRING1.Location = New System.Drawing.Point(0, 72) + Me.ItemForSTRING1.Name = "ItemForSTRING1" + Me.ItemForSTRING1.Size = New System.Drawing.Size(452, 24) + resources.ApplyResources(Me.ItemForSTRING1, "ItemForSTRING1") + Me.ItemForSTRING1.TextSize = New System.Drawing.Size(74, 13) + ' + 'STRING2TextEdit + ' + Me.STRING2TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True)) + resources.ApplyResources(Me.STRING2TextEdit, "STRING2TextEdit") + Me.STRING2TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING2TextEdit.Name = "STRING2TextEdit" + Me.STRING2TextEdit.StyleController = Me.DataLayoutControl2 + ' + 'ItemForSTRING2 + ' + Me.ItemForSTRING2.Control = Me.STRING2TextEdit + Me.ItemForSTRING2.Location = New System.Drawing.Point(0, 96) + Me.ItemForSTRING2.Name = "ItemForSTRING2" + Me.ItemForSTRING2.Size = New System.Drawing.Size(452, 24) + resources.ApplyResources(Me.ItemForSTRING2, "ItemForSTRING2") + Me.ItemForSTRING2.TextSize = New System.Drawing.Size(74, 13) + ' + 'STRING3TextEdit + ' + Me.STRING3TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING3", True)) + resources.ApplyResources(Me.STRING3TextEdit, "STRING3TextEdit") + Me.STRING3TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING3TextEdit.Name = "STRING3TextEdit" + Me.STRING3TextEdit.StyleController = Me.DataLayoutControl2 + ' + 'ItemForSTRING3 + ' + Me.ItemForSTRING3.Control = Me.STRING3TextEdit + Me.ItemForSTRING3.Location = New System.Drawing.Point(0, 120) + Me.ItemForSTRING3.Name = "ItemForSTRING3" + Me.ItemForSTRING3.Size = New System.Drawing.Size(452, 24) + resources.ApplyResources(Me.ItemForSTRING3, "ItemForSTRING3") + Me.ItemForSTRING3.TextSize = New System.Drawing.Size(74, 13) + ' + 'STRING4TextEdit + ' + Me.STRING4TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING4", True)) + resources.ApplyResources(Me.STRING4TextEdit, "STRING4TextEdit") + Me.STRING4TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING4TextEdit.Name = "STRING4TextEdit" + Me.STRING4TextEdit.StyleController = Me.DataLayoutControl2 + ' + 'ItemForSTRING4 + ' + Me.ItemForSTRING4.Control = Me.STRING4TextEdit + Me.ItemForSTRING4.Location = New System.Drawing.Point(0, 144) + Me.ItemForSTRING4.Name = "ItemForSTRING4" + Me.ItemForSTRING4.Size = New System.Drawing.Size(452, 24) + resources.ApplyResources(Me.ItemForSTRING4, "ItemForSTRING4") + Me.ItemForSTRING4.TextSize = New System.Drawing.Size(74, 13) + ' + 'STRING5TextEdit + ' + Me.STRING5TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING5", True)) + resources.ApplyResources(Me.STRING5TextEdit, "STRING5TextEdit") + Me.STRING5TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING5TextEdit.Name = "STRING5TextEdit" + Me.STRING5TextEdit.StyleController = Me.DataLayoutControl2 + ' + 'ItemForSTRING5 + ' + Me.ItemForSTRING5.Control = Me.STRING5TextEdit + Me.ItemForSTRING5.Location = New System.Drawing.Point(0, 168) + Me.ItemForSTRING5.Name = "ItemForSTRING5" + Me.ItemForSTRING5.Size = New System.Drawing.Size(452, 24) + resources.ApplyResources(Me.ItemForSTRING5, "ItemForSTRING5") + Me.ItemForSTRING5.TextSize = New System.Drawing.Size(74, 13) + ' + 'STRING6TextEdit + ' + Me.STRING6TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING6", True)) + resources.ApplyResources(Me.STRING6TextEdit, "STRING6TextEdit") + Me.STRING6TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING6TextEdit.Name = "STRING6TextEdit" + Me.STRING6TextEdit.StyleController = Me.DataLayoutControl2 + ' + 'ItemForSTRING6 + ' + Me.ItemForSTRING6.Control = Me.STRING6TextEdit + Me.ItemForSTRING6.Location = New System.Drawing.Point(0, 192) + Me.ItemForSTRING6.Name = "ItemForSTRING6" + Me.ItemForSTRING6.Size = New System.Drawing.Size(452, 24) + resources.ApplyResources(Me.ItemForSTRING6, "ItemForSTRING6") + Me.ItemForSTRING6.TextSize = New System.Drawing.Size(74, 13) + ' + 'TextEdit3 + ' + Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "ADDED_WHO", True)) + resources.ApplyResources(Me.TextEdit3, "TextEdit3") + Me.TextEdit3.MenuManager = Me.RibbonControl1 + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.Properties.ReadOnly = True + Me.TextEdit3.StyleController = Me.DataLayoutControl2 + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit3 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 216) + Me.LayoutControlItem3.Name = "ItemForADDED_WHO" + Me.LayoutControlItem3.Size = New System.Drawing.Size(452, 24) + resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3") + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(74, 13) + ' + 'ADDED_WHENTextEdit + ' + Me.ADDED_WHENTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "ADDED_WHEN", True)) + resources.ApplyResources(Me.ADDED_WHENTextEdit, "ADDED_WHENTextEdit") + Me.ADDED_WHENTextEdit.MenuManager = Me.RibbonControl1 + Me.ADDED_WHENTextEdit.Name = "ADDED_WHENTextEdit" + Me.ADDED_WHENTextEdit.Properties.DisplayFormat.FormatString = "d" + Me.ADDED_WHENTextEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.ADDED_WHENTextEdit.Properties.EditFormat.FormatString = "d" + Me.ADDED_WHENTextEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.ADDED_WHENTextEdit.Properties.Mask.EditMask = resources.GetString("ADDED_WHENTextEdit.Properties.Mask.EditMask") + Me.ADDED_WHENTextEdit.Properties.Mask.MaskType = CType(resources.GetObject("ADDED_WHENTextEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) + Me.ADDED_WHENTextEdit.Properties.ReadOnly = True + Me.ADDED_WHENTextEdit.StyleController = Me.DataLayoutControl2 + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.ADDED_WHENTextEdit + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 240) + Me.LayoutControlItem4.Name = "ItemForADDED_WHEN" + Me.LayoutControlItem4.Size = New System.Drawing.Size(452, 24) + resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4") + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(74, 13) + ' + 'TextEdit4 + ' + Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHO", True)) + resources.ApplyResources(Me.TextEdit4, "TextEdit4") + Me.TextEdit4.MenuManager = Me.RibbonControl1 + Me.TextEdit4.Name = "TextEdit4" + Me.TextEdit4.Properties.ReadOnly = True + Me.TextEdit4.StyleController = Me.DataLayoutControl2 + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.TextEdit4 + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 264) + Me.LayoutControlItem5.Name = "ItemForCHANGED_WHO" + Me.LayoutControlItem5.Size = New System.Drawing.Size(528, 24) + resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5") + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(74, 13) + ' + 'CHANGED_WHENTextEdit + ' + Me.CHANGED_WHENTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHEN", True)) + resources.ApplyResources(Me.CHANGED_WHENTextEdit, "CHANGED_WHENTextEdit") + Me.CHANGED_WHENTextEdit.MenuManager = Me.RibbonControl1 + Me.CHANGED_WHENTextEdit.Name = "CHANGED_WHENTextEdit" + Me.CHANGED_WHENTextEdit.Properties.DisplayFormat.FormatString = "d" + Me.CHANGED_WHENTextEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.CHANGED_WHENTextEdit.Properties.EditFormat.FormatString = "d" + Me.CHANGED_WHENTextEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.CHANGED_WHENTextEdit.Properties.Mask.EditMask = resources.GetString("CHANGED_WHENTextEdit.Properties.Mask.EditMask") + Me.CHANGED_WHENTextEdit.Properties.Mask.MaskType = CType(resources.GetObject("CHANGED_WHENTextEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) + Me.CHANGED_WHENTextEdit.Properties.ReadOnly = True + Me.CHANGED_WHENTextEdit.StyleController = Me.DataLayoutControl2 + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.CHANGED_WHENTextEdit + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 288) + Me.LayoutControlItem6.Name = "ItemForCHANGED_WHEN" + Me.LayoutControlItem6.Size = New System.Drawing.Size(528, 200) + resources.ApplyResources(Me.LayoutControlItem6, "LayoutControlItem6") + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(74, 13) + ' + 'OBJ_NAMETextEdit + ' + Me.OBJ_NAMETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "OBJ_NAME", True)) + resources.ApplyResources(Me.OBJ_NAMETextEdit, "OBJ_NAMETextEdit") + Me.OBJ_NAMETextEdit.MenuManager = Me.RibbonControl1 + Me.OBJ_NAMETextEdit.Name = "OBJ_NAMETextEdit" + Me.OBJ_NAMETextEdit.StyleController = Me.DataLayoutControl2 + ' + 'ItemForOBJ_NAME + ' + Me.ItemForOBJ_NAME.Control = Me.OBJ_NAMETextEdit + Me.ItemForOBJ_NAME.Location = New System.Drawing.Point(150, 0) + Me.ItemForOBJ_NAME.Name = "ItemForOBJ_NAME" + Me.ItemForOBJ_NAME.Size = New System.Drawing.Size(302, 24) + resources.ApplyResources(Me.ItemForOBJ_NAME, "ItemForOBJ_NAME") + Me.ItemForOBJ_NAME.TextSize = New System.Drawing.Size(74, 13) + ' + 'INTERNALCheckEdit + ' + Me.INTERNALCheckEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "INTERNAL", True)) + resources.ApplyResources(Me.INTERNALCheckEdit, "INTERNALCheckEdit") + Me.INTERNALCheckEdit.MenuManager = Me.RibbonControl1 + Me.INTERNALCheckEdit.Name = "INTERNALCheckEdit" + Me.INTERNALCheckEdit.Properties.Caption = resources.GetString("INTERNALCheckEdit.Properties.Caption") + Me.INTERNALCheckEdit.Properties.GlyphAlignment = CType(resources.GetObject("INTERNALCheckEdit.Properties.GlyphAlignment"), DevExpress.Utils.HorzAlignment) + Me.INTERNALCheckEdit.StyleController = Me.DataLayoutControl2 + ' + 'ItemForINTERNAL + ' + Me.ItemForINTERNAL.Control = Me.INTERNALCheckEdit + resources.ApplyResources(Me.ItemForINTERNAL, "ItemForINTERNAL") + Me.ItemForINTERNAL.Location = New System.Drawing.Point(452, 0) + Me.ItemForINTERNAL.Name = "ItemForINTERNAL" + Me.ItemForINTERNAL.Size = New System.Drawing.Size(76, 264) + Me.ItemForINTERNAL.TextSize = New System.Drawing.Size(0, 0) + Me.ItemForINTERNAL.TextVisible = False ' 'frmAdmin2 ' @@ -920,6 +1091,7 @@ Partial Class frmAdmin2 CType(Me.CHANGED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EMAIL_BODY1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EMAIL_BODY2TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EMAIL_SUBJECTTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForGUID, System.ComponentModel.ISupportInitialize).EndInit() @@ -929,17 +1101,53 @@ Partial Class frmAdmin2 CType(Me.ItemForEMAIL_BODY2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForEMAIL_BODY3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForADDED_WHO, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForADDED_WHEN, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForCHANGED_WHO, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForADDED_WHEN, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForCHANGED_WHEN, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPage2.ResumeLayout(False) - Me.XtraTabPage2.PerformLayout() - CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.EMAIL_SUBJECTTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataLayoutControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.DataLayoutControl2.ResumeLayout(False) + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MODULETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForMODULE, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LANGUAGETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForLANGUAGE, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForCAPT_TYPE, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.STRING5TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.STRING6TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ADDED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.OBJ_NAMETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForOBJ_NAME, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.INTERNALCheckEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForINTERNAL, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -976,26 +1184,10 @@ Partial Class frmAdmin2 Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents TBDD_GUI_LANGUAGE_PHRASEBindingSource As BindingSource Friend WithEvents TBDD_GUI_LANGUAGE_PHRASETableAdapter As DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter - Friend WithEvents CHANGED_WHENTextBox1 As TextBox - Friend WithEvents CHANGED_WHOTextBox1 As TextBox - Friend WithEvents ADDED_WHENTextBox1 As TextBox - Friend WithEvents ADDED_WHOTextBox1 As TextBox - Friend WithEvents STRING6TextBox As TextBox - Friend WithEvents STRING5TextBox As TextBox - Friend WithEvents STRING4TextBox As TextBox - Friend WithEvents STRING3TextBox As TextBox - Friend WithEvents STRING2TextBox As TextBox - Friend WithEvents STRING1TextBox As TextBox - Friend WithEvents CAPT_TYPEComboBox As ComboBox - Friend WithEvents LANGUAGEComboBox As ComboBox - Friend WithEvents TITLETextBox1 As TextBox - Friend WithEvents GUIDTextBox1 As TextBox Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents OBJ_NAMETextBox As TextBox Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents INTERNALCheckBox As CheckBox Friend WithEvents LayoutConverter1 As DevExpress.XtraLayout.Converter.LayoutConverter Friend WithEvents DataLayoutControl1 As DevExpress.XtraDataLayout.DataLayoutControl Friend WithEvents GUIDTextEdit As DevExpress.XtraEditors.TextEdit @@ -1021,4 +1213,41 @@ Partial Class frmAdmin2 Friend WithEvents ItemForCHANGED_WHEN As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem Friend WithEvents EMAIL_SUBJECTTextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents DataLayoutControl2 As DevExpress.XtraDataLayout.DataLayoutControl + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents MODULETextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LANGUAGETextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents CAPT_TYPETextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents STRING1TextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents STRING2TextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents STRING3TextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents STRING4TextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents STRING5TextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents STRING6TextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit + Friend WithEvents ADDED_WHENTextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit + Friend WithEvents CHANGED_WHENTextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents OBJ_NAMETextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents INTERNALCheckEdit As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlGroup3 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForMODULE As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForSTRING1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForSTRING2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForSTRING3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForSTRING4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForSTRING5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForSTRING6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForOBJ_NAME As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForCAPT_TYPE As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForLANGUAGE As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForINTERNAL As DevExpress.XtraLayout.LayoutControlItem End Class diff --git a/app/DD_PM_WINDREAM/frmAdmin2.resx b/app/DD_PM_WINDREAM/frmAdmin2.resx index 10f20e3..5da71e5 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.resx +++ b/app/DD_PM_WINDREAM/frmAdmin2.resx @@ -117,461 +117,10 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False - - - - True - - - - 586, 15 - - - 22, 13 - - - 21 - - - ID: - - - GUIDLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 29 - - - False - - - True - - - 586, 42 - - - 31, 13 - - - 23 - - - Titel: - - - TITLELabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 27 - - - False - - - True - - - 586, 95 - - - 58, 13 - - - 24 - - - Language: - - - LANGUAGELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 25 - - - False - - - True - - - 586, 123 - - - 35, 13 - - - 25 - - - Type: - - - CAPT_TYPELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 23 - - - False - - - True - - - 586, 151 - - - 48, 13 - - - 26 - - - String 1: - - - STRING1Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 21 - - - False - - - True - - - 586, 256 - - - 48, 13 - - - 27 - - - String 2: - - - STRING2Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 19 - - - False - - - True - - - 586, 349 - - - 48, 13 - - - 28 - - - String 3: - - - STRING3Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 17 - - - False - - - True - - - 586, 376 - - - 48, 13 - - - 29 - - - String 4: - - - STRING4Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 15 - - - False - - - True - - - 586, 403 - - - 48, 13 - - - 30 - - - String 5: - - - STRING5Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 13 - - - False - - - True - - - 586, 430 - - - 48, 13 - - - 31 - - - String 6: - - - STRING6Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 11 - - - False - - - True - - - 586, 457 - - - 65, 13 - - - 32 - - - Erstellt wer: - - - ADDED_WHOLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 9 - - - False - - - True - - - 803, 457 - - - 73, 13 - - - 33 - - - Erstellt wann: - - - ADDED_WHENLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 7 - - - False - - - True - - - 586, 481 - - - 77, 13 - - - 34 - - - Geändert wer: - - - CHANGED_WHOLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 5 - - - False - - - True - - - 803, 481 - - - 85, 13 - - - 35 - - - Geändert wann: - - - CHANGED_WHENLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 3 - - - False - - - True - - - 586, 70 - - - 61, 13 - - - 36 - - - Rel Object: - - - OBJ_NAMELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 1 - Neue Vorlage + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m @@ -916,6 +465,7 @@ 0, 158 + True @@ -1302,383 +852,477 @@ 17, 56 - - False + + 98, 12 - - 999, 89 + + N0 - - 56, 24 + + Numeric - - 38 + + True - - Intern + + 60, 20 - - INTERNALCheckBox + + 4 - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TextEdit1 - - XtraTabPage2 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 0 + + DataLayoutControl2 - - 671, 65 + + 4 - - 375, 21 + + 98, 60 - - 37 + + 60, 20 - - OBJ_NAMETextBox + + 5 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + MODULETextEdit - - XtraTabPage2 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 2 + + DataLayoutControl2 + + + 5 - - 933, 478 + + 248, 36 - - 113, 21 + + 212, 20 - - 36 + + 6 - - CHANGED_WHENTextBox1 + + TextEdit2 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - XtraTabPage2 + + DataLayoutControl2 - - 4 + + 6 - - 671, 478 + + 248, 60 - - 116, 21 + + 212, 20 - - 35 + + 7 - - CHANGED_WHOTextBox1 + + LANGUAGETextEdit - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - XtraTabPage2 + + DataLayoutControl2 - - 6 + + 7 - - 933, 454 + + 98, 36 - - 113, 21 + + 60, 20 - - 34 + + 8 - - ADDED_WHENTextBox1 + + CAPT_TYPETextEdit - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - XtraTabPage2 + + DataLayoutControl2 - + 8 - - 671, 454 + + 98, 84 + + + 362, 20 - - 116, 21 + + 9 - - 33 + + STRING1TextEdit - - ADDED_WHOTextBox1 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DataLayoutControl2 - - XtraTabPage2 + + 9 - + + 98, 108 + + + 362, 20 + + 10 - - 671, 427 + + STRING2TextEdit + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 375, 21 + + DataLayoutControl2 - - 32 + + 10 - - STRING6TextBox + + 98, 132 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 362, 20 - - XtraTabPage2 + + 11 + + + STRING3TextEdit + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DataLayoutControl2 + + + 11 - + + 98, 156 + + + 362, 20 + + 12 - - 671, 400 + + STRING4TextEdit - - 375, 21 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 31 + + DataLayoutControl2 - - STRING5TextBox + + 12 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 98, 180 - - XtraTabPage2 + + 362, 20 - + + 13 + + + STRING5TextEdit + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DataLayoutControl2 + + + 13 + + + 98, 204 + + + 362, 20 + + 14 - - 671, 373 + + STRING6TextEdit - - 375, 21 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 30 + + DataLayoutControl2 - - STRING4TextBox + + 14 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 98, 228 - - XtraTabPage2 + + 362, 20 - + + 15 + + + TextEdit3 + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DataLayoutControl2 + + + 15 + + + False + + + 98, 252 + + + d + + + DateTime + + + 362, 20 + + 16 - - 671, 346 + + ADDED_WHENTextEdit - - 375, 21 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 29 + + DataLayoutControl2 - - STRING3TextBox + + 16 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 98, 276 - - XtraTabPage2 + + 438, 20 - - 18 + + 17 - - Top, Left, Right + + TextEdit4 - - 671, 253 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - True + + DataLayoutControl2 - - 375, 87 + + 17 - - 28 + + False - - STRING2TextBox + + 98, 300 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + d - - XtraTabPage2 + + DateTime - - 20 + + 438, 20 - - Top, Left, Right + + 18 - - 671, 148 + + CHANGED_WHENTextEdit - - True + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 375, 99 + + DataLayoutControl2 - - 27 + + 18 - - STRING1TextBox + + 248, 12 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 212, 20 - - XtraTabPage2 + + 19 - - 22 + + OBJ_NAMETextEdit - - Button + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Caption Validator Control + + DataLayoutControl2 - - Information + + 19 - - Msgbox + + 464, 12 - - MsgboxResult + + intern - - 671, 120 + + + Default - - 217, 21 + + 72, 20 - - 26 + + 20 - - CAPT_TYPEComboBox + + INTERNALCheckEdit - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - XtraTabPage2 + + DataLayoutControl2 - - 24 + + 20 - - de-DE + + Fill - - en-US + + 509, 0 - - fr-FR + + ID - - 671, 92 + + Modul - - 217, 21 + + String1 - - 25 + + String2 - - LANGUAGEComboBox + + String3 - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + String4 - - XtraTabPage2 + + String5 + + + String6 - - 26 + + Erstellt wer + + + Erstellt wann - - 671, 39 + + Geändert wer - - 375, 21 + + Geändert wann - - 24 + + Object - - TITLETextBox1 + + Typ - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Titel - - XtraTabPage2 + + Language - - 28 + + INTERNAL - - 671, 12 + + INTERNAL - - 77, 21 + + 548, 508 - + 22 - - GUIDTextBox1 + + DataLayoutControl2 + + + DataLayoutControl2 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - + XtraTabPage2 - - 30 + + 0 Left @@ -1726,7 +1370,7 @@ 3 - 580, 508 + 509, 508 21 @@ -1741,7 +1385,7 @@ XtraTabPage2 - 31 + 1 1057, 508 @@ -1967,18 +1611,18 @@ DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ItemForADDED_WHEN - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - ItemForCHANGED_WHO DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ItemForADDED_WHEN + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ItemForCHANGED_WHEN @@ -2063,6 +1707,120 @@ DevExpress.XtraLayout.Converter.LayoutConverter, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + LayoutControlGroup2 + + + DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlGroup3 + + + DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem1 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForMODULE + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem2 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForLANGUAGE + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForCAPT_TYPE + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForSTRING1 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForSTRING2 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForSTRING3 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForSTRING4 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForSTRING5 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForSTRING6 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem3 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem4 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem5 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem6 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForOBJ_NAME + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForINTERNAL + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmAdmin2 diff --git a/app/DD_PM_WINDREAM/frmAdmin2.vb b/app/DD_PM_WINDREAM/frmAdmin2.vb index cb3c96d..2f1a3b5 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.vb @@ -9,6 +9,18 @@ Public Class frmAdmin2 Private Sub frmAdmin2_Load(sender As Object, e As EventArgs) Handles MyBase.Load Load_Email_template() Load_Gui_Phrases() + Try + Dim Filename As String = String.Format("DevExLayoutAdmin2_Email.xml") + Dim xml As String = System.IO.Path.Combine(Application.UserAppDataPath(), Filename) + If File.Exists(xml) Then + DataLayoutControl1.RestoreLayoutFromXml(xml) + End If + + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info("Error while restoring layout 1: " & ex.Message) + End Try + End Sub Sub Status_Changed(text As String) labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always @@ -103,7 +115,7 @@ Public Class frmAdmin2 Try Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.EndEdit() If Not IsNothing(DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE.GetChanges) Then - Me.CHANGED_WHOTextBox1.Text = USER_USERNAME + Me.TextEdit4.Text = USER_USERNAME Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.EndEdit() Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.Update(DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE) Status_Changed("Phrase saved!") @@ -127,13 +139,13 @@ Public Class frmAdmin2 DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE.ADDED_WHOColumn.DefaultValue = USER_USERNAME End Sub - Private Sub INTERNALCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles INTERNALCheckBox.CheckedChanged - If INTERNALCheckBox.Checked Then - TITLETextBox1.ReadOnly = True - OBJ_NAMETextBox.ReadOnly = True + Private Sub INTERNALCheckBox_CheckedChanged(sender As Object, e As EventArgs) + If INTERNALCheckEdit.Checked Then + TextEdit2.ReadOnly = True + OBJ_NAMETextEdit.ReadOnly = True Else - TITLETextBox1.ReadOnly = False - OBJ_NAMETextBox.ReadOnly = False + TextEdit2.ReadOnly = False + OBJ_NAMETextEdit.ReadOnly = False End If End Sub @@ -154,10 +166,9 @@ Public Class frmAdmin2 Try Dim Filename As String = String.Format("DevExLayoutAdmin2_Email.xml") Dim xml As String = System.IO.Path.Combine(Application.UserAppDataPath(), Filename) - If File.Exists(xml) Then - DataLayoutControl1.SaveLayoutToXml(xml) - - End If + 'If File.Exists(xml) Then + DataLayoutControl1.SaveLayoutToXml(xml) + 'End If Catch ex As Exception LOGGER.Error(ex) diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index 7725ca3..1e5987b 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -2573,7 +2573,7 @@ 6 - 627, 302 + 627, 305 93 @@ -2600,7 +2600,7 @@ 627, 0 - 323, 302 + 323, 305 91 @@ -2621,7 +2621,7 @@ 3, 166 - 950, 302 + 950, 305 94 diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout.vb b/app/DD_PM_WINDREAM/frmDesignerLayout.vb index 77677b0..731eb98 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout.vb +++ b/app/DD_PM_WINDREAM/frmDesignerLayout.vb @@ -21,6 +21,6 @@ End Sub Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick - LayoutControl1.sa + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index b1340a5..d578db8 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -107,8 +107,6 @@ Partial Class frmMain Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) @@ -569,7 +567,7 @@ Partial Class frmMain resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") Me.RibbonControl1.MaxItemId = 16 Me.RibbonControl1.Name = "RibbonControl1" - Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3}) + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.QuickToolbarItemLinks.Add(Me.bbtnitemInfo) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 @@ -729,17 +727,6 @@ Partial Class frmMain Me.RibbonPageGroup4.Name = "RibbonPageGroup4" resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4") ' - 'RibbonPage3 - ' - Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup5}) - Me.RibbonPage3.Name = "RibbonPage3" - resources.ApplyResources(Me.RibbonPage3, "RibbonPage3") - ' - 'RibbonPageGroup5 - ' - Me.RibbonPageGroup5.Name = "RibbonPageGroup5" - resources.ApplyResources(Me.RibbonPageGroup5, "RibbonPageGroup5") - ' 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUser) @@ -905,6 +892,4 @@ Partial Class frmMain Friend WithEvents bsiMessage As DevExpress.XtraBars.BarStaticItem Friend WithEvents CMFileMetadata As ToolStripMenuItem Friend WithEvents bbtniMetadataFile As DevExpress.XtraBars.BarButtonItem - Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup End Class diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 1e423a4..652e5e3 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -488,7 +488,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAVwBBQFcAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAWQBBQFkAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -1621,12 +1621,6 @@ Funktionen - - RibbonPageGroup5 - - - RibbonPage3 - 1023, 158 @@ -2240,18 +2234,6 @@ DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - RibbonPage3 - - - DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - RibbonPageGroup5 - - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - RibbonPage2 diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 6a7c36c..b1432a8 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -73,6 +73,12 @@ Public Class frmMain End Sub Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Environment.UserName.ToLower = "schreiberm" Or Environment.UserName.ToLower = "jennej" Or Environment.UserName.ToLower = "marschreiber" Then + bbtniMetadataFile.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Else + bbtniMetadataFile.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End If + formopenClose = True LOGGER.Debug("Initializing MainForm....") @@ -1217,9 +1223,9 @@ Public Class frmMain CURRENT_ProfilGUID = oProfileId CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID)) CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID)) - CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("PM_VEKTOR_INDEX") - If CURRENT_PROFILE_VEKTOR_LOG = "" Then - CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("LOG_INDEX") + CURRENT_PROFILE_LOG_INDEX = CURRENT_DT_PROFILE.Rows(0).Item("PM_VEKTOR_INDEX") + If CURRENT_PROFILE_LOG_INDEX = "" Then + CURRENT_PROFILE_LOG_INDEX = CURRENT_DT_PROFILE.Rows(0).Item("LOG_INDEX") End If diff --git a/app/DD_PM_WINDREAM/frmMassValidator.vb b/app/DD_PM_WINDREAM/frmMassValidator.vb index ede49e1..cbb1f03 100644 --- a/app/DD_PM_WINDREAM/frmMassValidator.vb +++ b/app/DD_PM_WINDREAM/frmMassValidator.vb @@ -83,6 +83,7 @@ Public Class frmMassValidator For Each dr In CURRENT_DT_PROFILE.Rows PROFIL_VEKTORINDEX = dr.Item("PM_VEKTOR_INDEX") PROFIL_LOGINDEX = dr.Item("LOG_INDEX") + CURRENT_PROFILE_LOG_INDEX = PROFIL_LOGINDEX Me.Text = "Process Manager - " & dr.Item("TITLE") TITLELabel1.Text = dr.Item("TITLE") DESCRIPTIONLabel.Text = IIf(IsDBNull(dr.Item("DESCRIPTION")), "", dr.Item("DESCRIPTION")) diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 261cd5c..ba8a228 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -165,6 +165,7 @@ Public Class frmValidator PROFIL_FINISH_SQL = oProfileRow.Item("SQL_BTN_FINISH") PROFIL_VEKTORINDEX = oProfileRow.Item("PM_VEKTOR_INDEX") PROFIL_LOGINDEX = oProfileRow.Item("LOG_INDEX") + CURRENT_PROFILE_LOG_INDEX = PROFIL_LOGINDEX Me.Text = "Process Manager - " & oProfileRow.Item("TITLE") TITLELabel1.Text = oProfileRow.Item("TITLE") From 2c7f90416a5b1cdffc31d56d10fd6c07765d251c Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 16 Jan 2020 15:53:59 +0100 Subject: [PATCH 07/26] MS --- app/DD_PM_WINDREAM/frmAdmin2.Designer.vb | 705 ++++++++++++----------- app/DD_PM_WINDREAM/frmAdmin2.resx | 360 ++++++------ app/DD_PM_WINDREAM/frmAdmin2.vb | 18 +- 3 files changed, 536 insertions(+), 547 deletions(-) diff --git a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb index d943780..f387bba 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb @@ -50,9 +50,7 @@ Partial Class frmAdmin2 Me.TITLETextEdit = New DevExpress.XtraEditors.TextEdit() Me.EMAIL_BODY3TextEdit = New DevExpress.XtraEditors.TextEdit() Me.ADDED_WHOTextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ADDED_WHENDateEdit = New DevExpress.XtraEditors.DateEdit() Me.CHANGED_WHOTextEdit = New DevExpress.XtraEditors.TextEdit() - Me.CHANGED_WHENDateEdit = New DevExpress.XtraEditors.DateEdit() Me.EMAIL_BODY1TextEdit = New DevExpress.XtraEditors.MemoEdit() Me.EMAIL_BODY2TextEdit = New DevExpress.XtraEditors.MemoEdit() Me.EMAIL_SUBJECTTextEdit = New DevExpress.XtraEditors.TextEdit() @@ -73,54 +71,56 @@ Partial Class frmAdmin2 Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() - Me.GridControl2 = New DevExpress.XtraGrid.GridControl() - Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.TBDD_EMAIL_TEMPLATETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter() - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter() - Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components) Me.DataLayoutControl2 = New DevExpress.XtraDataLayout.DataLayoutControl() - Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() - Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup() Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.MODULETextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForMODULE = New DevExpress.XtraLayout.LayoutControlItem() Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() Me.LANGUAGETextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForLANGUAGE = New DevExpress.XtraLayout.LayoutControlItem() Me.CAPT_TYPETextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForCAPT_TYPE = New DevExpress.XtraLayout.LayoutControlItem() Me.STRING1TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForSTRING1 = New DevExpress.XtraLayout.LayoutControlItem() Me.STRING2TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForSTRING2 = New DevExpress.XtraLayout.LayoutControlItem() Me.STRING3TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForSTRING3 = New DevExpress.XtraLayout.LayoutControlItem() Me.STRING4TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForSTRING4 = New DevExpress.XtraLayout.LayoutControlItem() Me.STRING5TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForSTRING5 = New DevExpress.XtraLayout.LayoutControlItem() Me.STRING6TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForSTRING6 = New DevExpress.XtraLayout.LayoutControlItem() Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() Me.ADDED_WHENTextEdit = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() Me.CHANGED_WHENTextEdit = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() Me.OBJ_NAMETextEdit = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForMODULE = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForSTRING1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForSTRING2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForSTRING3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForSTRING4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForSTRING5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForSTRING6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() Me.ItemForOBJ_NAME = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForCAPT_TYPE = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForLANGUAGE = New DevExpress.XtraLayout.LayoutControlItem() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.TBDD_EMAIL_TEMPLATETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter() + Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter() + Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components) + Me.ADDED_WHENDateEdit = New DevExpress.XtraEditors.TextEdit() + Me.CHANGED_WHENDateEdit = New DevExpress.XtraEditors.TextEdit() Me.INTERNALCheckEdit = New DevExpress.XtraEditors.CheckEdit() - Me.ItemForINTERNAL = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() @@ -133,11 +133,7 @@ Partial Class frmAdmin2 CType(Me.TITLETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EMAIL_BODY3TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ADDED_WHOTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ADDED_WHENDateEdit.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ADDED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CHANGED_WHOTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.CHANGED_WHENDateEdit.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.CHANGED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EMAIL_BODY1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EMAIL_BODY2TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EMAIL_SUBJECTTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() @@ -156,47 +152,49 @@ Partial Class frmAdmin2 CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPage2.SuspendLayout() - CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataLayoutControl2, System.ComponentModel.ISupportInitialize).BeginInit() Me.DataLayoutControl2.SuspendLayout() - CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MODULETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForMODULE, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LANGUAGETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForLANGUAGE, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForCAPT_TYPE, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForSTRING1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForSTRING2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForSTRING3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForSTRING4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING5TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForSTRING5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING6TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForSTRING6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ADDED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CHANGED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.OBJ_NAMETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForMODULE, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForOBJ_NAME, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForCAPT_TYPE, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForLANGUAGE, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ADDED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.INTERNALCheckEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForINTERNAL, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 @@ -362,12 +360,12 @@ Partial Class frmAdmin2 Me.DataLayoutControl1.Controls.Add(Me.TITLETextEdit) Me.DataLayoutControl1.Controls.Add(Me.EMAIL_BODY3TextEdit) Me.DataLayoutControl1.Controls.Add(Me.ADDED_WHOTextEdit) - Me.DataLayoutControl1.Controls.Add(Me.ADDED_WHENDateEdit) Me.DataLayoutControl1.Controls.Add(Me.CHANGED_WHOTextEdit) - Me.DataLayoutControl1.Controls.Add(Me.CHANGED_WHENDateEdit) Me.DataLayoutControl1.Controls.Add(Me.EMAIL_BODY1TextEdit) Me.DataLayoutControl1.Controls.Add(Me.EMAIL_BODY2TextEdit) Me.DataLayoutControl1.Controls.Add(Me.EMAIL_SUBJECTTextEdit) + Me.DataLayoutControl1.Controls.Add(Me.ADDED_WHENDateEdit) + Me.DataLayoutControl1.Controls.Add(Me.CHANGED_WHENDateEdit) Me.DataLayoutControl1.DataSource = Me.TBDD_EMAIL_TEMPLATEBindingSource Me.DataLayoutControl1.Name = "DataLayoutControl1" Me.DataLayoutControl1.Root = Me.Root @@ -421,18 +419,6 @@ Partial Class frmAdmin2 Me.ADDED_WHOTextEdit.Properties.ReadOnly = True Me.ADDED_WHOTextEdit.StyleController = Me.DataLayoutControl1 ' - 'ADDED_WHENDateEdit - ' - Me.ADDED_WHENDateEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENDateEdit, "ADDED_WHENDateEdit") - Me.ADDED_WHENDateEdit.MenuManager = Me.RibbonControl1 - Me.ADDED_WHENDateEdit.Name = "ADDED_WHENDateEdit" - Me.ADDED_WHENDateEdit.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ADDED_WHENDateEdit.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) - Me.ADDED_WHENDateEdit.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ADDED_WHENDateEdit.Properties.CalendarTimeProperties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) - Me.ADDED_WHENDateEdit.Properties.Mask.EditMask = resources.GetString("ADDED_WHENDateEdit.Properties.Mask.EditMask") - Me.ADDED_WHENDateEdit.Properties.ReadOnly = True - Me.ADDED_WHENDateEdit.StyleController = Me.DataLayoutControl1 - ' 'CHANGED_WHOTextEdit ' Me.CHANGED_WHOTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHO", True)) @@ -442,17 +428,6 @@ Partial Class frmAdmin2 Me.CHANGED_WHOTextEdit.Properties.ReadOnly = True Me.CHANGED_WHOTextEdit.StyleController = Me.DataLayoutControl1 ' - 'CHANGED_WHENDateEdit - ' - Me.CHANGED_WHENDateEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENDateEdit, "CHANGED_WHENDateEdit") - Me.CHANGED_WHENDateEdit.MenuManager = Me.RibbonControl1 - Me.CHANGED_WHENDateEdit.Name = "CHANGED_WHENDateEdit" - Me.CHANGED_WHENDateEdit.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("CHANGED_WHENDateEdit.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) - Me.CHANGED_WHENDateEdit.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("CHANGED_WHENDateEdit.Properties.CalendarTimeProperties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) - Me.CHANGED_WHENDateEdit.Properties.ReadOnly = True - Me.CHANGED_WHENDateEdit.StyleController = Me.DataLayoutControl1 - ' 'EMAIL_BODY1TextEdit ' Me.EMAIL_BODY1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY1", True)) @@ -627,83 +602,6 @@ Partial Class frmAdmin2 Me.XtraTabPage2.Controls.Add(Me.GridControl2) Me.XtraTabPage2.Name = "XtraTabPage2" ' - 'GridControl2 - ' - Me.GridControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource - resources.ApplyResources(Me.GridControl2, "GridControl2") - Me.GridControl2.MainView = Me.GridView2 - Me.GridControl2.MenuManager = Me.RibbonControl1 - Me.GridControl2.Name = "GridControl2" - Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) - ' - 'TBDD_GUI_LANGUAGE_PHRASEBindingSource - ' - Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataMember = "TBDD_GUI_LANGUAGE_PHRASE" - Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' - 'GridView2 - ' - Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.PeachPuff - Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True - Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn5, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4}) - 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.Editable = False - Me.GridView2.OptionsBehavior.ReadOnly = True - Me.GridView2.OptionsView.EnableAppearanceEvenRow = True - Me.GridView2.OptionsView.ShowAutoFilterRow = True - ' - 'GridColumn5 - ' - resources.ApplyResources(Me.GridColumn5, "GridColumn5") - Me.GridColumn5.FieldName = "OBJ_NAME" - Me.GridColumn5.Name = "GridColumn5" - ' - 'GridColumn2 - ' - resources.ApplyResources(Me.GridColumn2, "GridColumn2") - Me.GridColumn2.FieldName = "TITLE" - Me.GridColumn2.Name = "GridColumn2" - ' - 'GridColumn3 - ' - resources.ApplyResources(Me.GridColumn3, "GridColumn3") - Me.GridColumn3.FieldName = "CAPT_TYPE" - Me.GridColumn3.Name = "GridColumn3" - ' - 'GridColumn4 - ' - resources.ApplyResources(Me.GridColumn4, "GridColumn4") - Me.GridColumn4.FieldName = "LANGUAGE" - Me.GridColumn4.Name = "GridColumn4" - ' - 'TBDD_EMAIL_TEMPLATETableAdapter - ' - Me.TBDD_EMAIL_TEMPLATETableAdapter.ClearBeforeFill = True - ' - 'TableAdapterManager - ' - Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing - Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Me.TBDD_EMAIL_TEMPLATETableAdapter - Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing - Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing - Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing - Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing - Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete - ' - 'TBDD_GUI_LANGUAGE_PHRASETableAdapter - ' - Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.ClearBeforeFill = True - ' 'DataLayoutControl2 ' Me.DataLayoutControl2.Controls.Add(Me.TextEdit1) @@ -729,24 +627,6 @@ Partial Class frmAdmin2 Me.DataLayoutControl2.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(3190, 411, 650, 400) Me.DataLayoutControl2.Root = Me.LayoutControlGroup2 ' - 'LayoutControlGroup2 - ' - Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] - Me.LayoutControlGroup2.GroupBordersVisible = False - Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup3}) - Me.LayoutControlGroup2.Name = "Root" - Me.LayoutControlGroup2.Size = New System.Drawing.Size(548, 508) - Me.LayoutControlGroup2.TextVisible = False - ' - 'LayoutControlGroup3 - ' - Me.LayoutControlGroup3.AllowDrawBackground = False - Me.LayoutControlGroup3.GroupBordersVisible = False - Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.ItemForMODULE, Me.ItemForSTRING1, Me.ItemForSTRING2, Me.ItemForSTRING3, Me.ItemForSTRING4, Me.ItemForSTRING5, Me.ItemForSTRING6, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.ItemForOBJ_NAME, Me.ItemForCAPT_TYPE, Me.LayoutControlItem2, Me.ItemForLANGUAGE, Me.ItemForINTERNAL}) - Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 0) - Me.LayoutControlGroup3.Name = "autoGeneratedGroup0" - Me.LayoutControlGroup3.Size = New System.Drawing.Size(528, 488) - ' 'TextEdit1 ' Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "GUID", True)) @@ -760,15 +640,10 @@ Partial Class frmAdmin2 Me.TextEdit1.Properties.Mask.UseMaskAsDisplayFormat = CType(resources.GetObject("TextEdit1.Properties.Mask.UseMaskAsDisplayFormat"), Boolean) Me.TextEdit1.StyleController = Me.DataLayoutControl2 ' - 'LayoutControlItem1 + 'TBDD_GUI_LANGUAGE_PHRASEBindingSource ' - Me.LayoutControlItem1.Control = Me.TextEdit1 - Me.LayoutControlItem1.Enabled = False - Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) - Me.LayoutControlItem1.Name = "ItemForGUID" - Me.LayoutControlItem1.Size = New System.Drawing.Size(150, 24) - resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1") - Me.LayoutControlItem1.TextSize = New System.Drawing.Size(74, 13) + Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataMember = "TBDD_GUI_LANGUAGE_PHRASE" + Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataSource = Me.DD_DMSLiteDataSet ' 'MODULETextEdit ' @@ -778,15 +653,6 @@ Partial Class frmAdmin2 Me.MODULETextEdit.Name = "MODULETextEdit" Me.MODULETextEdit.StyleController = Me.DataLayoutControl2 ' - 'ItemForMODULE - ' - Me.ItemForMODULE.Control = Me.MODULETextEdit - Me.ItemForMODULE.Location = New System.Drawing.Point(0, 48) - Me.ItemForMODULE.Name = "ItemForMODULE" - Me.ItemForMODULE.Size = New System.Drawing.Size(150, 24) - resources.ApplyResources(Me.ItemForMODULE, "ItemForMODULE") - Me.ItemForMODULE.TextSize = New System.Drawing.Size(74, 13) - ' 'TextEdit2 ' Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "TITLE", True)) @@ -795,15 +661,6 @@ Partial Class frmAdmin2 Me.TextEdit2.Name = "TextEdit2" Me.TextEdit2.StyleController = Me.DataLayoutControl2 ' - 'LayoutControlItem2 - ' - Me.LayoutControlItem2.Control = Me.TextEdit2 - Me.LayoutControlItem2.Location = New System.Drawing.Point(150, 24) - Me.LayoutControlItem2.Name = "ItemForTITLE" - Me.LayoutControlItem2.Size = New System.Drawing.Size(302, 24) - resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2") - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(74, 13) - ' 'LANGUAGETextEdit ' Me.LANGUAGETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "LANGUAGE", True)) @@ -812,15 +669,6 @@ Partial Class frmAdmin2 Me.LANGUAGETextEdit.Name = "LANGUAGETextEdit" Me.LANGUAGETextEdit.StyleController = Me.DataLayoutControl2 ' - 'ItemForLANGUAGE - ' - Me.ItemForLANGUAGE.Control = Me.LANGUAGETextEdit - Me.ItemForLANGUAGE.Location = New System.Drawing.Point(150, 48) - Me.ItemForLANGUAGE.Name = "ItemForLANGUAGE" - Me.ItemForLANGUAGE.Size = New System.Drawing.Size(302, 24) - resources.ApplyResources(Me.ItemForLANGUAGE, "ItemForLANGUAGE") - Me.ItemForLANGUAGE.TextSize = New System.Drawing.Size(74, 13) - ' 'CAPT_TYPETextEdit ' Me.CAPT_TYPETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CAPT_TYPE", True)) @@ -829,16 +677,7 @@ Partial Class frmAdmin2 Me.CAPT_TYPETextEdit.Name = "CAPT_TYPETextEdit" Me.CAPT_TYPETextEdit.StyleController = Me.DataLayoutControl2 ' - 'ItemForCAPT_TYPE - ' - Me.ItemForCAPT_TYPE.Control = Me.CAPT_TYPETextEdit - Me.ItemForCAPT_TYPE.Location = New System.Drawing.Point(0, 24) - Me.ItemForCAPT_TYPE.Name = "ItemForCAPT_TYPE" - Me.ItemForCAPT_TYPE.Size = New System.Drawing.Size(150, 24) - resources.ApplyResources(Me.ItemForCAPT_TYPE, "ItemForCAPT_TYPE") - Me.ItemForCAPT_TYPE.TextSize = New System.Drawing.Size(74, 13) - ' - 'STRING1TextEdit + 'STRING1TextEdit ' Me.STRING1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True)) resources.ApplyResources(Me.STRING1TextEdit, "STRING1TextEdit") @@ -846,15 +685,6 @@ Partial Class frmAdmin2 Me.STRING1TextEdit.Name = "STRING1TextEdit" Me.STRING1TextEdit.StyleController = Me.DataLayoutControl2 ' - 'ItemForSTRING1 - ' - Me.ItemForSTRING1.Control = Me.STRING1TextEdit - Me.ItemForSTRING1.Location = New System.Drawing.Point(0, 72) - Me.ItemForSTRING1.Name = "ItemForSTRING1" - Me.ItemForSTRING1.Size = New System.Drawing.Size(452, 24) - resources.ApplyResources(Me.ItemForSTRING1, "ItemForSTRING1") - Me.ItemForSTRING1.TextSize = New System.Drawing.Size(74, 13) - ' 'STRING2TextEdit ' Me.STRING2TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True)) @@ -863,15 +693,6 @@ Partial Class frmAdmin2 Me.STRING2TextEdit.Name = "STRING2TextEdit" Me.STRING2TextEdit.StyleController = Me.DataLayoutControl2 ' - 'ItemForSTRING2 - ' - Me.ItemForSTRING2.Control = Me.STRING2TextEdit - Me.ItemForSTRING2.Location = New System.Drawing.Point(0, 96) - Me.ItemForSTRING2.Name = "ItemForSTRING2" - Me.ItemForSTRING2.Size = New System.Drawing.Size(452, 24) - resources.ApplyResources(Me.ItemForSTRING2, "ItemForSTRING2") - Me.ItemForSTRING2.TextSize = New System.Drawing.Size(74, 13) - ' 'STRING3TextEdit ' Me.STRING3TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING3", True)) @@ -880,15 +701,6 @@ Partial Class frmAdmin2 Me.STRING3TextEdit.Name = "STRING3TextEdit" Me.STRING3TextEdit.StyleController = Me.DataLayoutControl2 ' - 'ItemForSTRING3 - ' - Me.ItemForSTRING3.Control = Me.STRING3TextEdit - Me.ItemForSTRING3.Location = New System.Drawing.Point(0, 120) - Me.ItemForSTRING3.Name = "ItemForSTRING3" - Me.ItemForSTRING3.Size = New System.Drawing.Size(452, 24) - resources.ApplyResources(Me.ItemForSTRING3, "ItemForSTRING3") - Me.ItemForSTRING3.TextSize = New System.Drawing.Size(74, 13) - ' 'STRING4TextEdit ' Me.STRING4TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING4", True)) @@ -897,15 +709,6 @@ Partial Class frmAdmin2 Me.STRING4TextEdit.Name = "STRING4TextEdit" Me.STRING4TextEdit.StyleController = Me.DataLayoutControl2 ' - 'ItemForSTRING4 - ' - Me.ItemForSTRING4.Control = Me.STRING4TextEdit - Me.ItemForSTRING4.Location = New System.Drawing.Point(0, 144) - Me.ItemForSTRING4.Name = "ItemForSTRING4" - Me.ItemForSTRING4.Size = New System.Drawing.Size(452, 24) - resources.ApplyResources(Me.ItemForSTRING4, "ItemForSTRING4") - Me.ItemForSTRING4.TextSize = New System.Drawing.Size(74, 13) - ' 'STRING5TextEdit ' Me.STRING5TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING5", True)) @@ -914,15 +717,6 @@ Partial Class frmAdmin2 Me.STRING5TextEdit.Name = "STRING5TextEdit" Me.STRING5TextEdit.StyleController = Me.DataLayoutControl2 ' - 'ItemForSTRING5 - ' - Me.ItemForSTRING5.Control = Me.STRING5TextEdit - Me.ItemForSTRING5.Location = New System.Drawing.Point(0, 168) - Me.ItemForSTRING5.Name = "ItemForSTRING5" - Me.ItemForSTRING5.Size = New System.Drawing.Size(452, 24) - resources.ApplyResources(Me.ItemForSTRING5, "ItemForSTRING5") - Me.ItemForSTRING5.TextSize = New System.Drawing.Size(74, 13) - ' 'STRING6TextEdit ' Me.STRING6TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING6", True)) @@ -931,15 +725,6 @@ Partial Class frmAdmin2 Me.STRING6TextEdit.Name = "STRING6TextEdit" Me.STRING6TextEdit.StyleController = Me.DataLayoutControl2 ' - 'ItemForSTRING6 - ' - Me.ItemForSTRING6.Control = Me.STRING6TextEdit - Me.ItemForSTRING6.Location = New System.Drawing.Point(0, 192) - Me.ItemForSTRING6.Name = "ItemForSTRING6" - Me.ItemForSTRING6.Size = New System.Drawing.Size(452, 24) - resources.ApplyResources(Me.ItemForSTRING6, "ItemForSTRING6") - Me.ItemForSTRING6.TextSize = New System.Drawing.Size(74, 13) - ' 'TextEdit3 ' Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "ADDED_WHO", True)) @@ -949,15 +734,6 @@ Partial Class frmAdmin2 Me.TextEdit3.Properties.ReadOnly = True Me.TextEdit3.StyleController = Me.DataLayoutControl2 ' - 'LayoutControlItem3 - ' - Me.LayoutControlItem3.Control = Me.TextEdit3 - Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 216) - Me.LayoutControlItem3.Name = "ItemForADDED_WHO" - Me.LayoutControlItem3.Size = New System.Drawing.Size(452, 24) - resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3") - Me.LayoutControlItem3.TextSize = New System.Drawing.Size(74, 13) - ' 'ADDED_WHENTextEdit ' Me.ADDED_WHENTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "ADDED_WHEN", True)) @@ -973,15 +749,6 @@ Partial Class frmAdmin2 Me.ADDED_WHENTextEdit.Properties.ReadOnly = True Me.ADDED_WHENTextEdit.StyleController = Me.DataLayoutControl2 ' - 'LayoutControlItem4 - ' - Me.LayoutControlItem4.Control = Me.ADDED_WHENTextEdit - Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 240) - Me.LayoutControlItem4.Name = "ItemForADDED_WHEN" - Me.LayoutControlItem4.Size = New System.Drawing.Size(452, 24) - resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4") - Me.LayoutControlItem4.TextSize = New System.Drawing.Size(74, 13) - ' 'TextEdit4 ' Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHO", True)) @@ -991,15 +758,6 @@ Partial Class frmAdmin2 Me.TextEdit4.Properties.ReadOnly = True Me.TextEdit4.StyleController = Me.DataLayoutControl2 ' - 'LayoutControlItem5 - ' - Me.LayoutControlItem5.Control = Me.TextEdit4 - Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 264) - Me.LayoutControlItem5.Name = "ItemForCHANGED_WHO" - Me.LayoutControlItem5.Size = New System.Drawing.Size(528, 24) - resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5") - Me.LayoutControlItem5.TextSize = New System.Drawing.Size(74, 13) - ' 'CHANGED_WHENTextEdit ' Me.CHANGED_WHENTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHEN", True)) @@ -1015,15 +773,6 @@ Partial Class frmAdmin2 Me.CHANGED_WHENTextEdit.Properties.ReadOnly = True Me.CHANGED_WHENTextEdit.StyleController = Me.DataLayoutControl2 ' - 'LayoutControlItem6 - ' - Me.LayoutControlItem6.Control = Me.CHANGED_WHENTextEdit - Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 288) - Me.LayoutControlItem6.Name = "ItemForCHANGED_WHEN" - Me.LayoutControlItem6.Size = New System.Drawing.Size(528, 200) - resources.ApplyResources(Me.LayoutControlItem6, "LayoutControlItem6") - Me.LayoutControlItem6.TextSize = New System.Drawing.Size(74, 13) - ' 'OBJ_NAMETextEdit ' Me.OBJ_NAMETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "OBJ_NAME", True)) @@ -1032,34 +781,288 @@ Partial Class frmAdmin2 Me.OBJ_NAMETextEdit.Name = "OBJ_NAMETextEdit" Me.OBJ_NAMETextEdit.StyleController = Me.DataLayoutControl2 ' + 'LayoutControlGroup2 + ' + Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup2.GroupBordersVisible = False + Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup3}) + Me.LayoutControlGroup2.Name = "Root" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(548, 508) + Me.LayoutControlGroup2.TextVisible = False + ' + 'LayoutControlGroup3 + ' + Me.LayoutControlGroup3.AllowDrawBackground = False + Me.LayoutControlGroup3.GroupBordersVisible = False + Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.ItemForMODULE, Me.ItemForSTRING1, Me.ItemForSTRING2, Me.ItemForSTRING3, Me.ItemForSTRING4, Me.ItemForSTRING5, Me.ItemForSTRING6, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.ItemForCAPT_TYPE, Me.LayoutControlItem2, Me.ItemForLANGUAGE, Me.LayoutControlItem7, Me.ItemForOBJ_NAME}) + Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlGroup3.Name = "autoGeneratedGroup0" + Me.LayoutControlGroup3.Size = New System.Drawing.Size(528, 488) + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEdit1 + Me.LayoutControlItem1.Enabled = False + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "ItemForGUID" + Me.LayoutControlItem1.Size = New System.Drawing.Size(150, 24) + resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1") + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForMODULE + ' + Me.ItemForMODULE.Control = Me.MODULETextEdit + Me.ItemForMODULE.Location = New System.Drawing.Point(0, 72) + Me.ItemForMODULE.Name = "ItemForMODULE" + Me.ItemForMODULE.Size = New System.Drawing.Size(150, 24) + resources.ApplyResources(Me.ItemForMODULE, "ItemForMODULE") + Me.ItemForMODULE.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForSTRING1 + ' + Me.ItemForSTRING1.Control = Me.STRING1TextEdit + Me.ItemForSTRING1.Location = New System.Drawing.Point(0, 96) + Me.ItemForSTRING1.Name = "ItemForSTRING1" + Me.ItemForSTRING1.Size = New System.Drawing.Size(528, 24) + resources.ApplyResources(Me.ItemForSTRING1, "ItemForSTRING1") + Me.ItemForSTRING1.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForSTRING2 + ' + Me.ItemForSTRING2.Control = Me.STRING2TextEdit + Me.ItemForSTRING2.Location = New System.Drawing.Point(0, 120) + Me.ItemForSTRING2.Name = "ItemForSTRING2" + Me.ItemForSTRING2.Size = New System.Drawing.Size(528, 24) + resources.ApplyResources(Me.ItemForSTRING2, "ItemForSTRING2") + Me.ItemForSTRING2.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForSTRING3 + ' + Me.ItemForSTRING3.Control = Me.STRING3TextEdit + Me.ItemForSTRING3.Location = New System.Drawing.Point(0, 144) + Me.ItemForSTRING3.Name = "ItemForSTRING3" + Me.ItemForSTRING3.Size = New System.Drawing.Size(528, 24) + resources.ApplyResources(Me.ItemForSTRING3, "ItemForSTRING3") + Me.ItemForSTRING3.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForSTRING4 + ' + Me.ItemForSTRING4.Control = Me.STRING4TextEdit + Me.ItemForSTRING4.Location = New System.Drawing.Point(0, 168) + Me.ItemForSTRING4.Name = "ItemForSTRING4" + Me.ItemForSTRING4.Size = New System.Drawing.Size(528, 24) + resources.ApplyResources(Me.ItemForSTRING4, "ItemForSTRING4") + Me.ItemForSTRING4.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForSTRING5 + ' + Me.ItemForSTRING5.Control = Me.STRING5TextEdit + Me.ItemForSTRING5.Location = New System.Drawing.Point(0, 192) + Me.ItemForSTRING5.Name = "ItemForSTRING5" + Me.ItemForSTRING5.Size = New System.Drawing.Size(528, 24) + resources.ApplyResources(Me.ItemForSTRING5, "ItemForSTRING5") + Me.ItemForSTRING5.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForSTRING6 + ' + Me.ItemForSTRING6.Control = Me.STRING6TextEdit + Me.ItemForSTRING6.Location = New System.Drawing.Point(0, 216) + Me.ItemForSTRING6.Name = "ItemForSTRING6" + Me.ItemForSTRING6.Size = New System.Drawing.Size(528, 24) + resources.ApplyResources(Me.ItemForSTRING6, "ItemForSTRING6") + Me.ItemForSTRING6.TextSize = New System.Drawing.Size(74, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit3 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 240) + Me.LayoutControlItem3.Name = "ItemForADDED_WHO" + Me.LayoutControlItem3.Size = New System.Drawing.Size(528, 24) + resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3") + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(74, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.ADDED_WHENTextEdit + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 264) + Me.LayoutControlItem4.Name = "ItemForADDED_WHEN" + Me.LayoutControlItem4.Size = New System.Drawing.Size(528, 24) + resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4") + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(74, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.TextEdit4 + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 288) + Me.LayoutControlItem5.Name = "ItemForCHANGED_WHO" + Me.LayoutControlItem5.Size = New System.Drawing.Size(528, 24) + resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5") + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(74, 13) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.CHANGED_WHENTextEdit + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 312) + Me.LayoutControlItem6.Name = "ItemForCHANGED_WHEN" + Me.LayoutControlItem6.Size = New System.Drawing.Size(528, 176) + resources.ApplyResources(Me.LayoutControlItem6, "LayoutControlItem6") + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(74, 13) + ' 'ItemForOBJ_NAME ' Me.ItemForOBJ_NAME.Control = Me.OBJ_NAMETextEdit - Me.ItemForOBJ_NAME.Location = New System.Drawing.Point(150, 0) + Me.ItemForOBJ_NAME.Location = New System.Drawing.Point(150, 24) Me.ItemForOBJ_NAME.Name = "ItemForOBJ_NAME" - Me.ItemForOBJ_NAME.Size = New System.Drawing.Size(302, 24) + Me.ItemForOBJ_NAME.Size = New System.Drawing.Size(378, 24) resources.ApplyResources(Me.ItemForOBJ_NAME, "ItemForOBJ_NAME") Me.ItemForOBJ_NAME.TextSize = New System.Drawing.Size(74, 13) ' + 'ItemForCAPT_TYPE + ' + Me.ItemForCAPT_TYPE.Control = Me.CAPT_TYPETextEdit + Me.ItemForCAPT_TYPE.Location = New System.Drawing.Point(0, 24) + Me.ItemForCAPT_TYPE.Name = "ItemForCAPT_TYPE" + Me.ItemForCAPT_TYPE.Size = New System.Drawing.Size(150, 48) + resources.ApplyResources(Me.ItemForCAPT_TYPE, "ItemForCAPT_TYPE") + Me.ItemForCAPT_TYPE.TextSize = New System.Drawing.Size(74, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEdit2 + Me.LayoutControlItem2.Location = New System.Drawing.Point(150, 48) + Me.LayoutControlItem2.Name = "ItemForTITLE" + Me.LayoutControlItem2.Size = New System.Drawing.Size(378, 24) + resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2") + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForLANGUAGE + ' + Me.ItemForLANGUAGE.Control = Me.LANGUAGETextEdit + Me.ItemForLANGUAGE.Location = New System.Drawing.Point(150, 72) + Me.ItemForLANGUAGE.Name = "ItemForLANGUAGE" + Me.ItemForLANGUAGE.Size = New System.Drawing.Size(378, 24) + resources.ApplyResources(Me.ItemForLANGUAGE, "ItemForLANGUAGE") + Me.ItemForLANGUAGE.TextSize = New System.Drawing.Size(74, 13) + ' + 'GridControl2 + ' + Me.GridControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource + resources.ApplyResources(Me.GridControl2, "GridControl2") + Me.GridControl2.MainView = Me.GridView2 + Me.GridControl2.MenuManager = Me.RibbonControl1 + Me.GridControl2.Name = "GridControl2" + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) + ' + 'GridView2 + ' + Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.PeachPuff + Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn5, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4}) + 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.Editable = False + Me.GridView2.OptionsBehavior.ReadOnly = True + Me.GridView2.OptionsView.EnableAppearanceEvenRow = True + Me.GridView2.OptionsView.ShowAutoFilterRow = True + ' + 'GridColumn5 + ' + resources.ApplyResources(Me.GridColumn5, "GridColumn5") + Me.GridColumn5.FieldName = "OBJ_NAME" + Me.GridColumn5.Name = "GridColumn5" + ' + 'GridColumn2 + ' + resources.ApplyResources(Me.GridColumn2, "GridColumn2") + Me.GridColumn2.FieldName = "TITLE" + Me.GridColumn2.Name = "GridColumn2" + ' + 'GridColumn3 + ' + resources.ApplyResources(Me.GridColumn3, "GridColumn3") + Me.GridColumn3.FieldName = "CAPT_TYPE" + Me.GridColumn3.Name = "GridColumn3" + ' + 'GridColumn4 + ' + resources.ApplyResources(Me.GridColumn4, "GridColumn4") + Me.GridColumn4.FieldName = "LANGUAGE" + Me.GridColumn4.Name = "GridColumn4" + ' + 'TBDD_EMAIL_TEMPLATETableAdapter + ' + Me.TBDD_EMAIL_TEMPLATETableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Me.TBDD_EMAIL_TEMPLATETableAdapter + Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing + Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBDD_GUI_LANGUAGE_PHRASETableAdapter + ' + Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.ClearBeforeFill = True + ' + 'ADDED_WHENDateEdit + ' + Me.ADDED_WHENDateEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHEN", True)) + resources.ApplyResources(Me.ADDED_WHENDateEdit, "ADDED_WHENDateEdit") + Me.ADDED_WHENDateEdit.MenuManager = Me.RibbonControl1 + Me.ADDED_WHENDateEdit.Name = "ADDED_WHENDateEdit" + Me.ADDED_WHENDateEdit.Properties.DisplayFormat.FormatString = "d" + Me.ADDED_WHENDateEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.ADDED_WHENDateEdit.Properties.EditFormat.FormatString = "d" + Me.ADDED_WHENDateEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.ADDED_WHENDateEdit.Properties.Mask.EditMask = resources.GetString("ADDED_WHENDateEdit.Properties.Mask.EditMask") + Me.ADDED_WHENDateEdit.Properties.Mask.MaskType = CType(resources.GetObject("ADDED_WHENDateEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) + Me.ADDED_WHENDateEdit.Properties.ReadOnly = True + Me.ADDED_WHENDateEdit.StyleController = Me.DataLayoutControl1 + ' + 'CHANGED_WHENDateEdit + ' + Me.CHANGED_WHENDateEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHEN", True)) + resources.ApplyResources(Me.CHANGED_WHENDateEdit, "CHANGED_WHENDateEdit") + Me.CHANGED_WHENDateEdit.MenuManager = Me.RibbonControl1 + Me.CHANGED_WHENDateEdit.Name = "CHANGED_WHENDateEdit" + Me.CHANGED_WHENDateEdit.Properties.DisplayFormat.FormatString = "d" + Me.CHANGED_WHENDateEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.CHANGED_WHENDateEdit.Properties.EditFormat.FormatString = "d" + Me.CHANGED_WHENDateEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.CHANGED_WHENDateEdit.Properties.Mask.EditMask = resources.GetString("CHANGED_WHENDateEdit.Properties.Mask.EditMask") + Me.CHANGED_WHENDateEdit.Properties.Mask.MaskType = CType(resources.GetObject("CHANGED_WHENDateEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) + Me.CHANGED_WHENDateEdit.Properties.ReadOnly = True + Me.CHANGED_WHENDateEdit.StyleController = Me.DataLayoutControl1 + ' 'INTERNALCheckEdit ' Me.INTERNALCheckEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "INTERNAL", True)) resources.ApplyResources(Me.INTERNALCheckEdit, "INTERNALCheckEdit") Me.INTERNALCheckEdit.MenuManager = Me.RibbonControl1 Me.INTERNALCheckEdit.Name = "INTERNALCheckEdit" - Me.INTERNALCheckEdit.Properties.Caption = resources.GetString("INTERNALCheckEdit.Properties.Caption") - Me.INTERNALCheckEdit.Properties.GlyphAlignment = CType(resources.GetObject("INTERNALCheckEdit.Properties.GlyphAlignment"), DevExpress.Utils.HorzAlignment) + Me.INTERNALCheckEdit.Properties.Caption = resources.GetString("CheckEdit1.Properties.Caption") Me.INTERNALCheckEdit.StyleController = Me.DataLayoutControl2 ' - 'ItemForINTERNAL + 'LayoutControlItem7 ' - Me.ItemForINTERNAL.Control = Me.INTERNALCheckEdit - resources.ApplyResources(Me.ItemForINTERNAL, "ItemForINTERNAL") - Me.ItemForINTERNAL.Location = New System.Drawing.Point(452, 0) - Me.ItemForINTERNAL.Name = "ItemForINTERNAL" - Me.ItemForINTERNAL.Size = New System.Drawing.Size(76, 264) - Me.ItemForINTERNAL.TextSize = New System.Drawing.Size(0, 0) - Me.ItemForINTERNAL.TextVisible = False + Me.LayoutControlItem7.Control = Me.INTERNALCheckEdit + Me.LayoutControlItem7.Location = New System.Drawing.Point(150, 0) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Size = New System.Drawing.Size(378, 24) + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem7.TextVisible = False ' 'frmAdmin2 ' @@ -1084,11 +1087,7 @@ Partial Class frmAdmin2 CType(Me.TITLETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EMAIL_BODY3TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ADDED_WHOTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ADDED_WHENDateEdit.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ADDED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CHANGED_WHOTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.CHANGED_WHENDateEdit.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.CHANGED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EMAIL_BODY1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EMAIL_BODY2TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EMAIL_SUBJECTTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() @@ -1107,47 +1106,49 @@ Partial Class frmAdmin2 CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPage2.ResumeLayout(False) - CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataLayoutControl2, System.ComponentModel.ISupportInitialize).EndInit() Me.DataLayoutControl2.ResumeLayout(False) - CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MODULETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForMODULE, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LANGUAGETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForLANGUAGE, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForCAPT_TYPE, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForSTRING1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForSTRING2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForSTRING3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForSTRING4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING5TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForSTRING5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING6TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForSTRING6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ADDED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CHANGED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.OBJ_NAMETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForMODULE, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForOBJ_NAME, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForCAPT_TYPE, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForLANGUAGE, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ADDED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.INTERNALCheckEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForINTERNAL, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -1194,9 +1195,7 @@ Partial Class frmAdmin2 Friend WithEvents TITLETextEdit As DevExpress.XtraEditors.TextEdit Friend WithEvents EMAIL_BODY3TextEdit As DevExpress.XtraEditors.TextEdit Friend WithEvents ADDED_WHOTextEdit As DevExpress.XtraEditors.TextEdit - Friend WithEvents ADDED_WHENDateEdit As DevExpress.XtraEditors.DateEdit Friend WithEvents CHANGED_WHOTextEdit As DevExpress.XtraEditors.TextEdit - Friend WithEvents CHANGED_WHENDateEdit As DevExpress.XtraEditors.DateEdit Friend WithEvents EMAIL_BODY1TextEdit As DevExpress.XtraEditors.MemoEdit Friend WithEvents EMAIL_BODY2TextEdit As DevExpress.XtraEditors.MemoEdit Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup @@ -1230,7 +1229,6 @@ Partial Class frmAdmin2 Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit Friend WithEvents CHANGED_WHENTextEdit As DevExpress.XtraEditors.TextEdit Friend WithEvents OBJ_NAMETextEdit As DevExpress.XtraEditors.TextEdit - Friend WithEvents INTERNALCheckEdit As DevExpress.XtraEditors.CheckEdit Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup Friend WithEvents LayoutControlGroup3 As DevExpress.XtraLayout.LayoutControlGroup Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem @@ -1249,5 +1247,8 @@ Partial Class frmAdmin2 Friend WithEvents ItemForCAPT_TYPE As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents ItemForLANGUAGE As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents ItemForINTERNAL As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ADDED_WHENDateEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents CHANGED_WHENDateEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents INTERNALCheckEdit As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem End Class diff --git a/app/DD_PM_WINDREAM/frmAdmin2.resx b/app/DD_PM_WINDREAM/frmAdmin2.resx index 5da71e5..a426e74 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.resx +++ b/app/DD_PM_WINDREAM/frmAdmin2.resx @@ -572,40 +572,6 @@ 7 - - - - - 421, 449 - - - - Combo - - - Combo - - - G - - - 251, 20 - - - 11 - - - ADDED_WHENDateEdit - - - DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DataLayoutControl1 - - - 8 - 89, 473 @@ -625,37 +591,7 @@ DataLayoutControl1 - 9 - - - - - - 421, 473 - - - Combo - - - Combo - - - 251, 20 - - - 13 - - - CHANGED_WHENDateEdit - - - DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DataLayoutControl1 - - - 10 + 8 89, 84 @@ -676,7 +612,7 @@ DataLayoutControl1 - 11 + 9 89, 231 @@ -697,7 +633,7 @@ DataLayoutControl1 - 12 + 10 89, 60 @@ -718,6 +654,60 @@ DataLayoutControl1 + 11 + + + 421, 449 + + + G + + + DateTime + + + 251, 20 + + + 11 + + + ADDED_WHENDateEdit + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DataLayoutControl1 + + + 12 + + + 421, 473 + + + d + + + DateTime + + + 251, 20 + + + 13 + + + CHANGED_WHENDateEdit + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DataLayoutControl1 + + 13 @@ -853,7 +843,7 @@ 17, 56 - 98, 12 + 89, 12 N0 @@ -865,7 +855,7 @@ True - 60, 20 + 69, 20 4 @@ -883,10 +873,10 @@ 4 - 98, 60 + 89, 84 - 60, 20 + 69, 20 5 @@ -904,10 +894,10 @@ 5 - 248, 36 + 239, 60 - 212, 20 + 297, 20 6 @@ -925,10 +915,10 @@ 6 - 248, 60 + 239, 84 - 212, 20 + 297, 20 7 @@ -946,10 +936,10 @@ 7 - 98, 36 + 89, 36 - 60, 20 + 69, 20 8 @@ -967,10 +957,10 @@ 8 - 98, 84 + 89, 108 - 362, 20 + 447, 20 9 @@ -988,10 +978,10 @@ 9 - 98, 108 + 89, 132 - 362, 20 + 447, 20 10 @@ -1009,10 +999,10 @@ 10 - 98, 132 + 89, 156 - 362, 20 + 447, 20 11 @@ -1030,10 +1020,10 @@ 11 - 98, 156 + 89, 180 - 362, 20 + 447, 20 12 @@ -1051,10 +1041,10 @@ 12 - 98, 180 + 89, 204 - 362, 20 + 447, 20 13 @@ -1072,10 +1062,10 @@ 13 - 98, 204 + 89, 228 - 362, 20 + 447, 20 14 @@ -1093,10 +1083,10 @@ 14 - 98, 228 + 89, 252 - 362, 20 + 447, 20 15 @@ -1117,7 +1107,7 @@ False - 98, 252 + 89, 276 d @@ -1126,7 +1116,7 @@ DateTime - 362, 20 + 447, 20 16 @@ -1144,10 +1134,10 @@ 16 - 98, 276 + 89, 300 - 438, 20 + 447, 20 17 @@ -1168,7 +1158,7 @@ False - 98, 300 + 89, 324 d @@ -1177,7 +1167,7 @@ DateTime - 438, 20 + 447, 20 18 @@ -1195,10 +1185,10 @@ 18 - 248, 12 + 239, 36 - 212, 20 + 297, 20 19 @@ -1216,17 +1206,13 @@ 19 - 464, 12 - - - intern + 162, 12 - - - Default + + Intern - 72, 20 + 374, 20 20 @@ -1285,9 +1271,6 @@ Geändert wann - - Object - Typ @@ -1297,11 +1280,8 @@ Language - - INTERNAL - - - INTERNAL + + Object 548, 508 @@ -1653,60 +1633,6 @@ System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GridView2 - - - DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn5 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn2 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn3 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn4 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TBDD_EMAIL_TEMPLATETableAdapter - - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TableAdapterManager - - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBDD_GUI_LANGUAGE_PHRASETableAdapter - - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - LayoutConverter1 - - - DevExpress.XtraLayout.Converter.LayoutConverter, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - LayoutControlGroup2 @@ -1731,24 +1657,6 @@ DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - LayoutControlItem2 - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ItemForLANGUAGE - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ItemForCAPT_TYPE - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - ItemForSTRING1 @@ -1815,10 +1723,82 @@ DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ItemForINTERNAL + + ItemForCAPT_TYPE + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem2 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForLANGUAGE + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridView2 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn5 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn2 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn3 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn4 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TBDD_EMAIL_TEMPLATETableAdapter + + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + TableAdapterManager + + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + TBDD_GUI_LANGUAGE_PHRASETableAdapter + + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + LayoutConverter1 + + + DevExpress.XtraLayout.Converter.LayoutConverter, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem7 - + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_PM_WINDREAM/frmAdmin2.vb b/app/DD_PM_WINDREAM/frmAdmin2.vb index 2f1a3b5..3b739cd 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.vb @@ -10,12 +10,18 @@ Public Class frmAdmin2 Load_Email_template() Load_Gui_Phrases() Try - Dim Filename As String = String.Format("DevExLayoutAdmin2_Email.xml") - Dim xml As String = System.IO.Path.Combine(Application.UserAppDataPath(), Filename) - If File.Exists(xml) Then - DataLayoutControl1.RestoreLayoutFromXml(xml) + Dim oFilename As String = String.Format("DevExLayoutAdmin2_Email.xml") + Dim oXml As String = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename) + If File.Exists(oXml) Then + DataLayoutControl1.RestoreLayoutFromXml(oXml) + End If + oFilename = String.Format("DevExLayoutAdmin2_GUIPhrases.xml") + oXml = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename) + If File.Exists(oXml) Then + DataLayoutControl2.RestoreLayoutFromXml(oXml) End If + Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Error while restoring layout 1: " & ex.Message) @@ -169,7 +175,9 @@ Public Class frmAdmin2 'If File.Exists(xml) Then DataLayoutControl1.SaveLayoutToXml(xml) 'End If - + Filename = String.Format("DevExLayoutAdmin2_GUIPhrases.xml") + xml = System.IO.Path.Combine(Application.UserAppDataPath(), Filename) + DataLayoutControl2.SaveLayoutToXml(xml) Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Error while restoring layout 1: " & ex.Message) From e0fae60798a6a1c4af8b7278f80d5c5adcf884e9 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 16 Jan 2020 17:10:10 +0100 Subject: [PATCH 08/26] 2.0.0.4 --- app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb | 2 +- app/DD_PM_WINDREAM/My Project/licenses.licx | 15 +- app/DD_PM_WINDREAM/frmAdmin2.Designer.vb | 1076 +++++---- app/DD_PM_WINDREAM/frmAdmin2.resx | 1920 +++++++++++------ app/DD_PM_WINDREAM/frmAdmin2.vb | 64 +- 5 files changed, 1944 insertions(+), 1133 deletions(-) diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index 308a4d1..46388a3 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_PM_WINDREAM/My Project/licenses.licx b/app/DD_PM_WINDREAM/My Project/licenses.licx index a97b713..26b12ce 100644 --- a/app/DD_PM_WINDREAM/My Project/licenses.licx +++ b/app/DD_PM_WINDREAM/My Project/licenses.licx @@ -1,11 +1,12 @@ -DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb index f387bba..30b5024 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb @@ -36,6 +36,8 @@ Partial Class frmAdmin2 Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -43,10 +45,20 @@ Partial Class frmAdmin2 Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() - Me.DataLayoutControl1 = New DevExpress.XtraDataLayout.DataLayoutControl() - Me.GUIDTextEdit = New DevExpress.XtraEditors.TextEdit() + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) Me.TBDD_EMAIL_TEMPLATEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.DataLayoutControl1 = New DevExpress.XtraDataLayout.DataLayoutControl() + Me.GUIDTextEdit = New DevExpress.XtraEditors.TextEdit() Me.TITLETextEdit = New DevExpress.XtraEditors.TextEdit() Me.EMAIL_BODY3TextEdit = New DevExpress.XtraEditors.TextEdit() Me.ADDED_WHOTextEdit = New DevExpress.XtraEditors.TextEdit() @@ -54,6 +66,8 @@ Partial Class frmAdmin2 Me.EMAIL_BODY1TextEdit = New DevExpress.XtraEditors.MemoEdit() Me.EMAIL_BODY2TextEdit = New DevExpress.XtraEditors.MemoEdit() Me.EMAIL_SUBJECTTextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ADDED_WHENDateEdit = New DevExpress.XtraEditors.TextEdit() + Me.CHANGED_WHENDateEdit = New DevExpress.XtraEditors.TextEdit() Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() Me.ItemForGUID = New DevExpress.XtraLayout.LayoutControlItem() @@ -71,65 +85,75 @@ Partial Class frmAdmin2 Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.TBDD_EMAIL_TEMPLATETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter() + Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter() + Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components) Me.DataLayoutControl2 = New DevExpress.XtraDataLayout.DataLayoutControl() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup() Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() - Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() Me.MODULETextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ItemForMODULE = New DevExpress.XtraLayout.LayoutControlItem() Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() - Me.LANGUAGETextEdit = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LANGUAGEComboBoxEdit = New DevExpress.XtraEditors.ComboBoxEdit() + Me.ItemForLANGUAGE = New DevExpress.XtraLayout.LayoutControlItem() Me.CAPT_TYPETextEdit = New DevExpress.XtraEditors.TextEdit() + Me.ItemForCAPT_TYPE = New DevExpress.XtraLayout.LayoutControlItem() Me.STRING1TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.STRING2TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.STRING3TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.STRING4TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.STRING5TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.STRING6TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() - Me.ADDED_WHENTextEdit = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() - Me.CHANGED_WHENTextEdit = New DevExpress.XtraEditors.TextEdit() - Me.OBJ_NAMETextEdit = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() - Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup() - Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() - Me.ItemForMODULE = New DevExpress.XtraLayout.LayoutControlItem() Me.ItemForSTRING1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.STRING2TextEdit = New DevExpress.XtraEditors.TextEdit() Me.ItemForSTRING2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.STRING3TextEdit = New DevExpress.XtraEditors.TextEdit() Me.ItemForSTRING3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.STRING4TextEdit = New DevExpress.XtraEditors.TextEdit() Me.ItemForSTRING4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.STRING5TextEdit = New DevExpress.XtraEditors.TextEdit() Me.ItemForSTRING5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.STRING6TextEdit = New DevExpress.XtraEditors.TextEdit() Me.ItemForSTRING6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ADDED_WHENTextEdit = New DevExpress.XtraEditors.TextEdit() Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.CHANGED_WHENTextEdit = New DevExpress.XtraEditors.TextEdit() Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.OBJ_NAMETextEdit = New DevExpress.XtraEditors.TextEdit() Me.ItemForOBJ_NAME = New DevExpress.XtraLayout.LayoutControlItem() - Me.ItemForCAPT_TYPE = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() - Me.ItemForLANGUAGE = New DevExpress.XtraLayout.LayoutControlItem() - Me.GridControl2 = New DevExpress.XtraGrid.GridControl() - Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.TBDD_EMAIL_TEMPLATETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter() - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter() - Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components) - Me.ADDED_WHENDateEdit = New DevExpress.XtraEditors.TextEdit() - Me.CHANGED_WHENDateEdit = New DevExpress.XtraEditors.TextEdit() Me.INTERNALCheckEdit = New DevExpress.XtraEditors.CheckEdit() - Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForINTERNAL = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() Me.XtraTabPage1.SuspendLayout() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.TBDD_EMAIL_TEMPLATEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataLayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.DataLayoutControl1.SuspendLayout() CType(Me.GUIDTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBDD_EMAIL_TEMPLATEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TITLETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EMAIL_BODY3TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ADDED_WHOTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() @@ -137,6 +161,8 @@ Partial Class frmAdmin2 CType(Me.EMAIL_BODY1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EMAIL_BODY2TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EMAIL_SUBJECTTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ADDED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForGUID, System.ComponentModel.ISupportInitialize).BeginInit() @@ -152,57 +178,57 @@ Partial Class frmAdmin2 CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPage2.SuspendLayout() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator2.SuspendLayout() + CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataLayoutControl2, System.ComponentModel.ISupportInitialize).BeginInit() Me.DataLayoutControl2.SuspendLayout() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MODULETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForMODULE, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LANGUAGETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LANGUAGEComboBoxEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForLANGUAGE, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForCAPT_TYPE, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.STRING5TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.STRING6TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ADDED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.CHANGED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.OBJ_NAMETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForMODULE, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForSTRING1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForSTRING2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForSTRING3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForSTRING4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.STRING5TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForSTRING5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.STRING6TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForSTRING6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ADDED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.OBJ_NAMETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForOBJ_NAME, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForCAPT_TYPE, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForLANGUAGE, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ADDED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.CHANGED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.INTERNALCheckEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForINTERNAL, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BbitemplateAdd, Me.BbitemplateSave, Me.BbitemplateDelete, Me.BarButtonItem1, Me.labelStatus, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BbitemplateAdd, Me.BbitemplateSave, Me.BbitemplateDelete, Me.BarButtonItem1, Me.labelStatus, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 12 + Me.RibbonControl1.MaxItemId = 14 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 @@ -301,6 +327,24 @@ Partial Class frmAdmin2 Me.BarButtonItem7.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem7.ImageOptions.LargeImage"), System.Drawing.Image) Me.BarButtonItem7.Name = "BarButtonItem7" ' + 'BarButtonItem8 + ' + resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8") + Me.BarButtonItem8.Id = 12 + Me.BarButtonItem8.ImageOptions.Image = CType(resources.GetObject("BarButtonItem8.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem8.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem8.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem8.Name = "BarButtonItem8" + Me.BarButtonItem8.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'BarButtonItem9 + ' + resources.ApplyResources(Me.BarButtonItem9, "BarButtonItem9") + Me.BarButtonItem9.Id = 13 + Me.BarButtonItem9.ImageOptions.Image = CType(resources.GetObject("BarButtonItem9.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem9.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem9.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem9.Name = "BarButtonItem9" + Me.BarButtonItem9.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) @@ -314,6 +358,7 @@ Partial Class frmAdmin2 Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem7) Me.RibbonPageGroup1.ItemLinks.Add(Me.BbitemplateDelete) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem9) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") ' @@ -324,6 +369,7 @@ Partial Class frmAdmin2 Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3) Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem4) Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem5) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem8) Me.RibbonPageGroup2.Name = "RibbonPageGroup2" resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2") ' @@ -349,10 +395,86 @@ Partial Class frmAdmin2 'XtraTabPage1 ' resources.ApplyResources(Me.XtraTabPage1, "XtraTabPage1") + Me.XtraTabPage1.Controls.Add(Me.BindingNavigator1) Me.XtraTabPage1.Controls.Add(Me.DataLayoutControl1) Me.XtraTabPage1.Controls.Add(Me.GridControl1) Me.XtraTabPage1.Name = "XtraTabPage1" ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.BindingSource = Me.TBDD_EMAIL_TEMPLATEBindingSource + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.CountItemFormat = "von {0} Phrasen" + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2}) + resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1") + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + ' + 'TBDD_EMAIL_TEMPLATEBindingSource + ' + Me.TBDD_EMAIL_TEMPLATEBindingSource.DataMember = "TBDD_EMAIL_TEMPLATE" + Me.TBDD_EMAIL_TEMPLATEBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' + 'DD_DMSLiteDataSet + ' + Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" + Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem") + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem") + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem") + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator") + ' + 'BindingNavigatorPositionItem + ' + resources.ApplyResources(Me.BindingNavigatorPositionItem, "BindingNavigatorPositionItem") + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1") + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem") + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem") + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2") + ' 'DataLayoutControl1 ' resources.ApplyResources(Me.DataLayoutControl1, "DataLayoutControl1") @@ -384,16 +506,6 @@ Partial Class frmAdmin2 Me.GUIDTextEdit.Properties.ReadOnly = True Me.GUIDTextEdit.StyleController = Me.DataLayoutControl1 ' - 'TBDD_EMAIL_TEMPLATEBindingSource - ' - Me.TBDD_EMAIL_TEMPLATEBindingSource.DataMember = "TBDD_EMAIL_TEMPLATE" - Me.TBDD_EMAIL_TEMPLATEBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' - 'DD_DMSLiteDataSet - ' - Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" - Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' 'TITLETextEdit ' Me.TITLETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "TITLE", True)) @@ -452,13 +564,43 @@ Partial Class frmAdmin2 Me.EMAIL_SUBJECTTextEdit.Name = "EMAIL_SUBJECTTextEdit" Me.EMAIL_SUBJECTTextEdit.StyleController = Me.DataLayoutControl1 ' + 'ADDED_WHENDateEdit + ' + Me.ADDED_WHENDateEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHEN", True)) + resources.ApplyResources(Me.ADDED_WHENDateEdit, "ADDED_WHENDateEdit") + Me.ADDED_WHENDateEdit.MenuManager = Me.RibbonControl1 + Me.ADDED_WHENDateEdit.Name = "ADDED_WHENDateEdit" + Me.ADDED_WHENDateEdit.Properties.DisplayFormat.FormatString = "d" + Me.ADDED_WHENDateEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.ADDED_WHENDateEdit.Properties.EditFormat.FormatString = "d" + Me.ADDED_WHENDateEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.ADDED_WHENDateEdit.Properties.Mask.EditMask = resources.GetString("ADDED_WHENDateEdit.Properties.Mask.EditMask") + Me.ADDED_WHENDateEdit.Properties.Mask.MaskType = CType(resources.GetObject("ADDED_WHENDateEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) + Me.ADDED_WHENDateEdit.Properties.ReadOnly = True + Me.ADDED_WHENDateEdit.StyleController = Me.DataLayoutControl1 + ' + 'CHANGED_WHENDateEdit + ' + Me.CHANGED_WHENDateEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHEN", True)) + resources.ApplyResources(Me.CHANGED_WHENDateEdit, "CHANGED_WHENDateEdit") + Me.CHANGED_WHENDateEdit.MenuManager = Me.RibbonControl1 + Me.CHANGED_WHENDateEdit.Name = "CHANGED_WHENDateEdit" + Me.CHANGED_WHENDateEdit.Properties.DisplayFormat.FormatString = "d" + Me.CHANGED_WHENDateEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.CHANGED_WHENDateEdit.Properties.EditFormat.FormatString = "d" + Me.CHANGED_WHENDateEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.CHANGED_WHENDateEdit.Properties.Mask.EditMask = resources.GetString("CHANGED_WHENDateEdit.Properties.Mask.EditMask") + Me.CHANGED_WHENDateEdit.Properties.Mask.MaskType = CType(resources.GetObject("CHANGED_WHENDateEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) + Me.CHANGED_WHENDateEdit.Properties.ReadOnly = True + Me.CHANGED_WHENDateEdit.StyleController = Me.DataLayoutControl1 + ' 'Root ' Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.Root.GroupBordersVisible = False Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1}) Me.Root.Name = "Root" - Me.Root.Size = New System.Drawing.Size(684, 505) + Me.Root.Size = New System.Drawing.Size(698, 476) Me.Root.TextVisible = False ' 'LayoutControlGroup1 @@ -468,14 +610,14 @@ Partial Class frmAdmin2 Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.ItemForGUID, Me.ItemForTITLE, Me.ItemForEMAIL_SUBJECT, Me.ItemForEMAIL_BODY1, Me.ItemForEMAIL_BODY2, Me.ItemForEMAIL_BODY3, Me.ItemForADDED_WHO, Me.ItemForCHANGED_WHO, Me.ItemForADDED_WHEN, Me.ItemForCHANGED_WHEN}) Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0) Me.LayoutControlGroup1.Name = "autoGeneratedGroup0" - Me.LayoutControlGroup1.Size = New System.Drawing.Size(664, 485) + Me.LayoutControlGroup1.Size = New System.Drawing.Size(678, 456) ' 'ItemForGUID ' Me.ItemForGUID.Control = Me.GUIDTextEdit Me.ItemForGUID.Location = New System.Drawing.Point(0, 0) Me.ItemForGUID.Name = "ItemForGUID" - Me.ItemForGUID.Size = New System.Drawing.Size(664, 24) + Me.ItemForGUID.Size = New System.Drawing.Size(678, 24) resources.ApplyResources(Me.ItemForGUID, "ItemForGUID") Me.ItemForGUID.TextSize = New System.Drawing.Size(74, 13) ' @@ -484,7 +626,7 @@ Partial Class frmAdmin2 Me.ItemForTITLE.Control = Me.TITLETextEdit Me.ItemForTITLE.Location = New System.Drawing.Point(0, 24) Me.ItemForTITLE.Name = "ItemForTITLE" - Me.ItemForTITLE.Size = New System.Drawing.Size(664, 24) + Me.ItemForTITLE.Size = New System.Drawing.Size(678, 24) resources.ApplyResources(Me.ItemForTITLE, "ItemForTITLE") Me.ItemForTITLE.TextSize = New System.Drawing.Size(74, 13) ' @@ -493,7 +635,7 @@ Partial Class frmAdmin2 Me.ItemForEMAIL_SUBJECT.Control = Me.EMAIL_SUBJECTTextEdit Me.ItemForEMAIL_SUBJECT.Location = New System.Drawing.Point(0, 48) Me.ItemForEMAIL_SUBJECT.Name = "ItemForEMAIL_SUBJECT" - Me.ItemForEMAIL_SUBJECT.Size = New System.Drawing.Size(664, 24) + Me.ItemForEMAIL_SUBJECT.Size = New System.Drawing.Size(678, 24) resources.ApplyResources(Me.ItemForEMAIL_SUBJECT, "ItemForEMAIL_SUBJECT") Me.ItemForEMAIL_SUBJECT.TextSize = New System.Drawing.Size(74, 13) ' @@ -502,61 +644,61 @@ Partial Class frmAdmin2 Me.ItemForEMAIL_BODY1.Control = Me.EMAIL_BODY1TextEdit Me.ItemForEMAIL_BODY1.Location = New System.Drawing.Point(0, 72) Me.ItemForEMAIL_BODY1.Name = "ItemForEMAIL_BODY1" - Me.ItemForEMAIL_BODY1.Size = New System.Drawing.Size(664, 147) + Me.ItemForEMAIL_BODY1.Size = New System.Drawing.Size(678, 137) resources.ApplyResources(Me.ItemForEMAIL_BODY1, "ItemForEMAIL_BODY1") Me.ItemForEMAIL_BODY1.TextSize = New System.Drawing.Size(74, 13) ' 'ItemForEMAIL_BODY2 ' Me.ItemForEMAIL_BODY2.Control = Me.EMAIL_BODY2TextEdit - Me.ItemForEMAIL_BODY2.Location = New System.Drawing.Point(0, 219) + Me.ItemForEMAIL_BODY2.Location = New System.Drawing.Point(0, 209) Me.ItemForEMAIL_BODY2.Name = "ItemForEMAIL_BODY2" - Me.ItemForEMAIL_BODY2.Size = New System.Drawing.Size(664, 194) + Me.ItemForEMAIL_BODY2.Size = New System.Drawing.Size(678, 175) resources.ApplyResources(Me.ItemForEMAIL_BODY2, "ItemForEMAIL_BODY2") Me.ItemForEMAIL_BODY2.TextSize = New System.Drawing.Size(74, 13) ' 'ItemForEMAIL_BODY3 ' Me.ItemForEMAIL_BODY3.Control = Me.EMAIL_BODY3TextEdit - Me.ItemForEMAIL_BODY3.Location = New System.Drawing.Point(0, 413) + Me.ItemForEMAIL_BODY3.Location = New System.Drawing.Point(0, 384) Me.ItemForEMAIL_BODY3.Name = "ItemForEMAIL_BODY3" - Me.ItemForEMAIL_BODY3.Size = New System.Drawing.Size(664, 24) + Me.ItemForEMAIL_BODY3.Size = New System.Drawing.Size(678, 24) resources.ApplyResources(Me.ItemForEMAIL_BODY3, "ItemForEMAIL_BODY3") Me.ItemForEMAIL_BODY3.TextSize = New System.Drawing.Size(74, 13) ' 'ItemForADDED_WHO ' Me.ItemForADDED_WHO.Control = Me.ADDED_WHOTextEdit - Me.ItemForADDED_WHO.Location = New System.Drawing.Point(0, 437) + Me.ItemForADDED_WHO.Location = New System.Drawing.Point(0, 408) Me.ItemForADDED_WHO.Name = "ItemForADDED_WHO" - Me.ItemForADDED_WHO.Size = New System.Drawing.Size(332, 24) + Me.ItemForADDED_WHO.Size = New System.Drawing.Size(339, 24) resources.ApplyResources(Me.ItemForADDED_WHO, "ItemForADDED_WHO") Me.ItemForADDED_WHO.TextSize = New System.Drawing.Size(74, 13) ' 'ItemForCHANGED_WHO ' Me.ItemForCHANGED_WHO.Control = Me.CHANGED_WHOTextEdit - Me.ItemForCHANGED_WHO.Location = New System.Drawing.Point(0, 461) + Me.ItemForCHANGED_WHO.Location = New System.Drawing.Point(0, 432) Me.ItemForCHANGED_WHO.Name = "ItemForCHANGED_WHO" - Me.ItemForCHANGED_WHO.Size = New System.Drawing.Size(332, 24) + Me.ItemForCHANGED_WHO.Size = New System.Drawing.Size(339, 24) resources.ApplyResources(Me.ItemForCHANGED_WHO, "ItemForCHANGED_WHO") Me.ItemForCHANGED_WHO.TextSize = New System.Drawing.Size(74, 13) ' 'ItemForADDED_WHEN ' Me.ItemForADDED_WHEN.Control = Me.ADDED_WHENDateEdit - Me.ItemForADDED_WHEN.Location = New System.Drawing.Point(332, 437) + Me.ItemForADDED_WHEN.Location = New System.Drawing.Point(339, 408) Me.ItemForADDED_WHEN.Name = "ItemForADDED_WHEN" - Me.ItemForADDED_WHEN.Size = New System.Drawing.Size(332, 24) + Me.ItemForADDED_WHEN.Size = New System.Drawing.Size(339, 24) resources.ApplyResources(Me.ItemForADDED_WHEN, "ItemForADDED_WHEN") Me.ItemForADDED_WHEN.TextSize = New System.Drawing.Size(74, 13) ' 'ItemForCHANGED_WHEN ' Me.ItemForCHANGED_WHEN.Control = Me.CHANGED_WHENDateEdit - Me.ItemForCHANGED_WHEN.Location = New System.Drawing.Point(332, 461) + Me.ItemForCHANGED_WHEN.Location = New System.Drawing.Point(339, 432) Me.ItemForCHANGED_WHEN.Name = "ItemForCHANGED_WHEN" - Me.ItemForCHANGED_WHEN.Size = New System.Drawing.Size(332, 24) + Me.ItemForCHANGED_WHEN.Size = New System.Drawing.Size(339, 24) resources.ApplyResources(Me.ItemForCHANGED_WHEN, "ItemForCHANGED_WHEN") Me.ItemForCHANGED_WHEN.TextSize = New System.Drawing.Size(74, 13) ' @@ -599,470 +741,508 @@ Partial Class frmAdmin2 ' resources.ApplyResources(Me.XtraTabPage2, "XtraTabPage2") Me.XtraTabPage2.Controls.Add(Me.DataLayoutControl2) + Me.XtraTabPage2.Controls.Add(Me.BindingNavigator2) Me.XtraTabPage2.Controls.Add(Me.GridControl2) Me.XtraTabPage2.Name = "XtraTabPage2" ' - 'DataLayoutControl2 - ' - Me.DataLayoutControl2.Controls.Add(Me.TextEdit1) - Me.DataLayoutControl2.Controls.Add(Me.MODULETextEdit) - Me.DataLayoutControl2.Controls.Add(Me.TextEdit2) - Me.DataLayoutControl2.Controls.Add(Me.LANGUAGETextEdit) - Me.DataLayoutControl2.Controls.Add(Me.CAPT_TYPETextEdit) - Me.DataLayoutControl2.Controls.Add(Me.STRING1TextEdit) - Me.DataLayoutControl2.Controls.Add(Me.STRING2TextEdit) - Me.DataLayoutControl2.Controls.Add(Me.STRING3TextEdit) - Me.DataLayoutControl2.Controls.Add(Me.STRING4TextEdit) - Me.DataLayoutControl2.Controls.Add(Me.STRING5TextEdit) - Me.DataLayoutControl2.Controls.Add(Me.STRING6TextEdit) - Me.DataLayoutControl2.Controls.Add(Me.TextEdit3) - Me.DataLayoutControl2.Controls.Add(Me.ADDED_WHENTextEdit) - Me.DataLayoutControl2.Controls.Add(Me.TextEdit4) - Me.DataLayoutControl2.Controls.Add(Me.CHANGED_WHENTextEdit) - Me.DataLayoutControl2.Controls.Add(Me.OBJ_NAMETextEdit) - Me.DataLayoutControl2.Controls.Add(Me.INTERNALCheckEdit) - Me.DataLayoutControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource - resources.ApplyResources(Me.DataLayoutControl2, "DataLayoutControl2") - Me.DataLayoutControl2.Name = "DataLayoutControl2" - Me.DataLayoutControl2.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(3190, 411, 650, 400) - Me.DataLayoutControl2.Root = Me.LayoutControlGroup2 - ' - 'TextEdit1 - ' - Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "GUID", True)) - resources.ApplyResources(Me.TextEdit1, "TextEdit1") - Me.TextEdit1.MenuManager = Me.RibbonControl1 - Me.TextEdit1.Name = "TextEdit1" - Me.TextEdit1.Properties.Appearance.Options.UseTextOptions = True - Me.TextEdit1.Properties.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far - Me.TextEdit1.Properties.Mask.EditMask = resources.GetString("TextEdit1.Properties.Mask.EditMask") - Me.TextEdit1.Properties.Mask.MaskType = CType(resources.GetObject("TextEdit1.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) - Me.TextEdit1.Properties.Mask.UseMaskAsDisplayFormat = CType(resources.GetObject("TextEdit1.Properties.Mask.UseMaskAsDisplayFormat"), Boolean) - Me.TextEdit1.StyleController = Me.DataLayoutControl2 + 'BindingNavigator2 + ' + Me.BindingNavigator2.AddNewItem = Nothing + Me.BindingNavigator2.BindingSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource + Me.BindingNavigator2.CountItem = Me.ToolStripLabel1 + Me.BindingNavigator2.CountItemFormat = "von {0} Phrasen" + Me.BindingNavigator2.DeleteItem = Nothing + Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator3}) + resources.ApplyResources(Me.BindingNavigator2, "BindingNavigator2") + Me.BindingNavigator2.MoveFirstItem = Me.ToolStripButton1 + Me.BindingNavigator2.MoveLastItem = Me.ToolStripButton4 + Me.BindingNavigator2.MoveNextItem = Me.ToolStripButton3 + Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton2 + Me.BindingNavigator2.Name = "BindingNavigator2" + Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox1 ' 'TBDD_GUI_LANGUAGE_PHRASEBindingSource ' Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataMember = "TBDD_GUI_LANGUAGE_PHRASE" Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataSource = Me.DD_DMSLiteDataSet ' - 'MODULETextEdit + 'ToolStripLabel1 ' - Me.MODULETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "MODULE", True)) - resources.ApplyResources(Me.MODULETextEdit, "MODULETextEdit") - Me.MODULETextEdit.MenuManager = Me.RibbonControl1 - Me.MODULETextEdit.Name = "MODULETextEdit" - Me.MODULETextEdit.StyleController = Me.DataLayoutControl2 + Me.ToolStripLabel1.Name = "ToolStripLabel1" + resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1") ' - 'TextEdit2 + 'ToolStripButton1 ' - Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "TITLE", True)) - resources.ApplyResources(Me.TextEdit2, "TextEdit2") - Me.TextEdit2.MenuManager = Me.RibbonControl1 - Me.TextEdit2.Name = "TextEdit2" - Me.TextEdit2.StyleController = Me.DataLayoutControl2 + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") + Me.ToolStripButton1.Name = "ToolStripButton1" ' - 'LANGUAGETextEdit + 'ToolStripButton2 ' - Me.LANGUAGETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "LANGUAGE", True)) - resources.ApplyResources(Me.LANGUAGETextEdit, "LANGUAGETextEdit") - Me.LANGUAGETextEdit.MenuManager = Me.RibbonControl1 - Me.LANGUAGETextEdit.Name = "LANGUAGETextEdit" - Me.LANGUAGETextEdit.StyleController = Me.DataLayoutControl2 + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2") + Me.ToolStripButton2.Name = "ToolStripButton2" ' - 'CAPT_TYPETextEdit + 'ToolStripSeparator1 ' - Me.CAPT_TYPETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CAPT_TYPE", True)) - resources.ApplyResources(Me.CAPT_TYPETextEdit, "CAPT_TYPETextEdit") - Me.CAPT_TYPETextEdit.MenuManager = Me.RibbonControl1 - Me.CAPT_TYPETextEdit.Name = "CAPT_TYPETextEdit" - Me.CAPT_TYPETextEdit.StyleController = Me.DataLayoutControl2 + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1") ' - 'STRING1TextEdit + 'ToolStripTextBox1 ' - Me.STRING1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True)) - resources.ApplyResources(Me.STRING1TextEdit, "STRING1TextEdit") - Me.STRING1TextEdit.MenuManager = Me.RibbonControl1 - Me.STRING1TextEdit.Name = "STRING1TextEdit" - Me.STRING1TextEdit.StyleController = Me.DataLayoutControl2 + resources.ApplyResources(Me.ToolStripTextBox1, "ToolStripTextBox1") + Me.ToolStripTextBox1.Name = "ToolStripTextBox1" ' - 'STRING2TextEdit + 'ToolStripSeparator2 ' - Me.STRING2TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True)) - resources.ApplyResources(Me.STRING2TextEdit, "STRING2TextEdit") - Me.STRING2TextEdit.MenuManager = Me.RibbonControl1 - Me.STRING2TextEdit.Name = "STRING2TextEdit" - Me.STRING2TextEdit.StyleController = Me.DataLayoutControl2 + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2") ' - 'STRING3TextEdit + 'ToolStripButton3 ' - Me.STRING3TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING3", True)) - resources.ApplyResources(Me.STRING3TextEdit, "STRING3TextEdit") - Me.STRING3TextEdit.MenuManager = Me.RibbonControl1 - Me.STRING3TextEdit.Name = "STRING3TextEdit" - Me.STRING3TextEdit.StyleController = Me.DataLayoutControl2 + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.ToolStripButton3, "ToolStripButton3") + Me.ToolStripButton3.Name = "ToolStripButton3" ' - 'STRING4TextEdit + 'ToolStripButton4 ' - Me.STRING4TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING4", True)) - resources.ApplyResources(Me.STRING4TextEdit, "STRING4TextEdit") - Me.STRING4TextEdit.MenuManager = Me.RibbonControl1 - Me.STRING4TextEdit.Name = "STRING4TextEdit" - Me.STRING4TextEdit.StyleController = Me.DataLayoutControl2 + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.ToolStripButton4, "ToolStripButton4") + Me.ToolStripButton4.Name = "ToolStripButton4" ' - 'STRING5TextEdit + 'ToolStripSeparator3 ' - Me.STRING5TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING5", True)) - resources.ApplyResources(Me.STRING5TextEdit, "STRING5TextEdit") - Me.STRING5TextEdit.MenuManager = Me.RibbonControl1 - Me.STRING5TextEdit.Name = "STRING5TextEdit" - Me.STRING5TextEdit.StyleController = Me.DataLayoutControl2 + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + resources.ApplyResources(Me.ToolStripSeparator3, "ToolStripSeparator3") ' - 'STRING6TextEdit + 'GridControl2 ' - Me.STRING6TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING6", True)) - resources.ApplyResources(Me.STRING6TextEdit, "STRING6TextEdit") - Me.STRING6TextEdit.MenuManager = Me.RibbonControl1 - Me.STRING6TextEdit.Name = "STRING6TextEdit" - Me.STRING6TextEdit.StyleController = Me.DataLayoutControl2 + Me.GridControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource + resources.ApplyResources(Me.GridControl2, "GridControl2") + Me.GridControl2.MainView = Me.GridView2 + Me.GridControl2.MenuManager = Me.RibbonControl1 + Me.GridControl2.Name = "GridControl2" + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) ' - 'TextEdit3 + 'GridView2 ' - Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.TextEdit3, "TextEdit3") - Me.TextEdit3.MenuManager = Me.RibbonControl1 - Me.TextEdit3.Name = "TextEdit3" - Me.TextEdit3.Properties.ReadOnly = True - Me.TextEdit3.StyleController = Me.DataLayoutControl2 + Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.PeachPuff + Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn5, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4}) + 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.Editable = False + Me.GridView2.OptionsBehavior.ReadOnly = True + Me.GridView2.OptionsView.EnableAppearanceEvenRow = True + Me.GridView2.OptionsView.ShowAutoFilterRow = True ' - 'ADDED_WHENTextEdit + 'GridColumn5 ' - Me.ADDED_WHENTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextEdit, "ADDED_WHENTextEdit") - Me.ADDED_WHENTextEdit.MenuManager = Me.RibbonControl1 - Me.ADDED_WHENTextEdit.Name = "ADDED_WHENTextEdit" - Me.ADDED_WHENTextEdit.Properties.DisplayFormat.FormatString = "d" - Me.ADDED_WHENTextEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime - Me.ADDED_WHENTextEdit.Properties.EditFormat.FormatString = "d" - Me.ADDED_WHENTextEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime - Me.ADDED_WHENTextEdit.Properties.Mask.EditMask = resources.GetString("ADDED_WHENTextEdit.Properties.Mask.EditMask") - Me.ADDED_WHENTextEdit.Properties.Mask.MaskType = CType(resources.GetObject("ADDED_WHENTextEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) - Me.ADDED_WHENTextEdit.Properties.ReadOnly = True - Me.ADDED_WHENTextEdit.StyleController = Me.DataLayoutControl2 + resources.ApplyResources(Me.GridColumn5, "GridColumn5") + Me.GridColumn5.FieldName = "OBJ_NAME" + Me.GridColumn5.Name = "GridColumn5" ' - 'TextEdit4 + 'GridColumn2 ' - Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.TextEdit4, "TextEdit4") - Me.TextEdit4.MenuManager = Me.RibbonControl1 - Me.TextEdit4.Name = "TextEdit4" - Me.TextEdit4.Properties.ReadOnly = True - Me.TextEdit4.StyleController = Me.DataLayoutControl2 + resources.ApplyResources(Me.GridColumn2, "GridColumn2") + Me.GridColumn2.FieldName = "TITLE" + Me.GridColumn2.Name = "GridColumn2" ' - 'CHANGED_WHENTextEdit + 'GridColumn3 ' - Me.CHANGED_WHENTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextEdit, "CHANGED_WHENTextEdit") - Me.CHANGED_WHENTextEdit.MenuManager = Me.RibbonControl1 - Me.CHANGED_WHENTextEdit.Name = "CHANGED_WHENTextEdit" - Me.CHANGED_WHENTextEdit.Properties.DisplayFormat.FormatString = "d" - Me.CHANGED_WHENTextEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime - Me.CHANGED_WHENTextEdit.Properties.EditFormat.FormatString = "d" - Me.CHANGED_WHENTextEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime - Me.CHANGED_WHENTextEdit.Properties.Mask.EditMask = resources.GetString("CHANGED_WHENTextEdit.Properties.Mask.EditMask") - Me.CHANGED_WHENTextEdit.Properties.Mask.MaskType = CType(resources.GetObject("CHANGED_WHENTextEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) - Me.CHANGED_WHENTextEdit.Properties.ReadOnly = True - Me.CHANGED_WHENTextEdit.StyleController = Me.DataLayoutControl2 + resources.ApplyResources(Me.GridColumn3, "GridColumn3") + Me.GridColumn3.FieldName = "CAPT_TYPE" + Me.GridColumn3.Name = "GridColumn3" ' - 'OBJ_NAMETextEdit + 'GridColumn4 ' - Me.OBJ_NAMETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "OBJ_NAME", True)) - resources.ApplyResources(Me.OBJ_NAMETextEdit, "OBJ_NAMETextEdit") - Me.OBJ_NAMETextEdit.MenuManager = Me.RibbonControl1 - Me.OBJ_NAMETextEdit.Name = "OBJ_NAMETextEdit" - Me.OBJ_NAMETextEdit.StyleController = Me.DataLayoutControl2 + resources.ApplyResources(Me.GridColumn4, "GridColumn4") + Me.GridColumn4.FieldName = "LANGUAGE" + Me.GridColumn4.Name = "GridColumn4" + ' + 'TBDD_EMAIL_TEMPLATETableAdapter + ' + Me.TBDD_EMAIL_TEMPLATETableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Me.TBDD_EMAIL_TEMPLATETableAdapter + Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing + Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBDD_GUI_LANGUAGE_PHRASETableAdapter + ' + Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.ClearBeforeFill = True + ' + 'DataLayoutControl2 + ' + Me.DataLayoutControl2.Controls.Add(Me.TextEdit1) + Me.DataLayoutControl2.Controls.Add(Me.MODULETextEdit) + Me.DataLayoutControl2.Controls.Add(Me.TextEdit2) + Me.DataLayoutControl2.Controls.Add(Me.LANGUAGEComboBoxEdit) + Me.DataLayoutControl2.Controls.Add(Me.CAPT_TYPETextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING1TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING2TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING3TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING4TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING5TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING6TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.TextEdit3) + Me.DataLayoutControl2.Controls.Add(Me.ADDED_WHENTextEdit) + Me.DataLayoutControl2.Controls.Add(Me.TextEdit4) + Me.DataLayoutControl2.Controls.Add(Me.CHANGED_WHENTextEdit) + Me.DataLayoutControl2.Controls.Add(Me.OBJ_NAMETextEdit) + Me.DataLayoutControl2.Controls.Add(Me.INTERNALCheckEdit) + Me.DataLayoutControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource + resources.ApplyResources(Me.DataLayoutControl2, "DataLayoutControl2") + Me.DataLayoutControl2.Name = "DataLayoutControl2" + Me.DataLayoutControl2.Root = Me.LayoutControlGroup2 ' 'LayoutControlGroup2 ' Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutControlGroup2.GroupBordersVisible = False Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup3}) - Me.LayoutControlGroup2.Name = "Root" - Me.LayoutControlGroup2.Size = New System.Drawing.Size(548, 508) + Me.LayoutControlGroup2.Name = "LayoutControlGroup2" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(544, 479) Me.LayoutControlGroup2.TextVisible = False ' 'LayoutControlGroup3 ' Me.LayoutControlGroup3.AllowDrawBackground = False Me.LayoutControlGroup3.GroupBordersVisible = False - Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.ItemForMODULE, Me.ItemForSTRING1, Me.ItemForSTRING2, Me.ItemForSTRING3, Me.ItemForSTRING4, Me.ItemForSTRING5, Me.ItemForSTRING6, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.ItemForCAPT_TYPE, Me.LayoutControlItem2, Me.ItemForLANGUAGE, Me.LayoutControlItem7, Me.ItemForOBJ_NAME}) + Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.ItemForSTRING1, Me.ItemForSTRING2, Me.ItemForSTRING3, Me.ItemForSTRING4, Me.ItemForSTRING5, Me.ItemForSTRING6, Me.LayoutControlItem3, Me.LayoutControlItem5, Me.LayoutControlItem4, Me.LayoutControlItem6, Me.ItemForINTERNAL, Me.ItemForCAPT_TYPE, Me.ItemForLANGUAGE, Me.ItemForMODULE, Me.LayoutControlItem2, Me.ItemForOBJ_NAME}) Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 0) Me.LayoutControlGroup3.Name = "autoGeneratedGroup0" - Me.LayoutControlGroup3.Size = New System.Drawing.Size(528, 488) + Me.LayoutControlGroup3.Size = New System.Drawing.Size(524, 459) + ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "GUID", True)) + resources.ApplyResources(Me.TextEdit1, "TextEdit1") + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Properties.Appearance.Options.UseTextOptions = True + Me.TextEdit1.Properties.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.TextEdit1.Properties.Mask.EditMask = resources.GetString("TextEdit1.Properties.Mask.EditMask") + Me.TextEdit1.Properties.Mask.MaskType = CType(resources.GetObject("TextEdit1.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) + Me.TextEdit1.Properties.Mask.UseMaskAsDisplayFormat = CType(resources.GetObject("TextEdit1.Properties.Mask.UseMaskAsDisplayFormat"), Boolean) + Me.TextEdit1.Properties.ReadOnly = True + Me.TextEdit1.StyleController = Me.DataLayoutControl2 ' 'LayoutControlItem1 ' Me.LayoutControlItem1.Control = Me.TextEdit1 - Me.LayoutControlItem1.Enabled = False Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem1.Name = "ItemForGUID" - Me.LayoutControlItem1.Size = New System.Drawing.Size(150, 24) + Me.LayoutControlItem1.Size = New System.Drawing.Size(262, 24) resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1") Me.LayoutControlItem1.TextSize = New System.Drawing.Size(74, 13) ' + 'MODULETextEdit + ' + Me.MODULETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "MODULE", True)) + resources.ApplyResources(Me.MODULETextEdit, "MODULETextEdit") + Me.MODULETextEdit.MenuManager = Me.RibbonControl1 + Me.MODULETextEdit.Name = "MODULETextEdit" + Me.MODULETextEdit.StyleController = Me.DataLayoutControl2 + ' 'ItemForMODULE ' Me.ItemForMODULE.Control = Me.MODULETextEdit - Me.ItemForMODULE.Location = New System.Drawing.Point(0, 72) + Me.ItemForMODULE.Location = New System.Drawing.Point(374, 0) Me.ItemForMODULE.Name = "ItemForMODULE" Me.ItemForMODULE.Size = New System.Drawing.Size(150, 24) resources.ApplyResources(Me.ItemForMODULE, "ItemForMODULE") Me.ItemForMODULE.TextSize = New System.Drawing.Size(74, 13) ' + 'TextEdit2 + ' + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "TITLE", True)) + resources.ApplyResources(Me.TextEdit2, "TextEdit2") + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.StyleController = Me.DataLayoutControl2 + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEdit2 + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 72) + Me.LayoutControlItem2.Name = "ItemForTITLE" + Me.LayoutControlItem2.Size = New System.Drawing.Size(524, 24) + resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2") + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(74, 13) + ' + 'LANGUAGEComboBoxEdit + ' + Me.LANGUAGEComboBoxEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "LANGUAGE", True)) + resources.ApplyResources(Me.LANGUAGEComboBoxEdit, "LANGUAGEComboBoxEdit") + Me.LANGUAGEComboBoxEdit.MenuManager = Me.RibbonControl1 + Me.LANGUAGEComboBoxEdit.Name = "LANGUAGEComboBoxEdit" + Me.LANGUAGEComboBoxEdit.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("LANGUAGEComboBoxEdit.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) + Me.LANGUAGEComboBoxEdit.StyleController = Me.DataLayoutControl2 + ' + 'ItemForLANGUAGE + ' + Me.ItemForLANGUAGE.Control = Me.LANGUAGEComboBoxEdit + Me.ItemForLANGUAGE.Location = New System.Drawing.Point(0, 24) + Me.ItemForLANGUAGE.Name = "ItemForLANGUAGE" + Me.ItemForLANGUAGE.Size = New System.Drawing.Size(524, 24) + resources.ApplyResources(Me.ItemForLANGUAGE, "ItemForLANGUAGE") + Me.ItemForLANGUAGE.TextSize = New System.Drawing.Size(74, 13) + ' + 'CAPT_TYPETextEdit + ' + Me.CAPT_TYPETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CAPT_TYPE", True)) + resources.ApplyResources(Me.CAPT_TYPETextEdit, "CAPT_TYPETextEdit") + Me.CAPT_TYPETextEdit.MenuManager = Me.RibbonControl1 + Me.CAPT_TYPETextEdit.Name = "CAPT_TYPETextEdit" + Me.CAPT_TYPETextEdit.StyleController = Me.DataLayoutControl2 + ' + 'ItemForCAPT_TYPE + ' + Me.ItemForCAPT_TYPE.Control = Me.CAPT_TYPETextEdit + Me.ItemForCAPT_TYPE.Location = New System.Drawing.Point(0, 96) + Me.ItemForCAPT_TYPE.Name = "ItemForCAPT_TYPE" + Me.ItemForCAPT_TYPE.Size = New System.Drawing.Size(524, 24) + resources.ApplyResources(Me.ItemForCAPT_TYPE, "ItemForCAPT_TYPE") + Me.ItemForCAPT_TYPE.TextSize = New System.Drawing.Size(74, 13) + ' + 'STRING1TextEdit + ' + Me.STRING1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True)) + resources.ApplyResources(Me.STRING1TextEdit, "STRING1TextEdit") + Me.STRING1TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING1TextEdit.Name = "STRING1TextEdit" + Me.STRING1TextEdit.StyleController = Me.DataLayoutControl2 + ' 'ItemForSTRING1 ' Me.ItemForSTRING1.Control = Me.STRING1TextEdit - Me.ItemForSTRING1.Location = New System.Drawing.Point(0, 96) + Me.ItemForSTRING1.Location = New System.Drawing.Point(0, 120) Me.ItemForSTRING1.Name = "ItemForSTRING1" - Me.ItemForSTRING1.Size = New System.Drawing.Size(528, 24) + Me.ItemForSTRING1.Size = New System.Drawing.Size(524, 24) resources.ApplyResources(Me.ItemForSTRING1, "ItemForSTRING1") Me.ItemForSTRING1.TextSize = New System.Drawing.Size(74, 13) ' + 'STRING2TextEdit + ' + Me.STRING2TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True)) + resources.ApplyResources(Me.STRING2TextEdit, "STRING2TextEdit") + Me.STRING2TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING2TextEdit.Name = "STRING2TextEdit" + Me.STRING2TextEdit.StyleController = Me.DataLayoutControl2 + ' 'ItemForSTRING2 ' Me.ItemForSTRING2.Control = Me.STRING2TextEdit - Me.ItemForSTRING2.Location = New System.Drawing.Point(0, 120) + Me.ItemForSTRING2.Location = New System.Drawing.Point(0, 144) Me.ItemForSTRING2.Name = "ItemForSTRING2" - Me.ItemForSTRING2.Size = New System.Drawing.Size(528, 24) + Me.ItemForSTRING2.Size = New System.Drawing.Size(524, 24) resources.ApplyResources(Me.ItemForSTRING2, "ItemForSTRING2") Me.ItemForSTRING2.TextSize = New System.Drawing.Size(74, 13) ' + 'STRING3TextEdit + ' + Me.STRING3TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING3", True)) + resources.ApplyResources(Me.STRING3TextEdit, "STRING3TextEdit") + Me.STRING3TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING3TextEdit.Name = "STRING3TextEdit" + Me.STRING3TextEdit.StyleController = Me.DataLayoutControl2 + ' 'ItemForSTRING3 ' Me.ItemForSTRING3.Control = Me.STRING3TextEdit - Me.ItemForSTRING3.Location = New System.Drawing.Point(0, 144) + Me.ItemForSTRING3.Location = New System.Drawing.Point(0, 168) Me.ItemForSTRING3.Name = "ItemForSTRING3" - Me.ItemForSTRING3.Size = New System.Drawing.Size(528, 24) + Me.ItemForSTRING3.Size = New System.Drawing.Size(524, 24) resources.ApplyResources(Me.ItemForSTRING3, "ItemForSTRING3") Me.ItemForSTRING3.TextSize = New System.Drawing.Size(74, 13) ' + 'STRING4TextEdit + ' + Me.STRING4TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING4", True)) + resources.ApplyResources(Me.STRING4TextEdit, "STRING4TextEdit") + Me.STRING4TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING4TextEdit.Name = "STRING4TextEdit" + Me.STRING4TextEdit.StyleController = Me.DataLayoutControl2 + ' 'ItemForSTRING4 ' Me.ItemForSTRING4.Control = Me.STRING4TextEdit - Me.ItemForSTRING4.Location = New System.Drawing.Point(0, 168) + Me.ItemForSTRING4.Location = New System.Drawing.Point(0, 192) Me.ItemForSTRING4.Name = "ItemForSTRING4" - Me.ItemForSTRING4.Size = New System.Drawing.Size(528, 24) + Me.ItemForSTRING4.Size = New System.Drawing.Size(524, 24) resources.ApplyResources(Me.ItemForSTRING4, "ItemForSTRING4") Me.ItemForSTRING4.TextSize = New System.Drawing.Size(74, 13) ' + 'STRING5TextEdit + ' + Me.STRING5TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING5", True)) + resources.ApplyResources(Me.STRING5TextEdit, "STRING5TextEdit") + Me.STRING5TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING5TextEdit.Name = "STRING5TextEdit" + Me.STRING5TextEdit.StyleController = Me.DataLayoutControl2 + ' 'ItemForSTRING5 ' Me.ItemForSTRING5.Control = Me.STRING5TextEdit - Me.ItemForSTRING5.Location = New System.Drawing.Point(0, 192) + Me.ItemForSTRING5.Location = New System.Drawing.Point(0, 216) Me.ItemForSTRING5.Name = "ItemForSTRING5" - Me.ItemForSTRING5.Size = New System.Drawing.Size(528, 24) + Me.ItemForSTRING5.Size = New System.Drawing.Size(524, 24) resources.ApplyResources(Me.ItemForSTRING5, "ItemForSTRING5") Me.ItemForSTRING5.TextSize = New System.Drawing.Size(74, 13) ' + 'STRING6TextEdit + ' + Me.STRING6TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING6", True)) + resources.ApplyResources(Me.STRING6TextEdit, "STRING6TextEdit") + Me.STRING6TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING6TextEdit.Name = "STRING6TextEdit" + Me.STRING6TextEdit.StyleController = Me.DataLayoutControl2 + ' 'ItemForSTRING6 ' Me.ItemForSTRING6.Control = Me.STRING6TextEdit - Me.ItemForSTRING6.Location = New System.Drawing.Point(0, 216) + Me.ItemForSTRING6.Location = New System.Drawing.Point(0, 240) Me.ItemForSTRING6.Name = "ItemForSTRING6" - Me.ItemForSTRING6.Size = New System.Drawing.Size(528, 24) + Me.ItemForSTRING6.Size = New System.Drawing.Size(524, 24) resources.ApplyResources(Me.ItemForSTRING6, "ItemForSTRING6") Me.ItemForSTRING6.TextSize = New System.Drawing.Size(74, 13) ' + 'TextEdit3 + ' + Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "ADDED_WHO", True)) + resources.ApplyResources(Me.TextEdit3, "TextEdit3") + Me.TextEdit3.MenuManager = Me.RibbonControl1 + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.Properties.ReadOnly = True + Me.TextEdit3.StyleController = Me.DataLayoutControl2 + ' 'LayoutControlItem3 ' Me.LayoutControlItem3.Control = Me.TextEdit3 - Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 240) + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 264) Me.LayoutControlItem3.Name = "ItemForADDED_WHO" - Me.LayoutControlItem3.Size = New System.Drawing.Size(528, 24) + Me.LayoutControlItem3.Size = New System.Drawing.Size(262, 24) resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3") Me.LayoutControlItem3.TextSize = New System.Drawing.Size(74, 13) ' + 'ADDED_WHENTextEdit + ' + Me.ADDED_WHENTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "ADDED_WHEN", True)) + resources.ApplyResources(Me.ADDED_WHENTextEdit, "ADDED_WHENTextEdit") + Me.ADDED_WHENTextEdit.MenuManager = Me.RibbonControl1 + Me.ADDED_WHENTextEdit.Name = "ADDED_WHENTextEdit" + Me.ADDED_WHENTextEdit.Properties.DisplayFormat.FormatString = "d" + Me.ADDED_WHENTextEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.ADDED_WHENTextEdit.Properties.EditFormat.FormatString = "d" + Me.ADDED_WHENTextEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.ADDED_WHENTextEdit.Properties.Mask.EditMask = resources.GetString("ADDED_WHENTextEdit.Properties.Mask.EditMask") + Me.ADDED_WHENTextEdit.Properties.Mask.MaskType = CType(resources.GetObject("ADDED_WHENTextEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) + Me.ADDED_WHENTextEdit.Properties.ReadOnly = True + Me.ADDED_WHENTextEdit.StyleController = Me.DataLayoutControl2 + ' 'LayoutControlItem4 ' Me.LayoutControlItem4.Control = Me.ADDED_WHENTextEdit - Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 264) + Me.LayoutControlItem4.Location = New System.Drawing.Point(262, 264) Me.LayoutControlItem4.Name = "ItemForADDED_WHEN" - Me.LayoutControlItem4.Size = New System.Drawing.Size(528, 24) + Me.LayoutControlItem4.Size = New System.Drawing.Size(262, 24) resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4") Me.LayoutControlItem4.TextSize = New System.Drawing.Size(74, 13) ' + 'TextEdit4 + ' + Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHO", True)) + resources.ApplyResources(Me.TextEdit4, "TextEdit4") + Me.TextEdit4.MenuManager = Me.RibbonControl1 + Me.TextEdit4.Name = "TextEdit4" + Me.TextEdit4.Properties.ReadOnly = True + Me.TextEdit4.StyleController = Me.DataLayoutControl2 + ' 'LayoutControlItem5 ' Me.LayoutControlItem5.Control = Me.TextEdit4 Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 288) Me.LayoutControlItem5.Name = "ItemForCHANGED_WHO" - Me.LayoutControlItem5.Size = New System.Drawing.Size(528, 24) + Me.LayoutControlItem5.Size = New System.Drawing.Size(262, 171) resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5") Me.LayoutControlItem5.TextSize = New System.Drawing.Size(74, 13) ' + 'CHANGED_WHENTextEdit + ' + Me.CHANGED_WHENTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHEN", True)) + resources.ApplyResources(Me.CHANGED_WHENTextEdit, "CHANGED_WHENTextEdit") + Me.CHANGED_WHENTextEdit.MenuManager = Me.RibbonControl1 + Me.CHANGED_WHENTextEdit.Name = "CHANGED_WHENTextEdit" + Me.CHANGED_WHENTextEdit.Properties.DisplayFormat.FormatString = "d" + Me.CHANGED_WHENTextEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.CHANGED_WHENTextEdit.Properties.EditFormat.FormatString = "d" + Me.CHANGED_WHENTextEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.CHANGED_WHENTextEdit.Properties.Mask.EditMask = resources.GetString("CHANGED_WHENTextEdit.Properties.Mask.EditMask") + Me.CHANGED_WHENTextEdit.Properties.Mask.MaskType = CType(resources.GetObject("CHANGED_WHENTextEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) + Me.CHANGED_WHENTextEdit.Properties.ReadOnly = True + Me.CHANGED_WHENTextEdit.StyleController = Me.DataLayoutControl2 + ' 'LayoutControlItem6 ' Me.LayoutControlItem6.Control = Me.CHANGED_WHENTextEdit - Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 312) + Me.LayoutControlItem6.Location = New System.Drawing.Point(262, 288) Me.LayoutControlItem6.Name = "ItemForCHANGED_WHEN" - Me.LayoutControlItem6.Size = New System.Drawing.Size(528, 176) + Me.LayoutControlItem6.Size = New System.Drawing.Size(262, 171) resources.ApplyResources(Me.LayoutControlItem6, "LayoutControlItem6") Me.LayoutControlItem6.TextSize = New System.Drawing.Size(74, 13) ' + 'OBJ_NAMETextEdit + ' + Me.OBJ_NAMETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "OBJ_NAME", True)) + resources.ApplyResources(Me.OBJ_NAMETextEdit, "OBJ_NAMETextEdit") + Me.OBJ_NAMETextEdit.MenuManager = Me.RibbonControl1 + Me.OBJ_NAMETextEdit.Name = "OBJ_NAMETextEdit" + Me.OBJ_NAMETextEdit.StyleController = Me.DataLayoutControl2 + ' 'ItemForOBJ_NAME ' Me.ItemForOBJ_NAME.Control = Me.OBJ_NAMETextEdit - Me.ItemForOBJ_NAME.Location = New System.Drawing.Point(150, 24) + Me.ItemForOBJ_NAME.Location = New System.Drawing.Point(0, 48) Me.ItemForOBJ_NAME.Name = "ItemForOBJ_NAME" - Me.ItemForOBJ_NAME.Size = New System.Drawing.Size(378, 24) + Me.ItemForOBJ_NAME.Size = New System.Drawing.Size(524, 24) resources.ApplyResources(Me.ItemForOBJ_NAME, "ItemForOBJ_NAME") Me.ItemForOBJ_NAME.TextSize = New System.Drawing.Size(74, 13) ' - 'ItemForCAPT_TYPE - ' - Me.ItemForCAPT_TYPE.Control = Me.CAPT_TYPETextEdit - Me.ItemForCAPT_TYPE.Location = New System.Drawing.Point(0, 24) - Me.ItemForCAPT_TYPE.Name = "ItemForCAPT_TYPE" - Me.ItemForCAPT_TYPE.Size = New System.Drawing.Size(150, 48) - resources.ApplyResources(Me.ItemForCAPT_TYPE, "ItemForCAPT_TYPE") - Me.ItemForCAPT_TYPE.TextSize = New System.Drawing.Size(74, 13) - ' - 'LayoutControlItem2 - ' - Me.LayoutControlItem2.Control = Me.TextEdit2 - Me.LayoutControlItem2.Location = New System.Drawing.Point(150, 48) - Me.LayoutControlItem2.Name = "ItemForTITLE" - Me.LayoutControlItem2.Size = New System.Drawing.Size(378, 24) - resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2") - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(74, 13) - ' - 'ItemForLANGUAGE - ' - Me.ItemForLANGUAGE.Control = Me.LANGUAGETextEdit - Me.ItemForLANGUAGE.Location = New System.Drawing.Point(150, 72) - Me.ItemForLANGUAGE.Name = "ItemForLANGUAGE" - Me.ItemForLANGUAGE.Size = New System.Drawing.Size(378, 24) - resources.ApplyResources(Me.ItemForLANGUAGE, "ItemForLANGUAGE") - Me.ItemForLANGUAGE.TextSize = New System.Drawing.Size(74, 13) - ' - 'GridControl2 - ' - Me.GridControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource - resources.ApplyResources(Me.GridControl2, "GridControl2") - Me.GridControl2.MainView = Me.GridView2 - Me.GridControl2.MenuManager = Me.RibbonControl1 - Me.GridControl2.Name = "GridControl2" - Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) - ' - 'GridView2 - ' - Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.PeachPuff - Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True - Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn5, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4}) - 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.Editable = False - Me.GridView2.OptionsBehavior.ReadOnly = True - Me.GridView2.OptionsView.EnableAppearanceEvenRow = True - Me.GridView2.OptionsView.ShowAutoFilterRow = True - ' - 'GridColumn5 - ' - resources.ApplyResources(Me.GridColumn5, "GridColumn5") - Me.GridColumn5.FieldName = "OBJ_NAME" - Me.GridColumn5.Name = "GridColumn5" - ' - 'GridColumn2 - ' - resources.ApplyResources(Me.GridColumn2, "GridColumn2") - Me.GridColumn2.FieldName = "TITLE" - Me.GridColumn2.Name = "GridColumn2" - ' - 'GridColumn3 - ' - resources.ApplyResources(Me.GridColumn3, "GridColumn3") - Me.GridColumn3.FieldName = "CAPT_TYPE" - Me.GridColumn3.Name = "GridColumn3" - ' - 'GridColumn4 - ' - resources.ApplyResources(Me.GridColumn4, "GridColumn4") - Me.GridColumn4.FieldName = "LANGUAGE" - Me.GridColumn4.Name = "GridColumn4" - ' - 'TBDD_EMAIL_TEMPLATETableAdapter - ' - Me.TBDD_EMAIL_TEMPLATETableAdapter.ClearBeforeFill = True - ' - 'TableAdapterManager - ' - Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing - Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Me.TBDD_EMAIL_TEMPLATETableAdapter - Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing - Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing - Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing - Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing - Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete - ' - 'TBDD_GUI_LANGUAGE_PHRASETableAdapter - ' - Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.ClearBeforeFill = True - ' - 'ADDED_WHENDateEdit - ' - Me.ADDED_WHENDateEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENDateEdit, "ADDED_WHENDateEdit") - Me.ADDED_WHENDateEdit.MenuManager = Me.RibbonControl1 - Me.ADDED_WHENDateEdit.Name = "ADDED_WHENDateEdit" - Me.ADDED_WHENDateEdit.Properties.DisplayFormat.FormatString = "d" - Me.ADDED_WHENDateEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime - Me.ADDED_WHENDateEdit.Properties.EditFormat.FormatString = "d" - Me.ADDED_WHENDateEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime - Me.ADDED_WHENDateEdit.Properties.Mask.EditMask = resources.GetString("ADDED_WHENDateEdit.Properties.Mask.EditMask") - Me.ADDED_WHENDateEdit.Properties.Mask.MaskType = CType(resources.GetObject("ADDED_WHENDateEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) - Me.ADDED_WHENDateEdit.Properties.ReadOnly = True - Me.ADDED_WHENDateEdit.StyleController = Me.DataLayoutControl1 - ' - 'CHANGED_WHENDateEdit - ' - Me.CHANGED_WHENDateEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENDateEdit, "CHANGED_WHENDateEdit") - Me.CHANGED_WHENDateEdit.MenuManager = Me.RibbonControl1 - Me.CHANGED_WHENDateEdit.Name = "CHANGED_WHENDateEdit" - Me.CHANGED_WHENDateEdit.Properties.DisplayFormat.FormatString = "d" - Me.CHANGED_WHENDateEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime - Me.CHANGED_WHENDateEdit.Properties.EditFormat.FormatString = "d" - Me.CHANGED_WHENDateEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime - Me.CHANGED_WHENDateEdit.Properties.Mask.EditMask = resources.GetString("CHANGED_WHENDateEdit.Properties.Mask.EditMask") - Me.CHANGED_WHENDateEdit.Properties.Mask.MaskType = CType(resources.GetObject("CHANGED_WHENDateEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) - Me.CHANGED_WHENDateEdit.Properties.ReadOnly = True - Me.CHANGED_WHENDateEdit.StyleController = Me.DataLayoutControl1 - ' 'INTERNALCheckEdit ' Me.INTERNALCheckEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "INTERNAL", True)) resources.ApplyResources(Me.INTERNALCheckEdit, "INTERNALCheckEdit") Me.INTERNALCheckEdit.MenuManager = Me.RibbonControl1 Me.INTERNALCheckEdit.Name = "INTERNALCheckEdit" - Me.INTERNALCheckEdit.Properties.Caption = resources.GetString("CheckEdit1.Properties.Caption") + Me.INTERNALCheckEdit.Properties.Caption = resources.GetString("INTERNALCheckEdit.Properties.Caption") + Me.INTERNALCheckEdit.Properties.GlyphAlignment = CType(resources.GetObject("INTERNALCheckEdit.Properties.GlyphAlignment"), DevExpress.Utils.HorzAlignment) Me.INTERNALCheckEdit.StyleController = Me.DataLayoutControl2 ' - 'LayoutControlItem7 + 'ItemForINTERNAL ' - Me.LayoutControlItem7.Control = Me.INTERNALCheckEdit - Me.LayoutControlItem7.Location = New System.Drawing.Point(150, 0) - Me.LayoutControlItem7.Name = "LayoutControlItem7" - Me.LayoutControlItem7.Size = New System.Drawing.Size(378, 24) - Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem7.TextVisible = False + Me.ItemForINTERNAL.Control = Me.INTERNALCheckEdit + Me.ItemForINTERNAL.Location = New System.Drawing.Point(262, 0) + Me.ItemForINTERNAL.Name = "ItemForINTERNAL" + Me.ItemForINTERNAL.Size = New System.Drawing.Size(112, 24) + resources.ApplyResources(Me.ItemForINTERNAL, "ItemForINTERNAL") + Me.ItemForINTERNAL.TextSize = New System.Drawing.Size(0, 0) + Me.ItemForINTERNAL.TextVisible = False ' 'frmAdmin2 ' @@ -1079,11 +1259,15 @@ Partial Class frmAdmin2 CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabPage1.ResumeLayout(False) + Me.XtraTabPage1.PerformLayout() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.TBDD_EMAIL_TEMPLATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataLayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.DataLayoutControl1.ResumeLayout(False) CType(Me.GUIDTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBDD_EMAIL_TEMPLATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TITLETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EMAIL_BODY3TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ADDED_WHOTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() @@ -1091,6 +1275,8 @@ Partial Class frmAdmin2 CType(Me.EMAIL_BODY1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EMAIL_BODY2TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EMAIL_SUBJECTTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ADDED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForGUID, System.ComponentModel.ISupportInitialize).EndInit() @@ -1106,49 +1292,51 @@ Partial Class frmAdmin2 CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPage2.ResumeLayout(False) + Me.XtraTabPage2.PerformLayout() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator2.ResumeLayout(False) + Me.BindingNavigator2.PerformLayout() + CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataLayoutControl2, System.ComponentModel.ISupportInitialize).EndInit() Me.DataLayoutControl2.ResumeLayout(False) + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MODULETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForMODULE, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LANGUAGETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LANGUAGEComboBoxEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForLANGUAGE, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForCAPT_TYPE, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.STRING5TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.STRING6TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ADDED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.CHANGED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.OBJ_NAMETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForMODULE, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForSTRING1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForSTRING2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForSTRING3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForSTRING4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.STRING5TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForSTRING5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.STRING6TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForSTRING6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ADDED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.OBJ_NAMETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForOBJ_NAME, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForCAPT_TYPE, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForLANGUAGE, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ADDED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.CHANGED_WHENDateEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.INTERNALCheckEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForINTERNAL, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -1212,11 +1400,35 @@ Partial Class frmAdmin2 Friend WithEvents ItemForCHANGED_WHEN As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem Friend WithEvents EMAIL_SUBJECTTextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents ADDED_WHENDateEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents CHANGED_WHENDateEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents BindingNavigator1 As BindingNavigator + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator + Friend WithEvents BindingNavigator2 As BindingNavigator + Friend WithEvents ToolStripLabel1 As ToolStripLabel + Friend WithEvents ToolStripButton1 As ToolStripButton + Friend WithEvents ToolStripButton2 As ToolStripButton + Friend WithEvents ToolStripSeparator1 As ToolStripSeparator + Friend WithEvents ToolStripTextBox1 As ToolStripTextBox + Friend WithEvents ToolStripSeparator2 As ToolStripSeparator + Friend WithEvents ToolStripButton3 As ToolStripButton + Friend WithEvents ToolStripButton4 As ToolStripButton + Friend WithEvents ToolStripSeparator3 As ToolStripSeparator + Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem Friend WithEvents DataLayoutControl2 As DevExpress.XtraDataLayout.DataLayoutControl Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit Friend WithEvents MODULETextEdit As DevExpress.XtraEditors.TextEdit Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit - Friend WithEvents LANGUAGETextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents LANGUAGEComboBoxEdit As DevExpress.XtraEditors.ComboBoxEdit Friend WithEvents CAPT_TYPETextEdit As DevExpress.XtraEditors.TextEdit Friend WithEvents STRING1TextEdit As DevExpress.XtraEditors.TextEdit Friend WithEvents STRING2TextEdit As DevExpress.XtraEditors.TextEdit @@ -1229,10 +1441,10 @@ Partial Class frmAdmin2 Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit Friend WithEvents CHANGED_WHENTextEdit As DevExpress.XtraEditors.TextEdit Friend WithEvents OBJ_NAMETextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents INTERNALCheckEdit As DevExpress.XtraEditors.CheckEdit Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup Friend WithEvents LayoutControlGroup3 As DevExpress.XtraLayout.LayoutControlGroup Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents ItemForMODULE As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents ItemForSTRING1 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents ItemForSTRING2 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents ItemForSTRING3 As DevExpress.XtraLayout.LayoutControlItem @@ -1240,15 +1452,13 @@ Partial Class frmAdmin2 Friend WithEvents ItemForSTRING5 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents ItemForSTRING6 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents ItemForOBJ_NAME As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForINTERNAL As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents ItemForCAPT_TYPE As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents ItemForLANGUAGE As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents ADDED_WHENDateEdit As DevExpress.XtraEditors.TextEdit - Friend WithEvents CHANGED_WHENDateEdit As DevExpress.XtraEditors.TextEdit - Friend WithEvents INTERNALCheckEdit As DevExpress.XtraEditors.CheckEdit - Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForMODULE As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ItemForOBJ_NAME As DevExpress.XtraLayout.LayoutControlItem End Class diff --git a/app/DD_PM_WINDREAM/frmAdmin2.resx b/app/DD_PM_WINDREAM/frmAdmin2.resx index a426e74..a557db8 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.resx +++ b/app/DD_PM_WINDREAM/frmAdmin2.resx @@ -410,14 +410,132 @@ cQ5JIefGVIKnK+w7MLHifdEUc9IUc9IU81FGP7lCqzQ2PA77AAAAAElFTkSuQmCC - - 0, 0 + + Layout zurücksetzen - - Vorlagen Verwaltung + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABt0RVh0VGl0 + bGUAQ2xlYXJBbGw7Q2xlYXI7RXJhc2U7kPZJ7AAAApVJREFUOE+dkmtIk1EYx0+5udkaWfnBJIosW4qE + mkZaaqAiG0GloF2srZBsWpoZ5SWtvFKolGR+yZZtgwolTNe0FGpEITjzMlPzUoolRpA638Is/50zNlMr + iP7w43nf85zfc+A9L/nHLKLYUXiUxWxhXgzHdpN3BSfI27wEMpAXT/pzlaQvR0l6s4+zNpP5xlRFcUfG + UWOtMnInfeeZ0o6QjlQF6xPSIJcRAL9Bw2T7ppSYWzPmXoDSlZvAaWOkoXSdb+0TUppV9DdZ8DwxWvVj + rBucvpxyEzPjPWjPT+IyfSThtG/PNpIU7es/ycLGuIjb3z+ZwD0swySFqynD9HAz3shluB+y5Uuyx1oZ + 2zxvAA2THfSKXRXTI69grirBZNU1Sgm+DbxA72Ep+g5J0XUgHNd93MaYQJLVprnykgf7wu5MDTXBfLeQ + UmSpU91P0RMdip6oEEooDFJ/XHR1MTCJnFS1ssJkkaK4Qd0+OIoJdQHGNQWW+rW1Hp17gqwEwxDmh0vr + nNs3iwSuTGRhdys6eFmveTbEIbN2FHX3dBhXZYNrqkYbPa1NFkBrABqDvXB+tVOHu9DejTrsJiwnL43K + rdE+6Z+wyDYGW9rQEuILI4XVx/6eOOfsaJIIeButMnOJcG9WZXlN1+d5ssb4EUEZOuTHpKA52Bt1fu44 + 4yTu3MDnSWwyXWc+EUfk1JvTqz/MyuUvRxCY/oiis5ARqcSp5aLO9Ty7TXQ/u3uLbBsgDIy9mrq/0DBz + tnIQNwzD2J6mww4r/qer4C0v7V4lXumxULYNYB9Q7B11IT4oUfM+IEGLbUo1tsZVwDdWNe0ZfUW/bI3X + 7MlJDnwyF1vYEAfKCoozxcUKe3ak/PrvF8b2B/4fID8BXoqyTdj+h80AAAAASUVORK5CYII= + - - Phrasen Verwaltung + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABt0RVh0VGl0 + bGUAQ2xlYXJBbGw7Q2xlYXI7RXJhc2U7kPZJ7AAACEhJREFUWEfFlwlQVdcZx491Q8W6JY3WNKlGq04m + GpfqqMQk2kSrYyeZ1GqjSVSiIhEFRURAERFQEUQERFlkUVksimxPFnGDxybwWAQRfGwCmqjs8ODp/Pt9 + 970HD8tMO5NM+s385tz73XvO77vn3HN5CAD/V/pN/pr8kjGA+A0xUAsfc+6/h0uCUgSnKcWV7P8kiigL + 8xJVIcdEVfBRLS4SlUGMMw/BskGF3ge+qvA/HFNyxt7q74tnG2jzAyrOOYiKs4SvvXjgtlcorL/jPr3B + BVQ3qfqlq+GReFlfpseDPlCwZHCxz4Ef6mMC0PkoCz+lhKHM52D0spl/Gk7XeDYGqGuKhbpSIbpLM4XC + aj336w2pgEatlFstGnlfoURdKXfTTfngfI/9Zk9koXj19D66FEl41VCApiwZSk5ZXzOaPmkE3TOI7+8u + lYuuorsievpEOtUL53ia5ufdouqFSlSRmFHpy0moD4VOPiTXfZ/Zk/ggkhZClXkNqoyrEi9rctCUHoPC + o+Yxc/44cSTdKxWhyksRUZPepEO9cIpVioKnL0X5sy6hfE7y+ooemVonflwiQdErd91t1hAbID2xKuMK + VPIoqNL/hc60y+i8Ewn1IzlepEYi/+C2mA/Gj/st9RnM/ePXfUGNXjjGKEU+FaAgVHXlGjHJGElcS8e0 + hhQs5zUdmu1ktrMh2g+v6hQkJeHdSJJGEOHouBmGjtRLxEW8+rEU9b6OiJj2+9jJQwaNor5cBD9Abxy6 + ViHyGtTES9GhpJeFX5ja+5qWqS7i23rkGYe272qI8sXLx/novB2Ozlu9wo4bF9CRHIL2pGCagSz86LoH + tRbrUbT5S0R+uSpuypSpo2kMaSYITRy8UiFy69XiHhVxj9r2iiKhVipIXChBoZMbpNlsMa8LPw11zT2N + MOUC2pNDSRpM0iC0Xz+Pdlkguh6k46nzTiiNV6OSqPZyRumDcoT/86u4d4cM5CKkd4IQwi6qXOSQWJ/2 + igLRXZbFl3vkqaZrzGuDT0BdmSU9Ya8wAO3x/miP80PbVW90FafiidMOVGxaJaF0PYBKZQ2UZ47j9l/m + wWfC6GM8HqFZiv2R5SK7rptQ67VqvqSTD0vauNJC6WWP7vJ0tCeQUOaPtthzaIs5g7Yr3mi7fBKt4W7o + yktEw2FTlH+7UsNRW1RUVKLcw0k6L1y7DK7jDHNpTP5GaAqwjngoMh93S2RwS0VQsJynaXjiNysslO42 + 6KYna408hdYId8INrWEn0HrJFa0Xj6PlwjGosuNRb2+Ch+uXa3Daj7IyJcrcHFH2NedWQDb3PZwcb7iT + xh1GaAqwDHsg5DXdQk7y9Nq+chPv27tLzrqiqyCRhG5ouXQCLVphS+hRtIQ4oyXYmbZgNB7bbkHp2s81 + OOxDSUk5So8fQuk6Te7GohnweGuEB42r2w2ad2D3xRJxt6pL3CG0SZaP2OqZuudk0mOkVHfjSUwwSVno + ItEc5ISW845oDjxMOyEStdabcH/NMpQQxfZ7UVhchmKXg1KOSV4wDe5vDj9F444hhmo9mjAPvS9SlSo+ + 7JFvPpli6Xq9FjJlF3zkbfCWt+JJlB8JSRpwGM3+9mjys5e2XY3Vtyj64hOJQtvdUChKUOhg05NLnDeV + 1n2YJ407lmB53++AWfB9bljO02K40S3Z0iWhFnHlKnimteK0HvXh3mg6a4cmX1u00Xar2r0eBauNJBTW + u5CXV0xfPquenGzOeyQ3YPk4QpKfe4OXv2/o5CM3HE/ceyS2GldKO+Fxp6Vf6oLd0XbtLCp3rYVi5ULk + r1yE3L07kHWvCLl2lnTOuYVImDUJR8cOPU3jvkFI247ywncc19EbPfJ1LglW9tHViCjugNutZg239drb + LXCnNiSvHaWWxshdsQD3li9Azh5TZGTlI8fGQsrlUi525rtwGjPEi8btkVNe0P3CZ8wQOu0NXvORaxzj + 9tlGVSFE0Q7Xm01wTW3WcFOLdNyEwJxWbAkoxse2CUha9TmyzE2QLs9DptUu5Hz2Z2I+Yt5/B0dGDWY5 + /9mT5HRNaJgvTo9iZW8MN/ZI2bPvciUCaHCX5CaiES4p3BLcao/PZLTA2K8IS2wSJLZ7peJOWg4yLM2Q + tXSuxLUZb8Nx5EBvGvd3hLTXs5fNFXRNZGvZNYwnvDdGWYSWNnmlN8MpqRFHtOgfM55pzdh0rggfkfij + /QkwOXUDKXdysNM7FbLlnyLzk9m4On0iHAwH+tCYbxGSnPJCR8bHBLWmBn0LGL3BM6/ZQfYMh68/l3BI + 1LQaGuF+qxHfnS2EEYmZrR7JSLqVCTOvFCy2kUlcnDEZh0b0lWcYzRIZSz4ktC2fG30oTAz6LoHhatvo + vSbnH8Je9hz2Cc8IbjXHx2404hvfAizeHy+x5WQyElPk+MEzGYutKUfM+j4I73xmxWs+npC+8fLFM4Xc + iOD2Nba9VgC/kmNX7Iuw2xb4EHaxP+FA3DPYEUcSX2DDGZJrRd+7J0GWlAZTSR4n8cHmAExcaslrznLd + 931Af2IdrxfAHXhjjlthFWG3wbtQvTOshop4iq99FJJ4EU27sVsiYhPv0tonYyHlZptewNR/eLya+ImF + G/WdQPT8Ao5fuqRfsY6tQ/sWwKErYuyUZSbL5230SVqwLahlwfZQzDcJwac7AmHndAp/Mz+HOcaBmL3J + X/X+WjfZH4w2raY+vNX4ySX5hJX+YsJf/cSOYQZiKz0ps4Xgp2ZY3l8B/DHiAbgI/rXCv5snE9OI6f0w + hXib4D8svM8lOfGzggdguDwuhKeUf9PrY6ht+RqL+V5pzYlfLHSF/K/8vOjvP9ZfD4h/A3ouN+lMfNXY + AAAAAElFTkSuQmCC + + + + Layout zurücksetzen + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABt0RVh0VGl0 + bGUAQ2xlYXJBbGw7Q2xlYXI7RXJhc2U7kPZJ7AAAApVJREFUOE+dkmtIk1EYx0+5udkaWfnBJIosW4qE + mkZaaqAiG0GloF2srZBsWpoZ5SWtvFKolGR+yZZtgwolTNe0FGpEITjzMlPzUoolRpA638Is/50zNlMr + iP7w43nf85zfc+A9L/nHLKLYUXiUxWxhXgzHdpN3BSfI27wEMpAXT/pzlaQvR0l6s4+zNpP5xlRFcUfG + UWOtMnInfeeZ0o6QjlQF6xPSIJcRAL9Bw2T7ppSYWzPmXoDSlZvAaWOkoXSdb+0TUppV9DdZ8DwxWvVj + rBucvpxyEzPjPWjPT+IyfSThtG/PNpIU7es/ycLGuIjb3z+ZwD0swySFqynD9HAz3shluB+y5Uuyx1oZ + 2zxvAA2THfSKXRXTI69grirBZNU1Sgm+DbxA72Ep+g5J0XUgHNd93MaYQJLVprnykgf7wu5MDTXBfLeQ + UmSpU91P0RMdip6oEEooDFJ/XHR1MTCJnFS1ssJkkaK4Qd0+OIoJdQHGNQWW+rW1Hp17gqwEwxDmh0vr + nNs3iwSuTGRhdys6eFmveTbEIbN2FHX3dBhXZYNrqkYbPa1NFkBrABqDvXB+tVOHu9DejTrsJiwnL43K + rdE+6Z+wyDYGW9rQEuILI4XVx/6eOOfsaJIIeButMnOJcG9WZXlN1+d5ssb4EUEZOuTHpKA52Bt1fu44 + 4yTu3MDnSWwyXWc+EUfk1JvTqz/MyuUvRxCY/oiis5ARqcSp5aLO9Ty7TXQ/u3uLbBsgDIy9mrq/0DBz + tnIQNwzD2J6mww4r/qer4C0v7V4lXumxULYNYB9Q7B11IT4oUfM+IEGLbUo1tsZVwDdWNe0ZfUW/bI3X + 7MlJDnwyF1vYEAfKCoozxcUKe3ak/PrvF8b2B/4fID8BXoqyTdj+h80AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABt0RVh0VGl0 + bGUAQ2xlYXJBbGw7Q2xlYXI7RXJhc2U7kPZJ7AAACEhJREFUWEfFlwlQVdcZx491Q8W6JY3WNKlGq04m + GpfqqMQk2kSrYyeZ1GqjSVSiIhEFRURAERFQEUQERFlkUVksimxPFnGDxybwWAQRfGwCmqjs8ODp/Pt9 + 970HD8tMO5NM+s385tz73XvO77vn3HN5CAD/V/pN/pr8kjGA+A0xUAsfc+6/h0uCUgSnKcWV7P8kiigL + 8xJVIcdEVfBRLS4SlUGMMw/BskGF3ge+qvA/HFNyxt7q74tnG2jzAyrOOYiKs4SvvXjgtlcorL/jPr3B + BVQ3qfqlq+GReFlfpseDPlCwZHCxz4Ef6mMC0PkoCz+lhKHM52D0spl/Gk7XeDYGqGuKhbpSIbpLM4XC + aj336w2pgEatlFstGnlfoURdKXfTTfngfI/9Zk9koXj19D66FEl41VCApiwZSk5ZXzOaPmkE3TOI7+8u + lYuuorsievpEOtUL53ia5ufdouqFSlSRmFHpy0moD4VOPiTXfZ/Zk/ggkhZClXkNqoyrEi9rctCUHoPC + o+Yxc/44cSTdKxWhyksRUZPepEO9cIpVioKnL0X5sy6hfE7y+ooemVonflwiQdErd91t1hAbID2xKuMK + VPIoqNL/hc60y+i8Ewn1IzlepEYi/+C2mA/Gj/st9RnM/ePXfUGNXjjGKEU+FaAgVHXlGjHJGElcS8e0 + hhQs5zUdmu1ktrMh2g+v6hQkJeHdSJJGEOHouBmGjtRLxEW8+rEU9b6OiJj2+9jJQwaNor5cBD9Abxy6 + ViHyGtTES9GhpJeFX5ja+5qWqS7i23rkGYe272qI8sXLx/novB2Ozlu9wo4bF9CRHIL2pGCagSz86LoH + tRbrUbT5S0R+uSpuypSpo2kMaSYITRy8UiFy69XiHhVxj9r2iiKhVipIXChBoZMbpNlsMa8LPw11zT2N + MOUC2pNDSRpM0iC0Xz+Pdlkguh6k46nzTiiNV6OSqPZyRumDcoT/86u4d4cM5CKkd4IQwi6qXOSQWJ/2 + igLRXZbFl3vkqaZrzGuDT0BdmSU9Ya8wAO3x/miP80PbVW90FafiidMOVGxaJaF0PYBKZQ2UZ47j9l/m + wWfC6GM8HqFZiv2R5SK7rptQ67VqvqSTD0vauNJC6WWP7vJ0tCeQUOaPtthzaIs5g7Yr3mi7fBKt4W7o + yktEw2FTlH+7UsNRW1RUVKLcw0k6L1y7DK7jDHNpTP5GaAqwjngoMh93S2RwS0VQsJynaXjiNysslO42 + 6KYna408hdYId8INrWEn0HrJFa0Xj6PlwjGosuNRb2+Ch+uXa3Daj7IyJcrcHFH2NedWQDb3PZwcb7iT + xh1GaAqwDHsg5DXdQk7y9Nq+chPv27tLzrqiqyCRhG5ouXQCLVphS+hRtIQ4oyXYmbZgNB7bbkHp2s81 + OOxDSUk5So8fQuk6Te7GohnweGuEB42r2w2ad2D3xRJxt6pL3CG0SZaP2OqZuudk0mOkVHfjSUwwSVno + ItEc5ISW845oDjxMOyEStdabcH/NMpQQxfZ7UVhchmKXg1KOSV4wDe5vDj9F444hhmo9mjAPvS9SlSo+ + 7JFvPpli6Xq9FjJlF3zkbfCWt+JJlB8JSRpwGM3+9mjys5e2XY3Vtyj64hOJQtvdUChKUOhg05NLnDeV + 1n2YJ407lmB53++AWfB9bljO02K40S3Z0iWhFnHlKnimteK0HvXh3mg6a4cmX1u00Xar2r0eBauNJBTW + u5CXV0xfPquenGzOeyQ3YPk4QpKfe4OXv2/o5CM3HE/ceyS2GldKO+Fxp6Vf6oLd0XbtLCp3rYVi5ULk + r1yE3L07kHWvCLl2lnTOuYVImDUJR8cOPU3jvkFI247ywncc19EbPfJ1LglW9tHViCjugNutZg239drb + LXCnNiSvHaWWxshdsQD3li9Azh5TZGTlI8fGQsrlUi525rtwGjPEi8btkVNe0P3CZ8wQOu0NXvORaxzj + 9tlGVSFE0Q7Xm01wTW3WcFOLdNyEwJxWbAkoxse2CUha9TmyzE2QLs9DptUu5Hz2Z2I+Yt5/B0dGDWY5 + /9mT5HRNaJgvTo9iZW8MN/ZI2bPvciUCaHCX5CaiES4p3BLcao/PZLTA2K8IS2wSJLZ7peJOWg4yLM2Q + tXSuxLUZb8Nx5EBvGvd3hLTXs5fNFXRNZGvZNYwnvDdGWYSWNnmlN8MpqRFHtOgfM55pzdh0rggfkfij + /QkwOXUDKXdysNM7FbLlnyLzk9m4On0iHAwH+tCYbxGSnPJCR8bHBLWmBn0LGL3BM6/ZQfYMh68/l3BI + 1LQaGuF+qxHfnS2EEYmZrR7JSLqVCTOvFCy2kUlcnDEZh0b0lWcYzRIZSz4ktC2fG30oTAz6LoHhatvo + vSbnH8Je9hz2Cc8IbjXHx2404hvfAizeHy+x5WQyElPk+MEzGYutKUfM+j4I73xmxWs+npC+8fLFM4Xc + iOD2Nba9VgC/kmNX7Iuw2xb4EHaxP+FA3DPYEUcSX2DDGZJrRd+7J0GWlAZTSR4n8cHmAExcaslrznLd + 931Af2IdrxfAHXhjjlthFWG3wbtQvTOshop4iq99FJJ4EU27sVsiYhPv0tonYyHlZptewNR/eLya+ImF + G/WdQPT8Ao5fuqRfsY6tQ/sWwKErYuyUZSbL5230SVqwLahlwfZQzDcJwac7AmHndAp/Mz+HOcaBmL3J + X/X+WjfZH4w2raY+vNX4ySX5hJX+YsJf/cSOYQZiKz0ps4Xgp2ZY3l8B/DHiAbgI/rXCv5snE9OI6f0w + hXib4D8svM8lOfGzggdguDwuhKeUf9PrY6ht+RqL+V5pzYlfLHSF/K/8vOjvP9ZfD4h/A3ouN+lMfNXY + AAAAAElFTkSuQmCC + + + + 0, 0 Aktionen @@ -455,6 +573,12 @@ 2 + + Vorlagen Verwaltung + + + Phrasen Verwaltung + RibbonPage2 @@ -465,937 +589,1253 @@ 0, 158 + + 767, 56 + True - - Top, Bottom, Left, Right + + BindingNavigator1 - - 179, 17 - - - 17, 17 + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 0 + + + DataLayoutControl1 + + + DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPage1 + + + 1 + + + GridControl1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPage1 + + + 2 + + + 1057, 508 + + + Email Phrasen + + + XtraTabPage1 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 0 + + + 1059, 533 + + + 2 + + + True + + + 17, 56 - - 89, 12 + + 98, 12 - + N0 - + Numeric - + True - - 583, 20 + + 172, 20 - + 4 - - GUIDTextEdit + + TextEdit1 - + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl1 + + DataLayoutControl2 - + 4 - - 89, 36 + + 472, 12 - - 583, 20 + + 60, 20 - + 5 - - TITLETextEdit + + MODULETextEdit - + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl1 + + DataLayoutControl2 - + 5 - - 89, 425 + + 98, 84 - - 583, 20 + + 434, 20 - - 9 + + 6 - - EMAIL_BODY3TextEdit + + TextEdit2 - + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl1 + + DataLayoutControl2 - + 6 - - 89, 449 + + 98, 36 - - 251, 20 + + + Combo - - 10 + + 434, 20 - - ADDED_WHOTextEdit + + 7 - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + LANGUAGEComboBoxEdit - - DataLayoutControl1 + + DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - + + DataLayoutControl2 + + 7 - - 89, 473 + + 98, 108 - - 251, 20 + + 434, 20 - - 12 + + 8 - - CHANGED_WHOTextEdit + + CAPT_TYPETextEdit - + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl1 + + DataLayoutControl2 - + 8 - - 89, 84 + + 98, 132 - - 583, 143 + + 434, 20 - - 7 + + 9 - - EMAIL_BODY1TextEdit + + STRING1TextEdit - - DevExpress.XtraEditors.MemoEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl1 + + DataLayoutControl2 - + 9 - - 89, 231 + + 98, 156 - - 583, 190 + + 434, 20 - - 8 + + 10 - - EMAIL_BODY2TextEdit + + STRING2TextEdit - - DevExpress.XtraEditors.MemoEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl1 + + DataLayoutControl2 - + 10 - - 89, 60 + + 98, 180 - - 583, 20 + + 434, 20 - - 6 + + 11 - - EMAIL_SUBJECTTextEdit + + STRING3TextEdit - + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl1 + + DataLayoutControl2 - + 11 - - 421, 449 - - - G - - - DateTime + + 98, 204 - - 251, 20 + + 434, 20 - - 11 + + 12 - - ADDED_WHENDateEdit + + STRING4TextEdit - + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl1 + + DataLayoutControl2 - + 12 - - 421, 473 - - - d - - - DateTime + + 98, 228 - - 251, 20 + + 434, 20 - + 13 - - CHANGED_WHENDateEdit + + STRING5TextEdit - + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl1 + + DataLayoutControl2 - + 13 - - 359, 3 - - - ID + + 98, 252 - - Titel + + 434, 20 - - Betreff + + 14 - - Body1 + + STRING6TextEdit - - Body2 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Body3 + + DataLayoutControl2 - - Erstellt wer + + 14 - - Geändert wer + + 98, 276 - - Erstellt wann + + 172, 20 - - Geändert wann + + 15 - - 684, 505 + + TextEdit3 - - 22 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl1 + + DataLayoutControl2 - - DataLayoutControl1 + + 15 - - DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 360, 276 - - XtraTabPage1 + + d - - 0 + + DateTime - - Left + + 172, 20 - - 0, 0 + + 16 - - ID + + ADDED_WHENTextEdit - - True + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 0 + + DataLayoutControl2 - - 51 + + 16 - - Titel + + 98, 300 - - True + + 172, 20 - - 1 + + 17 - - 128 + + TextEdit4 - - 353, 508 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 20 + + DataLayoutControl2 - - GridControl1 + + 17 - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 360, 300 - - XtraTabPage1 + + d - - 1 + + DateTime - - 1057, 508 + + 172, 20 - - Email Inhalte Workflow + + 18 - - XtraTabPage1 + + CHANGED_WHENTextEdit - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - XtraTabControl1 + + DataLayoutControl2 - - 0 + + 18 - - 1059, 533 + + 98, 60 - - 2 + + 434, 20 - - True + + 19 - - 17, 56 - - - 89, 12 + + OBJ_NAMETextEdit - - N0 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Numeric + + DataLayoutControl2 - - True + + 19 - - 69, 20 + + 274, 12 - - 4 + + Intern - - TextEdit1 + + + Default - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 108, 20 - - DataLayoutControl2 + + 20 - - 4 + + INTERNALCheckEdit - - 89, 84 + + DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 69, 20 + + DataLayoutControl2 - - 5 + + 20 - - MODULETextEdit + + 509, 25 - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DataLayoutControl2 - - - 5 + + ID - - 239, 60 + + String1 - - 297, 20 + + String2 - - 6 + + String3 - - TextEdit2 + + String4 - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + String5 - - DataLayoutControl2 + + String6 - - 6 + + Erstellt wer - - 239, 84 + + Geändert wer - - 297, 20 + + Erstellt wann - - 7 + + Geändert wann - - LANGUAGETextEdit + + INTERNAL - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + Typ - - DataLayoutControl2 + + Sprache - - 7 + + Modul - - 89, 36 + + Titel - - 69, 20 + + Objekt - - 8 + + 544, 479 - - CAPT_TYPETextEdit + + 25 - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DataLayoutControl2 - + DataLayoutControl2 - - 8 + + DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 89, 108 + + XtraTabPage2 - - 447, 20 + + 0 - - 9 + + 921, 56 + + + 89, 22 - - STRING1TextEdit + + von {0} Phrasen - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + Die Gesamtanzahl der Elemente. - - DataLayoutControl2 + + + 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 + + True - - 89, 132 + + 23, 22 - - 447, 20 + + Erste verschieben - - 10 + + + 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 + - - STRING2TextEdit + + True - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 23, 22 - - DataLayoutControl2 + + Vorherige verschieben - - 10 + + 6, 25 - - 89, 156 + + Position - - 447, 20 + + False - - 11 + + 50, 23 - - STRING3TextEdit + + 0 - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + Aktuelle Position - - DataLayoutControl2 + + 6, 25 - - 11 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + - - 89, 180 + + True - - 447, 20 + + 23, 22 - - 12 + + Nächste verschieben - - STRING4TextEdit + + + 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== + - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + True - - DataLayoutControl2 + + 23, 22 - - 12 + + Letzte verschieben - - 89, 204 + + 6, 25 - - 447, 20 + + 509, 0 - - 13 + + 548, 25 - - STRING5TextEdit + + 24 - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BindingNavigator2 - - DataLayoutControl2 + + BindingNavigator2 - - 13 + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 89, 228 + + XtraTabPage2 - - 447, 20 + + 1 - - 14 + + Left - - STRING6TextEdit + + 0, 0 - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + Object - - DataLayoutControl2 + + True - - 14 + + 0 - - 89, 252 + + Titel - - 447, 20 + + True - - 15 + + 2 - - TextEdit3 + + 128 - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + Typ - - DataLayoutControl2 + + True - - 15 + + 1 - - False + + Language - - 89, 276 + + True - - d + + 3 - - DateTime + + 509, 508 - - 447, 20 + + 21 - - 16 + + GridControl2 - - ADDED_WHENTextEdit + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + XtraTabPage2 - - DataLayoutControl2 + + 2 - - 16 + + 1057, 508 - - 89, 300 + + GUI Phrasen - - 447, 20 + + XtraTabPage2 - - 17 + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - TextEdit4 + + XtraTabControl1 - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 1 - - DataLayoutControl2 + + XtraTabControl1 - - 17 + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 0 + + + 767, 56 + + + 179, 17 + + + 17, 17 + + + 89, 22 + + + von {0} Phrasen - + + Die Gesamtanzahl der Elemente. + + + + 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 - - 89, 324 + + 50, 23 - - d + + 0 - - DateTime + + Aktuelle Position - - 447, 20 + + 6, 25 - - 18 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + - - CHANGED_WHENTextEdit + + 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 + + + 353, 0 + + + 704, 25 + + + 23 + + + BindingNavigator1 + + + BindingNavigator1 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 0 + + + 17, 17 + + + Top, Bottom, Left, Right + + + 89, 12 + + + N0 + + + Numeric + + + True + + + 597, 20 + + + 4 + + + GUIDTextEdit + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl2 + + DataLayoutControl1 - - 18 + + 4 - - 239, 36 + + 89, 36 - - 297, 20 + + 597, 20 - - 19 + + 5 - - OBJ_NAMETextEdit + + TITLETextEdit - + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl2 + + DataLayoutControl1 - - 19 + + 5 - - 162, 12 + + 89, 396 - - Intern + + 597, 20 - - 374, 20 + + 9 - - 20 + + EMAIL_BODY3TextEdit - - INTERNALCheckEdit + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DataLayoutControl1 - - DataLayoutControl2 + + 6 - - 20 + + 89, 420 - - Fill + + 258, 20 - - 509, 0 + + 10 - - ID + + ADDED_WHOTextEdit - - Modul + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - String1 + + DataLayoutControl1 - - String2 + + 7 - - String3 + + 89, 444 - - String4 + + 258, 20 - - String5 + + 12 - - String6 + + CHANGED_WHOTextEdit - - Erstellt wer + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Erstellt wann + + DataLayoutControl1 - - Geändert wer + + 8 - - Geändert wann + + 89, 84 - - Typ + + 597, 133 - - Titel + + 7 - - Language + + EMAIL_BODY1TextEdit - - Object + + DevExpress.XtraEditors.MemoEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 548, 508 + + DataLayoutControl1 - - 22 + + 9 - - DataLayoutControl2 + + 89, 221 - - DataLayoutControl2 + + 597, 171 - - DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 8 - - XtraTabPage2 + + EMAIL_BODY2TextEdit - - 0 + + DevExpress.XtraEditors.MemoEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Left + + DataLayoutControl1 - - 0, 0 + + 10 - - Object + + 89, 60 - - True + + 597, 20 - - 0 + + 6 - - Titel + + EMAIL_SUBJECTTextEdit - - True + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 2 + + DataLayoutControl1 - - 128 + + 11 - - Typ + + 428, 420 - - True + + G - + + DateTime + + + 258, 20 + + + 11 + + + ADDED_WHENDateEdit + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DataLayoutControl1 + + + 12 + + + 428, 444 + + + d + + + DateTime + + + 258, 20 + + + 13 + + + CHANGED_WHENDateEdit + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DataLayoutControl1 + + + 13 + + + 359, 28 + + + 698, 476 + + + 22 + + + DataLayoutControl1 + + + DataLayoutControl1 + + + DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPage1 + + 1 - - Language + + ID - - True + + Titel + + + Betreff + + + Body1 + + + Body2 + + + Body3 + + + Erstellt wer + + + Geändert wer + + + Erstellt wann - - 3 + + Geändert wann - - 509, 508 + + Left - - 21 + + 0, 0 - - GridControl2 + + ID - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + True - - XtraTabPage2 + + 0 - - 1 + + 51 - - 1057, 508 + + Titel - - GUI Phrasen + + True - - XtraTabPage2 + + 1 - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 128 - - XtraTabControl1 + + 353, 508 - - 1 + + 20 - - XtraTabControl1 + + GridControl1 - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - $this + + XtraTabPage1 - - 0 + + 2 442, 17 @@ -1501,6 +1941,18 @@ DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarButtonItem8 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem9 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage1 @@ -1537,6 +1989,60 @@ DD_PM_WINDREAM.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + BindingNavigatorCountItem + + + System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorMoveFirstItem + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorMovePreviousItem + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorSeparator + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorPositionItem + + + System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorSeparator1 + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorMoveNextItem + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorMoveLastItem + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorSeparator2 + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + Root @@ -1633,6 +2139,114 @@ System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ToolStripLabel1 + + + System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripButton1 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripButton2 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripSeparator1 + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripTextBox1 + + + System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripSeparator2 + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripButton3 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripButton4 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripSeparator3 + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GridView2 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn5 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn2 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn3 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn4 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TBDD_EMAIL_TEMPLATETableAdapter + + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + TableAdapterManager + + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + TBDD_GUI_LANGUAGE_PHRASETableAdapter + + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + LayoutConverter1 + + + DevExpress.XtraLayout.Converter.LayoutConverter, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + LayoutControlGroup2 @@ -1657,6 +2271,24 @@ DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + LayoutControlItem2 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForLANGUAGE + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForCAPT_TYPE + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ItemForSTRING1 @@ -1723,82 +2355,10 @@ DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ItemForCAPT_TYPE - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - LayoutControlItem2 - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ItemForLANGUAGE - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridView2 - - - DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn5 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn2 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn3 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn4 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TBDD_EMAIL_TEMPLATETableAdapter - - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TableAdapterManager - - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBDD_GUI_LANGUAGE_PHRASETableAdapter - - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - LayoutConverter1 - - - DevExpress.XtraLayout.Converter.LayoutConverter, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - LayoutControlItem7 + + ItemForINTERNAL - + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_PM_WINDREAM/frmAdmin2.vb b/app/DD_PM_WINDREAM/frmAdmin2.vb index 3b739cd..93f7b67 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.vb @@ -4,11 +4,12 @@ Imports System.IO Imports DevExpress.XtraTab Public Class frmAdmin2 - + Dim oSave As Boolean = True Private Sub frmAdmin2_Load(sender As Object, e As EventArgs) Handles MyBase.Load Load_Email_template() Load_Gui_Phrases() + oSave = True Try Dim oFilename As String = String.Format("DevExLayoutAdmin2_Email.xml") Dim oXml As String = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename) @@ -24,7 +25,7 @@ Public Class frmAdmin2 Catch ex As Exception LOGGER.Error(ex) - LOGGER.Info("Error while restoring layout 1: " & ex.Message) + LOGGER.Info("Error while restoring Datalayout: " & ex.Message) End Try End Sub @@ -145,15 +146,7 @@ Public Class frmAdmin2 DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE.ADDED_WHOColumn.DefaultValue = USER_USERNAME End Sub - Private Sub INTERNALCheckBox_CheckedChanged(sender As Object, e As EventArgs) - If INTERNALCheckEdit.Checked Then - TextEdit2.ReadOnly = True - OBJ_NAMETextEdit.ReadOnly = True - Else - TextEdit2.ReadOnly = False - OBJ_NAMETextEdit.ReadOnly = False - End If - End Sub + Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick Dim oText = EMAIL_BODY1TextEdit.Text @@ -169,6 +162,9 @@ Public Class frmAdmin2 End Sub Private Sub frmAdmin2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + If oSave = False Then + Exit Sub + End If Try Dim Filename As String = String.Format("DevExLayoutAdmin2_Email.xml") Dim xml As String = System.IO.Path.Combine(Application.UserAppDataPath(), Filename) @@ -180,9 +176,53 @@ Public Class frmAdmin2 DataLayoutControl2.SaveLayoutToXml(xml) Catch ex As Exception LOGGER.Error(ex) - LOGGER.Info("Error while restoring layout 1: " & ex.Message) + LOGGER.Info("Error while saving datalayout: " & ex.Message) + End Try + + + End Sub + + + + Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick + Try + Dim oFilename = String.Format("DevExLayoutAdmin2_GUIPhrases.xml") + Dim oXml = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename) + File.Delete(oXml) + MsgBox("Form will now close to reload all controls!", MsgBoxStyle.Information) + Me.Close() + oSave = False + Catch ex As Exception + LOGGER.Error(ex) End Try End Sub + + Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick + Try + Dim oFilename = String.Format("DevExLayoutAdmin2_Email.xml") + Dim oXml = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename) + File.Delete(oXml) + MsgBox("Form will now close to reload all controls!", MsgBoxStyle.Information) + Me.Close() + oSave = False + Catch ex As Exception + LOGGER.Error(ex) + End Try + End Sub + + Private Sub INTERNALCheckEdit_CheckedChanged_1(sender As Object, e As EventArgs) Handles INTERNALCheckEdit.CheckedChanged + If INTERNALCheckEdit.Checked Then + TextEdit2.ReadOnly = True + OBJ_NAMETextEdit.ReadOnly = True + STRING1TextEdit.ReadOnly = True + STRING2TextEdit.ReadOnly = True + Else + TextEdit2.ReadOnly = False + OBJ_NAMETextEdit.ReadOnly = False + STRING1TextEdit.ReadOnly = False + STRING2TextEdit.ReadOnly = False + End If + End Sub End Class \ No newline at end of file From 3749bb362463dc0338a824db68009fa8ab2883f3 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 22 Jan 2020 11:22:23 +0100 Subject: [PATCH 09/26] add gdpicture libs --- app/Setup/Product.wxs | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/app/Setup/Product.wxs b/app/Setup/Product.wxs index bf21f89..af1b54b 100644 --- a/app/Setup/Product.wxs +++ b/app/Setup/Product.wxs @@ -124,6 +124,13 @@ + + + + + + + @@ -170,6 +177,7 @@ + From 0ce34a3290b69857dda330f4790a5ec27ee4e4a9 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Fri, 24 Jan 2020 10:23:26 +0100 Subject: [PATCH 10/26] MS .6 nach WISAG1 --- .../DD_PM_WINDREAM/DesignTimeBuild/.dtbcache | Bin 218 -> 218 bytes app/DD_PM_WINDREAM/ClassParamRefresh.vb | 9 +- app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb | 2 + app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb | 2 +- app/DD_PM_WINDREAM/frmAdmin2.Designer.vb | 900 ++++---- app/DD_PM_WINDREAM/frmAdmin2.resx | 1922 ++++++++--------- app/DD_PM_WINDREAM/frmMain.Designer.vb | 1 + app/DD_PM_WINDREAM/frmMain.resx | 211 +- app/DD_PM_WINDREAM/frmMain.vb | 61 +- app/DD_PM_WINDREAM/frmValidator.vb | 62 +- 10 files changed, 1606 insertions(+), 1564 deletions(-) diff --git a/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache b/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache index 671ed4a1339e1ed6980c0b51ee8bfb3acd087d30..715c91bb439b5d68c69962a8f4a3c4d0343f04fc 100644 GIT binary patch delta 48 zcmcb`c#Cm@h-@4K1A{Ar6+;X|Fhep!215};Dnlki5|Aun@SUhB&+5+L$q+KpwG{vb C=nAp` delta 51 zcmcb`c#Cm@h-erC1A{Ar6+;Yz7egvT9uTH7cuh2vpBT|3P{2^ckk63Ca7Vr_5QG6f C`wfNw diff --git a/app/DD_PM_WINDREAM/ClassParamRefresh.vb b/app/DD_PM_WINDREAM/ClassParamRefresh.vb index f63068b..85bcd04 100644 --- a/app/DD_PM_WINDREAM/ClassParamRefresh.vb +++ b/app/DD_PM_WINDREAM/ClassParamRefresh.vb @@ -12,7 +12,11 @@ Catch ex As Exception WORKING_MODE = "" End Try - + Try + ADDITIONAL_TITLE = DT_CHECKUSER.Rows(0).Item("ADDITIONAL_TITLE") + Catch ex As Exception + ADDITIONAL_TITLE = "" + End Try Dim oSplitWorkMode As String() = WORKING_MODE.Split("#") @@ -48,6 +52,9 @@ End If ElseIf oMode = "PM.MONITORING" Then MONITORING_ACTIVE = True + ElseIf oMode.StartsWith("PM.COLORSCHEME") Then + Dim oColorScheme = oMode.Replace("PM.COLORSCHEME=", "") + RIBBON_COLOR_SCHEME = oColorScheme.ToUpper Else LOGGER.Info($"Wrong oMode: {oMode}") End If diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index c9d7838..cc5e365 100644 --- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb +++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb @@ -47,6 +47,8 @@ Module ModuleRuntimeVariables Public SHOW_MASS_VALIDATOR As Boolean = True Public WORKING_MODE As String = "" Public MONITORING_ACTIVE As Boolean = False + Public RIBBON_COLOR_SCHEME As String = "Blue" + Public ADDITIONAL_TITLE As String = "" Public LICENSE_COUNT As Integer = 0 Public LICENSE_EXPIRED As Boolean = False diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index 46388a3..ffa541d 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb index 30b5024..de79f3f 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb @@ -85,8 +85,45 @@ Partial Class frmAdmin2 Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() - Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.DataLayoutControl2 = New DevExpress.XtraDataLayout.DataLayoutControl() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.MODULETextEdit = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() + Me.LANGUAGEComboBoxEdit = New DevExpress.XtraEditors.ComboBoxEdit() + Me.CAPT_TYPETextEdit = New DevExpress.XtraEditors.TextEdit() + Me.STRING1TextEdit = New DevExpress.XtraEditors.TextEdit() + Me.STRING2TextEdit = New DevExpress.XtraEditors.TextEdit() + Me.STRING3TextEdit = New DevExpress.XtraEditors.TextEdit() + Me.STRING4TextEdit = New DevExpress.XtraEditors.TextEdit() + Me.STRING5TextEdit = New DevExpress.XtraEditors.TextEdit() + Me.STRING6TextEdit = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.ADDED_WHENTextEdit = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() + Me.CHANGED_WHENTextEdit = New DevExpress.XtraEditors.TextEdit() + Me.OBJ_NAMETextEdit = New DevExpress.XtraEditors.TextEdit() + Me.INTERNALCheckEdit = New DevExpress.XtraEditors.CheckEdit() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForSTRING1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForSTRING2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForSTRING3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForSTRING4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForSTRING5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForSTRING6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForINTERNAL = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForCAPT_TYPE = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForLANGUAGE = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForMODULE = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ItemForOBJ_NAME = New DevExpress.XtraLayout.LayoutControlItem() + Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() @@ -106,43 +143,6 @@ Partial Class frmAdmin2 Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter() Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components) - Me.DataLayoutControl2 = New DevExpress.XtraDataLayout.DataLayoutControl() - Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() - Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup() - Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() - Me.MODULETextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForMODULE = New DevExpress.XtraLayout.LayoutControlItem() - Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LANGUAGEComboBoxEdit = New DevExpress.XtraEditors.ComboBoxEdit() - Me.ItemForLANGUAGE = New DevExpress.XtraLayout.LayoutControlItem() - Me.CAPT_TYPETextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForCAPT_TYPE = New DevExpress.XtraLayout.LayoutControlItem() - Me.STRING1TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForSTRING1 = New DevExpress.XtraLayout.LayoutControlItem() - Me.STRING2TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForSTRING2 = New DevExpress.XtraLayout.LayoutControlItem() - Me.STRING3TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForSTRING3 = New DevExpress.XtraLayout.LayoutControlItem() - Me.STRING4TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForSTRING4 = New DevExpress.XtraLayout.LayoutControlItem() - Me.STRING5TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForSTRING5 = New DevExpress.XtraLayout.LayoutControlItem() - Me.STRING6TextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForSTRING6 = New DevExpress.XtraLayout.LayoutControlItem() - Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() - Me.ADDED_WHENTextEdit = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() - Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() - Me.CHANGED_WHENTextEdit = New DevExpress.XtraEditors.TextEdit() - Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() - Me.OBJ_NAMETextEdit = New DevExpress.XtraEditors.TextEdit() - Me.ItemForOBJ_NAME = New DevExpress.XtraLayout.LayoutControlItem() - Me.INTERNALCheckEdit = New DevExpress.XtraEditors.CheckEdit() - Me.ItemForINTERNAL = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() @@ -178,49 +178,49 @@ Partial Class frmAdmin2 CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPage2.SuspendLayout() - CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.BindingNavigator2.SuspendLayout() - CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataLayoutControl2, System.ComponentModel.ISupportInitialize).BeginInit() Me.DataLayoutControl2.SuspendLayout() - CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MODULETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForMODULE, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LANGUAGEComboBoxEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForLANGUAGE, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForCAPT_TYPE, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForSTRING1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForSTRING2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForSTRING3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForSTRING4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING5TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForSTRING5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING6TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForSTRING6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ADDED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CHANGED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.OBJ_NAMETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ItemForOBJ_NAME, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.INTERNALCheckEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForSTRING6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ItemForINTERNAL, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForCAPT_TYPE, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForLANGUAGE, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForMODULE, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ItemForOBJ_NAME, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator2.SuspendLayout() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 @@ -745,171 +745,195 @@ Partial Class frmAdmin2 Me.XtraTabPage2.Controls.Add(Me.GridControl2) Me.XtraTabPage2.Name = "XtraTabPage2" ' - 'BindingNavigator2 + 'DataLayoutControl2 ' - Me.BindingNavigator2.AddNewItem = Nothing - Me.BindingNavigator2.BindingSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource - Me.BindingNavigator2.CountItem = Me.ToolStripLabel1 - Me.BindingNavigator2.CountItemFormat = "von {0} Phrasen" - Me.BindingNavigator2.DeleteItem = Nothing - Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator3}) - resources.ApplyResources(Me.BindingNavigator2, "BindingNavigator2") - Me.BindingNavigator2.MoveFirstItem = Me.ToolStripButton1 - Me.BindingNavigator2.MoveLastItem = Me.ToolStripButton4 - Me.BindingNavigator2.MoveNextItem = Me.ToolStripButton3 - Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton2 - Me.BindingNavigator2.Name = "BindingNavigator2" - Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox1 + Me.DataLayoutControl2.Controls.Add(Me.TextEdit1) + Me.DataLayoutControl2.Controls.Add(Me.MODULETextEdit) + Me.DataLayoutControl2.Controls.Add(Me.TextEdit2) + Me.DataLayoutControl2.Controls.Add(Me.LANGUAGEComboBoxEdit) + Me.DataLayoutControl2.Controls.Add(Me.CAPT_TYPETextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING1TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING2TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING3TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING4TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING5TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING6TextEdit) + Me.DataLayoutControl2.Controls.Add(Me.TextEdit3) + Me.DataLayoutControl2.Controls.Add(Me.ADDED_WHENTextEdit) + Me.DataLayoutControl2.Controls.Add(Me.TextEdit4) + Me.DataLayoutControl2.Controls.Add(Me.CHANGED_WHENTextEdit) + Me.DataLayoutControl2.Controls.Add(Me.OBJ_NAMETextEdit) + Me.DataLayoutControl2.Controls.Add(Me.INTERNALCheckEdit) + Me.DataLayoutControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource + resources.ApplyResources(Me.DataLayoutControl2, "DataLayoutControl2") + Me.DataLayoutControl2.Name = "DataLayoutControl2" + Me.DataLayoutControl2.Root = Me.LayoutControlGroup2 + ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "GUID", True)) + resources.ApplyResources(Me.TextEdit1, "TextEdit1") + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Properties.Appearance.Options.UseTextOptions = True + Me.TextEdit1.Properties.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.TextEdit1.Properties.Mask.EditMask = resources.GetString("TextEdit1.Properties.Mask.EditMask") + Me.TextEdit1.Properties.Mask.MaskType = CType(resources.GetObject("TextEdit1.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) + Me.TextEdit1.Properties.Mask.UseMaskAsDisplayFormat = CType(resources.GetObject("TextEdit1.Properties.Mask.UseMaskAsDisplayFormat"), Boolean) + Me.TextEdit1.Properties.ReadOnly = True + Me.TextEdit1.StyleController = Me.DataLayoutControl2 ' 'TBDD_GUI_LANGUAGE_PHRASEBindingSource ' Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataMember = "TBDD_GUI_LANGUAGE_PHRASE" Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataSource = Me.DD_DMSLiteDataSet ' - 'ToolStripLabel1 - ' - Me.ToolStripLabel1.Name = "ToolStripLabel1" - resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1") - ' - 'ToolStripButton1 + 'MODULETextEdit ' - Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") - Me.ToolStripButton1.Name = "ToolStripButton1" + Me.MODULETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "MODULE", True)) + resources.ApplyResources(Me.MODULETextEdit, "MODULETextEdit") + Me.MODULETextEdit.MenuManager = Me.RibbonControl1 + Me.MODULETextEdit.Name = "MODULETextEdit" + Me.MODULETextEdit.StyleController = Me.DataLayoutControl2 ' - 'ToolStripButton2 + 'TextEdit2 ' - Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2") - Me.ToolStripButton2.Name = "ToolStripButton2" + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "TITLE", True)) + resources.ApplyResources(Me.TextEdit2, "TextEdit2") + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.StyleController = Me.DataLayoutControl2 ' - 'ToolStripSeparator1 + 'LANGUAGEComboBoxEdit ' - Me.ToolStripSeparator1.Name = "ToolStripSeparator1" - resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1") + Me.LANGUAGEComboBoxEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "LANGUAGE", True)) + resources.ApplyResources(Me.LANGUAGEComboBoxEdit, "LANGUAGEComboBoxEdit") + Me.LANGUAGEComboBoxEdit.MenuManager = Me.RibbonControl1 + Me.LANGUAGEComboBoxEdit.Name = "LANGUAGEComboBoxEdit" + Me.LANGUAGEComboBoxEdit.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("LANGUAGEComboBoxEdit.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) + Me.LANGUAGEComboBoxEdit.StyleController = Me.DataLayoutControl2 ' - 'ToolStripTextBox1 + 'CAPT_TYPETextEdit ' - resources.ApplyResources(Me.ToolStripTextBox1, "ToolStripTextBox1") - Me.ToolStripTextBox1.Name = "ToolStripTextBox1" + Me.CAPT_TYPETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CAPT_TYPE", True)) + resources.ApplyResources(Me.CAPT_TYPETextEdit, "CAPT_TYPETextEdit") + Me.CAPT_TYPETextEdit.MenuManager = Me.RibbonControl1 + Me.CAPT_TYPETextEdit.Name = "CAPT_TYPETextEdit" + Me.CAPT_TYPETextEdit.StyleController = Me.DataLayoutControl2 ' - 'ToolStripSeparator2 + 'STRING1TextEdit ' - Me.ToolStripSeparator2.Name = "ToolStripSeparator2" - resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2") + Me.STRING1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True)) + resources.ApplyResources(Me.STRING1TextEdit, "STRING1TextEdit") + Me.STRING1TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING1TextEdit.Name = "STRING1TextEdit" + Me.STRING1TextEdit.StyleController = Me.DataLayoutControl2 ' - 'ToolStripButton3 + 'STRING2TextEdit ' - Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton3, "ToolStripButton3") - Me.ToolStripButton3.Name = "ToolStripButton3" + Me.STRING2TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True)) + resources.ApplyResources(Me.STRING2TextEdit, "STRING2TextEdit") + Me.STRING2TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING2TextEdit.Name = "STRING2TextEdit" + Me.STRING2TextEdit.StyleController = Me.DataLayoutControl2 ' - 'ToolStripButton4 + 'STRING3TextEdit ' - Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton4, "ToolStripButton4") - Me.ToolStripButton4.Name = "ToolStripButton4" + Me.STRING3TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING3", True)) + resources.ApplyResources(Me.STRING3TextEdit, "STRING3TextEdit") + Me.STRING3TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING3TextEdit.Name = "STRING3TextEdit" + Me.STRING3TextEdit.StyleController = Me.DataLayoutControl2 ' - 'ToolStripSeparator3 + 'STRING4TextEdit ' - Me.ToolStripSeparator3.Name = "ToolStripSeparator3" - resources.ApplyResources(Me.ToolStripSeparator3, "ToolStripSeparator3") + Me.STRING4TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING4", True)) + resources.ApplyResources(Me.STRING4TextEdit, "STRING4TextEdit") + Me.STRING4TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING4TextEdit.Name = "STRING4TextEdit" + Me.STRING4TextEdit.StyleController = Me.DataLayoutControl2 ' - 'GridControl2 + 'STRING5TextEdit ' - Me.GridControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource - resources.ApplyResources(Me.GridControl2, "GridControl2") - Me.GridControl2.MainView = Me.GridView2 - Me.GridControl2.MenuManager = Me.RibbonControl1 - Me.GridControl2.Name = "GridControl2" - Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) - ' - 'GridView2 - ' - Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.PeachPuff - Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True - Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn5, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4}) - 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.Editable = False - Me.GridView2.OptionsBehavior.ReadOnly = True - Me.GridView2.OptionsView.EnableAppearanceEvenRow = True - Me.GridView2.OptionsView.ShowAutoFilterRow = True - ' - 'GridColumn5 - ' - resources.ApplyResources(Me.GridColumn5, "GridColumn5") - Me.GridColumn5.FieldName = "OBJ_NAME" - Me.GridColumn5.Name = "GridColumn5" + Me.STRING5TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING5", True)) + resources.ApplyResources(Me.STRING5TextEdit, "STRING5TextEdit") + Me.STRING5TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING5TextEdit.Name = "STRING5TextEdit" + Me.STRING5TextEdit.StyleController = Me.DataLayoutControl2 ' - 'GridColumn2 + 'STRING6TextEdit ' - resources.ApplyResources(Me.GridColumn2, "GridColumn2") - Me.GridColumn2.FieldName = "TITLE" - Me.GridColumn2.Name = "GridColumn2" + Me.STRING6TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING6", True)) + resources.ApplyResources(Me.STRING6TextEdit, "STRING6TextEdit") + Me.STRING6TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING6TextEdit.Name = "STRING6TextEdit" + Me.STRING6TextEdit.StyleController = Me.DataLayoutControl2 ' - 'GridColumn3 + 'TextEdit3 ' - resources.ApplyResources(Me.GridColumn3, "GridColumn3") - Me.GridColumn3.FieldName = "CAPT_TYPE" - Me.GridColumn3.Name = "GridColumn3" + Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "ADDED_WHO", True)) + resources.ApplyResources(Me.TextEdit3, "TextEdit3") + Me.TextEdit3.MenuManager = Me.RibbonControl1 + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.Properties.ReadOnly = True + Me.TextEdit3.StyleController = Me.DataLayoutControl2 ' - 'GridColumn4 + 'ADDED_WHENTextEdit ' - resources.ApplyResources(Me.GridColumn4, "GridColumn4") - Me.GridColumn4.FieldName = "LANGUAGE" - Me.GridColumn4.Name = "GridColumn4" + Me.ADDED_WHENTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "ADDED_WHEN", True)) + resources.ApplyResources(Me.ADDED_WHENTextEdit, "ADDED_WHENTextEdit") + Me.ADDED_WHENTextEdit.MenuManager = Me.RibbonControl1 + Me.ADDED_WHENTextEdit.Name = "ADDED_WHENTextEdit" + Me.ADDED_WHENTextEdit.Properties.DisplayFormat.FormatString = "d" + Me.ADDED_WHENTextEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.ADDED_WHENTextEdit.Properties.EditFormat.FormatString = "d" + Me.ADDED_WHENTextEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.ADDED_WHENTextEdit.Properties.Mask.EditMask = resources.GetString("ADDED_WHENTextEdit.Properties.Mask.EditMask") + Me.ADDED_WHENTextEdit.Properties.Mask.MaskType = CType(resources.GetObject("ADDED_WHENTextEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) + Me.ADDED_WHENTextEdit.Properties.ReadOnly = True + Me.ADDED_WHENTextEdit.StyleController = Me.DataLayoutControl2 ' - 'TBDD_EMAIL_TEMPLATETableAdapter + 'TextEdit4 ' - Me.TBDD_EMAIL_TEMPLATETableAdapter.ClearBeforeFill = True + Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHO", True)) + resources.ApplyResources(Me.TextEdit4, "TextEdit4") + Me.TextEdit4.MenuManager = Me.RibbonControl1 + Me.TextEdit4.Name = "TextEdit4" + Me.TextEdit4.Properties.ReadOnly = True + Me.TextEdit4.StyleController = Me.DataLayoutControl2 ' - 'TableAdapterManager + 'CHANGED_WHENTextEdit ' - Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing - Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Me.TBDD_EMAIL_TEMPLATETableAdapter - Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing - Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing - Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing - Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing - Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.CHANGED_WHENTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHEN", True)) + resources.ApplyResources(Me.CHANGED_WHENTextEdit, "CHANGED_WHENTextEdit") + Me.CHANGED_WHENTextEdit.MenuManager = Me.RibbonControl1 + Me.CHANGED_WHENTextEdit.Name = "CHANGED_WHENTextEdit" + Me.CHANGED_WHENTextEdit.Properties.DisplayFormat.FormatString = "d" + Me.CHANGED_WHENTextEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.CHANGED_WHENTextEdit.Properties.EditFormat.FormatString = "d" + Me.CHANGED_WHENTextEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.CHANGED_WHENTextEdit.Properties.Mask.EditMask = resources.GetString("CHANGED_WHENTextEdit.Properties.Mask.EditMask") + Me.CHANGED_WHENTextEdit.Properties.Mask.MaskType = CType(resources.GetObject("CHANGED_WHENTextEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) + Me.CHANGED_WHENTextEdit.Properties.ReadOnly = True + Me.CHANGED_WHENTextEdit.StyleController = Me.DataLayoutControl2 ' - 'TBDD_GUI_LANGUAGE_PHRASETableAdapter + 'OBJ_NAMETextEdit ' - Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.ClearBeforeFill = True + Me.OBJ_NAMETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "OBJ_NAME", True)) + resources.ApplyResources(Me.OBJ_NAMETextEdit, "OBJ_NAMETextEdit") + Me.OBJ_NAMETextEdit.MenuManager = Me.RibbonControl1 + Me.OBJ_NAMETextEdit.Name = "OBJ_NAMETextEdit" + Me.OBJ_NAMETextEdit.StyleController = Me.DataLayoutControl2 ' - 'DataLayoutControl2 + 'INTERNALCheckEdit ' - Me.DataLayoutControl2.Controls.Add(Me.TextEdit1) - Me.DataLayoutControl2.Controls.Add(Me.MODULETextEdit) - Me.DataLayoutControl2.Controls.Add(Me.TextEdit2) - Me.DataLayoutControl2.Controls.Add(Me.LANGUAGEComboBoxEdit) - Me.DataLayoutControl2.Controls.Add(Me.CAPT_TYPETextEdit) - Me.DataLayoutControl2.Controls.Add(Me.STRING1TextEdit) - Me.DataLayoutControl2.Controls.Add(Me.STRING2TextEdit) - Me.DataLayoutControl2.Controls.Add(Me.STRING3TextEdit) - Me.DataLayoutControl2.Controls.Add(Me.STRING4TextEdit) - Me.DataLayoutControl2.Controls.Add(Me.STRING5TextEdit) - Me.DataLayoutControl2.Controls.Add(Me.STRING6TextEdit) - Me.DataLayoutControl2.Controls.Add(Me.TextEdit3) - Me.DataLayoutControl2.Controls.Add(Me.ADDED_WHENTextEdit) - Me.DataLayoutControl2.Controls.Add(Me.TextEdit4) - Me.DataLayoutControl2.Controls.Add(Me.CHANGED_WHENTextEdit) - Me.DataLayoutControl2.Controls.Add(Me.OBJ_NAMETextEdit) - Me.DataLayoutControl2.Controls.Add(Me.INTERNALCheckEdit) - Me.DataLayoutControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource - resources.ApplyResources(Me.DataLayoutControl2, "DataLayoutControl2") - Me.DataLayoutControl2.Name = "DataLayoutControl2" - Me.DataLayoutControl2.Root = Me.LayoutControlGroup2 + Me.INTERNALCheckEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "INTERNAL", True)) + resources.ApplyResources(Me.INTERNALCheckEdit, "INTERNALCheckEdit") + Me.INTERNALCheckEdit.MenuManager = Me.RibbonControl1 + Me.INTERNALCheckEdit.Name = "INTERNALCheckEdit" + Me.INTERNALCheckEdit.Properties.Caption = resources.GetString("INTERNALCheckEdit.Properties.Caption") + Me.INTERNALCheckEdit.Properties.GlyphAlignment = CType(resources.GetObject("INTERNALCheckEdit.Properties.GlyphAlignment"), DevExpress.Utils.HorzAlignment) + Me.INTERNALCheckEdit.StyleController = Me.DataLayoutControl2 ' 'LayoutControlGroup2 ' @@ -929,20 +953,6 @@ Partial Class frmAdmin2 Me.LayoutControlGroup3.Name = "autoGeneratedGroup0" Me.LayoutControlGroup3.Size = New System.Drawing.Size(524, 459) ' - 'TextEdit1 - ' - Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "GUID", True)) - resources.ApplyResources(Me.TextEdit1, "TextEdit1") - Me.TextEdit1.MenuManager = Me.RibbonControl1 - Me.TextEdit1.Name = "TextEdit1" - Me.TextEdit1.Properties.Appearance.Options.UseTextOptions = True - Me.TextEdit1.Properties.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far - Me.TextEdit1.Properties.Mask.EditMask = resources.GetString("TextEdit1.Properties.Mask.EditMask") - Me.TextEdit1.Properties.Mask.MaskType = CType(resources.GetObject("TextEdit1.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) - Me.TextEdit1.Properties.Mask.UseMaskAsDisplayFormat = CType(resources.GetObject("TextEdit1.Properties.Mask.UseMaskAsDisplayFormat"), Boolean) - Me.TextEdit1.Properties.ReadOnly = True - Me.TextEdit1.StyleController = Me.DataLayoutControl2 - ' 'LayoutControlItem1 ' Me.LayoutControlItem1.Control = Me.TextEdit1 @@ -952,83 +962,6 @@ Partial Class frmAdmin2 resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1") Me.LayoutControlItem1.TextSize = New System.Drawing.Size(74, 13) ' - 'MODULETextEdit - ' - Me.MODULETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "MODULE", True)) - resources.ApplyResources(Me.MODULETextEdit, "MODULETextEdit") - Me.MODULETextEdit.MenuManager = Me.RibbonControl1 - Me.MODULETextEdit.Name = "MODULETextEdit" - Me.MODULETextEdit.StyleController = Me.DataLayoutControl2 - ' - 'ItemForMODULE - ' - Me.ItemForMODULE.Control = Me.MODULETextEdit - Me.ItemForMODULE.Location = New System.Drawing.Point(374, 0) - Me.ItemForMODULE.Name = "ItemForMODULE" - Me.ItemForMODULE.Size = New System.Drawing.Size(150, 24) - resources.ApplyResources(Me.ItemForMODULE, "ItemForMODULE") - Me.ItemForMODULE.TextSize = New System.Drawing.Size(74, 13) - ' - 'TextEdit2 - ' - Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "TITLE", True)) - resources.ApplyResources(Me.TextEdit2, "TextEdit2") - Me.TextEdit2.MenuManager = Me.RibbonControl1 - Me.TextEdit2.Name = "TextEdit2" - Me.TextEdit2.StyleController = Me.DataLayoutControl2 - ' - 'LayoutControlItem2 - ' - Me.LayoutControlItem2.Control = Me.TextEdit2 - Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 72) - Me.LayoutControlItem2.Name = "ItemForTITLE" - Me.LayoutControlItem2.Size = New System.Drawing.Size(524, 24) - resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2") - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(74, 13) - ' - 'LANGUAGEComboBoxEdit - ' - Me.LANGUAGEComboBoxEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "LANGUAGE", True)) - resources.ApplyResources(Me.LANGUAGEComboBoxEdit, "LANGUAGEComboBoxEdit") - Me.LANGUAGEComboBoxEdit.MenuManager = Me.RibbonControl1 - Me.LANGUAGEComboBoxEdit.Name = "LANGUAGEComboBoxEdit" - Me.LANGUAGEComboBoxEdit.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("LANGUAGEComboBoxEdit.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) - Me.LANGUAGEComboBoxEdit.StyleController = Me.DataLayoutControl2 - ' - 'ItemForLANGUAGE - ' - Me.ItemForLANGUAGE.Control = Me.LANGUAGEComboBoxEdit - Me.ItemForLANGUAGE.Location = New System.Drawing.Point(0, 24) - Me.ItemForLANGUAGE.Name = "ItemForLANGUAGE" - Me.ItemForLANGUAGE.Size = New System.Drawing.Size(524, 24) - resources.ApplyResources(Me.ItemForLANGUAGE, "ItemForLANGUAGE") - Me.ItemForLANGUAGE.TextSize = New System.Drawing.Size(74, 13) - ' - 'CAPT_TYPETextEdit - ' - Me.CAPT_TYPETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CAPT_TYPE", True)) - resources.ApplyResources(Me.CAPT_TYPETextEdit, "CAPT_TYPETextEdit") - Me.CAPT_TYPETextEdit.MenuManager = Me.RibbonControl1 - Me.CAPT_TYPETextEdit.Name = "CAPT_TYPETextEdit" - Me.CAPT_TYPETextEdit.StyleController = Me.DataLayoutControl2 - ' - 'ItemForCAPT_TYPE - ' - Me.ItemForCAPT_TYPE.Control = Me.CAPT_TYPETextEdit - Me.ItemForCAPT_TYPE.Location = New System.Drawing.Point(0, 96) - Me.ItemForCAPT_TYPE.Name = "ItemForCAPT_TYPE" - Me.ItemForCAPT_TYPE.Size = New System.Drawing.Size(524, 24) - resources.ApplyResources(Me.ItemForCAPT_TYPE, "ItemForCAPT_TYPE") - Me.ItemForCAPT_TYPE.TextSize = New System.Drawing.Size(74, 13) - ' - 'STRING1TextEdit - ' - Me.STRING1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True)) - resources.ApplyResources(Me.STRING1TextEdit, "STRING1TextEdit") - Me.STRING1TextEdit.MenuManager = Me.RibbonControl1 - Me.STRING1TextEdit.Name = "STRING1TextEdit" - Me.STRING1TextEdit.StyleController = Me.DataLayoutControl2 - ' 'ItemForSTRING1 ' Me.ItemForSTRING1.Control = Me.STRING1TextEdit @@ -1038,14 +971,6 @@ Partial Class frmAdmin2 resources.ApplyResources(Me.ItemForSTRING1, "ItemForSTRING1") Me.ItemForSTRING1.TextSize = New System.Drawing.Size(74, 13) ' - 'STRING2TextEdit - ' - Me.STRING2TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True)) - resources.ApplyResources(Me.STRING2TextEdit, "STRING2TextEdit") - Me.STRING2TextEdit.MenuManager = Me.RibbonControl1 - Me.STRING2TextEdit.Name = "STRING2TextEdit" - Me.STRING2TextEdit.StyleController = Me.DataLayoutControl2 - ' 'ItemForSTRING2 ' Me.ItemForSTRING2.Control = Me.STRING2TextEdit @@ -1055,14 +980,6 @@ Partial Class frmAdmin2 resources.ApplyResources(Me.ItemForSTRING2, "ItemForSTRING2") Me.ItemForSTRING2.TextSize = New System.Drawing.Size(74, 13) ' - 'STRING3TextEdit - ' - Me.STRING3TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING3", True)) - resources.ApplyResources(Me.STRING3TextEdit, "STRING3TextEdit") - Me.STRING3TextEdit.MenuManager = Me.RibbonControl1 - Me.STRING3TextEdit.Name = "STRING3TextEdit" - Me.STRING3TextEdit.StyleController = Me.DataLayoutControl2 - ' 'ItemForSTRING3 ' Me.ItemForSTRING3.Control = Me.STRING3TextEdit @@ -1072,14 +989,6 @@ Partial Class frmAdmin2 resources.ApplyResources(Me.ItemForSTRING3, "ItemForSTRING3") Me.ItemForSTRING3.TextSize = New System.Drawing.Size(74, 13) ' - 'STRING4TextEdit - ' - Me.STRING4TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING4", True)) - resources.ApplyResources(Me.STRING4TextEdit, "STRING4TextEdit") - Me.STRING4TextEdit.MenuManager = Me.RibbonControl1 - Me.STRING4TextEdit.Name = "STRING4TextEdit" - Me.STRING4TextEdit.StyleController = Me.DataLayoutControl2 - ' 'ItemForSTRING4 ' Me.ItemForSTRING4.Control = Me.STRING4TextEdit @@ -1089,160 +998,251 @@ Partial Class frmAdmin2 resources.ApplyResources(Me.ItemForSTRING4, "ItemForSTRING4") Me.ItemForSTRING4.TextSize = New System.Drawing.Size(74, 13) ' - 'STRING5TextEdit + 'ItemForSTRING5 + ' + Me.ItemForSTRING5.Control = Me.STRING5TextEdit + Me.ItemForSTRING5.Location = New System.Drawing.Point(0, 216) + Me.ItemForSTRING5.Name = "ItemForSTRING5" + Me.ItemForSTRING5.Size = New System.Drawing.Size(524, 24) + resources.ApplyResources(Me.ItemForSTRING5, "ItemForSTRING5") + Me.ItemForSTRING5.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForSTRING6 + ' + Me.ItemForSTRING6.Control = Me.STRING6TextEdit + Me.ItemForSTRING6.Location = New System.Drawing.Point(0, 240) + Me.ItemForSTRING6.Name = "ItemForSTRING6" + Me.ItemForSTRING6.Size = New System.Drawing.Size(524, 24) + resources.ApplyResources(Me.ItemForSTRING6, "ItemForSTRING6") + Me.ItemForSTRING6.TextSize = New System.Drawing.Size(74, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit3 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 264) + Me.LayoutControlItem3.Name = "ItemForADDED_WHO" + Me.LayoutControlItem3.Size = New System.Drawing.Size(262, 24) + resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3") + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(74, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.TextEdit4 + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 288) + Me.LayoutControlItem5.Name = "ItemForCHANGED_WHO" + Me.LayoutControlItem5.Size = New System.Drawing.Size(262, 171) + resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5") + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(74, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.ADDED_WHENTextEdit + Me.LayoutControlItem4.Location = New System.Drawing.Point(262, 264) + Me.LayoutControlItem4.Name = "ItemForADDED_WHEN" + Me.LayoutControlItem4.Size = New System.Drawing.Size(262, 24) + resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4") + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(74, 13) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.CHANGED_WHENTextEdit + Me.LayoutControlItem6.Location = New System.Drawing.Point(262, 288) + Me.LayoutControlItem6.Name = "ItemForCHANGED_WHEN" + Me.LayoutControlItem6.Size = New System.Drawing.Size(262, 171) + resources.ApplyResources(Me.LayoutControlItem6, "LayoutControlItem6") + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForINTERNAL + ' + Me.ItemForINTERNAL.Control = Me.INTERNALCheckEdit + Me.ItemForINTERNAL.Location = New System.Drawing.Point(262, 0) + Me.ItemForINTERNAL.Name = "ItemForINTERNAL" + Me.ItemForINTERNAL.Size = New System.Drawing.Size(112, 24) + resources.ApplyResources(Me.ItemForINTERNAL, "ItemForINTERNAL") + Me.ItemForINTERNAL.TextSize = New System.Drawing.Size(0, 0) + Me.ItemForINTERNAL.TextVisible = False + ' + 'ItemForCAPT_TYPE + ' + Me.ItemForCAPT_TYPE.Control = Me.CAPT_TYPETextEdit + Me.ItemForCAPT_TYPE.Location = New System.Drawing.Point(0, 96) + Me.ItemForCAPT_TYPE.Name = "ItemForCAPT_TYPE" + Me.ItemForCAPT_TYPE.Size = New System.Drawing.Size(524, 24) + resources.ApplyResources(Me.ItemForCAPT_TYPE, "ItemForCAPT_TYPE") + Me.ItemForCAPT_TYPE.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForLANGUAGE + ' + Me.ItemForLANGUAGE.Control = Me.LANGUAGEComboBoxEdit + Me.ItemForLANGUAGE.Location = New System.Drawing.Point(0, 24) + Me.ItemForLANGUAGE.Name = "ItemForLANGUAGE" + Me.ItemForLANGUAGE.Size = New System.Drawing.Size(524, 24) + resources.ApplyResources(Me.ItemForLANGUAGE, "ItemForLANGUAGE") + Me.ItemForLANGUAGE.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForMODULE + ' + Me.ItemForMODULE.Control = Me.MODULETextEdit + Me.ItemForMODULE.Location = New System.Drawing.Point(374, 0) + Me.ItemForMODULE.Name = "ItemForMODULE" + Me.ItemForMODULE.Size = New System.Drawing.Size(150, 24) + resources.ApplyResources(Me.ItemForMODULE, "ItemForMODULE") + Me.ItemForMODULE.TextSize = New System.Drawing.Size(74, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEdit2 + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 72) + Me.LayoutControlItem2.Name = "ItemForTITLE" + Me.LayoutControlItem2.Size = New System.Drawing.Size(524, 24) + resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2") + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(74, 13) + ' + 'ItemForOBJ_NAME + ' + Me.ItemForOBJ_NAME.Control = Me.OBJ_NAMETextEdit + Me.ItemForOBJ_NAME.Location = New System.Drawing.Point(0, 48) + Me.ItemForOBJ_NAME.Name = "ItemForOBJ_NAME" + Me.ItemForOBJ_NAME.Size = New System.Drawing.Size(524, 24) + resources.ApplyResources(Me.ItemForOBJ_NAME, "ItemForOBJ_NAME") + Me.ItemForOBJ_NAME.TextSize = New System.Drawing.Size(74, 13) + ' + 'BindingNavigator2 + ' + Me.BindingNavigator2.AddNewItem = Nothing + Me.BindingNavigator2.BindingSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource + Me.BindingNavigator2.CountItem = Me.ToolStripLabel1 + Me.BindingNavigator2.CountItemFormat = "von {0} Phrasen" + Me.BindingNavigator2.DeleteItem = Nothing + Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator3}) + resources.ApplyResources(Me.BindingNavigator2, "BindingNavigator2") + Me.BindingNavigator2.MoveFirstItem = Me.ToolStripButton1 + Me.BindingNavigator2.MoveLastItem = Me.ToolStripButton4 + Me.BindingNavigator2.MoveNextItem = Me.ToolStripButton3 + Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton2 + Me.BindingNavigator2.Name = "BindingNavigator2" + Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox1 + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1") + ' + 'ToolStripButton1 ' - Me.STRING5TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING5", True)) - resources.ApplyResources(Me.STRING5TextEdit, "STRING5TextEdit") - Me.STRING5TextEdit.MenuManager = Me.RibbonControl1 - Me.STRING5TextEdit.Name = "STRING5TextEdit" - Me.STRING5TextEdit.StyleController = Me.DataLayoutControl2 + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") + Me.ToolStripButton1.Name = "ToolStripButton1" ' - 'ItemForSTRING5 + 'ToolStripButton2 ' - Me.ItemForSTRING5.Control = Me.STRING5TextEdit - Me.ItemForSTRING5.Location = New System.Drawing.Point(0, 216) - Me.ItemForSTRING5.Name = "ItemForSTRING5" - Me.ItemForSTRING5.Size = New System.Drawing.Size(524, 24) - resources.ApplyResources(Me.ItemForSTRING5, "ItemForSTRING5") - Me.ItemForSTRING5.TextSize = New System.Drawing.Size(74, 13) + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2") + Me.ToolStripButton2.Name = "ToolStripButton2" ' - 'STRING6TextEdit + 'ToolStripSeparator1 ' - Me.STRING6TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING6", True)) - resources.ApplyResources(Me.STRING6TextEdit, "STRING6TextEdit") - Me.STRING6TextEdit.MenuManager = Me.RibbonControl1 - Me.STRING6TextEdit.Name = "STRING6TextEdit" - Me.STRING6TextEdit.StyleController = Me.DataLayoutControl2 + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1") ' - 'ItemForSTRING6 + 'ToolStripTextBox1 ' - Me.ItemForSTRING6.Control = Me.STRING6TextEdit - Me.ItemForSTRING6.Location = New System.Drawing.Point(0, 240) - Me.ItemForSTRING6.Name = "ItemForSTRING6" - Me.ItemForSTRING6.Size = New System.Drawing.Size(524, 24) - resources.ApplyResources(Me.ItemForSTRING6, "ItemForSTRING6") - Me.ItemForSTRING6.TextSize = New System.Drawing.Size(74, 13) + resources.ApplyResources(Me.ToolStripTextBox1, "ToolStripTextBox1") + Me.ToolStripTextBox1.Name = "ToolStripTextBox1" ' - 'TextEdit3 + 'ToolStripSeparator2 ' - Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.TextEdit3, "TextEdit3") - Me.TextEdit3.MenuManager = Me.RibbonControl1 - Me.TextEdit3.Name = "TextEdit3" - Me.TextEdit3.Properties.ReadOnly = True - Me.TextEdit3.StyleController = Me.DataLayoutControl2 + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2") ' - 'LayoutControlItem3 + 'ToolStripButton3 ' - Me.LayoutControlItem3.Control = Me.TextEdit3 - Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 264) - Me.LayoutControlItem3.Name = "ItemForADDED_WHO" - Me.LayoutControlItem3.Size = New System.Drawing.Size(262, 24) - resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3") - Me.LayoutControlItem3.TextSize = New System.Drawing.Size(74, 13) + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.ToolStripButton3, "ToolStripButton3") + Me.ToolStripButton3.Name = "ToolStripButton3" ' - 'ADDED_WHENTextEdit + 'ToolStripButton4 ' - Me.ADDED_WHENTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextEdit, "ADDED_WHENTextEdit") - Me.ADDED_WHENTextEdit.MenuManager = Me.RibbonControl1 - Me.ADDED_WHENTextEdit.Name = "ADDED_WHENTextEdit" - Me.ADDED_WHENTextEdit.Properties.DisplayFormat.FormatString = "d" - Me.ADDED_WHENTextEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime - Me.ADDED_WHENTextEdit.Properties.EditFormat.FormatString = "d" - Me.ADDED_WHENTextEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime - Me.ADDED_WHENTextEdit.Properties.Mask.EditMask = resources.GetString("ADDED_WHENTextEdit.Properties.Mask.EditMask") - Me.ADDED_WHENTextEdit.Properties.Mask.MaskType = CType(resources.GetObject("ADDED_WHENTextEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) - Me.ADDED_WHENTextEdit.Properties.ReadOnly = True - Me.ADDED_WHENTextEdit.StyleController = Me.DataLayoutControl2 + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.ToolStripButton4, "ToolStripButton4") + Me.ToolStripButton4.Name = "ToolStripButton4" ' - 'LayoutControlItem4 + 'ToolStripSeparator3 ' - Me.LayoutControlItem4.Control = Me.ADDED_WHENTextEdit - Me.LayoutControlItem4.Location = New System.Drawing.Point(262, 264) - Me.LayoutControlItem4.Name = "ItemForADDED_WHEN" - Me.LayoutControlItem4.Size = New System.Drawing.Size(262, 24) - resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4") - Me.LayoutControlItem4.TextSize = New System.Drawing.Size(74, 13) + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + resources.ApplyResources(Me.ToolStripSeparator3, "ToolStripSeparator3") ' - 'TextEdit4 + 'GridControl2 ' - Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.TextEdit4, "TextEdit4") - Me.TextEdit4.MenuManager = Me.RibbonControl1 - Me.TextEdit4.Name = "TextEdit4" - Me.TextEdit4.Properties.ReadOnly = True - Me.TextEdit4.StyleController = Me.DataLayoutControl2 + Me.GridControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource + resources.ApplyResources(Me.GridControl2, "GridControl2") + Me.GridControl2.MainView = Me.GridView2 + Me.GridControl2.MenuManager = Me.RibbonControl1 + Me.GridControl2.Name = "GridControl2" + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) ' - 'LayoutControlItem5 + 'GridView2 ' - Me.LayoutControlItem5.Control = Me.TextEdit4 - Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 288) - Me.LayoutControlItem5.Name = "ItemForCHANGED_WHO" - Me.LayoutControlItem5.Size = New System.Drawing.Size(262, 171) - resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5") - Me.LayoutControlItem5.TextSize = New System.Drawing.Size(74, 13) + Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.PeachPuff + Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn5, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4}) + 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.Editable = False + Me.GridView2.OptionsBehavior.ReadOnly = True + Me.GridView2.OptionsView.EnableAppearanceEvenRow = True + Me.GridView2.OptionsView.ShowAutoFilterRow = True ' - 'CHANGED_WHENTextEdit + 'GridColumn5 ' - Me.CHANGED_WHENTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextEdit, "CHANGED_WHENTextEdit") - Me.CHANGED_WHENTextEdit.MenuManager = Me.RibbonControl1 - Me.CHANGED_WHENTextEdit.Name = "CHANGED_WHENTextEdit" - Me.CHANGED_WHENTextEdit.Properties.DisplayFormat.FormatString = "d" - Me.CHANGED_WHENTextEdit.Properties.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime - Me.CHANGED_WHENTextEdit.Properties.EditFormat.FormatString = "d" - Me.CHANGED_WHENTextEdit.Properties.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime - Me.CHANGED_WHENTextEdit.Properties.Mask.EditMask = resources.GetString("CHANGED_WHENTextEdit.Properties.Mask.EditMask") - Me.CHANGED_WHENTextEdit.Properties.Mask.MaskType = CType(resources.GetObject("CHANGED_WHENTextEdit.Properties.Mask.MaskType"), DevExpress.XtraEditors.Mask.MaskType) - Me.CHANGED_WHENTextEdit.Properties.ReadOnly = True - Me.CHANGED_WHENTextEdit.StyleController = Me.DataLayoutControl2 + resources.ApplyResources(Me.GridColumn5, "GridColumn5") + Me.GridColumn5.FieldName = "OBJ_NAME" + Me.GridColumn5.Name = "GridColumn5" ' - 'LayoutControlItem6 + 'GridColumn2 ' - Me.LayoutControlItem6.Control = Me.CHANGED_WHENTextEdit - Me.LayoutControlItem6.Location = New System.Drawing.Point(262, 288) - Me.LayoutControlItem6.Name = "ItemForCHANGED_WHEN" - Me.LayoutControlItem6.Size = New System.Drawing.Size(262, 171) - resources.ApplyResources(Me.LayoutControlItem6, "LayoutControlItem6") - Me.LayoutControlItem6.TextSize = New System.Drawing.Size(74, 13) + resources.ApplyResources(Me.GridColumn2, "GridColumn2") + Me.GridColumn2.FieldName = "TITLE" + Me.GridColumn2.Name = "GridColumn2" ' - 'OBJ_NAMETextEdit + 'GridColumn3 ' - Me.OBJ_NAMETextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "OBJ_NAME", True)) - resources.ApplyResources(Me.OBJ_NAMETextEdit, "OBJ_NAMETextEdit") - Me.OBJ_NAMETextEdit.MenuManager = Me.RibbonControl1 - Me.OBJ_NAMETextEdit.Name = "OBJ_NAMETextEdit" - Me.OBJ_NAMETextEdit.StyleController = Me.DataLayoutControl2 + resources.ApplyResources(Me.GridColumn3, "GridColumn3") + Me.GridColumn3.FieldName = "CAPT_TYPE" + Me.GridColumn3.Name = "GridColumn3" ' - 'ItemForOBJ_NAME + 'GridColumn4 ' - Me.ItemForOBJ_NAME.Control = Me.OBJ_NAMETextEdit - Me.ItemForOBJ_NAME.Location = New System.Drawing.Point(0, 48) - Me.ItemForOBJ_NAME.Name = "ItemForOBJ_NAME" - Me.ItemForOBJ_NAME.Size = New System.Drawing.Size(524, 24) - resources.ApplyResources(Me.ItemForOBJ_NAME, "ItemForOBJ_NAME") - Me.ItemForOBJ_NAME.TextSize = New System.Drawing.Size(74, 13) + resources.ApplyResources(Me.GridColumn4, "GridColumn4") + Me.GridColumn4.FieldName = "LANGUAGE" + Me.GridColumn4.Name = "GridColumn4" ' - 'INTERNALCheckEdit + 'TBDD_EMAIL_TEMPLATETableAdapter ' - Me.INTERNALCheckEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "INTERNAL", True)) - resources.ApplyResources(Me.INTERNALCheckEdit, "INTERNALCheckEdit") - Me.INTERNALCheckEdit.MenuManager = Me.RibbonControl1 - Me.INTERNALCheckEdit.Name = "INTERNALCheckEdit" - Me.INTERNALCheckEdit.Properties.Caption = resources.GetString("INTERNALCheckEdit.Properties.Caption") - Me.INTERNALCheckEdit.Properties.GlyphAlignment = CType(resources.GetObject("INTERNALCheckEdit.Properties.GlyphAlignment"), DevExpress.Utils.HorzAlignment) - Me.INTERNALCheckEdit.StyleController = Me.DataLayoutControl2 + Me.TBDD_EMAIL_TEMPLATETableAdapter.ClearBeforeFill = True ' - 'ItemForINTERNAL + 'TableAdapterManager ' - Me.ItemForINTERNAL.Control = Me.INTERNALCheckEdit - Me.ItemForINTERNAL.Location = New System.Drawing.Point(262, 0) - Me.ItemForINTERNAL.Name = "ItemForINTERNAL" - Me.ItemForINTERNAL.Size = New System.Drawing.Size(112, 24) - resources.ApplyResources(Me.ItemForINTERNAL, "ItemForINTERNAL") - Me.ItemForINTERNAL.TextSize = New System.Drawing.Size(0, 0) - Me.ItemForINTERNAL.TextVisible = False + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Me.TBDD_EMAIL_TEMPLATETableAdapter + Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing + Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBDD_GUI_LANGUAGE_PHRASETableAdapter + ' + Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.ClearBeforeFill = True ' 'frmAdmin2 ' @@ -1293,50 +1293,50 @@ Partial Class frmAdmin2 CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPage2.ResumeLayout(False) Me.XtraTabPage2.PerformLayout() - CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit() - Me.BindingNavigator2.ResumeLayout(False) - Me.BindingNavigator2.PerformLayout() - CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataLayoutControl2, System.ComponentModel.ISupportInitialize).EndInit() Me.DataLayoutControl2.ResumeLayout(False) - CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MODULETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForMODULE, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LANGUAGEComboBoxEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForLANGUAGE, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForCAPT_TYPE, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForSTRING1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForSTRING2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForSTRING3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForSTRING4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING5TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForSTRING5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING6TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForSTRING6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ADDED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CHANGED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.OBJ_NAMETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ItemForOBJ_NAME, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.INTERNALCheckEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForSTRING6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ItemForINTERNAL, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForCAPT_TYPE, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForLANGUAGE, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForMODULE, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ItemForOBJ_NAME, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator2.ResumeLayout(False) + Me.BindingNavigator2.PerformLayout() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() diff --git a/app/DD_PM_WINDREAM/frmAdmin2.resx b/app/DD_PM_WINDREAM/frmAdmin2.resx index a557db8..b7eb4fe 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.resx +++ b/app/DD_PM_WINDREAM/frmAdmin2.resx @@ -537,6 +537,12 @@ 0, 0 + + Vorlagen Verwaltung + + + Phrasen Verwaltung + Aktionen @@ -573,12 +579,6 @@ 2 - - Vorlagen Verwaltung - - - Phrasen Verwaltung - RibbonPage2 @@ -589,812 +589,1016 @@ 0, 158 + + + True + 767, 56 - - + + 179, 17 + + + 17, 17 + + + 89, 22 + + + von {0} Phrasen + + + Die Gesamtanzahl der Elemente. + + + + 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 - - BindingNavigator1 + + 23, 22 - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Erste verschieben - - XtraTabPage1 + + + 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 - - DataLayoutControl1 + + Aktuelle Position - - DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 6, 25 - - XtraTabPage1 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + - - 1 + + True - - GridControl1 + + 23, 22 - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + Nächste verschieben - - XtraTabPage1 + + + 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== + - - 2 + + True - - 1057, 508 + + 23, 22 - - Email Phrasen + + Letzte verschieben - - XtraTabPage1 + + 6, 25 - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 353, 0 - - XtraTabControl1 + + 704, 25 - - 0 + + 23 - - 1059, 533 + + BindingNavigator1 - - 2 + + BindingNavigator1 - - True + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 17, 56 - - - 98, 12 + + XtraTabPage1 - + + 0 + + + Top, Bottom, Left, Right + + + 89, 12 + + N0 - + Numeric - + True - - 172, 20 + + 597, 20 - + 4 - - TextEdit1 + + GUIDTextEdit - + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl2 + + DataLayoutControl1 - + 4 - - 472, 12 + + 89, 36 - - 60, 20 + + 597, 20 - + 5 - - MODULETextEdit + + TITLETextEdit - + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl2 + + DataLayoutControl1 - + 5 - - 98, 84 + + 89, 396 - - 434, 20 + + 597, 20 - - 6 + + 9 - - TextEdit2 + + EMAIL_BODY3TextEdit - + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl2 + + DataLayoutControl1 - + 6 - - 98, 36 + + 89, 420 - - - Combo + + 258, 20 - - 434, 20 - - - 7 + + 10 - - LANGUAGEComboBoxEdit + + ADDED_WHOTextEdit - - DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl2 + + DataLayoutControl1 - + 7 - - 98, 108 + + 89, 444 - - 434, 20 + + 258, 20 - - 8 + + 12 - - CAPT_TYPETextEdit + + CHANGED_WHOTextEdit - + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl2 + + DataLayoutControl1 - + 8 - - 98, 132 + + 89, 84 - - 434, 20 + + 597, 133 - - 9 + + 7 - - STRING1TextEdit + + EMAIL_BODY1TextEdit - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraEditors.MemoEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl2 + + DataLayoutControl1 - + 9 - - 98, 156 + + 89, 221 - - 434, 20 + + 597, 171 - - 10 + + 8 - - STRING2TextEdit + + EMAIL_BODY2TextEdit - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraEditors.MemoEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl2 + + DataLayoutControl1 - + 10 - - 98, 180 + + 89, 60 - - 434, 20 + + 597, 20 - - 11 + + 6 - - STRING3TextEdit + + EMAIL_SUBJECTTextEdit - + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl2 + + DataLayoutControl1 - + 11 - - 98, 204 + + 428, 420 - - 434, 20 + + G - - 12 + + DateTime - - STRING4TextEdit + + 258, 20 - + + 11 + + + ADDED_WHENDateEdit + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl2 + + DataLayoutControl1 - + 12 - - 98, 228 + + 428, 444 - - 434, 20 + + d - + + DateTime + + + 258, 20 + + 13 - - STRING5TextEdit + + CHANGED_WHENDateEdit - + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DataLayoutControl2 + + DataLayoutControl1 - + 13 - - 98, 252 + + 359, 28 - - 434, 20 + + ID - - 14 + + Titel - - STRING6TextEdit + + Betreff - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + Body1 - - DataLayoutControl2 + + Body2 - - 14 + + Body3 - - 98, 276 + + Erstellt wer - - 172, 20 + + Geändert wer - - 15 + + Erstellt wann - - TextEdit3 + + Geändert wann - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 698, 476 - - DataLayoutControl2 + + 22 - - 15 + + DataLayoutControl1 - - 360, 276 + + DataLayoutControl1 - - d + + DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DateTime + + XtraTabPage1 - - 172, 20 + + 1 - - 16 + + Left - - ADDED_WHENTextEdit + + 0, 0 - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ID - - DataLayoutControl2 + + True - - 16 + + 0 - - 98, 300 + + 51 - - 172, 20 - - - 17 - - - TextEdit4 + + Titel - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + True - - DataLayoutControl2 + + 1 - - 17 + + 128 - - 360, 300 + + 353, 508 - - d + + 20 - - DateTime + + GridControl1 - - 172, 20 + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 18 + + XtraTabPage1 - - CHANGED_WHENTextEdit + + 2 - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 1057, 508 - - DataLayoutControl2 + + Email Phrasen - - 18 + + XtraTabPage1 - - 98, 60 + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 434, 20 + + XtraTabControl1 - - 19 + + 0 - - OBJ_NAMETextEdit + + 1059, 533 - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 2 - - DataLayoutControl2 + + True - - 19 + + 17, 56 + + + 89, 12 - - 274, 12 + + N0 - - Intern + + Numeric - - - Default + + True - - 108, 20 + + 181, 20 - - 20 + + 4 - - INTERNALCheckEdit + + TextEdit1 - - DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - + DataLayoutControl2 - - 20 - - - 509, 25 + + 4 - - ID + + 463, 12 - - String1 + + 69, 20 - - String2 + + 5 - - String3 + + MODULETextEdit - - String4 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - String5 + + DataLayoutControl2 - - String6 + + 5 - - Erstellt wer + + 89, 84 - - Geändert wer + + 443, 20 - - Erstellt wann + + 6 - - Geändert wann + + TextEdit2 - - INTERNAL + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Typ + + DataLayoutControl2 - - Sprache + + 6 - - Modul + + 89, 36 - - Titel + + + Combo - - Objekt + + 443, 20 - - 544, 479 + + 7 - - 25 + + LANGUAGEComboBoxEdit - - DataLayoutControl2 + + DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - + DataLayoutControl2 - - DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 7 - - XtraTabPage2 + + 89, 108 - - 0 + + 443, 20 - - 921, 56 - - - 89, 22 + + 8 - - von {0} Phrasen + + CAPT_TYPETextEdit - - Die Gesamtanzahl der Elemente. + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - 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= - + + DataLayoutControl2 - - True + + 8 - - 23, 22 + + 89, 132 - - Erste verschieben + + 443, 20 - - - 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 - + + 9 - - True + + STRING1TextEdit - - 23, 22 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Vorherige verschieben + + DataLayoutControl2 - - 6, 25 + + 9 - - Position + + 89, 156 - - False + + 443, 20 - - 50, 23 + + 10 - - 0 + + STRING2TextEdit - - Aktuelle Position + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 6, 25 + + DataLayoutControl2 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - + + 10 - - True + + 89, 180 - - 23, 22 + + 443, 20 - - Nächste verschieben + + 11 - - - 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== - + + STRING3TextEdit - - True + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 23, 22 + + DataLayoutControl2 - - Letzte verschieben + + 11 - - 6, 25 + + 89, 204 - - 509, 0 + + 443, 20 - - 548, 25 + + 12 - - 24 + + STRING4TextEdit - - BindingNavigator2 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - BindingNavigator2 + + DataLayoutControl2 - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 12 - - XtraTabPage2 + + 89, 228 - - 1 + + 443, 20 - - Left + + 13 - - 0, 0 + + STRING5TextEdit - - Object + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - True + + DataLayoutControl2 - - 0 + + 13 - - Titel + + 89, 252 - - True + + 443, 20 - - 2 + + 14 - - 128 + + STRING6TextEdit - - Typ + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - True + + DataLayoutControl2 - - 1 + + 14 - - Language + + 89, 276 - - True + + 181, 20 - - 3 + + 15 - - 509, 508 + + TextEdit3 - - 21 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - GridControl2 + + DataLayoutControl2 - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 15 - - XtraTabPage2 + + 351, 276 - - 2 + + d - - 1057, 508 + + DateTime - - GUI Phrasen + + 181, 20 - - XtraTabPage2 + + 16 - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ADDED_WHENTextEdit - - XtraTabControl1 + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 1 + + DataLayoutControl2 - - XtraTabControl1 + + 16 - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 89, 300 - - $this + + 181, 20 - - 0 + + 17 - - 767, 56 - - - 179, 17 - - - 17, 17 - - - 89, 22 + + TextEdit4 - - von {0} Phrasen + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Die Gesamtanzahl der Elemente. + + DataLayoutControl2 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + + 17 + + + 351, 300 + + + d + + + DateTime + + + 181, 20 + + + 18 + + + CHANGED_WHENTextEdit + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DataLayoutControl2 + + + 18 + + + 89, 60 + + + 443, 20 + + + 19 + + + OBJ_NAMETextEdit + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DataLayoutControl2 + + + 19 + + + 274, 12 + + + Intern + + + + Default + + + 108, 20 + + + 20 + + + INTERNALCheckEdit + + + DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DataLayoutControl2 + + + 20 + + + 509, 25 + + + ID + + + String1 + + + String2 + + + String3 + + + String4 + + + String5 + + + String6 + + + Erstellt wer + + + Geändert wer + + + Erstellt wann + + + Geändert wann + + + INTERNAL + + + Typ + + + Sprache + + + Modul + + + Titel + + + Objekt + + + 544, 479 + + + 25 + + + DataLayoutControl2 + + + DataLayoutControl2 + + + DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPage2 + + + 0 + + + 921, 56 + + + 89, 22 + + + von {0} Phrasen + + + Die Gesamtanzahl der Elemente. + + + + 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 @@ -1403,37 +1607,37 @@ 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 @@ -1442,16 +1646,16 @@ oAc0QjgAAAAASUVORK5CYII= - + True - + 23, 22 - + Nächste verschieben - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// @@ -1462,380 +1666,134 @@ 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - + True - + 23, 22 - + Letzte verschieben - + 6, 25 - - 353, 0 + + 509, 0 - - 704, 25 + + 548, 25 - - 23 + + 24 - - BindingNavigator1 + + BindingNavigator2 - - BindingNavigator1 + + BindingNavigator2 - + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - XtraTabPage1 + + XtraTabPage2 - - 0 + + 1 - - 17, 17 - - - Top, Bottom, Left, Right + + Left - - 89, 12 + + 0, 0 - - N0 - - - Numeric + + Object - + True - - 597, 20 - - - 4 - - - GUIDTextEdit - - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DataLayoutControl1 - - - 4 - - - 89, 36 - - - 597, 20 - - - 5 - - - TITLETextEdit - - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DataLayoutControl1 - - - 5 - - - 89, 396 - - - 597, 20 - - - 9 - - - EMAIL_BODY3TextEdit - - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DataLayoutControl1 - - - 6 - - - 89, 420 - - - 258, 20 - - - 10 - - - ADDED_WHOTextEdit - - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DataLayoutControl1 - - - 7 - - - 89, 444 - - - 258, 20 - - - 12 - - - CHANGED_WHOTextEdit - - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DataLayoutControl1 - - - 8 - - - 89, 84 - - - 597, 133 - - - 7 - - - EMAIL_BODY1TextEdit - - - DevExpress.XtraEditors.MemoEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DataLayoutControl1 - - - 9 - - - 89, 221 - - - 597, 171 - - - 8 - - - EMAIL_BODY2TextEdit - - - DevExpress.XtraEditors.MemoEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DataLayoutControl1 - - - 10 - - - 89, 60 - - - 597, 20 - - - 6 - - - EMAIL_SUBJECTTextEdit - - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DataLayoutControl1 - - - 11 - - - 428, 420 - - - G - - - DateTime - - - 258, 20 - - - 11 - - - ADDED_WHENDateEdit - - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DataLayoutControl1 - - - 12 - - - 428, 444 - - - d - - - DateTime - - - 258, 20 - - - 13 - - - CHANGED_WHENDateEdit - - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DataLayoutControl1 - - - 13 - - - 359, 28 + + 0 - - 698, 476 + + Titel - - 22 + + True - - DataLayoutControl1 + + 2 - - DataLayoutControl1 + + 128 - - DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + Typ - - XtraTabPage1 + + True - + 1 - - ID - - - Titel - - - Betreff - - - Body1 - - - Body2 - - - Body3 - - - Erstellt wer - - - Geändert wer + + Language - - Erstellt wann + + True - - Geändert wann + + 3 - - Left + + 509, 508 - - 0, 0 + + 21 - - ID + + GridControl2 - - True + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 0 + + XtraTabPage2 - - 51 + + 2 - - Titel + + 1057, 508 - - True + + GUI Phrasen - - 1 + + XtraTabPage2 - - 128 + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 353, 508 + + XtraTabControl1 - - 20 + + 1 - - GridControl1 + + XtraTabControl1 - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - XtraTabPage1 + + $this - - 2 + + 0 442, 17 @@ -2139,6 +2097,120 @@ System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + LayoutControlGroup2 + + + DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlGroup3 + + + DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem1 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForSTRING1 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForSTRING2 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForSTRING3 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForSTRING4 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForSTRING5 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForSTRING6 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem3 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem5 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem4 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem6 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForINTERNAL + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForCAPT_TYPE + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForLANGUAGE + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForMODULE + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem2 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ItemForOBJ_NAME + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ToolStripLabel1 @@ -2247,120 +2319,6 @@ DevExpress.XtraLayout.Converter.LayoutConverter, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - LayoutControlGroup2 - - - DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - LayoutControlGroup3 - - - DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - LayoutControlItem1 - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ItemForMODULE - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - LayoutControlItem2 - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ItemForLANGUAGE - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ItemForCAPT_TYPE - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ItemForSTRING1 - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ItemForSTRING2 - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ItemForSTRING3 - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ItemForSTRING4 - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ItemForSTRING5 - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ItemForSTRING6 - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - LayoutControlItem3 - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - LayoutControlItem4 - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - LayoutControlItem5 - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - LayoutControlItem6 - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ItemForOBJ_NAME - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - ItemForINTERNAL - - - DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - frmAdmin2 diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index d578db8..dea0d8c 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -569,6 +569,7 @@ Partial Class frmMain Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.QuickToolbarItemLinks.Add(Me.bbtnitemInfo) + Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2013 Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 652e5e3..4fea9c1 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -488,7 +488,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAWQBBQFkAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAWwBBQFsAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -541,9 +541,105 @@ 597, 17 + + 500, 134 + + + GridControl_Docs + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 0 + + + BindingNavigator1 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 1 + + + NavBarControl1 + + + DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 2 + + + Fill + + + Tahoma, 9pt + + + 0, 158 + + + 1023, 345 + + + 4 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + 637, 95 + + 270, 198 + + + ContextMenuGrid + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 256, 30 + + + 631, 241 + + + 8 + + + GridControl_Docs + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 0 + 269, 26 @@ -624,36 +720,6 @@ Layout speichern - - 270, 198 - - - ContextMenuGrid - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 256, 30 - - - 631, 241 - - - 8 - - - GridControl_Docs - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 0 - 500, 134 @@ -857,12 +923,6 @@ 786, 95 - - 219, 26 - - - Starte Validierung für Profil - 220, 30 @@ -1060,32 +1120,11 @@ 2 - - Fill - - - Tahoma, 9pt - - - 0, 158 - - - 1023, 345 - - - 4 - - - Panel1 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this + + 219, 26 - - 3 + + Starte Validierung für Profil 908, 17 @@ -1093,18 +1132,6 @@ 17, 173 - - 234, 22 - - - Popup Erinnerung inaktivieren - - - 234, 22 - - - Monitor anzeigen - 235, 48 @@ -1286,6 +1313,18 @@ True + + 234, 22 + + + Popup Erinnerung inaktivieren + + + 234, 22 + + + Monitor anzeigen + 17, 56 @@ -1606,18 +1645,6 @@ 0, 0 - - Allgemein - - - Funktionen - - - Verwaltung - - - Grundeinstellungen - Funktionen @@ -1654,6 +1681,18 @@ 5 + + Allgemein + + + Funktionen + + + Verwaltung + + + Grundeinstellungen + RibbonPage2 diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index b1432a8..341b190 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -127,20 +127,23 @@ Public Class frmMain End If If USER_IS_ADMIN = True Then RibbonPageGroup3.Visible = True + 'Anzahl der eingeloggten User + bsiUserLoggedIn.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + If USER_LANGUAGE <> "de-DE" Then + bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN + Else + bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN + End If Else RibbonPageGroup3.Visible = False + bsiUserLoggedIn.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End If + If MONITORING_ACTIVE = False Then RibbonPageGroup2.Visible = False Else RibbonPageGroup2.Visible = True End If - 'Anzahl der eingeloggten User - If USER_LANGUAGE <> "de-DE" Then - bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN - Else - bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN - End If @@ -1346,7 +1349,12 @@ Public Class frmMain LOGGER.Debug($"Datatable CURR_DT_OVERVIEW loaded: {CURR_DT_OVERVIEW.Rows.Count} rows") NO_WORKFLOWITEMS = False If CURR_DT_OVERVIEW.Rows.Count = 0 Then - ToolStripLabelViewTape.Text = "Aktuell keine Workflowdaten vorhanden!" + If USER_LANGUAGE = "de-DE" Then + ToolStripLabelViewTape.Text = "Aktuell keine Workflowdaten vorhanden!" + Else + ToolStripLabelViewTape.Text = "No workflowdata!" + End If + NO_WORKFLOWITEMS = True @@ -1637,13 +1645,37 @@ Public Class frmMain Decide_Load() Handling_DEBUG_USER() + + If RIBBON_COLOR_SCHEME = "BLUE" Then + RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Blue + ElseIf RIBBON_COLOR_SCHEME = "DarkBlue".ToUpper Then + RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.DarkBlue + ElseIf RIBBON_COLOR_SCHEME = "Green".ToUpper Then + RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green + ElseIf RIBBON_COLOR_SCHEME = "Orange".ToUpper Then + RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Orange + ElseIf RIBBON_COLOR_SCHEME = "Purple".ToUpper Then + RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Purple + ElseIf RIBBON_COLOR_SCHEME = "Red".ToUpper Then + RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Red + ElseIf RIBBON_COLOR_SCHEME = "Teal".ToUpper Then + RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Teal + Else + RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Default + End If + If ADDITIONAL_TITLE <> String.Empty Then + Me.Text = ADDITIONAL_TITLE + Else + Me.Text = "Process Manager" + End If + End Sub Sub Handling_DEBUG_USER() If USER_DEBUG_LOG = True Then If USER_LANGUAGE = "de-DE" Then - bsiDebug.Caption = "ACHTUNG: UserDebugMode ist eingeschaltet!" + bsiDebug.Caption = "HINWEIS: UserDebugMode ist eingeschaltet!" Else - bsiDebug.Caption = "ATTENTION: UserDebugMode activated!" + bsiDebug.Caption = "INFORMATION: UserDebugMode activated!" End If bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Always Else @@ -1654,13 +1686,16 @@ Public Class frmMain Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED) Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql) ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE) + If USER_IS_ADMIN Then + If USER_LANGUAGE = "de-DE" Then + bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN + Else + bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN + End If - If USER_LANGUAGE = "de-DE" Then - bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN - Else - bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN End If + If USER_DEBUG_LOG = True Then ' 'Jetzt de rinsert der Inhalte If Not IsNothing(LOGCONFIG.Logs) Then diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index ba8a228..b987656 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -403,16 +403,16 @@ Public Class frmValidator Sub LoadSQLData(control As Control, controlId As Integer) Try If TypeOf control Is Label Then Exit Sub - + LOGGER.Debug($"in LoadSQLData for ControlID [{controlId}]...") Dim oSql As String = $"SELECT GUID,NAME, CONNECTION_ID, SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE GUID = {controlId} AND PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND CTRL_TYPE <> 'BUTTON'" ' And SQL_UEBERPRUEFUNG Not Like '%#WMI#%' AND SQL_UEBERPRUEFUNG NOT LIKE '%#CTRL#%' - Dim dt As DataTable = ClassDatabase.Return_Datatable(oSql) + Dim oDTforControl As DataTable = ClassDatabase.Return_Datatable(oSql) - If IsNothing(dt) Then Exit Sub - If dt.Rows.Count = 0 Then Exit Sub + If IsNothing(oDTforControl) Then Exit Sub + If oDTforControl.Rows.Count = 0 Then Exit Sub - For Each row As DataRow In dt.Rows + For Each row As DataRow In oDTforControl.Rows Dim name As String = row.Item("NAME") Dim oGUID As String = row.Item("GUID") 'If clsPatterns.HasComplexPatterns(row.Item("SQL_UEBERPRUEFUNG")) Then @@ -425,37 +425,37 @@ Public Class frmValidator End If If IsDBNull(row.Item("SQL_UEBERPRUEFUNG")) Then Continue For - Dim sqlStatement As String = row.Item("SQL_UEBERPRUEFUNG") - Dim connectionId As Integer = row.Item("CONNECTION_ID") + Dim oSQLStatement As String = row.Item("SQL_UEBERPRUEFUNG") + Dim oConnectionId As Integer = row.Item("CONNECTION_ID") 'If clsPatterns.HasComplexPatterns(sqlStatement) Then ' Continue For 'End If - If IsNothing(sqlStatement) Then + If IsNothing(oSQLStatement) Then Continue For End If 'oSql = clsPatterns.ReplaceUserValues(sqlStatement, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) 'oSql = clsPatterns.ReplaceInternalValues(oSql) - sqlStatement = clsPatterns.ReplaceAllValues(sqlStatement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - If IsNothing(sqlStatement) Then + oSQLStatement = clsPatterns.ReplaceAllValues(oSQLStatement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + If IsNothing(oSQLStatement) Then Continue For End If - If clsPatterns.HasComplexPatterns(sqlStatement) Then + If clsPatterns.HasComplexPatterns(oSQLStatement) Then LOGGER.Warn($"Unexpected error LoadSQLData2 - sql Statement still has complex patterns! [{oSql}]") Continue For End If 'sql = ClassPatterns.ReplaceInternalValues(sqlStatement) - dt = ClassDatabase.Return_Datatable_ConId(oSql, connectionId) + Dim oDTContent As DataTable = ClassDatabase.Return_Datatable_ConId(oSQLStatement, oConnectionId) - If IsNothing(dt) Then - LOGGER.Warn($"SQL-Query [{oSql}] for control {control.Name} is invalid.") + If IsNothing(oDTContent) Then + LOGGER.Warn($"SQL-Query [{oSQLStatement}] for control {control.Name} is invalid.") Exit Sub End If Dim oValue If TypeOf control Is TextBox Then Try - Dim firstRow As DataRow = dt.Rows(0) + Dim firstRow As DataRow = oDTContent.Rows(0) Dim value = firstRow.Item(0) @@ -472,7 +472,7 @@ Public Class frmValidator LOGGER.Debug($"oMyComboBox {oMyComboBox.Name} - Saving selected index {oselectedIndex}") Dim list As New List(Of String) - For Each _row As DataRow In dt.Rows + For Each _row As DataRow In oDTContent.Rows list.Add(_row.Item(0)) Next @@ -487,7 +487,7 @@ Public Class frmValidator Try Dim lookup As LookupControl2 = control - lookup.DataSource = dt + lookup.DataSource = oDTContent Catch ex As Exception LOGGER.Error(ex) clsLogger.Add("Error in LoadSimpleData for LookupControl2: " & ex.Message) @@ -500,7 +500,7 @@ Public Class frmValidator If oDataSource Is Nothing OrElse oDataSource.Rows.Count = 0 Then 'dataGridView.DataSource = dt - Dim oDatatable As DataTable = dt.Clone() + Dim oDatatable As DataTable = oDTContent.Clone() For Each oColumn As DataColumn In oDatatable.Columns If oDataSource.Columns(oColumn.ColumnName) Is Nothing Then @@ -509,7 +509,7 @@ Public Class frmValidator End If Next - For Each oRow As DataRow In dt.Rows + For Each oRow As DataRow In oDTContent.Rows oDataSource.ImportRow(oRow) Next @@ -530,16 +530,16 @@ Public Class frmValidator Sub LoadSQLData2(control As Control, controlId As Integer) Try If TypeOf control Is Label Then Exit Sub - + LOGGER.Debug($"in LoadSQLData2 for ControlID [{controlId}]...") Dim oSql As String = $"SELECT GUID,NAME, CONNECTION_ID, SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE GUID = {controlId} AND PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND CTRL_TYPE <> 'BUTTON'" ' And SQL_UEBERPRUEFUNG Not Like '%#WMI#%' AND SQL_UEBERPRUEFUNG NOT LIKE '%#CTRL#%' - Dim dt As DataTable = ClassDatabase.Return_Datatable(oSql) + Dim oDTforControl As DataTable = ClassDatabase.Return_Datatable(oSql) - If IsNothing(dt) Then Exit Sub - If dt.Rows.Count = 0 Then Exit Sub + If IsNothing(oDTforControl) Then Exit Sub + If oDTforControl.Rows.Count = 0 Then Exit Sub - For Each row As DataRow In dt.Rows + For Each row As DataRow In oDTforControl.Rows Dim oControlName As String = row.Item("NAME") Dim oControlID As String = row.Item("GUID") If IsDBNull(row.Item("CONNECTION_ID")) Then @@ -557,9 +557,9 @@ Public Class frmValidator Continue For End If 'sql = ClassPatterns.ReplaceInternalValues(sqlStatement) - dt = ClassDatabase.Return_Datatable_ConId(oSql, oConnectionId) + oDTforControl = ClassDatabase.Return_Datatable_ConId(oSql, oConnectionId) - If IsNothing(dt) Then + If IsNothing(oDTforControl) Then MsgBox($"SQL-Query for control {control.Name} is invalid.") Exit Sub End If @@ -567,7 +567,7 @@ Public Class frmValidator If TypeOf control Is TextBox Then Try - Dim firstRow As DataRow = dt.Rows(0) + Dim firstRow As DataRow = oDTforControl.Rows(0) Dim value = firstRow.Item(0) @@ -584,7 +584,7 @@ Public Class frmValidator LOGGER.Debug($"oMyComboBox {oMyComboBox.Name} - Saving selected index {oselectedIndex}") Dim list As New List(Of String) - For Each _row As DataRow In dt.Rows + For Each _row As DataRow In oDTforControl.Rows list.Add(_row.Item(0)) Next @@ -599,7 +599,7 @@ Public Class frmValidator Try Dim lookup As LookupControl2 = control - lookup.DataSource = dt + lookup.DataSource = oDTforControl Catch ex As Exception LOGGER.Error(ex) clsLogger.Add("Error in LoadSimpleData for LookupControl2: " & ex.Message) @@ -612,7 +612,7 @@ Public Class frmValidator If oDataSource Is Nothing OrElse oDataSource.Rows.Count = 0 Then 'dataGridView.DataSource = dt - Dim oDatatable As DataTable = dt.Clone() + Dim oDatatable As DataTable = oDTforControl.Clone() For Each oColumn As DataColumn In oDatatable.Columns If oDataSource.Columns(oColumn.ColumnName) Is Nothing Then @@ -621,7 +621,7 @@ Public Class frmValidator End If Next - For Each oRow As DataRow In dt.Rows + For Each oRow As DataRow In oDTforControl.Rows oDataSource.ImportRow(oRow) Next From 39921824b8c80d622d79b191a782d7f319bbbba5 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 28 Jan 2020 10:38:32 +0100 Subject: [PATCH 11/26] MS 2.0.0.6 --- app/DD_PM_WINDREAM/App.config | 177 +++++++++------ app/DD_PM_WINDREAM/ClassInit.vb | 84 +++---- app/DD_PM_WINDREAM/ClassParamRefresh.vb | 6 +- app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb | 2 +- .../frmAdministration.Designer.vb | 34 +-- app/DD_PM_WINDREAM/frmAdministration.resx | 77 ++----- app/DD_PM_WINDREAM/frmMain.resx | 213 +++++++----------- app/DD_PM_WINDREAM/frmMain.vb | 24 +- app/DD_PM_WINDREAM/frmMonitor.vb | 2 + app/DD_PM_WINDREAM/frmValidator.Designer.vb | 50 ++-- app/DD_PM_WINDREAM/frmValidator.resx | 34 +-- app/DD_PM_WINDREAM/frmValidator.vb | 56 +++-- app/DD_PM_WINDREAM/frmValidatorSearch.vb | 6 + 13 files changed, 345 insertions(+), 420 deletions(-) diff --git a/app/DD_PM_WINDREAM/App.config b/app/DD_PM_WINDREAM/App.config index 705200f..c6ca9a7 100644 --- a/app/DD_PM_WINDREAM/App.config +++ b/app/DD_PM_WINDREAM/App.config @@ -1,73 +1,106 @@ - + - - -

- - - - - - - - - - - - 0, 0 - - - 0, 0 - - - 890, 790 - - - 890, 790 - - - 5 - - - 0, 0 - - - 0, 0 - - - 0, 0 - - - 0, 0 - - - 0, 0 - - - 0, 0 - - - 0, 0 - - - 0, 0 - - - 563 - - - Normal - - - 0, 0 - - - 0, 0 - - - Normal - - - - + + +
+ + +
+ + + + + + Skin/Office 2016 Colorful + + + + + + + + + + + + + + + True + + + + + + + + + + + + + + + + + + + + + + 0, 0 + + + 0, 0 + + + 890, 790 + + + 890, 790 + + + 5 + + + 0, 0 + + + 0, 0 + + + 0, 0 + + + 0, 0 + + + 0, 0 + + + 0, 0 + + + 0, 0 + + + 0, 0 + + + 563 + + + Normal + + + 0, 0 + + + 0, 0 + + + Normal + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb index 18ccceb..0857551 100644 --- a/app/DD_PM_WINDREAM/ClassInit.vb +++ b/app/DD_PM_WINDREAM/ClassInit.vb @@ -3,6 +3,7 @@ Imports System.Globalization Imports DLLLicenseManager Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Config +Imports System.Threading Public Class ClassInit @@ -188,56 +189,59 @@ Public Class ClassInit FINALINDICES.init() If IDB_ACTIVE = True Then IDBData = New ClassIDBData() - - End If Try - USER_RIGHT1 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT1") - Catch ex As Exception - USER_RIGHT1 = False - End Try - Try - USER_RIGHT2 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT2") - Catch ex As Exception - USER_RIGHT2 = False - End Try - Try - USER_RIGHT3 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT3") - Catch ex As Exception - USER_RIGHT3 = False - End Try - Try - USER_RIGHT4 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT4") - Catch ex As Exception - USER_RIGHT4 = False - End Try - LOGGER.Debug("User exists....") - 'Am System anmelden - Refresh_Licence() - 'Check_User_Exists_in_PMGroups() - - If ClassAllgemeineFunktionen.LoginOut("LOGIN") = True Then - USERCOUNT_LOGGED_IN += 1 - End If + USER_RIGHT_VIEW_ONLY = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT2") + Catch ex As Exception + USER_RIGHT_VIEW_ONLY = False + End Try + Try + USER_RIGHT3 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT3") + Catch ex As Exception + USER_RIGHT3 = False + End Try + Try + USER_RIGHT4 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT4") + Catch ex As Exception + USER_RIGHT4 = False + End Try + LOGGER.Debug("User exists....") + 'Am System anmelden + Refresh_Licence() + 'Check_User_Exists_in_PMGroups() + 'Dim Culture = CultureInfo.CreateSpecificCulture("en-US") + '' The following line provides localization for the application's user interface. + 'Thread.CurrentThread.CurrentUICulture = Culture + '' The following line provides localization for data formats. + 'Thread.CurrentThread.CurrentCulture = Culture + '' Set this culture as the default culture for all threads in this application. + '' Note: The following properties are supported in the .NET Framework 4.5+ + 'CultureInfo.DefaultThreadCurrentCulture = Culture + 'CultureInfo.DefaultThreadCurrentUICulture = Culture + + + If ClassAllgemeineFunktionen.LoginOut("LOGIN") = True Then + USERCOUNT_LOGGED_IN += 1 + End If - 'sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Process-Manager') AND CLIENT_ID = {0}", 1) - ' USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - 'sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Process-Manager'" - 'ClassDatabase.Execute_non_Query(sql, True) - LOGGER.Debug("Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString) - If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then - MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") + 'sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Process-Manager') AND CLIENT_ID = {0}", 1) + ' USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) + 'sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Process-Manager'" + 'ClassDatabase.Execute_non_Query(sql, True) + LOGGER.Debug("Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString) + If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then + MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") LOGGER.Info("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!") If USER_IS_ADMIN = False Then - ClassAllgemeineFunktionen.LoginOut("LOGOUT") + ClassAllgemeineFunktionen.LoginOut("LOGOUT") LOGGER.Info("Wieder abgemeldet - START INCOMPLETE") ERROR_STATE = "START INCOMPLETE" - End If End If - 'Alles OK bis hierhin...nun die FolderwatchKonfig laden - LOGGER.Debug("Init Userlogin successfull completed....") End If + 'Alles OK bis hierhin...nun die FolderwatchKonfig laden + LOGGER.Debug("Init Userlogin successfull completed....") + End If Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Unexpected Error in InitUserLogin: " & ex.Message, True) diff --git a/app/DD_PM_WINDREAM/ClassParamRefresh.vb b/app/DD_PM_WINDREAM/ClassParamRefresh.vb index 85bcd04..8748acd 100644 --- a/app/DD_PM_WINDREAM/ClassParamRefresh.vb +++ b/app/DD_PM_WINDREAM/ClassParamRefresh.vb @@ -14,8 +14,11 @@ End Try Try ADDITIONAL_TITLE = DT_CHECKUSER.Rows(0).Item("ADDITIONAL_TITLE") + If ADDITIONAL_TITLE = String.Empty Then + ADDITIONAL_TITLE = My.Application.Info.ProductName + End If Catch ex As Exception - ADDITIONAL_TITLE = "" + ADDITIONAL_TITLE = My.Application.Info.ProductName End Try Dim oSplitWorkMode As String() = WORKING_MODE.Split("#") @@ -55,6 +58,7 @@ ElseIf oMode.StartsWith("PM.COLORSCHEME") Then Dim oColorScheme = oMode.Replace("PM.COLORSCHEME=", "") RIBBON_COLOR_SCHEME = oColorScheme.ToUpper + Else LOGGER.Info($"Wrong oMode: {oMode}") End If diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index cc5e365..3640541 100644 --- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb +++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb @@ -35,7 +35,7 @@ Module ModuleRuntimeVariables Public USER_EXISTS = False Public USER_IN_MODULE = False Public USER_RIGHT_FILE_DELETE As Boolean = False - Public USER_RIGHT1 As Boolean = False + Public USER_RIGHT_VIEW_ONLY As Boolean = False Public USER_RIGHT2 As Boolean = False Public USER_RIGHT3 As Boolean = False Public USER_RIGHT4 As Boolean = False diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index e4f478b..8ea0c4e 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -162,10 +162,6 @@ Partial Class frmAdministration Me.colSQL_COMMAND = New DevExpress.XtraGrid.Columns.GridColumn() Me.colPREVENT_DUPLICATES = New DevExpress.XtraGrid.Columns.GridColumn() Me.colALLOW_NEW_VALUES = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colCHANGED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colCHANGED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() Me.colDESCRIPTION1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colACTIVE = New DevExpress.XtraGrid.Columns.GridColumn() Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid() @@ -1233,7 +1229,7 @@ Partial Class frmAdministration ' 'viewFinalIndex ' - Me.viewFinalIndex.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colPROFIL_ID, Me.colCONNECTION_ID, Me.colINDEXNAME, Me.colVALUE, Me.colSQL_COMMAND, Me.colPREVENT_DUPLICATES, Me.colALLOW_NEW_VALUES, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN, Me.colDESCRIPTION1, Me.colACTIVE}) + Me.viewFinalIndex.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colPROFIL_ID, Me.colCONNECTION_ID, Me.colINDEXNAME, Me.colVALUE, Me.colSQL_COMMAND, Me.colPREVENT_DUPLICATES, Me.colALLOW_NEW_VALUES, Me.colDESCRIPTION1, Me.colACTIVE}) Me.viewFinalIndex.DetailHeight = 295 Me.viewFinalIndex.GridControl = Me.gridFinalIndex Me.viewFinalIndex.Name = "viewFinalIndex" @@ -1286,30 +1282,6 @@ Partial Class frmAdministration Me.colALLOW_NEW_VALUES.FieldName = "ALLOW_NEW_VALUES" Me.colALLOW_NEW_VALUES.Name = "colALLOW_NEW_VALUES" ' - 'colADDED_WHO - ' - resources.ApplyResources(Me.colADDED_WHO, "colADDED_WHO") - Me.colADDED_WHO.FieldName = "ADDED_WHO" - Me.colADDED_WHO.Name = "colADDED_WHO" - ' - 'colADDED_WHEN - ' - resources.ApplyResources(Me.colADDED_WHEN, "colADDED_WHEN") - Me.colADDED_WHEN.FieldName = "ADDED_WHEN" - Me.colADDED_WHEN.Name = "colADDED_WHEN" - ' - 'colCHANGED_WHO - ' - resources.ApplyResources(Me.colCHANGED_WHO, "colCHANGED_WHO") - Me.colCHANGED_WHO.FieldName = "CHANGED_WHO" - Me.colCHANGED_WHO.Name = "colCHANGED_WHO" - ' - 'colCHANGED_WHEN - ' - resources.ApplyResources(Me.colCHANGED_WHEN, "colCHANGED_WHEN") - Me.colCHANGED_WHEN.FieldName = "CHANGED_WHEN" - Me.colCHANGED_WHEN.Name = "colCHANGED_WHEN" - ' 'colDESCRIPTION1 ' Me.colDESCRIPTION1.FieldName = "DESCRIPTION" @@ -2159,10 +2131,6 @@ Partial Class frmAdministration Friend WithEvents colSQL_COMMAND As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colINDEXNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colVALUE As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colCHANGED_WHO As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colCHANGED_WHEN As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colDESCRIPTION1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colACTIVE As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colPREVENT_DUPLICATES As DevExpress.XtraGrid.Columns.GridColumn diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index 1e5987b..b040a89 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -2504,7 +2504,7 @@ 0, 0 - Windream Index + Index True @@ -2512,6 +2512,9 @@ 0 + + 86 + Fester Wert @@ -2521,6 +2524,9 @@ 2 + + 73 + SQL Befehl @@ -2530,50 +2536,17 @@ 1 + + 150 + Doppelte Werte vermeiden Neue Werte erlauben - - Hinzugefügt Wer - - - True - - - 3 - - - Hinzugefügt Wann - - - True - - - 4 - - - Geändert Wer - - - True - - - 5 - - - Geändert Wann - - - True - - - 6 - - 627, 305 + 627, 308 93 @@ -2600,7 +2573,7 @@ 627, 0 - 323, 305 + 323, 308 91 @@ -2621,7 +2594,7 @@ 3, 166 - 950, 305 + 950, 308 94 @@ -4738,30 +4711,6 @@ DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - colADDED_WHO - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colADDED_WHEN - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colCHANGED_WHO - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colCHANGED_WHEN - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - colDESCRIPTION1 diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 4fea9c1..70d137f 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -488,7 +488,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAWwBBQFsAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAXQBBQF0AQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -541,105 +541,9 @@ 597, 17 - - 500, 134 - - - GridControl_Docs - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 0 - - - BindingNavigator1 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 1 - - - NavBarControl1 - - - DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 2 - - - Fill - - - Tahoma, 9pt - - - 0, 158 - - - 1023, 345 - - - 4 - - - Panel1 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 3 - 637, 95 - - 270, 198 - - - ContextMenuGrid - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 256, 30 - - - 631, 241 - - - 8 - - - GridControl_Docs - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 0 - 269, 26 @@ -720,6 +624,36 @@ Layout speichern + + 270, 198 + + + ContextMenuGrid + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 256, 30 + + + 631, 241 + + + 8 + + + GridControl_Docs + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 0 + 500, 134 @@ -923,6 +857,12 @@ 786, 95 + + 219, 26 + + + Starte Validierung für Profil + 220, 30 @@ -1120,11 +1060,32 @@ 2 - - 219, 26 + + Fill - - Starte Validierung für Profil + + Tahoma, 9pt + + + 0, 158 + + + 1023, 345 + + + 4 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 908, 17 @@ -1132,6 +1093,18 @@ 17, 173 + + 234, 22 + + + Popup Erinnerung inaktivieren + + + 234, 22 + + + Monitor anzeigen + 235, 48 @@ -1313,18 +1286,6 @@ True - - 234, 22 - - - Popup Erinnerung inaktivieren - - - 234, 22 - - - Monitor anzeigen - 17, 56 @@ -1645,6 +1606,18 @@ 0, 0 + + Allgemein + + + Funktionen + + + Verwaltung + + + Grundeinstellungen + Funktionen @@ -1681,18 +1654,6 @@ 5 - - Allgemein - - - Funktionen - - - Verwaltung - - - Grundeinstellungen - RibbonPage2 @@ -1887,7 +1848,7 @@ Manual - Process Manager - Profil-Monitor + 4565465 ImageListProfile diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 341b190..d512b9c 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -582,7 +582,7 @@ Public Class frmMain Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Layout Dashboard - Error: " & ex.Message) - MsgBox("Unexpected Error in Layout Dashboard - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + MsgBox("Unexpected Error in Layout Dashboard - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) End Try End Sub Private Function Create_Series(title As String, type As String) As Series @@ -1148,13 +1148,13 @@ Public Class frmMain End If Else - MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical) + MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) End If Catch ex As Exception LOGGER.Error(ex) allgFunk.Insert_LogEntry($"{ex.Message} - Stack: [{ex.StackTrace}]") - MsgBox("Unexpected error in Item_Scope: " & ex.Message & vbNewLine & "Choose file again!", MsgBoxStyle.Information) + MsgBox("Unexpected error in Item_Scope: " & ex.Message & vbNewLine & "Choose file again!", MsgBoxStyle.Information, ADDITIONAL_TITLE) End Try End Sub Private Function Init_IDB() @@ -1283,11 +1283,6 @@ Public Class frmMain Load_Grid_Overview() RefreshHelper.LoadViewInfo() End Sub - Private Sub GridView1_PopupMenuShowing(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.PopupMenuShowingEventArgs) - Dim view As GridView = TryCast(sender, GridView) - MsgBox(e.MenuType.ToString) - - End Sub Sub Load_Grid_Overview() SplitContainerDashboard.Visible = False Layout_Single_Profile() @@ -1498,7 +1493,7 @@ Public Class frmMain If CURRENT_CLICKED_PROFILE_ID <> 0 Then Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID) Else - MsgBox("Bitte wählen Sie zuerst ein Profil aus!", MsgBoxResult.Ok) + MsgBox("Please choose a profile!", MsgBoxResult.Ok, ADDITIONAL_TITLE) End If End Sub @@ -1663,11 +1658,8 @@ Public Class frmMain Else RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Default End If - If ADDITIONAL_TITLE <> String.Empty Then - Me.Text = ADDITIONAL_TITLE - Else - Me.Text = "Process Manager" - End If + LOGGER.Debug($" RibbonControl1.ColorScheme [{RIBBON_COLOR_SCHEME}]") + Me.Text = ADDITIONAL_TITLE End Sub Sub Handling_DEBUG_USER() @@ -1724,7 +1716,7 @@ Public Class frmMain omsg = omsg.Replace(Chr(10), "") omsg = omsg.Replace(Chr(13), "") Dim odatetime As Date = CDate(oLogSplit(0)) - oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID] , [LOGMSG], [ADDED_WHEN]) VALUES({USER_ID},'{omsg}','{odatetime}')" + oSQL = $"INSERT INTO [dbo].[TBPM_LOG_DEBUG] ([USERID] , [LOGMSG], [ADDED_WHEN],DATE_STR) VALUES({USER_ID},'{omsg}',GetDate(),'{odatetime}')" ClassDatabase.Execute_non_Query(oSQL) Next LOGCONFIG.ClearLogs() @@ -1735,7 +1727,7 @@ Public Class frmMain End Sub Private Sub tsslblDEBUG_LOG_MouseHover(sender As Object, e As EventArgs) - MsgBox("UserDebugMode is activated remotely. Debugdata will be transferred to database and will be deleted after 10 days!!", MsgBoxStyle.Information) + MsgBox("UserDebugMode is activated remotely. Debugdata will be transferred to database and will be deleted after 10 days!!", MsgBoxStyle.Information, ADDITIONAL_TITLE) End Sub diff --git a/app/DD_PM_WINDREAM/frmMonitor.vb b/app/DD_PM_WINDREAM/frmMonitor.vb index f347768..19996f0 100644 --- a/app/DD_PM_WINDREAM/frmMonitor.vb +++ b/app/DD_PM_WINDREAM/frmMonitor.vb @@ -107,6 +107,8 @@ Public Class frmMonitor DocumentViewerMonitor.LoadFile(oDocPath) BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never DocumentViewerMonitor.Visible = True + DocumentViewerMonitor.RightOnlyView(USER_RIGHT_VIEW_ONLY) + Else BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always BarStaticItemInfo.Caption = $"File is not existing or accessible!" diff --git a/app/DD_PM_WINDREAM/frmValidator.Designer.vb b/app/DD_PM_WINDREAM/frmValidator.Designer.vb index 1df6f16..14bcd29 100644 --- a/app/DD_PM_WINDREAM/frmValidator.Designer.vb +++ b/app/DD_PM_WINDREAM/frmValidator.Designer.vb @@ -30,6 +30,7 @@ Partial Class frmValidator Me.btnSave = New System.Windows.Forms.Button() Me.DESCRIPTIONLabel = New System.Windows.Forms.Label() Me.pnldesigner = New System.Windows.Forms.Panel() + Me.DocumentViewerValidator = New DigitalData.Controls.DocumentViewer.DocumentViewer() Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components) @@ -84,7 +85,7 @@ Partial Class frmValidator Me.bsiError = New DevExpress.XtraBars.BarStaticItem() Me.bsiInformation = New DevExpress.XtraBars.BarStaticItem() Me.bsiDocID = New DevExpress.XtraBars.BarStaticItem() - Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItemFileView = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() Me.bbtniRefresh = New DevExpress.XtraBars.BarButtonItem() @@ -95,12 +96,11 @@ Partial Class frmValidator Me.bsiInfo1 = New DevExpress.XtraBars.BarStaticItem() Me.bsiInfo2 = New DevExpress.XtraBars.BarStaticItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.DocumentViewerValidator = New DigitalData.Controls.DocumentViewer.DocumentViewer() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() @@ -171,6 +171,11 @@ Partial Class frmValidator Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnldesigner.Name = "pnldesigner" ' + 'DocumentViewerValidator + ' + resources.ApplyResources(Me.DocumentViewerValidator, "DocumentViewerValidator") + Me.DocumentViewerValidator.Name = "DocumentViewerValidator" + ' 'BarAndDockingController3 ' Me.BarAndDockingController3.PropertiesBar.AllowLinkLighting = False @@ -504,7 +509,7 @@ Partial Class frmValidator 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") Me.RibbonControl1.MaxItemId = 16 Me.RibbonControl1.Name = "RibbonControl1" @@ -533,13 +538,13 @@ Partial Class frmValidator Me.bsiDocID.Id = 3 Me.bsiDocID.Name = "bsiDocID" ' - 'BarButtonItem2 + 'BarButtonItemFileView ' - resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2") - Me.BarButtonItem2.Id = 4 - Me.BarButtonItem2.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem2.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image) - Me.BarButtonItem2.Name = "BarButtonItem2" + resources.ApplyResources(Me.BarButtonItemFileView, "BarButtonItemFileView") + Me.BarButtonItemFileView.Id = 4 + Me.BarButtonItemFileView.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItemFileView.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItemFileView.Name = "BarButtonItemFileView" ' 'BarButtonItem3 ' @@ -627,18 +632,18 @@ Partial Class frmValidator ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3, Me.RibbonPageGroup2}) + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageGroup2}) Me.RibbonPage1.Name = "RibbonPage1" resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") ' - 'RibbonPageGroup1 + 'RibbonPageFile ' - Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4) - Me.RibbonPageGroup1.Name = "RibbonPageGroup1" - resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") + Me.RibbonPageFile.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageFile.ItemLinks.Add(Me.BarButtonItemFileView) + Me.RibbonPageFile.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageFile.ItemLinks.Add(Me.BarButtonItem4) + Me.RibbonPageFile.Name = "RibbonPageFile" + resources.ApplyResources(Me.RibbonPageFile, "RibbonPageFile") ' 'RibbonPageGroup3 ' @@ -674,11 +679,6 @@ Partial Class frmValidator Me.RibbonPage2.Name = "RibbonPage2" resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") ' - 'DocumentViewerValidator - ' - resources.ApplyResources(Me.DocumentViewerValidator, "DocumentViewerValidator") - Me.DocumentViewerValidator.Name = "DocumentViewerValidator" - ' 'frmValidator ' Me.Appearance.Options.UseFont = True @@ -779,13 +779,13 @@ Partial Class frmValidator Friend WithEvents ToolTip1 As ToolTip Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageFile As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents bsiError As DevExpress.XtraBars.BarStaticItem Friend WithEvents bsiInformation As DevExpress.XtraBars.BarStaticItem Friend WithEvents bsiDocID As DevExpress.XtraBars.BarStaticItem - Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItemFileView As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup diff --git a/app/DD_PM_WINDREAM/frmValidator.resx b/app/DD_PM_WINDREAM/frmValidator.resx index f0b7eb3..c58d8c6 100644 --- a/app/DD_PM_WINDREAM/frmValidator.resx +++ b/app/DD_PM_WINDREAM/frmValidator.resx @@ -123,7 +123,7 @@ - 0, 158 + 0, 146 Top, Left, Right @@ -172,7 +172,7 @@ MiddleLeft - 7, 404 + 7, 419 3, 4, 3, 4 @@ -238,7 +238,7 @@ 3, 4, 3, 4 - 466, 311 + 466, 326 18 @@ -265,7 +265,7 @@ 3, 4, 3, 4 - 477, 461 + 477, 476 24 @@ -304,7 +304,7 @@ 3, 4, 3, 4 - 481, 461 + 481, 476 0 @@ -334,7 +334,7 @@ 1 - 962, 461 + 962, 476 477 @@ -507,7 +507,7 @@ BarStaticItem1 - + Datei öffnen @@ -846,7 +846,7 @@ 0, 0 - + Datei @@ -872,13 +872,13 @@ Menü - 962, 158 + 962, 146 - 0, 619 + 0, 622 - 962, 24 + 962, 21 RibbonStatusBar1 @@ -1420,10 +1420,10 @@ DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - BarButtonItem2 + + BarButtonItemFileView - + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -1486,10 +1486,10 @@ DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - RibbonPageGroup1 + + RibbonPageFile - + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index b987656..3bb179e 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -523,7 +523,7 @@ Public Class frmValidator Next Catch ex As Exception LOGGER.Error(ex) - MsgBox("Error in LoadSQLData: " & ex.Message, MsgBoxStyle.Critical) + MsgBox("Error in LoadSQLData: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) clsLogger.Add("Error in LoadSQLData: " & ex.Message) End Try End Sub @@ -560,7 +560,7 @@ Public Class frmValidator oDTforControl = ClassDatabase.Return_Datatable_ConId(oSql, oConnectionId) If IsNothing(oDTforControl) Then - MsgBox($"SQL-Query for control {control.Name} is invalid.") + MsgBox($"SQL-Query for control {control.Name} is invalid.", MsgBoxStyle.OkOnly, ADDITIONAL_TITLE) Exit Sub End If Dim oValue @@ -635,7 +635,7 @@ Public Class frmValidator Next Catch ex As Exception LOGGER.Error(ex) - MsgBox("Error in LoadSQLData2: " & ex.Message, MsgBoxStyle.Critical) + MsgBox("Error in LoadSQLData2: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) clsLogger.Add("Error in LoadSQLData2: " & ex.Message) End Try End Sub @@ -1126,10 +1126,10 @@ Public Class frmValidator Override_SQLCommand = clsPatterns.ReplaceAllValues(Override_SQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL) If IsNothing(oDT_ACTIONS) Then - MsgBox("Something went wrong in custom action - Please check Your log!", MsgBoxStyle.Exclamation) + MsgBox("Something went wrong in custom action - Please check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) Exit Sub ElseIf oDT_ACTIONS.Rows.Count = 0 Then - MsgBox("Something went wrong in custom action (No row) - Please check Your log!", MsgBoxStyle.Exclamation) + MsgBox("Something went wrong in custom action (No row) - Please check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) Exit Sub End If 'Select Case'Override' as Action_Type, 'Sind Sie sicher dass Sie nicht zuständig sind?' as Question,'Nicht Zuständig' as Caption,'Red' as Color @@ -1211,7 +1211,7 @@ Public Class frmValidator If oREsult = True Then Reload_Controls(oControlName) Else - MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation) + MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) End If End If Case "Update_Controls".ToUpper @@ -1227,7 +1227,7 @@ Public Class frmValidator StatusLabel("Refreshed single control") FillIndexValues(False) Else - MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation) + MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) End If End If @@ -1236,7 +1236,7 @@ Public Class frmValidator Override = True Finish_WFStep() Case Else - MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, "") + MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) LOGGER.Warn($"No configured action provided for onCustomButtonClick [{oAction}]") End Select @@ -1714,7 +1714,7 @@ Public Class frmValidator Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Unexpected Error in Depending_Control_Set_Result - ERROR: " & ex.Message) - MsgBox("Unexpected error: " & ex.Message, MsgBoxStyle.Critical) + MsgBox("Unexpected error: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) End Try End Sub Public Sub OnDTPValueChanged(sender As System.Object, e As System.EventArgs) @@ -1940,7 +1940,7 @@ Public Class frmValidator LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'") If CURRENT_DOC_GUID > 0 Then If GetWMDocPathWindows(0) = False Then - MsgBox("Could not access the file! Check the log!", MsgBoxStyle.Critical, "") + MsgBox("Could not access the file! Check the log!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) Exit Sub End If If IDB_ACTIVE = False Then @@ -2045,7 +2045,7 @@ Public Class frmValidator Try MsgBox(oROW.Item("STRING1"), MsgBoxStyle.Information, oROW.Item("STRING2")) Catch ex As Exception - MsgBox("No more documents!" & vbNewLine & "Form will be closed now!", MsgBoxStyle.Information, "") + MsgBox("No more documents!" & vbNewLine & "Form will be closed now!", MsgBoxStyle.Information, ADDITIONAL_TITLE) End Try activate_controls(True) Me.Close() @@ -2063,6 +2063,12 @@ Public Class frmValidator End Sub Sub load_viewer() DocumentViewerValidator.LoadFile(WMDocPathWindows) + DocumentViewerValidator.RightOnlyView(USER_RIGHT_VIEW_ONLY) + If USER_RIGHT_VIEW_ONLY = True Then + RibbonPageFile.Visible = False + Else + RibbonPageFile.Visible = True + End If SplitContainer1.Panel2Collapsed = False End Sub @@ -2344,7 +2350,7 @@ Public Class frmValidator Return value Catch ex As Exception LOGGER.Error(ex) - MsgBox("error in ReturnVektor_IndexValue: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + MsgBox("error in ReturnVektor_IndexValue: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) LOGGER.Info("error in ReturnVektor_IndexValue: " & ex.Message) Return "" End Try @@ -2561,7 +2567,7 @@ Public Class frmValidator oControlType = "DataGridView" Dim dgv As DataGridView = oControl If oSourceIndexName = "" Then - MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) + MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) Exit For End If If oSourceIndexName Is Nothing = False Then @@ -2579,7 +2585,7 @@ Public Class frmValidator 'Tabellendarstellung Case "TABLE" - Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) + Dim dt As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]") Dim SpaltenWerte As String() LOGGER.Debug($"{dt.Rows.Count} Columns configured for control {oControlId}.") If dt.Rows.Count > 1 Then @@ -2638,7 +2644,7 @@ Public Class frmValidator oControlType = "DevExpress.XtraGrid.GridControl" Dim oMyGridControl As GridControl = oControl If oSourceIndexName = "" Then - MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) + MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) Exit For End If If oSourceIndexName Is Nothing = False Then @@ -2658,7 +2664,7 @@ Public Class frmValidator Select Case oTyp 'Tabellendarstellung Case "TABLE" - Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) + Dim dt As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]") Dim oColCount = dt.Rows.Count Dim oColValuesfromSource As String() LOGGER.Debug($"DevExpressGrid: {oColCount} Columns configured for control {oControlId}.") @@ -2816,7 +2822,7 @@ Public Class frmValidator LOGGER.Debug("Loading checkbox.") oControlType = "CheckBox" If oSourceIndexName = "" Then - MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) + MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) Exit For End If If oSourceIndexName Is Nothing = False Then @@ -2962,7 +2968,7 @@ Public Class frmValidator oControlType = "DateTimePicker" Dim DTP As DateTimePicker = oControl If oSourceIndexName = "" Then - MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) + MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) Exit For End If If oSourceIndexName Is Nothing = False Then @@ -3158,10 +3164,10 @@ Public Class frmValidator Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL) If IsNothing(oDT_ACTIONS) Then - MsgBox("Something went wrong in btnFinish_continue - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation) + MsgBox("Something went wrong in btnFinish_continue - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) Return False ElseIf oDT_ACTIONS.Rows.Count = 0 Then - MsgBox("Something went wrong in btnFinish_continue (No row) - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation) + MsgBox("Something went wrong in btnFinish_continue (No row) - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) Return False End If 'Select Case'Override' as Action_Type, 'Sind Sie sicher dass Sie nicht zuständig sind?' as Question,'Nicht Zuständig' as Caption,'Red' as Color @@ -3520,7 +3526,7 @@ Public Class frmValidator End If End If If oErrorOcurred = True Then - MsgBox("Unhandled error occured ... please check your log!", MsgBoxStyle.Exclamation) + MsgBox("Unhandled error occured ... please check your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) ItemWorked = False Else 'Das Dokument freigeben und as editiert markieren @@ -3661,6 +3667,8 @@ Public Class frmValidator Dim oRegexMessage As String = NotNull(dr.Item("REGEX_MESSAGE_DE"), String.Empty) oControlName = dr.Item("CTRL_NAME") Dim oOVERWRITE_DATA = dr.Item("OVERWRITE_DATA") + Dim oPreventMultipleValues = dr.Item("VKT_PREVENT_MULTIPLE_VALUES") + 'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist If dr.Item("CTRL_NAME") = oControl.Name And (oIsReadOnly = False Or oSQLCheckCommand <> "") And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then LOGGER.Debug("Indexierung für Control (" & oControlId & ") '" & oControlName & "' gestartet. Indexname '" & oIndexName & "'") @@ -3708,14 +3716,12 @@ Public Class frmValidator Else Dim oMyDT = DT_FOR_ARRAY(myVektorArr) - If IDBData.SetVariableValue(oIndexName, oMyDT, oOVERWRITE_DATA) = False Then + If IDBData.SetVariableValue(oIndexName, oMyDT, oOVERWRITE_DATA, oIDBTyp) = False Then oMissing = True oErrorMessage = "Error while indexing IDB-Object LookupGrid" Exit For End If End If - 'Jetzt die Datei indexieren - Else Dim oValues As New List(Of Object) From {String.Empty} If IDB_ACTIVE = False Then @@ -4686,7 +4692,7 @@ Public Class frmValidator bsiInformation.Caption = infotext & " " & Now.ToString End Sub - Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemFileView.ItemClick Try Dim Proc As New System.Diagnostics.Process Dim psi As New ProcessStartInfo(WMDocPathWindows) diff --git a/app/DD_PM_WINDREAM/frmValidatorSearch.vb b/app/DD_PM_WINDREAM/frmValidatorSearch.vb index 070a996..dbae7d0 100644 --- a/app/DD_PM_WINDREAM/frmValidatorSearch.vb +++ b/app/DD_PM_WINDREAM/frmValidatorSearch.vb @@ -469,6 +469,12 @@ Public Class frmValidatorSearch If Not IsNothing(clsWMDocGrid.SELECTED_DOC_PATH) And Not IsNothing(DocumentViewer1) Then If clsWMDocGrid.SELECTED_DOC_PATH <> "" Then DocumentViewer1.LoadFile(clsWMDocGrid.SELECTED_DOC_PATH) + DocumentViewer1.RightOnlyView(USER_RIGHT_VIEW_ONLY) + If USER_RIGHT_VIEW_ONLY = True Then + ToolStripDropDownButtonFile.Visible = False + Else + ToolStripDropDownButtonFile.Visible = True + End If End If End If From 7ffe030d0ed1a3da6cde7d5c45fe60d4884a9c97 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 30 Jan 2020 10:38:39 +0100 Subject: [PATCH 12/26] MS ColumnWidth --- app/DD_PM_WINDREAM/App.config | 11 +- app/DD_PM_WINDREAM/ClassControlCreator.vb | 25 +- app/DD_PM_WINDREAM/frmFormDesigner.vb | 9 +- app/DD_PM_WINDREAM/frmMain.resx | 82 ++-- app/DD_PM_WINDREAM/frmMain.vb | 4 +- .../frmMassValidator.Designer.vb | 19 +- app/DD_PM_WINDREAM/frmMassValidator.resx | 6 - app/DD_PM_WINDREAM/frmMassValidator.vb | 12 +- app/DD_PM_WINDREAM/frmValidator.Designer.vb | 38 +- app/DD_PM_WINDREAM/frmValidator.resx | 403 ++++++++++-------- app/DD_PM_WINDREAM/frmValidator.vb | 171 +++----- 11 files changed, 391 insertions(+), 389 deletions(-) diff --git a/app/DD_PM_WINDREAM/App.config b/app/DD_PM_WINDREAM/App.config index c6ca9a7..710b054 100644 --- a/app/DD_PM_WINDREAM/App.config +++ b/app/DD_PM_WINDREAM/App.config @@ -26,7 +26,7 @@ - True + @@ -37,6 +37,15 @@ + + + + + + + + + diff --git a/app/DD_PM_WINDREAM/ClassControlCreator.vb b/app/DD_PM_WINDREAM/ClassControlCreator.vb index 6132b66..dadadc5 100644 --- a/app/DD_PM_WINDREAM/ClassControlCreator.vb +++ b/app/DD_PM_WINDREAM/ClassControlCreator.vb @@ -405,7 +405,7 @@ Public Class ClassControlCreator Return control End Function - Public Shared Function CreateExistingGridControl(row As DataRow, columns As List(Of DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow), designMode As Boolean) As GridControl + Public Shared Function CreateExistingGridControl(row As DataRow, DT_MY_COLUMNS As DataTable, designMode As Boolean) As GridControl Dim oControl As GridControl = CreateBaseControl(New GridControl(), row, designMode) Dim oDatatable As New DataTable Dim oView As GridView @@ -450,13 +450,13 @@ Public Class ClassControlCreator GridTables.Clear() - For Each oRow As DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow In columns + For Each oRow As DataRow In DT_MY_COLUMNS.Rows ' Create Columns in Datatable Dim oColumn = New DataColumn() With { .DataType = GetType(String), - .ColumnName = oRow.SPALTENNAME, - .Caption = oRow.SPALTEN_HEADER, + .ColumnName = oRow.Item("SPALTENNAME"), + .Caption = oRow.Item("SPALTEN_HEADER"), .ReadOnly = False } @@ -470,9 +470,9 @@ Public Class ClassControlCreator If oConnectionId > 0 And oSqlCommand <> "" Then Try Dim oComboboxDataTable As DataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oConnectionId) - GridTables.Add(oRow.SPALTENNAME, oComboboxDataTable) + GridTables.Add(oRow.Item("SPALTENNAME"), oComboboxDataTable) Catch ex As Exception - LOGGER.Warn("Could not load data for column {0} in control {1}", oRow.SPALTENNAME, oControl.Name) + LOGGER.Warn("Could not load data for column {0} in control {1}", oRow.Item("SPALTENNAME"), oControl.Name) LOGGER.Error(ex) End Try End If @@ -484,11 +484,20 @@ Public Class ClassControlCreator oControl.DataSource = oDatatable oControl.RefreshDataSource() oControl.ForceInitialize() + Dim oGridView As GridView = oControl.DefaultView + For Each oRow As DataRow In DT_MY_COLUMNS.Rows + Dim o = oRow.Item("SPALTENNAME") + Dim p = oRow.Item("SPALTENBREITE") + Dim ocount = oGridView.Columns.Count + + ' oGridView.Columns(oRow.Item("SPALTENNAME")).Width = oRow.Item("SPALTENBREITE") + Next + AddHandler oView.CellValueChanged, AddressOf HandleCellValueChanged AddHandler oView.CustomRowCellEdit, Sub(sender As Object, e As CustomRowCellEditEventArgs) - For Each oRow As DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow In columns - If oRow.SPALTENNAME = e.Column.FieldName Then + For Each oRow As DataRow In DT_MY_COLUMNS.Rows + If oRow.Item("SPALTENNAME") = e.Column.FieldName Then If GridTables.ContainsKey(e.Column.FieldName) Then Dim oComboboxDataTable As DataTable = GridTables.Item(e.Column.FieldName) diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 206ed75..6e65d8a 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -252,11 +252,10 @@ Public Class frmFormDesigner SetMovementHandlers(dgv) Case "TABLE" - Dim findControlColumnsQuery = (From r As DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow In DD_DMSLiteDataSet.TBPM_CONTROL_TABLE - Where r.CONTROL_ID = guid - Select r) - Dim columns As List(Of DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow) = findControlColumnsQuery.ToList() - Dim table = ClassControlCreator.CreateExistingGridControl(row, columns, True) + Dim oDTColumnsPerDevExGrid As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {guid} ORDER BY [SEQUENCE]") + + + Dim table = ClassControlCreator.CreateExistingGridControl(row, oDTColumnsPerDevExGrid, True) AddHandler table.MouseClick, AddressOf gridControl_MouseClick ' AddHandler table.ColumnHeaderMouseClick, AddressOf table_ColumnHeaderMouseClick diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 70d137f..b4a0424 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -141,7 +141,7 @@ 0, 25 - 162, 39 + 160, 45 @@ -160,13 +160,13 @@ 0 - 907, 95 + 662, 95 0, 0 - 162, 25 + 160, 25 1 @@ -205,7 +205,7 @@ 0, 25 - 330, 39 + 332, 45 1 @@ -223,13 +223,13 @@ 0 - 17, 134 + 804, 95 0, 0 - 330, 25 + 332, 25 0 @@ -262,10 +262,10 @@ 1 - 496, 64 + 496, 70 - 162 + 160 0 @@ -307,7 +307,7 @@ 0, 25 - 162, 15 + 160, 24 1 @@ -325,13 +325,13 @@ 0 - 168, 134 + 955, 95 0, 0 - 162, 25 + 160, 25 0 @@ -370,7 +370,7 @@ 0, 25 - 330, 15 + 332, 24 1 @@ -388,13 +388,13 @@ 0 - 330, 134 + 1117, 95 0, 0 - 330, 25 + 332, 25 0 @@ -427,10 +427,10 @@ 1 - 496, 40 + 496, 49 - 162 + 160 0 @@ -460,10 +460,10 @@ 1 - 496, 108 + 496, 123 - 64 + 70 7 @@ -488,7 +488,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAXQBBQF0AQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAaQBBQGkAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -542,7 +542,7 @@ 597, 17 - 637, 95 + 392, 95 269, 26 @@ -655,10 +655,10 @@ 0 - 500, 134 + 17, 134 - 654, 134 + 171, 134 87, 24 @@ -855,7 +855,7 @@ - 786, 95 + 541, 95 219, 26 @@ -1040,7 +1040,7 @@ 233 - 233, 345 + 233, 360 5 @@ -1067,10 +1067,10 @@ Tahoma, 9pt - 0, 158 + 0, 146 - 1023, 345 + 1023, 360 4 @@ -1091,7 +1091,7 @@ 908, 17 - 17, 173 + 519, 134 234, 22 @@ -1287,34 +1287,34 @@ True - 17, 56 + 1023, 17 - 140, 56 + 17, 56 - 336, 56 + 213, 56 - 526, 56 + 403, 56 - 789, 56 + 666, 56 - 17, 95 + 923, 56 - 262, 95 + 17, 95 - 502, 95 + 257, 95 - 788, 134 + 305, 134 - 903, 134 + 420, 134 Aktualisieren @@ -1622,13 +1622,13 @@ Funktionen - 1023, 158 + 1023, 146 - 0, 503 + 0, 506 - 1023, 24 + 1023, 21 RibbonStatusBar1 @@ -1658,7 +1658,7 @@ RibbonPage2 - 199, 173 + 701, 134 True diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index d512b9c..b04e98b 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -1732,7 +1732,9 @@ Public Class frmMain End Sub Private Sub frmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing - + If Application.OpenForms().OfType(Of frmValidator).Any Then + frmValidator.Close() + End If End Sub diff --git a/app/DD_PM_WINDREAM/frmMassValidator.Designer.vb b/app/DD_PM_WINDREAM/frmMassValidator.Designer.vb index e9c18c2..07d5b88 100644 --- a/app/DD_PM_WINDREAM/frmMassValidator.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMassValidator.Designer.vb @@ -22,7 +22,6 @@ Partial Class frmMassValidator 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMassValidator)) Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() @@ -32,12 +31,9 @@ Partial Class frmMassValidator Me.btnSave = New System.Windows.Forms.Button() Me.DESCRIPTIONLabel = New System.Windows.Forms.Label() Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() - Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_CONTROL_TABLETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter() Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.StatusStrip1.SuspendLayout() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'ToolStrip1 @@ -122,21 +118,13 @@ Partial Class frmMassValidator Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'TBPM_CONTROL_TABLEBindingSource - ' - Me.TBPM_CONTROL_TABLEBindingSource.DataMember = "TBPM_CONTROL_TABLE" - Me.TBPM_CONTROL_TABLEBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' - 'TBPM_CONTROL_TABLETableAdapter - ' - Me.TBPM_CONTROL_TABLETableAdapter.ClearBeforeFill = True - ' 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing + Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing - Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Me.TBPM_CONTROL_TABLETableAdapter Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing @@ -165,7 +153,6 @@ Partial Class frmMassValidator Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -179,7 +166,5 @@ Partial Class frmMassValidator Friend WithEvents tslblCountDocs As ToolStripStatusLabel Friend WithEvents DESCRIPTIONLabel As Label Friend WithEvents DD_DMSLiteDataSet As DD_DMSLiteDataSet - Friend WithEvents TBPM_CONTROL_TABLEBindingSource As BindingSource - Friend WithEvents TBPM_CONTROL_TABLETableAdapter As DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter Friend WithEvents TableAdapterManager As DD_DMSLiteDataSetTableAdapters.TableAdapterManager End Class diff --git a/app/DD_PM_WINDREAM/frmMassValidator.resx b/app/DD_PM_WINDREAM/frmMassValidator.resx index c4d1068..a64765e 100644 --- a/app/DD_PM_WINDREAM/frmMassValidator.resx +++ b/app/DD_PM_WINDREAM/frmMassValidator.resx @@ -126,12 +126,6 @@ 241, 17 - - 403, 17 - - - 664, 17 - 919, 17 diff --git a/app/DD_PM_WINDREAM/frmMassValidator.vb b/app/DD_PM_WINDREAM/frmMassValidator.vb index cbb1f03..6c86787 100644 --- a/app/DD_PM_WINDREAM/frmMassValidator.vb +++ b/app/DD_PM_WINDREAM/frmMassValidator.vb @@ -353,15 +353,9 @@ Public Class frmMassValidator Case "TABLE" LOGGER.Debug("Versuch Tabelle zu laden") + Dim oDTMyColumns As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlRow.Item("GUID")} ORDER BY SEQUENCE") - TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_CONTROL_TABLETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_CONTROL_TABLE, oControlRow.Item("GUID")) - - Dim columns As List(Of DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow) = (From r As DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow In DD_DMSLiteDataSet.TBPM_CONTROL_TABLE - Where r.CONTROL_ID = oControlRow.Item("GUID") - Select r).ToList() - - oControl = ClassControlCreator.CreateExistingGridControl(oControlRow, columns, False) + oControl = ClassControlCreator.CreateExistingGridControl(oControlRow, oDTMyColumns, False) End Select If oControl IsNot Nothing AndAlso TypeOf oControl IsNot Label Then @@ -546,7 +540,7 @@ Public Class frmMassValidator Select Case Typ 'Tabellendarstellung Case "TABLE" - Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & CONTROL_ID) + Dim dt As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {CONTROL_ID} ORDER BY SEQUENCE") Dim SpaltenWerte As String() If dt.Rows.Count > 1 Then For Each Zeile As Object In wertWD diff --git a/app/DD_PM_WINDREAM/frmValidator.Designer.vb b/app/DD_PM_WINDREAM/frmValidator.Designer.vb index 14bcd29..5de13ca 100644 --- a/app/DD_PM_WINDREAM/frmValidator.Designer.vb +++ b/app/DD_PM_WINDREAM/frmValidator.Designer.vb @@ -37,7 +37,6 @@ Partial Class frmValidator Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() - Me.TBPM_CONTROL_TABLETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter() Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() @@ -45,7 +44,6 @@ Partial Class frmValidator Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components) Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() @@ -101,6 +99,7 @@ Partial Class frmValidator Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.BbtnItm = New DevExpress.XtraBars.BarButtonItem() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() @@ -114,7 +113,6 @@ Partial Class frmValidator CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).BeginInit() @@ -203,7 +201,7 @@ Partial Class frmValidator Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing - Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Me.TBPM_CONTROL_TABLETableAdapter + Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Me.TBPM_KONFIGURATIONTableAdapter Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing @@ -217,10 +215,6 @@ Partial Class frmValidator ' Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True ' - 'TBPM_CONTROL_TABLETableAdapter - ' - Me.TBPM_CONTROL_TABLETableAdapter.ClearBeforeFill = True - ' 'TBPM_KONFIGURATIONTableAdapter ' Me.TBPM_KONFIGURATIONTableAdapter.ClearBeforeFill = True @@ -253,11 +247,6 @@ Partial Class frmValidator Me.TBPM_KONFIGURATIONBindingSource.DataMember = "TBPM_KONFIGURATION" Me.TBPM_KONFIGURATIONBindingSource.DataSource = Me.DD_DMSLiteDataSet ' - 'TBPM_CONTROL_TABLEBindingSource - ' - Me.TBPM_CONTROL_TABLEBindingSource.DataMember = "TBPM_CONTROL_TABLE" - Me.TBPM_CONTROL_TABLEBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' 'BarManager1 ' Me.BarManager1.Controller = Me.BarAndDockingController3 @@ -509,9 +498,9 @@ Partial Class frmValidator 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnItm}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 16 + Me.RibbonControl1.MaxItemId = 17 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] @@ -530,6 +519,8 @@ Partial Class frmValidator ' resources.ApplyResources(Me.bsiInformation, "bsiInformation") Me.bsiInformation.Id = 2 + Me.bsiInformation.ItemAppearance.Normal.BackColor = System.Drawing.Color.Transparent + Me.bsiInformation.ItemAppearance.Normal.Options.UseBackColor = True Me.bsiInformation.Name = "bsiInformation" ' 'bsiDocID @@ -542,8 +533,8 @@ Partial Class frmValidator ' resources.ApplyResources(Me.BarButtonItemFileView, "BarButtonItemFileView") Me.BarButtonItemFileView.Id = 4 - Me.BarButtonItemFileView.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItemFileView.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItemFileView.ImageOptions.Image = CType(resources.GetObject("BarButtonItemFileView.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItemFileView.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItemFileView.ImageOptions.LargeImage"), System.Drawing.Image) Me.BarButtonItemFileView.Name = "BarButtonItemFileView" ' 'BarButtonItem3 @@ -648,6 +639,7 @@ Partial Class frmValidator 'RibbonPageGroup3 ' Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefresh) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BbtnItm) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefreshSearches) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniNext) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniDelete) @@ -679,6 +671,14 @@ Partial Class frmValidator Me.RibbonPage2.Name = "RibbonPage2" resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") ' + 'BbtnItm + ' + resources.ApplyResources(Me.BbtnItm, "BbtnItm") + Me.BbtnItm.Id = 16 + Me.BbtnItm.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image) + Me.BbtnItm.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BbtnItm.Name = "BbtnItm" + ' 'frmValidator ' Me.Appearance.Options.UseFont = True @@ -710,7 +710,6 @@ Partial Class frmValidator CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).EndInit() @@ -736,8 +735,6 @@ Partial Class frmValidator Friend WithEvents TBPM_PROFILEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_CONTROL_TABLETableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter - Friend WithEvents TBPM_CONTROL_TABLEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents PdfBarController1 As DevExpress.XtraPdfViewer.Bars.PdfBarController Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager Friend WithEvents PdfFileOpenBarItem1 As DevExpress.XtraPdfViewer.Bars.PdfFileOpenBarItem @@ -798,4 +795,5 @@ Partial Class frmValidator Friend WithEvents bsiInfo1 As DevExpress.XtraBars.BarStaticItem Friend WithEvents bsiInfo2 As DevExpress.XtraBars.BarStaticItem Friend WithEvents DocumentViewerValidator As DigitalData.Controls.DocumentViewer.DocumentViewer + Friend WithEvents BbtnItm As DevExpress.XtraBars.BarButtonItem End Class diff --git a/app/DD_PM_WINDREAM/frmValidator.resx b/app/DD_PM_WINDREAM/frmValidator.resx index c58d8c6..0c4e42e 100644 --- a/app/DD_PM_WINDREAM/frmValidator.resx +++ b/app/DD_PM_WINDREAM/frmValidator.resx @@ -125,31 +125,6 @@ 0, 146 - - Top, Left, Right - - - Segoe UI Symbol, 12pt, style=Bold - - - 3, 4 - - - No - - - 455, 29 - - - - 1 - - - Label1 - - - MiddleLeft - TITLELabel1 @@ -162,30 +137,6 @@ 0 - - Bottom, Left, Right - - - Tahoma, 9.75pt - - - MiddleLeft - - - 7, 419 - - - 3, 4, 3, 4 - - - 467, 50 - - - 11 - - - Validierung speichern - Nächstes Dokument - btnSave @@ -198,21 +149,6 @@ 1 - - Top, Left, Right - - - 5, 33 - - - 469, 48 - - - 1 - - - Label3 - DESCRIPTIONLabel @@ -225,24 +161,6 @@ 2 - - Top, Bottom, Left, Right - - - True - - - 8, 85 - - - 3, 4, 3, 4 - - - 466, 326 - - - 18 - pnldesigner @@ -267,6 +185,7 @@ 477, 476 + 24 @@ -354,6 +273,135 @@ 0 + + Top, Left, Right + + + Segoe UI Symbol, 12pt, style=Bold + + + 3, 4 + + + No + + + 455, 29 + + + 1 + + + Label1 + + + MiddleLeft + + + TITLELabel1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 0 + + + Bottom, Left, Right + + + Tahoma, 9.75pt + + + MiddleLeft + + + 7, 419 + + + 3, 4, 3, 4 + + + 467, 50 + + + 11 + + + Validierung speichern - Nächstes Dokument + + + btnSave + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 1 + + + Top, Left, Right + + + 5, 33 + + + 469, 48 + + + 1 + + + Label3 + + + DESCRIPTIONLabel + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 2 + + + Top, Bottom, Left, Right + + + True + + + 8, 85 + + + 3, 4, 3, 4 + + + 466, 326 + + + 18 + + + pnldesigner + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 3 + 17, 17 @@ -364,43 +412,37 @@ 411, 17 - 725, 17 + 608, 17 - 887, 17 + 770, 17 - 813, 56 - - - 278, 134 + 17, 56 - 938, 95 + 280, 95 - 17, 95 + 500, 56 - 469, 95 + 952, 56 - 569, 56 + 943, 17 - 1051, 56 + 255, 56 - 257, 95 + 740, 56 - 675, 95 - - - 17, 134 + 17, 95 - 681, 134 + 17, 134 Top @@ -490,7 +532,7 @@ True - 46 + 120 7, 17 @@ -510,7 +552,7 @@ Datei öffnen - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABV0RVh0VGl0 bGUAVmlld01lcmdlZERhdGE7shxIswAAAkJJREFUOE+lkl9Ik2EUxjdnYg4Z6IUX0Y1dBEUQdrOQpEYy @@ -526,7 +568,7 @@ DoDsF67YQEGpdtFTAAAAAElFTkSuQmCC - + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABV0RVh0VGl0 bGUAVmlld01lcmdlZERhdGE7shxIswAABztJREFUWEedVwlMFGcUXvG+UOuBtba2sYfapDVpjCZNrVdU @@ -843,30 +885,31 @@ Tahoma, 9.75pt - - 0, 0 - - - Datei + + Speichern - - Aktionen + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAEnRFWHRUaXRsZQBTYXZlIFRv + O1NhdmXUq5lyAAAAiElEQVQ4T72PzQ2AIAxGWZBFHIBFPDACRxMvnpyt0oY2pUHwLx6eFPi+F3EA8Ar6 + zNOyZwApe5ob6DvsiEBCJwI+s3f/CZhrAgYDDfqCm3wswFmDgQ5jQUhRAwrq4PpYwIwEXPBqrvYjgS1a + fCUwrDnQk+C5PGEz5ZGEykj1yxYOFVgi5ZCiOwDrAold7eaipwAAAABJRU5ErkJggg== + - + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAVxJREFUWEfF - l7FxwzAMRT2Bq4yjPp1nyAAZxNu4dZkt0rnLCm4ZPF+gg5LPCLJko3h3Ovn/T5gCSWnXWitF3nwm48Uw - DHPsjYNxNM7Gxbj+wDX3+A0NWpUxsqSAF+Pd+DBaErR48KrMdAGvxslQg2TAS8af7EwBb8anoYKXQAZZ - k/y5AjB8GSrwHsiaFPFfAUzZFv/8N2SOj6NXAE2z5pnPQfatMXsF0LnKuCWMIQtg7aaXmvuCX+oEjLF3 - XwxgA1EGifuCX+o6HNwXA9jFlFjivuCXug5H98UAtlIllrgv+KWuw9l9MYD9XIkl7gt+qetwcV8M4FBR - Yon7gl/qOlzdFwPKCyh/BOVNWL4MF21EK5EbUflWDOnDyH3BL3WC7mEE5ccxlL6QOKWvZA6GLWaCjMng - kCkAmLI1PYF3nPZItgCgaejc9BI10OK5NZxiSQHOYz/NqpA3n0fbfQM/tJcKTygMggAAAABJRU5ErkJg - gg== + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAEnRFWHRUaXRsZQBTYXZlIFRv + O1NhdmXUq5lyAAABBklEQVRYR+2Xuw3CQBBE3ZklIidO6QEKoBECSiBEogv6QHITwLFj6dDssv6JswHp + gid779YzL3URQvgq7uGSuIdLoob99lQKFyEQOGf4bgi7j+ySO61AQ8sRLreBQ3j7DXdaAbsMuLxrB3g7 + 7j53ZoEskFLAw93nzr8UmMpbJneOEUgOd2aBPoHV7ngoUoAszubOTgEv6BM4mzsXE4hwH1DDDALIUXAf + UEMWyAI/JSBU8oEX2kcsugkbmpm1gPt27hOYwlnCIFDHYOFVYuDz2gpcTfAUPIk7vQNVjk4rUAnev8FY + PIkHvUfa8jcBuUgJS7jlYE4BYCVUOVCDLMxBlMBT9YUQiifIB8S/GJNB2gAAAABJRU5ErkJggg== - - Information + + 0, 0 Menü @@ -1162,12 +1205,6 @@ DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - TBPM_CONTROL_TABLETableAdapter - - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - TBPM_KONFIGURATIONTableAdapter @@ -1210,12 +1247,6 @@ System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TBPM_CONTROL_TABLEBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - BarManager1 @@ -1510,6 +1541,12 @@ DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BbtnItm + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmValidator @@ -1742,6 +1779,39 @@ Zoom + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu + My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE + ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi + bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s + VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw + BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh + bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl + bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF + eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA + Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs + dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz + cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z + CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA + AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN + QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs + b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT + eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp + b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg + Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ + dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k + ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E + cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO + AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL + + 10% @@ -1784,60 +1854,49 @@ sichtbare einpassen - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu - My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE - ZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4zLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi - bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s - VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw - BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh - bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl - bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF - eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA - Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs - dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz - cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z - CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA - AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN - QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs - b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT - eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp - b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg - Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ - dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k - ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E - cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO - AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL - - BarButtonItem1 - 533, 134 + 1053, 95 - 806, 134 + 142, 134 - 1061, 134 + 290, 134 - 17, 173 + 439, 134 - 327, 173 + 749, 134 - 632, 173 + 1054, 134 + + Datei + + + Aktionen + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAVxJREFUWEfF + l7FxwzAMRT2Bq4yjPp1nyAAZxNu4dZkt0rnLCm4ZPF+gg5LPCLJko3h3Ovn/T5gCSWnXWitF3nwm48Uw + DHPsjYNxNM7Gxbj+wDX3+A0NWpUxsqSAF+Pd+DBaErR48KrMdAGvxslQg2TAS8af7EwBb8anoYKXQAZZ + k/y5AjB8GSrwHsiaFPFfAUzZFv/8N2SOj6NXAE2z5pnPQfatMXsF0LnKuCWMIQtg7aaXmvuCX+oEjLF3 + XwxgA1EGifuCX+o6HNwXA9jFlFjivuCXug5H98UAtlIllrgv+KWuw9l9MYD9XIkl7gt+qetwcV8M4FBR + Yon7gl/qOlzdFwPKCyh/BOVNWL4MF21EK5EbUflWDOnDyH3BL3WC7mEE5ccxlL6QOKWvZA6GLWaCjMng + kCkAmLI1PYF3nPZItgCgaejc9BI10OK5NZxiSQHOYz/NqpA3n0fbfQM/tJcKTygMggAAAABJRU5ErkJg + gg== + + + + Information + RibbonPage2 diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 3bb179e..f098dc2 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -56,6 +56,7 @@ Public Class frmValidator Private _dependingColumn_in_action As Boolean = False Private _SetControlValue_in_action As Boolean = False Private DTCONTROLS As DataTable + Private DTGRID_COLUMNS_WITH_SQL As DataTable Private DTGRID_COLUMNS As DataTable Private DTGRID_COLUMNS_TEXTBOX As DataTable Private DTVWCONTROL_INDEX As DataTable @@ -129,7 +130,7 @@ Public Class frmValidator TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING + _step = 2 Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC" DTVWCONTROL_INDEX = ClassDatabase.Return_Datatable(oSQL) @@ -137,7 +138,6 @@ Public Class frmValidator _step = 3 TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) _step = 4 - TBPM_CONTROL_TABLETableAdapter.FillAll(DD_DMSLiteDataSet.TBPM_CONTROL_TABLE) LOGGER.Debug("Profile Data loaded") Catch ex As Exception @@ -654,10 +654,12 @@ Public Class frmValidator pnldesigner.Controls.Clear() Dim oSQL = $"SELECT [dbo].[FNPM_LANGUAGE_CONTROL_TEXT] (NAME,'{USER_LANGUAGE}',CTRL_TYPE,CTRL_TEXT) CTRL_CAPTION_LANG, * FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC" DTCONTROLS = ClassDatabase.Return_Datatable(oSQL) - oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 0" + oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 0 ORDER BY T.SEQUENCE" + DTGRID_COLUMNS_WITH_SQL = ClassDatabase.Return_Datatable(oSQL) + oSQL = $"SELECT T.* from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY T.SEQUENCE" DTGRID_COLUMNS = ClassDatabase.Return_Datatable(oSQL) - oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 1" + oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 1 ORDER BY T.SEQUENCE" DTGRID_COLUMNS_TEXTBOX = ClassDatabase.Return_Datatable(oSQL) Dim oCount As Integer = 0 @@ -913,11 +915,21 @@ Public Class frmValidator oMyControl = ClassControlCreator.CreateExisingCheckbox(oControlRow, False) Case "TABLE" - Dim columns As List(Of DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow) = (From r As DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow In DD_DMSLiteDataSet.TBPM_CONTROL_TABLE - Where r.CONTROL_ID = oControlRow.Item("GUID") - Select r).ToList() + 'Dim columns As List(Of DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow) = (From r As DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow In DD_DMSLiteDataSet.TBPM_CONTROL_TABLE + ' Where r.CONTROL_ID = oControlRow.Item("GUID") + ' Select r).ToList() + + Dim oFilteredDatatable As DataTable = DTGRID_COLUMNS.Clone() + Dim oExpression = $"CONTROL_ID = {oControlRow.Item("GUID")}" + DTGRID_COLUMNS.Select(oExpression, "SEQUENCE").CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) + If oFilteredDatatable.Rows.Count >= 1 Then + LOGGER.Debug($"We got a definition for DTGRID_COLUMNS!!") + Else + Continue For + End If + - Dim oGrid = ClassControlCreator.CreateExistingGridControl(oControlRow, columns, False) + Dim oGrid = ClassControlCreator.CreateExistingGridControl(oControlRow, oFilteredDatatable, False) AddHandler oGrid.ProcessGridKey, Sub(ByVal _sender As Object, ByVal e As KeyEventArgs) @@ -1224,7 +1236,7 @@ Public Class frmValidator oREsult = ClassDatabase.Execute_non_Query(Override_SQLCommand) End If If oREsult = True Then - StatusLabel("Refreshed single control") + SetStatusLabel("Refreshed single control", "Yellow") FillIndexValues(False) Else MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) @@ -1248,7 +1260,7 @@ Public Class frmValidator Try Dim CONTROL_ID = DirectCast(dgv.Tag, ClassControlCreator.ControlMetadata).Guid ' VWPM_CONTROL_INDEXTableAdapter.cmdGetControlID(CURRENT_ProfilGUID, dgv.Name) Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} And SQL_UEBERPRUEFUNG Like '%{1}%'", CURRENT_ProfilGUID, dgv.Name) - Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) If Not IsNothing(DT) And DT.Rows.Count > 0 Then For Each ROW As DataRow In DT.Rows Try @@ -1561,14 +1573,14 @@ Public Class frmValidator End If End Sub Private Sub LookupControl_DependingColumn(LookupControl As LookupControl2, SelectedValues As List(Of String)) - Dim oSQLColumnDatatable As DataTable = DTGRID_COLUMNS.Clone() + Dim oSQLColumnDatatable As DataTable = DTGRID_COLUMNS_WITH_SQL.Clone() Dim oExpression = $"SQL_COMMAND like '%#CTRL#{LookupControl.Name}%'" - DTGRID_COLUMNS.Select(oExpression).CopyToDataTable(oSQLColumnDatatable, LoadOption.PreserveChanges) + DTGRID_COLUMNS_WITH_SQL.Select(oExpression).CopyToDataTable(oSQLColumnDatatable, LoadOption.PreserveChanges) If oSQLColumnDatatable.Rows.Count > 0 Then For Each oRow As DataRow In oSQLColumnDatatable.Rows - Dim oDEPENDING_GUID = DTGRID_COLUMNS.Rows(0).Item("CONTROL_ID") - Dim oDEPENDING_COLUMN = DTGRID_COLUMNS.Rows(0).Item("SPALTENNAME") - Dim oSqlCommand = DTGRID_COLUMNS.Rows(0).Item("SQL_COMMAND") + Dim oDEPENDING_GUID = DTGRID_COLUMNS_WITH_SQL.Rows(0).Item("CONTROL_ID") + Dim oDEPENDING_COLUMN = DTGRID_COLUMNS_WITH_SQL.Rows(0).Item("SPALTENNAME") + Dim oSqlCommand = DTGRID_COLUMNS_WITH_SQL.Rows(0).Item("SQL_COMMAND") If _dependingColumn_in_action = True Then Exit Sub End If @@ -2563,83 +2575,7 @@ Public Class frmValidator End Try - Case "System.Windows.Forms.DataGridView" - oControlType = "DataGridView" - Dim dgv As DataGridView = oControl - If oSourceIndexName = "" Then - MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) - Exit For - End If - If oSourceIndexName Is Nothing = False Then - If oLoadIndex = False Then - LOGGER.Debug("Indexwert soll nicht geladen werden.") - Exit Select - End If - LOGGER.Debug($"getting wmValue for Index {oSourceIndexName}...") - Dim wertWD = GetVariableValuefromSource(oSourceIndexName, oIDBTyp, oIDBOverride) - If wertWD Is Nothing = False Then - 'Es wird gegen ein Vektorfeld nachindexiert - If wertWD.GetType.ToString.Contains("System.Object") Then - Select Case oTyp - 'Tabellendarstellung - Case "TABLE" - - Dim dt As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]") - Dim SpaltenWerte As String() - LOGGER.Debug($"{dt.Rows.Count} Columns configured for control {oControlId}.") - If dt.Rows.Count > 1 Then - - For Each Zeile As Object In wertWD - LOGGER.Debug($"vektorrow Value {Zeile.ToString}...") - SpaltenWerte = Split(Zeile, Delimiter) - Select Case dt.Rows.Count - Case 1 - dgv.Rows.Add(New String() {Zeile.ToString}) - Case 2 - If SpaltenWerte.Length = 2 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) - Else - dgv.Rows.Add(New String() {SpaltenWerte(0), ""}) - End If - Case 3 - If SpaltenWerte.Length = 3 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) - ElseIf SpaltenWerte.Length = 2 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) - Else - dgv.Rows.Add(New String() {SpaltenWerte(0), "", ""}) - End If - Case 4 - If SpaltenWerte.Length = 4 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) - ElseIf SpaltenWerte.Length = 3 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) - ElseIf SpaltenWerte.Length = 2 Then - dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) - Else - dgv.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) - End If - - End Select - Next - End If - - Case Else - 'es handelt sich um ein einfaches Vektorfeld mit einem Wert - For Each obj As Object In wertWD - If obj Is Nothing = False Then - dgv.Rows.Add(New String() {obj.ToString}) - - End If - - Next - End Select - - - End If - End If - End If Case "DevExpress.XtraGrid.GridControl" oControlType = "DevExpress.XtraGrid.GridControl" Dim oMyGridControl As GridControl = oControl @@ -2664,8 +2600,8 @@ Public Class frmValidator Select Case oTyp 'Tabellendarstellung Case "TABLE" - Dim dt As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]") - Dim oColCount = dt.Rows.Count + Dim oDTColumnsPerDevExGrid As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]") + Dim oColCount = oDTColumnsPerDevExGrid.Rows.Count Dim oColValuesfromSource As String() LOGGER.Debug($"DevExpressGrid: {oColCount} Columns configured for control {oControlId}.") If oColCount >= 1 Then @@ -3667,7 +3603,6 @@ Public Class frmValidator Dim oRegexMessage As String = NotNull(dr.Item("REGEX_MESSAGE_DE"), String.Empty) oControlName = dr.Item("CTRL_NAME") Dim oOVERWRITE_DATA = dr.Item("OVERWRITE_DATA") - Dim oPreventMultipleValues = dr.Item("VKT_PREVENT_MULTIPLE_VALUES") 'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist If dr.Item("CTRL_NAME") = oControl.Name And (oIsReadOnly = False Or oSQLCheckCommand <> "") And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then @@ -4335,21 +4270,21 @@ Public Class frmValidator 'Das Array anpassen ReDim Preserve myVektorArr(ZeilenGrid) - Dim oValueList As New List(Of String) + Dim oValueList As New List(Of String) - For Each item In row.ItemArray - item = NotNull(item, String.Empty) - If TypeOf item IsNot String Then item.ToString() - oValueList.Add(item) - Next + For Each item In row.ItemArray + item = NotNull(item, String.Empty) + If TypeOf item IsNot String Then item.ToString() + oValueList.Add(item) + Next - str = String.Join(Delimiter, oValueList.ToArray) + str = String.Join(Delimiter, oValueList.ToArray) - 'Den Wert im Array speichern - myVektorArr(ZeilenGrid) = str - ZeilenGrid += 1 - 'End If - Case Else + 'Den Wert im Array speichern + myVektorArr(ZeilenGrid) = str + ZeilenGrid += 1 + 'End If + Case Else ' MsgBox(row.Cells(0).Value.GetType.ToString) If row.Item(0) Is Nothing = False Then 'Das Array anpassen @@ -4688,8 +4623,13 @@ Public Class frmValidator End Sub - Sub StatusLabel(infotext As String) + Sub SetStatusLabel(infotext As String, Optional pColor As String = "") bsiInformation.Caption = infotext & " " & Now.ToString + If pColor <> String.Empty Then + bsiInformation.ItemAppearance.Normal.BackColor = System.Drawing.Color.FromName(pColor) + Else + bsiInformation.ItemAppearance.Normal.BackColor = Color.Transparent + End If End Sub Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemFileView.ItemClick @@ -4743,8 +4683,7 @@ Public Class frmValidator Catch ex As Exception End Try - - StatusLabel("All Data refreshed") + SetStatusLabel("All Data refreshed", "Yellow") End Sub Private Sub bbtniNext_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniNext.ItemClick @@ -4762,4 +4701,18 @@ Public Class frmValidator load_viewer() End Sub + + Private Sub BbtnItm_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbtnItm.ItemClick + Dim oRESULT As String + If USER_LANGUAGE = "de-DE" Then + oRESULT = "Eingaben gespeichert" + Else + oRESULT = "Eingaben gespeichert" + End If + If Check_UpdateIndexe() = False Then + SetStatusLabel($"Data saved", "LimeGreen") + Else + SetStatusLabel($"Error while saving data!", "Red") + End If + End Sub End Class \ No newline at end of file From 5b248451899344dd2d7e7526720b043ce31b99fe Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 30 Jan 2020 10:42:41 +0100 Subject: [PATCH 13/26] lookupgrid as column editor --- app/DD_PM_WINDREAM/ClassControlCreator.vb | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/app/DD_PM_WINDREAM/ClassControlCreator.vb b/app/DD_PM_WINDREAM/ClassControlCreator.vb index 6132b66..f1215fb 100644 --- a/app/DD_PM_WINDREAM/ClassControlCreator.vb +++ b/app/DD_PM_WINDREAM/ClassControlCreator.vb @@ -492,10 +492,10 @@ Public Class ClassControlCreator If GridTables.ContainsKey(e.Column.FieldName) Then Dim oComboboxDataTable As DataTable = GridTables.Item(e.Column.FieldName) - Dim oEditor As New RepositoryItemComboBox() + 'Dim oEditor As New RepositoryItemComboBox() + Dim oEditor As New RepositoryItemLookUpEdit() Dim oItems As New List(Of String) - oEditor.AutoComplete = True AddHandler oEditor.Validating, Sub(_sender As ComboBoxEdit, _e As CancelEventArgs) If oItems.Contains(_sender.EditValue) Then _e.Cancel = False @@ -505,12 +505,7 @@ Public Class ClassControlCreator End Sub - For Each oRow2 In oComboboxDataTable.Rows - Dim oValue = oRow2.item(0) - oEditor.Items.Add(oValue) - oItems.Add(oValue) - Next - + oEditor.DataSource = oComboboxDataTable e.RepositoryItem = oEditor End If End If From ae9613d56e988a8e9c73817bfc6e773ec591b704 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 30 Jan 2020 14:27:28 +0100 Subject: [PATCH 14/26] strange stuffs --- app/DD_PM_WINDREAM/ClassControlCreator.vb | 35 +++++++++++++++++++---- 1 file changed, 29 insertions(+), 6 deletions(-) diff --git a/app/DD_PM_WINDREAM/ClassControlCreator.vb b/app/DD_PM_WINDREAM/ClassControlCreator.vb index e4cc0bc..60a979a 100644 --- a/app/DD_PM_WINDREAM/ClassControlCreator.vb +++ b/app/DD_PM_WINDREAM/ClassControlCreator.vb @@ -481,14 +481,17 @@ Public Class ClassControlCreator Next - oControl.DataSource = oDatatable + Dim oSource As New BindingSource() With {.DataSource = oDatatable} + + oControl.DataSource = oSource oControl.RefreshDataSource() oControl.ForceInitialize() - Dim oGridView As GridView = oControl.DefaultView + oView.PopulateColumns() + For Each oRow As DataRow In DT_MY_COLUMNS.Rows Dim o = oRow.Item("SPALTENNAME") Dim p = oRow.Item("SPALTENBREITE") - Dim ocount = oGridView.Columns.Count + Dim ocount = oView.Columns.Count ' oGridView.Columns(oRow.Item("SPALTENNAME")).Width = oRow.Item("SPALTENBREITE") Next @@ -501,8 +504,7 @@ Public Class ClassControlCreator If GridTables.ContainsKey(e.Column.FieldName) Then Dim oComboboxDataTable As DataTable = GridTables.Item(e.Column.FieldName) - 'Dim oEditor As New RepositoryItemComboBox() - Dim oEditor As New RepositoryItemLookUpEdit() + Dim oEditor As New RepositoryItemComboBox() Dim oItems As New List(Of String) AddHandler oEditor.Validating, Sub(_sender As ComboBoxEdit, _e As CancelEventArgs) @@ -513,14 +515,35 @@ Public Class ClassControlCreator End If End Sub + For Each oRow2 As DataRow In oComboboxDataTable.Rows + Dim oValue = oRow2.Item(0) + + Try + oValue &= $" | {oRow2.Item(1)}" + Catch ex As Exception + End Try + + oEditor.Items.Add(oValue) + oItems.Add(oValue) + Next - oEditor.DataSource = oComboboxDataTable e.RepositoryItem = oEditor End If End If Next End Sub + AddHandler oView.CellValueChanged, Sub(sender As Object, e As CellValueChangedEventArgs) + Dim oValue = e.Value.ToString() + Dim oView2 As GridView = TryCast(sender, GridView) + + + If oValue.Contains(" | ") Then + oValue = oValue.Split(" | ").ToList().Item(0) + oView2.SetRowCellValue(e.RowHandle, e.Column, oValue) + End If + End Sub + Return oControl End Function From 3dcca628a657a9a438ca8e32f1879809245fd61a Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 31 Jan 2020 10:58:54 +0100 Subject: [PATCH 15/26] remove bindingsource for gridcontrol --- app/DD_PM_WINDREAM/ClassControlCreator.vb | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/app/DD_PM_WINDREAM/ClassControlCreator.vb b/app/DD_PM_WINDREAM/ClassControlCreator.vb index 60a979a..3303ae7 100644 --- a/app/DD_PM_WINDREAM/ClassControlCreator.vb +++ b/app/DD_PM_WINDREAM/ClassControlCreator.vb @@ -481,9 +481,7 @@ Public Class ClassControlCreator Next - Dim oSource As New BindingSource() With {.DataSource = oDatatable} - - oControl.DataSource = oSource + oControl.DataSource = oDatatable oControl.RefreshDataSource() oControl.ForceInitialize() oView.PopulateColumns() From 977e358eaf5b1dc240c5f64257b5cccaa8ef51c1 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Fri, 31 Jan 2020 14:40:06 +0100 Subject: [PATCH 16/26] MS --- app/DD_PM_WINDREAM/ClassIDBData.vb | 23 +++++++++++++++++++++-- app/DD_PM_WINDREAM/frmMain.vb | 3 +++ app/DD_PM_WINDREAM/frmValidator.vb | 14 ++++++++++---- 3 files changed, 34 insertions(+), 6 deletions(-) diff --git a/app/DD_PM_WINDREAM/ClassIDBData.vb b/app/DD_PM_WINDREAM/ClassIDBData.vb index 464590e..2429b4c 100644 --- a/app/DD_PM_WINDREAM/ClassIDBData.vb +++ b/app/DD_PM_WINDREAM/ClassIDBData.vb @@ -129,6 +129,17 @@ Return Nothing End Try + End Function + Public Function Delete_AttributeData(pIDB_OBJID As Int64, pAttributeName As String) As Object + Try + Dim oDELSQL = $"EXEC PRIDB_DELETE_ATTRIBUTE_DATA {pIDB_OBJID},'{pAttributeName}','{USER_USERNAME}'" + ClassDatabase.Execute_non_Query_ConStr(oDELSQL, CONNECTION_STRING_IDB) + + Catch ex As Exception + LOGGER.Error(ex) + Return Nothing + End Try + End Function Public Function SetVariableValue(oAttributeName As String, oNewValue As Object, Optional CheckDeleted As Boolean = False, Optional oIDBTyp As Integer = 0) @@ -136,10 +147,12 @@ Dim omytype = oNewValue.GetType.ToString If omytype = "System.Data.DataTable" Then Dim oDTMyNewValues As DataTable = oNewValue + Dim oOldAttributeResult + Dim oTypeOldResult If CheckDeleted = True Then - Dim oOldAttributeResult = GetVariableValue(oAttributeName, oIDBTyp) - Dim oTypeOldResult = oOldAttributeResult.GetType.ToString + oOldAttributeResult = GetVariableValue(oAttributeName, oIDBTyp) + oTypeOldResult = oOldAttributeResult.GetType.ToString If oTypeOldResult = "System.Data.DataTable" Then Dim myOldValues As DataTable = oOldAttributeResult If myOldValues.Rows.Count > 1 Then @@ -164,7 +177,13 @@ Next End If + Else + Dim oInfo = $"Value [{oOldAttributeResult}] of Attribute [{oAttributeName}] obviously was updated during runtime - will be deleted!" + LOGGER.Info(oInfo) + SetVariableValue(CURRENT_PROFILE_LOG_INDEX, oInfo) + Delete_Term_Object_From_Metadata(oAttributeName, oOldAttributeResult) End If + End If For Each oNewValueRow As DataRow In oDTMyNewValues.Rows diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index b04e98b..e4432eb 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -827,6 +827,9 @@ Public Class frmMain End If If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo() + If Application.OpenForms().OfType(Of frmValidator).Any Then + Exit Sub + End If 'If Not Application.OpenForms().OfType(Of frmValidator).Any Then ' Dim oUpdate = "Not Defined" ' Try diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index f098dc2..31833a3 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -4240,17 +4240,17 @@ Public Class frmValidator Case "DevExpress.XtraGrid.GridControl" Dim dgv As GridControl = oControl - Dim Zeilen As Integer = dgv.DataSource.Rows.Count + Dim oRowCount As Integer = dgv.DataSource.Rows.Count 'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss - If oIsRequired = True And Zeilen = 0 Then + If oIsRequired = True And oRowCount = 0 Then oMissing = True oErrorMessage = "Fehlende Eingabe in Tabelle '" & dgv.Name & "'" oControl.BackColor = Color.Red Exit For - ElseIf Zeilen > 0 Then + ElseIf oRowCount > 0 Then Dim ZeilenGrid As Integer = 0 Dim myVektorArr As String() 'Jeden Werte des Datagridviews durchlaufen @@ -4326,9 +4326,15 @@ Public Class frmValidator oErrorMessage = $"Error while indexing table (2) {dgv.Name} - ERROR: " & idxerr_message Exit For End If + Else + Dim oDT As DataTable = IDBData.GetVariableValue(oIndexName, oIDBTyp) + If oDT.Rows.Count > 0 Then + LOGGER.Debug("User cleared the grid, so data needs to be erased!") + IDBData.Delete_AttributeData(CURRENT_DOC_ID, oIndexName) + End If End If - End If + End If End Select End If 'End If für Control und ReadOnly = False Next From f247e6ea5bc82fd02f7a98482a13abc5fa13a3e8 Mon Sep 17 00:00:00 2001 From: Developer03 Digital Data Date: Fri, 31 Jan 2020 15:29:45 +0100 Subject: [PATCH 17/26] MS an DDENTWPC03 --- .gitignore | 1 + app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb | 2 +- app/DD_PM_WINDREAM/frmValidator.vb | 17 ++++++++++++++--- 3 files changed, 16 insertions(+), 4 deletions(-) diff --git a/.gitignore b/.gitignore index c7c5c91..250d752 100644 --- a/.gitignore +++ b/.gitignore @@ -155,3 +155,4 @@ $RECYCLE.BIN/ # Mac desktop service store files .DS_Store /app/.vs/DD_PM_WINDREAM/v15/Server/sqlite3 +/app/.vs/DD_PM_WINDREAM/v16/Server/sqlite3 diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index ffa541d..7512c84 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 31833a3..80d19e2 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -1874,6 +1874,9 @@ Public Class frmValidator If File.Exists(oResult) = False Then If USER_USERNAME = "SchreiberM" Then oResult = "\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\AANG-3302-swbn.pdf" + ElseIf USER_USERNAME = "Administrator" Then + 'oResult = "C:\Users\Administrator.DD-GAN\Desktop\test.pdf" + oResult = "\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\AANG-3302-swbn.pdf" Else LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...") oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({CURRENT_DOC_GUID},1)" @@ -4327,11 +4330,19 @@ Public Class frmValidator Exit For End If Else - Dim oDT As DataTable = IDBData.GetVariableValue(oIndexName, oIDBTyp) - If oDT.Rows.Count > 0 Then - LOGGER.Debug("User cleared the grid, so data needs to be erased!") + Dim oOldAttributeResult = IDBData.GetVariableValue(oIndexName, oIDBTyp) + Dim oTypeOldResult = oOldAttributeResult.GetType.ToString + If oTypeOldResult = "System.Data.DataTable" Then + Dim oDT As DataTable = IDBData.GetVariableValue(oIndexName, oIDBTyp) + If oDT.Rows.Count > 0 Then + LOGGER.Debug("User cleared the grid, so data needs to be erased!") + IDBData.Delete_AttributeData(CURRENT_DOC_ID, oIndexName) + End If + Else + LOGGER.Debug("(String) User cleared the grid, so data needs to be erased!") IDBData.Delete_AttributeData(CURRENT_DOC_ID, oIndexName) End If + End If End If From ab620f3b08175c7767a559194cdf549b54c9571e Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Mon, 3 Feb 2020 12:27:55 +0100 Subject: [PATCH 18/26] ms 20007 Namespace --- app/DD_PM_WINDREAM/App.config | 14 +-- app/DD_PM_WINDREAM/ClassIDBData.vb | 26 +++++- app/DD_PM_WINDREAM/ClassImageSelector.vb | 2 +- app/DD_PM_WINDREAM/ClassSQLEditor.vb | 2 +- .../DD_DMSLiteDataSet.Designer.vb | 34 +++---- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd | 48 +++++----- app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj | 11 ++- .../FinalIndexDataSet.Designer.vb | 2 +- app/DD_PM_WINDREAM/FinalIndexDataSet.xsd | 4 +- .../My Project/Application.Designer.vb | 2 +- .../My Project/Resources.Designer.vb | 2 +- .../My Project/Settings.Designer.vb | 4 +- app/DD_PM_WINDREAM/frmAdmin2.Designer.vb | 10 +- app/DD_PM_WINDREAM/frmAdmin2.resx | 8 +- .../frmAdminPasswort.Designer.vb | 16 ++-- .../frmAdministration.Designer.vb | 92 +++++++++---------- app/DD_PM_WINDREAM/frmAdministration.resx | 30 +++--- app/DD_PM_WINDREAM/frmAnnotations.Designer.vb | 2 +- app/DD_PM_WINDREAM/frmConnection.Designer.vb | 20 ++-- .../frmControl_Detail.Designer.vb | 20 ++-- app/DD_PM_WINDREAM/frmControl_Detail.resx | 6 +- .../frmDesignerLayout.Designer.vb | 8 +- app/DD_PM_WINDREAM/frmDesignerLayout.vb | 2 +- .../Editors/frmDatasourceEditor.vb | 2 +- .../Properties/BaseProperties.vb | 2 +- .../Properties/ComboboxProperties.vb | 4 +- .../frmFormDesigner.Designer.vb | 56 +++++------ app/DD_PM_WINDREAM/frmFormDesigner.vb | 2 +- app/DD_PM_WINDREAM/frmKonfig.Designer.vb | 22 ++--- app/DD_PM_WINDREAM/frmKonfig.resx | 6 +- app/DD_PM_WINDREAM/frmLicense.Designer.vb | 16 ++-- app/DD_PM_WINDREAM/frmLicense.resx | 6 +- app/DD_PM_WINDREAM/frmLoginAdmin.Designer.vb | 16 ++-- app/DD_PM_WINDREAM/frmLoginAdmin.resx | 6 +- app/DD_PM_WINDREAM/frmMain.Designer.vb | 38 ++++---- app/DD_PM_WINDREAM/frmMain.resx | 12 +-- app/DD_PM_WINDREAM/frmMain.vb | 4 + .../frmMassValidator.Designer.vb | 8 +- app/DD_PM_WINDREAM/frmSQL_Admin.Designer.vb | 4 +- .../frmSQL_DESIGNER.Designer.vb | 16 ++-- .../frmUserKonfig_AddUsers.designer.vb | 2 +- app/DD_PM_WINDREAM/frmValidator.Designer.vb | 32 +++---- app/DD_PM_WINDREAM/frmValidator.resx | 16 ++-- app/DD_PM_WINDREAM/frmValidator.vb | 4 +- .../frmValidatorSearch.Designer.vb | 16 ++-- 45 files changed, 340 insertions(+), 315 deletions(-) diff --git a/app/DD_PM_WINDREAM/App.config b/app/DD_PM_WINDREAM/App.config index 710b054..8532c40 100644 --- a/app/DD_PM_WINDREAM/App.config +++ b/app/DD_PM_WINDREAM/App.config @@ -1,12 +1,12 @@ - -
-
+ +
+ @@ -49,13 +49,15 @@ - + - + 0, 0 @@ -110,6 +112,6 @@ Normal - + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/ClassIDBData.vb b/app/DD_PM_WINDREAM/ClassIDBData.vb index 2429b4c..96670d0 100644 --- a/app/DD_PM_WINDREAM/ClassIDBData.vb +++ b/app/DD_PM_WINDREAM/ClassIDBData.vb @@ -178,10 +178,28 @@ Next End If Else - Dim oInfo = $"Value [{oOldAttributeResult}] of Attribute [{oAttributeName}] obviously was updated during runtime - will be deleted!" - LOGGER.Info(oInfo) - SetVariableValue(CURRENT_PROFILE_LOG_INDEX, oInfo) - Delete_Term_Object_From_Metadata(oAttributeName, oOldAttributeResult) + If oDTMyNewValues.Rows.Count > 1 Then + Dim oExists As Boolean = False + For Each oNewValueRow As DataRow In oDTMyNewValues.Rows + Dim oInfo1 = $"Checking oldValue[{oOldAttributeResult}] vs NewValue [{oNewValueRow.Item(1)}]" + If oNewValueRow.Item(1).ToString.ToUpper = oOldAttributeResult.ToString.ToUpper Then + oExists = True + Exit For + End If + Next + If oExists = False Then + Dim oInfo2 = $"Value [{oOldAttributeResult}] no longer existing in Vector-Attribute [{oAttributeName}] - will be deleted!" + LOGGER.Info(oInfo2) + SetVariableValue(CURRENT_PROFILE_LOG_INDEX, oInfo2) + Delete_Term_Object_From_Metadata(oAttributeName, oOldAttributeResult) + End If + Else + Dim oInfo = $"Value [{oOldAttributeResult}] of Attribute [{oAttributeName}] obviously was updated during runtime - will be deleted!" + LOGGER.Info(oInfo) + SetVariableValue(CURRENT_PROFILE_LOG_INDEX, oInfo) + Delete_Term_Object_From_Metadata(oAttributeName, oOldAttributeResult) + End If + End If End If diff --git a/app/DD_PM_WINDREAM/ClassImageSelector.vb b/app/DD_PM_WINDREAM/ClassImageSelector.vb index e704296..f2cae0a 100644 --- a/app/DD_PM_WINDREAM/ClassImageSelector.vb +++ b/app/DD_PM_WINDREAM/ClassImageSelector.vb @@ -1,6 +1,6 @@ Imports System.ComponentModel Imports System.Drawing.Design -Imports DD_PM_WINDREAM.InputProperties +Imports DD_ProcessManager.InputProperties Public Class ClassImageSelector Inherits UITypeEditor diff --git a/app/DD_PM_WINDREAM/ClassSQLEditor.vb b/app/DD_PM_WINDREAM/ClassSQLEditor.vb index f9fc38b..c031591 100644 --- a/app/DD_PM_WINDREAM/ClassSQLEditor.vb +++ b/app/DD_PM_WINDREAM/ClassSQLEditor.vb @@ -1,7 +1,7 @@ Imports System.ComponentModel Imports System.Drawing.Design Imports System.Windows.Forms.Design -Imports DD_PM_WINDREAM.InputProperties +Imports DD_ProcessManager.InputProperties Public Class ClassSQLEditor Inherits UITypeEditor diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index 49f9715..18dedfc 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -14406,7 +14406,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub - + @@ -2016,7 +2016,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2076,7 +2076,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2172,7 +2172,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2237,7 +2237,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2267,7 +2267,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2290,7 +2290,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2364,7 +2364,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2413,7 +2413,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2428,7 +2428,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2550,7 +2550,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2623,7 +2623,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2674,7 +2674,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2812,7 +2812,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2890,7 +2890,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2931,7 +2931,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2969,7 +2969,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -3026,7 +3026,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -3084,7 +3084,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -3266,11 +3266,11 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - - - - - + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index be85dc9..aac7536 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -8,9 +8,9 @@ 2.0 {6ACA1432-09A2-47EF-A704-C0AA73905756} WinExe - DD_PM_WINDREAM.My.MyApplication - DD_PM_WINDREAM - DD_PM_WINDREAM + DD_ProcessManager.My.MyApplication + DD_ProcessManager + DD_ProcessManager 512 WindowsForms v4.6.1 @@ -39,7 +39,7 @@ true true bin\Debug\ - DD_PM_WINDREAM.xml + DD_ProcessManager.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 false UnusedCode.ruleset @@ -51,7 +51,7 @@ true true bin\Release\ - DD_PM_WINDREAM.xml + DD_ProcessManager.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 false @@ -467,6 +467,7 @@ frmAdmin2.vb + Designer frmAdminPasswort.vb diff --git a/app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb b/app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb index b5716f9..923d037 100644 --- a/app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb @@ -1144,7 +1144,7 @@ Namespace FinalIndexDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub - + @@ -98,7 +98,7 @@ VALUES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMA - + diff --git a/app/DD_PM_WINDREAM/My Project/Application.Designer.vb b/app/DD_PM_WINDREAM/My Project/Application.Designer.vb index c74e261..515756a 100644 --- a/app/DD_PM_WINDREAM/My Project/Application.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Application.Designer.vb @@ -32,7 +32,7 @@ Namespace My _ Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.DD_PM_WINDREAM.frmMain + Me.MainForm = Global.DD_ProcessManager.frmMain End Sub End Class End Namespace diff --git a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb index 098fc22..7b22a8f 100644 --- a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb @@ -39,7 +39,7 @@ Namespace My.Resources Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then - Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_PM_WINDREAM.Resources", GetType(Resources).Assembly) + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_ProcessManager.Resources", GetType(Resources).Assembly) resourceMan = temp End If Return resourceMan diff --git a/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb b/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb index 9716fdb..89c1048 100644 --- a/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Settings.Designer.vb @@ -299,9 +299,9 @@ Namespace My Friend Module MySettingsProperty _ - Friend ReadOnly Property Settings() As Global.DD_PM_WINDREAM.My.MySettings + Friend ReadOnly Property Settings() As Global.DD_ProcessManager.My.MySettings Get - Return Global.DD_PM_WINDREAM.My.MySettings.Default + Return Global.DD_ProcessManager.My.MySettings.Default End Get End Property End Module diff --git a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb index de79f3f..3296afd 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb @@ -47,7 +47,7 @@ Partial Class frmAdmin2 Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) Me.TBDD_EMAIL_TEMPLATEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() @@ -139,9 +139,9 @@ Partial Class frmAdmin2 Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.TBDD_EMAIL_TEMPLATETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter() - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter() + Me.TBDD_EMAIL_TEMPLATETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter() Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components) CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -1238,7 +1238,7 @@ Partial Class frmAdmin2 Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_GUI_LANGUAGE_PHRASETableAdapter ' diff --git a/app/DD_PM_WINDREAM/frmAdmin2.resx b/app/DD_PM_WINDREAM/frmAdmin2.resx index b7eb4fe..1b73c57 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.resx +++ b/app/DD_PM_WINDREAM/frmAdmin2.resx @@ -1945,7 +1945,7 @@ DD_DMSLiteDataSet - DD_PM_WINDREAM.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null BindingNavigatorCountItem @@ -2299,19 +2299,19 @@ TBDD_EMAIL_TEMPLATETableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_GUI_LANGUAGE_PHRASETableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null LayoutConverter1 diff --git a/app/DD_PM_WINDREAM/frmAdminPasswort.Designer.vb b/app/DD_PM_WINDREAM/frmAdminPasswort.Designer.vb index a6d9ac6..0cdc0ed 100644 --- a/app/DD_PM_WINDREAM/frmAdminPasswort.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdminPasswort.Designer.vb @@ -25,10 +25,10 @@ Partial Class frmAdminPasswort Me.components = New System.ComponentModel.Container() Me.txtOld = New System.Windows.Forms.TextBox() Me.txtNew = New System.Windows.Forms.TextBox() - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.btnSetNew = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() @@ -81,11 +81,11 @@ Partial Class frmAdminPasswort Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'btnSetNew ' - Me.btnSetNew.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.add + Me.btnSetNew.Image = Global.DD_ProcessManager.My.Resources.Resources.add Me.btnSetNew.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnSetNew.Location = New System.Drawing.Point(12, 60) Me.btnSetNew.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) @@ -138,10 +138,10 @@ Partial Class frmAdminPasswort End Sub Friend WithEvents txtOld As System.Windows.Forms.TextBox Friend WithEvents txtNew As System.Windows.Forms.TextBox - Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet + Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter - Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter + Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents btnSetNew As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index 8ea0c4e..995458c 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -49,7 +49,7 @@ Partial Class frmAdministration Me.SplitContainer_Profilzuordnung2 = New System.Windows.Forms.SplitContainer() Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl() Me.TBPROFILE_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.viewAssignedUsers = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colPRENAME1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME3 = New DevExpress.XtraGrid.Columns.GridColumn() @@ -86,9 +86,9 @@ Partial Class frmAdministration Me.Panel4 = New System.Windows.Forms.Panel() Me.Label23 = New System.Windows.Forms.Label() Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() + Me.TBPM_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() @@ -134,7 +134,7 @@ Partial Class frmAdministration Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() Me.dlgWindreamsuche = New System.Windows.Forms.OpenFileDialog() - Me.TBPM_TYPETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter() + Me.TBPM_TYPETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter() Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() @@ -152,7 +152,7 @@ Partial Class frmAdministration Me.Panel5 = New System.Windows.Forms.Panel() Me.gridFinalIndex = New DevExpress.XtraGrid.GridControl() Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.FinalIndexDataSet = New DD_PM_WINDREAM.FinalIndexDataSet() + Me.FinalIndexDataSet = New DD_ProcessManager.FinalIndexDataSet() Me.viewFinalIndex = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colPROFIL_ID = New DevExpress.XtraGrid.Columns.GridColumn() @@ -232,19 +232,19 @@ Partial Class frmAdministration Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.tstrpinfo = New System.Windows.Forms.ToolStripStatusLabel() - Me.TBPROFILE_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter() - Me.TBDD_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter() - Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() + Me.TBPROFILE_USERTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter() + Me.TBDD_USERTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter() + Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() Me.pnlMain = New System.Windows.Forms.Panel() - Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter() + Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter() Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() - Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() - Me.TBDD_GROUPSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter() - Me.TBPROFILE_GROUPTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter() + Me.TBPM_PROFILE_FILESTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() + Me.TBDD_CONNECTIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TBDD_GROUPSTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter() + Me.TBPROFILE_GROUPTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() - Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter() - Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() + Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter() + Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_ProcessManager.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) GUIDLabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() @@ -766,7 +766,7 @@ Partial Class frmAdministration Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPM_PROFILEBindingSource ' @@ -852,7 +852,7 @@ Partial Class frmAdministration 'tstrpbtn_add ' Me.tstrpbtn_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.tstrpbtn_add.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.action_add_16xLG + Me.tstrpbtn_add.Image = Global.DD_ProcessManager.My.Resources.Resources.action_add_16xLG resources.ApplyResources(Me.tstrpbtn_add, "tstrpbtn_add") Me.tstrpbtn_add.Name = "tstrpbtn_add" ' @@ -861,13 +861,13 @@ Partial Class frmAdministration Me.tstrlblSave.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.tstrlblSave.BackColor = System.Drawing.Color.Lime Me.tstrlblSave.ForeColor = System.Drawing.Color.Crimson - Me.tstrlblSave.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.asterisk_yellow + Me.tstrlblSave.Image = Global.DD_ProcessManager.My.Resources.Resources.asterisk_yellow Me.tstrlblSave.Name = "tstrlblSave" resources.ApplyResources(Me.tstrlblSave, "tstrlblSave") ' 'btnRefreshProfiles ' - Me.btnRefreshProfiles.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG + Me.btnRefreshProfiles.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.btnRefreshProfiles, "btnRefreshProfiles") Me.btnRefreshProfiles.Name = "btnRefreshProfiles" ' @@ -879,7 +879,7 @@ Partial Class frmAdministration 'tsbtnDesigner_open ' resources.ApplyResources(Me.tsbtnDesigner_open, "tsbtnDesigner_open") - Me.tsbtnDesigner_open.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.application_form_edit + Me.tsbtnDesigner_open.Image = Global.DD_ProcessManager.My.Resources.Resources.application_form_edit Me.tsbtnDesigner_open.Name = "tsbtnDesigner_open" ' 'ToolStripSeparator2 @@ -889,7 +889,7 @@ Partial Class frmAdministration ' 'tsbtnProfilkopieren ' - Me.tsbtnProfilkopieren.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.page_copy + Me.tsbtnProfilkopieren.Image = Global.DD_ProcessManager.My.Resources.Resources.page_copy resources.ApplyResources(Me.tsbtnProfilkopieren, "tsbtnProfilkopieren") Me.tsbtnProfilkopieren.Name = "tsbtnProfilkopieren" ' @@ -905,7 +905,7 @@ Partial Class frmAdministration ' 'tsbtndeleteProfil ' - Me.tsbtndeleteProfil.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.delete_12x12 + Me.tsbtndeleteProfil.Image = Global.DD_ProcessManager.My.Resources.Resources.delete_12x12 resources.ApplyResources(Me.tsbtndeleteProfil, "tsbtndeleteProfil") Me.tsbtndeleteProfil.Name = "tsbtndeleteProfil" ' @@ -983,7 +983,7 @@ Partial Class frmAdministration 'btnWMopenSuche ' resources.ApplyResources(Me.btnWMopenSuche, "btnWMopenSuche") - Me.btnWMopenSuche.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_green + Me.btnWMopenSuche.Image = Global.DD_ProcessManager.My.Resources.Resources.flag_green Me.btnWMopenSuche.Name = "btnWMopenSuche" Me.btnWMopenSuche.UseVisualStyleBackColor = True ' @@ -1316,7 +1316,7 @@ Partial Class frmAdministration ' 'BindingNavigatorAddNewItem ' - Me.BindingNavigatorAddNewItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.add + Me.BindingNavigatorAddNewItem.Image = Global.DD_ProcessManager.My.Resources.Resources.add Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem") ' @@ -1371,7 +1371,7 @@ Partial Class frmAdministration ' 'tsBtnCancel ' - Me.tsBtnCancel.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.cancel + Me.tsBtnCancel.Image = Global.DD_ProcessManager.My.Resources.Resources.cancel resources.ApplyResources(Me.tsBtnCancel, "tsBtnCancel") Me.tsBtnCancel.Name = "tsBtnCancel" ' @@ -1382,13 +1382,13 @@ Partial Class frmAdministration ' 'tsBtnSave ' - Me.tsBtnSave.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.save + Me.tsBtnSave.Image = Global.DD_ProcessManager.My.Resources.Resources.save resources.ApplyResources(Me.tsBtnSave, "tsBtnSave") Me.tsBtnSave.Name = "tsBtnSave" ' 'ToolStripButton5 ' - Me.ToolStripButton5.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xMD + Me.ToolStripButton5.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xMD resources.ApplyResources(Me.ToolStripButton5, "ToolStripButton5") Me.ToolStripButton5.Name = "ToolStripButton5" ' @@ -1595,14 +1595,14 @@ Partial Class frmAdministration ' 'btnSQLProfilehome ' - Me.btnSQLProfilehome.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.application_form_edit + Me.btnSQLProfilehome.Image = Global.DD_ProcessManager.My.Resources.Resources.application_form_edit resources.ApplyResources(Me.btnSQLProfilehome, "btnSQLProfilehome") Me.btnSQLProfilehome.Name = "btnSQLProfilehome" Me.btnSQLProfilehome.UseVisualStyleBackColor = True ' 'btnUserManager ' - Me.btnUserManager.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.user + Me.btnUserManager.Image = Global.DD_ProcessManager.My.Resources.Resources.user resources.ApplyResources(Me.btnUserManager, "btnUserManager") Me.btnUserManager.Name = "btnUserManager" Me.btnUserManager.UseVisualStyleBackColor = True @@ -1610,7 +1610,7 @@ Partial Class frmAdministration 'Button2 ' Me.Button2.BackColor = System.Drawing.Color.LightGray - Me.Button2.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Files_7954 + Me.Button2.Image = Global.DD_ProcessManager.My.Resources.Resources.Files_7954 resources.ApplyResources(Me.Button2, "Button2") Me.Button2.Name = "Button2" Me.Button2.UseVisualStyleBackColor = False @@ -1628,14 +1628,14 @@ Partial Class frmAdministration ' 'btnConnections ' - Me.btnConnections.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_refresh + Me.btnConnections.Image = Global.DD_ProcessManager.My.Resources.Resources.database_refresh resources.ApplyResources(Me.btnConnections, "btnConnections") Me.btnConnections.Name = "btnConnections" Me.btnConnections.UseVisualStyleBackColor = True ' 'btnopen_SQLAdmin ' - Me.btnopen_SQLAdmin.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go1 + Me.btnopen_SQLAdmin.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go1 resources.ApplyResources(Me.btnopen_SQLAdmin, "btnopen_SQLAdmin") Me.btnopen_SQLAdmin.Name = "btnopen_SQLAdmin" Me.btnopen_SQLAdmin.UseVisualStyleBackColor = True @@ -1689,7 +1689,7 @@ Partial Class frmAdministration 'btnTest_Email ' resources.ApplyResources(Me.btnTest_Email, "btnTest_Email") - Me.btnTest_Email.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.email_go + Me.btnTest_Email.Image = Global.DD_ProcessManager.My.Resources.Resources.email_go Me.btnTest_Email.Name = "btnTest_Email" Me.btnTest_Email.UseVisualStyleBackColor = True ' @@ -1732,7 +1732,7 @@ Partial Class frmAdministration ' 'btnlicensemanager_open ' - Me.btnlicensemanager_open.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.key + Me.btnlicensemanager_open.Image = Global.DD_ProcessManager.My.Resources.Resources.key resources.ApplyResources(Me.btnlicensemanager_open, "btnlicensemanager_open") Me.btnlicensemanager_open.Name = "btnlicensemanager_open" Me.btnlicensemanager_open.UseVisualStyleBackColor = True @@ -1766,7 +1766,7 @@ Partial Class frmAdministration ' 'btnSaveKonfig ' - Me.btnSaveKonfig.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.save + Me.btnSaveKonfig.Image = Global.DD_ProcessManager.My.Resources.Resources.save resources.ApplyResources(Me.btnSaveKonfig, "btnSaveKonfig") Me.btnSaveKonfig.Name = "btnSaveKonfig" Me.btnSaveKonfig.UseVisualStyleBackColor = True @@ -1790,7 +1790,7 @@ Partial Class frmAdministration ' 'tstrpinfo ' - Me.tstrpinfo.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.A_1 + Me.tstrpinfo.Image = Global.DD_ProcessManager.My.Resources.Resources.A_1 Me.tstrpinfo.Name = "tstrpinfo" resources.ApplyResources(Me.tstrpinfo, "tstrpinfo") ' @@ -1940,10 +1940,10 @@ Partial Class frmAdministration Me.PerformLayout() End Sub - Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet - Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager + Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet + Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents TBPM_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_PROFILETableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter + Friend WithEvents TBPM_PROFILETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator @@ -1976,7 +1976,7 @@ Partial Class frmAdministration Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator Friend WithEvents tsbtnDesigner_open As System.Windows.Forms.ToolStripButton Friend WithEvents TBPM_TYPEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_TYPETableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter + Friend WithEvents TBPM_TYPETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter Friend WithEvents cmbType As System.Windows.Forms.ComboBox Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox Friend WithEvents btnmovetoFolderDialog As System.Windows.Forms.Button @@ -1991,14 +1991,14 @@ Partial Class frmAdministration Friend WithEvents SplitContainerProfilzuordnung As System.Windows.Forms.SplitContainer Friend WithEvents SplitContainer_Profilzuordnung2 As System.Windows.Forms.SplitContainer Friend WithEvents TBPROFILE_USERBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPROFILE_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter + Friend WithEvents TBPROFILE_USERTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter + Friend WithEvents TBDD_USERTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter Friend WithEvents TabPage3 As System.Windows.Forms.TabPage Friend WithEvents btnlicensemanager_open As System.Windows.Forms.Button Friend WithEvents grpbxEmail As System.Windows.Forms.GroupBox Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter + Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter Friend WithEvents INTERVALL_CKECK_NO_OF_FILESNumericUpDown As System.Windows.Forms.NumericUpDown Friend WithEvents GEAENDERTWANNTextBox As System.Windows.Forms.TextBox Friend WithEvents GEAENDERTWERTextBox As System.Windows.Forms.TextBox @@ -2016,7 +2016,7 @@ Partial Class frmAdministration Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents tsbtnProfilkopieren As System.Windows.Forms.ToolStripButton Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter + Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator Friend WithEvents tsbtndeleteProfil As System.Windows.Forms.ToolStripButton Friend WithEvents EMAIL_REMINDER_FOOTERTextBox As System.Windows.Forms.TextBox @@ -2034,7 +2034,7 @@ Partial Class frmAdministration Friend WithEvents btnopen_SQLAdmin As System.Windows.Forms.Button Friend WithEvents btnRefreshProfiles As System.Windows.Forms.ToolStripButton Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter + Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter Friend WithEvents btnConnections As System.Windows.Forms.Button Friend WithEvents cmbLOGIndex As System.Windows.Forms.ComboBox Friend WithEvents VEKTOR_DELIMITERTextBox As System.Windows.Forms.TextBox @@ -2045,7 +2045,7 @@ Partial Class frmAdministration Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter + Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter Friend WithEvents TabControl2 As TabControl Friend WithEvents TabPage11 As TabPage Friend WithEvents TabPage12 As TabPage diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index b040a89..124212a 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -4337,7 +4337,7 @@ DD_DMSLiteDataSet - DD_PM_WINDREAM.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null viewAssignedUsers @@ -4487,7 +4487,7 @@ TableAdapterManager - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_PROFILEBindingSource @@ -4499,7 +4499,7 @@ TBPM_PROFILETableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null BindingNavigatorMoveFirstItem @@ -4637,7 +4637,7 @@ TBPM_TYPETableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null FolderBrowserDialog1 @@ -4655,7 +4655,7 @@ FinalIndexDataSet - DD_PM_WINDREAM.FinalIndexDataSet, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.FinalIndexDataSet, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null viewFinalIndex @@ -4865,25 +4865,25 @@ TBPROFILE_USERTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_USERTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_KONFIGURATIONTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_PROFILE_CONTROLSTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_PROFILE_FILESBindingSource @@ -4895,25 +4895,25 @@ TBPM_PROFILE_FILESTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_CONNECTIONTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_GROUPSTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPROFILE_GROUPTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null OpenFileDialog1 @@ -4925,13 +4925,13 @@ FNPM_GET_FREE_USER_FOR_PROFILETableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_PROFILE_FINAL_INDEXINGTableAdapter - DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null ToolTip1 diff --git a/app/DD_PM_WINDREAM/frmAnnotations.Designer.vb b/app/DD_PM_WINDREAM/frmAnnotations.Designer.vb index cb10d20..0f0f363 100644 --- a/app/DD_PM_WINDREAM/frmAnnotations.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAnnotations.Designer.vb @@ -35,7 +35,7 @@ Partial Class frmAnnotations 'Button1 ' Me.Button1.Cursor = System.Windows.Forms.Cursors.Default - Me.Button1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.add + Me.Button1.Image = Global.DD_ProcessManager.My.Resources.Resources.add resources.ApplyResources(Me.Button1, "Button1") Me.Button1.Name = "Button1" Me.Button1.UseVisualStyleBackColor = True diff --git a/app/DD_PM_WINDREAM/frmConnection.Designer.vb b/app/DD_PM_WINDREAM/frmConnection.Designer.vb index 845b18c..76cb0d0 100644 --- a/app/DD_PM_WINDREAM/frmConnection.Designer.vb +++ b/app/DD_PM_WINDREAM/frmConnection.Designer.vb @@ -66,7 +66,7 @@ Partial Class frmConnection Me.DATENBANKComboBox = New System.Windows.Forms.ComboBox() Me.BEMERKUNGTextBox = New System.Windows.Forms.TextBox() Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() @@ -75,8 +75,8 @@ Partial Class frmConnection Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.TBDD_CONNECTIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() Me.SYS_CONNECTIONCheckBox = New System.Windows.Forms.CheckBox() GEANDERTWERLabel = New System.Windows.Forms.Label() GEAENDERTWANNLabel = New System.Windows.Forms.Label() @@ -171,7 +171,7 @@ Partial Class frmConnection 'btnCheck_Con ' Me.btnCheck_Con.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnCheck_Con.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.world_link + Me.btnCheck_Con.Image = Global.DD_ProcessManager.My.Resources.Resources.world_link Me.btnCheck_Con.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnCheck_Con.Location = New System.Drawing.Point(374, 150) Me.btnCheck_Con.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) @@ -388,7 +388,7 @@ Partial Class frmConnection ' 'ToolStripButton3 ' - Me.ToolStripButton3.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton3.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton3.Name = "ToolStripButton3" Me.ToolStripButton3.Size = New System.Drawing.Size(95, 22) @@ -396,7 +396,7 @@ Partial Class frmConnection ' 'ToolStripButton1 ' - Me.ToolStripButton1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.add + Me.ToolStripButton1.Image = Global.DD_ProcessManager.My.Resources.Resources.add Me.ToolStripButton1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton1.Name = "ToolStripButton1" @@ -413,7 +413,7 @@ Partial Class frmConnection ' 'ToolStripButton2 ' - Me.ToolStripButton2.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.delete_12x12 + Me.ToolStripButton2.Image = Global.DD_ProcessManager.My.Resources.Resources.delete_12x12 Me.ToolStripButton2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton2.Name = "ToolStripButton2" @@ -564,7 +564,7 @@ Partial Class frmConnection Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_CONNECTIONTableAdapter ' @@ -638,9 +638,9 @@ Partial Class frmConnection Friend WithEvents lblDataSource As System.Windows.Forms.Label Friend WithEvents cmbDbArt As System.Windows.Forms.ComboBox Friend WithEvents lblDatenbanktyp As System.Windows.Forms.Label - Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet + Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager + Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents TBDD_CONNECTIONBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton diff --git a/app/DD_PM_WINDREAM/frmControl_Detail.Designer.vb b/app/DD_PM_WINDREAM/frmControl_Detail.Designer.vb index 1886c59..c11ebe6 100644 --- a/app/DD_PM_WINDREAM/frmControl_Detail.Designer.vb +++ b/app/DD_PM_WINDREAM/frmControl_Detail.Designer.vb @@ -47,9 +47,9 @@ Partial Class frmControl_Detail Me.REGEX_MATCHTextBox = New System.Windows.Forms.TextBox() Me.Button1 = New System.Windows.Forms.Button() Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() - Me.TBPM_CONTROL_TABLETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter() - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() + Me.TBPM_CONTROL_TABLETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.REGEX_MESSAGE_DETextBox = New System.Windows.Forms.TextBox() Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() @@ -131,7 +131,7 @@ Partial Class frmControl_Detail ' 'btnSave ' - Me.btnSave.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.save + Me.btnSave.Image = Global.DD_ProcessManager.My.Resources.Resources.save resources.ApplyResources(Me.btnSave, "btnSave") Me.btnSave.Name = "btnSave" Me.btnSave.UseVisualStyleBackColor = True @@ -144,13 +144,13 @@ Partial Class frmControl_Detail ' 'tslblAenderungen ' - Me.tslblAenderungen.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_red + Me.tslblAenderungen.Image = Global.DD_ProcessManager.My.Resources.Resources.flag_red Me.tslblAenderungen.Name = "tslblAenderungen" resources.ApplyResources(Me.tslblAenderungen, "tslblAenderungen") ' 'btnDelete ' - Me.btnDelete.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.cancel + Me.btnDelete.Image = Global.DD_ProcessManager.My.Resources.Resources.cancel resources.ApplyResources(Me.btnDelete, "btnDelete") Me.btnDelete.Name = "btnDelete" Me.btnDelete.UseVisualStyleBackColor = True @@ -199,7 +199,7 @@ Partial Class frmControl_Detail Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'REGEX_MESSAGE_DETextBox ' @@ -302,10 +302,10 @@ Partial Class frmControl_Detail Me.PerformLayout End Sub - Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet + Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet Friend WithEvents TBPM_CONTROL_TABLEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_CONTROL_TABLETableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter - Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPM_CONTROL_TABLETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter + Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents SPALTENNAMETextBox As System.Windows.Forms.TextBox Friend WithEvents SPALTEN_HEADERTextBox As System.Windows.Forms.TextBox Friend WithEvents SPALTENBREITETextBox As System.Windows.Forms.TextBox diff --git a/app/DD_PM_WINDREAM/frmControl_Detail.resx b/app/DD_PM_WINDREAM/frmControl_Detail.resx index ecc882d..6a702b7 100644 --- a/app/DD_PM_WINDREAM/frmControl_Detail.resx +++ b/app/DD_PM_WINDREAM/frmControl_Detail.resx @@ -883,19 +883,19 @@ DD_DMSLiteDataSet - DD_PM_WINDREAM.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_CONTROL_TABLETableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null frmControl_Detail diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb b/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb index b8c7d6d..a585bbc 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb +++ b/app/DD_PM_WINDREAM/frmDesignerLayout.Designer.vb @@ -224,28 +224,28 @@ Partial Class frmDesignerLayout 'ToolboxItemTextbox ' Me.ToolboxItemTextbox.Caption = "Textbox" - Me.ToolboxItemTextbox.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.TextBox + Me.ToolboxItemTextbox.ImageOptions.Image = Global.DD_ProcessManager.My.Resources.Resources.TextBox Me.ToolboxItemTextbox.Name = "ToolboxItemTextbox" Me.ToolboxItemTextbox.Tag = "TextBox" ' 'ToolboxItemMemoedit ' Me.ToolboxItemMemoedit.Caption = "Multiline Textbox" - Me.ToolboxItemMemoedit.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.TextBox + Me.ToolboxItemMemoedit.ImageOptions.Image = Global.DD_ProcessManager.My.Resources.Resources.TextBox Me.ToolboxItemMemoedit.Name = "ToolboxItemMemoedit" Me.ToolboxItemMemoedit.Tag = "Memoedit" ' 'ToolboxItemDatepicker ' Me.ToolboxItemDatepicker.Caption = "Datepicker" - Me.ToolboxItemDatepicker.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.DateOrTimePicker_675 + Me.ToolboxItemDatepicker.ImageOptions.Image = Global.DD_ProcessManager.My.Resources.Resources.DateOrTimePicker_675 Me.ToolboxItemDatepicker.Name = "ToolboxItemDatepicker" Me.ToolboxItemDatepicker.Tag = "Datepicker" ' 'ToolboxItemCheckbox ' Me.ToolboxItemCheckbox.Caption = "Checkbox" - Me.ToolboxItemCheckbox.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.checkbox_16xLG + Me.ToolboxItemCheckbox.ImageOptions.Image = Global.DD_ProcessManager.My.Resources.Resources.checkbox_16xLG Me.ToolboxItemCheckbox.Name = "ToolboxItemCheckbox" Me.ToolboxItemCheckbox.Tag = "Checkbox" ' diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout.vb b/app/DD_PM_WINDREAM/frmDesignerLayout.vb index ec0484d..4d96b41 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout.vb +++ b/app/DD_PM_WINDREAM/frmDesignerLayout.vb @@ -1,6 +1,6 @@ Imports System.IO Imports System.Text.Encoding -Imports DD_PM_WINDREAM.Controls +Imports DD_ProcessManager.Controls Imports DevExpress.XtraBars Imports DevExpress.XtraEditors Imports DevExpress.XtraLayout diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.vb index 6fd169e..eceab52 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.vb +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Editors/frmDatasourceEditor.vb @@ -1,4 +1,4 @@ -Imports DD_PM_WINDREAM.Controls.Editors +Imports DD_ProcessManager.Controls.Editors 'Imports ScintillaNET Public Class frmDatasourceEditor diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/BaseProperties.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/BaseProperties.vb index ad3bd59..7d81f04 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/BaseProperties.vb +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/BaseProperties.vb @@ -1,5 +1,5 @@ Imports System.ComponentModel -Imports DD_PM_WINDREAM.Controls.Localization +Imports DD_ProcessManager.Controls.Localization Namespace Controls.Properties Public MustInherit Class BaseProperties diff --git a/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/ComboboxProperties.vb b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/ComboboxProperties.vb index 266a371..17bf98f 100644 --- a/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/ComboboxProperties.vb +++ b/app/DD_PM_WINDREAM/frmDesignerLayout/Properties/ComboboxProperties.vb @@ -1,6 +1,6 @@ Imports System.ComponentModel -Imports DD_PM_WINDREAM.Controls.Editors -Imports DD_PM_WINDREAM.Controls.Localization +Imports DD_ProcessManager.Controls.Editors +Imports DD_ProcessManager.Controls.Localization Namespace Controls.Properties Public Class ComboboxProperties diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb index 77ff420..8442184 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb @@ -33,7 +33,7 @@ Partial Class frmFormDesigner Me.btndtp = New System.Windows.Forms.Button() Me.btntextbox = New System.Windows.Forms.Button() Me.btnlabel = New System.Windows.Forms.Button() - Me.pnldesigner = New DD_PM_WINDREAM.ClassSnapPanel() + Me.pnldesigner = New DD_ProcessManager.ClassSnapPanel() Me.Label1 = New System.Windows.Forms.Label() Me.lblhintergrund = New System.Windows.Forms.Label() Me.TabControlEigenschaften = New System.Windows.Forms.TabControl() @@ -47,20 +47,20 @@ Partial Class frmFormDesigner Me.btnwidth_minus = New System.Windows.Forms.Button() Me.btnwidth_plus = New System.Windows.Forms.Button() Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.btndelete = New System.Windows.Forms.Button() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.tslblAenderungen = New System.Windows.Forms.ToolStripStatusLabel() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.btnrefresh = New System.Windows.Forms.Button() - Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter() - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.TBDD_CONNECTIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBWH_CHECK_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter() + Me.TBWH_CHECK_PROFILE_CONTROLSTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter() Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_CONTROL_TABLETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter() + Me.TBPM_CONTROL_TABLETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter() Me.GridControlContextMenu = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.MenuItemAddColumn = New System.Windows.Forms.ToolStripMenuItem() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() @@ -131,7 +131,7 @@ Partial Class frmFormDesigner 'btnTabelle ' Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnTabelle.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add + Me.btnTabelle.Image = Global.DD_ProcessManager.My.Resources.Resources.table_add Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnTabelle.Location = New System.Drawing.Point(151, 22) Me.btnTabelle.Name = "btnTabelle" @@ -144,7 +144,7 @@ Partial Class frmFormDesigner 'btnCheckbox ' Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnCheckbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.checkbox_16xLG + Me.btnCheckbox.Image = Global.DD_ProcessManager.My.Resources.Resources.checkbox_16xLG Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnCheckbox.Location = New System.Drawing.Point(151, 90) Me.btnCheckbox.Name = "btnCheckbox" @@ -157,7 +157,7 @@ Partial Class frmFormDesigner 'btnVektor ' Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnVektor.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.ComboBox_16xLG + Me.btnVektor.Image = Global.DD_ProcessManager.My.Resources.Resources.ComboBox_16xLG Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnVektor.Location = New System.Drawing.Point(13, 88) Me.btnVektor.Name = "btnVektor" @@ -170,7 +170,7 @@ Partial Class frmFormDesigner 'btndtp ' Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btndtp.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.DateOrTimePicker_675 + Me.btndtp.Image = Global.DD_ProcessManager.My.Resources.Resources.DateOrTimePicker_675 Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btndtp.Location = New System.Drawing.Point(151, 55) Me.btndtp.Name = "btndtp" @@ -183,7 +183,7 @@ Partial Class frmFormDesigner 'btntextbox ' Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btntextbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.TextBox_708 + Me.btntextbox.Image = Global.DD_ProcessManager.My.Resources.Resources.TextBox_708 Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btntextbox.Location = New System.Drawing.Point(13, 55) Me.btntextbox.Name = "btntextbox" @@ -196,7 +196,7 @@ Partial Class frmFormDesigner 'btnlabel ' Me.btnlabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnlabel.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Label_684 + Me.btnlabel.Image = Global.DD_ProcessManager.My.Resources.Resources.Label_684 Me.btnlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnlabel.Location = New System.Drawing.Point(12, 22) Me.btnlabel.Name = "btnlabel" @@ -297,7 +297,7 @@ Partial Class frmFormDesigner 'btnheight_minus ' Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnheight_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out + Me.btnheight_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnheight_minus.Location = New System.Drawing.Point(94, 69) Me.btnheight_minus.Name = "btnheight_minus" @@ -310,7 +310,7 @@ Partial Class frmFormDesigner 'btnheight_plus ' Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnheight_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in + Me.btnheight_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnheight_plus.Location = New System.Drawing.Point(13, 69) Me.btnheight_plus.Name = "btnheight_plus" @@ -341,7 +341,7 @@ Partial Class frmFormDesigner 'btnwidth_minus ' Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnwidth_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out + Me.btnwidth_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnwidth_minus.Location = New System.Drawing.Point(94, 22) Me.btnwidth_minus.Name = "btnwidth_minus" @@ -354,7 +354,7 @@ Partial Class frmFormDesigner 'btnwidth_plus ' Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnwidth_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in + Me.btnwidth_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnwidth_plus.Location = New System.Drawing.Point(13, 22) Me.btnwidth_plus.Name = "btnwidth_plus" @@ -382,7 +382,7 @@ Partial Class frmFormDesigner 'btndelete ' Me.btndelete.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.btndelete.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.delete_12x12 + Me.btndelete.Image = Global.DD_ProcessManager.My.Resources.Resources.delete_12x12 Me.btndelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btndelete.Location = New System.Drawing.Point(7, 624) Me.btndelete.Name = "btndelete" @@ -403,7 +403,7 @@ Partial Class frmFormDesigner ' 'tslblAenderungen ' - Me.tslblAenderungen.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_save + Me.tslblAenderungen.Image = Global.DD_ProcessManager.My.Resources.Resources.database_save Me.tslblAenderungen.Name = "tslblAenderungen" Me.tslblAenderungen.Size = New System.Drawing.Size(152, 17) Me.tslblAenderungen.Text = "Noch keine Änderungen" @@ -411,7 +411,7 @@ Partial Class frmFormDesigner 'btnrefresh ' Me.btnrefresh.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.arrow_refresh + Me.btnrefresh.Image = Global.DD_ProcessManager.My.Resources.Resources.arrow_refresh Me.btnrefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnrefresh.Location = New System.Drawing.Point(260, 624) Me.btnrefresh.Name = "btnrefresh" @@ -440,7 +440,7 @@ Partial Class frmFormDesigner Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_CONNECTIONTableAdapter ' @@ -532,14 +532,14 @@ Partial Class frmFormDesigner Me.PerformLayout() End Sub - Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet + Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter - Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter + Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents btnlabel As System.Windows.Forms.Button Friend WithEvents btntextbox As System.Windows.Forms.Button - Friend WithEvents pnldesigner As DD_PM_WINDREAM.ClassSnapPanel + Friend WithEvents pnldesigner As DD_ProcessManager.ClassSnapPanel Friend WithEvents btndtp As System.Windows.Forms.Button Friend WithEvents lblhintergrund As System.Windows.Forms.Label Friend WithEvents btndelete As System.Windows.Forms.Button @@ -556,14 +556,14 @@ Partial Class frmFormDesigner Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents btnVektor As System.Windows.Forms.Button Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter + Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter Friend WithEvents btnCheckbox As System.Windows.Forms.Button Friend WithEvents TBWH_CHECK_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBWH_CHECK_PROFILE_CONTROLSTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter + Friend WithEvents TBWH_CHECK_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip Friend WithEvents btnTabelle As System.Windows.Forms.Button Friend WithEvents TBPM_CONTROL_TABLEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_CONTROL_TABLETableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter + Friend WithEvents TBPM_CONTROL_TABLETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter Friend WithEvents btnrefresh As System.Windows.Forms.Button Friend WithEvents pageProperties As TabPage Friend WithEvents pgControls As PropertyGrid diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 6e65d8a..1cfb383 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -517,7 +517,7 @@ Public Class frmFormDesigner oControl.BackColor = Color.Transparent Case "System.Windows.Forms.CheckBox" oControl.BackColor = Color.Transparent - Case "DD_PM_WINDREAM.ClassControlCreator+LineLabel" + Case "DD_ProcessManager.ClassControlCreator+LineLabel" oControl.BackColor = oControl.ForeColor Case "DigitalData.Controls.LookupGrid.LookupControl2" oControl.BackColor = Color.White diff --git a/app/DD_PM_WINDREAM/frmKonfig.Designer.vb b/app/DD_PM_WINDREAM/frmKonfig.Designer.vb index 4593b96..ccde63f 100644 --- a/app/DD_PM_WINDREAM/frmKonfig.Designer.vb +++ b/app/DD_PM_WINDREAM/frmKonfig.Designer.vb @@ -58,10 +58,10 @@ Partial Class frmKonfig Me.LogNachrichtenLeerenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SpeichereLogAlsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.gvLogs = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() Me.TabControl1.SuspendLayout() Me.TabPage2.SuspendLayout() @@ -173,7 +173,7 @@ Partial Class frmKonfig ' 'BtnConnect ' - Me.BtnConnect.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_save + Me.BtnConnect.Image = Global.DD_ProcessManager.My.Resources.Resources.database_save resources.ApplyResources(Me.BtnConnect, "BtnConnect") Me.BtnConnect.Name = "BtnConnect" Me.BtnConnect.UseVisualStyleBackColor = True @@ -220,10 +220,10 @@ Partial Class frmKonfig ' 'txtIntervall ' - Me.txtIntervall.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_PM_WINDREAM.My.MySettings.Default, "IntervallReminder", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtIntervall.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_ProcessManager.My.MySettings.Default, "IntervallReminder", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) resources.ApplyResources(Me.txtIntervall, "txtIntervall") Me.txtIntervall.Name = "txtIntervall" - Me.txtIntervall.Text = Global.DD_PM_WINDREAM.My.MySettings.Default.IntervallReminder + Me.txtIntervall.Text = Global.DD_ProcessManager.My.MySettings.Default.IntervallReminder ' 'Label6 ' @@ -262,7 +262,7 @@ Partial Class frmKonfig ' 'btnLogMail ' - Me.btnLogMail.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.email_go + Me.btnLogMail.Image = Global.DD_ProcessManager.My.Resources.Resources.email_go resources.ApplyResources(Me.btnLogMail, "btnLogMail") Me.btnLogMail.Name = "btnLogMail" Me.btnLogMail.UseVisualStyleBackColor = True @@ -337,7 +337,7 @@ Partial Class frmKonfig Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'frmKonfig ' @@ -377,10 +377,10 @@ Partial Class frmKonfig Friend WithEvents chkbxUserAut As System.Windows.Forms.CheckBox Friend WithEvents TabPage3 As System.Windows.Forms.TabPage Friend WithEvents btnLogMail As System.Windows.Forms.Button - Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet + Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter - Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter + Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel Friend WithEvents Button3 As System.Windows.Forms.Button diff --git a/app/DD_PM_WINDREAM/frmKonfig.resx b/app/DD_PM_WINDREAM/frmKonfig.resx index cd9da18..8e53047 100644 --- a/app/DD_PM_WINDREAM/frmKonfig.resx +++ b/app/DD_PM_WINDREAM/frmKonfig.resx @@ -964,7 +964,7 @@ DD_DMSLiteDataSet - DD_PM_WINDREAM.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_KONFIGURATIONBindingSource @@ -976,13 +976,13 @@ TBPM_KONFIGURATIONTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null SaveFileDialog1 diff --git a/app/DD_PM_WINDREAM/frmLicense.Designer.vb b/app/DD_PM_WINDREAM/frmLicense.Designer.vb index 38a3394..73b8b8e 100644 --- a/app/DD_PM_WINDREAM/frmLicense.Designer.vb +++ b/app/DD_PM_WINDREAM/frmLicense.Designer.vb @@ -39,10 +39,10 @@ Partial Class frmLicense Me.txtNewlizences = New System.Windows.Forms.TextBox() Me.lblnewlicenses = New System.Windows.Forms.Label() Me.lblAktuelleLizenzen = New System.Windows.Forms.Label() - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.grbBoxlicense.SuspendLayout() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -121,7 +121,7 @@ Partial Class frmLicense ' 'btnnewLicenses ' - Me.btnnewLicenses.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.key_go + Me.btnnewLicenses.Image = Global.DD_ProcessManager.My.Resources.Resources.key_go resources.ApplyResources(Me.btnnewLicenses, "btnnewLicenses") Me.btnnewLicenses.Name = "btnnewLicenses" Me.btnnewLicenses.UseVisualStyleBackColor = True @@ -169,7 +169,7 @@ Partial Class frmLicense Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'frmLicense ' @@ -199,10 +199,10 @@ Partial Class frmLicense Friend WithEvents txtNewlizences As System.Windows.Forms.TextBox Friend WithEvents lblnewlicenses As System.Windows.Forms.Label Friend WithEvents lblAktuelleLizenzen As System.Windows.Forms.Label - Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet + Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter - Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter + Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents dtp_Gültigkeit As System.Windows.Forms.DateTimePicker Friend WithEvents Label3 As System.Windows.Forms.Label diff --git a/app/DD_PM_WINDREAM/frmLicense.resx b/app/DD_PM_WINDREAM/frmLicense.resx index 918b13d..3eddb7a 100644 --- a/app/DD_PM_WINDREAM/frmLicense.resx +++ b/app/DD_PM_WINDREAM/frmLicense.resx @@ -571,7 +571,7 @@ DD_DMSLiteDataSet - DD_PM_WINDREAM.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_KONFIGURATIONBindingSource @@ -583,13 +583,13 @@ TBPM_KONFIGURATIONTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null frmLicense diff --git a/app/DD_PM_WINDREAM/frmLoginAdmin.Designer.vb b/app/DD_PM_WINDREAM/frmLoginAdmin.Designer.vb index 2eeed51..a9d6674 100644 --- a/app/DD_PM_WINDREAM/frmLoginAdmin.Designer.vb +++ b/app/DD_PM_WINDREAM/frmLoginAdmin.Designer.vb @@ -28,10 +28,10 @@ Partial Class frmLoginAdmin Me.Label1 = New System.Windows.Forms.Label() Me.btnAbbruch = New System.Windows.Forms.Button() Me.btnok = New System.Windows.Forms.Button() - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.Button1 = New System.Windows.Forms.Button() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -88,11 +88,11 @@ Partial Class frmLoginAdmin Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'Button1 ' - Me.Button1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.asterisk_yellow + Me.Button1.Image = Global.DD_ProcessManager.My.Resources.Resources.asterisk_yellow resources.ApplyResources(Me.Button1, "Button1") Me.Button1.Name = "Button1" Me.Button1.UseVisualStyleBackColor = True @@ -120,9 +120,9 @@ Partial Class frmLoginAdmin Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents btnAbbruch As System.Windows.Forms.Button Friend WithEvents btnok As System.Windows.Forms.Button - Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet + Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter - Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter + Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents Button1 As System.Windows.Forms.Button End Class diff --git a/app/DD_PM_WINDREAM/frmLoginAdmin.resx b/app/DD_PM_WINDREAM/frmLoginAdmin.resx index 87e776f..b453258 100644 --- a/app/DD_PM_WINDREAM/frmLoginAdmin.resx +++ b/app/DD_PM_WINDREAM/frmLoginAdmin.resx @@ -280,7 +280,7 @@ DD_DMSLiteDataSet - DD_PM_WINDREAM.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_KONFIGURATIONBindingSource @@ -292,13 +292,13 @@ TBPM_KONFIGURATIONTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null frmLoginAdmin diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index dea0d8c..7891f01 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -36,10 +36,10 @@ Partial Class frmMain Me.ChartBottomRight = New DevExpress.XtraCharts.ChartControl() Me.ToolStripBottomRight = New System.Windows.Forms.ToolStrip() Me.ImageListProfile = New System.Windows.Forms.ImageList(Me.components) - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.TBPM_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.Panel1 = New System.Windows.Forms.Panel() Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl() Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -78,11 +78,11 @@ Partial Class frmMain Me.AnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components) Me.TBPM_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter() + Me.TBPM_USERTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter() Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() + Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() + Me.TBPM_PROFILE_FILESTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() Me.TimerReminder = New System.Windows.Forms.Timer(Me.components) Me.Timer5Mins = New System.Windows.Forms.Timer(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) @@ -281,7 +281,7 @@ Partial Class frmMain Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'Panel1 ' @@ -309,13 +309,13 @@ Partial Class frmMain ' 'CMGroupStart ' - Me.CMGroupStart.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go + Me.CMGroupStart.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go Me.CMGroupStart.Name = "CMGroupStart" resources.ApplyResources(Me.CMGroupStart, "CMGroupStart") ' 'CMFileStart ' - Me.CMFileStart.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.shape_square_go + Me.CMFileStart.Image = Global.DD_ProcessManager.My.Resources.Resources.shape_square_go Me.CMFileStart.Name = "CMFileStart" resources.ApplyResources(Me.CMFileStart, "CMFileStart") ' @@ -351,7 +351,7 @@ Partial Class frmMain ' 'LayoutSpeichernToolStripMenuItem ' - Me.LayoutSpeichernToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.save + Me.LayoutSpeichernToolStripMenuItem.Image = Global.DD_ProcessManager.My.Resources.Resources.save Me.LayoutSpeichernToolStripMenuItem.Name = "LayoutSpeichernToolStripMenuItem" resources.ApplyResources(Me.LayoutSpeichernToolStripMenuItem, "LayoutSpeichernToolStripMenuItem") ' @@ -471,7 +471,7 @@ Partial Class frmMain ' 'tsmiValidationProfil ' - Me.tsmiValidationProfil.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go1 + Me.tsmiValidationProfil.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go1 Me.tsmiValidationProfil.Name = "tsmiValidationProfil" resources.ApplyResources(Me.tsmiValidationProfil, "tsmiValidationProfil") ' @@ -642,7 +642,7 @@ Partial Class frmMain ' resources.ApplyResources(Me.bsiLicenses, "bsiLicenses") Me.bsiLicenses.Id = 9 - Me.bsiLicenses.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.key + Me.bsiLicenses.ImageOptions.Image = Global.DD_ProcessManager.My.Resources.Resources.key Me.bsiLicenses.Name = "bsiLicenses" Me.bsiLicenses.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph ' @@ -650,7 +650,7 @@ Partial Class frmMain ' resources.ApplyResources(Me.bsiUserLoggedIn, "bsiUserLoggedIn") Me.bsiUserLoggedIn.Id = 10 - Me.bsiUserLoggedIn.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.group_key + Me.bsiUserLoggedIn.ImageOptions.Image = Global.DD_ProcessManager.My.Resources.Resources.group_key Me.bsiUserLoggedIn.Name = "bsiUserLoggedIn" Me.bsiUserLoggedIn.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph ' @@ -807,19 +807,19 @@ Partial Class frmMain Me.PerformLayout() End Sub - Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet + Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet Friend WithEvents TBPM_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_PROFILETableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter - Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBPM_PROFILETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter + Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents ImageListProfile As System.Windows.Forms.ImageList Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon Friend WithEvents TimerRefresh As System.Windows.Forms.Timer Friend WithEvents TBPM_USERBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter + Friend WithEvents TBPM_USERTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter + Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter + Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter Friend WithEvents TimerReminder As System.Windows.Forms.Timer Friend WithEvents ContextMenuGrid As ContextMenuStrip Friend WithEvents CMGroupStart As ToolStripMenuItem diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index b4a0424..9a44313 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -1860,7 +1860,7 @@ DD_DMSLiteDataSet - DD_PM_WINDREAM.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_PROFILEBindingSource @@ -1872,13 +1872,13 @@ TBPM_PROFILETableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null CMGroupStart @@ -2070,7 +2070,7 @@ TBPM_USERTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_KONFIGURATIONBindingSource @@ -2082,7 +2082,7 @@ TBPM_KONFIGURATIONTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_PROFILE_FILESBindingSource @@ -2094,7 +2094,7 @@ TBPM_PROFILE_FILESTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TimerReminder diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index e4432eb..2bd90a1 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -929,6 +929,10 @@ Public Class frmMain End Sub Private Sub TimerReminder_Tick(sender As Object, e As EventArgs) Handles TimerReminder.Tick + If Application.OpenForms().OfType(Of frmValidator).Any Then + Exit Sub + End If + If CURRENT_DT_VW_PROFILE_USER.Rows.Count > 0 Then NotifyIcon1.ShowBalloonTip(30000, "Erinnerung", "Es bedinden sich noch unerledigte Aufgaben in Ihrem Verantwortungsbereich.", ToolTipIcon.Info) End If diff --git a/app/DD_PM_WINDREAM/frmMassValidator.Designer.vb b/app/DD_PM_WINDREAM/frmMassValidator.Designer.vb index 07d5b88..88410d1 100644 --- a/app/DD_PM_WINDREAM/frmMassValidator.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMassValidator.Designer.vb @@ -30,8 +30,8 @@ Partial Class frmMassValidator Me.pnldesigner = New System.Windows.Forms.Panel() Me.btnSave = New System.Windows.Forms.Button() Me.DESCRIPTIONLabel = New System.Windows.Forms.Label() - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.StatusStrip1.SuspendLayout() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -92,7 +92,7 @@ Partial Class frmMassValidator Me.btnSave.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnSave.Font = New System.Drawing.Font("Tahoma", 9.75!) - Me.btnSave.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_pink + Me.btnSave.Image = Global.DD_ProcessManager.My.Resources.Resources.flag_pink Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnSave.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.btnSave.Location = New System.Drawing.Point(12, 464) @@ -132,7 +132,7 @@ Partial Class frmMassValidator Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'frmMassValidator ' diff --git a/app/DD_PM_WINDREAM/frmSQL_Admin.Designer.vb b/app/DD_PM_WINDREAM/frmSQL_Admin.Designer.vb index a540ca4..58922c4 100644 --- a/app/DD_PM_WINDREAM/frmSQL_Admin.Designer.vb +++ b/app/DD_PM_WINDREAM/frmSQL_Admin.Designer.vb @@ -77,14 +77,14 @@ Partial Class frmSQL_Admin 'Button1 ' resources.ApplyResources(Me.Button1, "Button1") - Me.Button1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.book_open + Me.Button1.Image = Global.DD_ProcessManager.My.Resources.Resources.book_open Me.Button1.Name = "Button1" Me.Button1.UseVisualStyleBackColor = True ' 'btnrunSQL ' resources.ApplyResources(Me.btnrunSQL, "btnrunSQL") - Me.btnrunSQL.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go + Me.btnrunSQL.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go Me.btnrunSQL.Name = "btnrunSQL" Me.btnrunSQL.UseVisualStyleBackColor = True ' diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb index 217d21a..9cee8fc 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb @@ -26,9 +26,9 @@ Partial Class frmSQL_DESIGNER 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQL_DESIGNER)) - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.TBDD_CONNECTIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.btnShowConnections = New System.Windows.Forms.Button() Me.Label14 = New System.Windows.Forms.Label() @@ -82,7 +82,7 @@ Partial Class frmSQL_DESIGNER Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_CONNECTIONTableAdapter ' @@ -96,7 +96,7 @@ Partial Class frmSQL_DESIGNER 'btnShowConnections ' Me.btnShowConnections.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnShowConnections.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go1 + Me.btnShowConnections.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go1 Me.btnShowConnections.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnShowConnections.Location = New System.Drawing.Point(220, 31) Me.btnShowConnections.Name = "btnShowConnections" @@ -413,9 +413,9 @@ Partial Class frmSQL_DESIGNER Me.PerformLayout() End Sub - Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet - Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager - Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter + Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet + Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents btnShowConnections As System.Windows.Forms.Button Friend WithEvents Label14 As System.Windows.Forms.Label diff --git a/app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.designer.vb b/app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.designer.vb index a29d0f6..0ba2557 100644 --- a/app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.designer.vb +++ b/app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.designer.vb @@ -221,7 +221,7 @@ Partial Class frmUserKonfig_AddUsers 'btnAddUsers ' resources.ApplyResources(Me.btnAddUsers, "btnAddUsers") - Me.btnAddUsers.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.add + Me.btnAddUsers.Image = Global.DD_ProcessManager.My.Resources.Resources.add Me.btnAddUsers.Name = "btnAddUsers" Me.btnAddUsers.UseVisualStyleBackColor = True ' diff --git a/app/DD_PM_WINDREAM/frmValidator.Designer.vb b/app/DD_PM_WINDREAM/frmValidator.Designer.vb index 5de13ca..dcb73b3 100644 --- a/app/DD_PM_WINDREAM/frmValidator.Designer.vb +++ b/app/DD_PM_WINDREAM/frmValidator.Designer.vb @@ -34,12 +34,12 @@ Partial Class frmValidator Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components) - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() - Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() - Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() - Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() - Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.TBDD_CONNECTIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() + Me.TBPM_PROFILE_FILESTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() + Me.TBPM_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -75,9 +75,9 @@ Partial Class frmValidator Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.PdfBarController1 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components) Me.PdfBarController2 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components) - Me.FinalIndexDataSet = New DD_PM_WINDREAM.FinalIndexDataSet() + Me.FinalIndexDataSet = New DD_ProcessManager.FinalIndexDataSet() Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() + Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_ProcessManager.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.bsiError = New DevExpress.XtraBars.BarStaticItem() @@ -153,7 +153,7 @@ Partial Class frmValidator 'btnSave ' resources.ApplyResources(Me.btnSave, "btnSave") - Me.btnSave.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_pink + Me.btnSave.Image = Global.DD_ProcessManager.My.Resources.Resources.flag_pink Me.btnSave.Name = "btnSave" Me.btnSave.TabStop = False Me.btnSave.UseVisualStyleBackColor = True @@ -209,7 +209,7 @@ Partial Class frmValidator Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILETableAdapter = Me.TBPM_PROFILETableAdapter Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_CONNECTIONTableAdapter ' @@ -725,15 +725,15 @@ Partial Class frmValidator Friend WithEvents btnSave As System.Windows.Forms.Button Friend WithEvents DESCRIPTIONLabel As System.Windows.Forms.Label Friend WithEvents pnldesigner As System.Windows.Forms.Panel - Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet - Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager - Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter + Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet + Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager + Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter + Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_PROFILETableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter + Friend WithEvents TBPM_PROFILETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter Friend WithEvents TBPM_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter + Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents PdfBarController1 As DevExpress.XtraPdfViewer.Bars.PdfBarController Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager diff --git a/app/DD_PM_WINDREAM/frmValidator.resx b/app/DD_PM_WINDREAM/frmValidator.resx index 0c4e42e..f0ab9c9 100644 --- a/app/DD_PM_WINDREAM/frmValidator.resx +++ b/app/DD_PM_WINDREAM/frmValidator.resx @@ -1191,37 +1191,37 @@ DD_DMSLiteDataSet - DD_PM_WINDREAM.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_CONNECTIONTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_KONFIGURATIONTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_PROFILE_FILESTableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_PROFILETableAdapter - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_CONNECTIONBindingSource @@ -1413,7 +1413,7 @@ FinalIndexDataSet - DD_PM_WINDREAM.FinalIndexDataSet, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.FinalIndexDataSet, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPM_PROFILE_FINAL_INDEXINGBindingSource @@ -1425,7 +1425,7 @@ TBPM_PROFILE_FINAL_INDEXINGTableAdapter - DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_ProcessManager.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null ToolTip1 diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 80d19e2..81cad66 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -74,13 +74,13 @@ Public Class frmValidator 'Function set_foreground() ' Try ' Dim hwnd As IntPtr - ' Dim prc() As Process = Process.GetProcessesByName("DD_PM_WINDREAM") + ' Dim prc() As Process = Process.GetProcessesByName("DD_ProcessManager") ' If Not prc Is Nothing AndAlso Not prc.Length = 0 Then ' hwnd = prc(0).MainWindowHandle ' SetForegroundWindow(hwnd) ' Else - ' prc = Process.GetProcessesByName("DD_PM_WINDREAM.vshost") + ' prc = Process.GetProcessesByName("DD_ProcessManager.vshost") ' If Not prc Is Nothing AndAlso Not prc.Length = 0 Then ' hwnd = prc(0).MainWindowHandle ' SetForegroundWindow(hwnd) diff --git a/app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb b/app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb index 541fe2c..b1fea2d 100644 --- a/app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb +++ b/app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb @@ -310,31 +310,31 @@ Partial Class frmValidatorSearch ' Me.ToolStripDropDownButtonFile.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.ToolStripDropDownButtonFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem1, Me.EigenschaftenToolStripMenuItem}) - Me.ToolStripDropDownButtonFile.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.ID_FILE_PAGE_SETUP + Me.ToolStripDropDownButtonFile.Image = Global.DD_ProcessManager.My.Resources.Resources.ID_FILE_PAGE_SETUP resources.ApplyResources(Me.ToolStripDropDownButtonFile, "ToolStripDropDownButtonFile") Me.ToolStripDropDownButtonFile.Name = "ToolStripDropDownButtonFile" ' 'DateiÖffnenToolStripMenuItem1 ' - Me.DateiÖffnenToolStripMenuItem1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.OpenFileDialog_692 + Me.DateiÖffnenToolStripMenuItem1.Image = Global.DD_ProcessManager.My.Resources.Resources.OpenFileDialog_692 Me.DateiÖffnenToolStripMenuItem1.Name = "DateiÖffnenToolStripMenuItem1" resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem1, "DateiÖffnenToolStripMenuItem1") ' 'EigenschaftenToolStripMenuItem ' - Me.EigenschaftenToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Properties + Me.EigenschaftenToolStripMenuItem.Image = Global.DD_ProcessManager.My.Resources.Resources.Properties Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem" resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem") ' 'ToolStripButtonRefreshSearches ' - Me.ToolStripButtonRefreshSearches.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG + Me.ToolStripButtonRefreshSearches.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.ToolStripButtonRefreshSearches, "ToolStripButtonRefreshSearches") Me.ToolStripButtonRefreshSearches.Name = "ToolStripButtonRefreshSearches" ' 'SplitContainerSearches ' - Me.SplitContainerSearches.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.DD_PM_WINDREAM.My.MySettings.Default, "frmValSearchSplitterDistance", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SplitContainerSearches.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.DD_ProcessManager.My.MySettings.Default, "frmValSearchSplitterDistance", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) resources.ApplyResources(Me.SplitContainerSearches, "SplitContainerSearches") Me.SplitContainerSearches.Name = "SplitContainerSearches" ' @@ -347,7 +347,7 @@ Partial Class frmValidatorSearch ' Me.SplitContainerSearches.Panel2.Controls.Add(Me.SplitContainerControlDoc) Me.SplitContainerSearches.Panel2.Controls.Add(Me.ToolStrip2) - Me.SplitContainerSearches.SplitterDistance = Global.DD_PM_WINDREAM.My.MySettings.Default.frmValSearchSplitterDistance + Me.SplitContainerSearches.SplitterDistance = Global.DD_ProcessManager.My.MySettings.Default.frmValSearchSplitterDistance ' 'XtraTabControlSQL ' @@ -567,7 +567,7 @@ Partial Class frmValidatorSearch ' 'ToolStripMenuItem1 ' - Me.ToolStripMenuItem1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG + Me.ToolStripMenuItem1.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" resources.ApplyResources(Me.ToolStripMenuItem1, "ToolStripMenuItem1") ' @@ -589,7 +589,7 @@ Partial Class frmValidatorSearch ' 'ToolStripMenuItem4 ' - Me.ToolStripMenuItem4.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG + Me.ToolStripMenuItem4.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" resources.ApplyResources(Me.ToolStripMenuItem4, "ToolStripMenuItem4") ' From 435352767e9b245b6d47662e34e0885c0c60ab6c Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 3 Feb 2020 12:28:27 +0100 Subject: [PATCH 19/26] gitignore --- .gitignore | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/.gitignore b/.gitignore index c7c5c91..a6bd4e7 100644 --- a/.gitignore +++ b/.gitignore @@ -155,3 +155,7 @@ $RECYCLE.BIN/ # Mac desktop service store files .DS_Store /app/.vs/DD_PM_WINDREAM/v15/Server/sqlite3 +/app/.vs/DD_PM_WINDREAM/v16/Server/sqlite3/storage.ide-wal +/app/.vs/DD_PM_WINDREAM/v16/Server/sqlite3/storage.ide-shm +/app/.vs/DD_PM_WINDREAM/v16/Server/sqlite3/storage.ide +/app/.vs/DD_PM_WINDREAM/v16/Server/sqlite3/db.lock From eea8241375614373beaf7bd5017d438b0e5f3283 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 3 Feb 2020 15:01:36 +0100 Subject: [PATCH 20/26] add new compatible setup project for wix 3.14 and vs 2019 --- app/DD_PM_WINDREAM.sln | 19 ++- app/Setup/Setup.wixproj | 10 +- app/SetupVS19/Config.wxi | 9 ++ app/SetupVS19/Product.wxs | 233 ++++++++++++++++++++++++++++++++ app/SetupVS19/SetupVS19.wixproj | 61 +++++++++ 5 files changed, 325 insertions(+), 7 deletions(-) create mode 100644 app/SetupVS19/Config.wxi create mode 100644 app/SetupVS19/Product.wxs create mode 100644 app/SetupVS19/SetupVS19.wixproj diff --git a/app/DD_PM_WINDREAM.sln b/app/DD_PM_WINDREAM.sln index cfdcc0f..ca2f6da 100644 --- a/app/DD_PM_WINDREAM.sln +++ b/app/DD_PM_WINDREAM.sln @@ -1,12 +1,14 @@  Microsoft Visual Studio Solution File, Format Version 12.00 -# Visual Studio 15 -VisualStudioVersion = 15.0.26228.9 +# Visual Studio Version 16 +VisualStudioVersion = 16.0.29728.190 MinimumVisualStudioVersion = 10.0.40219.1 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD_PM_WINDREAM", "DD_PM_WINDREAM\DD_PM_WINDREAM.vbproj", "{6ACA1432-09A2-47EF-A704-C0AA73905756}" EndProject Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "Setup", "Setup\Setup.wixproj", "{E714688A-5E3D-4229-9645-9FB650139B47}" EndProject +Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupVS19", "SetupVS19\SetupVS19.wixproj", "{11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution CD_ROM|x86 = CD_ROM|x86 @@ -36,8 +38,21 @@ Global {E714688A-5E3D-4229-9645-9FB650139B47}.Release|x86.Build.0 = Release|x86 {E714688A-5E3D-4229-9645-9FB650139B47}.SingleImage|x86.ActiveCfg = Release|x86 {E714688A-5E3D-4229-9645-9FB650139B47}.SingleImage|x86.Build.0 = Release|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.CD_ROM|x86.ActiveCfg = Release|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.CD_ROM|x86.Build.0 = Release|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Debug|x86.ActiveCfg = Debug|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Debug|x86.Build.0 = Debug|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.DVD-5|x86.ActiveCfg = Debug|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.DVD-5|x86.Build.0 = Debug|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Release|x86.ActiveCfg = Release|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.Release|x86.Build.0 = Release|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.SingleImage|x86.ActiveCfg = Release|x86 + {11F40F86-5DF6-4279-BDF3-17AD8B93AE7C}.SingleImage|x86.Build.0 = Release|x86 EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {D2AB72E6-23F2-4C08-95A0-55C39BACF5D7} + EndGlobalSection EndGlobal diff --git a/app/Setup/Setup.wixproj b/app/Setup/Setup.wixproj index c9a79fc..19cba6e 100644 --- a/app/Setup/Setup.wixproj +++ b/app/Setup/Setup.wixproj @@ -30,19 +30,19 @@ + + + - $(WixExtDir)\WixUtilExtension.dll + C:\Program Files (x86)\WiX Toolset v3.14\bin\WixUtilExtension.dll WixUtilExtension - $(WixExtDir)\WixUIExtension.dll + C:\Program Files (x86)\WiX Toolset v3.14\bin\WixUIExtension.dll WixUIExtension - - - diff --git a/app/SetupVS19/Config.wxi b/app/SetupVS19/Config.wxi new file mode 100644 index 0000000..2f5c59e --- /dev/null +++ b/app/SetupVS19/Config.wxi @@ -0,0 +1,9 @@ + + + + + + + + + \ No newline at end of file diff --git a/app/SetupVS19/Product.wxs b/app/SetupVS19/Product.wxs new file mode 100644 index 0000000..8e2e83c --- /dev/null +++ b/app/SetupVS19/Product.wxs @@ -0,0 +1,233 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DISABLE_DESKTOP_ICON + + + + + DISABLE_STARTMENU_ICON + + + + + + + + + + + + 1 + 1 + 1 + 1 + 1 + + + \ No newline at end of file diff --git a/app/SetupVS19/SetupVS19.wixproj b/app/SetupVS19/SetupVS19.wixproj new file mode 100644 index 0000000..2d85d00 --- /dev/null +++ b/app/SetupVS19/SetupVS19.wixproj @@ -0,0 +1,61 @@ + + + + Debug + x86 + 3.10 + 11f40f86-5df6-4279-bdf3-17ad8b93ae7c + 2.0 + SetupVS19 + Package + + + bin\$(Configuration)\ + obj\$(Configuration)\ + Debug + -b "$(SolutionDir)DD_PM_WINDREAM\bin\$(Configuration)" + + + bin\$(Configuration)\ + obj\$(Configuration)\ + + + + + + + + + + C:\Program Files (x86)\WiX Toolset v3.14\bin\WixUtilExtension.dll + WixUtilExtension + + + C:\Program Files (x86)\WiX Toolset v3.14\bin\WixUIExtension.dll + WixUIExtension + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file From f150f3d8979c4c109d4c8b8bce370daa6cd796f5 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Fri, 7 Feb 2020 14:34:18 +0100 Subject: [PATCH 21/26] MS PM mit WM --- app/DD_PM_WINDREAM/ClassInit.vb | 6 +- app/DD_PM_WINDREAM/frmAdmin2.Designer.vb | 73 ++++++------- app/DD_PM_WINDREAM/frmAdmin2.resx | 124 +++++++++++---------- app/DD_PM_WINDREAM/frmValidator.vb | 131 +++++++++++++++-------- 4 files changed, 191 insertions(+), 143 deletions(-) diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb index 0857551..4a35f7f 100644 --- a/app/DD_PM_WINDREAM/ClassInit.vb +++ b/app/DD_PM_WINDREAM/ClassInit.vb @@ -130,7 +130,8 @@ Public Class ClassInit Try USER_USERNAME = Environment.UserName Try - DT_CLIENT_USER = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", USER_USERNAME), False) + Dim oSQL = $"SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{USER_USERNAME}')" + DT_CLIENT_USER = ClassDatabase.Return_Datatable(oSQL, False) If DT_CLIENT_USER.Rows.Count > 1 Then frmClientLogin.ShowDialog() ElseIf DT_CLIENT_USER.Rows.Count = 1 Then @@ -138,8 +139,9 @@ Public Class ClassInit Else ERROR_STATE = "NO CLIENT" Dim oDT As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("No Client relation") + 'Related to a client ' Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!") - MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), MsgBoxStyle.Exclamation) + MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2") & vbNewLine & vbNewLine & oSQL, MsgBoxStyle.Exclamation) Exit Sub End If Catch ex As Exception diff --git a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb index 3296afd..0f51981 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb @@ -92,7 +92,6 @@ Partial Class frmAdmin2 Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() Me.LANGUAGEComboBoxEdit = New DevExpress.XtraEditors.ComboBoxEdit() Me.CAPT_TYPETextEdit = New DevExpress.XtraEditors.TextEdit() - Me.STRING1TextEdit = New DevExpress.XtraEditors.TextEdit() Me.STRING2TextEdit = New DevExpress.XtraEditors.TextEdit() Me.STRING3TextEdit = New DevExpress.XtraEditors.TextEdit() Me.STRING4TextEdit = New DevExpress.XtraEditors.TextEdit() @@ -143,6 +142,7 @@ Partial Class frmAdmin2 Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter() Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components) + Me.STRING1TextEdit = New DevExpress.XtraEditors.MemoEdit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() @@ -186,7 +186,6 @@ Partial Class frmAdmin2 CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LANGUAGEComboBoxEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() @@ -221,6 +220,7 @@ Partial Class frmAdmin2 Me.BindingNavigator2.SuspendLayout() CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 @@ -600,7 +600,7 @@ Partial Class frmAdmin2 Me.Root.GroupBordersVisible = False Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1}) Me.Root.Name = "Root" - Me.Root.Size = New System.Drawing.Size(698, 476) + Me.Root.Size = New System.Drawing.Size(698, 491) Me.Root.TextVisible = False ' 'LayoutControlGroup1 @@ -610,7 +610,7 @@ Partial Class frmAdmin2 Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.ItemForGUID, Me.ItemForTITLE, Me.ItemForEMAIL_SUBJECT, Me.ItemForEMAIL_BODY1, Me.ItemForEMAIL_BODY2, Me.ItemForEMAIL_BODY3, Me.ItemForADDED_WHO, Me.ItemForCHANGED_WHO, Me.ItemForADDED_WHEN, Me.ItemForCHANGED_WHEN}) Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0) Me.LayoutControlGroup1.Name = "autoGeneratedGroup0" - Me.LayoutControlGroup1.Size = New System.Drawing.Size(678, 456) + Me.LayoutControlGroup1.Size = New System.Drawing.Size(678, 471) ' 'ItemForGUID ' @@ -644,23 +644,23 @@ Partial Class frmAdmin2 Me.ItemForEMAIL_BODY1.Control = Me.EMAIL_BODY1TextEdit Me.ItemForEMAIL_BODY1.Location = New System.Drawing.Point(0, 72) Me.ItemForEMAIL_BODY1.Name = "ItemForEMAIL_BODY1" - Me.ItemForEMAIL_BODY1.Size = New System.Drawing.Size(678, 137) + Me.ItemForEMAIL_BODY1.Size = New System.Drawing.Size(678, 142) resources.ApplyResources(Me.ItemForEMAIL_BODY1, "ItemForEMAIL_BODY1") Me.ItemForEMAIL_BODY1.TextSize = New System.Drawing.Size(74, 13) ' 'ItemForEMAIL_BODY2 ' Me.ItemForEMAIL_BODY2.Control = Me.EMAIL_BODY2TextEdit - Me.ItemForEMAIL_BODY2.Location = New System.Drawing.Point(0, 209) + Me.ItemForEMAIL_BODY2.Location = New System.Drawing.Point(0, 214) Me.ItemForEMAIL_BODY2.Name = "ItemForEMAIL_BODY2" - Me.ItemForEMAIL_BODY2.Size = New System.Drawing.Size(678, 175) + Me.ItemForEMAIL_BODY2.Size = New System.Drawing.Size(678, 185) resources.ApplyResources(Me.ItemForEMAIL_BODY2, "ItemForEMAIL_BODY2") Me.ItemForEMAIL_BODY2.TextSize = New System.Drawing.Size(74, 13) ' 'ItemForEMAIL_BODY3 ' Me.ItemForEMAIL_BODY3.Control = Me.EMAIL_BODY3TextEdit - Me.ItemForEMAIL_BODY3.Location = New System.Drawing.Point(0, 384) + Me.ItemForEMAIL_BODY3.Location = New System.Drawing.Point(0, 399) Me.ItemForEMAIL_BODY3.Name = "ItemForEMAIL_BODY3" Me.ItemForEMAIL_BODY3.Size = New System.Drawing.Size(678, 24) resources.ApplyResources(Me.ItemForEMAIL_BODY3, "ItemForEMAIL_BODY3") @@ -669,7 +669,7 @@ Partial Class frmAdmin2 'ItemForADDED_WHO ' Me.ItemForADDED_WHO.Control = Me.ADDED_WHOTextEdit - Me.ItemForADDED_WHO.Location = New System.Drawing.Point(0, 408) + Me.ItemForADDED_WHO.Location = New System.Drawing.Point(0, 423) Me.ItemForADDED_WHO.Name = "ItemForADDED_WHO" Me.ItemForADDED_WHO.Size = New System.Drawing.Size(339, 24) resources.ApplyResources(Me.ItemForADDED_WHO, "ItemForADDED_WHO") @@ -678,7 +678,7 @@ Partial Class frmAdmin2 'ItemForCHANGED_WHO ' Me.ItemForCHANGED_WHO.Control = Me.CHANGED_WHOTextEdit - Me.ItemForCHANGED_WHO.Location = New System.Drawing.Point(0, 432) + Me.ItemForCHANGED_WHO.Location = New System.Drawing.Point(0, 447) Me.ItemForCHANGED_WHO.Name = "ItemForCHANGED_WHO" Me.ItemForCHANGED_WHO.Size = New System.Drawing.Size(339, 24) resources.ApplyResources(Me.ItemForCHANGED_WHO, "ItemForCHANGED_WHO") @@ -687,7 +687,7 @@ Partial Class frmAdmin2 'ItemForADDED_WHEN ' Me.ItemForADDED_WHEN.Control = Me.ADDED_WHENDateEdit - Me.ItemForADDED_WHEN.Location = New System.Drawing.Point(339, 408) + Me.ItemForADDED_WHEN.Location = New System.Drawing.Point(339, 423) Me.ItemForADDED_WHEN.Name = "ItemForADDED_WHEN" Me.ItemForADDED_WHEN.Size = New System.Drawing.Size(339, 24) resources.ApplyResources(Me.ItemForADDED_WHEN, "ItemForADDED_WHEN") @@ -696,7 +696,7 @@ Partial Class frmAdmin2 'ItemForCHANGED_WHEN ' Me.ItemForCHANGED_WHEN.Control = Me.CHANGED_WHENDateEdit - Me.ItemForCHANGED_WHEN.Location = New System.Drawing.Point(339, 432) + Me.ItemForCHANGED_WHEN.Location = New System.Drawing.Point(339, 447) Me.ItemForCHANGED_WHEN.Name = "ItemForCHANGED_WHEN" Me.ItemForCHANGED_WHEN.Size = New System.Drawing.Size(339, 24) resources.ApplyResources(Me.ItemForCHANGED_WHEN, "ItemForCHANGED_WHEN") @@ -752,7 +752,6 @@ Partial Class frmAdmin2 Me.DataLayoutControl2.Controls.Add(Me.TextEdit2) Me.DataLayoutControl2.Controls.Add(Me.LANGUAGEComboBoxEdit) Me.DataLayoutControl2.Controls.Add(Me.CAPT_TYPETextEdit) - Me.DataLayoutControl2.Controls.Add(Me.STRING1TextEdit) Me.DataLayoutControl2.Controls.Add(Me.STRING2TextEdit) Me.DataLayoutControl2.Controls.Add(Me.STRING3TextEdit) Me.DataLayoutControl2.Controls.Add(Me.STRING4TextEdit) @@ -764,9 +763,11 @@ Partial Class frmAdmin2 Me.DataLayoutControl2.Controls.Add(Me.CHANGED_WHENTextEdit) Me.DataLayoutControl2.Controls.Add(Me.OBJ_NAMETextEdit) Me.DataLayoutControl2.Controls.Add(Me.INTERNALCheckEdit) + Me.DataLayoutControl2.Controls.Add(Me.STRING1TextEdit) Me.DataLayoutControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource resources.ApplyResources(Me.DataLayoutControl2, "DataLayoutControl2") Me.DataLayoutControl2.Name = "DataLayoutControl2" + Me.DataLayoutControl2.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1102, 272, 650, 400) Me.DataLayoutControl2.Root = Me.LayoutControlGroup2 ' 'TextEdit1 @@ -821,14 +822,6 @@ Partial Class frmAdmin2 Me.CAPT_TYPETextEdit.Name = "CAPT_TYPETextEdit" Me.CAPT_TYPETextEdit.StyleController = Me.DataLayoutControl2 ' - 'STRING1TextEdit - ' - Me.STRING1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True)) - resources.ApplyResources(Me.STRING1TextEdit, "STRING1TextEdit") - Me.STRING1TextEdit.MenuManager = Me.RibbonControl1 - Me.STRING1TextEdit.Name = "STRING1TextEdit" - Me.STRING1TextEdit.StyleController = Me.DataLayoutControl2 - ' 'STRING2TextEdit ' Me.STRING2TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True)) @@ -940,7 +933,7 @@ Partial Class frmAdmin2 Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutControlGroup2.GroupBordersVisible = False Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup3}) - Me.LayoutControlGroup2.Name = "LayoutControlGroup2" + Me.LayoutControlGroup2.Name = "Root" Me.LayoutControlGroup2.Size = New System.Drawing.Size(544, 479) Me.LayoutControlGroup2.TextVisible = False ' @@ -967,14 +960,14 @@ Partial Class frmAdmin2 Me.ItemForSTRING1.Control = Me.STRING1TextEdit Me.ItemForSTRING1.Location = New System.Drawing.Point(0, 120) Me.ItemForSTRING1.Name = "ItemForSTRING1" - Me.ItemForSTRING1.Size = New System.Drawing.Size(524, 24) + Me.ItemForSTRING1.Size = New System.Drawing.Size(524, 171) resources.ApplyResources(Me.ItemForSTRING1, "ItemForSTRING1") Me.ItemForSTRING1.TextSize = New System.Drawing.Size(74, 13) ' 'ItemForSTRING2 ' Me.ItemForSTRING2.Control = Me.STRING2TextEdit - Me.ItemForSTRING2.Location = New System.Drawing.Point(0, 144) + Me.ItemForSTRING2.Location = New System.Drawing.Point(0, 291) Me.ItemForSTRING2.Name = "ItemForSTRING2" Me.ItemForSTRING2.Size = New System.Drawing.Size(524, 24) resources.ApplyResources(Me.ItemForSTRING2, "ItemForSTRING2") @@ -983,7 +976,7 @@ Partial Class frmAdmin2 'ItemForSTRING3 ' Me.ItemForSTRING3.Control = Me.STRING3TextEdit - Me.ItemForSTRING3.Location = New System.Drawing.Point(0, 168) + Me.ItemForSTRING3.Location = New System.Drawing.Point(0, 315) Me.ItemForSTRING3.Name = "ItemForSTRING3" Me.ItemForSTRING3.Size = New System.Drawing.Size(524, 24) resources.ApplyResources(Me.ItemForSTRING3, "ItemForSTRING3") @@ -992,7 +985,7 @@ Partial Class frmAdmin2 'ItemForSTRING4 ' Me.ItemForSTRING4.Control = Me.STRING4TextEdit - Me.ItemForSTRING4.Location = New System.Drawing.Point(0, 192) + Me.ItemForSTRING4.Location = New System.Drawing.Point(0, 339) Me.ItemForSTRING4.Name = "ItemForSTRING4" Me.ItemForSTRING4.Size = New System.Drawing.Size(524, 24) resources.ApplyResources(Me.ItemForSTRING4, "ItemForSTRING4") @@ -1001,7 +994,7 @@ Partial Class frmAdmin2 'ItemForSTRING5 ' Me.ItemForSTRING5.Control = Me.STRING5TextEdit - Me.ItemForSTRING5.Location = New System.Drawing.Point(0, 216) + Me.ItemForSTRING5.Location = New System.Drawing.Point(0, 363) Me.ItemForSTRING5.Name = "ItemForSTRING5" Me.ItemForSTRING5.Size = New System.Drawing.Size(524, 24) resources.ApplyResources(Me.ItemForSTRING5, "ItemForSTRING5") @@ -1010,7 +1003,7 @@ Partial Class frmAdmin2 'ItemForSTRING6 ' Me.ItemForSTRING6.Control = Me.STRING6TextEdit - Me.ItemForSTRING6.Location = New System.Drawing.Point(0, 240) + Me.ItemForSTRING6.Location = New System.Drawing.Point(0, 387) Me.ItemForSTRING6.Name = "ItemForSTRING6" Me.ItemForSTRING6.Size = New System.Drawing.Size(524, 24) resources.ApplyResources(Me.ItemForSTRING6, "ItemForSTRING6") @@ -1019,7 +1012,7 @@ Partial Class frmAdmin2 'LayoutControlItem3 ' Me.LayoutControlItem3.Control = Me.TextEdit3 - Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 264) + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 411) Me.LayoutControlItem3.Name = "ItemForADDED_WHO" Me.LayoutControlItem3.Size = New System.Drawing.Size(262, 24) resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3") @@ -1028,16 +1021,16 @@ Partial Class frmAdmin2 'LayoutControlItem5 ' Me.LayoutControlItem5.Control = Me.TextEdit4 - Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 288) + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 435) Me.LayoutControlItem5.Name = "ItemForCHANGED_WHO" - Me.LayoutControlItem5.Size = New System.Drawing.Size(262, 171) + Me.LayoutControlItem5.Size = New System.Drawing.Size(262, 24) resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5") Me.LayoutControlItem5.TextSize = New System.Drawing.Size(74, 13) ' 'LayoutControlItem4 ' Me.LayoutControlItem4.Control = Me.ADDED_WHENTextEdit - Me.LayoutControlItem4.Location = New System.Drawing.Point(262, 264) + Me.LayoutControlItem4.Location = New System.Drawing.Point(262, 411) Me.LayoutControlItem4.Name = "ItemForADDED_WHEN" Me.LayoutControlItem4.Size = New System.Drawing.Size(262, 24) resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4") @@ -1046,9 +1039,9 @@ Partial Class frmAdmin2 'LayoutControlItem6 ' Me.LayoutControlItem6.Control = Me.CHANGED_WHENTextEdit - Me.LayoutControlItem6.Location = New System.Drawing.Point(262, 288) + Me.LayoutControlItem6.Location = New System.Drawing.Point(262, 435) Me.LayoutControlItem6.Name = "ItemForCHANGED_WHEN" - Me.LayoutControlItem6.Size = New System.Drawing.Size(262, 171) + Me.LayoutControlItem6.Size = New System.Drawing.Size(262, 24) resources.ApplyResources(Me.LayoutControlItem6, "LayoutControlItem6") Me.LayoutControlItem6.TextSize = New System.Drawing.Size(74, 13) ' @@ -1244,6 +1237,14 @@ Partial Class frmAdmin2 ' Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.ClearBeforeFill = True ' + 'STRING1TextEdit + ' + Me.STRING1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True)) + resources.ApplyResources(Me.STRING1TextEdit, "STRING1TextEdit") + Me.STRING1TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING1TextEdit.Name = "STRING1TextEdit" + Me.STRING1TextEdit.StyleController = Me.DataLayoutControl2 + ' 'frmAdmin2 ' resources.ApplyResources(Me, "$this") @@ -1301,7 +1302,6 @@ Partial Class frmAdmin2 CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LANGUAGEComboBoxEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() @@ -1337,6 +1337,7 @@ Partial Class frmAdmin2 Me.BindingNavigator2.PerformLayout() CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -1430,7 +1431,6 @@ Partial Class frmAdmin2 Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit Friend WithEvents LANGUAGEComboBoxEdit As DevExpress.XtraEditors.ComboBoxEdit Friend WithEvents CAPT_TYPETextEdit As DevExpress.XtraEditors.TextEdit - Friend WithEvents STRING1TextEdit As DevExpress.XtraEditors.TextEdit Friend WithEvents STRING2TextEdit As DevExpress.XtraEditors.TextEdit Friend WithEvents STRING3TextEdit As DevExpress.XtraEditors.TextEdit Friend WithEvents STRING4TextEdit As DevExpress.XtraEditors.TextEdit @@ -1461,4 +1461,5 @@ Partial Class frmAdmin2 Friend WithEvents ItemForMODULE As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents ItemForOBJ_NAME As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents STRING1TextEdit As DevExpress.XtraEditors.MemoEdit End Class diff --git a/app/DD_PM_WINDREAM/frmAdmin2.resx b/app/DD_PM_WINDREAM/frmAdmin2.resx index 1b73c57..3dea621 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.resx +++ b/app/DD_PM_WINDREAM/frmAdmin2.resx @@ -547,13 +547,13 @@ Aktionen - 1059, 158 + 1059, 146 - 0, 691 + 0, 694 - 1059, 24 + 1059, 21 RibbonStatusBar1 @@ -587,7 +587,7 @@ Fill - 0, 158 + 0, 146 @@ -658,6 +658,9 @@ False + + Segoe UI, 9pt + 50, 23 @@ -791,7 +794,7 @@ 5 - 89, 396 + 89, 411 597, 20 @@ -812,7 +815,7 @@ 6 - 89, 420 + 89, 435 258, 20 @@ -833,7 +836,7 @@ 7 - 89, 444 + 89, 459 258, 20 @@ -857,7 +860,7 @@ 89, 84 - 597, 133 + 597, 138 7 @@ -875,10 +878,10 @@ 9 - 89, 221 + 89, 226 - 597, 171 + 597, 181 8 @@ -917,7 +920,7 @@ 11 - 428, 420 + 428, 435 G @@ -944,7 +947,7 @@ 12 - 428, 444 + 428, 459 d @@ -1004,7 +1007,7 @@ Geändert wann - 698, 476 + 698, 491 22 @@ -1055,7 +1058,7 @@ 128 - 353, 508 + 353, 523 20 @@ -1073,7 +1076,7 @@ 2 - 1057, 508 + 1057, 523 Email Phrasen @@ -1091,7 +1094,7 @@ 0 - 1059, 533 + 1059, 548 2 @@ -1220,29 +1223,8 @@ 8 - - 89, 132 - - - 443, 20 - - - 9 - - - STRING1TextEdit - - - DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DataLayoutControl2 - - - 9 - - 89, 156 + 89, 303 443, 20 @@ -1260,10 +1242,10 @@ DataLayoutControl2 - 10 + 9 - 89, 180 + 89, 327 443, 20 @@ -1281,10 +1263,10 @@ DataLayoutControl2 - 11 + 10 - 89, 204 + 89, 351 443, 20 @@ -1302,10 +1284,10 @@ DataLayoutControl2 - 12 + 11 - 89, 228 + 89, 375 443, 20 @@ -1323,10 +1305,10 @@ DataLayoutControl2 - 13 + 12 - 89, 252 + 89, 399 443, 20 @@ -1344,10 +1326,10 @@ DataLayoutControl2 - 14 + 13 - 89, 276 + 89, 423 181, 20 @@ -1365,10 +1347,10 @@ DataLayoutControl2 - 15 + 14 - 351, 276 + 351, 423 d @@ -1392,10 +1374,10 @@ DataLayoutControl2 - 16 + 15 - 89, 300 + 89, 447 181, 20 @@ -1413,10 +1395,10 @@ DataLayoutControl2 - 17 + 16 - 351, 300 + 351, 447 d @@ -1440,7 +1422,7 @@ DataLayoutControl2 - 18 + 17 89, 60 @@ -1461,7 +1443,7 @@ DataLayoutControl2 - 19 + 18 274, 12 @@ -1474,7 +1456,7 @@ Default - 108, 20 + 108, 19 20 @@ -1489,6 +1471,27 @@ DataLayoutControl2 + 19 + + + 89, 132 + + + 443, 167 + + + 9 + + + STRING1TextEdit + + + DevExpress.XtraEditors.MemoEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DataLayoutControl2 + + 20 @@ -1625,6 +1628,9 @@ False + + Segoe UI, 9pt + 50, 23 @@ -1748,7 +1754,7 @@ 3 - 509, 508 + 509, 523 21 @@ -1766,7 +1772,7 @@ 2 - 1057, 508 + 1057, 523 GUI Phrasen diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 81cad66..699833b 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -666,6 +666,7 @@ Public Class frmValidator For Each oControlRow As DataRow In DTCONTROLS.Rows Dim oMyControl As Control + Dim oControlID = oControlRow.Item("GUID") oControlInfo = $"CtrlName: {oControlRow.Item("NAME")} - CtrlIndex: {oControlRow.Item("INDEX_NAME")}" Try Select Case oControlRow.Item("CTRL_TYPE").ToString.ToUpper @@ -948,6 +949,10 @@ Public Class frmValidator End If End If End Sub + + + + oMyControl = oGrid Case "LINE" @@ -996,7 +1001,16 @@ Public Class frmValidator allgFunk.Insert_LogEntry($"ERROR CreateControls >> {ex.Message}") End Try End Sub + Private Sub GridControlColumnWidthChanged(sender As System.Object, e As System.EventArgs) + Try + Dim oMyGridView As DevExpress.XtraGrid.Views.Grid.GridView = sender + Dim oControlID = DirectCast(oMyGridView.GridControl.Tag, ClassControlCreator.ControlMetadata).Guid + SaveDevExpressGridControl_Layout(CURRENT_ProfilGUID, oControlID, oMyGridView) + Catch ex As Exception + + End Try + End Sub Sub Clear_all_Input() For Each inctrl As Control In Me.pnldesigner.Controls Dim Type As String = inctrl.GetType.ToString @@ -2414,7 +2428,11 @@ Public Class frmValidator Dim oType As String = oControl.GetType.ToString Dim oTyp As String = oControlRow.Item("CTRL_TYPE") - Dim oIDBTyp As String = oControlRow.Item("IDB_TYP") + Dim oIDBTyp As String + If IDB_ACTIVE Then + oIDBTyp = oControlRow.Item("IDB_TYP") + End If + Dim oSourceIndexName As String = oControlRow.Item("INDEX_NAME") ' Wenn kein defaultValue existiert, leeren String setzen Dim oDefaultValue As String = NotNull(oControlRow.Item("DEFAULT_VALUE"), String.Empty) @@ -2582,6 +2600,7 @@ Public Class frmValidator Case "DevExpress.XtraGrid.GridControl" oControlType = "DevExpress.XtraGrid.GridControl" Dim oMyGridControl As GridControl = oControl + Dim oDTColumnsPerDevExGrid As DataTable = DTGRID_COLUMNS.Clone() If oSourceIndexName = "" Then MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) Exit For @@ -2603,11 +2622,14 @@ Public Class frmValidator Select Case oTyp 'Tabellendarstellung Case "TABLE" - Dim oDTColumnsPerDevExGrid As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]") - Dim oColCount = oDTColumnsPerDevExGrid.Rows.Count + Dim oExpression = $"CONTROL_ID = {oControlId}" + DTGRID_COLUMNS.Select(oExpression, "SEQUENCE").CopyToDataTable(oDTColumnsPerDevExGrid, LoadOption.PreserveChanges) + + 'Dim oDTColumnsPerDevExGrid As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]") + 'Dim oColCount = oDTColumnsPerDevExGrid.Rows.Count Dim oColValuesfromSource As String() - LOGGER.Debug($"DevExpressGrid: {oColCount} Columns configured for control {oControlId}.") - If oColCount >= 1 Then + LOGGER.Debug($"DevExpressGrid: {oDTColumnsPerDevExGrid.Rows.Count} Columns configured for control {oControlId}.") + If oDTColumnsPerDevExGrid.Rows.Count >= 1 Then Dim oDataSource As DataTable = oMyGridControl.DataSource oDataSource.Rows.Clear() If IDB_ACTIVE = False Then @@ -2615,7 +2637,7 @@ Public Class frmValidator LOGGER.Debug($"vektorrow Value {Zeile.ToString}...") oColValuesfromSource = Split(Zeile, Delimiter) - Select Case oColCount + Select Case oDTColumnsPerDevExGrid.Rows.Count Case 1 oDataSource.Rows.Add(New String() {Zeile.ToString}) @@ -2683,45 +2705,7 @@ Public Class frmValidator Case 4 oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)}) End Select - 'Select Case oMyDatatable.Rows.Count - ' Case 1 - ' oDataSource.Rows.Add(New String() {oRow.Item(0).ToString}) - ' 'dgv.Rows.Add(New String() {Zeile.ToString}) - ' Case 2 - ' If SpaltenWerte.Length = 2 Then - ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) - ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)}) - ' Else - ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), ""}) - ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), ""}) - ' End If - ' Case 3 - ' If SpaltenWerte.Length = 3 Then - ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) - ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)}) - ' ElseIf SpaltenWerte.Length = 2 Then - ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) - ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""}) - ' Else - ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), "", ""}) - ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), "", ""}) - ' End If - ' Case 4 - ' If SpaltenWerte.Length = 4 Then - ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) - ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)}) - ' ElseIf SpaltenWerte.Length = 3 Then - ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) - ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""}) - ' ElseIf SpaltenWerte.Length = 2 Then - ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) - ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""}) - ' Else - ' oDataSource.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) - ' 'dgv.Rows.Add(New String() {SpaltenWerte(0), "", "", ""}) - ' End If - - 'End Select + Next End If @@ -2756,6 +2740,30 @@ Public Class frmValidator End If End If + Try + 'Dim oFilteredDatatable As DataTable = DTGRID_COLUMNS.Clone() + 'Dim oExpression = $"CONTROL_ID = {oControlRow.Item("GUID")}" + 'DTGRID_COLUMNS.Select(oExpression, "SEQUENCE").CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) + Dim oMyGridView As DevExpress.XtraGrid.Views.Grid.GridView = oMyGridControl.MainView + oMyGridView.OptionsView.ColumnAutoWidth = False + 'AddHandler oMyGridView.ColumnWidthChanged, AddressOf GridControlColumnWidthChanged + For Each oRow As DataRow In oDTColumnsPerDevExGrid.Rows + For Each oActGridColumn As DevExpress.XtraGrid.Columns.GridColumn In oMyGridView.Columns + Dim oGridDXFieldName = oActGridColumn.FieldName + Dim GridDXColumnEditName = oActGridColumn.ColumnEditName + If oRow.Item("SPALTENNAME") = oGridDXFieldName Then + oActGridColumn.Width = oRow.Item("SPALTENBREITE") + Exit For + End If + + Next + Next + Dim i = 0 + + ' RestoreDevExpressGridControl_Layout(CURRENT_CLICKED_PROFILE_ID, oControlId, oMyGridView) + Catch ex As Exception + + End Try End If Case "System.Windows.Forms.CheckBox" LOGGER.Debug("Loading checkbox.") @@ -3600,7 +3608,11 @@ Public Class frmValidator Dim oSQLCheckCommand As String = IIf(IsDBNull(dr.Item("SQL_UEBERPRUEFUNG")), "", dr.Item("SQL_UEBERPRUEFUNG")) Dim oIsReadOnly As Boolean = CBool(dr.Item("READ_ONLY")) Dim oControlType As String = dr.Item("CTRL_TYPE") - Dim oIDBTyp As Integer = dr.Item("IDB_TYP") + Dim oIDBTyp As Integer + If IDB_ACTIVE Then + oIDBTyp = dr.Item("IDB_TYP") + End If + oControlId = dr.Item("GUID") Dim oRegexMatch As String = NotNull(dr.Item("REGEX_MATCH"), String.Empty) Dim oRegexMessage As String = NotNull(dr.Item("REGEX_MESSAGE_DE"), String.Empty) @@ -4732,4 +4744,31 @@ Public Class frmValidator SetStatusLabel($"Error while saving data!", "Red") End If End Sub + Private Sub SaveDevExpressGridControl_Layout(pProfilID As Integer, pControlID As Integer, pGridView As DevExpress.XtraGrid.Views.Grid.GridView) + Try + Dim xml As String = GetXML_OverviewLayoutName(pProfilID, pControlID) + pGridView.SaveLayoutToXml(xml) + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info("Error while saving GridLayout: " & ex.Message) + End Try + End Sub + + Private Sub RestoreDevExpressGridControl_Layout(pProfilID As Integer, pControlID As Integer, pGridView As DevExpress.XtraGrid.Views.Grid.GridView) + + Try + Dim oXml As String = GetXML_OverviewLayoutName(pProfilID, pControlID) + If File.Exists(oXml) Then + pGridView.RestoreLayoutFromXml(oXml) + End If + + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info("Error while restoring layout: " & ex.Message) + End Try + End Sub + Private Function GetXML_OverviewLayoutName(pProfilID As Integer, pControlID As Integer) + Dim Filename As String = String.Format($"DevExpressValidatorGridControl_{pProfilID}-{pControlID}.xml") + Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename) + End Function End Class \ No newline at end of file From a6ac1e08f083ff12b419e1cb1ab1f85760339275 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 13 Feb 2020 10:21:07 +0100 Subject: [PATCH 22/26] MS --- .../v16/TestStore/0/000-0000.testlog | Bin 0 -> 20971556 bytes .../v16/TestStore/0/testlog.manifest | Bin 0 -> 24 bytes app/DD_PM_WINDREAM/ClassIDBData.vb | 4 +- app/DD_PM_WINDREAM/ClassWindream_allgemein.vb | 2 +- .../DD_DMSLiteDataSet.Designer.vb | 3321 +++++++++-------- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd | 48 +- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss | 12 +- app/DD_PM_WINDREAM/clsPatterns.vb | 5 +- .../frmAdministration.Designer.vb | 178 +- app/DD_PM_WINDREAM/frmAdministration.resx | 574 +-- app/DD_PM_WINDREAM/frmAdministration.vb | 29 +- app/DD_PM_WINDREAM/frmFormDesigner.vb | 3 +- app/DD_PM_WINDREAM/frmValidator.vb | 18 +- 13 files changed, 1769 insertions(+), 2425 deletions(-) create mode 100644 app/.vs/DD_PM_WINDREAM/v16/TestStore/0/000-0000.testlog create mode 100644 app/.vs/DD_PM_WINDREAM/v16/TestStore/0/testlog.manifest diff --git a/app/.vs/DD_PM_WINDREAM/v16/TestStore/0/000-0000.testlog b/app/.vs/DD_PM_WINDREAM/v16/TestStore/0/000-0000.testlog new file mode 100644 index 0000000000000000000000000000000000000000..b127f06439da71df7a3b445a498172de2e203a6a GIT binary patch literal 20971556 zcmeFtKWkG_6aes>+CtI6;^ZQ1(TYlcq?;Xt70?2PJ*IsgaVDmzScOn_ob1 z5;8d`=-}YuAau~pKNU3Jq94I$2eF$U;CJBM!{Oe;;r^zkiq)bQH%3DU=ga&XPeQ1a z&7VA19-k|xv+relp?Of2P#Fu!aC){9CaUA%%vcy52}jQlhSPB|Nv_Q`&tMKCB(7D$T7+P{r<;?XJ?uIWBT^Xi&tN74hB~qZ$2$y z1OWmB2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C7 z2oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N z0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+ z009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBly zK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF z5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk z1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs z0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZ zfB*pk1PBlyK!5-N0t5&UAV7cs0RjXF5FkK+009C72oNAZfB*pk1PBlyK!5-N0t5&U zAV7cs0RjXF5ctgw9S8sb0002_zcxaG0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNq!T=s*Af z0002U|Fsbk95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddDyLk9u?0000${;!RY;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede z;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQq zIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n? z4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj! z0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^` zz<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!K zaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB) z95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c z2M!!KaNxj!0|yQqIB?*=fddB)95`^`z<~n?4jede;J|?c2M!!KaNxj!0|yQqIB?*= zfddB)95`^`z<~n?4jee39Xb{O0000OYwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA zz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj zFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r z3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@ z0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VK zfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5 zV8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM k7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkoOd5UX;|WB>pF literal 0 HcmV?d00001 diff --git a/app/.vs/DD_PM_WINDREAM/v16/TestStore/0/testlog.manifest b/app/.vs/DD_PM_WINDREAM/v16/TestStore/0/testlog.manifest new file mode 100644 index 0000000000000000000000000000000000000000..b6ec9cfc8fc7c2d61a23ce657712eaae9dee94e2 GIT binary patch literal 24 bcmXR;&-W=QP7PsVU|?VbVi2gA;FARaM*IZ( literal 0 HcmV?d00001 diff --git a/app/DD_PM_WINDREAM/ClassIDBData.vb b/app/DD_PM_WINDREAM/ClassIDBData.vb index 96670d0..7908aef 100644 --- a/app/DD_PM_WINDREAM/ClassIDBData.vb +++ b/app/DD_PM_WINDREAM/ClassIDBData.vb @@ -11,7 +11,7 @@ Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE" DTVWIDB_BE_ATTRIBUTE = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) End Function - Public Source_IDBIndices As List(Of String) + Public IDBSystemIndices As List(Of String) Public Function GetIndicesByBE(ByVal BusinessEntity As String) As String() Try Dim aNames(4) As String @@ -20,7 +20,7 @@ aNames(2) = "IDBCreatedWho" aNames(3) = "IDBChangedWhen" aNames(4) = "IDBChangedWho" - Source_IDBIndices = aNames.ToList + IDBSystemIndices = aNames.ToList ' Array für Indizes vorbereiten Dim aIndexNames(DTVWIDB_BE_ATTRIBUTE.Rows.Count + 4) As String Dim oCount As Integer = 0 diff --git a/app/DD_PM_WINDREAM/ClassWindream_allgemein.vb b/app/DD_PM_WINDREAM/ClassWindream_allgemein.vb index 91850be..17b0692 100644 --- a/app/DD_PM_WINDREAM/ClassWindream_allgemein.vb +++ b/app/DD_PM_WINDREAM/ClassWindream_allgemein.vb @@ -240,7 +240,7 @@ LOGGER.Error(ex) ElseIf Path.StartsWith("\") Then Return Path Else - Return "\" & Path + oNormalizedPath = "\" & Path End If Return oNormalizedPath diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index 18dedfc..e5a4c2e 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -74,7 +74,7 @@ Partial Public Class DD_DMSLiteDataSet Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -86,7 +86,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 @@ -172,7 +172,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ Public ReadOnly Property TBPM_PROFILE_FINAL_INDEXING() As TBPM_PROFILE_FINAL_INDEXINGDataTable @@ -182,7 +182,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPM_KONFIGURATION() As TBPM_KONFIGURATIONDataTable @@ -192,7 +192,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable @@ -202,7 +202,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPM_TYPE() As TBPM_TYPEDataTable @@ -212,7 +212,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPM_ERROR_LOG() As TBPM_ERROR_LOGDataTable @@ -222,7 +222,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable @@ -232,7 +232,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPROFILE_USER() As TBPROFILE_USERDataTable @@ -242,7 +242,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPM_PROFILE_FILES() As TBPM_PROFILE_FILESDataTable @@ -252,7 +252,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPM_PROFILE() As TBPM_PROFILEDataTable @@ -262,7 +262,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBWH_CHECK_PROFILE_CONTROLS() As TBWH_CHECK_PROFILE_CONTROLSDataTable @@ -272,7 +272,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPM_PROFILE_CONTROLS() As TBPM_PROFILE_CONTROLSDataTable @@ -282,7 +282,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPM_CONTROL_TABLE() As TBPM_CONTROL_TABLEDataTable @@ -292,7 +292,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBDD_GROUPS() As TBDD_GROUPSDataTable @@ -302,7 +302,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBPROFILE_GROUP() As TBPROFILE_GROUPDataTable @@ -312,7 +312,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property FNPM_GET_FREE_USER_FOR_PROFILE() As FNPM_GET_FREE_USER_FOR_PROFILEDataTable @@ -322,7 +322,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBDD_EMAIL_TEMPLATE() As TBDD_EMAIL_TEMPLATEDataTable @@ -332,7 +332,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBDD_GUI_LANGUAGE_PHRASE() As TBDD_GUI_LANGUAGE_PHRASEDataTable @@ -342,7 +342,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property TBWH_CONNECTION() As TBWH_CONNECTIONDataTable @@ -352,7 +352,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -365,7 +365,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -374,7 +374,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -383,7 +383,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -391,7 +391,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As DD_DMSLiteDataSet = CType(MyBase.Clone,DD_DMSLiteDataSet) cln.InitVars @@ -400,19 +400,19 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset @@ -487,7 +487,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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)) @@ -496,13 +496,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBPM_PROFILE_FINAL_INDEXING = CType(MyBase.Tables("TBPM_PROFILE_FINAL_INDEXING"),TBPM_PROFILE_FINAL_INDEXINGDataTable) If (initTable = true) Then @@ -620,7 +620,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "DD_DMSLiteDataSet" Me.Prefix = "" @@ -676,115 +676,115 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBPM_PROFILE_FINAL_INDEXING() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBPM_KONFIGURATION() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_USER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBPM_TYPE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBPM_ERROR_LOG() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_CONNECTION() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBPROFILE_USER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBPM_PROFILE_FILES() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBPM_PROFILE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBWH_CHECK_PROFILE_CONTROLS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBPM_PROFILE_CONTROLS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBPM_CONTROL_TABLE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_GROUPS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBPROFILE_GROUP() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeFNPM_GET_FREE_USER_FOR_PROFILE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_EMAIL_TEMPLATE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_GUI_LANGUAGE_PHRASE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBWH_CONNECTION() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 @@ -792,7 +792,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As DD_DMSLiteDataSet = New DD_DMSLiteDataSet() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -841,58 +841,58 @@ Partial Public Class DD_DMSLiteDataSet Return type End Function - _ + _ Public Delegate Sub TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent) - _ + _ Public Delegate Sub TBPM_KONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_KONFIGURATIONRowChangeEvent) - _ + _ Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent) - _ + _ Public Delegate Sub TBPM_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_TYPERowChangeEvent) - _ + _ Public Delegate Sub TBPM_ERROR_LOGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_ERROR_LOGRowChangeEvent) - _ + _ Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) - _ + _ Public Delegate Sub TBPROFILE_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPROFILE_USERRowChangeEvent) - _ + _ Public Delegate Sub TBPM_PROFILE_FILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_PROFILE_FILESRowChangeEvent) - _ + _ Public Delegate Sub TBPM_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_PROFILERowChangeEvent) - _ + _ Public Delegate Sub TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent) - _ + _ Public Delegate Sub TBPM_PROFILE_CONTROLSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_PROFILE_CONTROLSRowChangeEvent) - _ + _ Public Delegate Sub TBPM_CONTROL_TABLERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_CONTROL_TABLERowChangeEvent) - _ + _ Public Delegate Sub TBDD_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPSRowChangeEvent) - _ + _ Public Delegate Sub TBPROFILE_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPROFILE_GROUPRowChangeEvent) - _ + _ Public Delegate Sub FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent) - _ + _ Public Delegate Sub TBDD_EMAIL_TEMPLATERowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EMAIL_TEMPLATERowChangeEvent) - _ + _ Public Delegate Sub TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GUI_LANGUAGE_PHRASERowChangeEvent) - _ + _ Public Delegate Sub TBWH_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_CONNECTIONRowChangeEvent) ''' @@ -928,7 +928,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnIF_VEKTOR_BEHAVIOUR As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_PROFILE_FINAL_INDEXING" @@ -938,7 +938,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -956,14 +956,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME @@ -971,7 +971,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnVALUE @@ -979,7 +979,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -987,7 +987,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -995,7 +995,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -1003,7 +1003,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -1011,7 +1011,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1019,7 +1019,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID @@ -1027,7 +1027,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_COMMAND @@ -1035,7 +1035,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnDESCRIPTION @@ -1043,7 +1043,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -1051,7 +1051,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property IF_VEKTOR_BEHAVIOURColumn() As Global.System.Data.DataColumn Get Return Me.columnIF_VEKTOR_BEHAVIOUR @@ -1059,7 +1059,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -1068,33 +1068,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILE_FINAL_INDEXINGRow Get Return CType(Me.Rows(index),TBPM_PROFILE_FINAL_INDEXINGRow) End Get End Property - _ + _ Public Event TBPM_PROFILE_FINAL_INDEXINGRowChanging As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FINAL_INDEXINGRowChanged As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FINAL_INDEXINGRowDeleting As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FINAL_INDEXINGRowDeleted As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal DESCRIPTION As String, ByVal ACTIVE As Boolean, ByVal IF_VEKTOR_BEHAVIOUR As String) As TBPM_PROFILE_FINAL_INDEXINGRow Dim rowTBPM_PROFILE_FINAL_INDEXINGRow As TBPM_PROFILE_FINAL_INDEXINGRow = CType(Me.NewRow,TBPM_PROFILE_FINAL_INDEXINGRow) Dim columnValuesArray() As Object = New Object() {INDEXNAME, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing, CONNECTION_ID, SQL_COMMAND, DESCRIPTION, ACTIVE, IF_VEKTOR_BEHAVIOUR} @@ -1104,13 +1104,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILE_FINAL_INDEXINGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILE_FINAL_INDEXINGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_PROFILE_FINAL_INDEXINGDataTable = CType(MyBase.Clone,TBPM_PROFILE_FINAL_INDEXINGDataTable) cln.InitVars @@ -1118,13 +1118,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_PROFILE_FINAL_INDEXINGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") Me.columnVALUE = MyBase.Columns("VALUE") @@ -1141,7 +1141,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINDEXNAME) @@ -1196,25 +1196,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBPM_PROFILE_FINAL_INDEXINGRow() As TBPM_PROFILE_FINAL_INDEXINGRow Return CType(Me.NewRow,TBPM_PROFILE_FINAL_INDEXINGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_PROFILE_FINAL_INDEXINGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_PROFILE_FINAL_INDEXINGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowChangedEvent) Is Nothing) Then @@ -1223,7 +1223,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowChangingEvent) Is Nothing) Then @@ -1232,7 +1232,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowDeletedEvent) Is Nothing) Then @@ -1241,7 +1241,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowDeletingEvent) Is Nothing) Then @@ -1250,13 +1250,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBPM_PROFILE_FINAL_INDEXINGRow(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1367,7 +1367,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnADMIN_SECURITY As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_KONFIGURATION" @@ -1377,7 +1377,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1395,14 +1395,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1410,7 +1410,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property LIZENZENColumn() As Global.System.Data.DataColumn Get Return Me.columnLIZENZEN @@ -1418,7 +1418,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -1426,7 +1426,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER @@ -1434,7 +1434,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN @@ -1442,7 +1442,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -1450,7 +1450,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property INTERVALL_CKECK_NO_OF_FILESColumn() As Global.System.Data.DataColumn Get Return Me.columnINTERVALL_CKECK_NO_OF_FILES @@ -1458,7 +1458,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -1466,7 +1466,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_ACTIVE @@ -1474,7 +1474,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_FROM @@ -1482,7 +1482,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SMTP @@ -1490,7 +1490,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_USER @@ -1498,7 +1498,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_PW @@ -1506,7 +1506,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_REMINDER_HEADERColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_REMINDER_HEADER @@ -1514,7 +1514,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_REMINDER_FOOTERColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_REMINDER_FOOTER @@ -1522,7 +1522,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property VEKTOR_DELIMITERColumn() As Global.System.Data.DataColumn Get Return Me.columnVEKTOR_DELIMITER @@ -1530,7 +1530,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADMIN_PWColumn() As Global.System.Data.DataColumn Get Return Me.columnADMIN_PW @@ -1538,7 +1538,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADMIN_SECURITYColumn() As Global.System.Data.DataColumn Get Return Me.columnADMIN_SECURITY @@ -1546,7 +1546,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -1555,33 +1555,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_KONFIGURATIONRow Get Return CType(Me.Rows(index),TBPM_KONFIGURATIONRow) End Get End Property - _ + _ Public Event TBPM_KONFIGURATIONRowChanging As TBPM_KONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBPM_KONFIGURATIONRowChanged As TBPM_KONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBPM_KONFIGURATIONRowDeleting As TBPM_KONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBPM_KONFIGURATIONRowDeleted As TBPM_KONFIGURATIONRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBPM_KONFIGURATIONRow(ByVal row As TBPM_KONFIGURATIONRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBPM_KONFIGURATIONRow( _ ByVal GUID As Byte, _ ByVal LIZENZEN As String, _ @@ -1609,13 +1609,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Byte) As TBPM_KONFIGURATIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_KONFIGURATIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_KONFIGURATIONDataTable = CType(MyBase.Clone,TBPM_KONFIGURATIONDataTable) cln.InitVars @@ -1623,13 +1623,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_KONFIGURATIONDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnLIZENZEN = MyBase.Columns("LIZENZEN") @@ -1652,7 +1652,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1716,25 +1716,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBPM_KONFIGURATIONRow() As TBPM_KONFIGURATIONRow Return CType(Me.NewRow,TBPM_KONFIGURATIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_KONFIGURATIONRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_KONFIGURATIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_KONFIGURATIONRowChangedEvent) Is Nothing) Then @@ -1743,7 +1743,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_KONFIGURATIONRowChangingEvent) Is Nothing) Then @@ -1752,7 +1752,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_KONFIGURATIONRowDeletedEvent) Is Nothing) Then @@ -1761,7 +1761,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_KONFIGURATIONRowDeletingEvent) Is Nothing) Then @@ -1770,13 +1770,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBPM_KONFIGURATIONRow(ByVal row As TBPM_KONFIGURATIONRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1873,7 +1873,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnSHORTNAME As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_USER" @@ -1883,7 +1883,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1901,14 +1901,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1916,7 +1916,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME @@ -1924,7 +1924,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -1932,7 +1932,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME @@ -1940,7 +1940,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL @@ -1948,7 +1948,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -1956,7 +1956,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -1964,7 +1964,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -1972,7 +1972,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -1980,7 +1980,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -1988,7 +1988,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORTNAME @@ -1996,7 +1996,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -2005,33 +2005,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USERRow Get Return CType(Me.Rows(index),TBDD_USERRow) End Get End Property - _ + _ Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler - _ + _ Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler - _ + _ Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler - _ + _ Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COMMENT As String, ByVal SHORTNAME As String) As TBDD_USERRow Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT, SHORTNAME} @@ -2041,13 +2041,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) cln.InitVars @@ -2055,13 +2055,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_USERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPRENAME = MyBase.Columns("PRENAME") @@ -2077,7 +2077,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2120,25 +2120,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_USERRow() As TBDD_USERRow Return CType(Me.NewRow,TBDD_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_USERRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then @@ -2147,7 +2147,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then @@ -2156,7 +2156,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then @@ -2165,7 +2165,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then @@ -2174,13 +2174,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2267,7 +2267,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_TYPE" @@ -2277,7 +2277,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2295,14 +2295,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2310,7 +2310,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -2318,7 +2318,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -2326,7 +2326,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -2334,7 +2334,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -2342,7 +2342,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -2350,7 +2350,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -2359,33 +2359,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_TYPERow Get Return CType(Me.Rows(index),TBPM_TYPERow) End Get End Property - _ + _ Public Event TBPM_TYPERowChanging As TBPM_TYPERowChangeEventHandler - _ + _ Public Event TBPM_TYPERowChanged As TBPM_TYPERowChangeEventHandler - _ + _ Public Event TBPM_TYPERowDeleting As TBPM_TYPERowChangeEventHandler - _ + _ Public Event TBPM_TYPERowDeleted As TBPM_TYPERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBPM_TYPERow(ByVal row As TBPM_TYPERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBPM_TYPERow(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPM_TYPERow Dim rowTBPM_TYPERow As TBPM_TYPERow = CType(Me.NewRow,TBPM_TYPERow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -2395,13 +2395,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Short) As TBPM_TYPERow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_TYPERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_TYPEDataTable = CType(MyBase.Clone,TBPM_TYPEDataTable) cln.InitVars @@ -2409,13 +2409,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_TYPEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -2426,7 +2426,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2456,25 +2456,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBPM_TYPERow() As TBPM_TYPERow Return CType(Me.NewRow,TBPM_TYPERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_TYPERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_TYPERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_TYPERowChangedEvent) Is Nothing) Then @@ -2483,7 +2483,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_TYPERowChangingEvent) Is Nothing) Then @@ -2492,7 +2492,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_TYPERowDeletedEvent) Is Nothing) Then @@ -2501,7 +2501,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_TYPERowDeletingEvent) Is Nothing) Then @@ -2510,13 +2510,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBPM_TYPERow(ByVal row As TBPM_TYPERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2601,7 +2601,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnADDED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_ERROR_LOG" @@ -2611,7 +2611,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2629,14 +2629,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2644,7 +2644,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFIL_ID @@ -2652,7 +2652,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERROR_MSGColumn() As Global.System.Data.DataColumn Get Return Me.columnERROR_MSG @@ -2660,7 +2660,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -2668,7 +2668,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -2676,7 +2676,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -2685,33 +2685,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_ERROR_LOGRow Get Return CType(Me.Rows(index),TBPM_ERROR_LOGRow) End Get End Property - _ + _ Public Event TBPM_ERROR_LOGRowChanging As TBPM_ERROR_LOGRowChangeEventHandler - _ + _ Public Event TBPM_ERROR_LOGRowChanged As TBPM_ERROR_LOGRowChangeEventHandler - _ + _ Public Event TBPM_ERROR_LOGRowDeleting As TBPM_ERROR_LOGRowChangeEventHandler - _ + _ Public Event TBPM_ERROR_LOGRowDeleted As TBPM_ERROR_LOGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBPM_ERROR_LOGRow(ByVal row As TBPM_ERROR_LOGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBPM_ERROR_LOGRow(ByVal parentTBPM_PROFILERowByFK_TBPM_ERROR_LOG_PROFILE1 As TBPM_PROFILERow, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBPM_ERROR_LOGRow Dim rowTBPM_ERROR_LOGRow As TBPM_ERROR_LOGRow = CType(Me.NewRow,TBPM_ERROR_LOGRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, ERROR_MSG, ADDED_WHO, ADDED_WHEN} @@ -2724,13 +2724,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPM_ERROR_LOGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_ERROR_LOGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_ERROR_LOGDataTable = CType(MyBase.Clone,TBPM_ERROR_LOGDataTable) cln.InitVars @@ -2738,13 +2738,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_ERROR_LOGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") @@ -2754,7 +2754,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2782,25 +2782,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBPM_ERROR_LOGRow() As TBPM_ERROR_LOGRow Return CType(Me.NewRow,TBPM_ERROR_LOGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_ERROR_LOGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_ERROR_LOGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_ERROR_LOGRowChangedEvent) Is Nothing) Then @@ -2809,7 +2809,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_ERROR_LOGRowChangingEvent) Is Nothing) Then @@ -2818,7 +2818,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_ERROR_LOGRowDeletedEvent) Is Nothing) Then @@ -2827,7 +2827,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_ERROR_LOGRowDeletingEvent) Is Nothing) Then @@ -2836,13 +2836,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBPM_ERROR_LOGRow(ByVal row As TBPM_ERROR_LOGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2945,7 +2945,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnSYS_CONNECTION As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_CONNECTION" @@ -2955,7 +2955,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2973,14 +2973,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2988,7 +2988,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -2996,7 +2996,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_PROVIDER @@ -3004,7 +3004,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get Return Me.columnSERVER @@ -3012,7 +3012,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get Return Me.columnDATENBANK @@ -3020,7 +3020,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME @@ -3028,7 +3028,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get Return Me.columnPASSWORD @@ -3036,7 +3036,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEMERKUNG @@ -3044,7 +3044,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV @@ -3052,7 +3052,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER @@ -3060,7 +3060,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN @@ -3068,7 +3068,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER @@ -3076,7 +3076,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -3084,7 +3084,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SYS_CONNECTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnSYS_CONNECTION @@ -3092,7 +3092,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -3101,33 +3101,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow Get Return CType(Me.Rows(index),TBDD_CONNECTIONRow) End Get End Property - _ + _ Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler - _ + _ Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler - _ + _ Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler - _ + _ Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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, ByVal SYS_CONNECTION As Boolean) As 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, SYS_CONNECTION} @@ -3137,13 +3137,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) cln.InitVars @@ -3151,13 +3151,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_CONNECTIONDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -3176,7 +3176,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3228,25 +3228,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow Return CType(Me.NewRow,TBDD_CONNECTIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_CONNECTIONRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_CONNECTIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then @@ -3255,7 +3255,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then @@ -3264,7 +3264,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then @@ -3273,7 +3273,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then @@ -3282,13 +3282,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3377,7 +3377,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnSHORTNAME As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPROFILE_USER" @@ -3387,7 +3387,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3405,14 +3405,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3420,7 +3420,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME @@ -3428,7 +3428,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -3436,7 +3436,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME @@ -3444,7 +3444,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL @@ -3452,7 +3452,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -3460,7 +3460,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORTNAME @@ -3468,7 +3468,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -3477,33 +3477,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPROFILE_USERRow Get Return CType(Me.Rows(index),TBPROFILE_USERRow) End Get End Property - _ + _ Public Event TBPROFILE_USERRowChanging As TBPROFILE_USERRowChangeEventHandler - _ + _ Public Event TBPROFILE_USERRowChanged As TBPROFILE_USERRowChangeEventHandler - _ + _ Public Event TBPROFILE_USERRowDeleting As TBPROFILE_USERRowChangeEventHandler - _ + _ Public Event TBPROFILE_USERRowDeleted As TBPROFILE_USERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBPROFILE_USERRow(ByVal row As TBPROFILE_USERRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBPROFILE_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal COMMENT As String, ByVal SHORTNAME As String) As TBPROFILE_USERRow Dim rowTBPROFILE_USERRow As TBPROFILE_USERRow = CType(Me.NewRow,TBPROFILE_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, COMMENT, SHORTNAME} @@ -3513,13 +3513,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPROFILE_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPROFILE_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPROFILE_USERDataTable = CType(MyBase.Clone,TBPROFILE_USERDataTable) cln.InitVars @@ -3527,13 +3527,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPROFILE_USERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPRENAME = MyBase.Columns("PRENAME") @@ -3545,7 +3545,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3577,25 +3577,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBPROFILE_USERRow() As TBPROFILE_USERRow Return CType(Me.NewRow,TBPROFILE_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPROFILE_USERRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPROFILE_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPROFILE_USERRowChangedEvent) Is Nothing) Then @@ -3604,7 +3604,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPROFILE_USERRowChangingEvent) Is Nothing) Then @@ -3613,7 +3613,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPROFILE_USERRowDeletedEvent) Is Nothing) Then @@ -3622,7 +3622,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPROFILE_USERRowDeletingEvent) Is Nothing) Then @@ -3631,13 +3631,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBPROFILE_USERRow(ByVal row As TBPROFILE_USERRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3718,7 +3718,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnDMS_ERSTELLT_DATE As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_PROFILE_FILES" @@ -3728,7 +3728,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3746,14 +3746,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3761,7 +3761,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property FILE_PATHColumn() As Global.System.Data.DataColumn Get Return Me.columnFILE_PATH @@ -3769,7 +3769,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DMS_ERSTELLT_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnDMS_ERSTELLT_DATE @@ -3777,7 +3777,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -3786,33 +3786,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILE_FILESRow Get Return CType(Me.Rows(index),TBPM_PROFILE_FILESRow) End Get End Property - _ + _ Public Event TBPM_PROFILE_FILESRowChanging As TBPM_PROFILE_FILESRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FILESRowChanged As TBPM_PROFILE_FILESRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FILESRowDeleting As TBPM_PROFILE_FILESRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_FILESRowDeleted As TBPM_PROFILE_FILESRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBPM_PROFILE_FILESRow(ByVal row As TBPM_PROFILE_FILESRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBPM_PROFILE_FILESRow(ByVal FILE_PATH As String, ByVal DMS_ERSTELLT_DATE As Date) As TBPM_PROFILE_FILESRow Dim rowTBPM_PROFILE_FILESRow As TBPM_PROFILE_FILESRow = CType(Me.NewRow,TBPM_PROFILE_FILESRow) Dim columnValuesArray() As Object = New Object() {Nothing, FILE_PATH, DMS_ERSTELLT_DATE} @@ -3822,13 +3822,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILE_FILESRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILE_FILESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_PROFILE_FILESDataTable = CType(MyBase.Clone,TBPM_PROFILE_FILESDataTable) cln.InitVars @@ -3836,13 +3836,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_PROFILE_FILESDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFILE_PATH = MyBase.Columns("FILE_PATH") @@ -3850,7 +3850,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3869,25 +3869,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBPM_PROFILE_FILESRow() As TBPM_PROFILE_FILESRow Return CType(Me.NewRow,TBPM_PROFILE_FILESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_PROFILE_FILESRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_PROFILE_FILESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_PROFILE_FILESRowChangedEvent) Is Nothing) Then @@ -3896,7 +3896,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_PROFILE_FILESRowChangingEvent) Is Nothing) Then @@ -3905,7 +3905,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_PROFILE_FILESRowDeletedEvent) Is Nothing) Then @@ -3914,7 +3914,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_PROFILE_FILESRowDeletingEvent) Is Nothing) Then @@ -3923,13 +3923,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBPM_PROFILE_FILESRow(ByVal row As TBPM_PROFILE_FILESRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -4056,7 +4056,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnSQL_BTN_FINISH As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_PROFILE" @@ -4066,7 +4066,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -4084,14 +4084,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -4099,7 +4099,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -4107,7 +4107,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTITLE @@ -4115,7 +4115,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PRIORITYColumn() As Global.System.Data.DataColumn Get Return Me.columnPRIORITY @@ -4123,7 +4123,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnDESCRIPTION @@ -4131,7 +4131,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -4139,7 +4139,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_SEARCH @@ -4147,7 +4147,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NO_OF_DOCUMENTSColumn() As Global.System.Data.DataColumn Get Return Me.columnNO_OF_DOCUMENTS @@ -4155,7 +4155,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -4163,7 +4163,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -4171,7 +4171,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -4179,7 +4179,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -4187,7 +4187,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property FINAL_PROFILEColumn() As Global.System.Data.DataColumn Get Return Me.columnFINAL_PROFILE @@ -4195,7 +4195,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property FINAL_TEXTColumn() As Global.System.Data.DataColumn Get Return Me.columnFINAL_TEXT @@ -4203,7 +4203,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property MOVE2FOLDERColumn() As Global.System.Data.DataColumn Get Return Me.columnMOVE2FOLDER @@ -4211,7 +4211,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE @@ -4219,7 +4219,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property WD_OBJECTTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_OBJECTTYPE @@ -4227,7 +4227,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SORT_BY_LATESTColumn() As Global.System.Data.DataColumn Get Return Me.columnSORT_BY_LATEST @@ -4235,7 +4235,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PM_VEKTOR_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnPM_VEKTOR_INDEX @@ -4243,7 +4243,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property LOG_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnLOG_INDEX @@ -4251,7 +4251,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SQL_VIEWColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_VIEW @@ -4259,7 +4259,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn() As Global.System.Data.DataColumn Get Return Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES @@ -4267,7 +4267,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ANNOTATE_WORK_HISTORY_ENTRYColumn() As Global.System.Data.DataColumn Get Return Me.columnANNOTATE_WORK_HISTORY_ENTRY @@ -4275,7 +4275,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property WORK_HISTORY_ENTRYColumn() As Global.System.Data.DataColumn Get Return Me.columnWORK_HISTORY_ENTRY @@ -4283,7 +4283,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DISPLAY_MODEColumn() As Global.System.Data.DataColumn Get Return Me.columnDISPLAY_MODE @@ -4291,7 +4291,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SQL_BTN_FINISHColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_BTN_FINISH @@ -4299,7 +4299,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -4308,33 +4308,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILERow Get Return CType(Me.Rows(index),TBPM_PROFILERow) End Get End Property - _ + _ Public Event TBPM_PROFILERowChanging As TBPM_PROFILERowChangeEventHandler - _ + _ Public Event TBPM_PROFILERowChanged As TBPM_PROFILERowChangeEventHandler - _ + _ Public Event TBPM_PROFILERowDeleting As TBPM_PROFILERowChangeEventHandler - _ + _ Public Event TBPM_PROFILERowDeleted As TBPM_PROFILERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBPM_PROFILERow(ByVal row As TBPM_PROFILERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBPM_PROFILERow( _ ByVal NAME As String, _ ByVal TITLE As String, _ @@ -4372,13 +4372,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILERow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_PROFILEDataTable = CType(MyBase.Clone,TBPM_PROFILEDataTable) cln.InitVars @@ -4386,13 +4386,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_PROFILEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -4423,7 +4423,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -4532,29 +4532,30 @@ Partial Public Class DD_DMSLiteDataSet Me.columnDISPLAY_MODE.DefaultValue = CType("Overview and Detail",String) Me.columnDISPLAY_MODE.MaxLength = 20 Me.columnSQL_BTN_FINISH.AllowDBNull = false + Me.columnSQL_BTN_FINISH.DefaultValue = CType("",String) Me.columnSQL_BTN_FINISH.MaxLength = 2147483647 End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBPM_PROFILERow() As TBPM_PROFILERow Return CType(Me.NewRow,TBPM_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_PROFILERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_PROFILERowChangedEvent) Is Nothing) Then @@ -4563,7 +4564,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_PROFILERowChangingEvent) Is Nothing) Then @@ -4572,7 +4573,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_PROFILERowDeletedEvent) Is Nothing) Then @@ -4581,7 +4582,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_PROFILERowDeletingEvent) Is Nothing) Then @@ -4590,13 +4591,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBPM_PROFILERow(ByVal row As TBPM_PROFILERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -4689,7 +4690,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnSQL_UEBERPRUEFUNG As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_CHECK_PROFILE_CONTROLS" @@ -4699,7 +4700,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -4717,14 +4718,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -4732,7 +4733,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -4740,7 +4741,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CTRL_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRL_TYPE @@ -4748,7 +4749,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property INDEX_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEX_NAME @@ -4756,7 +4757,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property TYPColumn() As Global.System.Data.DataColumn Get Return Me.columnTYP @@ -4764,7 +4765,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property VALIDATIONColumn() As Global.System.Data.DataColumn Get Return Me.columnVALIDATION @@ -4772,7 +4773,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHOICE_LISTColumn() As Global.System.Data.DataColumn Get Return Me.columnCHOICE_LIST @@ -4780,7 +4781,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID @@ -4788,7 +4789,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SQL_UEBERPRUEFUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_UEBERPRUEFUNG @@ -4796,7 +4797,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -4805,33 +4806,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_CHECK_PROFILE_CONTROLSRow Get Return CType(Me.Rows(index),TBWH_CHECK_PROFILE_CONTROLSRow) End Get End Property - _ + _ Public Event TBWH_CHECK_PROFILE_CONTROLSRowChanging As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler - _ + _ Public Event TBWH_CHECK_PROFILE_CONTROLSRowChanged As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler - _ + _ Public Event TBWH_CHECK_PROFILE_CONTROLSRowDeleting As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler - _ + _ Public Event TBWH_CHECK_PROFILE_CONTROLSRowDeleted As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBWH_CHECK_PROFILE_CONTROLSRow(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBWH_CHECK_PROFILE_CONTROLSRow(ByVal NAME As String, ByVal CTRL_TYPE As String, ByVal INDEX_NAME As String, ByVal TYP As String, ByVal VALIDATION As Boolean, ByVal CHOICE_LIST As String, ByVal CONNECTION_ID As Short, ByVal SQL_UEBERPRUEFUNG As String) As TBWH_CHECK_PROFILE_CONTROLSRow Dim rowTBWH_CHECK_PROFILE_CONTROLSRow As TBWH_CHECK_PROFILE_CONTROLSRow = CType(Me.NewRow,TBWH_CHECK_PROFILE_CONTROLSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, CTRL_TYPE, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG} @@ -4841,13 +4842,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_CHECK_PROFILE_CONTROLSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_CHECK_PROFILE_CONTROLSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_CHECK_PROFILE_CONTROLSDataTable = CType(MyBase.Clone,TBWH_CHECK_PROFILE_CONTROLSDataTable) cln.InitVars @@ -4855,13 +4856,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_CHECK_PROFILE_CONTROLSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -4875,7 +4876,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -4914,25 +4915,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBWH_CHECK_PROFILE_CONTROLSRow() As TBWH_CHECK_PROFILE_CONTROLSRow Return CType(Me.NewRow,TBWH_CHECK_PROFILE_CONTROLSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_CHECK_PROFILE_CONTROLSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_CHECK_PROFILE_CONTROLSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowChangedEvent) Is Nothing) Then @@ -4941,7 +4942,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowChangingEvent) Is Nothing) Then @@ -4950,7 +4951,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowDeletedEvent) Is Nothing) Then @@ -4959,7 +4960,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowDeletingEvent) Is Nothing) Then @@ -4968,13 +4969,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBWH_CHECK_PROFILE_CONTROLSRow(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -5121,7 +5122,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnSET_CONTROL_DATA As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_PROFILE_CONTROLS" @@ -5131,7 +5132,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -5149,14 +5150,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -5164,7 +5165,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFIL_ID @@ -5172,7 +5173,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -5180,7 +5181,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CTRL_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRL_TYPE @@ -5188,7 +5189,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CTRL_TEXTColumn() As Global.System.Data.DataColumn Get Return Me.columnCTRL_TEXT @@ -5196,7 +5197,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property X_LOCColumn() As Global.System.Data.DataColumn Get Return Me.columnX_LOC @@ -5204,7 +5205,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Y_LOCColumn() As Global.System.Data.DataColumn Get Return Me.columnY_LOC @@ -5212,7 +5213,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -5220,7 +5221,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -5228,7 +5229,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -5236,7 +5237,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -5244,7 +5245,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property INDEX_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEX_NAME @@ -5252,7 +5253,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property TYPColumn() As Global.System.Data.DataColumn Get Return Me.columnTYP @@ -5260,7 +5261,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property VALIDATIONColumn() As Global.System.Data.DataColumn Get Return Me.columnVALIDATION @@ -5268,7 +5269,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHOICE_LISTColumn() As Global.System.Data.DataColumn Get Return Me.columnCHOICE_LIST @@ -5276,7 +5277,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID @@ -5284,7 +5285,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SQL_UEBERPRUEFUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_UEBERPRUEFUNG @@ -5292,7 +5293,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property HEIGHTColumn() As Global.System.Data.DataColumn Get Return Me.columnHEIGHT @@ -5300,7 +5301,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn Get Return Me.columnWIDTH @@ -5308,7 +5309,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property FONT_STYLEColumn() As Global.System.Data.DataColumn Get Return Me.columnFONT_STYLE @@ -5316,7 +5317,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property FONT_SIZEColumn() As Global.System.Data.DataColumn Get Return Me.columnFONT_SIZE @@ -5324,7 +5325,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property FONT_FAMILYColumn() As Global.System.Data.DataColumn Get Return Me.columnFONT_FAMILY @@ -5332,7 +5333,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property FONT_COLORColumn() As Global.System.Data.DataColumn Get Return Me.columnFONT_COLOR @@ -5340,7 +5341,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property READ_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnREAD_ONLY @@ -5348,7 +5349,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property LOAD_IDX_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnLOAD_IDX_VALUE @@ -5356,7 +5357,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnDEFAULT_VALUE @@ -5364,7 +5365,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property MULTISELECTColumn() As Global.System.Data.DataColumn Get Return Me.columnMULTISELECT @@ -5372,7 +5373,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property VKT_ADD_ITEMColumn() As Global.System.Data.DataColumn Get Return Me.columnVKT_ADD_ITEM @@ -5380,7 +5381,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property VKT_PREVENT_MULTIPLE_VALUESColumn() As Global.System.Data.DataColumn Get Return Me.columnVKT_PREVENT_MULTIPLE_VALUES @@ -5388,7 +5389,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property REGEX_MATCHColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_MATCH @@ -5396,7 +5397,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property REGEX_MESSAGE_DEColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_MESSAGE_DE @@ -5404,7 +5405,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property REGEX_MESSAGE_ENColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_MESSAGE_EN @@ -5412,7 +5413,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property IMAGE_CONTROLColumn() As Global.System.Data.DataColumn Get Return Me.columnIMAGE_CONTROL @@ -5420,7 +5421,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SQL2Column() As Global.System.Data.DataColumn Get Return Me.columnSQL2 @@ -5428,7 +5429,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SQL_ENABLEColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_ENABLE @@ -5436,7 +5437,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SET_CONTROL_DATAColumn() As Global.System.Data.DataColumn Get Return Me.columnSET_CONTROL_DATA @@ -5444,7 +5445,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -5453,33 +5454,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILE_CONTROLSRow Get Return CType(Me.Rows(index),TBPM_PROFILE_CONTROLSRow) End Get End Property - _ + _ Public Event TBPM_PROFILE_CONTROLSRowChanging As TBPM_PROFILE_CONTROLSRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_CONTROLSRowChanged As TBPM_PROFILE_CONTROLSRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_CONTROLSRowDeleting As TBPM_PROFILE_CONTROLSRowChangeEventHandler - _ + _ Public Event TBPM_PROFILE_CONTROLSRowDeleted As TBPM_PROFILE_CONTROLSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBPM_PROFILE_CONTROLSRow(ByVal row As TBPM_PROFILE_CONTROLSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBPM_PROFILE_CONTROLSRow( _ ByVal parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE1 As TBPM_PROFILERow, _ ByVal NAME As String, _ @@ -5527,13 +5528,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILE_CONTROLSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILE_CONTROLSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_PROFILE_CONTROLSDataTable = CType(MyBase.Clone,TBPM_PROFILE_CONTROLSDataTable) cln.InitVars @@ -5541,13 +5542,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_PROFILE_CONTROLSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") @@ -5588,7 +5589,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -5705,25 +5706,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBPM_PROFILE_CONTROLSRow() As TBPM_PROFILE_CONTROLSRow Return CType(Me.NewRow,TBPM_PROFILE_CONTROLSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_PROFILE_CONTROLSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_PROFILE_CONTROLSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_PROFILE_CONTROLSRowChangedEvent) Is Nothing) Then @@ -5732,7 +5733,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_PROFILE_CONTROLSRowChangingEvent) Is Nothing) Then @@ -5741,7 +5742,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_PROFILE_CONTROLSRowDeletedEvent) Is Nothing) Then @@ -5750,7 +5751,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_PROFILE_CONTROLSRowDeletingEvent) Is Nothing) Then @@ -5759,13 +5760,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBPM_PROFILE_CONTROLSRow(ByVal row As TBPM_PROFILE_CONTROLSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -5876,7 +5877,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnREGEX_MESSAGE_DE As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPM_CONTROL_TABLE" @@ -5886,7 +5887,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -5904,14 +5905,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -5919,7 +5920,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CONTROL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTROL_ID @@ -5927,7 +5928,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SPALTENNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSPALTENNAME @@ -5935,7 +5936,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SPALTEN_HEADERColumn() As Global.System.Data.DataColumn Get Return Me.columnSPALTEN_HEADER @@ -5943,7 +5944,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SPALTENBREITEColumn() As Global.System.Data.DataColumn Get Return Me.columnSPALTENBREITE @@ -5951,7 +5952,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property VALIDATIONColumn() As Global.System.Data.DataColumn Get Return Me.columnVALIDATION @@ -5959,7 +5960,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHOICE_LISTColumn() As Global.System.Data.DataColumn Get Return Me.columnCHOICE_LIST @@ -5967,7 +5968,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID @@ -5975,7 +5976,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_COMMAND @@ -5983,7 +5984,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property READ_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnREAD_ONLY @@ -5991,7 +5992,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property LOAD_IDX_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnLOAD_IDX_VALUE @@ -5999,7 +6000,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -6007,7 +6008,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -6015,7 +6016,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -6023,7 +6024,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -6031,7 +6032,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property REGEX_MATCHColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_MATCH @@ -6039,7 +6040,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property REGEX_MESSAGE_ENColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_MESSAGE_EN @@ -6047,7 +6048,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property REGEX_MESSAGE_DEColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_MESSAGE_DE @@ -6055,7 +6056,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -6064,33 +6065,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_CONTROL_TABLERow Get Return CType(Me.Rows(index),TBPM_CONTROL_TABLERow) End Get End Property - _ + _ Public Event TBPM_CONTROL_TABLERowChanging As TBPM_CONTROL_TABLERowChangeEventHandler - _ + _ Public Event TBPM_CONTROL_TABLERowChanged As TBPM_CONTROL_TABLERowChangeEventHandler - _ + _ Public Event TBPM_CONTROL_TABLERowDeleting As TBPM_CONTROL_TABLERowChangeEventHandler - _ + _ Public Event TBPM_CONTROL_TABLERowDeleted As TBPM_CONTROL_TABLERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBPM_CONTROL_TABLERow(ByVal row As TBPM_CONTROL_TABLERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBPM_CONTROL_TABLERow( _ ByVal parentTBPM_PROFILE_CONTROLSRowByFK_TBPM_CONTROL_TABLE_CONTROL1 As TBPM_PROFILE_CONTROLSRow, _ ByVal SPALTENNAME As String, _ @@ -6120,13 +6121,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPM_CONTROL_TABLERow Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_CONTROL_TABLERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPM_CONTROL_TABLEDataTable = CType(MyBase.Clone,TBPM_CONTROL_TABLEDataTable) cln.InitVars @@ -6134,13 +6135,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPM_CONTROL_TABLEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnCONTROL_ID = MyBase.Columns("CONTROL_ID") @@ -6163,7 +6164,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -6233,25 +6234,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBPM_CONTROL_TABLERow() As TBPM_CONTROL_TABLERow Return CType(Me.NewRow,TBPM_CONTROL_TABLERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPM_CONTROL_TABLERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPM_CONTROL_TABLERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPM_CONTROL_TABLERowChangedEvent) Is Nothing) Then @@ -6260,7 +6261,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPM_CONTROL_TABLERowChangingEvent) Is Nothing) Then @@ -6269,7 +6270,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPM_CONTROL_TABLERowDeletedEvent) Is Nothing) Then @@ -6278,7 +6279,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPM_CONTROL_TABLERowDeletingEvent) Is Nothing) Then @@ -6287,13 +6288,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBPM_CONTROL_TABLERow(ByVal row As TBPM_CONTROL_TABLERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -6390,7 +6391,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_GROUPS" @@ -6400,7 +6401,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -6418,14 +6419,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -6433,7 +6434,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -6441,7 +6442,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ECM_FK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnECM_FK_ID @@ -6449,7 +6450,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property AD_SYNCColumn() As Global.System.Data.DataColumn Get Return Me.columnAD_SYNC @@ -6457,7 +6458,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn Get Return Me.columnINTERNAL @@ -6465,7 +6466,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -6473,7 +6474,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -6481,7 +6482,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -6489,7 +6490,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -6497,7 +6498,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -6505,7 +6506,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -6513,7 +6514,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -6522,33 +6523,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPSRow Get Return CType(Me.Rows(index),TBDD_GROUPSRow) End Get End Property - _ + _ Public Event TBDD_GROUPSRowChanging As TBDD_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_GROUPSRowChanged As TBDD_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_GROUPSRowDeleting As TBDD_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_GROUPSRowDeleted As TBDD_GROUPSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBDD_GROUPSRow(ByVal NAME As String, ByVal ECM_FK_ID As Integer, ByVal AD_SYNC As Boolean, ByVal INTERNAL As Boolean, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPSRow Dim rowTBDD_GROUPSRow As TBDD_GROUPSRow = CType(Me.NewRow,TBDD_GROUPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -6558,13 +6559,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_GROUPSDataTable = CType(MyBase.Clone,TBDD_GROUPSDataTable) cln.InitVars @@ -6572,13 +6573,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_GROUPSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -6594,7 +6595,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -6636,25 +6637,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_GROUPSRow() As TBDD_GROUPSRow Return CType(Me.NewRow,TBDD_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_GROUPSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_GROUPSRowChangedEvent) Is Nothing) Then @@ -6663,7 +6664,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_GROUPSRowChangingEvent) Is Nothing) Then @@ -6672,7 +6673,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_GROUPSRowDeletedEvent) Is Nothing) Then @@ -6681,7 +6682,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_GROUPSRowDeletingEvent) Is Nothing) Then @@ -6690,13 +6691,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -6787,7 +6788,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPROFILE_GROUP" @@ -6797,7 +6798,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -6815,14 +6816,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -6830,7 +6831,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -6838,7 +6839,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -6846,7 +6847,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -6854,7 +6855,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -6862,7 +6863,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -6870,7 +6871,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -6878,7 +6879,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -6886,7 +6887,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -6895,33 +6896,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPROFILE_GROUPRow Get Return CType(Me.Rows(index),TBPROFILE_GROUPRow) End Get End Property - _ + _ Public Event TBPROFILE_GROUPRowChanging As TBPROFILE_GROUPRowChangeEventHandler - _ + _ Public Event TBPROFILE_GROUPRowChanged As TBPROFILE_GROUPRowChangeEventHandler - _ + _ Public Event TBPROFILE_GROUPRowDeleting As TBPROFILE_GROUPRowChangeEventHandler - _ + _ Public Event TBPROFILE_GROUPRowDeleted As TBPROFILE_GROUPRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBPROFILE_GROUPRow(ByVal row As TBPROFILE_GROUPRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBPROFILE_GROUPRow(ByVal NAME As String, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPROFILE_GROUPRow Dim rowTBPROFILE_GROUPRow As TBPROFILE_GROUPRow = CType(Me.NewRow,TBPROFILE_GROUPRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -6931,13 +6932,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPROFILE_GROUPRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPROFILE_GROUPRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPROFILE_GROUPDataTable = CType(MyBase.Clone,TBPROFILE_GROUPDataTable) cln.InitVars @@ -6945,13 +6946,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPROFILE_GROUPDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -6964,7 +6965,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -6997,25 +6998,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBPROFILE_GROUPRow() As TBPROFILE_GROUPRow Return CType(Me.NewRow,TBPROFILE_GROUPRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPROFILE_GROUPRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPROFILE_GROUPRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPROFILE_GROUPRowChangedEvent) Is Nothing) Then @@ -7024,7 +7025,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPROFILE_GROUPRowChangingEvent) Is Nothing) Then @@ -7033,7 +7034,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPROFILE_GROUPRowDeletedEvent) Is Nothing) Then @@ -7042,7 +7043,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPROFILE_GROUPRowDeletingEvent) Is Nothing) Then @@ -7051,13 +7052,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBPROFILE_GROUPRow(ByVal row As TBPROFILE_GROUPRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -7150,7 +7151,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnUSER_COMMENT As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "FNPM_GET_FREE_USER_FOR_PROFILE" @@ -7160,7 +7161,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -7178,14 +7179,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SequentialOrderColumn() As Global.System.Data.DataColumn Get Return Me.columnSequentialOrder @@ -7193,7 +7194,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_ID @@ -7201,7 +7202,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USER_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_NAME @@ -7209,7 +7210,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USER_PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_PRENAME @@ -7217,7 +7218,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USER_SURNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_SURNAME @@ -7225,7 +7226,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USER_SHORTNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_SHORTNAME @@ -7233,7 +7234,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USER_EMAILColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_EMAIL @@ -7241,7 +7242,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USER_LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_LANGUAGE @@ -7249,7 +7250,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USER_COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_COMMENT @@ -7257,7 +7258,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -7266,33 +7267,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As FNPM_GET_FREE_USER_FOR_PROFILERow Get Return CType(Me.Rows(index),FNPM_GET_FREE_USER_FOR_PROFILERow) End Get End Property - _ + _ Public Event FNPM_GET_FREE_USER_FOR_PROFILERowChanging As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler - _ + _ Public Event FNPM_GET_FREE_USER_FOR_PROFILERowChanged As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler - _ + _ Public Event FNPM_GET_FREE_USER_FOR_PROFILERowDeleting As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler - _ + _ Public Event FNPM_GET_FREE_USER_FOR_PROFILERowDeleted As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal USER_ID As Integer, ByVal USER_NAME As String, ByVal USER_PRENAME As String, ByVal USER_SURNAME As String, ByVal USER_SHORTNAME As String, ByVal USER_EMAIL As String, ByVal USER_LANGUAGE As String, ByVal USER_COMMENT As String) As FNPM_GET_FREE_USER_FOR_PROFILERow Dim rowFNPM_GET_FREE_USER_FOR_PROFILERow As FNPM_GET_FREE_USER_FOR_PROFILERow = CType(Me.NewRow,FNPM_GET_FREE_USER_FOR_PROFILERow) Dim columnValuesArray() As Object = New Object() {Nothing, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT} @@ -7302,7 +7303,7 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As FNPM_GET_FREE_USER_FOR_PROFILEDataTable = CType(MyBase.Clone,FNPM_GET_FREE_USER_FOR_PROFILEDataTable) cln.InitVars @@ -7310,13 +7311,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New FNPM_GET_FREE_USER_FOR_PROFILEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnSequentialOrder = MyBase.Columns("SequentialOrder") Me.columnUSER_ID = MyBase.Columns("USER_ID") @@ -7330,7 +7331,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnSequentialOrder = New Global.System.Data.DataColumn("SequentialOrder", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSequentialOrder) @@ -7365,25 +7366,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewFNPM_GET_FREE_USER_FOR_PROFILERow() As FNPM_GET_FREE_USER_FOR_PROFILERow Return CType(Me.NewRow,FNPM_GET_FREE_USER_FOR_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New FNPM_GET_FREE_USER_FOR_PROFILERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(FNPM_GET_FREE_USER_FOR_PROFILERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowChangedEvent) Is Nothing) Then @@ -7392,7 +7393,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowChangingEvent) Is Nothing) Then @@ -7401,7 +7402,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowDeletedEvent) Is Nothing) Then @@ -7410,7 +7411,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowDeletingEvent) Is Nothing) Then @@ -7419,13 +7420,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -7520,7 +7521,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_EMAIL_TEMPLATE" @@ -7530,7 +7531,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -7548,14 +7549,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -7563,7 +7564,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTITLE @@ -7571,7 +7572,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SUBJECT @@ -7579,7 +7580,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_BODY1Column() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_BODY1 @@ -7587,7 +7588,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_BODY2Column() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_BODY2 @@ -7595,7 +7596,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_BODY3Column() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_BODY3 @@ -7603,7 +7604,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -7611,7 +7612,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -7619,7 +7620,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -7627,7 +7628,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -7635,7 +7636,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -7644,33 +7645,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EMAIL_TEMPLATERow Get Return CType(Me.Rows(index),TBDD_EMAIL_TEMPLATERow) End Get End Property - _ + _ Public Event TBDD_EMAIL_TEMPLATERowChanging As TBDD_EMAIL_TEMPLATERowChangeEventHandler - _ + _ Public Event TBDD_EMAIL_TEMPLATERowChanged As TBDD_EMAIL_TEMPLATERowChangeEventHandler - _ + _ Public Event TBDD_EMAIL_TEMPLATERowDeleting As TBDD_EMAIL_TEMPLATERowChangeEventHandler - _ + _ Public Event TBDD_EMAIL_TEMPLATERowDeleted As TBDD_EMAIL_TEMPLATERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_EMAIL_TEMPLATERow(ByVal row As TBDD_EMAIL_TEMPLATERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBDD_EMAIL_TEMPLATERow(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_EMAIL_TEMPLATERow Dim rowTBDD_EMAIL_TEMPLATERow As TBDD_EMAIL_TEMPLATERow = CType(Me.NewRow,TBDD_EMAIL_TEMPLATERow) Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -7680,13 +7681,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_EMAIL_TEMPLATERow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EMAIL_TEMPLATERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_EMAIL_TEMPLATEDataTable = CType(MyBase.Clone,TBDD_EMAIL_TEMPLATEDataTable) cln.InitVars @@ -7694,13 +7695,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_EMAIL_TEMPLATEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnTITLE = MyBase.Columns("TITLE") @@ -7715,7 +7716,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -7761,25 +7762,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_EMAIL_TEMPLATERow() As TBDD_EMAIL_TEMPLATERow Return CType(Me.NewRow,TBDD_EMAIL_TEMPLATERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_EMAIL_TEMPLATERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_EMAIL_TEMPLATERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_EMAIL_TEMPLATERowChangedEvent) Is Nothing) Then @@ -7788,7 +7789,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_EMAIL_TEMPLATERowChangingEvent) Is Nothing) Then @@ -7797,7 +7798,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_EMAIL_TEMPLATERowDeletedEvent) Is Nothing) Then @@ -7806,7 +7807,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_EMAIL_TEMPLATERowDeletingEvent) Is Nothing) Then @@ -7815,13 +7816,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_EMAIL_TEMPLATERow(ByVal row As TBDD_EMAIL_TEMPLATERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -7930,7 +7931,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnINTERNAL As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_GUI_LANGUAGE_PHRASE" @@ -7940,7 +7941,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -7958,14 +7959,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -7973,7 +7974,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property MODULEColumn() As Global.System.Data.DataColumn Get Return Me.columnMODULE @@ -7981,7 +7982,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTITLE @@ -7989,7 +7990,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANGUAGE @@ -7997,7 +7998,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CAPT_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnCAPT_TYPE @@ -8005,7 +8006,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property STRING1Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING1 @@ -8013,7 +8014,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property STRING2Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING2 @@ -8021,7 +8022,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property STRING3Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING3 @@ -8029,7 +8030,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property STRING4Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING4 @@ -8037,7 +8038,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property STRING5Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING5 @@ -8045,7 +8046,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property STRING6Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING6 @@ -8053,7 +8054,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -8061,7 +8062,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -8069,7 +8070,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -8077,7 +8078,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -8085,7 +8086,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property OBJ_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJ_NAME @@ -8093,7 +8094,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn Get Return Me.columnINTERNAL @@ -8101,7 +8102,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -8110,33 +8111,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GUI_LANGUAGE_PHRASERow Get Return CType(Me.Rows(index),TBDD_GUI_LANGUAGE_PHRASERow) End Get End Property - _ + _ Public Event TBDD_GUI_LANGUAGE_PHRASERowChanging As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler - _ + _ Public Event TBDD_GUI_LANGUAGE_PHRASERowChanged As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler - _ + _ Public Event TBDD_GUI_LANGUAGE_PHRASERowDeleting As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler - _ + _ Public Event TBDD_GUI_LANGUAGE_PHRASERowDeleted As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_GUI_LANGUAGE_PHRASERow(ByVal row As TBDD_GUI_LANGUAGE_PHRASERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBDD_GUI_LANGUAGE_PHRASERow( _ ByVal _MODULE As String, _ ByVal TITLE As String, _ @@ -8162,13 +8163,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GUI_LANGUAGE_PHRASERow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GUI_LANGUAGE_PHRASERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_GUI_LANGUAGE_PHRASEDataTable = CType(MyBase.Clone,TBDD_GUI_LANGUAGE_PHRASEDataTable) cln.InitVars @@ -8176,13 +8177,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_GUI_LANGUAGE_PHRASEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnMODULE = MyBase.Columns("MODULE") @@ -8204,7 +8205,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -8277,25 +8278,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_GUI_LANGUAGE_PHRASERow() As TBDD_GUI_LANGUAGE_PHRASERow Return CType(Me.NewRow,TBDD_GUI_LANGUAGE_PHRASERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_GUI_LANGUAGE_PHRASERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_GUI_LANGUAGE_PHRASERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowChangedEvent) Is Nothing) Then @@ -8304,7 +8305,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowChangingEvent) Is Nothing) Then @@ -8313,7 +8314,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowDeletedEvent) Is Nothing) Then @@ -8322,7 +8323,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowDeletingEvent) Is Nothing) Then @@ -8331,13 +8332,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_GUI_LANGUAGE_PHRASERow(ByVal row As TBDD_GUI_LANGUAGE_PHRASERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -8438,7 +8439,7 @@ Partial Public Class DD_DMSLiteDataSet Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_CONNECTION" @@ -8448,7 +8449,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -8466,14 +8467,14 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -8481,7 +8482,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -8489,7 +8490,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_PROVIDER @@ -8497,7 +8498,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get Return Me.columnSERVER @@ -8505,7 +8506,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get Return Me.columnDATENBANK @@ -8513,7 +8514,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME @@ -8521,7 +8522,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get Return Me.columnPASSWORD @@ -8529,7 +8530,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEMERKUNG @@ -8537,7 +8538,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV @@ -8545,7 +8546,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER @@ -8553,7 +8554,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN @@ -8561,7 +8562,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER @@ -8569,7 +8570,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -8577,7 +8578,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -8586,33 +8587,33 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_CONNECTIONRow Get Return CType(Me.Rows(index),TBWH_CONNECTIONRow) End Get End Property - _ + _ Public Event TBWH_CONNECTIONRowChanging As TBWH_CONNECTIONRowChangeEventHandler - _ + _ Public Event TBWH_CONNECTIONRowChanged As TBWH_CONNECTIONRowChangeEventHandler - _ + _ Public Event TBWH_CONNECTIONRowDeleting As TBWH_CONNECTIONRowChangeEventHandler - _ + _ Public Event TBWH_CONNECTIONRowDeleted As TBWH_CONNECTIONRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBWH_CONNECTIONRow(ByVal row As TBWH_CONNECTIONRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBWH_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBWH_CONNECTIONRow Dim rowTBWH_CONNECTIONRow As TBWH_CONNECTIONRow = CType(Me.NewRow,TBWH_CONNECTIONRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} @@ -8622,13 +8623,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Short) As TBWH_CONNECTIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_CONNECTIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_CONNECTIONDataTable = CType(MyBase.Clone,TBWH_CONNECTIONDataTable) cln.InitVars @@ -8636,13 +8637,13 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_CONNECTIONDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -8660,7 +8661,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -8710,25 +8711,25 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBWH_CONNECTIONRow() As TBWH_CONNECTIONRow Return CType(Me.NewRow,TBWH_CONNECTIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_CONNECTIONRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_CONNECTIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_CONNECTIONRowChangedEvent) Is Nothing) Then @@ -8737,7 +8738,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_CONNECTIONRowChangingEvent) Is Nothing) Then @@ -8746,7 +8747,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_CONNECTIONRowDeletedEvent) Is Nothing) Then @@ -8755,7 +8756,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_CONNECTIONRowDeletingEvent) Is Nothing) Then @@ -8764,13 +8765,13 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBWH_CONNECTIONRow(ByVal row As TBWH_CONNECTIONRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -8845,14 +8846,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_PROFILE_FINAL_INDEXING As TBPM_PROFILE_FINAL_INDEXINGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_PROFILE_FINAL_INDEXING = CType(Me.Table,TBPM_PROFILE_FINAL_INDEXINGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property INDEXNAME() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.INDEXNAMEColumn),String) @@ -8863,7 +8864,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property VALUE() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.VALUEColumn),String) @@ -8874,7 +8875,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHOColumn),String) @@ -8885,7 +8886,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHENColumn),Date) @@ -8896,7 +8897,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -8912,7 +8913,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -8928,7 +8929,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.GUIDColumn),Integer) @@ -8939,7 +8940,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CONNECTION_ID() As Short Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CONNECTION_IDColumn),Short) @@ -8950,7 +8951,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SQL_COMMAND() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.SQL_COMMANDColumn),String) @@ -8961,7 +8962,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DESCRIPTION() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn),String) @@ -8972,7 +8973,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn),Boolean) @@ -8983,7 +8984,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property IF_VEKTOR_BEHAVIOUR() As String Get Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOURColumn),String) @@ -8994,25 +8995,25 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -9027,14 +9028,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_KONFIGURATION As TBPM_KONFIGURATIONDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_KONFIGURATION = CType(Me.Table,TBPM_KONFIGURATIONDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Byte Get Return CType(Me(Me.tableTBPM_KONFIGURATION.GUIDColumn),Byte) @@ -9045,7 +9046,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property LIZENZEN() As String Get Try @@ -9060,7 +9061,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBPM_KONFIGURATION.ERFASSTWERColumn),String) @@ -9071,7 +9072,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWERColumn),String) @@ -9082,7 +9083,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWANNColumn),Date) @@ -9093,7 +9094,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -9108,7 +9109,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property INTERVALL_CKECK_NO_OF_FILES() As Short Get Return CType(Me(Me.tableTBPM_KONFIGURATION.INTERVALL_CKECK_NO_OF_FILESColumn),Short) @@ -9119,7 +9120,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -9134,7 +9135,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_ACTIVEColumn),Boolean) @@ -9145,7 +9146,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_FROM() As String Get Try @@ -9160,7 +9161,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_SMTP() As String Get Try @@ -9175,7 +9176,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_USER() As String Get Try @@ -9190,7 +9191,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_PW() As String Get Try @@ -9205,7 +9206,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_REMINDER_HEADER() As String Get Try @@ -9221,7 +9222,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_REMINDER_FOOTER() As String Get Try @@ -9237,7 +9238,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property VEKTOR_DELIMITER() As String Get Return CType(Me(Me.tableTBPM_KONFIGURATION.VEKTOR_DELIMITERColumn),String) @@ -9248,7 +9249,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADMIN_PW() As String Get Try @@ -9263,7 +9264,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADMIN_SECURITY() As Boolean Get Return CType(Me(Me.tableTBPM_KONFIGURATION.ADMIN_SECURITYColumn),Boolean) @@ -9274,121 +9275,121 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsLIZENZENNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetLIZENZENNull() Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAIL_FROMNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAIL_FROMNull() Me(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAIL_SMTPNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAIL_SMTPNull() Me(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAIL_USERNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAIL_USERNull() Me(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAIL_PWNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAIL_PWNull() Me(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAIL_REMINDER_HEADERNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAIL_REMINDER_HEADERNull() Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAIL_REMINDER_FOOTERNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAIL_REMINDER_FOOTERNull() Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADMIN_PWNull() As Boolean Return Me.IsNull(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADMIN_PWNull() Me(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) = Global.System.Convert.DBNull End Sub @@ -9403,14 +9404,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBDD_USER As TBDD_USERDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) @@ -9421,7 +9422,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PRENAME() As String Get Try @@ -9436,7 +9437,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get Try @@ -9451,7 +9452,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USERNAME() As String Get Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) @@ -9462,7 +9463,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL() As String Get Try @@ -9477,7 +9478,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) @@ -9488,7 +9489,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -9503,7 +9504,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -9518,7 +9519,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -9533,7 +9534,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -9548,7 +9549,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SHORTNAME() As String Get Try @@ -9563,97 +9564,97 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetPRENAMENull() Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAILNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAILNull() Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSHORTNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSHORTNAMENull() Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub @@ -9668,14 +9669,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_TYPE As TBPM_TYPEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_TYPE = CType(Me.Table,TBPM_TYPEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Short Get Return CType(Me(Me.tableTBPM_TYPE.GUIDColumn),Short) @@ -9686,7 +9687,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBPM_TYPE.BEZEICHNUNGColumn),String) @@ -9697,7 +9698,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPM_TYPE.ADDED_WHOColumn),String) @@ -9708,7 +9709,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPM_TYPE.ADDED_WHENColumn),Date) @@ -9719,7 +9720,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -9734,7 +9735,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -9749,31 +9750,31 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPM_TYPE.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPM_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPM_TYPE.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPM_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBPM_PROFILERows() As TBPM_PROFILERow() If (Me.Table.ChildRelations("FK_TBPM_PROFILE_TYPE1") Is Nothing) Then Return New TBPM_PROFILERow(-1) {} @@ -9792,14 +9793,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_ERROR_LOG As TBPM_ERROR_LOGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_ERROR_LOG = CType(Me.Table,TBPM_ERROR_LOGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPM_ERROR_LOG.GUIDColumn),Integer) @@ -9810,7 +9811,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PROFIL_ID() As Integer Get Return CType(Me(Me.tableTBPM_ERROR_LOG.PROFIL_IDColumn),Integer) @@ -9821,7 +9822,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERROR_MSG() As String Get Return CType(Me(Me.tableTBPM_ERROR_LOG.ERROR_MSGColumn),String) @@ -9832,7 +9833,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPM_ERROR_LOG.ADDED_WHOColumn),String) @@ -9843,7 +9844,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPM_ERROR_LOG.ADDED_WHENColumn),Date) @@ -9854,7 +9855,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBPM_PROFILERow() As TBPM_PROFILERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_ERROR_LOG_PROFILE1")),TBPM_PROFILERow) @@ -9874,14 +9875,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Short Get Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) @@ -9892,7 +9893,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Try @@ -9907,7 +9908,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SQL_PROVIDER() As String Get Try @@ -9922,7 +9923,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SERVER() As String Get Try @@ -9937,7 +9938,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DATENBANK() As String Get Try @@ -9952,7 +9953,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USERNAME() As String Get Try @@ -9967,7 +9968,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PASSWORD() As String Get Try @@ -9982,7 +9983,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BEMERKUNG() As String Get Try @@ -9997,7 +9998,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) @@ -10008,7 +10009,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) @@ -10019,7 +10020,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Try @@ -10034,7 +10035,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GEANDERTWER() As String Get Try @@ -10049,7 +10050,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -10064,7 +10065,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SYS_CONNECTION() As Boolean Get Return CType(Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn),Boolean) @@ -10075,121 +10076,121 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSQL_PROVIDERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSQL_PROVIDERNull() Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSERVERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSERVERNull() Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsDATENBANKNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetDATENBANKNull() Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUSERNAMENull() Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsPASSWORDNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetPASSWORDNull() Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsBEMERKUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetBEMERKUNGNull() Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub @@ -10204,14 +10205,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPROFILE_USER As TBPROFILE_USERDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPROFILE_USER = CType(Me.Table,TBPROFILE_USERDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPROFILE_USER.GUIDColumn),Integer) @@ -10222,7 +10223,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PRENAME() As String Get Try @@ -10237,7 +10238,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get Try @@ -10252,7 +10253,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USERNAME() As String Get Return CType(Me(Me.tableTBPROFILE_USER.USERNAMEColumn),String) @@ -10263,7 +10264,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL() As String Get Try @@ -10278,7 +10279,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -10293,7 +10294,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SHORTNAME() As String Get Try @@ -10308,61 +10309,61 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_USER.PRENAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetPRENAMENull() Me(Me.tableTBPROFILE_USER.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_USER.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBPROFILE_USER.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAILNull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_USER.EMAILColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAILNull() Me(Me.tableTBPROFILE_USER.EMAILColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_USER.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBPROFILE_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSHORTNAMENull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_USER.SHORTNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSHORTNAMENull() Me(Me.tableTBPROFILE_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub @@ -10377,14 +10378,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_PROFILE_FILES As TBPM_PROFILE_FILESDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_PROFILE_FILES = CType(Me.Table,TBPM_PROFILE_FILESDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE_FILES.GUIDColumn),Integer) @@ -10395,7 +10396,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property FILE_PATH() As String Get Try @@ -10410,7 +10411,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DMS_ERSTELLT_DATE() As Date Get Try @@ -10425,25 +10426,25 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsFILE_PATHNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetFILE_PATHNull() Me(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsDMS_ERSTELLT_DATENull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetDMS_ERSTELLT_DATENull() Me(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) = Global.System.Convert.DBNull End Sub @@ -10458,14 +10459,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_PROFILE As TBPM_PROFILEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_PROFILE = CType(Me.Table,TBPM_PROFILEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE.GUIDColumn),Integer) @@ -10476,7 +10477,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get Return CType(Me(Me.tableTBPM_PROFILE.NAMEColumn),String) @@ -10487,7 +10488,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TITLE() As String Get Return CType(Me(Me.tableTBPM_PROFILE.TITLEColumn),String) @@ -10498,7 +10499,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PRIORITY() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE.PRIORITYColumn),Integer) @@ -10509,7 +10510,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DESCRIPTION() As String Get Try @@ -10524,7 +10525,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE.ACTIVEColumn),Boolean) @@ -10535,7 +10536,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WD_SEARCH() As String Get Return CType(Me(Me.tableTBPM_PROFILE.WD_SEARCHColumn),String) @@ -10546,7 +10547,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NO_OF_DOCUMENTS() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE.NO_OF_DOCUMENTSColumn),Integer) @@ -10557,7 +10558,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn),String) @@ -10568,7 +10569,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn),Date) @@ -10579,7 +10580,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -10594,7 +10595,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -10609,7 +10610,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property FINAL_PROFILE() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE.FINAL_PROFILEColumn),Boolean) @@ -10620,7 +10621,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property FINAL_TEXT() As String Get Try @@ -10635,7 +10636,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property MOVE2FOLDER() As String Get Try @@ -10650,7 +10651,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TYPE() As Short Get Return CType(Me(Me.tableTBPM_PROFILE.TYPEColumn),Short) @@ -10661,7 +10662,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WD_OBJECTTYPE() As String Get Return CType(Me(Me.tableTBPM_PROFILE.WD_OBJECTTYPEColumn),String) @@ -10672,7 +10673,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SORT_BY_LATEST() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE.SORT_BY_LATESTColumn),Boolean) @@ -10683,7 +10684,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PM_VEKTOR_INDEX() As String Get Return CType(Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn),String) @@ -10694,7 +10695,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property LOG_INDEX() As String Get Return CType(Me(Me.tableTBPM_PROFILE.LOG_INDEXColumn),String) @@ -10705,7 +10706,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SQL_VIEW() As String Get Return CType(Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn),String) @@ -10716,7 +10717,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ANNOTATE_ALL_WORK_HISTORY_ENTRIES() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn),Boolean) @@ -10727,7 +10728,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ANNOTATE_WORK_HISTORY_ENTRY() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn),Boolean) @@ -10738,7 +10739,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WORK_HISTORY_ENTRY() As String Get Try @@ -10753,7 +10754,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DISPLAY_MODE() As String Get Return CType(Me(Me.tableTBPM_PROFILE.DISPLAY_MODEColumn),String) @@ -10764,7 +10765,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SQL_BTN_FINISH() As String Get Return CType(Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn),String) @@ -10775,7 +10776,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBPM_TYPERow() As TBPM_TYPERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_TYPE1")),TBPM_TYPERow) @@ -10786,79 +10787,79 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsDESCRIPTIONNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetDESCRIPTIONNull() Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsFINAL_TEXTNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetFINAL_TEXTNull() Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsMOVE2FOLDERNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetMOVE2FOLDERNull() Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsWORK_HISTORY_ENTRYNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetWORK_HISTORY_ENTRYNull() Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBPM_ERROR_LOGRows() As TBPM_ERROR_LOGRow() If (Me.Table.ChildRelations("FK_TBPM_ERROR_LOG_PROFILE1") Is Nothing) Then Return New TBPM_ERROR_LOGRow(-1) {} @@ -10868,7 +10869,7 @@ Partial Public Class DD_DMSLiteDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBPM_PROFILE_CONTROLSRows() As TBPM_PROFILE_CONTROLSRow() If (Me.Table.ChildRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1") Is Nothing) Then Return New TBPM_PROFILE_CONTROLSRow(-1) {} @@ -10887,14 +10888,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBWH_CHECK_PROFILE_CONTROLS As TBWH_CHECK_PROFILE_CONTROLSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_CHECK_PROFILE_CONTROLS = CType(Me.Table,TBWH_CHECK_PROFILE_CONTROLSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.GUIDColumn),Integer) @@ -10905,7 +10906,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.NAMEColumn),String) @@ -10916,7 +10917,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CTRL_TYPE() As String Get Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CTRL_TYPEColumn),String) @@ -10927,7 +10928,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property INDEX_NAME() As String Get Try @@ -10943,7 +10944,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TYP() As String Get Try @@ -10958,7 +10959,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property VALIDATION() As Boolean Get Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) @@ -10969,7 +10970,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHOICE_LIST() As String Get Try @@ -10985,7 +10986,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CONNECTION_ID() As Short Get Try @@ -11001,7 +11002,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SQL_UEBERPRUEFUNG() As String Get Try @@ -11017,67 +11018,67 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsINDEX_NAMENull() As Boolean Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetINDEX_NAMENull() Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsTYPNull() As Boolean Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetTYPNull() Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHOICE_LISTNull() As Boolean Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHOICE_LISTNull() Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCONNECTION_IDNull() As Boolean Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCONNECTION_IDNull() Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSQL_UEBERPRUEFUNGNull() Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow() If (Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL") Is Nothing) Then Return New TBPM_CONTROL_TABLERow(-1) {} @@ -11096,14 +11097,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_PROFILE_CONTROLS As TBPM_PROFILE_CONTROLSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_PROFILE_CONTROLS = CType(Me.Table,TBPM_PROFILE_CONTROLSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.GUIDColumn),Integer) @@ -11114,7 +11115,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PROFIL_ID() As Integer Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.PROFIL_IDColumn),Integer) @@ -11125,7 +11126,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.NAMEColumn),String) @@ -11136,7 +11137,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CTRL_TYPE() As String Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TYPEColumn),String) @@ -11147,7 +11148,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CTRL_TEXT() As String Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn),String) @@ -11158,7 +11159,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property X_LOC() As Double Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.X_LOCColumn),Double) @@ -11169,7 +11170,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property Y_LOC() As Double Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.Y_LOCColumn),Double) @@ -11180,7 +11181,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHOColumn),String) @@ -11191,7 +11192,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHENColumn),Date) @@ -11202,7 +11203,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -11217,7 +11218,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -11232,7 +11233,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property INDEX_NAME() As String Get Try @@ -11247,7 +11248,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TYP() As String Get Try @@ -11262,7 +11263,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property VALIDATION() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) @@ -11273,7 +11274,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHOICE_LIST() As String Get Try @@ -11288,7 +11289,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CONNECTION_ID() As Short Get Try @@ -11303,7 +11304,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SQL_UEBERPRUEFUNG() As String Get Try @@ -11319,7 +11320,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property HEIGHT() As Short Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.HEIGHTColumn),Short) @@ -11330,7 +11331,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WIDTH() As Short Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.WIDTHColumn),Short) @@ -11341,7 +11342,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property FONT_STYLE() As Short Get Try @@ -11356,7 +11357,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property FONT_SIZE() As Short Get Try @@ -11371,7 +11372,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property FONT_FAMILY() As String Get Try @@ -11386,7 +11387,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property FONT_COLOR() As Long Get Try @@ -11401,7 +11402,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property READ_ONLY() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.READ_ONLYColumn),Boolean) @@ -11412,7 +11413,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property LOAD_IDX_VALUE() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.LOAD_IDX_VALUEColumn),Boolean) @@ -11423,7 +11424,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DEFAULT_VALUE() As String Get Try @@ -11438,7 +11439,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property MULTISELECT() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.MULTISELECTColumn),Boolean) @@ -11449,7 +11450,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property VKT_ADD_ITEM() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_ADD_ITEMColumn),Boolean) @@ -11460,7 +11461,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean) @@ -11471,7 +11472,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property REGEX_MATCH() As String Get Try @@ -11486,7 +11487,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property REGEX_MESSAGE_DE() As String Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_DEColumn),String) @@ -11497,7 +11498,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property REGEX_MESSAGE_EN() As String Get Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_ENColumn),String) @@ -11508,7 +11509,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property IMAGE_CONTROL() As Byte() Get Try @@ -11523,7 +11524,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SQL2() As String Get Try @@ -11538,7 +11539,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SQL_ENABLE() As String Get Try @@ -11553,7 +11554,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SET_CONTROL_DATA() As String Get Try @@ -11569,7 +11570,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBPM_PROFILERow() As TBPM_PROFILERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")),TBPM_PROFILERow) @@ -11580,211 +11581,211 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsINDEX_NAMENull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetINDEX_NAMENull() Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsTYPNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetTYPNull() Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHOICE_LISTNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHOICE_LISTNull() Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCONNECTION_IDNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCONNECTION_IDNull() Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSQL_UEBERPRUEFUNGNull() Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsFONT_STYLENull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetFONT_STYLENull() Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsFONT_SIZENull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetFONT_SIZENull() Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsFONT_FAMILYNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetFONT_FAMILYNull() Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsFONT_COLORNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetFONT_COLORNull() Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsDEFAULT_VALUENull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetDEFAULT_VALUENull() Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsREGEX_MATCHNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetREGEX_MATCHNull() Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsIMAGE_CONTROLNull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetIMAGE_CONTROLNull() Me(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSQL2Null() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSQL2Null() Me(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSQL_ENABLENull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSQL_ENABLENull() Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSET_CONTROL_DATANull() As Boolean Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSET_CONTROL_DATANull() Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow() If (Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL1") Is Nothing) Then Return New TBPM_CONTROL_TABLERow(-1) {} @@ -11803,14 +11804,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_CONTROL_TABLE As TBPM_CONTROL_TABLEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPM_CONTROL_TABLE = CType(Me.Table,TBPM_CONTROL_TABLEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.GUIDColumn),Integer) @@ -11821,7 +11822,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CONTROL_ID() As Integer Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CONTROL_IDColumn),Integer) @@ -11832,7 +11833,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SPALTENNAME() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTENNAMEColumn),String) @@ -11843,7 +11844,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SPALTEN_HEADER() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTEN_HEADERColumn),String) @@ -11854,7 +11855,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SPALTENBREITE() As Integer Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTENBREITEColumn),Integer) @@ -11865,7 +11866,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property VALIDATION() As Boolean Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.VALIDATIONColumn),Boolean) @@ -11876,7 +11877,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHOICE_LIST() As String Get Try @@ -11891,7 +11892,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CONNECTION_ID() As Short Get Try @@ -11906,7 +11907,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SQL_COMMAND() As String Get Try @@ -11921,7 +11922,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property READ_ONLY() As Boolean Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.READ_ONLYColumn),Boolean) @@ -11932,7 +11933,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property LOAD_IDX_VALUE() As Boolean Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.LOAD_IDX_VALUEColumn),Boolean) @@ -11943,7 +11944,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHOColumn),String) @@ -11954,7 +11955,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHENColumn),Date) @@ -11965,7 +11966,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -11980,7 +11981,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -11995,7 +11996,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property REGEX_MATCH() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MATCHColumn),String) @@ -12006,7 +12007,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property REGEX_MESSAGE_EN() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_ENColumn),String) @@ -12017,7 +12018,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property REGEX_MESSAGE_DE() As String Get Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_DEColumn),String) @@ -12028,7 +12029,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBPM_PROFILE_CONTROLSRow() As TBPM_PROFILE_CONTROLSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL1")),TBPM_PROFILE_CONTROLSRow) @@ -12039,7 +12040,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBWH_CHECK_PROFILE_CONTROLSRow() As TBWH_CHECK_PROFILE_CONTROLSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL")),TBWH_CHECK_PROFILE_CONTROLSRow) @@ -12050,61 +12051,61 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHOICE_LISTNull() As Boolean Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHOICE_LISTNull() Me(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCONNECTION_IDNull() As Boolean Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCONNECTION_IDNull() Me(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSQL_COMMANDNull() As Boolean Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSQL_COMMANDNull() Me(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -12119,14 +12120,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBDD_GROUPS As TBDD_GROUPSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS.GUIDColumn),Integer) @@ -12137,7 +12138,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get Try @@ -12152,7 +12153,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ECM_FK_ID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn),Integer) @@ -12163,7 +12164,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property AD_SYNC() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.AD_SYNCColumn),Boolean) @@ -12174,7 +12175,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property INTERNAL() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.INTERNALColumn),Boolean) @@ -12185,7 +12186,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.ACTIVEColumn),Boolean) @@ -12196,7 +12197,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -12211,7 +12212,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -12226,7 +12227,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -12241,7 +12242,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -12256,7 +12257,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -12271,73 +12272,73 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -12352,14 +12353,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPROFILE_GROUP As TBPROFILE_GROUPDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPROFILE_GROUP = CType(Me.Table,TBPROFILE_GROUPDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPROFILE_GROUP.GUIDColumn),Integer) @@ -12370,7 +12371,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get Try @@ -12385,7 +12386,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPROFILE_GROUP.ACTIVEColumn),Boolean) @@ -12396,7 +12397,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -12411,7 +12412,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -12426,7 +12427,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -12441,7 +12442,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -12456,7 +12457,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -12471,73 +12472,73 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_GROUP.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBPROFILE_GROUP.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_GROUP.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBPROFILE_GROUP.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -12552,14 +12553,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableFNPM_GET_FREE_USER_FOR_PROFILE As FNPM_GET_FREE_USER_FOR_PROFILEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableFNPM_GET_FREE_USER_FOR_PROFILE = CType(Me.Table,FNPM_GET_FREE_USER_FOR_PROFILEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SequentialOrder() As Integer Get Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.SequentialOrderColumn),Integer) @@ -12570,7 +12571,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USER_ID() As Integer Get Try @@ -12586,7 +12587,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USER_NAME() As String Get Try @@ -12602,7 +12603,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USER_PRENAME() As String Get Try @@ -12618,7 +12619,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USER_SURNAME() As String Get Try @@ -12634,7 +12635,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USER_SHORTNAME() As String Get Try @@ -12650,7 +12651,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USER_EMAIL() As String Get Try @@ -12666,7 +12667,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USER_LANGUAGE() As String Get Try @@ -12682,7 +12683,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USER_COMMENT() As String Get Try @@ -12698,97 +12699,97 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUSER_IDNull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUSER_IDNull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUSER_NAMENull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUSER_NAMENull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUSER_PRENAMENull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUSER_PRENAMENull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUSER_SURNAMENull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUSER_SURNAMENull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUSER_SHORTNAMENull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUSER_SHORTNAMENull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUSER_EMAILNull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUSER_EMAILNull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUSER_LANGUAGENull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUSER_LANGUAGENull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUSER_COMMENTNull() As Boolean Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUSER_COMMENTNull() Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) = Global.System.Convert.DBNull End Sub @@ -12803,14 +12804,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBDD_EMAIL_TEMPLATE As TBDD_EMAIL_TEMPLATEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_EMAIL_TEMPLATE = CType(Me.Table,TBDD_EMAIL_TEMPLATEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.GUIDColumn),Integer) @@ -12821,7 +12822,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TITLE() As String Get Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.TITLEColumn),String) @@ -12832,7 +12833,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_SUBJECT() As String Get Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_SUBJECTColumn),String) @@ -12843,7 +12844,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_BODY1() As String Get Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY1Column),String) @@ -12854,7 +12855,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_BODY2() As String Get Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY2Column),String) @@ -12865,7 +12866,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_BODY3() As String Get Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY3Column),String) @@ -12876,7 +12877,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHOColumn),String) @@ -12887,7 +12888,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -12902,7 +12903,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -12917,7 +12918,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -12932,37 +12933,37 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -12977,14 +12978,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBDD_GUI_LANGUAGE_PHRASE As TBDD_GUI_LANGUAGE_PHRASEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_GUI_LANGUAGE_PHRASE = CType(Me.Table,TBDD_GUI_LANGUAGE_PHRASEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.GUIDColumn),Integer) @@ -12995,7 +12996,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property _MODULE() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.MODULEColumn),String) @@ -13006,7 +13007,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TITLE() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.TITLEColumn),String) @@ -13017,7 +13018,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property LANGUAGE() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.LANGUAGEColumn),String) @@ -13028,7 +13029,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CAPT_TYPE() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CAPT_TYPEColumn),String) @@ -13039,7 +13040,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property STRING1() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING1Column),String) @@ -13050,7 +13051,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property STRING2() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING2Column),String) @@ -13061,7 +13062,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property STRING3() As String Get Try @@ -13076,7 +13077,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property STRING4() As String Get Try @@ -13091,7 +13092,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property STRING5() As String Get Try @@ -13106,7 +13107,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property STRING6() As String Get Try @@ -13121,7 +13122,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHOColumn),String) @@ -13132,7 +13133,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -13147,7 +13148,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -13162,7 +13163,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -13177,7 +13178,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property OBJ_NAME() As String Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.OBJ_NAMEColumn),String) @@ -13188,7 +13189,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property INTERNAL() As Boolean Get Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.INTERNALColumn),Boolean) @@ -13199,85 +13200,85 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSTRING3Null() As Boolean Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING3Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSTRING3Null() Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING3Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSTRING4Null() As Boolean Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING4Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSTRING4Null() Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING4Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSTRING5Null() As Boolean Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING5Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSTRING5Null() Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING5Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSTRING6Null() As Boolean Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING6Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSTRING6Null() Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING6Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -13292,14 +13293,14 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_CONNECTION = CType(Me.Table,TBWH_CONNECTIONDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Short Get Return CType(Me(Me.tableTBWH_CONNECTION.GUIDColumn),Short) @@ -13310,7 +13311,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Try @@ -13325,7 +13326,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SQL_PROVIDER() As String Get Try @@ -13340,7 +13341,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SERVER() As String Get Try @@ -13355,7 +13356,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DATENBANK() As String Get Try @@ -13370,7 +13371,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USERNAME() As String Get Try @@ -13385,7 +13386,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PASSWORD() As String Get Try @@ -13400,7 +13401,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BEMERKUNG() As String Get Try @@ -13415,7 +13416,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBWH_CONNECTION.AKTIVColumn),Boolean) @@ -13426,7 +13427,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWERColumn),String) @@ -13437,7 +13438,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWANNColumn),Date) @@ -13448,7 +13449,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GEANDERTWER() As String Get Try @@ -13463,7 +13464,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -13478,109 +13479,109 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSQL_PROVIDERNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSQL_PROVIDERNull() Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSERVERNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.SERVERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSERVERNull() Me(Me.tableTBWH_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsDATENBANKNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.DATENBANKColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetDATENBANKNull() Me(Me.tableTBWH_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.USERNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUSERNAMENull() Me(Me.tableTBWH_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsPASSWORDNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.PASSWORDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetPASSWORDNull() Me(Me.tableTBWH_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsBEMERKUNGNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetBEMERKUNGNull() Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub @@ -13589,7 +13590,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent Inherits Global.System.EventArgs @@ -13598,7 +13599,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -13606,7 +13607,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBPM_PROFILE_FINAL_INDEXINGRow Get Return Me.eventRow @@ -13614,7 +13615,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -13625,7 +13626,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_KONFIGURATIONRowChangeEvent Inherits Global.System.EventArgs @@ -13634,7 +13635,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBPM_KONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -13642,7 +13643,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBPM_KONFIGURATIONRow Get Return Me.eventRow @@ -13650,7 +13651,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -13661,7 +13662,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_USERRowChangeEvent Inherits Global.System.EventArgs @@ -13670,7 +13671,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -13678,7 +13679,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_USERRow Get Return Me.eventRow @@ -13686,7 +13687,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -13697,7 +13698,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_TYPERowChangeEvent Inherits Global.System.EventArgs @@ -13706,7 +13707,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBPM_TYPERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -13714,7 +13715,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBPM_TYPERow Get Return Me.eventRow @@ -13722,7 +13723,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -13733,7 +13734,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_ERROR_LOGRowChangeEvent Inherits Global.System.EventArgs @@ -13742,7 +13743,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBPM_ERROR_LOGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -13750,7 +13751,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBPM_ERROR_LOGRow Get Return Me.eventRow @@ -13758,7 +13759,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -13769,7 +13770,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_CONNECTIONRowChangeEvent Inherits Global.System.EventArgs @@ -13778,7 +13779,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -13786,7 +13787,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_CONNECTIONRow Get Return Me.eventRow @@ -13794,7 +13795,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -13805,7 +13806,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPROFILE_USERRowChangeEvent Inherits Global.System.EventArgs @@ -13814,7 +13815,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBPROFILE_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -13822,7 +13823,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBPROFILE_USERRow Get Return Me.eventRow @@ -13830,7 +13831,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -13841,7 +13842,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_PROFILE_FILESRowChangeEvent Inherits Global.System.EventArgs @@ -13850,7 +13851,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBPM_PROFILE_FILESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -13858,7 +13859,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBPM_PROFILE_FILESRow Get Return Me.eventRow @@ -13866,7 +13867,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -13877,7 +13878,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_PROFILERowChangeEvent Inherits Global.System.EventArgs @@ -13886,7 +13887,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBPM_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -13894,7 +13895,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBPM_PROFILERow Get Return Me.eventRow @@ -13902,7 +13903,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -13913,7 +13914,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent Inherits Global.System.EventArgs @@ -13922,7 +13923,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -13930,7 +13931,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBWH_CHECK_PROFILE_CONTROLSRow Get Return Me.eventRow @@ -13938,7 +13939,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -13949,7 +13950,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_PROFILE_CONTROLSRowChangeEvent Inherits Global.System.EventArgs @@ -13958,7 +13959,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBPM_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -13966,7 +13967,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBPM_PROFILE_CONTROLSRow Get Return Me.eventRow @@ -13974,7 +13975,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -13985,7 +13986,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPM_CONTROL_TABLERowChangeEvent Inherits Global.System.EventArgs @@ -13994,7 +13995,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBPM_CONTROL_TABLERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -14002,7 +14003,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBPM_CONTROL_TABLERow Get Return Me.eventRow @@ -14010,7 +14011,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -14021,7 +14022,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_GROUPSRowChangeEvent Inherits Global.System.EventArgs @@ -14030,7 +14031,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -14038,7 +14039,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_GROUPSRow Get Return Me.eventRow @@ -14046,7 +14047,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -14057,7 +14058,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBPROFILE_GROUPRowChangeEvent Inherits Global.System.EventArgs @@ -14066,7 +14067,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBPROFILE_GROUPRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -14074,7 +14075,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBPROFILE_GROUPRow Get Return Me.eventRow @@ -14082,7 +14083,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -14093,7 +14094,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent Inherits Global.System.EventArgs @@ -14102,7 +14103,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -14110,7 +14111,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As FNPM_GET_FREE_USER_FOR_PROFILERow Get Return Me.eventRow @@ -14118,7 +14119,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -14129,7 +14130,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_EMAIL_TEMPLATERowChangeEvent Inherits Global.System.EventArgs @@ -14138,7 +14139,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_EMAIL_TEMPLATERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -14146,7 +14147,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_EMAIL_TEMPLATERow Get Return Me.eventRow @@ -14154,7 +14155,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -14165,7 +14166,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_GUI_LANGUAGE_PHRASERowChangeEvent Inherits Global.System.EventArgs @@ -14174,7 +14175,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_GUI_LANGUAGE_PHRASERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -14182,7 +14183,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_GUI_LANGUAGE_PHRASERow Get Return Me.eventRow @@ -14190,7 +14191,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -14201,7 +14202,7 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBWH_CONNECTIONRowChangeEvent Inherits Global.System.EventArgs @@ -14210,7 +14211,7 @@ Partial Public Class DD_DMSLiteDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBWH_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -14218,7 +14219,7 @@ Partial Public Class DD_DMSLiteDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBWH_CONNECTIONRow Get Return Me.eventRow @@ -14226,7 +14227,7 @@ Partial Public Class DD_DMSLiteDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -14260,14 +14261,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -14278,7 +14279,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -14308,7 +14309,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -14336,7 +14337,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -14347,7 +14348,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -14358,7 +14359,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -14403,14 +14404,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(6) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -14489,7 +14490,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal name As String) As Integer @@ -14507,7 +14508,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal name As String) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable @@ -14523,7 +14524,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal ID As Integer) As Integer @@ -14537,7 +14538,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByID(ByVal ID As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable @@ -14549,35 +14550,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_FINAL_INDEXING") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function CmdDelete(ByVal guid As Integer) As Integer @@ -14600,7 +14601,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdDelete_ProfilID(ByVal PROFIL_ID As Integer) As Integer @@ -14623,7 +14624,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdInsert(ByVal PROFIL_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal IF_VEKTOR_BEHAVIOUR As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) @@ -14671,7 +14672,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdInsert_Copy(ByVal NEW_PROFIL_ID As String, ByVal User As String, ByVal Copy_Profil_ID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) @@ -14703,7 +14704,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdateSQL(ByVal CON_ID As Short, ByVal COMMAND1 As String, ByVal WHO As String, ByVal IF_VEKTOR_BEHAVIOUR As String, ByVal GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) @@ -14764,14 +14765,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -14782,7 +14783,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -14812,7 +14813,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -14840,7 +14841,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -14851,7 +14852,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -14862,7 +14863,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -14936,14 +14937,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(7) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -15009,7 +15010,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable) As Integer @@ -15022,7 +15023,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable @@ -15033,35 +15034,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_KONFIGURATION") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function cmdGetAdminPW() As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -15087,7 +15088,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdGetAdminSecurity() As Global.System.Nullable(Of Boolean) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) @@ -15113,7 +15114,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdGetDelimiter() As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) @@ -15139,7 +15140,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdGetLizenz() As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) @@ -15165,7 +15166,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdSetAdminPW(ByVal ADMIN_PW As String) As Integer @@ -15192,7 +15193,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdateEmail(ByVal GEAENDERTWER As String, ByVal EMAIL_ACTIVE As Boolean, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal EMAIL_REMINDER_HEADER As String, ByVal EMAIL_REMINDER_FOOTER As String, ByVal Original_GUID As Byte, ByVal GUID As Byte) As Integer @@ -15252,7 +15253,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdUpdateLizenz(ByVal GEAENDERTWER As String, ByVal LIZENZEN As String) As Integer @@ -15307,14 +15308,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -15325,7 +15326,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -15355,7 +15356,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -15383,7 +15384,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -15394,7 +15395,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -15405,7 +15406,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -15491,14 +15492,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -15528,7 +15529,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable) As Integer @@ -15541,7 +15542,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_USERDataTable @@ -15552,7 +15553,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByProfileId_NotAssigned(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable, ByVal PROFILE_ID As Integer) As Integer @@ -15566,7 +15567,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByProfileId_NotAssigned(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.TBDD_USERDataTable @@ -15578,35 +15579,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_USER") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PRENAME As String, ByVal Original_NAME As String, ByVal Original_USERNAME As String, ByVal Original_EMAIL As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_COMMENT As String, ByVal Original_SHORTNAME As String) As Integer @@ -15693,7 +15694,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal COMMENT As String, ByVal SHORTNAME As String) As Integer @@ -15748,7 +15749,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal CHANGED_WHO As String, ByVal COMMENT As String, ByVal SHORTNAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -15828,14 +15829,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -15846,7 +15847,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -15876,7 +15877,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -15904,7 +15905,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -15915,7 +15916,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -15926,7 +15927,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -15996,14 +15997,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -16013,7 +16014,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable) As Integer @@ -16026,7 +16027,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_TYPEDataTable @@ -16037,35 +16038,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_TYPE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -16111,7 +16112,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -16152,7 +16153,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Short) As Integer @@ -16220,7 +16221,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -16251,14 +16252,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -16269,7 +16270,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -16299,7 +16300,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -16327,7 +16328,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -16338,7 +16339,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -16349,7 +16350,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -16398,14 +16399,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -16425,7 +16426,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable) As Integer @@ -16438,7 +16439,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable @@ -16449,35 +16450,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_ERROR_LOG") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -16498,7 +16499,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String) As Integer @@ -16529,7 +16530,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_PROFIL_ID As Integer, ByVal Original_ERROR_MSG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal GUID As Integer) As Integer @@ -16575,7 +16576,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_PROFIL_ID As Integer, ByVal Original_ERROR_MSG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date) As Integer @@ -16583,7 +16584,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdDelete() As Integer @@ -16605,7 +16606,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function DeletePROFIL(ByVal PROF_ID As Integer) As Integer @@ -16651,14 +16652,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -16669,7 +16670,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -16699,7 +16700,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -16727,7 +16728,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -16738,7 +16739,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -16749,7 +16750,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -16819,14 +16820,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -16865,7 +16866,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable) As Integer @@ -16878,7 +16879,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable @@ -16889,7 +16890,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable, ByVal ID As Short) As Integer @@ -16903,7 +16904,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByID(ByVal ID As Short) As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable @@ -16915,35 +16916,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Short) As Integer @@ -16964,7 +16965,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal SYS_CONNECTION As Boolean) As Integer @@ -17026,7 +17027,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal SYS_CONNECTION As Boolean, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer @@ -17090,7 +17091,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdInsert(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 SYS_CONNECTION As Boolean) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -17181,14 +17182,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -17199,7 +17200,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -17229,7 +17230,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -17257,7 +17258,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -17268,7 +17269,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -17279,7 +17280,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -17296,14 +17297,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -17337,7 +17338,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPROFILE_USERDataTable, ByVal profil_id As Integer) As Integer @@ -17351,7 +17352,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal profil_id As Integer) As DD_DMSLiteDataSet.TBPROFILE_USERDataTable @@ -17363,7 +17364,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdDelete(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer) As Integer @@ -17387,7 +17388,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdDeleteAllForProfile(ByVal PROFILE_ID As Integer) As Integer @@ -17410,7 +17411,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CMDInsert(ByVal PROFIL_ID As Integer, ByVal USER_ID As Integer, ByVal WHO As String) As Integer @@ -17462,14 +17463,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -17480,7 +17481,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -17510,7 +17511,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -17538,7 +17539,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -17549,7 +17550,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -17560,7 +17561,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -17589,14 +17590,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(5) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -17637,7 +17638,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable, ByVal Profil_id As Integer) As Integer @@ -17651,7 +17652,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal Profil_id As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable @@ -17663,35 +17664,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_FILES") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function cmdCheckEdit(ByVal AKTUELLE_ID As Integer) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -17718,7 +17719,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdCheckInWork(ByVal AKTUELLE_ID As Integer) As Global.System.Nullable(Of Boolean) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) @@ -17745,7 +17746,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdDelete(ByVal ID As Integer) As Integer @@ -17768,7 +17769,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdDeleteProfilData(ByVal PROFIL_ID As Integer) As Integer @@ -17791,7 +17792,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdSetEdit(ByVal GUID As Integer) As Integer @@ -17837,14 +17838,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -17855,7 +17856,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -17885,7 +17886,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -17913,7 +17914,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -17924,7 +17925,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -17935,7 +17936,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -18100,14 +18101,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(9) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -18193,7 +18194,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable) As Integer @@ -18206,7 +18207,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_PROFILEDataTable @@ -18217,35 +18218,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_PROFILE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete( _ @@ -18375,7 +18376,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert( _ @@ -18489,7 +18490,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -18613,7 +18614,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdAnzProfile() As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -18639,7 +18640,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdDelete(ByVal GUID As Integer) As Integer @@ -18662,7 +18663,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdFinalProfile(ByVal name As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) @@ -18693,7 +18694,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdInsert_Copy(ByVal COPY_SUFFIX As String, ByVal USER As String, ByVal GUID As Integer) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) @@ -18730,7 +18731,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdMaxGuid() As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) @@ -18756,7 +18757,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdProfileExists(ByVal NAME As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) @@ -18787,7 +18788,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdatelogIndex(ByVal LOG__INDEX As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -18816,7 +18817,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdateNo(ByVal NUMBER As Integer, ByVal WHO As String, ByVal GUID As Integer) As Integer @@ -18845,7 +18846,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdUpdateVKT_Index(ByVal PM_VEKTOR_INDEX As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -18897,14 +18898,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -18915,7 +18916,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -18945,7 +18946,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -18973,7 +18974,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -18984,7 +18985,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -18995,7 +18996,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -19014,14 +19015,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -19034,7 +19035,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable, ByVal P_ID As Integer) As Integer @@ -19048,7 +19049,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal P_ID As Integer) As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable @@ -19083,14 +19084,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -19101,7 +19102,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -19131,7 +19132,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -19159,7 +19160,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -19170,7 +19171,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -19181,7 +19182,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -19342,14 +19343,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(11) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -19461,7 +19462,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable, ByVal guid As Integer) As Integer @@ -19475,7 +19476,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal guid As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable @@ -19487,7 +19488,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByProfil(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable, ByVal USER_LANGUAGE As String, ByVal profil_id As Integer) As Integer @@ -19506,7 +19507,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByProfil(ByVal USER_LANGUAGE As String, ByVal profil_id As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable @@ -19523,35 +19524,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_CONTROLS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -19572,7 +19573,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert( _ @@ -19748,7 +19749,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -19914,7 +19915,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdControlExists(ByVal profilid As Integer, ByVal name As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -19946,7 +19947,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdDeleteProfil(ByVal PROFIL_ID As Integer) As Integer @@ -19969,7 +19970,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdGetChoiceListName(ByVal GUID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) @@ -19996,7 +19997,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdgetConnectionID(ByVal GUID As Integer) As Global.System.Nullable(Of Short) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) @@ -20023,7 +20024,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdGetGUID(ByVal profilid As Integer, ByVal name As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) @@ -20055,7 +20056,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdGetIndexname(ByVal GUID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) @@ -20082,7 +20083,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdGetSQL(ByVal Guid As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7) @@ -20109,7 +20110,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdInsertAnlage(ByVal PROFIL_ID As Integer, ByVal NAME As String, ByVal CTRL_TYPE As String, ByVal CTRL_TEXT As String, ByVal X_LOC As Double, ByVal Y_LOC As Double, ByVal ADDED_WHO As String, ByVal HEIGHT As Short, ByVal Width As Short) As Integer @@ -20156,7 +20157,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdInsertCopy() As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(9) @@ -20182,7 +20183,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdateIndexname(ByVal INDEX_NAME As String, ByVal G_WER As String, ByVal Original_GUID As Integer) As Integer @@ -20238,14 +20239,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -20256,7 +20257,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -20286,7 +20287,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -20314,7 +20315,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -20325,7 +20326,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -20336,7 +20337,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -20442,14 +20443,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(5) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -20512,7 +20513,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable, ByVal CONTROL_ID As Integer) As Integer @@ -20526,7 +20527,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal CONTROL_ID As Integer) As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable @@ -20538,7 +20539,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function FillAll(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable) As Integer @@ -20551,7 +20552,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataAll() As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable @@ -20562,7 +20563,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByGUID(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable, ByVal GUID As Integer) As Integer @@ -20576,7 +20577,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByGUID(ByVal GUID As Integer) As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable @@ -20588,35 +20589,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBPM_CONTROL_TABLE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal COLUMNID As Integer) As Integer @@ -20637,7 +20638,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal CONTROL_ID As Integer, ByVal SPALTENNAME As String, ByVal SPALTEN_HEADER As String, ByVal SPALTENBREITE As Integer, ByVal ADDED_WHO As String) As Integer @@ -20674,7 +20675,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -20828,7 +20829,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -20865,7 +20866,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdate(ByVal SPALTENNAME As String, ByVal SPALTEN_HEADER As String, ByVal SPALTENBREITE As Integer, ByVal VALIDATION As Boolean, ByVal READ_ONLY As Boolean, ByVal LOAD_IDX_VALUE As Boolean, ByVal CHANGED_WHO As String, ByVal REGEX_MATCH As String, ByVal REGEX_MESSAGE_EN As String, ByVal REGEX_MESSAGE_DE As String, ByVal Original_GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -20921,7 +20922,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function DeleteColumnsByControlId(ByVal CONTROL_ID As Integer) As Integer @@ -20944,7 +20945,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function getColumnID(ByVal control_id As Integer, ByVal spaltenname As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) @@ -20999,14 +21000,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -21017,7 +21018,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -21047,7 +21048,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -21075,7 +21076,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -21086,7 +21087,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -21097,7 +21098,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -21118,14 +21119,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -21144,7 +21145,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function FillByProfileId_NotAssigned(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GROUPSDataTable, ByVal PROFILE_ID As Integer) As Integer @@ -21158,7 +21159,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByProfileId_NotAssigned(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.TBDD_GROUPSDataTable @@ -21193,14 +21194,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -21211,7 +21212,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -21241,7 +21242,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -21269,7 +21270,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -21280,7 +21281,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -21291,7 +21292,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -21309,14 +21310,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -21350,7 +21351,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable, ByVal profil_id As Integer) As Integer @@ -21364,7 +21365,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal profil_id As Integer) As DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable @@ -21376,7 +21377,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdDelete(ByVal PROFIL_ID As Integer, ByVal GROUP_ID As Integer) As Integer @@ -21400,7 +21401,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdDeleteAllForProfile(ByVal PROFILE_ID As Integer) As Integer @@ -21423,7 +21424,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function CmdInsert(ByVal PROFIL_ID As Integer, ByVal GROUP_ID As Integer, ByVal WHO As String) As Integer @@ -21475,14 +21476,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -21493,7 +21494,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -21523,7 +21524,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -21551,7 +21552,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -21562,7 +21563,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -21573,7 +21574,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -21592,14 +21593,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -21612,7 +21613,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer @@ -21626,7 +21627,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable @@ -21661,14 +21662,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -21679,7 +21680,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -21709,7 +21710,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -21737,7 +21738,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -21748,7 +21749,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -21759,7 +21760,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -21816,14 +21817,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -21833,7 +21834,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable) As Integer @@ -21846,7 +21847,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable @@ -21857,35 +21858,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_EMAIL_TEMPLATE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -21906,7 +21907,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal ADDED_WHO As String) As Integer @@ -21956,7 +21957,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -22031,14 +22032,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -22049,7 +22050,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -22079,7 +22080,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -22107,7 +22108,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -22118,7 +22119,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -22129,7 +22130,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -22206,14 +22207,14 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -22226,7 +22227,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable) As Integer @@ -22239,7 +22240,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable @@ -22250,35 +22251,35 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_GUI_LANGUAGE_PHRASE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -22299,7 +22300,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal ADDED_WHO As String, ByVal INTERNAL As Boolean) As Integer @@ -22370,7 +22371,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal CHANGED_WHO As String, ByVal OBJ_NAME As String, ByVal INTERNAL As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -22490,7 +22491,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _connection As Global.System.Data.IDbConnection _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder @@ -22501,7 +22502,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -22515,7 +22516,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -22529,7 +22530,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -22543,7 +22544,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -22557,7 +22558,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -22571,7 +22572,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -22585,7 +22586,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -22599,7 +22600,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -22613,7 +22614,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -22627,7 +22628,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -22641,7 +22642,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -22655,7 +22656,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ @@ -22669,7 +22670,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -22680,7 +22681,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get @@ -22743,7 +22744,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get @@ -22792,7 +22793,7 @@ Namespace DD_DMSLiteDataSetTableAdapters '''Update rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As DD_DMSLiteDataSet, 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._tBPM_TYPETableAdapter) Is Nothing) Then @@ -22910,7 +22911,7 @@ Namespace DD_DMSLiteDataSetTableAdapters '''Insert rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As DD_DMSLiteDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPM_TYPETableAdapter) Is Nothing) Then @@ -23016,7 +23017,7 @@ Namespace DD_DMSLiteDataSetTableAdapters '''Delete rows in bottom-up order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSLiteDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter) Is Nothing) Then @@ -23122,7 +23123,7 @@ Namespace DD_DMSLiteDataSetTableAdapters '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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) _ OrElse (updatedRows.Length < 1)) Then @@ -23148,7 +23149,7 @@ Namespace DD_DMSLiteDataSetTableAdapters '''Update all changes to the dataset. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As DD_DMSLiteDataSet) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -23481,13 +23482,13 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true @@ -23505,7 +23506,7 @@ Namespace DD_DMSLiteDataSetTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -23516,7 +23517,7 @@ Namespace DD_DMSLiteDataSetTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -23526,7 +23527,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _childFirst As Integer _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation @@ -23538,7 +23539,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 @@ -23577,7 +23578,7 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index c866548..bc7c174 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -2016,7 +2016,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2076,7 +2076,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2172,7 +2172,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2237,7 +2237,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2267,7 +2267,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2290,7 +2290,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2364,7 +2364,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2413,7 +2413,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2428,7 +2428,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2540,7 +2540,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2550,7 +2550,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2623,7 +2623,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2674,7 +2674,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2812,7 +2812,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2890,7 +2890,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2931,7 +2931,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2969,7 +2969,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -3026,7 +3026,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -3084,7 +3084,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -3266,11 +3266,11 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - - - - - + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index 6791efa..0d50fe5 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -4,7 +4,7 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + @@ -14,7 +14,7 @@ - + @@ -30,7 +30,7 @@ 549 - 316 + 315 549 @@ -50,7 +50,7 @@ 448 - 316 + 315 @@ -58,11 +58,11 @@ 603 - 501 + 500 947 - 501 + 500 diff --git a/app/DD_PM_WINDREAM/clsPatterns.vb b/app/DD_PM_WINDREAM/clsPatterns.vb index 46edfc2..d852e1a 100644 --- a/app/DD_PM_WINDREAM/clsPatterns.vb +++ b/app/DD_PM_WINDREAM/clsPatterns.vb @@ -58,7 +58,10 @@ Public Class clsPatterns result = ReplaceInternalValues(result) result = ReplaceControlValues(result, panel) If Not IsNothing(document) Then result = ReplaceWindreamIndicies(result, document) - result = ReplaceIDBAttributes(result) + If IDB_ACTIVE = True Then + result = ReplaceIDBAttributes(result) + End If + result = ReplaceUserValues(result, prename, surname, shortname, language, email, userId, profileId) LOGGER.Debug($"inputString AFTER replacing: [{result}]") Return result diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index 995458c..0576536 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -36,12 +36,6 @@ Partial Class frmAdministration Dim INTERVALL_CKECK_NO_OF_FILESLabel As System.Windows.Forms.Label Dim GEAENDERTWERLabel As System.Windows.Forms.Label Dim GEAENDERTWANNLabel As System.Windows.Forms.Label - Dim EMAIL_FROMLabel As System.Windows.Forms.Label - Dim EMAIL_SMTPLabel As System.Windows.Forms.Label - Dim EMAIL_USERLabel As System.Windows.Forms.Label - Dim EMAIL_PWLabel As System.Windows.Forms.Label - Dim EMAIL_REMINDER_HEADERLabel As System.Windows.Forms.Label - Dim EMAIL_REMINDER_FOOTERLabel As System.Windows.Forms.Label Dim VEKTOR_DELIMITERLabel As System.Windows.Forms.Label Dim WORK_HISTORY_ENTRYLabel As System.Windows.Forms.Label Dim SQL_VIEWLabel As System.Windows.Forms.Label @@ -197,7 +191,6 @@ Partial Class frmAdministration Me.gridAvailableProfiles = New DevExpress.XtraGrid.GridControl() Me.viewAvailableProfiles = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colNAME1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colDESCRIPTION = New DevExpress.XtraGrid.Columns.GridColumn() Me.Label21 = New System.Windows.Forms.Label() Me.TabControl3 = New System.Windows.Forms.TabControl() Me.TabPage7 = New System.Windows.Forms.TabPage() @@ -210,18 +203,6 @@ Partial Class frmAdministration Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.btnConnections = New System.Windows.Forms.Button() Me.btnopen_SQLAdmin = New System.Windows.Forms.Button() - Me.EMAIL_ACTIVECheckBox = New System.Windows.Forms.CheckBox() - Me.grpbxEmail = New System.Windows.Forms.GroupBox() - Me.GroupBox5 = New System.Windows.Forms.GroupBox() - Me.txtemailEmpfaenger = New System.Windows.Forms.TextBox() - Me.Label8 = New System.Windows.Forms.Label() - Me.btnTest_Email = New System.Windows.Forms.Button() - Me.EMAIL_REMINDER_FOOTERTextBox = New System.Windows.Forms.TextBox() - Me.EMAIL_REMINDER_HEADERTextBox = New System.Windows.Forms.TextBox() - Me.EMAIL_PWTextBox = New System.Windows.Forms.TextBox() - Me.EMAIL_USERTextBox = New System.Windows.Forms.TextBox() - Me.EMAIL_SMTPTextBox = New System.Windows.Forms.TextBox() - Me.EMAIL_FROMTextBox = New System.Windows.Forms.TextBox() Me.btnlicensemanager_open = New System.Windows.Forms.Button() Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown = New System.Windows.Forms.NumericUpDown() Me.Label3 = New System.Windows.Forms.Label() @@ -258,12 +239,6 @@ Partial Class frmAdministration INTERVALL_CKECK_NO_OF_FILESLabel = New System.Windows.Forms.Label() GEAENDERTWERLabel = New System.Windows.Forms.Label() GEAENDERTWANNLabel = New System.Windows.Forms.Label() - EMAIL_FROMLabel = New System.Windows.Forms.Label() - EMAIL_SMTPLabel = New System.Windows.Forms.Label() - EMAIL_USERLabel = New System.Windows.Forms.Label() - EMAIL_PWLabel = New System.Windows.Forms.Label() - EMAIL_REMINDER_HEADERLabel = New System.Windows.Forms.Label() - EMAIL_REMINDER_FOOTERLabel = New System.Windows.Forms.Label() VEKTOR_DELIMITERLabel = New System.Windows.Forms.Label() WORK_HISTORY_ENTRYLabel = New System.Windows.Forms.Label() SQL_VIEWLabel = New System.Windows.Forms.Label() @@ -329,8 +304,6 @@ Partial Class frmAdministration Me.TabPage8.SuspendLayout() Me.TabPage3.SuspendLayout() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.grpbxEmail.SuspendLayout() - Me.GroupBox5.SuspendLayout() CType(Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -695,36 +668,6 @@ Partial Class frmAdministration resources.ApplyResources(GEAENDERTWANNLabel, "GEAENDERTWANNLabel") GEAENDERTWANNLabel.Name = "GEAENDERTWANNLabel" ' - 'EMAIL_FROMLabel - ' - resources.ApplyResources(EMAIL_FROMLabel, "EMAIL_FROMLabel") - EMAIL_FROMLabel.Name = "EMAIL_FROMLabel" - ' - 'EMAIL_SMTPLabel - ' - resources.ApplyResources(EMAIL_SMTPLabel, "EMAIL_SMTPLabel") - EMAIL_SMTPLabel.Name = "EMAIL_SMTPLabel" - ' - 'EMAIL_USERLabel - ' - resources.ApplyResources(EMAIL_USERLabel, "EMAIL_USERLabel") - EMAIL_USERLabel.Name = "EMAIL_USERLabel" - ' - 'EMAIL_PWLabel - ' - resources.ApplyResources(EMAIL_PWLabel, "EMAIL_PWLabel") - EMAIL_PWLabel.Name = "EMAIL_PWLabel" - ' - 'EMAIL_REMINDER_HEADERLabel - ' - resources.ApplyResources(EMAIL_REMINDER_HEADERLabel, "EMAIL_REMINDER_HEADERLabel") - EMAIL_REMINDER_HEADERLabel.Name = "EMAIL_REMINDER_HEADERLabel" - ' - 'EMAIL_REMINDER_FOOTERLabel - ' - resources.ApplyResources(EMAIL_REMINDER_FOOTERLabel, "EMAIL_REMINDER_FOOTERLabel") - EMAIL_REMINDER_FOOTERLabel.Name = "EMAIL_REMINDER_FOOTERLabel" - ' 'VEKTOR_DELIMITERLabel ' resources.ApplyResources(VEKTOR_DELIMITERLabel, "VEKTOR_DELIMITERLabel") @@ -1518,13 +1461,16 @@ Partial Class frmAdministration ' 'viewAvailableProfiles ' - Me.viewAvailableProfiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME1, Me.colDESCRIPTION}) + Me.viewAvailableProfiles.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua + Me.viewAvailableProfiles.Appearance.EvenRow.Options.UseBackColor = True + Me.viewAvailableProfiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME1}) Me.viewAvailableProfiles.DetailHeight = 295 Me.viewAvailableProfiles.GridControl = Me.gridAvailableProfiles Me.viewAvailableProfiles.Name = "viewAvailableProfiles" Me.viewAvailableProfiles.OptionsBehavior.Editable = False Me.viewAvailableProfiles.OptionsBehavior.ReadOnly = True Me.viewAvailableProfiles.OptionsDetail.EnableMasterViewMode = False + Me.viewAvailableProfiles.OptionsView.EnableAppearanceEvenRow = True Me.viewAvailableProfiles.OptionsView.ShowAutoFilterRow = True Me.viewAvailableProfiles.OptionsView.ShowGroupPanel = False ' @@ -1535,13 +1481,6 @@ Partial Class frmAdministration Me.colNAME1.MinWidth = 16 Me.colNAME1.Name = "colNAME1" ' - 'colDESCRIPTION - ' - resources.ApplyResources(Me.colDESCRIPTION, "colDESCRIPTION") - Me.colDESCRIPTION.FieldName = "DESCRIPTION" - Me.colDESCRIPTION.MinWidth = 16 - Me.colDESCRIPTION.Name = "colDESCRIPTION" - ' 'Label21 ' resources.ApplyResources(Me.Label21, "Label21") @@ -1578,8 +1517,6 @@ Partial Class frmAdministration Me.TabPage3.Controls.Add(Me.VEKTOR_DELIMITERTextBox) Me.TabPage3.Controls.Add(Me.btnConnections) Me.TabPage3.Controls.Add(Me.btnopen_SQLAdmin) - Me.TabPage3.Controls.Add(Me.EMAIL_ACTIVECheckBox) - Me.TabPage3.Controls.Add(Me.grpbxEmail) Me.TabPage3.Controls.Add(Me.btnlicensemanager_open) Me.TabPage3.Controls.Add(INTERVALL_CKECK_NO_OF_FILESLabel) Me.TabPage3.Controls.Add(Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown) @@ -1640,96 +1577,6 @@ Partial Class frmAdministration Me.btnopen_SQLAdmin.Name = "btnopen_SQLAdmin" Me.btnopen_SQLAdmin.UseVisualStyleBackColor = True ' - 'EMAIL_ACTIVECheckBox - ' - Me.EMAIL_ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_KONFIGURATIONBindingSource, "EMAIL_ACTIVE", True)) - resources.ApplyResources(Me.EMAIL_ACTIVECheckBox, "EMAIL_ACTIVECheckBox") - Me.EMAIL_ACTIVECheckBox.Name = "EMAIL_ACTIVECheckBox" - Me.EMAIL_ACTIVECheckBox.UseVisualStyleBackColor = True - ' - 'grpbxEmail - ' - Me.grpbxEmail.Controls.Add(Me.GroupBox5) - Me.grpbxEmail.Controls.Add(EMAIL_REMINDER_FOOTERLabel) - Me.grpbxEmail.Controls.Add(Me.EMAIL_REMINDER_FOOTERTextBox) - Me.grpbxEmail.Controls.Add(EMAIL_REMINDER_HEADERLabel) - Me.grpbxEmail.Controls.Add(Me.EMAIL_REMINDER_HEADERTextBox) - Me.grpbxEmail.Controls.Add(EMAIL_PWLabel) - Me.grpbxEmail.Controls.Add(Me.EMAIL_PWTextBox) - Me.grpbxEmail.Controls.Add(EMAIL_USERLabel) - Me.grpbxEmail.Controls.Add(Me.EMAIL_USERTextBox) - Me.grpbxEmail.Controls.Add(EMAIL_SMTPLabel) - Me.grpbxEmail.Controls.Add(Me.EMAIL_SMTPTextBox) - Me.grpbxEmail.Controls.Add(EMAIL_FROMLabel) - Me.grpbxEmail.Controls.Add(Me.EMAIL_FROMTextBox) - resources.ApplyResources(Me.grpbxEmail, "grpbxEmail") - Me.grpbxEmail.Name = "grpbxEmail" - Me.grpbxEmail.TabStop = False - ' - 'GroupBox5 - ' - Me.GroupBox5.Controls.Add(Me.txtemailEmpfaenger) - Me.GroupBox5.Controls.Add(Me.Label8) - Me.GroupBox5.Controls.Add(Me.btnTest_Email) - Me.GroupBox5.ForeColor = System.Drawing.Color.Blue - resources.ApplyResources(Me.GroupBox5, "GroupBox5") - Me.GroupBox5.Name = "GroupBox5" - Me.GroupBox5.TabStop = False - ' - 'txtemailEmpfaenger - ' - resources.ApplyResources(Me.txtemailEmpfaenger, "txtemailEmpfaenger") - Me.txtemailEmpfaenger.Name = "txtemailEmpfaenger" - ' - 'Label8 - ' - resources.ApplyResources(Me.Label8, "Label8") - Me.Label8.Name = "Label8" - ' - 'btnTest_Email - ' - resources.ApplyResources(Me.btnTest_Email, "btnTest_Email") - Me.btnTest_Email.Image = Global.DD_ProcessManager.My.Resources.Resources.email_go - Me.btnTest_Email.Name = "btnTest_Email" - Me.btnTest_Email.UseVisualStyleBackColor = True - ' - 'EMAIL_REMINDER_FOOTERTextBox - ' - Me.EMAIL_REMINDER_FOOTERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_KONFIGURATIONBindingSource, "EMAIL_REMINDER_FOOTER", True)) - resources.ApplyResources(Me.EMAIL_REMINDER_FOOTERTextBox, "EMAIL_REMINDER_FOOTERTextBox") - Me.EMAIL_REMINDER_FOOTERTextBox.Name = "EMAIL_REMINDER_FOOTERTextBox" - ' - 'EMAIL_REMINDER_HEADERTextBox - ' - Me.EMAIL_REMINDER_HEADERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_KONFIGURATIONBindingSource, "EMAIL_REMINDER_HEADER", True)) - resources.ApplyResources(Me.EMAIL_REMINDER_HEADERTextBox, "EMAIL_REMINDER_HEADERTextBox") - Me.EMAIL_REMINDER_HEADERTextBox.Name = "EMAIL_REMINDER_HEADERTextBox" - ' - 'EMAIL_PWTextBox - ' - Me.EMAIL_PWTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_KONFIGURATIONBindingSource, "EMAIL_PW", True)) - resources.ApplyResources(Me.EMAIL_PWTextBox, "EMAIL_PWTextBox") - Me.EMAIL_PWTextBox.Name = "EMAIL_PWTextBox" - Me.EMAIL_PWTextBox.UseSystemPasswordChar = True - ' - 'EMAIL_USERTextBox - ' - Me.EMAIL_USERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_KONFIGURATIONBindingSource, "EMAIL_USER", True)) - resources.ApplyResources(Me.EMAIL_USERTextBox, "EMAIL_USERTextBox") - Me.EMAIL_USERTextBox.Name = "EMAIL_USERTextBox" - ' - 'EMAIL_SMTPTextBox - ' - Me.EMAIL_SMTPTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_KONFIGURATIONBindingSource, "EMAIL_SMTP", True)) - resources.ApplyResources(Me.EMAIL_SMTPTextBox, "EMAIL_SMTPTextBox") - Me.EMAIL_SMTPTextBox.Name = "EMAIL_SMTPTextBox" - ' - 'EMAIL_FROMTextBox - ' - Me.EMAIL_FROMTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_KONFIGURATIONBindingSource, "EMAIL_FROM", True)) - resources.ApplyResources(Me.EMAIL_FROMTextBox, "EMAIL_FROMTextBox") - Me.EMAIL_FROMTextBox.Name = "EMAIL_FROMTextBox" - ' 'btnlicensemanager_open ' Me.btnlicensemanager_open.Image = Global.DD_ProcessManager.My.Resources.Resources.key @@ -1925,10 +1772,6 @@ Partial Class frmAdministration Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.grpbxEmail.ResumeLayout(False) - Me.grpbxEmail.PerformLayout() - Me.GroupBox5.ResumeLayout(False) - Me.GroupBox5.PerformLayout() CType(Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() @@ -1996,7 +1839,6 @@ Partial Class frmAdministration Friend WithEvents TBDD_USERTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter Friend WithEvents TabPage3 As System.Windows.Forms.TabPage Friend WithEvents btnlicensemanager_open As System.Windows.Forms.Button - Friend WithEvents grpbxEmail As System.Windows.Forms.GroupBox Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter Friend WithEvents INTERVALL_CKECK_NO_OF_FILESNumericUpDown As System.Windows.Forms.NumericUpDown @@ -2019,17 +1861,6 @@ Partial Class frmAdministration Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator Friend WithEvents tsbtndeleteProfil As System.Windows.Forms.ToolStripButton - Friend WithEvents EMAIL_REMINDER_FOOTERTextBox As System.Windows.Forms.TextBox - Friend WithEvents EMAIL_REMINDER_HEADERTextBox As System.Windows.Forms.TextBox - Friend WithEvents EMAIL_PWTextBox As System.Windows.Forms.TextBox - Friend WithEvents EMAIL_USERTextBox As System.Windows.Forms.TextBox - Friend WithEvents EMAIL_SMTPTextBox As System.Windows.Forms.TextBox - Friend WithEvents EMAIL_FROMTextBox As System.Windows.Forms.TextBox - Friend WithEvents btnTest_Email As System.Windows.Forms.Button - Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox - Friend WithEvents txtemailEmpfaenger As System.Windows.Forms.TextBox - Friend WithEvents Label8 As System.Windows.Forms.Label - Friend WithEvents EMAIL_ACTIVECheckBox As System.Windows.Forms.CheckBox Friend WithEvents PM_VEKTOR_INDEXComboBox As System.Windows.Forms.ComboBox Friend WithEvents btnopen_SQLAdmin As System.Windows.Forms.Button Friend WithEvents btnRefreshProfiles As System.Windows.Forms.ToolStripButton @@ -2055,7 +1886,6 @@ Partial Class frmAdministration Friend WithEvents WORK_HISTORY_ENTRYTextBox As TextBox Friend WithEvents gridAvailableProfiles As DevExpress.XtraGrid.GridControl Friend WithEvents viewAvailableProfiles As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents colDESCRIPTION As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNAME1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents gridAssignedUsers As DevExpress.XtraGrid.GridControl Friend WithEvents viewAssignedUsers As DevExpress.XtraGrid.Views.Grid.GridView diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index 124212a..bbc4b9d 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -247,7 +247,7 @@ 58 - 901, 272 + 979, 272 3 @@ -301,7 +301,7 @@ 0, 0 - 901, 25 + 979, 25 4 @@ -415,7 +415,7 @@ 58 - 901, 239 + 979, 239 5 @@ -469,7 +469,7 @@ 0, 0 - 901, 25 + 979, 25 6 @@ -499,7 +499,7 @@ 1 - 901, 565 + 979, 565 297 @@ -565,7 +565,7 @@ 58 - 901, 271 + 979, 271 3 @@ -622,7 +622,7 @@ 0, 0 - 901, 25 + 979, 25 4 @@ -688,7 +688,7 @@ 58 - 901, 240 + 979, 240 0 @@ -745,7 +745,7 @@ 0, 0 - 901, 25 + 979, 25 6 @@ -775,7 +775,7 @@ 1 - 901, 565 + 979, 565 296 @@ -1081,7 +1081,7 @@ TabPage3 - 10 + 8 False @@ -1090,7 +1090,7 @@ True - 646, 284 + 18, 172 91, 16 @@ -1111,7 +1111,7 @@ TabPage3 - 15 + 13 False @@ -1120,7 +1120,7 @@ True - 646, 329 + 219, 172 100, 16 @@ -1141,188 +1141,8 @@ TabPage3 - 13 - - - False - - - True - - - 6, 23 - - - 79, 16 - - - 8 - - - e-Mail from: - - - EMAIL_FROMLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - 11 - - False - - - True - - - 7, 68 - - - 89, 16 - - - 10 - - - SMTP-Server: - - - EMAIL_SMTPLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 9 - - - False - - - True - - - 6, 113 - - - 78, 16 - - - 12 - - - e-Mail User: - - - EMAIL_USERLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 7 - - - False - - - True - - - 304, 113 - - - 107, 16 - - - 14 - - - e-Mail Password: - - - EMAIL_PWLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 5 - - - False - - - True - - - 7, 158 - - - 257, 16 - - - 16 - - - e-Mail Header-Meldung - nur für Reminder: - - - EMAIL_REMINDER_HEADERLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 3 - - - False - - - True - - - 7, 239 - - - 200, 16 - - - 18 - - - e-Mail Footer - nur für Reminder: - - - EMAIL_REMINDER_FOOTERLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 1 - False @@ -1505,6 +1325,9 @@ False + + Segoe UI, 9pt + 58, 23 @@ -2546,7 +2369,7 @@ Neue Werte erlauben - 627, 308 + 627, 314 93 @@ -2573,7 +2396,7 @@ 627, 0 - 323, 308 + 323, 314 91 @@ -2594,7 +2417,7 @@ 3, 166 - 950, 308 + 950, 314 94 @@ -2682,6 +2505,9 @@ False + + Segoe UI, 9pt + 50, 23 @@ -3231,31 +3057,19 @@ 0, 25 - Name + Profil-Name True - 1 - - - 58 - - - Beschreibung - - - True - - 0 - + 58 - 347, 575 + 269, 575 2 @@ -3279,7 +3093,7 @@ 0, 0 - 347, 25 + 269, 25 3 @@ -3321,7 +3135,7 @@ 3, 3, 3, 3 - 907, 571 + 985, 571 0 @@ -3348,7 +3162,7 @@ 3, 3, 3, 3 - 907, 571 + 985, 571 1 @@ -3375,7 +3189,7 @@ 0, 0 - 915, 600 + 993, 600 1 @@ -3408,7 +3222,7 @@ 1266, 600 - 347 + 269 0 @@ -3459,7 +3273,7 @@ NoControl - 649, 234 + 376, 126 172, 34 @@ -3492,7 +3306,7 @@ NoControl - 649, 194 + 198, 126 172, 34 @@ -3522,7 +3336,7 @@ MiddleLeft - 649, 149 + 20, 126 172, 34 @@ -3576,7 +3390,7 @@ MiddleLeft - 649, 64 + 198, 90 172, 30 @@ -3606,7 +3420,7 @@ MiddleLeft - 649, 104 + 376, 90 172, 30 @@ -3632,299 +3446,11 @@ 6 - - 463, 32 - - - 162, 24 - - - 11 - - - Email Meldungen Aktiv - - - EMAIL_ACTIVECheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 7 - - - 112, 19 - - - 185, 23 - - - 22 - - - txtemailEmpfaenger - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox5 - - - 0 - - - True - - - 6, 22 - - - 100, 16 - - - 21 - - - Testempfänger: - - - Label8 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox5 - - - 1 - - - Tahoma, 9.75pt, style=Bold - - - MiddleLeft - - - 112, 51 - - - 185, 30 - - - 20 - - - Email testen - - - MiddleRight - - - btnTest_Email - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox5 - - - 2 - - - 307, 23 - - - 303, 87 - - - 21 - - - Email testen - - - GroupBox5 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 0 - - - 10, 258 - - - True - - - 600, 60 - - - 19 - - - EMAIL_REMINDER_FOOTERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 2 - - - 10, 177 - - - True - - - 600, 59 - - - 17 - - - EMAIL_REMINDER_HEADERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 4 - - - 307, 132 - - - 146, 23 - - - 15 - - - EMAIL_PWTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 6 - - - 10, 132 - - - 288, 23 - - - 13 - - - EMAIL_USERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 8 - - - 10, 87 - - - 288, 23 - - - 11 - - - EMAIL_SMTPTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 10 - - - 9, 42 - - - 289, 23 - - - 9 - - - EMAIL_FROMTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 12 - - - False - - - 21, 90 - - - 622, 324 - - - 1 - - - E-Mail Konfiguration - - - grpbxEmail - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 8 - MiddleLeft - 649, 28 + 20, 90 172, 30 @@ -3948,7 +3474,7 @@ TabPage3 - 9 + 7 20, 33 @@ -3969,7 +3495,7 @@ TabPage3 - 11 + 9 True @@ -3996,10 +3522,10 @@ TabPage3 - 12 + 10 - 649, 303 + 21, 191 190, 23 @@ -4017,10 +3543,10 @@ TabPage3 - 14 + 12 - 649, 348 + 222, 191 190, 23 @@ -4038,16 +3564,16 @@ TabPage3 - 16 + 14 MiddleLeft - 649, 377 + 20, 220 - 203, 31 + 320, 31 7 @@ -4068,7 +3594,7 @@ TabPage3 - 17 + 15 4, 25 @@ -4831,12 +4357,6 @@ DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - colDESCRIPTION - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - TBPM_KONFIGURATIONBindingSource diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index 28663d6..06ab336 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -79,6 +79,10 @@ Public Class frmAdministration If IDB_ACTIVE = False Then PM_VEKTOR_INDEXComboBox.Enabled = True Label4.Enabled = True + If cmbObjekttypen.Text = "DEFAULT" And IDB_ACTIVE = False Then + MsgBox("The Objecttype is invalid!", MsgBoxStyle.Exclamation) + Exit Sub + End If Try Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text) If indexe IsNot Nothing Then @@ -99,6 +103,7 @@ Public Class frmAdministration Next End If + MyIndicies_Types = New List(Of Integer) MyIndicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList() For Each i In MyIndicies Dim type = WINDREAM.GetTypeOfIndex(i) @@ -120,7 +125,7 @@ Public Class frmAdministration Else cmbLOGIndex.SelectedIndex = -1 End If - Else + Else '############## IDB ACTIVE ################# PM_VEKTOR_INDEXComboBox.Enabled = False Label4.Enabled = False @@ -699,24 +704,6 @@ Public Class frmAdministration End If End Sub - Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles btnTest_Email.Click - If txtemailEmpfaenger.Text <> "" And EMAIL_FROMTextBox.Text <> "" And EMAIL_SMTPTextBox.Text <> "" And EMAIL_USERTextBox.Text <> "" And EMAIL_PWTextBox.Text <> "" Then - email.Send_Log_Mail("Dies ist eine Testemail! Gesendet vom Softwaremodul Process-Manager DD.

", - "Testemail Process-Manager", EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, EMAIL_USERTextBox.Text, EMAIL_PWTextBox.Text, txtemailEmpfaenger.Text, True) - Save_Konfiguration() - Else - MsgBox("Bitte geben Sie in allen Pflichtfeldern einen Wert ein!", MsgBoxStyle.Exclamation) - End If - End Sub - - Private Sub EMAIL_ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles EMAIL_ACTIVECheckBox.CheckedChanged - If EMAIL_ACTIVECheckBox.Checked Then - Me.grpbxEmail.Enabled = True - Else - Me.grpbxEmail.Enabled = False - End If - End Sub - Private Sub btnopen_SQLAdmin_Click(sender As Object, e As EventArgs) Handles btnopen_SQLAdmin.Click frmSQL_Admin.ShowDialog() End Sub @@ -991,8 +978,10 @@ Public Class frmAdministration If e.FocusedRowHandle <> GridControl.NewItemRowHandle Then obj = FINALINDICES.SetValue(value, obj, index, MyIndicies, MyIndicies_Types) End If + If IDB_ACTIVE Then + obj.Indicies = MyIndicies.Except(IDBData.IDBSystemIndices).ToList + End If - obj.Indicies = MyIndicies.Except(IDBData.Source_IDBIndices).ToList obj.IndiciesType = MyIndicies_Types obj.IndexName = index diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 1cfb383..e2eba15 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -52,7 +52,8 @@ Public Class frmFormDesigner Dim sortedIndicies If IDB_ACTIVE = False Then unsortedIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList() - sortedIndicies = unsortedIndicies.OrderBy(Function(index As String) index).ToList() + + sortedIndicies = unsortedIndicies '.OrderBy(Function(index As String) index).ToList() Else sortedIndicies = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE).ToList() End If diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 699833b..9f07988 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -441,7 +441,7 @@ Public Class frmValidator Continue For End If If clsPatterns.HasComplexPatterns(oSQLStatement) Then - LOGGER.Warn($"Unexpected error LoadSQLData2 - sql Statement still has complex patterns! [{oSql}]") + LOGGER.Warn($"Unexpected error LoadSQLData2 - sql Statement still has complex patterns! [{oSQLStatement}]") Continue For End If 'sql = ClassPatterns.ReplaceInternalValues(sqlStatement) @@ -1886,13 +1886,13 @@ Public Class frmValidator oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) LOGGER.Debug($"Checking file 0 [{oResult}] exists?...") If File.Exists(oResult) = False Then - If USER_USERNAME = "SchreiberM" Then - oResult = "\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\AANG-3302-swbn.pdf" - ElseIf USER_USERNAME = "Administrator" Then - 'oResult = "C:\Users\Administrator.DD-GAN\Desktop\test.pdf" - oResult = "\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\AANG-3302-swbn.pdf" - Else - LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...") + 'If USER_USERNAME = "SchreiberM" Then + ' oResult = "\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\AANG-3302-swbn.pdf" + 'ElseIf USER_USERNAME = "Administrator" Then + ' 'oResult = "C:\Users\Administrator.DD-GAN\Desktop\test.pdf" + ' oResult = "\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\AANG-3302-swbn.pdf" + 'Else + LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...") oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({CURRENT_DOC_GUID},1)" oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) LOGGER.Debug($"Checking file 1[{oResult}] exists?...") @@ -1900,7 +1900,7 @@ Public Class frmValidator LOGGER.Warn($"File {oResult} not existing!") Return False End If - End If + 'End If End If WMDocPathWindows = oResult OLD_Document_Path = WMDocPathWindows From 73bfb002996581c9a6bd59e99d9f6854d809c3e3 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 13 Feb 2020 17:19:45 +0100 Subject: [PATCH 23/26] MS .08B --- app/DD_PM_WINDREAM/ClassInit.vb | 4 +- app/DD_PM_WINDREAM/ClassRefreshHelper.vb | 39 + app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj | 2 + app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb | 2 +- .../My Project/Resources.Designer.vb | 22 +- app/DD_PM_WINDREAM/My Project/Resources.resx | 70 +- app/DD_PM_WINDREAM/My Project/licenses.licx | 15 +- app/DD_PM_WINDREAM/Resources/Image_File.png | Bin 0 -> 1631 bytes app/DD_PM_WINDREAM/Resources/image.png | Bin 0 -> 4140 bytes .../frmAdministration.Designer.vb | 434 ++--- app/DD_PM_WINDREAM/frmAdministration.resx | 1528 ++++++++++------- app/DD_PM_WINDREAM/frmAdministration.vb | 396 +++-- app/DD_PM_WINDREAM/frmMain.Designer.vb | 135 +- app/DD_PM_WINDREAM/frmMain.resx | 343 +++- app/DD_PM_WINDREAM/frmMain.vb | 286 ++- 15 files changed, 2107 insertions(+), 1169 deletions(-) create mode 100644 app/DD_PM_WINDREAM/Resources/Image_File.png create mode 100644 app/DD_PM_WINDREAM/Resources/image.png diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb index 4a35f7f..df9aaae 100644 --- a/app/DD_PM_WINDREAM/ClassInit.vb +++ b/app/DD_PM_WINDREAM/ClassInit.vb @@ -256,10 +256,10 @@ Public Class ClassInit Try Dim oSql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1") CURRENT_DT_CONFIG = ClassDatabase.Return_Datatable(oSql) - + Settings_LoadBasicConfig() oSql = "select * from TBDD_CONNECTION" CURRENT_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql) - Settings_LoadBasicConfig() + oSql = "Select * FROM TBDD_3RD_PARTY_MODULES WHERE ACTIVE = 1" Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSql) diff --git a/app/DD_PM_WINDREAM/ClassRefreshHelper.vb b/app/DD_PM_WINDREAM/ClassRefreshHelper.vb index 663b50c..f771756 100644 --- a/app/DD_PM_WINDREAM/ClassRefreshHelper.vb +++ b/app/DD_PM_WINDREAM/ClassRefreshHelper.vb @@ -221,5 +221,44 @@ Public Class RefreshHelper End Try End Sub + Public Class SW + Public label As String + Public stopwatch As Stopwatch + + Public Sub New(label As String) + Me.label = label + stopwatch = New Stopwatch() + stopwatch.Start() + End Sub + + Public Function Done() As Long + If LOGCONFIG.Debug = False Then + Return 0 + End If + + stopwatch.Stop() + Dim ts As TimeSpan = stopwatch.Elapsed + + Dim timespan_ = String.Format("{0:00}:{1:00}.{2:00}", ts.Minutes, ts.Seconds, ts.Milliseconds / 10) + If ts.Minutes > 0 Then + timespan_ = String.Format("{0:00}:{1:00}.{2:00}", ts.Minutes, ts.Seconds, ts.Milliseconds / 10) + ElseIf ts.Seconds > 0 And (ts.Minutes > 0) = False Then + timespan_ = String.Format("{0:00}.{1:00} seconds", ts.Seconds, ts.Milliseconds / 10) + ElseIf (ts.Seconds > 0) = False And ts.Milliseconds > 0 Then + timespan_ = String.Format("{0:00}.{1:00} seconds", ts.Seconds, ts.Milliseconds / 10) + End If + If timespan_ <> "00:00.00" Then + Dim message = String.Format("{0} || {1}", timespan_, label) + + If LOGCONFIG.Debug = True Then + LOGGER.Debug(message) + End If + + End If + Return stopwatch.ElapsedMilliseconds + End Function + + + End Class End Class diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index aac7536..c44469f 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -842,6 +842,8 @@ + + diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index 7512c84..2fde2cf 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb index 7b22a8f..cdaadf7 100644 --- a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources '''

''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ @@ -550,6 +550,26 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property image() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("image", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Image_File() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Image_File", 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_PM_WINDREAM/My Project/Resources.resx b/app/DD_PM_WINDREAM/My Project/Resources.resx index 7bd89eb..b1e265d 100644 --- a/app/DD_PM_WINDREAM/My Project/Resources.resx +++ b/app/DD_PM_WINDREAM/My Project/Resources.resx @@ -130,6 +130,9 @@ ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\hide_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -148,8 +151,8 @@ ..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ampel-rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\show_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -172,14 +175,17 @@ ..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\zoom_in.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ampel-rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Settings.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ampel-gruen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Search(Go)_5718.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\application_form_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -202,15 +208,15 @@ ..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\show_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\database_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\information.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Image_File.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 @@ -256,17 +262,11 @@ ..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\book_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ampel-gruen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\A_1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -274,15 +274,15 @@ ..\Resources\doc_pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Search(Go)_5718.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\book_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\puzzle2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ampel-gelb.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 @@ -292,9 +292,15 @@ ..\Resources\Nextrequest_10302.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\TextBox.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\resultset_last.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\bullet_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -307,8 +313,8 @@ ..\Resources\hide_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\zoom_in.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\database_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Open_6296.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -319,8 +325,8 @@ ..\Resources\ComboBox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\database_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\show_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -361,14 +367,14 @@ ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ampel-gelb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\WorkItem_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\show_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\resultset_first.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -397,7 +403,7 @@ ..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\TextBox.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\image.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_PM_WINDREAM/My Project/licenses.licx b/app/DD_PM_WINDREAM/My Project/licenses.licx index 26b12ce..19059ee 100644 --- a/app/DD_PM_WINDREAM/My Project/licenses.licx +++ b/app/DD_PM_WINDREAM/My Project/licenses.licx @@ -1,12 +1,13 @@ -DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_PM_WINDREAM/Resources/Image_File.png b/app/DD_PM_WINDREAM/Resources/Image_File.png new file mode 100644 index 0000000000000000000000000000000000000000..61a1c4a337a87bab73530bbed7cfa4ec3688c597 GIT binary patch literal 1631 zcmV-l2B7(gP)Y~=8OMJ!vu`AqONokEQL1Anv4z%3QX?{u^qv@TiW-H20)=x5a>^k<3bY@<@G&kR z*9F>h4+R1g{Qy1m&_nAucAUb90k=(ETP>_Qk|kNRNG^AGa#-q>OLBKb2PohN7?8uA zd7l4&=6RV}!c%!FPv!qw#IOOkZruu`ltfW9GNZ+k$Nm3&^2c-Uy#Mn%|92&UoM0t|jym?b=t+kG#K22+_ zLmh>~n~oygZnt%_+0@HlJ=A}{eOoUqEPQI)_OY(Hp&qecWZHpI6!mEVVbJf{-WCJ_ zVHgqw0Y%s0-r^!>&YU^5u(0q4$8lx={lo|)i$sqG9EG$$OFEggkcDP@B4V3hiRJ3 zzy0>ig$oxxE|<%5X{-!Qqq_l(5I%Urz2m+!g!uNfC@YY*1i;IiDxpe8$ zkA2_2Ge}439mwME`&}k+OcXJ9>J;_*B&AY`u}X!?_&Bv%4XG4A{qV!NlP6EU2UvqF zX4ru=;D-_2dD!W6n3$+CF;VRqwb5u$c3n=KIPvn;t5**LU-r{D0s=dr2Cw?Ao{j_9 zZ@2e67eGY(3?K}{X3yk(l8eBVD_77u&g)uhKy>^4K6l9JF3_D%jp!zv*Is)S2^dPn zW249zhB5aJyfT+6Nu-wR*RE}ol-(WBporTR=N`#b2Xa*WR9X{yLyy3@c3`)!|M0gB zl(8#OXpl0lxM2t-8;(uE(Hcy8u(YX}bitLH)mFsWsbZ3a-Csr-1HHB28P~#e$B3eM zpOpmL1XIFh0N?A zeKQ1hEd1%Oe?iEAPm*tHHOAV8U z%@r!nQI1R==JYFb1Xhu?mO?3mpaZT6&y7J5=mA{8IJ`erWRnF;jE4C?T^ zm|hvf0K=3hQ=uG#f@5Hq604vvO@(bKN{*slHW_y$(KS1d3D zhNG}e1ILtDmc)<(CF41Ugpv{zM4XNuHbQh@_G;H;%A*Ia1BNY7k&mSn(hm?}fbWB7 zNkSE`p^~6m60>a(HVq6V@PiP?kU)7ac(O&qfsYcO|LnyK<_2ij{cQ}A6vye_^VH}M z)A_aLN~0Ce<5!n2bAM?m*>FlMTf^#;lbk+%Ix7?)XBwTFn&OQ&UT1B6ef$2}gQ~Za zs7vbz%d)7|4rPI|ExFQYrQ%Vk^uEU288dhb^7?y{43B}H5J)zhHuGgUX{M1BJ21GM z^a4slaC9tEx==zU%INE9LC0_PMq0=Q0q=dj=hqzIv+m9TD)H!6eP_-SJx*)17Te#` zj8COC0r*I-l(yr5kXUvhJ-7_3ne6ZJZ-!y0Ve^L)SYKbKv9UqW>BRTIZ$PxxjE#@e z_Wg(z6SW--K1?PO1S_4002ovPDHLkV1jCM69WJM literal 0 HcmV?d00001 diff --git a/app/DD_PM_WINDREAM/Resources/image.png b/app/DD_PM_WINDREAM/Resources/image.png new file mode 100644 index 0000000000000000000000000000000000000000..ba2a8ca7398c44cab1a31978410c641d904adb77 GIT binary patch literal 4140 zcmV+{5Yz98P)KLZ*U+IBfRsybQWXdwQbLP>6pAqfylh#{fb6;Z(vMMVS~$e@S=j*ftg6;Uhf59&ghTmgWD0l;*T zI709Y^p6lP1rIRMx#05C~cW=H_Aw*bJ-5DT&Z2n+x)QHX^p z00esgV8|mQcmRZ%02D^@S3L16t`O%c004NIvOKvYIYoh62rY33S640`D9%Y2D-rV&neh&#Q1i z007~1e$oCcFS8neI|hJl{-P!B1ZZ9hpmq0)X0i`JwE&>$+E?>%_LC6RbVIkUx0b+_+BaR3cnT7Zv!AJxW zizFb)h!jyGOOZ85F;a?DAXP{m@;!0_IfqH8(HlgRxt7s3}k3K`kFu>>-2Q$QMFfPW!La{h336o>X zu_CMttHv6zR;&ZNiS=X8v3CR#fknUxHUxJ0uoBa_M6WNWeqIg~6QE69c9o#eyhGvpiOA@W-aonk<7r1(?fC{oI5N*U!4 zfg=2N-7=cNnjjOr{yriy6mMFgG#l znCF=fnQv8CDz++o6_Lscl}eQ+l^ZHARH>?_s@|##Rr6KLRFA1%Q+=*RRWnoLsR`7U zt5vFIcfW3@?wFpwUVxrVZ>QdQz32KIeJ}k~{cZZE^+ya? z2D1z#2HOnI7(B%_ac?{wFUQ;QQA1tBKtrWrm0_3Rgps+?Jfqb{jYbcQX~taRB;#$y zZN{S}1|}gUOHJxc?wV3fxuz+mJ4`!F$IZ;mqRrNsHJd##*D~ju=bP7?-?v~|cv>vB zsJ6IeNwVZxrdjT`yl#bBIa#GxRa#xMMy;K#CDyyGyQdMSxlWT#tDe?p!?5wT$+oGt z8L;Kp2HUQ-ZMJ=3XJQv;x5ci*?vuTfeY$;({XGW_huIFR9a(?@3)XSs8O^N5RyOM=TTmp(3=8^+zpz2r)C z^>JO{deZfso3oq3?Wo(Y?l$ge?uXo;%ru`Vo>?<<(8I_>;8Eq#KMS9gFl*neeosSB zfoHYnBQIkwkyowPu(zdms`p{<7e4kra-ZWq<2*OsGTvEV%s0Td$hXT+!*8Bnh2KMe zBmZRodjHV?r+_5^X9J0WL4jKW`}lf%A-|44I@@LTvf1rHjG(ze6+w@Jt%Bvjts!X0 z?2xS?_ve_-kiKB_KiJlZ$9G`c^=E@oNG)mWWaNo-3TIW8)$Hg0Ub-~8?KhvJ>$ z3*&nim@mj(aCxE5!t{lw7O5^0EIO7zOo&c6l<+|iDySBWCGrz@C5{St!X3hAA}`T4 z(TLbXTq+(;@<=L8dXnssyft|w#WSTW<++3>sgS%(4NTpeI-VAqb|7ssJvzNHgOZVu zaYCvgO_R1~>SyL=cFU|~g|hy|Zi}}s9+d~lYqOB71z9Z$wnC=pR9Yz4DhIM>Wmjgu z&56o6maCpC&F##y%G;1PobR9i?GnNg;gYtchD%p19a!eQtZF&3JaKv33gZ<8D~47E ztUS1iwkmDaPpj=$m#%)jCVEY4fnLGNg2A-`YwHVD3gv};>)hAvT~AmqS>Lr``i7kw zJ{5_It`yrBmlc25DBO7E8;5VoznR>Ww5hAaxn$2~(q`%A-YuS64wkBy=9dm`4cXeX z4c}I@?e+FW+b@^RDBHV(wnMq2zdX3SWv9u`%{xC-q*U}&`cyXV(%rRT*Z6MH?i+i& z_B8C(+grT%{XWUQ+f@NoP1R=AW&26{v-dx)iK^-Nmiuj8txj!m?Z*Ss1N{dh4z}01 z)YTo*JycSU)+_5r4#yw9{+;i4Ee$peRgIj+;v;ZGdF1K$3E%e~4LaI(jC-u%2h$&R z9cLXcYC@Xwnns&bn)_Q~Te?roKGD|d-g^8;+aC{{G(1^(O7m37Y1-+6)01cN&y1aw zoqc{T`P^XJqPBbIW6s}d4{z_f5Om?vMgNQEJG?v2T=KYd^0M3I6IZxbny)%vZR&LD zJpPl@Psh8QyPB@KTx+@RdcC!KX7}kEo;S|j^u2lU7XQ}Oo;f|;z4Ll+_r>@1-xl3| zawq-H%e&ckC+@AhPrP6BKT#_XdT7&;F71j}Joy zkC~6lh7E@6o;W@^IpRNZ{ptLtL(gQ-CY~4mqW;US7Zxvm_|@yz&e53Bp_lTPlfP|z zrTyx_>lv@x#=^!PzR7qqF<$gm`|ZJZ+;<)Cqu&ot2z=00004XF*Lt006O$eEU(80000WV@Og>004R=004l4008;_004mL004C` z008P>0026e000+nl3&F}000F?Nkl&!6vsd3zDH@9p`Df@zYS^xYY-)% z5KK%UL?JF%u+X?MA;v$*m2u(5g+@c7CN59|(SWEB(xTFWg@U$23rwe_Ep%qyy~oA9 zGxO#b(M0iX-jDm^ob&yj^L^*Z2cLYa{14;ZHxG3Kl^EddV+a4%CPkZ`0aZZ!Z1uJ_ z*>F?4d+);&0KLGy_@5fCnbYdCgtuWv>!#|iHF_|Wp8;42L=6s{JpEHkgo#c5HP~M} zuor;BT(S191%Wj?_cc6=@ll9CBoN`RM!=vL97gNwxz25%RDIM{dTY+9A~-OxZf=~_Ggpab z3)sGX7B+0-R{u7{IlzE=R8(6bh|@`?0Rd8pCe^4(g=OlCHq4EaE9YUycF3$FTAU$w z^Cqa0&uwo=(KZaE&-GKzdH$@c!{@5#1$a?#>dP)Wa}_pig3M-M1!UL4mO-*pV<=#& zhp5s{aN-(0AqQ;AU5DpeOyj0n85$*?EkI^nSX}~^p*KTZyn}O!h9qo|j7}7QkDQS8 zQiVHYrbyiZ1Vn|TFGqZD5_;DJ2kygUo}_O88;mCks#?$F)+DS$WCJ1+yfrRF98ib? zBC3KKWp3>@1}7$9<2>XtaO*Zq-(_z7b65rI#GhFWT{}=vb)t%Z&va@vZd{-;AYug6 z3DZs-s%28WOO2UlW$LWf*Ft z;_8$4=a(q_dV%9dU*x{R?_<;ad2O8jtxu9fhNw!F@du3#k28Mx3Il64Gqit*)!8nO zLh4M_HbRuvDRo|q777dGM}~Rh$Zj&(9#%$O?A`MO`RNDT{bQ0OfwDr`fjBsO@*KTc z!#i)i%Hf00a_P)4)5S80^)zTT{n|PZW?bBj1LkheQXC!T_|aWF)}P_de8Sfk3VeEM zhE2VL%;e{}SC}VBz*@(5U!G>`rpGzFcPlOt#>OA8XXg$^&z)y>u|ma#vhFO!zC^6G z+_{lwar`%q9obEHS2s3+{%piRwg-tF#jgE(IJj>;(|O0K zOH1U7WiC!Eu%ho7zW-)~*@d#NAZ_Kqq}?*ELTPH8!>{bbbagSGIF_9+o&H=5B~NB0 zGOWq<^XKp{ym0UU&u>}9pf{lH7C z=*eL32VGF5Y+*yTi|)9KiWATTYaIiLj5etdclt=An-5KG6dpo>XhXyD5MtUlB>y!99UXZ8qc51s&oun8JgOn#AFVfB qALS?k_ar3Z3c~-#BODf}{51gooc>S0-*#C50000 Partial Class frmAdministration - Inherits System.Windows.Forms.Form + Inherits DevExpress.XtraBars.Ribbon.RibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -33,10 +33,6 @@ Partial Class frmAdministration Dim CHANGED_WHOLabel As System.Windows.Forms.Label Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim TITLELabel As System.Windows.Forms.Label - Dim INTERVALL_CKECK_NO_OF_FILESLabel As System.Windows.Forms.Label - Dim GEAENDERTWERLabel As System.Windows.Forms.Label - Dim GEAENDERTWANNLabel As System.Windows.Forms.Label - Dim VEKTOR_DELIMITERLabel As System.Windows.Forms.Label Dim WORK_HISTORY_ENTRYLabel As System.Windows.Forms.Label Dim SQL_VIEWLabel As System.Windows.Forms.Label Dim DISPLAY_MODELabel As System.Windows.Forms.Label @@ -96,14 +92,8 @@ Partial Class frmAdministration Me.TBPM_PROFILEBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.tstrpbtn_add = New System.Windows.Forms.ToolStripButton() Me.tstrlblSave = New System.Windows.Forms.ToolStripLabel() - Me.btnRefreshProfiles = New System.Windows.Forms.ToolStripButton() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() - Me.tsbtnDesigner_open = New System.Windows.Forms.ToolStripButton() Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() - Me.tsbtnProfilkopieren = New System.Windows.Forms.ToolStripButton() - Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() - Me.tsbtnDeleteProfileData = New System.Windows.Forms.ToolStripButton() - Me.tsbtndeleteProfil = New System.Windows.Forms.ToolStripButton() Me.Label2 = New System.Windows.Forms.Label() Me.cmbObjekttypen = New System.Windows.Forms.ComboBox() Me.FINAL_PROFILECheckBox = New System.Windows.Forms.CheckBox() @@ -195,20 +185,7 @@ Partial Class frmAdministration Me.TabControl3 = New System.Windows.Forms.TabControl() Me.TabPage7 = New System.Windows.Forms.TabPage() Me.TabPage8 = New System.Windows.Forms.TabPage() - Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.btnSQLProfilehome = New System.Windows.Forms.Button() - Me.btnUserManager = New System.Windows.Forms.Button() - Me.Button2 = New System.Windows.Forms.Button() - Me.VEKTOR_DELIMITERTextBox = New System.Windows.Forms.TextBox() Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.btnConnections = New System.Windows.Forms.Button() - Me.btnopen_SQLAdmin = New System.Windows.Forms.Button() - Me.btnlicensemanager_open = New System.Windows.Forms.Button() - Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown = New System.Windows.Forms.NumericUpDown() - Me.Label3 = New System.Windows.Forms.Label() - Me.GEAENDERTWERTextBox = New System.Windows.Forms.TextBox() - Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() - Me.btnSaveKonfig = New System.Windows.Forms.Button() Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() @@ -227,6 +204,27 @@ Partial Class frmAdministration Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter() Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_ProcessManager.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() GUIDLabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() DESCRIPTIONLabel = New System.Windows.Forms.Label() @@ -236,10 +234,6 @@ Partial Class frmAdministration CHANGED_WHOLabel = New System.Windows.Forms.Label() CHANGED_WHENLabel = New System.Windows.Forms.Label() TITLELabel = New System.Windows.Forms.Label() - INTERVALL_CKECK_NO_OF_FILESLabel = New System.Windows.Forms.Label() - GEAENDERTWERLabel = New System.Windows.Forms.Label() - GEAENDERTWANNLabel = New System.Windows.Forms.Label() - VEKTOR_DELIMITERLabel = New System.Windows.Forms.Label() WORK_HISTORY_ENTRYLabel = New System.Windows.Forms.Label() SQL_VIEWLabel = New System.Windows.Forms.Label() DISPLAY_MODELabel = New System.Windows.Forms.Label() @@ -302,14 +296,13 @@ Partial Class frmAdministration Me.TabControl3.SuspendLayout() Me.TabPage7.SuspendLayout() Me.TabPage8.SuspendLayout() - Me.TabPage3.SuspendLayout() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.StatusStrip1.SuspendLayout() Me.pnlMain.SuspendLayout() CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'GUIDLabel @@ -653,26 +646,6 @@ Partial Class frmAdministration resources.ApplyResources(TITLELabel, "TITLELabel") TITLELabel.Name = "TITLELabel" ' - 'INTERVALL_CKECK_NO_OF_FILESLabel - ' - resources.ApplyResources(INTERVALL_CKECK_NO_OF_FILESLabel, "INTERVALL_CKECK_NO_OF_FILESLabel") - INTERVALL_CKECK_NO_OF_FILESLabel.Name = "INTERVALL_CKECK_NO_OF_FILESLabel" - ' - 'GEAENDERTWERLabel - ' - resources.ApplyResources(GEAENDERTWERLabel, "GEAENDERTWERLabel") - GEAENDERTWERLabel.Name = "GEAENDERTWERLabel" - ' - 'GEAENDERTWANNLabel - ' - resources.ApplyResources(GEAENDERTWANNLabel, "GEAENDERTWANNLabel") - GEAENDERTWANNLabel.Name = "GEAENDERTWANNLabel" - ' - 'VEKTOR_DELIMITERLabel - ' - resources.ApplyResources(VEKTOR_DELIMITERLabel, "VEKTOR_DELIMITERLabel") - VEKTOR_DELIMITERLabel.Name = "VEKTOR_DELIMITERLabel" - ' 'WORK_HISTORY_ENTRYLabel ' resources.ApplyResources(WORK_HISTORY_ENTRYLabel, "WORK_HISTORY_ENTRYLabel") @@ -783,7 +756,7 @@ Partial Class frmAdministration Me.TBPM_PROFILEBindingNavigator.CountItemFormat = "von {0} Profilen" Me.TBPM_PROFILEBindingNavigator.DeleteItem = Nothing Me.TBPM_PROFILEBindingNavigator.ImageScalingSize = New System.Drawing.Size(20, 20) - Me.TBPM_PROFILEBindingNavigator.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.VWPM_PROFILE_USERBindingNavigatorSaveItem, Me.tstrpbtn_add, Me.tstrlblSave, Me.btnRefreshProfiles, Me.ToolStripSeparator1, Me.tsbtnDesigner_open, Me.ToolStripSeparator2, Me.tsbtnProfilkopieren, Me.ToolStripSeparator3, Me.tsbtnDeleteProfileData, Me.tsbtndeleteProfil}) + Me.TBPM_PROFILEBindingNavigator.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.VWPM_PROFILE_USERBindingNavigatorSaveItem, Me.tstrpbtn_add, Me.tstrlblSave, Me.ToolStripSeparator1, Me.ToolStripSeparator2}) resources.ApplyResources(Me.TBPM_PROFILEBindingNavigator, "TBPM_PROFILEBindingNavigator") Me.TBPM_PROFILEBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem Me.TBPM_PROFILEBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem @@ -808,50 +781,16 @@ Partial Class frmAdministration Me.tstrlblSave.Name = "tstrlblSave" resources.ApplyResources(Me.tstrlblSave, "tstrlblSave") ' - 'btnRefreshProfiles - ' - Me.btnRefreshProfiles.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xLG - resources.ApplyResources(Me.btnRefreshProfiles, "btnRefreshProfiles") - Me.btnRefreshProfiles.Name = "btnRefreshProfiles" - ' 'ToolStripSeparator1 ' Me.ToolStripSeparator1.Name = "ToolStripSeparator1" resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1") ' - 'tsbtnDesigner_open - ' - resources.ApplyResources(Me.tsbtnDesigner_open, "tsbtnDesigner_open") - Me.tsbtnDesigner_open.Image = Global.DD_ProcessManager.My.Resources.Resources.application_form_edit - Me.tsbtnDesigner_open.Name = "tsbtnDesigner_open" - ' 'ToolStripSeparator2 ' Me.ToolStripSeparator2.Name = "ToolStripSeparator2" resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2") ' - 'tsbtnProfilkopieren - ' - Me.tsbtnProfilkopieren.Image = Global.DD_ProcessManager.My.Resources.Resources.page_copy - resources.ApplyResources(Me.tsbtnProfilkopieren, "tsbtnProfilkopieren") - Me.tsbtnProfilkopieren.Name = "tsbtnProfilkopieren" - ' - 'ToolStripSeparator3 - ' - Me.ToolStripSeparator3.Name = "ToolStripSeparator3" - resources.ApplyResources(Me.ToolStripSeparator3, "ToolStripSeparator3") - ' - 'tsbtnDeleteProfileData - ' - resources.ApplyResources(Me.tsbtnDeleteProfileData, "tsbtnDeleteProfileData") - Me.tsbtnDeleteProfileData.Name = "tsbtnDeleteProfileData" - ' - 'tsbtndeleteProfil - ' - Me.tsbtndeleteProfil.Image = Global.DD_ProcessManager.My.Resources.Resources.delete_12x12 - resources.ApplyResources(Me.tsbtndeleteProfil, "tsbtndeleteProfil") - Me.tsbtndeleteProfil.Name = "tsbtndeleteProfil" - ' 'Label2 ' resources.ApplyResources(Me.Label2, "Label2") @@ -1017,7 +956,6 @@ Partial Class frmAdministration ' 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 @@ -1508,116 +1446,11 @@ Partial Class frmAdministration Me.TabPage8.Name = "TabPage8" Me.TabPage8.UseVisualStyleBackColor = True ' - 'TabPage3 - ' - Me.TabPage3.Controls.Add(Me.btnSQLProfilehome) - Me.TabPage3.Controls.Add(Me.btnUserManager) - Me.TabPage3.Controls.Add(Me.Button2) - Me.TabPage3.Controls.Add(VEKTOR_DELIMITERLabel) - Me.TabPage3.Controls.Add(Me.VEKTOR_DELIMITERTextBox) - Me.TabPage3.Controls.Add(Me.btnConnections) - Me.TabPage3.Controls.Add(Me.btnopen_SQLAdmin) - Me.TabPage3.Controls.Add(Me.btnlicensemanager_open) - Me.TabPage3.Controls.Add(INTERVALL_CKECK_NO_OF_FILESLabel) - Me.TabPage3.Controls.Add(Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown) - Me.TabPage3.Controls.Add(Me.Label3) - Me.TabPage3.Controls.Add(GEAENDERTWANNLabel) - Me.TabPage3.Controls.Add(Me.GEAENDERTWERTextBox) - Me.TabPage3.Controls.Add(GEAENDERTWERLabel) - Me.TabPage3.Controls.Add(Me.GEAENDERTWANNTextBox) - Me.TabPage3.Controls.Add(Me.btnSaveKonfig) - resources.ApplyResources(Me.TabPage3, "TabPage3") - Me.TabPage3.Name = "TabPage3" - Me.TabPage3.UseVisualStyleBackColor = True - ' - 'btnSQLProfilehome - ' - Me.btnSQLProfilehome.Image = Global.DD_ProcessManager.My.Resources.Resources.application_form_edit - resources.ApplyResources(Me.btnSQLProfilehome, "btnSQLProfilehome") - Me.btnSQLProfilehome.Name = "btnSQLProfilehome" - Me.btnSQLProfilehome.UseVisualStyleBackColor = True - ' - 'btnUserManager - ' - Me.btnUserManager.Image = Global.DD_ProcessManager.My.Resources.Resources.user - resources.ApplyResources(Me.btnUserManager, "btnUserManager") - Me.btnUserManager.Name = "btnUserManager" - Me.btnUserManager.UseVisualStyleBackColor = True - ' - 'Button2 - ' - Me.Button2.BackColor = System.Drawing.Color.LightGray - Me.Button2.Image = Global.DD_ProcessManager.My.Resources.Resources.Files_7954 - resources.ApplyResources(Me.Button2, "Button2") - Me.Button2.Name = "Button2" - Me.Button2.UseVisualStyleBackColor = False - ' - 'VEKTOR_DELIMITERTextBox - ' - Me.VEKTOR_DELIMITERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_KONFIGURATIONBindingSource, "VEKTOR_DELIMITER", True)) - resources.ApplyResources(Me.VEKTOR_DELIMITERTextBox, "VEKTOR_DELIMITERTextBox") - Me.VEKTOR_DELIMITERTextBox.Name = "VEKTOR_DELIMITERTextBox" - ' 'TBPM_KONFIGURATIONBindingSource ' Me.TBPM_KONFIGURATIONBindingSource.DataMember = "TBPM_KONFIGURATION" Me.TBPM_KONFIGURATIONBindingSource.DataSource = Me.DD_DMSLiteDataSet ' - 'btnConnections - ' - Me.btnConnections.Image = Global.DD_ProcessManager.My.Resources.Resources.database_refresh - resources.ApplyResources(Me.btnConnections, "btnConnections") - Me.btnConnections.Name = "btnConnections" - Me.btnConnections.UseVisualStyleBackColor = True - ' - 'btnopen_SQLAdmin - ' - Me.btnopen_SQLAdmin.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go1 - resources.ApplyResources(Me.btnopen_SQLAdmin, "btnopen_SQLAdmin") - Me.btnopen_SQLAdmin.Name = "btnopen_SQLAdmin" - Me.btnopen_SQLAdmin.UseVisualStyleBackColor = True - ' - 'btnlicensemanager_open - ' - Me.btnlicensemanager_open.Image = Global.DD_ProcessManager.My.Resources.Resources.key - resources.ApplyResources(Me.btnlicensemanager_open, "btnlicensemanager_open") - Me.btnlicensemanager_open.Name = "btnlicensemanager_open" - Me.btnlicensemanager_open.UseVisualStyleBackColor = True - ' - 'INTERVALL_CKECK_NO_OF_FILESNumericUpDown - ' - Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBPM_KONFIGURATIONBindingSource, "INTERVALL_CKECK_NO_OF_FILES", True)) - resources.ApplyResources(Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown, "INTERVALL_CKECK_NO_OF_FILESNumericUpDown") - Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown.Name = "INTERVALL_CKECK_NO_OF_FILESNumericUpDown" - ' - 'Label3 - ' - resources.ApplyResources(Me.Label3, "Label3") - Me.Label3.Name = "Label3" - ' - 'GEAENDERTWERTextBox - ' - Me.GEAENDERTWERTextBox.BackColor = System.Drawing.Color.WhiteSmoke - Me.GEAENDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_KONFIGURATIONBindingSource, "GEAENDERTWER", True)) - resources.ApplyResources(Me.GEAENDERTWERTextBox, "GEAENDERTWERTextBox") - Me.GEAENDERTWERTextBox.Name = "GEAENDERTWERTextBox" - Me.GEAENDERTWERTextBox.ReadOnly = True - ' - 'GEAENDERTWANNTextBox - ' - Me.GEAENDERTWANNTextBox.BackColor = System.Drawing.Color.WhiteSmoke - Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_KONFIGURATIONBindingSource, "GEAENDERTWANN", True)) - resources.ApplyResources(Me.GEAENDERTWANNTextBox, "GEAENDERTWANNTextBox") - Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox" - Me.GEAENDERTWANNTextBox.ReadOnly = True - ' - 'btnSaveKonfig - ' - Me.btnSaveKonfig.Image = Global.DD_ProcessManager.My.Resources.Resources.save - resources.ApplyResources(Me.btnSaveKonfig, "btnSaveKonfig") - Me.btnSaveKonfig.Name = "btnSaveKonfig" - Me.btnSaveKonfig.UseVisualStyleBackColor = True - ' 'TBDD_CONNECTIONBindingSource ' Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" @@ -1696,13 +1529,188 @@ Partial Class frmAdministration ' Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14}) + resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") + Me.RibbonControl1.MaxItemId = 15 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem1 + ' + resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1") + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.Image = CType(resources.GetObject("BarButtonItem1.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2") + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem2.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3") + Me.BarButtonItem3.Id = 3 + Me.BarButtonItem3.ImageOptions.Image = CType(resources.GetObject("BarButtonItem3.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem3.Name = "BarButtonItem3" + Me.BarButtonItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'BarButtonItem4 + ' + resources.ApplyResources(Me.BarButtonItem4, "BarButtonItem4") + Me.BarButtonItem4.Id = 4 + Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem4.Name = "BarButtonItem4" + Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'BarButtonItem5 + ' + resources.ApplyResources(Me.BarButtonItem5, "BarButtonItem5") + Me.BarButtonItem5.Id = 5 + Me.BarButtonItem5.ImageOptions.Image = CType(resources.GetObject("BarButtonItem5.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem5.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem5.Name = "BarButtonItem5" + Me.BarButtonItem5.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'BarButtonItem6 + ' + resources.ApplyResources(Me.BarButtonItem6, "BarButtonItem6") + Me.BarButtonItem6.Id = 6 + Me.BarButtonItem6.ImageOptions.Image = CType(resources.GetObject("BarButtonItem6.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem6.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem6.Name = "BarButtonItem6" + Me.BarButtonItem6.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'BarButtonItem7 + ' + resources.ApplyResources(Me.BarButtonItem7, "BarButtonItem7") + Me.BarButtonItem7.Id = 7 + Me.BarButtonItem7.ImageOptions.Image = CType(resources.GetObject("BarButtonItem7.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem7.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem7.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem7.Name = "BarButtonItem7" + ' + 'BarButtonItem8 + ' + resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8") + Me.BarButtonItem8.Id = 8 + Me.BarButtonItem8.ImageOptions.Image = CType(resources.GetObject("BarButtonItem8.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem8.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem8.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem8.Name = "BarButtonItem8" + ' + 'BarButtonItem9 + ' + resources.ApplyResources(Me.BarButtonItem9, "BarButtonItem9") + Me.BarButtonItem9.Id = 9 + Me.BarButtonItem9.ImageOptions.Image = CType(resources.GetObject("BarButtonItem9.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem9.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem9.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem9.Name = "BarButtonItem9" + ' + 'BarButtonItem10 + ' + resources.ApplyResources(Me.BarButtonItem10, "BarButtonItem10") + Me.BarButtonItem10.Id = 10 + Me.BarButtonItem10.ImageOptions.Image = CType(resources.GetObject("BarButtonItem10.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem10.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem10.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem10.Name = "BarButtonItem10" + ' + 'BarButtonItem11 + ' + resources.ApplyResources(Me.BarButtonItem11, "BarButtonItem11") + Me.BarButtonItem11.Id = 11 + Me.BarButtonItem11.ImageOptions.Image = CType(resources.GetObject("BarButtonItem11.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem11.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem11.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem11.Name = "BarButtonItem11" + ' + 'BarButtonItem12 + ' + resources.ApplyResources(Me.BarButtonItem12, "BarButtonItem12") + Me.BarButtonItem12.Id = 12 + Me.BarButtonItem12.ImageOptions.Image = CType(resources.GetObject("BarButtonItem12.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem12.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem12.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem12.Name = "BarButtonItem12" + ' + 'BarButtonItem13 + ' + resources.ApplyResources(Me.BarButtonItem13, "BarButtonItem13") + Me.BarButtonItem13.Id = 13 + Me.BarButtonItem13.ImageOptions.Image = CType(resources.GetObject("BarButtonItem13.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem13.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem13.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem13.Name = "BarButtonItem13" + ' + 'BarButtonItem14 + ' + resources.ApplyResources(Me.BarButtonItem14, "BarButtonItem14") + Me.BarButtonItem14.Id = 14 + Me.BarButtonItem14.ImageOptions.Image = CType(resources.GetObject("BarButtonItem14.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem14.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem14.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem14.Name = "BarButtonItem14" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3}) + Me.RibbonPage1.Name = "RibbonPage1" + resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem7) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem8) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem5) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem6) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2") + ' + 'RibbonPageGroup3 + ' + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem9) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem10) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem11) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem14) + Me.RibbonPageGroup3.Name = "RibbonPageGroup3" + resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3") + ' + 'RibbonStatusBar1 + ' + resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1") + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") + ' 'frmAdministration ' + Me.Appearance.Options.UseFont = True resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.Controls.Add(Me.pnlMain) Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.Icon = CType(resources.GetObject("frmAdministration.IconOptions.Icon"), System.Drawing.Icon) Me.Name = "frmAdministration" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 Me.SplitContainer_Profilzuordnung2.Panel1.ResumeLayout(False) Me.SplitContainer_Profilzuordnung2.Panel2.ResumeLayout(False) CType(Me.SplitContainer_Profilzuordnung2, System.ComponentModel.ISupportInitialize).EndInit() @@ -1769,16 +1777,14 @@ Partial Class frmAdministration Me.TabControl3.ResumeLayout(False) Me.TabPage7.ResumeLayout(False) Me.TabPage8.ResumeLayout(False) - Me.TabPage3.ResumeLayout(False) - Me.TabPage3.PerformLayout() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() Me.pnlMain.ResumeLayout(False) CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -1817,7 +1823,6 @@ Partial Class frmAdministration Friend WithEvents PRIORITYNumericUpDown As System.Windows.Forms.NumericUpDown Friend WithEvents tstrlblSave As System.Windows.Forms.ToolStripLabel Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents tsbtnDesigner_open As System.Windows.Forms.ToolStripButton Friend WithEvents TBPM_TYPEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_TYPETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter Friend WithEvents cmbType As System.Windows.Forms.ComboBox @@ -1837,17 +1842,10 @@ Partial Class frmAdministration Friend WithEvents TBPROFILE_USERTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBDD_USERTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter - Friend WithEvents TabPage3 As System.Windows.Forms.TabPage - Friend WithEvents btnlicensemanager_open As System.Windows.Forms.Button Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter - Friend WithEvents INTERVALL_CKECK_NO_OF_FILESNumericUpDown As System.Windows.Forms.NumericUpDown - Friend WithEvents GEAENDERTWANNTextBox As System.Windows.Forms.TextBox - Friend WithEvents GEAENDERTWERTextBox As System.Windows.Forms.TextBox Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents tstrpinfo As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents btnSaveKonfig As System.Windows.Forms.Button - Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents pnlMain As System.Windows.Forms.Panel Friend WithEvents SORT_BY_LATESTCheckBox As System.Windows.Forms.CheckBox Friend WithEvents tabctrl_Profilkonfig As System.Windows.Forms.TabControl @@ -1856,20 +1854,12 @@ Partial Class frmAdministration Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents tsbtnProfilkopieren As System.Windows.Forms.ToolStripButton Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter - Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents tsbtndeleteProfil As System.Windows.Forms.ToolStripButton Friend WithEvents PM_VEKTOR_INDEXComboBox As System.Windows.Forms.ComboBox - Friend WithEvents btnopen_SQLAdmin As System.Windows.Forms.Button - Friend WithEvents btnRefreshProfiles As System.Windows.Forms.ToolStripButton Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter - Friend WithEvents btnConnections As System.Windows.Forms.Button Friend WithEvents cmbLOGIndex As System.Windows.Forms.ComboBox - Friend WithEvents VEKTOR_DELIMITERTextBox As System.Windows.Forms.TextBox - Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents DataGridViewCheckBoxColumn2 As System.Windows.Forms.DataGridViewCheckBoxColumn Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl @@ -1924,7 +1914,6 @@ Partial Class frmAdministration Friend WithEvents colNAME5 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colCOMMENT1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colEMAIL1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents btnUserManager As Button Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn @@ -1951,7 +1940,6 @@ Partial Class frmAdministration Friend WithEvents tsBtnCancel As ToolStripButton Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILEBindingSource As BindingSource Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILETableAdapter As DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter - Friend WithEvents tsbtnDeleteProfileData As ToolStripButton Friend WithEvents FinalIndexDataSet As FinalIndexDataSet Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGTableAdapter As FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGBindingSource As BindingSource @@ -1965,10 +1953,30 @@ Partial Class frmAdministration Friend WithEvents colACTIVE As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colPREVENT_DUPLICATES As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colALLOW_NEW_VALUES As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents btnSQLProfilehome As Button Friend WithEvents DISPLAY_MODEComboBox As ComboBox Friend WithEvents Label9 As Label Friend WithEvents ToolTip1 As ToolTip Friend WithEvents Label4 As Label Friend WithEvents Label7 As Label + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem11 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem12 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem13 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem14 As DevExpress.XtraBars.BarButtonItem End Class diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index bbc4b9d..65bbc03 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -247,7 +247,7 @@ 58 - 979, 272 + 979, 184 3 @@ -415,7 +415,7 @@ 58 - 979, 239 + 979, 160 5 @@ -499,10 +499,10 @@ 1 - 979, 565 + 979, 398 - 297 + 209 0 @@ -565,7 +565,7 @@ 58 - 979, 271 + 979, 183 3 @@ -688,7 +688,7 @@ 58 - 979, 240 + 979, 161 0 @@ -775,10 +775,10 @@ 1 - 979, 565 + 979, 398 - 296 + 208 1 @@ -1053,126 +1053,6 @@ 3 - - False - - - True - - - 18, 14 - - - 301, 16 - - - 0 - - - Intervall zur Überprüfung Anzahl Dateien pro Profil: - - - INTERVALL_CKECK_NO_OF_FILESLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 8 - - - False - - - True - - - 18, 172 - - - 91, 16 - - - 2 - - - Geändert wer: - - - GEAENDERTWERLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 13 - - - False - - - True - - - 219, 172 - - - 100, 16 - - - 4 - - - Geändert wann: - - - GEAENDERTWANNLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 11 - - - False - - - True - - - 18, 64 - - - 158, 16 - - - 13 - - - Trenner für Vektorinhalte: - - - VEKTOR_DELIMITERLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 3 - False @@ -1429,84 +1309,12 @@ Änderungen wurden erfolgreich gespeichert - - Magenta - - - 99, 24 - - - Aktualisieren - 6, 27 - - Segoe UI, 9pt, style=Bold - - - Magenta - - - 175, 24 - - - Formular Designer öffnen - 6, 27 - - MiddleLeft - - - Magenta - - - 108, 24 - - - Profil kopieren - - - MiddleRight - - - 6, 27 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC1SURBVDhPY6Ab+Pbt2390DJUiDoA0ODk5wTF1DQBy1oME - gPj9ly9fDEBiX79+nQ8VAysE0fgM+L9Qjff/wZKU/58/f74P0vzs/Kn/26LcwYbC1OAz4D1IM8iQM31N - /6+tmP9/jYPW/48vn/8HGhYAVYPbAJCzQTYfaywGG7LMWOY/yAVAzQVQJTQ2AMjB8MJGX0sML6BjsGYQ - AHGICUR0DNYMAkAOZdFIDBgcBqBjqBQlgIEBABuVjGu8xfaGAAAAAElFTkSuQmCC - - - - Magenta - - - 198, 24 - - - Aktuelle Daten zu Profil löschen - - - MiddleLeft - - - Magenta - - - 75, 24 - - - Löschen - - - MiddleRight - 279, 3 @@ -2288,7 +2096,7 @@ 3, 3, 3, 3 - 970, 473 + 970, 306 0 @@ -2369,7 +2177,7 @@ Neue Werte erlauben - 627, 314 + 627, 204 93 @@ -2396,7 +2204,7 @@ 627, 0 - 323, 314 + 323, 204 91 @@ -2417,7 +2225,7 @@ 3, 166 - 950, 314 + 950, 204 94 @@ -2736,7 +2544,7 @@ 3, 3, 3, 3 - 956, 438 + 956, 271 0 @@ -2862,7 +2670,7 @@ 3, 3, 3, 3 - 956, 441 + 956, 274 1 @@ -2889,7 +2697,7 @@ 3, 3 - 964, 467 + 964, 300 92 @@ -2913,7 +2721,7 @@ 3, 3, 3, 3 - 970, 473 + 970, 306 1 @@ -2937,7 +2745,7 @@ 288, 98 - 978, 502 + 978, 335 79 @@ -2973,7 +2781,7 @@ 129 - 276, 600 + 276, 433 84 @@ -3024,7 +2832,7 @@ 3, 3, 3, 3 - 1272, 606 + 1272, 439 0 @@ -3069,7 +2877,7 @@ 58 - 269, 575 + 269, 408 2 @@ -3135,7 +2943,7 @@ 3, 3, 3, 3 - 985, 571 + 985, 404 0 @@ -3162,7 +2970,7 @@ 3, 3, 3, 3 - 985, 571 + 985, 404 1 @@ -3189,7 +2997,7 @@ 0, 0 - 993, 600 + 993, 433 1 @@ -3219,7 +3027,7 @@ 1 - 1266, 600 + 1266, 433 269 @@ -3246,13 +3054,13 @@ 3, 3, 3, 3 - 1272, 606 + 1272, 439 1 - Profilzuordnung + Profil-Zuordnung TabPage2 @@ -3266,363 +3074,6 @@ 1 - - MiddleLeft - - - NoControl - - - 376, 126 - - - 172, 34 - - - 16 - - - Profilübersicht SQL - - - MiddleRight - - - btnSQLProfilehome - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 0 - - - MiddleLeft - - - NoControl - - - 198, 126 - - - 172, 34 - - - 16 - - - Benutzer verwalten - - - MiddleRight - - - btnUserManager - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 1 - - - MiddleLeft - - - 20, 126 - - - 172, 34 - - - 15 - - - File-Tabelle leeren - - - MiddleRight - - - Button2 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 2 - - - 234, 95 - - - 182, 61 - - - 45, 23 - - - 14 - - - VEKTOR_DELIMITERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 4 - - - MiddleLeft - - - 198, 90 - - - 172, 30 - - - 13 - - - Connections Verwaltung - - - MiddleRight - - - btnConnections - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 5 - - - MiddleLeft - - - 376, 90 - - - 172, 30 - - - 12 - - - SQL-Admin - - - MiddleRight - - - btnopen_SQLAdmin - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 6 - - - MiddleLeft - - - 20, 90 - - - 172, 30 - - - 0 - - - Lizenzverwaltung - - - MiddleRight - - - btnlicensemanager_open - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 7 - - - 20, 33 - - - 43, 23 - - - 2 - - - INTERVALL_CKECK_NO_OF_FILESNumericUpDown - - - System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 9 - - - True - - - 69, 35 - - - 53, 16 - - - 6 - - - Minuten - - - Label3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 10 - - - 21, 191 - - - 190, 23 - - - 3 - - - GEAENDERTWERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 12 - - - 222, 191 - - - 190, 23 - - - 5 - - - GEAENDERTWANNTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 14 - - - MiddleLeft - - - 20, 220 - - - 320, 31 - - - 7 - - - Speichern Grundeinstellungen - - - MiddleRight - - - btnSaveKonfig - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 15 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1272, 606 - - - 2 - - - Grundeinstellungen - - - TabPage3 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 2 - Fill @@ -3630,7 +3081,7 @@ 0, 0 - 1280, 635 + 1280, 468 3 @@ -3647,6 +3098,9 @@ 0 + + 234, 95 + 775, 134 @@ -3663,7 +3117,7 @@ False - 0, 635 + 0, 614 1280, 22 @@ -3699,10 +3153,10 @@ Fill - 0, 0 + 0, 146 - 1280, 635 + 1280, 468 4 @@ -3749,6 +3203,768 @@ 327, 251 + + Aktualisieren + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA1dEVYdFRpdGxlAEFycm93O1JlY3VycmVuY2U7UmVm + cmVzaDtVcGRhdGU7UmVsb2FkO0V4Y2hhbmdlhrRdSAAAALlJREFUOE+lksENgzAMRVkEdQhOSJmnZyZg + pt56ZIwee2cJ93/LRiQ4kIpID4y//RXidCJyizD5D1uQUnJ6MIE3WA3GzFHzujkyGMELSAVqrJn5XRrQ + 3ZsX8AQPgzFz1D72Phhwi948eN40MoAv0GZCTQtqqzDQbe/ZDK6Imgk1LziIQE/5Cn1EzSAvDFbNgAfF + A8sMLOeTmDxfGviIzsbIUfeRAbfdepG0b2+g/2w0XeXM4A5hsh3pfngbEtI9NQFmAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA1dEVYdFRpdGxlAEFycm93O1JlY3VycmVuY2U7UmVm + cmVzaDtVcGRhdGU7UmVsb2FkO0V4Y2hhbmdlhrRdSAAAAbFJREFUWEfFljFOw0AQRXMAJK6TwtwkJ6Ak + TWhyDk5BlQJuQscRqJDozH/W2poZj2MLm03xJO/4//mOd7PeXdu2NyUt1iQt1iQt1mRUaJrmGntxEq/i + Q3wXuKbGPTSZtyPmjQqZSTyIF/El2hnQoMWT9TrbPBcOieFR8AuzsGvgwWt7nYVilj/As/gRWcAS8NJj + CAeb58KhiIGnz8LfxZNgru8LXFPjXtTT42JrNs+FgwTA/MXX/imO4i56erhXNGit12E9rgFIACwia6Lh + IWoj0vQcisf2GLAe1wAk4HXG1X6MugzpLG/C9hiwHtcAJOC/bA3M6+Rrt0jXMyy4DOtxDdai5rPhYD2u + wVrUfDYcrMc1uAVpsSZukL2uBLeXr8UNkrAIc+w8a3GDEBbpwsF6ppCOXTFuzaeoc4MgtrCpdOFgPVNI + x5Zse7C57aPODYLB0m3FYtEDFG3citneR1o3CIYIDf/6MeLD1h1QoscNjAH4hG71OR4OJjYP3KAYoF9w + Wx5IFj/AsNoLWx7JXB64gQQxvGezQ6nNg1EhMxmY6/89ltcmLdYkLdYkLdaj3f0Cj5M+ApfcyL4AAAAA + SUVORK5CYII= + + + + Formular Designer + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABJ0RVh0VGl0 + bGUARGVzaWduO0VkaXQ7P1N8pQAAAxVJREFUOE9tkwtMjWEYx99T6eZULnOtttZc0ppbjYwjpEWFsrmE + Vq5RE9GcTYXpnFyKkC7rMtHFJZcoVEoOix0kqrM43STMjGknnRPn1N/znpxo69t+2/c+7/f7v+/3fO/H + ADC6jJQ3wlAa63GU7o0fxC5k5QdFrEw8n90Xz2P3ouaxkn1zWMleN1a8243dCZ/FnX73b4BJ49VQNJWe + QVHk3DgaG/f1fGL9fCQ6WJ/mA+vVtLPe7vfs2hYX7gwOUORvRa+mGY1F8bi8Y4aE1wiBTt3GdOpWputu + IZqYrquJ5W2Ywp1BAcPe5IRAp6qF7ocM9dcO4+LGqVJeJwS6rrdMp2pkWpWCaGDZAQ7cGRRgWpsZCG2n + HL+/3IL2azleXRIjdZXDMT5HCP5iRPCdGfPxzV1TBwLMXqashfa7DL86rqCnowC/PhVBnrkHp5ZOOE7z + 5oRppcRNWnV4Nq5HTIunsX53hgBzeVIArV4KTVsOqhIDoW7OovsCPEkORdpm78S7sa4JbXcC0NvXgsbL + fjjvb8eDTQwBFtUn/dDzsQhqZTokotGoPhuEroYkfK9LgTxrC1purdTL2tZwVB90winPMVw0NwRYyiTe + 0LQW4KfiNLJXOyKLqMmLRF3ueigLffWyRrENsqhJkCUsQNRMq9PkmRoChj88tBjd7zKgqpXSysnobC/H + 67xgvM1fppdVL4JQFeGAijh3hDkLU7hDGA0EPBCL8LM+CZ3yGHx5fAA12f5QXPDUy98erUFFmD3uRbsi + NUSEaB/3ZHIsNk+gPhqaWLjT9XlhiDMqpUG4n3YETxO89PLnkhUoD7XF7f3TcW7TEhTHrEf+uslcGh48 + /l8A/64WhDUxzsUjIq04Ix7qjmco226LwnAnbLA3y6I5e2IUYUWY7LCnI8ID/odPzvQSN9c9K0XuCTEk + ixwRONE0leo2hJEycyFTZoqYv42ARTrS8RgiwHqErSesxrq3W4xwTrezFi6hmpDLfkIB4/hS+3yocsjF + csgAflT5aiMJ3mn9T7Wcnl1GL+lN8JC9jmZMOkPI/gDWJ+D581Ik9AAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABJ0RVh0VGl0 + bGUARGVzaWduO0VkaXQ7P1N8pQAACQNJREFUWEe1lntYzdkax1cGIRpJrsMMJ+Q60/MwhzOYTpE0k2Jc + So7TjHItColy616SaiqKNAmVnCEkTbpIUSkSSRchTSWUame3u37Pu37tLrPVH3POM+t5Pk/t32+t9/td + 73rXuzcDwGSGnJS/dHBdQVvGABf+REof6ee/ZPRkgIv1LbhohhQvPQf6vx8hmMjw0WPpPt+zNG/Od4Qu + S/PSZXeP6bI7nkvbOarDUj04S1gK0f4/cUSHpbjTMzdtCtU1ejPQ/+mFDXiVdg4J7jpO/DMhmEBbK2un + RYZmgbZWTlM3GqVIWFuLhN12XURhukZPBriQfF74j2htqkDJnTOIc17kzJ8R/EjIRE9iHUJSMalgW0uD + FLHALSctCtE1ejMwIPe8CVpFD9EieoyXKb8gxl7ThT8nBBOyO+tJrK2Z80FKPWtrErEkB01a3jV6MzDw + 8dn1JH4fja8j0FKXjeJbQbi6/1tuYiDRbqJHMRISELFWEmxtqpNSK5BwWIOWdo2eDPDgg3JC1pFwBprK + w9BYfh4tNVl4lhCISzbzXfl7oi8h90cxTruQQGMN8b4dSTVRxeIPLKRlXaM3AwoPg9eS6F1Iys6i8fdQ + NJaeQXN1OgrjjiNi51w3mtNpoih0AeuJRyFL2I09+1jxRiNWvMmIpgoFzjPcgRx/XrzJ8CMDgx+cMkTT + +1RIXoVAUhoMSclpgeaqFBTE+iJs+xx3mqdA9GgiP2Qhc3fxZaEW9iz3XytoSntvyTbWt881NkC2sYG9 + dK1gRNbAkPuBq9FUlSQVPgXJi1NoeBEI8fMANL25hbxoL5zZrH6E5g4meK+Qw9vdDJVEhTUrKrjG4rNK + WXzm7/RKEOmborfY4YXdNrRWFKLYygTJeoscpWv7yBpQzDz+A5rexQuiDc+58AmInx0n/CEu8qPivIkn + Vz1w2nSWB80fQgiBUGbJULadFeado4+dKe/vsmKLU8EuM7SWF0B02gXixAhkrNDBtQXzeJ/p290AT8un + Gb7L0VgZC3ExCUpF6554Qlzogw8FRL4X1cd1PLrsggCTaUdpjSIhNCy8MqM/neLyS428nZ39E1Fe3YC6 + IBdUWBrj7S9+yLXfgyDVCVxYXtbA0DRvfTRWRJOwL8RcsMAbGYFGqH3ojg95R/HhiQfqCcmry8i56Ijj + xlO5iU8JboJnkTPg8NZ1LnbHYvGyphnR6SVI8zuB154OiJqiitDx4+GsosJrqb+sAaU7nnq0wyja6TF8 + eErkeSDMbCauO+mj5oETRI9dIXrkAlGOMx1TJB5EHMTPhpM9+VqC9wqF205fuZZfN0KTpByXU4oRdDUH + ManFOLZkFU6NGYs9QxT58bUXsoyBYalHdKn6LwrC9U+OoD7XDREbZ8J8tmJArIs+3mcehOihI+GAugf2 + dEyhyDy3F+7LJ3rT+rFxB2d6lF1dDUiK0Zq/C+lxnrhyqxCrtgRhgb4TNEbM5BnrLODuBvgD5WRXHTSU + hJOwK+qlO+UG6J2qzXxl35tuy1Cdbou6+wdQm7UftRl2qH1yErcCtiPSQi2r9PIPaBMXovWRBSS3tSiG + Lexs9uJrnf0YOm7ZMYrTWTPmcvRHxsDwJKfFaCgOIWHaZbYDYY8LG2fxSZ8Tn9lpjPRPdF+GqlRrvE+3 + wbvUPShL3IFHZ4xRckEfdG5oznOEJHEhmbRGxoGJSLT8Atrq071ofUet9JmrOJlt7WaAVy43oJJ4WIsK + MAiiB4cgus85gMhNgoEpxARCzU5rTFDSke9RnmCB0jgLZAcsxYtz36FNlIuGtA2oj56HunQrpNuMx82t + 4+Cro8yPh9cI/2YVGpC8sg6braD6kYER8Qc0qPJPoI7SW5dpi9p7+5DhZ4zbzouQ7KiFZAdNJB7SwG92 + C3Ev0BCZfkvwPEQHbbU5ECetQ/1/1FGTsg2pVmMRYzYGHlpK/hR3OMELVBA3tjrL5JW1mebUaX8wwFMz + Ms52IRWgD52tDWrT96A2zRri/DNoKI1FwyvqDy9voLboCspzwpFJBopOLUZrdRbq4wxRFzYD1UmbkLxt + FKJNRsH1W6UciskzN5TgG+yTZfsFczlgzzSmqDG/+dTHZAyMit07H/WPPUh4F2ru7kTNHSu8T7VEdcoO + VCVvR2XCVjy7Zoo0T00U+Gug5W066q6vQFXwFFTdNEGi6QhErVPBFetvEGVvgF3fqARQ3NEE/xLjPUIu + Y9dY5jNXgXl/TY9kDcTsnkeF50rCliS8A9Wp21F12xzvkrahIn4ziqJ+Qqq7Bp56L0DT61RUX16GNwET + URVjjLgflfHrKmVcMp+F/AtrUB63AwluBrBZONyPYo8g+A8bubsWo9jR2YOYh/rHBkZGW/0d71JsURFr + hoobpqiIMUXZ9Z9QcuXfyAs3wm8HtXHXyxTN5UmojtDBm5/H4d211bixbhguLldCuNlUZAfroyh8JUoi + V6E8egviHHSxb4GyD8Xnt4D3Gzn3WQOZK9HdgNAJL2xWT75E1+4Sdb9f6f5fNJ2ByA3TcW79NJw0VEPU + Vm1aAlSdXYxK99F4c2kZotcoIlxvKI5qqiBg5d8QYjgJ540nI0xgEsKJsLWqXIjXgmDAebo8c5pGl0Jq + gA9eoTxF/LqMIsYSnxHjiInEV94r5kTfC3bDm/wslDmNQGXkUlw1GILzuoqwUOt/nubMIdQIfl153xgv + hcdSJnh84SY4qvVnDkR3AzwL/CV3yI+D31kOvz7DhiqPVd+3drW4prQQZcnBuOu/G2Hm+gjUn4GdavKn + aQ43yUV4j+druFgHPA6PKYi/sBzM7Kf0F+huoGNwIx3wBUKL/vIfyw9v2+GIynuRSPGxxGnjBfBaNBXm + X448Se95lnh/5+YFkd4oMh/IOIcn9xMQDPSGdBF3PmrOP9c/NbcNhc7ildCdMbXBWn3MNYMJSmv4O6Lz + J9rN1UOYwKp2Mk0UWNHmAayQs0m+kz9jgGdARXWmNoaNnl44ROlzt0/6DZpNz/i58qLiKRbu96FJ/dif + pUfhDnhQaXC+Q36PxxC8rfKfYvxcO1N+ULUv+1/oUbgD6egw0VGYPCPCjqX8H4Ox/wLT1IlzMgVVQQAA + AABJRU5ErkJggg== + + + + Profil kopieren + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAE1vZGVsO0NvcHk7Q29weU1vZGVs + O4ktWcsAAAJgSURBVDhPjdFdSFNhHMfx1XQvbhokvdx00X3ddlEEQRB0WzeRvYBFkESRWVgstZpz5ZL5 + Oo0CaysbFBlWSos2hroU1wsWmFA3WelyO9s82862s/36P4+4zqKLDnyQB5//9zx7jgpAgdFoVHc6g75u + 11t0ud6RIDqcQbQz96ZgJ7bb437ap1mZ+TtQ2uGcQj4PkudyTG6ZTG7emQTt0xcC9KwialKi1WoNg54Z + SJIEIZrgwkICkWgKMTGDdDaHG30BFihTBtSW3oDP2vcGLb0TJACLYwzNjgDM5FrPGG4NBBESREiZHCw9 + oyxgUAZKmx2jRcdWHp0du9Hux49fUaTSMpra/SxgVAY0VztZIA8xmeWWkjIXF2V+bJPNi2/zAhKSDFOb + lwXKlQFtfauXvzGWyCLKiFkISxmOvfWs+SW+zC0iTv+7YPWwQIUyoDvf4uHHZQMRuqwI/Y1RRExl6XfL + ePZ6BqFwHIlUBi98n6HX6ytproSwy1eVnWp8jqycRyiaJhIWBInelsHcyCBmG2oKPpj3I9C6owgLGE6a + hiiQwzwNRuJpGk4jHEti9nIN4HVxKdd1DBzaDAgPufi0ma954PjFp8jQZf2MLH/vu8OfcODKSMEJ+znU + 9W8p8n346J9Add0Tfttx9hUSEvaccWNCBOeeDmFf/SYsop8b/9rE18qArur0fd+R2sc4XPsI7qH3PNDw + aoGr7p7gA86PO7lLD7byddfejbDuXm9jgdVETyrIGrLhfwK0by3R8G+pRI9uW5UDSruOrSuy/WBlGx9m + zz8CKycyKpQrsLWW0D6V6jdzUIrq8TztCAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAE1vZGVsO0NvcHk7Q29weU1vZGVs + O4ktWcsAAAhaSURBVFhHjZZ7UFXXFcYRFBB8v5LaiZM4k0wmbf/pdDqNiY1p0sRJ7WOSMa+mnbSxTmKT + ZqiCDqOgXtAQjALG2GhVCIhvMIhIEJAi4jM+iQooCvK478t987jw9Vv7nnMDgkz2zI99L/ec831r7bXX + PmEAhjBu3Dh9Ds87fKky7+vL4EwuI1fNlzhfRG7hRXxVcBE5nHMKvlVkZVev5X2j5V4yakvembAtubVh + nxN5ro6uFfowELlRmyNEfLjR3d0Lr68bTpcPZpsbza0OXKprw+mLzfhs23ED7x1DlIm6+vawjJ3VDzYw + cMh3uUljtEQsI9DXh95AP3oCfQp/V9BAp9sPk82DO/fs+E/+WfT3AxW1t5GaVZrC+yOJMvHp1sofbiAy + MjJciImJiZS09vOp3b2BID0BdGn4/N3weLthc3hpwIbMnBplwOPrRVlNI5I2FKVSLIpEEAloRAOjNMIj + IiJGC1FRUdEVtQ0IBALwd/coQUEi9/i6ggb42c5laGIG0r88oQz4uvuUidITN7Ei9eA6CkaTQSaGMxCe + mX2qMjOnFlm7apG56xQySHCuQcbOGmzaUYONnDfuOKkoO3kTbm8XbE4vbt21wpD1jTLQ09tPw2IigOKK + 64hLyh9i4n4DEnmEiA83pOAk0k6nDyarC3cZ7fmr91BxqhFHT9TB6nDj1h0rVqYXq+vFBMuEtSJGAigq + u4Z/Jn4lJvSaGNbAaIlYhkQgdPf2KXz+XkbKVDv96LBQrNmG9O3/U0JF5ddxuPQKbt+zIO2LMiSkFGKZ + YCjE0rVCAQr5eyazSOEYIlkY1sCYTUyvDCXcQwM9fSy2ILLeLk83LDYvbjdbkLKlXBlwc60Ly+qwp+g8 + GppMuHqzDRfqWnD+SovaktXnm3DqQpNuYPyIBmRdZejCauZa+rkEXdoyWDt9aGy2YtWGklDBiYmDR69g + d+EZtBntaDW7cK/Diea2Tpq14U6LDRk7qsXABCJNalgDkRu2Bw2IuBSRLi74BO59G+ug8Y4Fy1IPDyo4 + NwtubxG748FT7AtOWDo9MDs8XDIPLHYPi7ZKDEx8kIFwEpW+jevKf/h7gqJKmKI6nq4eOFx+NLDgPko6 + wCuHFlx+4Tlk76tWhWnl7rAwY9KsNnypDEwayUB0Gi/S0xoU5d5XwsTfQ3ppoAt32h2s+CNYvHw3FsXn + YdGyPLy3VMjF/iMXkbSpFB1mh8qWjYalWbETioHJIxpYv1VrJFq0IqgLy+zig5zEZOe+b7Hj8s12nLva + zGK7i+pzTag83YjqM7dYH8fQarSwXrxwuLvg5b1pW8vFwJSRDIxd90WlMiBi7oH4KE7cLEKZJQsWB3sC + d0S72Y0WKTYaqm+ysOisSEw7ipZ2M6/xsEt2qaVZ//lxMTCVyCE1rIGYlM0VNNB/n3BQVHAK3IqdjEpm + iU4EZJ2NPJDaTC42KjdWpB3B3VYTzCw+mzLQi9TNZWJgmmZAnbYDDUSQWENWOfpowEXxkKhHEyVOd3Du + lJk4dChipokOZsTOdU9IPcKzwcgMSSHyzOCSGjJLxcD0kQyMX83i6evrV4JKbKCIJuRwBWeJTB4exM8s + BJGsLTUUoOFuOw25YOFvXtZQMp9N4RlE2vGwBiYkfVbCLdWvCYuYJqh9toUEg1h0NHGzw89oA4hbfYj1 + 0Io2NiQTa8VDU9K4KPzQEAPaGE0mSvGIAT1CHRELivuDwiI2QNRkZ0ESWQIp1H+xR1xvaEaL0YF21oSL + ASR+WozY2NiZY8eOjZZ3jaDs90MMTFq+7mv1tvN9lJoIP5s7BYrpMDKj1cuG46dh7ndWvIUpd7o8KCz5 + ljuDNWDt5OuaE45OF4rLLyM6Ono2xSeGh4ePoZ5039AQA5PjDYeVAVk3hYhrwhKpitbmh5HiHewFFmK1 + 833w6CHcSl6ChiSyagnqVy7BzZXv43pZFs5lzMXZjc/idPozqP1kDmrWPY1Ro0bFUG9QFsTRFDk+e3gS + 6ikORSzCErGI2yjOyEXczIi/y9mOlvQE4EReiKasJFQteQb3yuMAx94Q7aXvoiTup2JgAvWk7kJDDEyV + 4pGjWMRE1KiEg6Ii3k7aKC6d0ETxnTwB3zKU4c01pXh9dSkWJh/Da0kl2BQ/F39dNxt/SZmNdwTDY3h7 + 7aO4kDwDBYufkMqbRCTroSEGpn2cfECdhLp4UNhHYQ2rh0ct15oHzX+LLmNjaQPOehAi83gj/piwCLlV + 78KK7BA7Kl7H7+JmKgN73nlMDEwmIQPqXYBM+2gVDbBtDhb1MeograTZ6ESHyY4/JRYj46wDm07bsbGW + L6Q1Nryx5hjeTH4UB+rnY3/Dy9hf/xL21f8WCxJj8eIHM5SB7FcfGZIB3cDUDxP3q74tncsrqEOIr2Na + WxbkDdhktuGV+AJ8Um3F+pNWpFZZYKiyKgMLV87C3hsvYs+NF5B/4zfYff15ZeC5v09D8eKHkf7CjAxq + jSNSA2onyB/ViN77966q91fsweIEsjwf/4jP52eZeezyyBX+FpeD3YdO4qWP92FNpRmrK8xIKjdh5XGz + MvDqikeQ99088hxy6+Yih4iBX/15MlJ/PT2LOlNIJBm0C+RLFJHqnE5+dB8zBzCL/GTekt1I/MaE5ceM + SDjWgfgSI+YtzsYf4n+MnGvPIvvaHOy6+rTi+Q/G42cLxm/mfdNINBG9QX1Avsg/ZV3EnY6Yup9YMv2p + 36fjyQVpePKV9Xhifgoef9mAWXM+3PbLtybjF2+QhZPw89cmKp6aP04i18VDqVdD78k/BA7dqBiRQpJs + PaQxQ/su88NEMiezfJ9I5J7B4jKGE3oQ2hiYLSnegRkbLnNyjVw7JO1hYWFh/wecxwMOH7dYDAAAAABJ + RU5ErkJggg== + + + + Profil Löschen + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACV0RVh0VGl0 + bGUAUmVtb3ZlUGl2b3RGaWVsZDtEZWxldGU7UmVtb3ZlO3aMxpEAAAIdSURBVDhPhZJbSFRRGIUPRVMK + FZQGaghqDYWQNTVETTShSDAVQU1FMUGCTIRoF7KHsgt0Y6CLpRUm9iLUSzISBNGDJEfp8lBBJDSFUVIT + UhRS0Ntqf5s9Mk+24YPFv9ba55z5x3NnuiHwfuuGQUC7We5M6SNmjWyO+uNdVwRoZs77n+8FXsfW+9nO + lP6+HLCgmRmvEKbweROvYLBuTffnVJsm0rc00depP36/xq5d0NP6yDCgmeGRIWs6d+hyAa9SlF4Xbs+0 + NupH10n97E3p98A9jV46ZUEzwyNDlo7rejMMcwwld1evuP62OaHxq6363n1Gv9IdFjQzPDJkXYeuN83A + t8w1lPWEajpeJXfq67kmZS+2WNDM8Mi4LB269iD4nqLelaFnL5K7NHa8UZ+O7LWgmeGRcdnJMod1FPbU + LB963pRQNtWijwd368P+7RY0MzwyZF3HHrvnG9XL/KGGuL6dTmr0QFyZfVv0eGPUgmaGR4YsHdf1ApeD + 1f6THZv05dAeZRIxjcTr9LA2ohMVwZuAZoZHhiwdulxQcLZyyYNH9VG921arN7GI+teGdax8MT9YBaCZ + 4ZEhe75y6TBde4Gh+OjCRbf7wiHdXxXS4bIqVlVqmO8oZYZHpq08yI+5wGAv4DXs/6C5pKod0AZWxXcC + Ot/n8twq7TpmGmYbeNo8p3N7BnTOBx5IZ3IThPhXMQR0/p7zfd7I+Z73DxkXTSgd4+4eAAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACV0RVh0VGl0 + bGUAUmVtb3ZlUGl2b3RGaWVsZDtEZWxldGU7UmVtb3ZlO3aMxpEAAAQdSURBVFhHxZZvTJVlGMa1Te2L + a6svQXMOQlrmAEVRSTgbkn+mNNHAaVD+O2viIiiHiZmV9eJJm6fXofmntvyQSzZlq2mtjc2Za7NhWBYp + mYxEkGBYWevb3fN7es7Bw3nOe97zRa/t2u7nvu/rum99n/O+jBGRe0pr8m5yJLBjrOJ9hsR+kVTnZwHE + 4zrLAjshscklgy9dsgUQjP9habEzeGivQGJyppYIvnVeC2iTjiXFzsD+d+XfC22axOSomZ7RSEmXaAFt + 0r64yLnZHJJ/zn0mf508oElMjho9pjeClHW2Bbgs484vnOf07WuSv8+2yh/H35fhD9/UJCZHjR7VGzHT + w1PQcSfG2hbAaMLZ0sLQ9dBWufVpWIYObpehA43/U8W3Ptkjt8+0SK+7U849Vdik+u+HxOSo0ROnU154 + 4s0MZiVcQPHBU4GC8K8NQRlsbpRBd8sI1Xn4aEhutx2TnvAb0lYyJwSJyVGzafDCE28zw7qAfgSKExXT + WufNdLvq18hAuEEG3ntlhOo89NHb8udXH8u1Pds0icnZevHAC0/jnfARAP08FR9QTG8pzHc7a6vk5u56 + 6d9VGyXn3w+9LsMnXU1iWw9aPPAynp6XMIKYJY7NnuFeqlklfe9skhtvbYyScz9DFW01NGjxMF7R4cBr + ARCzxNFZeW5HsFJ6d7wg118LepIeetGgNR4xw0GyBUDMEkdm5O5rX7tcftu6Tnoa1lhJjR560Rht3HDg + ZwGAkJ/aQwfzcsLfBiuk59W10l232kpq9NCLxmjjhoOUFjiclxtqf+k5/by765+VqxsrrKRGD71o0BqP + OPhZAOH4D3Jyms7XrFa3uk66X66SX4LLpWv9Miup0UMvGrR4GK8YJFtAD2+eluN8s6FS+tXNvrapUq48 + XyaXq5d4kh560aDFAy/jGYXXAnr43senOV9Xl0tf4zq5umGZ/LxqkXSuXBAl5y9LizRtNTRo8cALT+Ot + kWgBPXx39hPOmZVlcqO+Srqql8pPK0rlx/KSKDmfnl8k2zOz90NiWw9aPPDCE28zw7qAfhU7WVOdtvJF + 0ltTIVfUv+bS08Xqj4qiKDl/Hpgr2zKy+allQGJytl488MITb2Ywy7YAm03YkfFY6IsFAbn8zHz5fnGh + XFw4N0rOrU8WyJbJUyIvGX5qMJ0cNZsGLzzxZoai99ewYVJW+MScmXKxtEA6SmZpEp+YnS+bJ2Xd+YbT + n2MTp1OjJ06nvPBUPf6/hnWPPOq25E+X7wL5msTkVG30G07fG5NL99Cl/jWsTct0j0/PFUhMztRibrRC + yrpEC4A7zdJefDgzDIlNbvTwCFLSeS0AImb8l/HcIHGi4RH41iVbACDgeXFpILHX8Ah86fwsALiYiCGx + XyTVxS1wr2hN3j3KmP8AEPJiSeQUIA4AAAAASUVORK5CYII= + + + + Profil löschen + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACV0RVh0VGl0 + bGUAUmVtb3ZlUGl2b3RGaWVsZDtEZWxldGU7UmVtb3ZlO3aMxpEAAAIdSURBVDhPhZJbSFRRGIUPRVMK + FZQGaghqDYWQNTVETTShSDAVQU1FMUGCTIRoF7KHsgt0Y6CLpRUm9iLUSzISBNGDJEfp8lBBJDSFUVIT + UhRS0Ntqf5s9Mk+24YPFv9ba55z5x3NnuiHwfuuGQUC7We5M6SNmjWyO+uNdVwRoZs77n+8FXsfW+9nO + lP6+HLCgmRmvEKbweROvYLBuTffnVJsm0rc00depP36/xq5d0NP6yDCgmeGRIWs6d+hyAa9SlF4Xbs+0 + NupH10n97E3p98A9jV46ZUEzwyNDlo7rejMMcwwld1evuP62OaHxq6363n1Gv9IdFjQzPDJkXYeuN83A + t8w1lPWEajpeJXfq67kmZS+2WNDM8Mi4LB269iD4nqLelaFnL5K7NHa8UZ+O7LWgmeGRcdnJMod1FPbU + LB963pRQNtWijwd368P+7RY0MzwyZF3HHrvnG9XL/KGGuL6dTmr0QFyZfVv0eGPUgmaGR4YsHdf1ApeD + 1f6THZv05dAeZRIxjcTr9LA2ohMVwZuAZoZHhiwdulxQcLZyyYNH9VG921arN7GI+teGdax8MT9YBaCZ + 4ZEhe75y6TBde4Gh+OjCRbf7wiHdXxXS4bIqVlVqmO8oZYZHpq08yI+5wGAv4DXs/6C5pKod0AZWxXcC + Ot/n8twq7TpmGmYbeNo8p3N7BnTOBx5IZ3IThPhXMQR0/p7zfd7I+Z73DxkXTSgd4+4eAAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACV0RVh0VGl0 + bGUAUmVtb3ZlUGl2b3RGaWVsZDtEZWxldGU7UmVtb3ZlO3aMxpEAAAQdSURBVFhHxZZvTJVlGMa1Te2L + a6svQXMOQlrmAEVRSTgbkn+mNNHAaVD+O2viIiiHiZmV9eJJm6fXofmntvyQSzZlq2mtjc2Za7NhWBYp + mYxEkGBYWevb3fN7es7Bw3nOe97zRa/t2u7nvu/rum99n/O+jBGRe0pr8m5yJLBjrOJ9hsR+kVTnZwHE + 4zrLAjshscklgy9dsgUQjP9habEzeGivQGJyppYIvnVeC2iTjiXFzsD+d+XfC22axOSomZ7RSEmXaAFt + 0r64yLnZHJJ/zn0mf508oElMjho9pjeClHW2Bbgs484vnOf07WuSv8+2yh/H35fhD9/UJCZHjR7VGzHT + w1PQcSfG2hbAaMLZ0sLQ9dBWufVpWIYObpehA43/U8W3Ptkjt8+0SK+7U849Vdik+u+HxOSo0ROnU154 + 4s0MZiVcQPHBU4GC8K8NQRlsbpRBd8sI1Xn4aEhutx2TnvAb0lYyJwSJyVGzafDCE28zw7qAfgSKExXT + WufNdLvq18hAuEEG3ntlhOo89NHb8udXH8u1Pds0icnZevHAC0/jnfARAP08FR9QTG8pzHc7a6vk5u56 + 6d9VGyXn3w+9LsMnXU1iWw9aPPAynp6XMIKYJY7NnuFeqlklfe9skhtvbYyScz9DFW01NGjxMF7R4cBr + ARCzxNFZeW5HsFJ6d7wg118LepIeetGgNR4xw0GyBUDMEkdm5O5rX7tcftu6Tnoa1lhJjR560Rht3HDg + ZwGAkJ/aQwfzcsLfBiuk59W10l232kpq9NCLxmjjhoOUFjiclxtqf+k5/by765+VqxsrrKRGD71o0BqP + OPhZAOH4D3Jyms7XrFa3uk66X66SX4LLpWv9Miup0UMvGrR4GK8YJFtAD2+eluN8s6FS+tXNvrapUq48 + XyaXq5d4kh560aDFAy/jGYXXAnr43senOV9Xl0tf4zq5umGZ/LxqkXSuXBAl5y9LizRtNTRo8cALT+Ot + kWgBPXx39hPOmZVlcqO+Srqql8pPK0rlx/KSKDmfnl8k2zOz90NiWw9aPPDCE28zw7qAfhU7WVOdtvJF + 0ltTIVfUv+bS08Xqj4qiKDl/Hpgr2zKy+allQGJytl488MITb2Ywy7YAm03YkfFY6IsFAbn8zHz5fnGh + XFw4N0rOrU8WyJbJUyIvGX5qMJ0cNZsGLzzxZoai99ewYVJW+MScmXKxtEA6SmZpEp+YnS+bJ2Xd+YbT + n2MTp1OjJ06nvPBUPf6/hnWPPOq25E+X7wL5msTkVG30G07fG5NL99Cl/jWsTct0j0/PFUhMztRibrRC + yrpEC4A7zdJefDgzDIlNbvTwCFLSeS0AImb8l/HcIHGi4RH41iVbACDgeXFpILHX8Ah86fwsALiYiCGx + XyTVxS1wr2hN3j3KmP8AEPJiSeQUIA4AAAAASUVORK5CYII= + + + + Profil-Daten löschen + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAEdyaWQ7U3ByZWFkc2hlZXQ7Um93 + O0RlbGV0ZVJvdztOu1grAAACuklEQVQ4T33UW0iTYRgH8M1TmXbQwI6QXQwqSQK76iq60BS6KA1bllkW + ohXmKQXpoKYDkzZxnndwE71wqaksT1lm6ZxubWpOuzCiG8VTOl2uLfj3vJsuDOmBH9/zbu/z/8Y7vo9D + 5UG8yLb/2L6O9Z6EC4DDcKQNxj5FswmKpnHUbGj8DPmGl2OQMaoxSFWjqKgf/sBCXAFixSBd/1bb2y/r + nbPaejavRbIBmuJ4U+sMKKlxBqxZf8NCZCo9LGt2rJIVImvQw/zTDrPF5tjzQuII8HEFZNUakUkeKg3I + UBiQXvMJaXI9UmV6pEh1eCAZRnLVEO5XanGvfBBJZZrNAXHPe/F6ctEljQbUkwtQTzilVg+5eoaf18UC + fF0B1wU9aDUtQDo0A6l2Gil0tyrNNBqMcxiY+oHm/q/on1pE48gsmomi3cQC/Ik74XKuPusGn6HkK7md + pAvROZ2o655AS2UDdPHxaBeIUdc1jrrOcahzhdBERi20hJ2/7AjJF/fRLwEWzFbML1tRqtRgbsmKxWUL + tDExsGnf4LuoECPiMhiFxfhWJMCvjx14Fxo+TwFenJziXkeA2WLH8qoNyiYDlui6YrGiLzcfusgw2Kvy + oL8bD13iLdhKH0Nz4RwK9x8qoABPTsrTV+8zCjqQkd+B9Px2pOepkUbEigG0do1AEpsETcRZWIVZWCvK + RH/oGWT7BxTTsLfjDKh2kN1kzz/8yAFJUIjSdCMaK0mXsJpwEeP8KEh4weX0nQ/hOv6KrVB5yXmnSkbv + 3ITlUSJUp09AFXIcK9m3YbjGR9nhY0K2Z8thhsq7/shJ81xyHGqDeYhw8xCRCkXQUcwkREO+j7fE9mw5 + zFB5FuwNjJUF8GbDue4CWvuSnWFcd1G1X+DMk10H+WzPlsMMFTsg9uiyM2KPsds61rPP6BXA4f4Ba3pO + faKtBbEAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAEdyaWQ7U3ByZWFkc2hlZXQ7Um93 + O0RlbGV0ZVJvdztOu1grAAAGvUlEQVRYR8WWeUxUVxTGsa6oFMS0NTWCMbWtbVqTtmkb+09NmtaYNtri + Xq2JCyrj2riAIi4o1gIq2yAoyiKLImJBBlwRmGFQRlywQjXauiDKPjAMw6Jfz7lvYY2xmtib/Djnnvve + /b6573HvswPwv9Jj8VViF3+8yC4+tciOWq8X4LXnQFwbnWyiILVOBqgpE/Uh+hL9noP+/wG+vjfBOqJ1 + NdA7Ijb7m7gUUyGtBOJTL+GQwrF24jqS0k5sikniaDsxRwsJE6IpRiUVmPZEZn5LOvwDhYmuBvruTyx4 + 9KDcjCdPnnbirOFWtxpzRn+zW62NOJV3U8SO3C+vQ2RC/mPS4dXgle5moH9U0gW0tT1FQ2MrzJYWlSMn + LotYp9QaKCcOp10WNc4FlmYxnpRW1LlONNnaEBFvZCV7okcDA/YlFqC17YkqzDdKE5KBhmbVAAvVUT+R + DXQQqaUak3C8iCL3qV7P17bASgbC4/JZaRDB70I3A/bK0lmb2tCoYGuFvvAO5a3tNZm8C7dh4bqV+laO + fE0rcuW6ha6xUI1pbmlDZnbJsw2sjCjACmYvY8TycIV8LNNKLA0zEFLUMKEGeIToVZYE52FJkB6LKS4O + IvbkYtHuXLjvziFyWWkw0aOBgfN2noOutBoZpTU4IZNO/a1HriK9pBppN5gqEf8gNh++iuN/ViH1ukxx + JVKuV2IT1VOuUU4kCypw5GoFZm87zUoORI8GBs31O4uDheXYlXMfgcx55h40tBqB2fdErkJ9rgfIeYA8 + zlFDKxiYfVfk/ueodu4uIo0PMXPLSVZ6nejZADuMulBON0vCyuQe9Bh4MiEiR6a9fhf+LCiLabhOkcX9 + KXK+N78M0zZlsZIjwXtBNwOD2SE7jSCUyHjFXlLzCGMZwhma0DO2COGGMuwlOCp40vVailrDA4TpH4io + pThlo+6ZBhzYoUQmpvpkERQ3MroOeSZNpKDDFG8d3FQyRPxpA8F9im4bMqivIAw4ET0aeP34yWK0tD6h + jailHWsLztK/Zz3ljFmO9bQfnM77S9ozlLq8T5zKLZXqHeB9IEV3hZWGED0acNypPQNbcxuq6mwqlbU2 + 7EswopJzuS/RRDtbvogSNlQQvBEZTHdoA2oiQ82opnu4zptRRLyBld4geDfsdCZwc9wReloYkITaJ5aE + 2oUraqSxvYcMNDn1qc7U1Ntox2xCUWQ0bq9ZhdtpJ1BbbxUm2MyZvBKkT3dbe8vDvapw3lxf0uRzoZdi + wGlb0ElYm1vF5B0Fw+P0qCTRihoWkgww2li9mjPmBhv+TkpCRXQYmovPo2SzJ24kp6DG3Egr0ojzEYfw + MMSfxnLw+EAoDHNm7SDdvoqBIVt3Z4n9nQXDaXIW0MbmIYxjTJ6UU1QIFeQiNFoix3gTV9wXwpqfCkvK + Ltj0ybiydgUyA7TQ74vD3V1+aDZlwHI0EJasGFz5ZU4t6dorBpw3B+roHGgVv+ax/Kse11gRFp0n+oJq + KyHVQw7m4hHlj0TNSsvdhOLEI7i8dD4aUkNgjvFFU3YCLi5bhNs7fGAzpqI+zlfU9TMmY8/oMatIt59i + YOjGgAxxmPBkPLEiGky/TvS5TsLCABF8QDEg9flxVddakPZbCAyzp6I2Zjuqwz1h0e1HY2YUasK9UK1d + hzMTx2P78JGrSXMgob4Dzt6/pwsDyi/iyJMHHaRnJkSoX8WQKMWgqByUc5/GyrlG42wix1iK3LBInJs8 + EZXBq1HuO59YIKLu6y+x3nmYJ+nxoaR+F3Bz8vRLfXStpIyWks51gt/qGrMNBw4XqLmAxyhG0fcDx2qG + 3nSOtfQi6gtvomB/DIzz56DMdxHurZ6ukj97GgLGfrae9PhQ6mTAfsb8nTM9PBMqNesPQ7M+CRqvJHgw + nolYQixeJ7M2AYtk3NfEq2wJzEBy+kXEeO1EzuwZeBi4BrcWTMSthTKU3/ddgvPT3OD33sfqKigGeGPg + Z8I7FW8Wb8q89QyGdWHEOpd3N5+a9AP+8XHHjVnjUUIkvuOKpDGjRc7c+fVnZE2cAB/X973oHvW/QPks + 50/y5/0s74pzmMsH5tKlM1H841e4NmkcEka5QNNn8EZN30E+CaNGonjyOMH1ud8j1PVDM93jpBjgxiZe + BnvvoSODUz/9BKYJnyPeZQSW93Pg580noOPS/o7e8SNdYfruCxwb+xHWObuGUX2QMMB/XhZqvIKOqx2G + B/s5udYuk8T5A4TrYkwzYIg3jdWtdHg7lPrOXBf3dp3sRZAbC/G7xMeu+gkuN2WMhTt9G3ab7FXTY/HV + Abt/AdNi8c+D1tVWAAAAAElFTkSuQmCC + + + + Speichern + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAFhJREFUOE9j + +P//P0UYTEzOWr8XiP+DMJQPZqNjNLm9ID7MAFyKUMTQ5UB8+hgAw9jUYjUAH0ZXiyFICqa+ASA2MXjU + ADwGkIqRDdiOLkkE3g43gHz8nwEAvq7TCya3G6wAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAQ1JREFUWEft + l9EJwzAMRLNZoF+Zpet0kM7RPQIZw9WJ2JyF5CbQOATy8cCVjqcjfx1SSqfiDnviDntS/Xg936PwERKB + OcO7JquTZ3CPfNMWWCic4eNW2GR12vnCN20BGwZ8PMoA3bMncmKeKQ/ghQUVE14G6J49kRPzTHkALyyo + mPAyQPfsiZyYZ8oDeGFBxYSXAbpnT+TEPFMewAsLKia8DNA9eyIn5pnyAF5YUDHhZVwiZ74HLlmgCfsi + J+9/ho+Ab94FWgUeAma7YB954dpdoBJvhX2M7O4Cd4G7wPUKTEIl3wL7yAvX7gKHwTdtgdmGD2Dmm7YA + PpX33+BfwD3xzarAGbjDnrjDfqThC1oLalOREus2AAAAAElFTkSuQmCC + + + + Hinzufügen + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAEFkZDtQbHVzO0JhcnM7UmliYm9u + O5UGMy8AAABgSURBVDhP3YxRCoAwDEN3QS/lqbxdtNKUTDJEHAh+vNGl6WsAXmFDsqwbkphtx4bkR4Kc + bceGRAUjzofFp0wVFPEnWrzk1e0CJfMS6I7ME4w4Sp1Ad8SGhII4/kZwD9oOmV+r+RzWkL4AAAAASUVO + RK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAEFkZDtQbHVzO0JhcnM7UmliYm9u + O5UGMy8AAACPSURBVFhH7c5RCoQwDEVRN+imXJW7i82HIOlFHhKiSD4Owp1p+xYzexXGShgrYayEsRJG + xbrtdhV/V2FU9IAe0AP+PSBeniW+46bg6HCG+I6bgqPDGeI7bgqODmeI77gpqJTLFRgVNGB8b13PnzAq + xoXfG/AERkUPoAHji/+9g1HRA7JgrISxEsZKGOvYcgB55Y6E3tOuXgAAAABJRU5ErkJggg== + + + + Lizenzverwaltung + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAARdEVYdFRpdGxlAFBlcm1pc3Npb247rGnpegAAAthJ + REFUOE9tkntMzWEch5HItbnkMsxfzCWNlW6ok+yUc3TXKY5Vi2qlVi7lGkIqjklzNtnoQhOLmogSx1Qr + FZVEhmEu2Wz+wBg65/G+OTisd3u23/t9v5/nvew3AOjDPAYKrBM27VDFp6ZXRyam9ahXrXvnszKixl0Z + 4C/WbMw9f3P/CaxTtu/dp9OfouLqDTq6HnP3/kMKS8uJT92FuzIwR/QMFwzsT2C1JjbJLzvvhPHazTpy + 84vQxm0kLCaZ3Tl5nCwpIyoxzTR3oUeI6LXuT2ATHpPcUlZZzZHjhSzyDalxcPXS2Lt4hjt7+9emZx0l + Q6fHycvvnugd3Z9glCp87ae2zm400UnYuyg0UioYNs9FsVqepORiFY5L/T+Lmt0/AjHkw4z1UGtoam3H + Xxsri1MEQwVSMj0yYSPnyquY76mWa1MFgywFVg1Zy+tbdSuQNB9U05ilon6/L7cylNSmL6N621Iupyqo + SPGgONa1SWSGWgqGyCA/euD7a/j2HL52w+cO+NgEHwzw/jL0lGJ8kU9JrJsMjbQU2LQcEoJvL+CtDl5n + wstd6HWR6HO00B0P96OhbTXGxgAKopxlqO8hfwuGN2Wr4MsDeJUBz3fC081s2RBMWnIAPBHzlpXQuAKj + wZsTWkcZsrUUjGgQ9+VjAzzbKnZMga54DKfDMBQEw2NRq/cBgyfGmoUcC50vQ2MsBaNu7VH+uuej9fBg + rTiulvQUX3YmeUNzKNS6Q/UCei/NIjfQQYbGWQpGX98hGt8UQXsEtIbReV5NWIgCTdBiOi8IQdU8TBUz + 6T03jYNqexkabymwvZLmhenZYUx3gjHVqzDeVGC8vQxTWxSm1lB6K+fSWzqZH2fGcsBntgz1/Ux/3qAk + wb2ubP1izsa5URztwqkIJ/JXOaIPXUBukAM6P3uyVXPIVM5hy5IZjXJTS4GVYKRgnMDOzAQzE81MMiO/ + bQWDgQE/AS2rGykb7R4YAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAARdEVYdFRpdGxlAFBlcm1pc3Npb247rGnpegAACkpJ + REFUWEeNlgk81ekax2mj3GmaZm5TqtEkS6TFEqmkYzn2rMkYskVRmWosJRyhsYRSJDRaVCaloaJRDBHa + VSIhS/YolFS3ub/7vCfUmamZ+3w+P+e8/+X9/p7l8zpCAIb1DyFMGkEaRRpDEiGJksYOfrL1aNJIEnuW + 6aMhwBRYfBApaWeEklJPsa/DYGlZeTGfoAibbaHR6V68yPJNAeFv128Nebtmi3+57TqvdAsHD9t/T5n2 + GT3LDLJ3hFe6bhayctlMX9+HAFNg8UHEH0pjHwzOMhrjscVvQXBMwu2jJzORV1SGiqqHeNzShqbmVtws + r0DGuYsI3X0Adut9yjnGK1XoHVYZVi1hS+cf6ON9CDAFFoIxBBf1DY7ySzl++nVR2U1U1zbgcukNpJ/N + xeG0TKSmn8Wv2XkoLr2JOxUPcOJMNryDo16b2LoF0Lv/IrG2sGoMhwBTYPE+huBjtwbvik09dRa371Wh + kCD7U9LgsyMKbj8GsmzhuNEPa72C4BsSg6Sj6fi9+CpOUzV8dkTDxG5dHO3BTPArQeKHAFNg8T6YY5GN + vkFOCYd/wc27lbiQX4ygyDis9vDpNP7ONVHHzHblXNWl0oqLl0sbWDtamzt4JLls8u+MiPsZF/KKcPBY + BtZ5B2OZsbUb7TWOxBLihwBTYPEumNNRMnPmTfQNiW4vKLnGzzwwfC9M7deVc0xW2dF9Nmhs8tmwMbF+ + j+da2jvYuG65syfxKDJz8sGLjIe+zZrGiZOmTB58jl8FAabA4l2wh0ScNvi4HqDsWc/3Jh/DKhfPziX6 + FvZ0T4w01Ff2LBP7zq59pmNu6+i6JeDJ8Yxs7D98Enbu3lDVXuFB91gV+O8IMAUW74KVSsx5k19GTt5l + /sBt3BoCDaOVyXT9cxIDCecVXxO6dPmq0MXLZUK5BaV0iW+EZfmFse2alJgDR5BGA+nsuR2LuOZZdJ29 + y58FAabA4l0wA+OdPf3q2FSnZ+XC2sUTihrc7+g6K/WIP8MvFJQI5eSXDL0rpmtqa+8THIVsmoUNW0Oh + xrVsputfkvjmBZgfgIeCuZzg6OnX19TchuTUDGib2+EbKfnZdJ2ddsI8Hk/oY6JgJRZVUF6k4ObFQ0Hx + dfzI24WFOmZv6Pok0vAcsPiLASsrKyExMbExIiIiXzl4+v23rb0T+5KOQV3PEuPGjZssLi4+Vl1dfZSx + sfHIQbHvw9LQ0Bg9bdo02kJs2prNASgquwUvXhSUlptAVFR06oQJE0Tl5eWZSX4IGGBwExOTEXJyc8dO + Fp8qbr/e94/6xmbsikuBmq45pk+fIamkpPaVtrbh5/r6ph9qwpB0dIwmKisvmiwhMVPW3TsI53ILsGl7 + OBQ1Df87dbrELHn5+eNZAsTiV0HAgKamg/DSpVpjMv31jUvCDO/EbXdGZU4C0nd7gbd2BcrCDVDykz6u + 7NRDUYgeCoN1URCki/xAHeQFaCHXj4PftnGQ7cPBOS9NRHs5ICsuEDFezvC01sbRtYsrouwWW3A4euOI + xa/CsAEmfX3bERyOgdj1SKOOvvpM/NF/A29fXCNdJZXh7fMS/KfvCt70XsabnkK8eZZHysXrrgukc3jd + mYmB9lMYaD2BgZYj6G9KQX9DIvofxeF57W405HvjiIvqE21t44nEGjXE5f9hA8TlWo3kck3G39hlRLBS + vOk6gVftKXjdcRCv2pLxqjWJNk+kzRMw8DgOLxv3or9xD148isaL2l14UROG5w9C0FcVhN77/ui5uw3P + yn/E09ub8PT6RnRcccNhp4UgxiRijWZMAQNsiAwMzCZcjzSkTAsx0JZAUFJLPF4ScOAxAZtiKavd6K8n + aN0g9GEo+qqD0VsZiJ6K7QTeSmAvPL31A4E3oPuqO56UuqE13xEpq5VBjMnEGvNRAzRIX1yNMOSXduBx + LF427cFAYzRBSfUErItAf20YgUNxOsUNVlY6sLTQQnqiI57d8cWz25TxjU3oZuCydQR2xZNiZ3RcdsDj + XBskf68EYogTS+RTBiaWhhngdXcWASOovOHor/uJShyK59UhVOIdVGIe+ioDYEXgOSoaWMhZAWe31ei5 + x0P3NXd0la3Fk5I16CxyQkfharT//j3aL61C03kL7LdRZAamfsrAaLr5JZvyVx0nCbqDyssjaCBBA9B3 + n8p7fyt67/qgh3prYbYMKhwTOiOs4Orhgr4H0ehk2RY5oL3QDu3536HtkjXaci3RkmOKhjNGiLeezwxM + +zsDXxWFcvGy+TBluQ29Fb7ovUfAu15U4i14xvp6cyO6b6zHwXAzKC7Vh4q2KdJStpG5nZQtQfNWoe3i + SrT+ZoGW7BVoOWuM5kwD1P2ig72W85iB6YMG+Efynw1MKtihi5cN+9FzZzMNkycN0wbqqwcNlDu/r12l + VN5iF+QkWWCWgirmaxiiMNOfyu6O1gsEpWxbzhP0rCGB9dB0RgeNpzmoSdXAbjMFZkCCWKIfMzCGbn5d + wNOhIYsm4Drq6Vp0l7qgq8QJXcUO1Fd7dBRQT/NtsHe7NqZLz8UcdV0kx3qgNe97NGUZoomgjWd00XhK + Cw0nl6M+TQP1xxej6mdVRJnMYQZm/J2ByXkB2tTvIMpoEFhIwN9t3pX2kgWV1hytlOVG+4X4RnYBZFU4 + 8POypft2aDhN0HRN1P9C0BOL8ejYItSlqqL2sDIqE+cjwlCOGfj27wxMyd3OQfctb7TnWZMs0XqRQU0J + aoLm80ZUWgM8piy5mvKQmK0EyQUasLQypGcdCLqEslVH3VEGVUFtiiJqfl6Ah8kKuLdvDsL0ZjMDM4k1 + 9lMGxHN8OdRnKikBW7KNaIgM0JylR1Dd4X42UpaSUpKQkFPGDAV1zFNbQm1xQh0fqoyagwtQkzwPDxMV + 8DBBDg/2z8bdGBns1JVhBmZ9yoAInVJTz3svR3uB4zvgrwTM0KJ+Ui/5pV06mOViKq0aOq940GGzgdrl + QYeNC2U6D9VJCqhOkCcogeNlULVPGlWxkiiPnIlgLWl2En7cgJaWmQjX0Hxq1pZlaM1dhQaCNpykXqYt + wSMGPEalPaKG2iMLUXtICTX88s5HdfJcVB8g6AE5VFGmVfGyqIqTQWWsFEkS93fPREXMDNwKnwGephSI + MYtYfzWgrW01mmu44usMz6U9j04ZEZBlqU5AVdQcUiGgEh4eVKQMF+DBgbmoSpiDynh53N83GxV7ZVCx + R5rKLIW70bNwJ2omyiO+xW2C3gqTwK2dErgSIAH/ZVK9xPiGWILnAIXwokVWo3SMLD6PdeE4pbmrd5Fw + 3E0NqS5qOOK8EIccVHDQXhlJtspIoCM13mo+9tHBEms+FzGmCohaIY9IIzmEGcjhJz1ZhOrKIlhbBkHL + pRGoKQ1/Demn65crriXGl8Qa/m04ZID9IhLW19cfzUyQyylcQxMJroHZt2xqSZKDmvUnSQ1K+gPJDEqW + ifaQpb2kaU8JBieGyEd/EVEIsxv0a2UklWgM/c8WZcPyDxr3/4j2Gkt7itLeQz/HBg1A6H9REOREOFwK + 5QAAAABJRU5ErkJggg== + + + + File-Tabelle leeren + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAvdEVYdFRpdGxlAERCO1NvdXJjZTtTdG9yO2RhdGFz + b3VyY2U7RGF0YWJhc2U7RGVsZXRlHRRPyAAAAMdJREFUOE+t07ENwjAQBVDXiIJFaBIpBXUKWIGCBskD + sAktSssiiJqakglcsMDxf8RJ5hQnh6B4khPf/SRnJYhISNcDLWALJ7jBM8Nr3uc+6/o+0oAKziAOrKts + QJcVeHQ2IJmCKenvAT9/QgPfDLGxARE2YI/xCNxXa1hxbQM4gweweQdLmEO479sIArU2cf2+FzWgNAMW + s1CxUZt7GlCaQf60IbUGlGZwMa/80cy9qRnMvAFjM3B9Qulncg+Rhn5nBowcYxtfxle+mpcSDwQAAAAA + SUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAvdEVYdFRpdGxlAERCO1NvdXJjZTtTdG9yO2RhdGFz + b3VyY2U7RGF0YWJhc2U7RGVsZXRlHRRPyAAAAalJREFUWEfVlbFKA0EURS0s7AQ7/0DEwsoPkEg64z/Y + WIoghoCBCDaWdv6JYGNhK5IuP6FNhBRCxnvCTEjeDJrsDFlSHFje3Hfvg903u+Gcq5VkcZUki6skKny9 + Xc2yLY7FpXgSL2IgPsWPh2dqnKFBSw+9Uy+bE4gKvuFA3Ip34SpCLx54RTmBqCBxS/RFyrQKeLVsTiAq + +IaUUQ59mxOIChIPTXMJhjYnEBUkHpnmEoxsTiAqIDbNJVhqgNpfQe0fYe1r2BanotRFhFfb5gSigsR8 + Ax+iJxqi6lVMLx54VV7Db/EqHsWFOBF7YkdsenimxhkatPTQG3zWaw3HprkEY5sTiAoSr/0aPouHGVa6 + hoRvDc4bTXHt/fbF3BpyhobnuXCQOGcNz3z4SDhx4z3vgj81f4ammRogZw2PZNrxAYHJEMCzOev8N8Cy + 3Pugrgki2IZ30aYGyP0b9vAhwATOMgmH1AAl1vCvIabhMBcOai7xN8waAHL+htmvILArDgWruPAa4kGA + CVz8I8xFxnlrmItMo4vInIch0hdRCTAWk6s4BWdonHMbvwRosIKKoCkYAAAAAElFTkSuQmCC + + + + Connections Verwaltung + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAYdEVYdFRpdGxlAERhdGFTb3VyY2U7T3B0aW9ucxj8 + wFYAAALESURBVDhPjdPrS5NRAAbwzcusoD8ioi99Ub+kQqFpF6/U0E0palOJddEyU5dWKsvKnDhrXjaw + OcfywoY6NEWdl7xskoS0zJyY5l1nXmeW0/Z0jlgfnEQHHs77vpzndw4cXsbucOqWctgGKSffKOXUGV6G + DxheRKBLwh54m3uxvi07LL/lSTCbrHMmYQJg/MlOubeAqx+uE2HmnQqLg7WwjjfDvtyLtWENLH2FGNeL + 8EElQIsoqJOu3ws4G6URgG0O2JwGfozBvj4E+1o/7EsG/FpoxfZcHbamNWjOPE8bLnsBl+48NrbIjrDN + 7yJfCDKI7ZU+rJs1WDRKsNiRgsYHAbThuhdw7RRfwKalCVsrHwmwANuMGqufbmNWfwkmcQD6s3wxo41C + vdCPNlgOQMfT0P8CdImn9gVY+seB/wDOYOR1IqyDWnxufEUbbg5AU/o5B2BtSIgFYxLMihhMt8pRU1WB + eyIVbt6Xi0mHmZChZNxJL90B3BrSAhyAjSkVJk0adNco0a5RIEWkhGloAoKk4tXrKUURgqQiNj9efIQC + B+qSfR2A75NlKJCVoVDZiIycShjfm7Fq3UBbzwDSnqmRJ9chOiG/YQfQJZ7cF9BWKpAt1WLGsgyZQoeg + 8GRIirUYGZ9HenYZwqJS0yjAKr/h9aanMAZjHSVYGjHiJylbR8ndm6vAi8vF1ykLeLfEUBUWzPLJbB6b + RTBXuE03pwCTPhRddueV8j2rVXxPkzrG09YlS4MsJ8+emaPG5Ow3lJS3IiFdgfKaLoxOWJD4UI4QjjCV + AnRQhP4obiQHSQ6RHD7LTmhOyZDhiiAL6up2mMwT0DUawOU9Qmz8c3idjmn6e597QwbzhN/Voz7+0Rwy + XwuMEForajvh7R9r9fDmCtx9uJHHPUKO7Vum2R30ZE4kLN+gOElA6F24e0dKyDs9KfnOYP4GZQd0tpFb + exUAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAYdEVYdFRpdGxlAERhdGFTb3VyY2U7T3B0aW9ucxj8 + wFYAAAljSURBVFhHrVYJVFTXGR4bE+MSk5rWaOPp4mmaprE9amuqSd0JSMBqCErdQNwQRVHcqImAS9Ug + i4CAIAwMCCgqm8gi+yLINuzbwLDPsA37sDN8/e8bRhHxGHv6n/O9N+/Nff/3ve/+/72PB4A3SUwZw88I + b03A1AkY/x8br3r2hWA8k0F5eB4cqdW+r2ZkeuzSzBMYnC/w3R1Q5GuYU+BrICz02d1U6GOAAkK+t35T + rtdOoZC/U5h9a/udjJv/upDitEXzmO6SmZRjvBguJhKroDwoY8rDazpziPB6ScD+9trY/6BZ6I1OUSj6 + JEmEeAy2PoGiKxuKjjQMSqPQU3kHPSJfyLIdIEk8j/IHR5Dtvq39yY2tDq7H1v6CcjIRXEwkVkF5UCp9 + q9hvT6asJBjD8iqMDtVjtL8SCnkhFD05UHQ+wUhHMhSyGChaHkHRFIKRxiCMSO5huMEfw3W+GK7xwoDI + FdL4s0h30s2inG+P5X6JWAXlQTloaprDdyBmjA43YbS3iCAk8kyMdqWTgBQo2hOgaIvBSGskRprDMCJl + AgIxXO+H4VoBCfDAcJUbhsUuiL2oyRK/Q+BcmEisgvKgFPB2qv23GO4WYVQhJ/QAQyRkgFwgMYruLIyQ + kJG2eHIhCormhxjhXCBwLtzlhAyJ+ejKuIDHVuos8buEnyzgnWSbTegUOtD8xmNkUAIFE8DAfveRkH6a + mj4xRuWlNB3Z6KsORX/VffSJPNFb5IiuxNOQCrRQ578FURZqbySADXon0XrjmIBYDA00YGioBUM0HYPy + fPQ3C9AtOoqmyLWo812GMvs/QWj5OxTafo6GoE1oe3wAsmB9SLw3cAIiz65jiaeP5X6JWAXlQTloWvwV + rf+bgHDztW8uIPaS5v8gYBEJ2EwCjMYJ2Iqw06vfXECEhXpaY7wV+uuifoKAzyG0Wohix7+hIUQP7XFH + IAvZjTpPDRTaqyHkjHoG5VQtSq+OcQLejbZQR8NjS4jDzqMmiQ+JMAwt5XFor4qErNAGHcWHxwR8AZHr + KpQJ9qM+3h5VSW6QpPJR5nMcCaafovLeWeSH3cR6za2/pbyqVpxywtKFZ2bhzDM7d4N3/JwT3aIYJ2B6 + xPfr0VXgjsHmVHRKcjgBFVE3kMs3QZbjJsSd+gyP9s1H6K65SLfejjR/W3g4OeOSnQC+nh6QCe+iJdYC + bQUP4O7kgnNX+f3HvnfwNTK7vGyMY8ro6CiPwfSsA+N9UcAj8zXjakBCUyCjKaBp6C3FgOw+5DVWkCXr + QRryDaSPT+O2hyvSsoowODSE4EcpiA7yQXMGHxGBnngQnoTBwSGkZRbCxNzek/KzjWuKgsgVilGeyRk7 + xvtMAJunGQ9PrX5NEZqiMXIdan2Xo+aBEW67OSDxSR56BwYxQCJcvUJw/AcnuPCD6dkR9PYPITYpG8Yn + fmR+TxvjYWvOFOOT1+hEMc6BGaFmK18toCUA8jpntGachDT6EG0+tghws0NIRAr6iKi1rYfeeBj0hvSM + Ap09feiW9+P+wwTsPXqR+T2LwBYmVhOcG4QXHQg0WfH0lV1Ae0BDRQju+bsi8q4T7nleh+UVd1TXNaKr + px9NrV0cGls70djSCSmBXTe3dMDyqvuw/kELa8ND5wWGhy946ew4+lfiU4oYJ2Dm/SPLX9EFUehqSIR/ + AB+PE7IQEBRLiEFTSzvkfYMckaS5A5KmDjRwaOdQ39iO2oZWNDa3QXAnAvHJ2Ygj7Dzwg4D4lMv0OAGz + 7hl/MWkX5HkfhyiBD3NLR8jlfegfGEI/FVh7dy9HzIjqG9tQ1yhDjVSGaokSZVWNyC+rQ3FlPVrayA1Z + N507cdDsSu/yVdrzOd5xAt67Y7Rs0i4YpM1H3iGEp7cHgsITyfI+1ErbUMuIGhhakZUvwsl/20Bv1wmY + mdsglbojp6QGOcU1yC6s5iCmca78IGzRP3WD+JSr5JgANh+z/fcunbQIB3pYDcSRK6EI8LaDo1sgWtp7 + IK5vhriuGZW1zThz7jr4PsGoqm2Ah/cDnLV04MgzCsR4mi9GJY2zuOyOjVuMzxHX+wTlx8p4B/x2L36F + AGq1Jh90VDmiPtsZ+00voaOzB6KaJpRVN6JMLIXRkfOoENeSGClKyqtw4OhFTliasAJpORWcW3qG5ozs + VwTVEv1MANeG/B1/zsjlG0FeFf6SA30yKsb6YPDdrOHoHshNQwkRF4okhAbYOPrCLzACInENfO+Gw9bp + NmpoelKyREjOKkNReT11jRs0Nu2zJK6fE1g7PhPAfZBsXTJvgYvuHz0FO/7SHXVpF3ICr6EiJQDSolBI + RdG47miH+6HxtMAMoobeKI8KLK+sFnklDFVw8XwAc6sbcKMFqaJaitJKCRKeliL+aQni00tQXd8K51uB + +EbH2OuDOR+xaXhWhEwAc4HNy8xF82bOPa++UPf6xt/b3dj8adgtvcXFiQL7lgNHL3BVLKEWY/bml9ZR + cdUgPVeM9LxKlIol1JK0DlBbllRIkZhZhti0YhJQjKd5FUjJKUeRqBa6u072LvzDko+Ja6pKAAtuiSSw + uWFCWJ/OILxHYJbN+6eeCd/LLxx2LgGwdfZHKkucW0kEpYhLL+YQk1aImCcMBYhOLeCuo1NyYWXtAbub + d+DsFQy1jXtvU77ZBKWA8aBQCWGOMKgETf9ync5i7S3GlzU27TVX37TnmuFhK3l8WgHZXIJoIowiwsiU + fEQm5yOCEJVSgPC4LOzcf25glfp2p7Wa+m7rtff4L12huZzyPV+IJgiYLFTOsMJhrjD1H63XMrD+0UGA + jPxKRCTlI5ksTqffCRmlCEvI4Rw5e9EFK9W2sb2AWT5n7FlG/rwLXgcWm7eZsZPKGebIbDVtQxs3ryDk + ldYSaQlMzW2h+d1h7hyTWkgu5OGqgw/+obbtOo1n5KodkeVguZSb0evAYqOeKa9L3sd+qtyYuV7b0NnD + N5SKsJz7KCGbXej+Jyu/3uZm6+yHkJhMWFN7rvx6uyvdZ2/OvXWTrIu3TmsP/aSYjHAiWGjpmvA6unt5 + 7V297JK9wbSlK7T+vmaDvpf2VpOeNZoGYXRvHoEr2NUau8I0dYzlX6ltEyxauu5LusfNubS1k8ewRtOQ + LikmI5wIFpo6h3gaOsY8jW8PskuVCyzp+x//5rNff/jLBXPHrrmCnTHrgw/nL/iEfRMyQWzd57bf1Rt2 + 81ZxMKBLHu+/ieFYnJu9fywAAAAASUVORK5CYII= + + + + SQL-Admin + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAC10RVh0VGl0 + bGUAREI7U291cmNlO1N0b3I7ZGF0YXNvdXJjZTtEYXRhYmFzZTtFZGl0KPa6nAAAAs5JREFUOE+Fk21I + k1EYhl8znZ9pQf5IhZAgCwlJCH9YRsvUXKn4gSRShLJQWFlqoFBjiiRDzakgzqjMWDChbGpuTTZTN2mS + +DGz4UcmLnPOTCXR6e7OeS0wyzpw/zk813Xe55znZchyIHHUlCckdEmSKnSVSc06ScKQriIRneXxQxpx + bMvrYp6kWRiVSOp203oAzK/Q5aivSm43KUQwv62HdfgFliZVsH/twaJJjllDNSbVIvTX86ESRXdSyXaB + k74yEVibAVangZUJ2JdHYF/sg31ehw1LO9ZnFLBNy6ESRlLCebvAuassHjZyIta+/JSMEckw1hcMWP4g + h1VfDqs2D68KuJTgbBdw3ohjsTqrhG1hkAgsWDM34JtRgM/qSxgQc9FXFA5zYwp0Ndcp4UZC78KRhN4f + 46It5v1XYNEKMdQiRZswpERz9zgaBUeKCetEBa7qwqh/CkyPBbD2P0NPbQYmXsZjwz6G9zIequL87rEC + 5Z1zOwpGZdmYbJdiUJaJsecXWdg2noXu/ECUcvezl+DWms/9q2CuV4RPmjr0PkiHSR7DwivGdHTkHEKH + OAw5wZ5lVOCuyA3/Q7A0XoHZYRkMBB55GsXCi4Y0aAQHoS4MhSDI4z49nBU03Qz7XWBRYmGqCX2yazA+ + 5LLwnDYJ6kx/tBaEgH/YTUI4D5JdVODSwD/R1l19FRPaOsyP6rE6/w4DXVLoxBEsbG6+ABXfF023juFK + gEsNYTwpnOpDX3PT4l6aHJQhTQtWPLocbDTIqzZyswuhqC3G9yk9lBm+kGcFItWfU0tqvSnzURbBJO2j + o7C56EDQN6U9Ubtv8Nm88QF9G56U3EbR6QCkHHCmJ7OwSXqKMUlPMnFeBNs6llvGc4+3LxeePqGTrt5H + a/z2eJwhe2zPPA8HhibGnWHO050dBLQ5L5K9JKR08zeOJt8X5cowkSRUciOAw/wAcHo+daCdVmIAAAAA + SUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAC10RVh0VGl0 + bGUAREI7U291cmNlO1N0b3I7ZGF0YXNvdXJjZTtEYXRhYmFzZTtFZGl0KPa6nAAACM9JREFUWEfFlgtY + zWkex/+NS5JSUhuWZTZMYjEr6zKZGFJjiCipqJmQVGRtbg26uZboYoxUurhEUborTuh+O+ni0uFEl3O6 + qHRT6XT6zvv+6/Sw2+7KzvPs+zyf5/mf//89v+/3/76/3+//MgD+r/zzkOrjC8KQPoZ+wLABoPclc+n/ + 6P8/GgMJS5AMifAQBxNN2Rz/zXrcoC0uhSHmYcWhFtyiUHNucYhFTXGIOYoIhUFbagoum3G5gWbcXD+T + G5kXNromexr8YL5yhhyJQQ19ZGQgYQmS8UXQz3pjHwebez29vq2x/N4x1HKD0MS7g3bBQwIH79+kQ9yc + B/HbDLwXJqL1ZRhaeaGoz/OC4IEzSm/ZIc9vU2Oaj6H36e2LVUhMuiKsiYGEJdBBJw0tvvJjbv3TSIja + ytDTVYmejpcQtxVD3JoPcVM6ut8+grg+GeK6OIhrotBdfRvdgnCIqq5BVBEK0evL6ORdgJBzCBk+G/JI + zOEEuhIDCkuggxoYnuG1HkQZPaIa9LwrIXCJeA56mjOJgVSIG1MgbkhG95sEdNdGo1tIDdyEqPIqROXB + xIA/RGUXIeL/gnuuejTyCMInGaCTpNPOroOohYcecRuhFegiRjrJKhAz4pZcdBMj3Q0csgqJENfGoJtd + BQK7CjdYI138QDRnuyDJSYdGHkmg2zCgsAQ6WAOPPPTRxPUi+8tB93sBxNQAhV63EyMdZGva+ehpe0a2 + Iw/tr+6goywC7bwAvCvxRvODfRAGr0LFNUMkHllOI8sSPtnAiAenV/cZuIeuzip0ddWhi2zH+7ZCdNQG + o4W3CzUJS1ERqonnZ2eAe3QKis9ooOq2PhqStqM+cgsEQbqsgYRDywZtQIZzYtXvZiD2wFIaeRRhCN9q + E9WgeUZ1JEjR+3wrY3LZZ+Cem97vZiDaYUm/AQIVH1Jgqu9cYroWBaZrncnvj3oFnSQTf2RFZjXHCR0V + iZ9toCJAB0Wey3Bz16JsEpM2JbZTpq5e4fLK0Qbiah74eyzwcPVy175n1ARrYOTdIzqoSjoKfrQzXj8M + hIAbjbrS+2gsS0B9sQfePrHpN/DUQx1Z+ychz3UaSny1UOy1HFmOf0WKnRq4J7Vxa/ciugIKNO5xA2u3 + 0r3bIBaWojXgONo5Ycg20EWM1kI38pyuBGtgVLzjd2gu8sP72jQ0CfJZAy8SfVEQaItcb33cd1BHnKUq + 7pgpI8pkLOLMVZCwbTzSj8xBsY8eXodsQk24CaoiLBC+829IT0/X1zX2PHHsPAfCxg60+B9Htb0p3lz2 + RYnzPvirTaEmpSUG5OIOaH+QAwKyBfVkC8g2vHuGzvoItL0+ivpHRqiO0kNZoBZKzszBc7/FqI43Q2PK + bjREW6Lqsi5eXdmAu6e24covHpmOnol43SRCbFY5Mn0voOaMC6KmqyFk0iQcU1Y+RXRpt+w1EOPw7f+U + hG9ukxwIXInyOEfk+P0EYdwmEkeIyFQ+/KMLEZ/Gh+dKQ1waPwH75OTdiSYt0/4tkLvzd63PNlB/dztq + IjajPNIeT6/vgCDaCOjkQ/x8L7KSzuDOAx4Mrf2hpe8GbZVZHkSPVghNQrYKqAv5GzYLsz+nCipv6aM2 + YSuESU4oDrZEZeR60jF5EBfZofPRd2grOgTH/QcwX/dnKExc40m1COyHylaK3QHWwOgIuwWDroIcl2l4 + 7PUNikNJol4wQ/kNfYDkjOipKzo5S9CS74Dsw1+CYz8ZOnM1zlIdAiu+QH4as/MDAwrh1vMHVQWxW1QQ + YzkOmec3I9fPgiTfKvS0lqAj0xJtsQvRkrWHNZm8cyJ8dJXOEQ1FAs16tgFJK+ky82TVyGWvAcUwK81P + roKXAVooOD0bJWFbkR/4E8pIB+xpLkR7ihnaIuaiKdUGaXsmIJ6UqedyRW8SfwxB8nmWMt0Tykgr6TDL + 1GeQn70Gxlyz/Pq/JmF1/FJS75oocldHrq8BMryN8OLSCnJWyENbkjFars0kJWmFhzaqiLVQhfsSeR8S + W4nQL553aDJz/LAzoz39K8b3G9os+1bgqsWc/2iguXQXhPHaeHl5HgoDjZHmYYDS89rkgJKFljgDNARO + R0OyBThbVRBFtunYYjlfEleZIENgxbMdJjIseycwXgtkmXPz6ZGhrwwDTGfmFARaoa0s9l8MtNeQ8+Fz + O1REf4tn4eZI9ViPZ+e0yJklDY2Ra1D365doiDdF0o9KuGWoBBdN2fMkJj0XUnEaXypz9zgmc5cqS4ad + KuMxbyTjPrfXAHUn/YOG8mRvg+nBQaazWhPdNiP/pjtepF5HdUkkqnJPovaxNfjJO3Df3QIZZ7dCJExB + Y5gu6rwnoj7GCAlmYxC+ThGHv5a5QOKpEiQnIql0axWGkmatzKRbKTNPHJSZU3+RYU4Q6GA/lwSaofJq + SjITDi6bbOK+6s/e3mumxvnqT33is0btSbiDcUf06T2I2qlDzhFAQ+gK1J4ah7rbaxC7UR7XVyvg4OwR + v5IY4wj94o+2KjESHhKK7JWYysNjmGMa0ozbDPZTwA7JgYHmA71LA9CGQUtnLGECYYbX+vnROYEnUfc8 + DwI3FdTe1EP0Wjlc/V4e+zSkL5I54wmSk5DUAwtFhpJiTtisyDy2UWDKD4xmXu0fzbh+NZxxIXw4qAkJ + 1AwNIjGkoDD2j3MOmhi1N1XyICCNKuP8P3DNVh8X9Wdir7r0JTKHmuwX55gpMBzTXu6bKjJcq9FM2d5R + LK/sRzHO04ez/LvxoRHas5VmL1rnZLPbFbU5N5HqZY8AUy2cXa4O29l/8CPPJxL6xe8ZyzMsG3vJtyTC + diNZXtjKsDhNG8Yy4EFRAg1GoDZVNZdueWZ7KAS6Kzbg+5nqHQ5zx8esnaK4kT4jSL5sUslGcgyLYS+5 + FrLMix0jGB7FSrqfwRigK6CsNksHY8Zp8OQU/3RyyLCR88g9uuT01EObDPvmR6cOYwbLgMISaNC+4PQN + aV3TJKNJSVsYzQ361myTOaI2lBk8Q5nfAK6UO7kYFLMOAAAAAElFTkSuQmCC + + + + Profilübersicht SQL + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABZ0RVh0VGl0 + bGUARGF0YXNvdXJjZTtEYXRhO8WNRNIAAAK3SURBVDhPbZJZSJRRFMfvWGmbreCTZARSVA9amdJThQQh + BCGUEBSIQvRYafgQGERmqbmFpbnlmCHO1OgYSpGaGSnkWs4o5BLWODKLszj7zL9zvnFSqwu/73zc757f + uffcTzSotV2N7ZNofDMJefsE5OoJNLRpg9B7fasW9SqNRLVirEcIsR6ACCF44eoRYOixlgD8RI1ynDJE + BC1ZEdSrggKXNwCn2w8nRQdFh9OHJRfh8ErR5wugsvkbCzaGkhlRrdRIVTl5pjwJM2WJmCldpuQ4kQAr + STwkqHg5+q+gqmVM2uYSVeTFf4/poqMk8MFNgjL5MAs20fSKgK0ssFGV6aIjmC4MEY+pwjhMFcRhcckL + l8eP4rpBFmxeIyh9PiQ1yU4CrmShxZzA705KcripD04SuL34MDDLgm3EOiKMEKKg9gt1GNI5m9o0eKHW + opGinBjRLmCwrwsaVRZGa89h+OlpDD45ZR54fLKzI+9EsiR6WDUAPxkWbR6YqbKZotHigcHqhcXmQkdO + Mn71N8FtM9KOAbdFj9n3FVBkHJwjQYS4V/EZPhIYrR7UKb+iRjGGampsTcso+kfmoLp6GNbhO3CZ3sIy + lAu96gJ+VCXhVfp+Ps4WkVv+CV7q8MKiW0JvcmHeTNHogsFsx+vMQ7AOBQUc51UXJYHiciwLIsXtkj5J + wEk6o0MS6FhickJvsECZfoASc1ftIChoubSPBdtFTlEvPPT32anTfJUM3wT3wmAiwZXYVQLeQfAIzWl7 + WbBDXL/b2XUrvwfZ+d3Ivt+NLOJmfheyHnSj9d04mjMS8F2RCbtOLYl+KlIxkhcPeWq0jgTbhEwmi5Ca + IcRWIjIEzXPcfe1YVNqjM9EfK1NiHM9SYlB5do+jODm690Zi1Hn6Hv7nj/ofNGTEBoLlO4ldy7A8XAgR + 9htUAczO/wG3xwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABZ0RVh0VGl0 + bGUARGF0YXNvdXJjZTtEYXRhO8WNRNIAAAiUSURBVFhHnVZ5UNTnGTb3rTHRtDnGdNpOp6k9NN7mqNqZ + zphmck36hzbpjFIyNo2mxgtqrVHBoHKDgBwCiSIIIvVCUC5RjFZSMSJKHWSBhWUPdtll712ePu+3u3gE + 0ck38/ze37G/fZ73fZ/v+36jguOeIO4N4r4RcP8weOA2kGfyf2oA+A5C496kvFPVBJLyCcbEnSeRnNuA + pFyeE0m8TswlcuqRkHMKcYyCeEH2CaIesZknEJvFSGzLrENMRk0N/1tESHK3FSAP7xPi7zMGQ+AhBD8P + fsYtO2qF4UFCVYE/u62A+xPyTvIa8PFFH9/2Mnp44fb6iUG4BJ7QuR9O93V4fH4SC2mA2M+DICa9Rhge + Ju5CAEssQ0gFQuLyIUDs9ikiuef2eOFU9/xwuHkehAhTxCKCUZKITq0ShkeIOwp4IIG9lKGyJBQ5o9MT + yFwEOFxedKS/Bk3aK9CkzoYmZRbak2dCkzwdmqRpaE+YqgQIuSAq5bgwPErcUcCDYigZKlNm/GVpI77c + 14j8knPIZ8wtPqfutyfPUL8bbrTFTlK/CQnYkKQEPEbI7LmtAFH30LasOl5fr4DK2O1RWcufOlQFKCB+ + CtrjXkZb3CRF2Lb1N8Sv0LaFiJkIq8PDqvnhoy82JFbcvYCtOwICpJ/S2wGXG3ZXgFREiIABxgGnm/Dx + mZdkLlidXtjUuQc2uxv9Ax7CCy999K+Eo8LwOHFHAQ/LlJERyNyP7L1nFbKKziC78Awy95xBFpFZIOdf + Mwawo+A0MnYLTiF91ylYB0SEW82MdbHlwvAEoQTcboiARzan1SgBkrFk6pQo2RFyrTJ1SKZy383IcyGz + BQglcyszt9g8Cm6PD5Exh0TAGEJWRfHasEMEPBqdVqUWFCGU8moyXh/R8QHS6zD1uwiJDhjNTtgdblTU + XRIBTxOyFkgVhEuE3CRGHjwmU4YziJmyl+yxJnWWqshwo53ms5DUwuz7SGzoaoW2qQwd9Qm4VhWNqweX + o7UkHM17/4aWfX/XNeV9UNeYsyCmKv6dV8klK6NwDolQAjZyyogAMZiIkDk9kuP7rB4YerrQeTIePfXr + YW5Og6NjN1xdBfD17gOM++DTfgXHlTTYLsZBV7cWlwvDcDb1vYaitb+bGORVIuTk8c8TKgIVYB9Vf+1e + lpaR/ZT+Wgiz1QUzryUa+xzoqI2C03QVsHMGDdBD1mNA/xGg7wBgogh9IdDzFaDdCXRmAh1psDZuwslt + f7hMzocIaYkS8MT6+HK1nks/pbTb8+sJ2RHrkbLzBHfDE0hWsY47Yg1ONrahduO8QE+c/6WAahooKMBM + AayAEqATAblAlwhIB82EiojZ4g1ZIYVbHUbLlBEBVjszliyVm8VYTvRRkDIX+y2lN1oc6DUNoHrDHAx6 + +qiApfMxuq5QxGlWgtUw7Qd6i4gCCqEYXTHjYfi6D+Ho6pkiYGh9kP16TOSWQ2odlxYoQpY5QOyEyeJU + 5AIDzw1mF7SGAVStfx3Gox/CfiUbPusF7mQ6wGugGCvRD7j18Fu+hU/fAEdLLsy1q2A6thRHVky/aX0Q + AU9GcM6KAJWh1YnE7FokZNcgMasG8Vm1iMusJqpUjM2oQnXDFRxf9xoMRz5EX90y2C5E0YA5GHQchqc7 + D7amKBiPhaN7z3x0ZM1U6C58Wwk4vHyqCBgd5FaHsWu+ODAkQDI3qIyZrcXOkjPzfg/0Zgf0fU7oTHZo + tGZUrn0VXaUL0HdiKWzfRsGtDQhwseffEZAtAt5C94ElOLjsZREgC9SQgKdWR5epfVyVWZFTBAnlXKDn + dS9L38t73QYHBZhQGTkbzTkLcDFvITqOrYSlJQVOfTGcnTkUsAmGynC05/8e/0udjouxU/FN7Dw054fh + 4CeTRcCTIQGyTD69YkOp2kL1NJiBiM04jm2C9OPYmnYMW7YzEjHbK7E5uRLlNc04umYm+s9uhulsPLrr + Y6CpJc6kouXfkWjKC8M3qe+iKfkNnI+fi9bs99BzdA36zyWj7K+TRMDYGwWM++zz/dxCBxV5L5fSEHQS + TQ7ojHZ0GwcIOzp7Lbiq0aN81QzlAfPpCAy0ZsBDl8P1NbymKjiuFcN6fjuM1RHoPbgEPSULoStdyLYs + RemSX4uAp4Lc6jD+03UlSkCv6jFLbZLIcjMKaQ/vaY0O5X5Nrw2Xr+lwaPk0dO0PeMDKknu44IgH3No8 + km+CkS3oLrzBhEVvQUsPlIb/UgTIHnFdwCf/3Ms93K/Ie4wkNTBjk43khMGmyDsNVnTpbdD0WNDS1oOD + n05B8056IHcBOipX3OKBqJs80BwX8MCl/L+gePFEETD+RgHjPo4MCAh8gARgl62Y+4LAJh8chJUfHWYu + Sl09ehxYOhmWM+KBOGjpgfYa8cB2XCqLxPncxWikB84nzcf5OHoghx6oiICVHihZ9JIIeIaQjUktBmPC + PsutXbKmEEsi9uCj1QUIX70b4asEuwher9yNsBW7sHjlLixano+C0gaUfTwJhnJ6oGEN7K074DEcwWDQ + A872EuUBU03kDR74E9uyFEV//vlNFZANQTYGmZei6ofEs0E8dwueD2IC8bO0N3/S3pr/Lj0gCxE90BX0 + QHduwAPHP4J2zxtqDeiUdaDobbTkfYDomS+08f2hWSBbooiQCymJQASNBPnWH71o8jOzkuf/uGlv+BQ0 + JP0Rmur10F1Ih/1aphKgKw/DxZQ5aIyajIplE7Hz/ZewccbzF97/6djZfH9oMwqN0JfK3UIEi5Cxy2c8 + +2b0nAnpsfMmnI2b+2Jz4rwfuRLmvoi4305wffHKhOao2S/85x/Tntux+Bfj3+HvpfTypSzv3zPsl+pI + uGVI5aSPIkQ2FynrOEJa+YMghFCmnKx8QiwVlMwlieE/lUfCLSNUDREifypZiSBBqJ0CuZZnIeIA+ahR + o/4PCmDxqfADI0QAAAAASUVORK5CYII= + + + + SQL Admin + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAC10RVh0VGl0 + bGUAREI7U291cmNlO1N0b3I7ZGF0YXNvdXJjZTtEYXRhYmFzZTtFZGl0KPa6nAAAAs5JREFUOE+Fk21I + k1EYhl8znZ9pQf5IhZAgCwlJCH9YRsvUXKn4gSRShLJQWFlqoFBjiiRDzakgzqjMWDChbGpuTTZTN2mS + +DGz4UcmLnPOTCXR6e7OeS0wyzpw/zk813Xe55znZchyIHHUlCckdEmSKnSVSc06ScKQriIRneXxQxpx + bMvrYp6kWRiVSOp203oAzK/Q5aivSm43KUQwv62HdfgFliZVsH/twaJJjllDNSbVIvTX86ESRXdSyXaB + k74yEVibAVangZUJ2JdHYF/sg31ehw1LO9ZnFLBNy6ESRlLCebvAuassHjZyIta+/JSMEckw1hcMWP4g + h1VfDqs2D68KuJTgbBdw3ohjsTqrhG1hkAgsWDM34JtRgM/qSxgQc9FXFA5zYwp0Ndcp4UZC78KRhN4f + 46It5v1XYNEKMdQiRZswpERz9zgaBUeKCetEBa7qwqh/CkyPBbD2P0NPbQYmXsZjwz6G9zIequL87rEC + 5Z1zOwpGZdmYbJdiUJaJsecXWdg2noXu/ECUcvezl+DWms/9q2CuV4RPmjr0PkiHSR7DwivGdHTkHEKH + OAw5wZ5lVOCuyA3/Q7A0XoHZYRkMBB55GsXCi4Y0aAQHoS4MhSDI4z49nBU03Qz7XWBRYmGqCX2yazA+ + 5LLwnDYJ6kx/tBaEgH/YTUI4D5JdVODSwD/R1l19FRPaOsyP6rE6/w4DXVLoxBEsbG6+ABXfF023juFK + gEsNYTwpnOpDX3PT4l6aHJQhTQtWPLocbDTIqzZyswuhqC3G9yk9lBm+kGcFItWfU0tqvSnzURbBJO2j + o7C56EDQN6U9Ubtv8Nm88QF9G56U3EbR6QCkHHCmJ7OwSXqKMUlPMnFeBNs6llvGc4+3LxeePqGTrt5H + a/z2eJwhe2zPPA8HhibGnWHO050dBLQ5L5K9JKR08zeOJt8X5cowkSRUciOAw/wAcHo+daCdVmIAAAAA + SUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAC10RVh0VGl0 + bGUAREI7U291cmNlO1N0b3I7ZGF0YXNvdXJjZTtEYXRhYmFzZTtFZGl0KPa6nAAACM9JREFUWEfFlgtY + zWkex/+NS5JSUhuWZTZMYjEr6zKZGFJjiCipqJmQVGRtbg26uZboYoxUurhEUborTuh+O+ni0uFEl3O6 + qHRT6XT6zvv+6/Sw2+7KzvPs+zyf5/mf//89v+/3/76/3+//MgD+r/zzkOrjC8KQPoZ+wLABoPclc+n/ + 6P8/GgMJS5AMifAQBxNN2Rz/zXrcoC0uhSHmYcWhFtyiUHNucYhFTXGIOYoIhUFbagoum3G5gWbcXD+T + G5kXNromexr8YL5yhhyJQQ19ZGQgYQmS8UXQz3pjHwebez29vq2x/N4x1HKD0MS7g3bBQwIH79+kQ9yc + B/HbDLwXJqL1ZRhaeaGoz/OC4IEzSm/ZIc9vU2Oaj6H36e2LVUhMuiKsiYGEJdBBJw0tvvJjbv3TSIja + ytDTVYmejpcQtxVD3JoPcVM6ut8+grg+GeK6OIhrotBdfRvdgnCIqq5BVBEK0evL6ORdgJBzCBk+G/JI + zOEEuhIDCkuggxoYnuG1HkQZPaIa9LwrIXCJeA56mjOJgVSIG1MgbkhG95sEdNdGo1tIDdyEqPIqROXB + xIA/RGUXIeL/gnuuejTyCMInGaCTpNPOroOohYcecRuhFegiRjrJKhAz4pZcdBMj3Q0csgqJENfGoJtd + BQK7CjdYI138QDRnuyDJSYdGHkmg2zCgsAQ6WAOPPPTRxPUi+8tB93sBxNQAhV63EyMdZGva+ehpe0a2 + Iw/tr+6goywC7bwAvCvxRvODfRAGr0LFNUMkHllOI8sSPtnAiAenV/cZuIeuzip0ddWhi2zH+7ZCdNQG + o4W3CzUJS1ERqonnZ2eAe3QKis9ooOq2PhqStqM+cgsEQbqsgYRDywZtQIZzYtXvZiD2wFIaeRRhCN9q + E9WgeUZ1JEjR+3wrY3LZZ+Cem97vZiDaYUm/AQIVH1Jgqu9cYroWBaZrncnvj3oFnSQTf2RFZjXHCR0V + iZ9toCJAB0Wey3Bz16JsEpM2JbZTpq5e4fLK0Qbiah74eyzwcPVy175n1ARrYOTdIzqoSjoKfrQzXj8M + hIAbjbrS+2gsS0B9sQfePrHpN/DUQx1Z+ychz3UaSny1UOy1HFmOf0WKnRq4J7Vxa/ciugIKNO5xA2u3 + 0r3bIBaWojXgONo5Ycg20EWM1kI38pyuBGtgVLzjd2gu8sP72jQ0CfJZAy8SfVEQaItcb33cd1BHnKUq + 7pgpI8pkLOLMVZCwbTzSj8xBsY8eXodsQk24CaoiLBC+829IT0/X1zX2PHHsPAfCxg60+B9Htb0p3lz2 + RYnzPvirTaEmpSUG5OIOaH+QAwKyBfVkC8g2vHuGzvoItL0+ivpHRqiO0kNZoBZKzszBc7/FqI43Q2PK + bjREW6Lqsi5eXdmAu6e24covHpmOnol43SRCbFY5Mn0voOaMC6KmqyFk0iQcU1Y+RXRpt+w1EOPw7f+U + hG9ukxwIXInyOEfk+P0EYdwmEkeIyFQ+/KMLEZ/Gh+dKQ1waPwH75OTdiSYt0/4tkLvzd63PNlB/dztq + IjajPNIeT6/vgCDaCOjkQ/x8L7KSzuDOAx4Mrf2hpe8GbZVZHkSPVghNQrYKqAv5GzYLsz+nCipv6aM2 + YSuESU4oDrZEZeR60jF5EBfZofPRd2grOgTH/QcwX/dnKExc40m1COyHylaK3QHWwOgIuwWDroIcl2l4 + 7PUNikNJol4wQ/kNfYDkjOipKzo5S9CS74Dsw1+CYz8ZOnM1zlIdAiu+QH4as/MDAwrh1vMHVQWxW1QQ + YzkOmec3I9fPgiTfKvS0lqAj0xJtsQvRkrWHNZm8cyJ8dJXOEQ1FAs16tgFJK+ky82TVyGWvAcUwK81P + roKXAVooOD0bJWFbkR/4E8pIB+xpLkR7ihnaIuaiKdUGaXsmIJ6UqedyRW8SfwxB8nmWMt0Tykgr6TDL + 1GeQn70Gxlyz/Pq/JmF1/FJS75oocldHrq8BMryN8OLSCnJWyENbkjFars0kJWmFhzaqiLVQhfsSeR8S + W4nQL553aDJz/LAzoz39K8b3G9os+1bgqsWc/2iguXQXhPHaeHl5HgoDjZHmYYDS89rkgJKFljgDNARO + R0OyBThbVRBFtunYYjlfEleZIENgxbMdJjIseycwXgtkmXPz6ZGhrwwDTGfmFARaoa0s9l8MtNeQ8+Fz + O1REf4tn4eZI9ViPZ+e0yJklDY2Ra1D365doiDdF0o9KuGWoBBdN2fMkJj0XUnEaXypz9zgmc5cqS4ad + KuMxbyTjPrfXAHUn/YOG8mRvg+nBQaazWhPdNiP/pjtepF5HdUkkqnJPovaxNfjJO3Df3QIZZ7dCJExB + Y5gu6rwnoj7GCAlmYxC+ThGHv5a5QOKpEiQnIql0axWGkmatzKRbKTNPHJSZU3+RYU4Q6GA/lwSaofJq + SjITDi6bbOK+6s/e3mumxvnqT33is0btSbiDcUf06T2I2qlDzhFAQ+gK1J4ah7rbaxC7UR7XVyvg4OwR + v5IY4wj94o+2KjESHhKK7JWYysNjmGMa0ozbDPZTwA7JgYHmA71LA9CGQUtnLGECYYbX+vnROYEnUfc8 + DwI3FdTe1EP0Wjlc/V4e+zSkL5I54wmSk5DUAwtFhpJiTtisyDy2UWDKD4xmXu0fzbh+NZxxIXw4qAkJ + 1AwNIjGkoDD2j3MOmhi1N1XyICCNKuP8P3DNVh8X9Wdir7r0JTKHmuwX55gpMBzTXu6bKjJcq9FM2d5R + LK/sRzHO04ez/LvxoRHas5VmL1rnZLPbFbU5N5HqZY8AUy2cXa4O29l/8CPPJxL6xe8ZyzMsG3vJtyTC + diNZXtjKsDhNG8Yy4EFRAg1GoDZVNZdueWZ7KAS6Kzbg+5nqHQ5zx8esnaK4kT4jSL5sUslGcgyLYS+5 + FrLMix0jGB7FSrqfwRigK6CsNksHY8Zp8OQU/3RyyLCR88g9uuT01EObDPvmR6cOYwbLgMISaNC+4PQN + aV3TJKNJSVsYzQ361myTOaI2lBk8Q5nfAK6UO7kYFLMOAAAAAElFTkSuQmCC + + + + 0, 0 + + + Profil-Verwaltung + + + Profil-Zuordnung + + + Grundeinstellungen + + + Menü Profil-Verwaltung + + + 1280, 146 + + + 0, 636 + + + 1280, 21 + + + RibbonStatusBar1 + + + DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 2 + + + RibbonControl1 + + + DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 3 + + + RibbonPage2 + True @@ -3764,7 +3980,7 @@ Tahoma, 9.75pt - + AAABAAQAEBAQAAEABAAoAQAARgAAABAQAAABAAgAaAUAAG4BAAAgIBAAAQAEAOgCAADWBgAAICAAAAEA CACoCAAAvgkAACgAAAAQAAAAIAAAAAEABAAAAAAAwAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAACAAACA @@ -4099,54 +4315,18 @@ System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - btnRefreshProfiles - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - ToolStripSeparator1 System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - tsbtnDesigner_open - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - ToolStripSeparator2 System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - tsbtnProfilkopieren - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripSeparator3 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tsbtnDeleteProfileData - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tsbtndeleteProfil - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - TBPM_TYPEBindingSource @@ -4459,10 +4639,124 @@ System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + BarButtonItem1 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem2 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem3 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem4 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem5 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem6 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem7 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem8 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem9 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem10 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem11 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem12 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem13 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem14 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPage1 + + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPageGroup1 + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPageGroup2 + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPageGroup3 + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPage2 + + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmAdministration - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index 06ab336..cfe99fb 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -40,16 +40,7 @@ Public Class frmAdministration dragDropManager.AddGridView(viewAssignedGroups) - 'If clsModules.IsModuleInstalled("User Manager") Then - ' btnUserManager.Enabled = True - 'Else - ' btnUserManager.Enabled = False - 'End If - If ClassUser.Check_User_Exists_in_UMGroups = True Then - btnUserManager.Enabled = True - Else - btnUserManager.Enabled = False - End If + tabctrl_Profilkonfig.SelectedIndex = 0 @@ -238,21 +229,7 @@ Public Class frmAdministration End Try End Sub - Private Sub VWPM_PROFILE_USERBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Handles VWPM_PROFILE_USERBindingNavigatorSaveItem.Click - Try - Me.TBPM_PROFILEBindingSource.EndEdit() - If DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges Is Nothing = False Then - Me.TBPM_PROFILETableAdapter.Update(DD_DMSLiteDataSet.TBPM_PROFILE) - tstrlblSave.Visible = True - Else - tstrlblSave.Visible = False - End If - Catch ex As Exception - LOGGER.Error(ex) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Speichern des Profils:") - End Try - End Sub Private Sub TBPM_PROFILEBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPM_PROFILEBindingSource.AddingNew DD_DMSLiteDataSet.TBPM_PROFILE.ADDED_WHOColumn.DefaultValue = USER_USERNAME @@ -268,33 +245,9 @@ Public Class frmAdministration End If End Sub - Private Sub tstrpbtn_add_Click(sender As System.Object, e As System.EventArgs) Handles tstrpbtn_add.Click - If TBPM_PROFILETableAdapter.cmdAnzProfile + 1 > LICENSE_PROFILES Then - MsgBox("Sie haben die maximale Anzahl (" & LICENSE_PROFILES & ") von lizensierten Profilen erreicht!" & vbNewLine & "Bitte löschen Sie Profile oder setzen sich mit Digital Data in Verbindung!", MsgBoxStyle.Exclamation, "Achtung Lizenzhinweis:") - Else - TBPM_PROFILEBindingSource.AddNew() - End If - End Sub - Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnDesigner_open.Click - If CInt(PROFILGUIDTextBox.Text) > 0 Then - profile_guid = PROFILGUIDTextBox.Text - CURRENT_ProfilGUID = PROFILGUIDTextBox.Text - My.Settings.Save() - CURRENT_OBJECTTYPE = cmbObjekttypen.Text - CURRENT_ProfilName = NAMETextBox.Text - frmFormDesigner.ProfileId = CURRENT_ProfilGUID - frmFormDesigner.ProfileName = CURRENT_ProfilName - frmFormDesigner.ProfileObjectType = cmbObjekttypen.Text - frmFormDesigner.ShowDialog() - - Else - MsgBox("Eindeutiges Profil konnte nicht an den FormDesigner weitergegeben werden:", MsgBoxStyle.Exclamation) - End If - - End Sub Private Sub btnmovetoFolderDialog_Click(sender As System.Object, e As System.EventArgs) Handles btnmovetoFolderDialog.Click ' wenn im Formular der OK-Button geklickt wurde @@ -423,29 +376,26 @@ Public Class frmAdministration ' End If 'End Sub - Private Sub btnlicensemanager_open_Click(sender As System.Object, e As System.EventArgs) Handles btnlicensemanager_open.Click - frmLicense.ShowDialog() - End Sub - Sub Save_Konfiguration() - TBPM_KONFIGURATIONBindingSource.EndEdit() - If DD_DMSLiteDataSet.TBPM_KONFIGURATION.GetChanges Is Nothing = False Then - GEAENDERTWERTextBox.Text = USER_USERNAME - TBPM_KONFIGURATIONBindingSource.EndEdit() - TBPM_KONFIGURATIONTableAdapter.Update(DD_DMSLiteDataSet.TBPM_KONFIGURATION) - tstrpinfo.Text = "Konfiguration wurde erfolgreich gespeichert" - tstrpinfo.Visible = True - Else - tstrpinfo.Visible = False - End If - End Sub + + 'Sub Save_Konfiguration() + ' TBPM_KONFIGURATIONBindingSource.EndEdit() + ' If DD_DMSLiteDataSet.TBPM_KONFIGURATION.GetChanges Is Nothing = False Then + ' GEAENDERTWERTextBox.Text = USER_USERNAME + ' TBPM_KONFIGURATIONBindingSource.EndEdit() + ' TBPM_KONFIGURATIONTableAdapter.Update(DD_DMSLiteDataSet.TBPM_KONFIGURATION) + ' tstrpinfo.Text = "Konfiguration wurde erfolgreich gespeichert" + ' tstrpinfo.Visible = True + ' Else + ' tstrpinfo.Visible = False + ' End If + 'End Sub Private Sub frmProfileDesigner_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown + TabControl1.SelectedIndex = 0 formloaded = True End Sub - Private Sub btnSaveKonfig_Click(sender As System.Object, e As System.EventArgs) Handles btnSaveKonfig.Click - Save_Konfiguration() - End Sub + Private Sub Refresh_Final_indexe() Try @@ -469,12 +419,20 @@ Public Class frmAdministration Private Sub TabControl1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles TabControl1.SelectedIndexChanged Select Case TabControl1.SelectedIndex + Case 0 + RibbonPageGroup1.Enabled = True + RibbonPageGroup2.Enabled = False + Case 1 + RibbonPageGroup2.Enabled = True + RibbonPageGroup1.Enabled = False + If PROFILGUIDTextBox.Text = String.Empty Then MsgBox("Kein Profil angelegt oder ausgeählt", MsgBoxStyle.Critical) Else FillProfile_User(PROFILGUIDTextBox.Text) End If + End Select End Sub 'Private Sub cmbIndexe_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) @@ -631,43 +589,8 @@ Public Class frmAdministration ' txtindexwert_final.Text = String.Empty 'End Sub - Private Sub tsbtnProfilkopieren_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnProfilkopieren.Click - Dim result As MsgBoxResult = MsgBox("Wollen Sie das gesamte Profil kopieren?" & vbNewLine & "Alle Einstellungen werden übernommen, das Profil wird angelegt und inaktiv gesetzt!", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") - 'wenn Speichern ja - If result = MsgBoxResult.Yes Then - Try - Dim copySuffix = "_COPY" - - While TBPM_PROFILETableAdapter.cmdProfileExists($"{NAMETextBox.Text}{copySuffix}") > 0 - copySuffix = copySuffix & "_COPY" - End While + Private Sub tsbtnProfilkopieren_Click(sender As System.Object, e As System.EventArgs) - TBPM_PROFILETableAdapter.cmdInsert_Copy(copySuffix, USER_USERNAME, PROFILGUIDTextBox.Text) - Dim NewGUID As Integer = TBPM_PROFILETableAdapter.cmdMaxGuid - If NewGUID > 0 Then - Dim _sql = "INSERT INTO TBPM_PROFILE_CONTROLS " & - "(NAME, PROFIL_ID, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, READ_ONLY, " & - "LOAD_IDX_VALUE, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR) " & - "SELECT LOWER(CTRL_TYPE + CONVERT(VARCHAR(4),ROW_NUMBER() OVER (ORDER BY CTRL_TYPE))),@NEW_PROFIL_ID, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, '@User', INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, " & - "READ_ONLY, LOAD_IDX_VALUE, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR " & - "FROM TBPM_PROFILE_CONTROLS AS TBPM_PROFILE_CONTROLS_1 " & - "WHERE (PROFIL_ID = @Copy_profilId) " - _sql = _sql.Replace("@NEW_PROFIL_ID", NewGUID) - _sql = _sql.Replace("@User", USER_USERNAME) - _sql = _sql.Replace("@Copy_profilId", PROFILGUIDTextBox.Text) - - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CopyFinalIndex(NewGUID, USER_USERNAME, PROFILGUIDTextBox.Text) - 'TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertCopy(NewGUID, USER_USERNAME, PROFILGUIDTextBox.Text) - Execute_SQL(_sql) - MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich kopiert!", MsgBoxStyle.Information, "Erfolgsmeldung") - Refresh_Profildaten() - End If - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Fehler bei Anlage Profilkopie:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:") - End Try - - End If End Sub Private Function Execute_SQL(SQL As String) Try @@ -684,32 +607,8 @@ Public Class frmAdministration Return False End Try End Function - Private Sub tsbtndeleteProfil_Click(sender As System.Object, e As System.EventArgs) Handles tsbtndeleteProfil.Click - Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil " & NAMETextBox.Text & " löschen wollen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") - ' wenn Speichern ja - If result = MsgBoxResult.Yes Then - Try - Dim profileID = PROFILGUIDTextBox.Text - Dim del As String = $"EXEC PRPM_DELETE_PROFILE {profileID}" - If ClassDatabase.Execute_non_Query(del) = True Then - MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung") - Refresh_Profildaten() - End If - - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Fehler bei Löschen des Profils:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:") - End Try - End If - End Sub - Private Sub btnopen_SQLAdmin_Click(sender As Object, e As EventArgs) Handles btnopen_SQLAdmin.Click - frmSQL_Admin.ShowDialog() - End Sub - Private Sub btnRefreshProfiles_Click(sender As Object, e As EventArgs) Handles btnRefreshProfiles.Click - Refresh_Profildaten() - End Sub Private Sub CancelFinalIndexInsert() INSERT_ACTIVE = False @@ -728,9 +627,7 @@ Public Class frmAdministration ACTIVECheckBox.BackColor = Color.Transparent End If End Sub - Private Sub btnConnections_Click(sender As Object, e As EventArgs) Handles btnConnections.Click - frmConnection.ShowDialog() - End Sub + Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Cursor = Cursors.WaitCursor frmUserKonfig_AddUsers.ShowDialog() @@ -749,15 +646,7 @@ Public Class frmAdministration End Try End Sub - Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click - Dim result As MsgBoxResult = MsgBox("Wollen Sie den Tabelleninhalt mit den Profil-Dateien wirklich löschen?" & vbNewLine & "Wenn ja müssen Sie auf die Aktualisierung des Jobs warten bis wieder Dateien zur Bearbeitung frei sind.", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") - 'wenn Speichern ja - If result = MsgBoxResult.Yes Then - If ClassDatabase.Execute_non_Query("DELETE FROM TBPM_PROFILE_FILES") = True Then - MsgBox("Der Inhalt der Tabelle TBPM_PROFILE_FILES wurde erfolgreich gelöscht!", MsgBoxStyle.Information) - End If - End If - End Sub + Private Sub cmbObjekttypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbObjekttypen.SelectedIndexChanged If formloaded = False Then @@ -885,47 +774,47 @@ Public Class frmAdministration ' frmConnection.ShowDialog() 'End Sub - Private Sub btnUserManager_Click(sender As Object, e As EventArgs) Handles btnUserManager.Click - Try - 'Dim userManagerPath As String = clsModules.GetModulePath("User Manager") - - 'If userManagerPath Is Nothing Then - ' MsgBox("Pfad zu User Manager konnte nicht gefunden werden!", MsgBoxStyle.Critical) - 'Else - - ' Dim exePath As String = Path.Combine(userManagerPath, "DDUserManager.exe") - - ' If File.Exists(exePath) Then - ' Dim psi As New ProcessStartInfo(exePath) - ' Process.Start(psi) - ' Else - ' MsgBox("Programm User Manager konnte nicht gefunden werden!", MsgBoxStyle.Critical) - ' End If - 'End If - - If USER_MANAGER_PATH = "" Then - With OpenFileDialog1 - ' Do - .Filter = "DDUserManager.Exe|*.exe" - .FilterIndex = 1 - .Title = "search DDUserManager.exe:" - If .ShowDialog() = DialogResult.OK Then - - USER_MANAGER_PATH = .FileName - CONFIG.Config.UserManagerPath = USER_MANAGER_PATH - CONFIG.Save() - 'SaveMySettingsValue("USRMNGRPATH", .FileName) - End If - End With - End If - If File.Exists(USER_MANAGER_PATH) Then - Process.Start(USER_MANAGER_PATH) - End If - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Error while startign User Manager:" & vbCrLf & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub + 'Private Sub btnUserManager_Click(sender As Object, e As EventArgs) Handles btnUserManager.Click + ' Try + ' 'Dim userManagerPath As String = clsModules.GetModulePath("User Manager") + + ' 'If userManagerPath Is Nothing Then + ' ' MsgBox("Pfad zu User Manager konnte nicht gefunden werden!", MsgBoxStyle.Critical) + ' 'Else + + ' ' Dim exePath As String = Path.Combine(userManagerPath, "DDUserManager.exe") + + ' ' If File.Exists(exePath) Then + ' ' Dim psi As New ProcessStartInfo(exePath) + ' ' Process.Start(psi) + ' ' Else + ' ' MsgBox("Programm User Manager konnte nicht gefunden werden!", MsgBoxStyle.Critical) + ' ' End If + ' 'End If + + ' If USER_MANAGER_PATH = "" Then + ' With OpenFileDialog1 + ' ' Do + ' .Filter = "DDUserManager.Exe|*.exe" + ' .FilterIndex = 1 + ' .Title = "search DDUserManager.exe:" + ' If .ShowDialog() = DialogResult.OK Then + + ' USER_MANAGER_PATH = .FileName + ' CONFIG.Config.UserManagerPath = USER_MANAGER_PATH + ' CONFIG.Save() + ' 'SaveMySettingsValue("USRMNGRPATH", .FileName) + ' End If + ' End With + ' End If + ' If File.Exists(USER_MANAGER_PATH) Then + ' Process.Start(USER_MANAGER_PATH) + ' End If + ' Catch ex As Exception + ' LOGGER.Error(ex) + ' MsgBox("Error while startign User Manager:" & vbCrLf & ex.Message, MsgBoxStyle.Critical) + ' End Try + 'End Sub Private Sub tsBtnCancel_Click(sender As Object, e As EventArgs) Handles tsBtnCancel.Click CancelFinalIndexInsert() @@ -1129,7 +1018,99 @@ Public Class frmAdministration CancelFinalIndexInsert() End Sub - Private Sub tsbtnDeleteProfileData_Click(sender As Object, e As EventArgs) Handles tsbtnDeleteProfileData.Click + + Private Sub PM_VEKTOR_INDEXComboBox_MouseHover(sender As Object, e As EventArgs) Handles PM_VEKTOR_INDEXComboBox.MouseHover + ToolTip1.Show("Bitte wählen Sie hier den Vektor-Index den Sie für die Kennzeichnung der PM-Indizes verwenden wollen:", PM_VEKTOR_INDEXComboBox) + End Sub + + Private Sub cmbLOGIndex_MouseHover(sender As Object, e As EventArgs) Handles cmbLOGIndex.MouseHover + ToolTip1.Show("Bitte wählen Sie hier den Vektor-Index den Sie für das Loggen der Wertänderungen nutzen wollen:", cmbLOGIndex) + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + If CInt(PROFILGUIDTextBox.Text) > 0 Then + profile_guid = PROFILGUIDTextBox.Text + CURRENT_ProfilGUID = PROFILGUIDTextBox.Text + My.Settings.Save() + CURRENT_OBJECTTYPE = cmbObjekttypen.Text + CURRENT_ProfilName = NAMETextBox.Text + + frmFormDesigner.ProfileId = CURRENT_ProfilGUID + frmFormDesigner.ProfileName = CURRENT_ProfilName + frmFormDesigner.ProfileObjectType = cmbObjekttypen.Text + frmFormDesigner.ShowDialog() + + Else + MsgBox("Eindeutiges Profil konnte nicht an den FormDesigner weitergegeben werden:", MsgBoxStyle.Exclamation) + End If + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + Refresh_Profildaten() + End Sub + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + Dim result As MsgBoxResult = MsgBox("Wollen Sie das gesamte Profil kopieren?" & vbNewLine & "Alle Einstellungen werden übernommen, das Profil wird angelegt und inaktiv gesetzt!", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") + 'wenn Speichern ja + If result = MsgBoxResult.Yes Then + Try + Dim copySuffix = "_COPY" + + While TBPM_PROFILETableAdapter.cmdProfileExists($"{NAMETextBox.Text}{copySuffix}") > 0 + copySuffix = copySuffix & "_COPY" + End While + + TBPM_PROFILETableAdapter.cmdInsert_Copy(copySuffix, USER_USERNAME, PROFILGUIDTextBox.Text) + Dim NewGUID As Integer = TBPM_PROFILETableAdapter.cmdMaxGuid + If NewGUID > 0 Then + Dim _sql = "INSERT INTO TBPM_PROFILE_CONTROLS " & + "(NAME, PROFIL_ID, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, READ_ONLY, " & + "LOAD_IDX_VALUE, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR) " & + "SELECT LOWER(CTRL_TYPE + CONVERT(VARCHAR(4),ROW_NUMBER() OVER (ORDER BY CTRL_TYPE))),@NEW_PROFIL_ID, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, '@User', INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, " & + "READ_ONLY, LOAD_IDX_VALUE, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR " & + "FROM TBPM_PROFILE_CONTROLS AS TBPM_PROFILE_CONTROLS_1 " & + "WHERE (PROFIL_ID = @Copy_profilId) " + _sql = _sql.Replace("@NEW_PROFIL_ID", NewGUID) + _sql = _sql.Replace("@User", USER_USERNAME) + _sql = _sql.Replace("@Copy_profilId", PROFILGUIDTextBox.Text) + + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CopyFinalIndex(NewGUID, USER_USERNAME, PROFILGUIDTextBox.Text) + 'TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertCopy(NewGUID, USER_USERNAME, PROFILGUIDTextBox.Text) + Execute_SQL(_sql) + MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich kopiert!", MsgBoxStyle.Information, "Erfolgsmeldung") + Refresh_Profildaten() + End If + Catch ex As Exception + LOGGER.Error(ex) + MsgBox("Fehler bei Anlage Profilkopie:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:") + End Try + + End If + End Sub + + + + Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick + Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil " & NAMETextBox.Text & " löschen wollen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") + ' wenn Speichern ja + If result = MsgBoxResult.Yes Then + Try + Dim profileID = PROFILGUIDTextBox.Text + Dim del As String = $"EXEC PRPM_DELETE_PROFILE {profileID}" + If ClassDatabase.Execute_non_Query(del) = True Then + MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung") + Refresh_Profildaten() + End If + + Catch ex As Exception + LOGGER.Error(ex) + MsgBox("Fehler bei Löschen des Profils:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:") + End Try + + End If + End Sub + + Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick Dim result As MsgBoxResult = MsgBox("Wollen Sie die Dateien für dieses Profil wirklich entfernen?" & vbNewLine & "Wenn ja müssen Sie auf die Aktualisierung des Jobs warten bis wieder Dateien zur Bearbeitung frei sind.", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") 'wenn Speichern ja If result = MsgBoxResult.Yes Then @@ -1139,7 +1120,52 @@ Public Class frmAdministration End If End Sub - Private Sub btnSQLProfilehome_Click(sender As Object, e As EventArgs) Handles btnSQLProfilehome.Click + Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick + Try + Me.TBPM_PROFILEBindingSource.EndEdit() + If DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges Is Nothing = False Then + Me.TBPM_PROFILETableAdapter.Update(DD_DMSLiteDataSet.TBPM_PROFILE) + tstrlblSave.Visible = True + Else + tstrlblSave.Visible = False + End If + Catch ex As Exception + LOGGER.Error(ex) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Speichern des Profils:") + End Try + End Sub + + Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick + If TBPM_PROFILETableAdapter.cmdAnzProfile + 1 > LICENSE_PROFILES Then + MsgBox("Sie haben die maximale Anzahl (" & LICENSE_PROFILES & ") von lizensierten Profilen erreicht!" & vbNewLine & "Bitte löschen Sie Profile oder setzen sich mit Digital Data in Verbindung!", MsgBoxStyle.Exclamation, "Achtung Lizenzhinweis:") + Else + TBPM_PROFILEBindingSource.AddNew() + End If + End Sub + + Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick + frmLicense.ShowDialog() + End Sub + + Private Sub BarButtonItem10_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem10.ItemClick + Dim result As MsgBoxResult = MsgBox("Do You really want to delete all workflow-Jobs?" & vbNewLine & "If yes You have to wait for the next Sync-Job for the jobs.", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") + 'wenn Speichern ja + If result = MsgBoxResult.Yes Then + If ClassDatabase.Execute_non_Query("DELETE FROM TBPM_PROFILE_FILES") = True Then + MsgBox("All workflow-jobs have been erased!", MsgBoxStyle.Information) + End If + End If + End Sub + + Private Sub BarButtonItem11_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick + frmConnection.ShowDialog() + End Sub + + Private Sub BarButtonItem14_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem14.ItemClick + frmSQL_Admin.ShowDialog() + End Sub + + Private Sub BarButtonItem13_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem13.ItemClick Try Dim oSQL = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oSQL} @@ -1154,12 +1180,4 @@ Public Class frmAdministration LOGGER.Error(ex) End Try End Sub - - Private Sub PM_VEKTOR_INDEXComboBox_MouseHover(sender As Object, e As EventArgs) Handles PM_VEKTOR_INDEXComboBox.MouseHover - ToolTip1.Show("Bitte wählen Sie hier den Vektor-Index den Sie für die Kennzeichnung der PM-Indizes verwenden wollen:", PM_VEKTOR_INDEXComboBox) - End Sub - - Private Sub cmbLOGIndex_MouseHover(sender As Object, e As EventArgs) Handles cmbLOGIndex.MouseHover - ToolTip1.Show("Bitte wählen Sie hier den Vektor-Index den Sie für das Loggen der Wertänderungen nutzen wollen:", cmbLOGIndex) - End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index 7891f01..773afba 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -28,19 +28,28 @@ Partial Class frmMain Me.SplitContainerTop = New System.Windows.Forms.SplitContainer() Me.ChartTopLeft = New DevExpress.XtraCharts.ChartControl() Me.ToolStripTopLeft = New System.Windows.Forms.ToolStrip() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() Me.ChartTopRight = New DevExpress.XtraCharts.ChartControl() Me.ToolStripTopRight = New System.Windows.Forms.ToolStrip() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() Me.SplitContainerBottom = New System.Windows.Forms.SplitContainer() Me.ChartBottomLeft = New DevExpress.XtraCharts.ChartControl() Me.ToolStripBottomLeft = New System.Windows.Forms.ToolStrip() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton() Me.ChartBottomRight = New DevExpress.XtraCharts.ChartControl() Me.ToolStripBottomRight = New System.Windows.Forms.ToolStrip() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton() Me.ImageListProfile = New System.Windows.Forms.ImageList(Me.components) Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.Panel1 = New System.Windows.Forms.Panel() + Me.pnlDashboard = New System.Windows.Forms.Panel() Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl() Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.CMGroupStart = New System.Windows.Forms.ToolStripMenuItem() @@ -102,6 +111,8 @@ Partial Class frmMain Me.bsiDebug = New DevExpress.XtraBars.BarStaticItem() Me.bsiMessage = New DevExpress.XtraBars.BarStaticItem() Me.bbtniMetadataFile = New DevExpress.XtraBars.BarButtonItem() + Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem() + Me.RepositoryItemProgressBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemProgressBar() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -110,6 +121,8 @@ Partial Class frmMain Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) + Me.bwSync = New System.ComponentModel.BackgroundWorker() + Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerDashboard.Panel1.SuspendLayout() Me.SplitContainerDashboard.Panel2.SuspendLayout() @@ -119,16 +132,21 @@ Partial Class frmMain Me.SplitContainerTop.Panel2.SuspendLayout() Me.SplitContainerTop.SuspendLayout() CType(Me.ChartTopLeft, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStripTopLeft.SuspendLayout() CType(Me.ChartTopRight, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStripTopRight.SuspendLayout() CType(Me.SplitContainerBottom, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerBottom.Panel1.SuspendLayout() Me.SplitContainerBottom.Panel2.SuspendLayout() Me.SplitContainerBottom.SuspendLayout() CType(Me.ChartBottomLeft, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStripBottomLeft.SuspendLayout() CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStripBottomRight.SuspendLayout() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() + Me.pnlDashboard.SuspendLayout() CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuGrid.SuspendLayout() CType(Me.GridView_Docs, System.ComponentModel.ISupportInitialize).BeginInit() @@ -142,6 +160,7 @@ Partial Class frmMain CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -184,9 +203,24 @@ Partial Class frmMain ' Me.ToolStripTopLeft.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden Me.ToolStripTopLeft.ImageScalingSize = New System.Drawing.Size(20, 20) + Me.ToolStripTopLeft.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton5}) resources.ApplyResources(Me.ToolStripTopLeft, "ToolStripTopLeft") Me.ToolStripTopLeft.Name = "ToolStripTopLeft" ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = Global.DD_ProcessManager.My.Resources.Resources.pdf + resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") + Me.ToolStripButton1.Name = "ToolStripButton1" + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton5.Image = Global.DD_ProcessManager.My.Resources.Resources.image + resources.ApplyResources(Me.ToolStripButton5, "ToolStripButton5") + Me.ToolStripButton5.Name = "ToolStripButton5" + ' 'ChartTopRight ' resources.ApplyResources(Me.ChartTopRight, "ChartTopRight") @@ -198,9 +232,23 @@ Partial Class frmMain ' Me.ToolStripTopRight.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden Me.ToolStripTopRight.ImageScalingSize = New System.Drawing.Size(20, 20) + Me.ToolStripTopRight.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripButton6}) resources.ApplyResources(Me.ToolStripTopRight, "ToolStripTopRight") Me.ToolStripTopRight.Name = "ToolStripTopRight" ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = Global.DD_ProcessManager.My.Resources.Resources.pdf + resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2") + Me.ToolStripButton2.Name = "ToolStripButton2" + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.ToolStripButton6, "ToolStripButton6") + Me.ToolStripButton6.Name = "ToolStripButton6" + ' 'SplitContainerBottom ' resources.ApplyResources(Me.SplitContainerBottom, "SplitContainerBottom") @@ -227,9 +275,23 @@ Partial Class frmMain ' Me.ToolStripBottomLeft.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden Me.ToolStripBottomLeft.ImageScalingSize = New System.Drawing.Size(20, 20) + Me.ToolStripBottomLeft.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton7}) resources.ApplyResources(Me.ToolStripBottomLeft, "ToolStripBottomLeft") Me.ToolStripBottomLeft.Name = "ToolStripBottomLeft" ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton3.Image = Global.DD_ProcessManager.My.Resources.Resources.pdf + resources.ApplyResources(Me.ToolStripButton3, "ToolStripButton3") + Me.ToolStripButton3.Name = "ToolStripButton3" + ' + 'ToolStripButton7 + ' + Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.ToolStripButton7, "ToolStripButton7") + Me.ToolStripButton7.Name = "ToolStripButton7" + ' 'ChartBottomRight ' resources.ApplyResources(Me.ChartBottomRight, "ChartBottomRight") @@ -241,9 +303,23 @@ Partial Class frmMain ' Me.ToolStripBottomRight.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden Me.ToolStripBottomRight.ImageScalingSize = New System.Drawing.Size(20, 20) + Me.ToolStripBottomRight.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton4, Me.ToolStripButton8}) resources.ApplyResources(Me.ToolStripBottomRight, "ToolStripBottomRight") Me.ToolStripBottomRight.Name = "ToolStripBottomRight" ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton4.Image = Global.DD_ProcessManager.My.Resources.Resources.pdf + resources.ApplyResources(Me.ToolStripButton4, "ToolStripButton4") + Me.ToolStripButton4.Name = "ToolStripButton4" + ' + 'ToolStripButton8 + ' + Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.ToolStripButton8, "ToolStripButton8") + Me.ToolStripButton8.Name = "ToolStripButton8" + ' 'ImageListProfile ' Me.ImageListProfile.ImageStream = CType(resources.GetObject("ImageListProfile.ImageStream"), System.Windows.Forms.ImageListStreamer) @@ -285,13 +361,19 @@ Partial Class frmMain ' 'Panel1 ' + Me.Panel1.Controls.Add(Me.pnlDashboard) Me.Panel1.Controls.Add(Me.GridControl_Docs) Me.Panel1.Controls.Add(Me.BindingNavigator1) Me.Panel1.Controls.Add(Me.NavBarControl1) - Me.Panel1.Controls.Add(Me.SplitContainerDashboard) resources.ApplyResources(Me.Panel1, "Panel1") Me.Panel1.Name = "Panel1" ' + 'pnlDashboard + ' + Me.pnlDashboard.Controls.Add(Me.SplitContainerDashboard) + resources.ApplyResources(Me.pnlDashboard, "pnlDashboard") + Me.pnlDashboard.Name = "pnlDashboard" + ' 'GridControl_Docs ' Me.GridControl_Docs.ContextMenuStrip = Me.ContextMenuGrid @@ -563,12 +645,13 @@ Partial Class frmMain 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 16 + Me.RibbonControl1.MaxItemId = 17 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.QuickToolbarItemLinks.Add(Me.bbtnitemInfo) + Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1}) Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2013 Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 @@ -692,6 +775,19 @@ Partial Class frmMain Me.bbtniMetadataFile.ImageOptions.LargeImage = CType(resources.GetObject("bbtniMetadataFile.ImageOptions.LargeImage"), System.Drawing.Image) Me.bbtniMetadataFile.Name = "bbtniMetadataFile" ' + 'BarEditItem1 + ' + resources.ApplyResources(Me.BarEditItem1, "BarEditItem1") + Me.BarEditItem1.Edit = Me.RepositoryItemProgressBar1 + Me.BarEditItem1.Id = 16 + Me.BarEditItem1.Name = "BarEditItem1" + Me.BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'RepositoryItemProgressBar1 + ' + Me.RepositoryItemProgressBar1.Name = "RepositoryItemProgressBar1" + Me.RepositoryItemProgressBar1.ShowTitle = True + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4}) @@ -737,6 +833,7 @@ Partial Class frmMain Me.RibbonStatusBar1.ItemLinks.Add(Me.bsilastsync) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDebug) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiMessage) + Me.RibbonStatusBar1.ItemLinks.Add(Me.BarEditItem1) resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1") Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 @@ -751,6 +848,15 @@ Partial Class frmMain Me.ApplicationMenu1.Name = "ApplicationMenu1" Me.ApplicationMenu1.Ribbon = Me.RibbonControl1 ' + 'bwSync + ' + Me.bwSync.WorkerReportsProgress = True + Me.bwSync.WorkerSupportsCancellation = True + ' + 'SaveFileDialog1 + ' + resources.ApplyResources(Me.SaveFileDialog1, "SaveFileDialog1") + ' 'frmMain ' Me.Appearance.Options.UseFont = True @@ -775,7 +881,11 @@ Partial Class frmMain CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerTop.ResumeLayout(False) CType(Me.ChartTopLeft, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStripTopLeft.ResumeLayout(False) + Me.ToolStripTopLeft.PerformLayout() CType(Me.ChartTopRight, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStripTopRight.ResumeLayout(False) + Me.ToolStripTopRight.PerformLayout() Me.SplitContainerBottom.Panel1.ResumeLayout(False) Me.SplitContainerBottom.Panel1.PerformLayout() Me.SplitContainerBottom.Panel2.ResumeLayout(False) @@ -783,11 +893,16 @@ Partial Class frmMain CType(Me.SplitContainerBottom, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerBottom.ResumeLayout(False) CType(Me.ChartBottomLeft, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStripBottomLeft.ResumeLayout(False) + Me.ToolStripBottomLeft.PerformLayout() CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStripBottomRight.ResumeLayout(False) + Me.ToolStripBottomRight.PerformLayout() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() + Me.pnlDashboard.ResumeLayout(False) CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuGrid.ResumeLayout(False) CType(Me.GridView_Docs, System.ComponentModel.ISupportInitialize).EndInit() @@ -802,6 +917,7 @@ Partial Class frmMain CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -893,4 +1009,17 @@ Partial Class frmMain Friend WithEvents bsiMessage As DevExpress.XtraBars.BarStaticItem Friend WithEvents CMFileMetadata As ToolStripMenuItem Friend WithEvents bbtniMetadataFile As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bwSync As System.ComponentModel.BackgroundWorker + Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem + Friend WithEvents RepositoryItemProgressBar1 As DevExpress.XtraEditors.Repository.RepositoryItemProgressBar + Friend WithEvents pnlDashboard As Panel + Friend WithEvents ToolStripButton1 As ToolStripButton + Friend WithEvents ToolStripButton2 As ToolStripButton + Friend WithEvents ToolStripButton3 As ToolStripButton + Friend WithEvents ToolStripButton4 As ToolStripButton + Friend WithEvents SaveFileDialog1 As SaveFileDialog + Friend WithEvents ToolStripButton5 As ToolStripButton + Friend WithEvents ToolStripButton6 As ToolStripButton + Friend WithEvents ToolStripButton7 As ToolStripButton + Friend WithEvents ToolStripButton8 As ToolStripButton End Class diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 9a44313..8e3c9c4 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -118,12 +118,12 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Top, Bottom, Left, Right + + Fill - 524, 205 + 0, 0 Horizontal @@ -138,10 +138,10 @@ Fill - 0, 25 + 0, 27 - 160, 45 + 101, 139 @@ -162,11 +162,29 @@ 662, 95 + + Magenta + + + 24, 24 + + + Export to pdf + + + Magenta + + + 24, 24 + + + Export png + 0, 0 - 160, 25 + 101, 27 1 @@ -202,10 +220,10 @@ Fill - 0, 25 + 0, 27 - 332, 45 + 209, 139 1 @@ -225,11 +243,62 @@ 804, 95 + + Magenta + + + 24, 24 + + + Export to pdf + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 + LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 + Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk + aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY + 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES + OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj + 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx + JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h + o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i + UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM + f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN + XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt + UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI + M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK + BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 + w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW + F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN + HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ + p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH + fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn + tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC + LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz + 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l + LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i + XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ + 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj + kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A + AAAASUVORK5CYII= + + + + Magenta + + + 24, 24 + + + Export png + 0, 0 - 332, 25 + 209, 27 0 @@ -262,10 +331,10 @@ 1 - 496, 70 + 314, 166 - 160 + 101 0 @@ -304,10 +373,10 @@ Fill - 0, 25 + 0, 27 - 160, 24 + 101, 96 1 @@ -327,11 +396,62 @@ 955, 95 + + Magenta + + + 24, 24 + + + Export to pdf + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 + LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 + Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk + aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY + 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES + OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj + 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx + JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h + o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i + UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM + f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN + XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt + UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI + M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK + BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 + w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW + F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN + HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ + p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH + fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn + tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC + LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz + 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l + LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i + XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ + 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj + kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A + AAAASUVORK5CYII= + + + + Magenta + + + 24, 24 + + + Export png + 0, 0 - 160, 25 + 101, 27 0 @@ -367,10 +487,10 @@ Fill - 0, 25 + 0, 27 - 332, 24 + 209, 96 1 @@ -390,11 +510,62 @@ 1117, 95 + + Magenta + + + 24, 24 + + + Export to pdf + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 + LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 + Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk + aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY + 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES + OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj + 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx + JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h + o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i + UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM + f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN + XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt + UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI + M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK + BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 + w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW + F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN + HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ + p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH + fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn + tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC + LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz + 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l + LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i + XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ + 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj + kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A + AAAASUVORK5CYII= + + + + Magenta + + + 24, 24 + + + Export png + 0, 0 - 332, 25 + 209, 27 0 @@ -427,10 +598,10 @@ 1 - 496, 49 + 314, 123 - 160 + 101 0 @@ -460,10 +631,10 @@ 1 - 496, 123 + 314, 293 - 70 + 166 7 @@ -475,10 +646,10 @@ System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - Panel1 + pnlDashboard - 3 + 0 770, 17 @@ -488,7 +659,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAaQBBQGkAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAewBBQHsAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -541,6 +712,27 @@ 597, 17 + + 986, 31 + + + 314, 293 + + + 10 + + + pnlDashboard + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 0 + 392, 95 @@ -642,6 +834,9 @@ 8 + + False + GridControl_Docs @@ -652,7 +847,7 @@ Panel1 - 0 + 1 17, 134 @@ -782,7 +977,7 @@ 233, 0 - 790, 27 + 1114, 27 9 @@ -800,7 +995,7 @@ Panel1 - 1 + 2 weitere Profile @@ -1058,7 +1253,7 @@ Panel1 - 2 + 3 Fill @@ -1070,7 +1265,7 @@ 0, 146 - 1023, 360 + 1347, 360 4 @@ -1603,6 +1798,9 @@ ekhck8QwAY5YYwS4UgEVUAEVWAj0ogIq8BUCWwGA6Q7DQtTyWUCXGgAAAABJRU5ErkJggg== + + Sync in Progress + 0, 0 @@ -1622,13 +1820,13 @@ Funktionen - 1023, 146 + 1347, 146 0, 506 - 1023, 21 + 1347, 21 RibbonStatusBar1 @@ -1660,6 +1858,15 @@ 701, 134 + + 853, 134 + + + 946, 134 + + + PDF Files (*.pdf*)|*.pdf + True @@ -1670,7 +1877,7 @@ 9, 19 - 1023, 527 + 1347, 527 Tahoma, 12pt @@ -1850,6 +2057,54 @@ 4565465 + + ToolStripButton1 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripButton5 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripButton2 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripButton6 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripButton3 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripButton7 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripButton4 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripButton8 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + ImageListProfile @@ -2204,6 +2459,18 @@ DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarEditItem1 + + + DevExpress.XtraBars.BarEditItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RepositoryItemProgressBar1 + + + DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage1 @@ -2246,6 +2513,18 @@ DevExpress.XtraBars.Ribbon.ApplicationMenu, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + bwSync + + + System.ComponentModel.BackgroundWorker, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SaveFileDialog1 + + + System.Windows.Forms.SaveFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + frmMain diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 2bd90a1..f95394b 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -11,6 +11,8 @@ Imports DevExpress.XtraGrid.Views.Base Imports DevExpress.XtraEditors.Controls Imports System.Threading Imports System.ComponentModel +Imports System.IO +Imports System.Drawing.Imaging Public Class frmMain 'Private _windreamPM As ClassPMWindream @@ -34,6 +36,8 @@ Public Class frmMain 'Private _windream As New ClassWindream_allgemein Private allgFunk As New ClassAllgemeineFunktionen + Private CurrNavBarGroup As NavBarGroup + Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Try formopenClose = True @@ -357,20 +361,25 @@ Public Class frmMain End Sub Sub Load_Profile_items() - + Dim oStopWatch As New RefreshHelper.SW("Load_Profile_items") Dim profileGroupOpen As Boolean = False - - Try - Dim CurrGroup As NavBarGroup = NavBarControl1.Groups(1) - profileGroupOpen = CurrGroup.Expanded + If Not IsNothing(CurrNavBarGroup) Then Try + profileGroupOpen = CurrNavBarGroup.Expanded + Try + CurrNavBarGroup.ItemLinks.Clear() + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info("CurrGroupClear - Error: " & ex.Message) + + End Try - CurrGroup.ItemLinks.Clear() Catch ex As Exception - LOGGER.Error(ex) - LOGGER.Info("CurrGroupClear - Error: " & ex.Message) End Try + End If + Try + If Load_Profiles_for_User() = False Then @@ -408,15 +417,19 @@ Public Class frmMain End If End If + If Not IsNothing(CurrNavBarGroup) Then + CurrNavBarGroup.Expanded = profileGroupOpen + Else + NavBarControl1.Groups(1).Expanded = True + End If - CurrGroup.Expanded = profileGroupOpen Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Load_Profile_items - Error: " & ex.Message) 'MsgBox("Unexpected Error in Load_Profile_items - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - + oStopWatch.Done() End Sub Private Sub navBar_LinkClicked(ByVal sender As Object, ByVal e As NavBarLinkEventArgs) ' Das aktuelle Layout speichern, bevor das neue geladen wird @@ -463,8 +476,8 @@ Public Class frmMain BindingNavigator1.Dock = DockStyle.Top GridControl_Docs.Visible = True GridControl_Docs.Dock = DockStyle.Fill - SplitContainerDashboard.Visible = False - SplitContainerDashboard.Dock = DockStyle.None + pnlDashboard.Visible = False + pnlDashboard.Dock = DockStyle.None End If End Sub @@ -472,42 +485,43 @@ Public Class frmMain Try If GridControl_Docs.Visible = True Then - BindingNavigator1.Visible = False BindingNavigator1.Dock = DockStyle.None - GridControl_Docs.Visible = False - GridControl_Docs.Dock = DockStyle.None + BindingNavigator1.Visible = False + + GridControl_Docs.Dock = DockStyle.None + GridControl_Docs.Visible = False Dim groupCount As Integer Dim charts As List(Of ChartControl) - SplitContainerDashboard.Visible = True + pnlDashboard.Visible = True Dim Groups As DataRowCollection = DT_CHARTS.Rows groupCount = Groups.Count Configure_Split_Containers(groupCount) charts = New List(Of ChartControl) From {ChartTopLeft, ChartTopRight, ChartBottomLeft, ChartBottomRight} If groupCount > 1 Then For Each gRow As DataRow In Groups - Dim groupIndex As Integer = Groups.IndexOf(gRow) - Dim groupName As String = gRow.Item("GROUP_ID") + Dim oGroupIndex As Integer = Groups.IndexOf(gRow) + Dim oGroupID As String = gRow.Item("GROUP_ID") - Dim groupCharts = DT_CHARTS.Select(String.Format("GROUP_ID = '{0}'", groupName)) + Dim groupCharts = DT_CHARTS.Select(String.Format("GROUP_ID = '{0}'", oGroupID)) Dim chart As ChartControl For Each cRow As DataRow In groupCharts - Dim type = cRow.Item("TYPE_CHART") - Dim title = cRow.Item("TITLE") + Dim oChartType = cRow.Item("TYPE_CHART") + Dim oChartTitle = cRow.Item("TITLE") Dim guid = cRow.Item("GUID") - Dim value = cRow.Item("VALUE") - Dim argument = cRow.Item("ARGUMENT") - Dim sqlchart = cRow.Item("SQL_COMMAND") - sqlchart = sqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME) - Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(sqlchart) + Dim oChartValue = cRow.Item("VALUE") + Dim oChartArgument = cRow.Item("ARGUMENT") + Dim oSqlchart = cRow.Item("SQL_COMMAND") + oSqlchart = oSqlchart.Replace("@USER", USER_USERNAME) + Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(oSqlchart) - Dim series As Series = Create_Series(title, type) + Dim series As Series = Create_Series(oChartTitle, oChartType) ' Select Current Chart - chart = Select_Chart(groupIndex) - chart = charts.Item(groupIndex) + chart = Select_Chart(oGroupIndex) + chart = charts.Item(oGroupIndex) Try chart.Series.Clear() Catch ex As Exception @@ -518,8 +532,8 @@ Public Class frmMain chart.DataSource = DATA_DT ' Set shown Columns for Chart - series.ArgumentDataMember = argument - series.ValueDataMembers.AddRange(New String() {value}) + series.ArgumentDataMember = oChartArgument + series.ValueDataMembers.AddRange(New String() {oChartValue}) 'set some options chart.Legend.Visibility = DevExpress.Utils.DefaultBoolean.True @@ -531,28 +545,28 @@ Public Class frmMain Next 'End Groups Else ' Create Charts - For Each row As DataRow In DT_CHARTS.Rows + For Each cRow As DataRow In DT_CHARTS.Rows Dim chart As ChartControl - Dim chartIndex As Integer = DT_CHARTS.Rows.IndexOf(row) + Dim chartIndex As Integer = DT_CHARTS.Rows.IndexOf(cRow) - Dim type = row.Item("TYPE_CHART") - Dim title = row.Item("TITLE") - Dim guid = row.Item("GUID") - Dim value = row.Item("VALUE") - Dim argument = row.Item("ARGUMENT") - Dim sqlchart = row.Item("SQL_COMMAND") + Dim oChartType = cRow.Item("TYPE_CHART") + Dim oChartTitle = cRow.Item("TITLE") + Dim guid = cRow.Item("GUID") + Dim oChartValue = cRow.Item("VALUE") + Dim oChartArgument = cRow.Item("ARGUMENT") + Dim oSqlchart = cRow.Item("SQL_COMMAND") - sqlchart = clsPatterns.ReplaceInternalValues(sqlchart) - sqlchart = clsPatterns.ReplaceUserValues(sqlchart, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + oSqlchart = clsPatterns.ReplaceInternalValues(oSqlchart) + oSqlchart = clsPatterns.ReplaceUserValues(oSqlchart, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - sqlchart = sqlchart.ToString.ToUpper.Replace("@USER_ID", USER_ID) - sqlchart = sqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME) - Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(sqlchart) + oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER_ID", USER_ID) + oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME) + Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(oSqlchart) ' Create Series based on type - Dim series As Series = Create_Series(title, type) + Dim series As Series = Create_Series(oChartTitle, oChartType) ' Select Current Chart chart = Select_Chart(chartIndex) @@ -566,8 +580,8 @@ Public Class frmMain chart.DataSource = DATA_DT ' Set shown Columns for Chart - series.ArgumentDataMember = argument - series.ValueDataMembers.AddRange(New String() {value}) + series.ArgumentDataMember = oChartArgument + series.ValueDataMembers.AddRange(New String() {oChartValue}) 'set some options chart.Legend.Visibility = DevExpress.Utils.DefaultBoolean.True @@ -638,7 +652,7 @@ Public Class frmMain ' Show SplitContainerBottom SplitContainerDashboard.Panel2Collapsed = False End Select - SplitContainerDashboard.Dock = DockStyle.Fill + pnlDashboard.Dock = DockStyle.Fill End Sub Sub Load_single_Profile() @@ -839,20 +853,34 @@ Public Class frmMain ' LOGGER.Warn($"Unexpected Error in freefileforUser [{oUpdate}] - {ex.Message}") ' End Try - 'End If - SaveGridLayout() - Load_Profile_items() - Decide_Load() - If USER_LANGUAGE <> "de-DE" Then - bsilastsync.Caption = "Last Client-Sync: " & Now.ToLongTimeString - Else - bsilastsync.Caption = "Letzte Synchronisation: " & Now.ToLongTimeString - End If - - If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo() + 'End If + If bwSync.IsBusy Then + Exit Sub + End If + Try + SaveGridLayout() + 'bwSync.ReportProgress(10) + Load_Profile_items() + 'bwSync.ReportProgress(60) + Dim oStopWatch As New RefreshHelper.SW("Decide_Load") + Decide_Load() + oStopWatch.Done() + 'bwSync.ReportProgress(95) + If USER_LANGUAGE <> "de-DE" Then + bsilastsync.Caption = "Last Client-Sync: " & Now.ToLongTimeString + Else + bsilastsync.Caption = "Letzte Synchronisation: " & Now.ToLongTimeString + End If + If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo() - Handling_DEBUG_USER() + Handling_DEBUG_USER() + Catch ex As Exception + LOGGER.Error(ex) + End Try + 'BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + '' call this method to start your asynchronous Task. + 'bwSync.RunWorkerAsync() End Sub @@ -866,7 +894,7 @@ Public Class frmMain Exit Sub End If If TimerRefresh.Enabled = True Then - TimerRefresh.Stop() + TimerRefresh.Enabled = False End If If GRID_LOAD_TYPE = "OVERVIEW" Then Load_Grid_Overview() @@ -887,7 +915,7 @@ Public Class frmMain LOGGER.Info("Unexpected error in Decide_load: " & ex.Message) End Try If TimerRefresh.Enabled = False Then - TimerRefresh.Start() + TimerRefresh.Enabled = True End If End Sub @@ -956,7 +984,7 @@ Public Class frmMain omsgTitle = "Attention:" End If If TimerRefresh.Enabled Then - TimerRefresh.Stop() + TimerRefresh.Enabled = False End If ' Dim th As System.Threading.Thread If Not Application.OpenForms().OfType(Of frmValidator).Any Then @@ -964,7 +992,6 @@ Public Class frmMain Decide_Load() TimerRefresh.Enabled = True - TimerRefresh.Start() Dim iterateIndex As Integer = 0 Dim oNewDataTable As DataTable = CURR_DT_OVERVIEW.Copy For Each row As DataRow In oNewDataTable.Rows @@ -1291,7 +1318,7 @@ Public Class frmMain RefreshHelper.LoadViewInfo() End Sub Sub Load_Grid_Overview() - SplitContainerDashboard.Visible = False + pnlDashboard.Visible = False Layout_Single_Profile() GRID_LOAD_TYPE = "OVERVIEW" CURRENT_CLICKED_PROFILE_ID = 0 @@ -1312,12 +1339,12 @@ Public Class frmMain Exit Sub End If + Dim oStopWatch As New RefreshHelper.SW("Load_Profiles_for_User") Load_Profiles_for_User() - - ClassInit.InitBasics() + oStopWatch.Done() + 'ClassInit.InitBasics() + oStopWatch = New RefreshHelper.SW("build CURR_DT_OVERVIEW") Dim oSQLOverview = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") - - If IsDBNull(oSQLOverview) Then bsiMessage.Caption = "No GROUP-CONFIG (SQL_PROFILE_MAIN_VIEW) in Baseconfig" Exit Sub @@ -1336,7 +1363,7 @@ Public Class frmMain ' "WHERE T.PROFIL_ID = T1.PROFIL_ID " & ' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", USER_USERNAME) CURR_DT_OVERVIEW = ClassDatabase.Return_Datatable(oSQLOverview) - + oStopWatch.Done() Dim DTGRID_GROUPS As DataTable Try @@ -1506,7 +1533,7 @@ Public Class frmMain Private Sub NavBarItemDashboard_LinkClicked(sender As Object, e As NavBarLinkEventArgs) Handles NavBarItemDashboard.LinkClicked If TimerRefresh.Enabled = True Then - TimerRefresh.Stop() + TimerRefresh.Enabled = False End If Layout_Dashboard() End Sub @@ -1667,7 +1694,7 @@ Public Class frmMain End If LOGGER.Debug($" RibbonControl1.ColorScheme [{RIBBON_COLOR_SCHEME}]") Me.Text = ADDITIONAL_TITLE - + CurrNavBarGroup = NavBarControl1.Groups(1) End Sub Sub Handling_DEBUG_USER() If USER_DEBUG_LOG = True Then @@ -1844,4 +1871,119 @@ Public Class frmMain Private Sub bbtniMetadataFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniMetadataFile.ItemClick frmDesignerLayout.Show() End Sub + + Private Sub bwSync_DoWork(sender As Object, e As DoWorkEventArgs) Handles bwSync.DoWork + + End Sub + + Private Sub bwSync_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles bwSync.ProgressChanged + BarEditItem1.EditValue = e.ProgressPercentage + End Sub + + Private Sub bwSync_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bwSync.RunWorkerCompleted + + 'BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + + Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint + + End Sub + Sub ExportChart2Pdf(pMyChart As ChartControl, pFilePath As String) + Try + pMyChart.OptionsPrint.ImageFormat = DevExpress.XtraCharts.Printing.PrintImageFormat.Metafile + pMyChart.ExportToPdf(pFilePath, New DevExpress.XtraPrinting.PdfExportOptions With { + .ConvertImagesToJpeg = False + }) + ' Exports to a stream as PDF. + Dim pdfStream As FileStream = New FileStream(pFilePath, FileMode.Create) + pMyChart.ExportToPdf(pdfStream) + ' ... + pdfStream.Close() + Catch ex As Exception + LOGGER.Error(ex) + End Try + End Sub + Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click + SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" + If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then + ExportChart2Pdf(ChartTopLeft, SaveFileDialog1.FileName) + End If + End Sub + + Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click + SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" + If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then + ExportChart2Pdf(ChartTopRight, SaveFileDialog1.FileName) + End If + End Sub + + Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click + SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" + If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then + ExportChart2Pdf(ChartBottomLeft, SaveFileDialog1.FileName) + End If + End Sub + + Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click + SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf" + If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then + ExportChart2Pdf(ChartBottomRight, SaveFileDialog1.FileName) + End If + End Sub + + Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click + SaveFileDialog1.Filter = "PNG Files(* .png *)|*.png" + If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then + ExportCharttoimage(ChartTopLeft, SaveFileDialog1.FileName) + End If + End Sub + Sub ExportCharttoimage(pMyChart As ChartControl, pFilePath As String) + Try + SaveChartImageToFile(pMyChart, ImageFormat.Png, pFilePath) + Dim image As Image = GetChartImage(pMyChart, ImageFormat.Png) + image.Save(pFilePath) + Catch ex As Exception + LOGGER.Error(ex) + End Try + + End Sub + Private Sub SaveChartImageToFile(ByVal chart As ChartControl, ByVal format As ImageFormat, ByVal fileName As String) + ' Create an image in the specified format from the chart + ' and save it to the specified path. + chart.ExportToImage(fileName, format) + End Sub + Private Function GetChartImage(ByVal chart As ChartControl, ByVal format As ImageFormat) As Image + ' Create an image. + Dim image As Image = Nothing + + ' Create an image of the chart. + Using s As New MemoryStream() + chart.ExportToImage(s, format) + image = System.Drawing.Image.FromStream(s) + End Using + + ' Return the image. + Return image + End Function + + Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click + SaveFileDialog1.Filter = "PNG Files(* .png *)|*.png" + If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then + ExportCharttoimage(ChartTopRight, SaveFileDialog1.FileName) + End If + End Sub + + Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click + SaveFileDialog1.Filter = "PNG Files(* .png *)|*.png" + If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then + ExportCharttoimage(ChartBottomLeft, SaveFileDialog1.FileName) + End If + End Sub + + Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) Handles ToolStripButton8.Click + SaveFileDialog1.Filter = "PNG Files(* .png *)|*.png" + If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then + ExportCharttoimage(ChartBottomRight, SaveFileDialog1.FileName) + End If + End Sub End Class \ No newline at end of file From f636abc2fc88c6f1591b07c177f9cdf79a9168ab Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Fri, 14 Feb 2020 13:50:06 +0100 Subject: [PATCH 24/26] MS .0.8 --- app/DD_PM_WINDREAM/ClassRefreshHelper.vb | 2 +- app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb | 7 + .../frmAdministration.Designer.vb | 459 +--- app/DD_PM_WINDREAM/frmAdministration.resx | 1939 ++++++++--------- app/DD_PM_WINDREAM/frmAdministration.vb | 252 ++- app/DD_PM_WINDREAM/frmConnection.Designer.vb | 248 ++- app/DD_PM_WINDREAM/frmConnection.vb | 8 + app/DD_PM_WINDREAM/frmFormDesigner.vb | 3 + app/DD_PM_WINDREAM/frmMain.Designer.vb | 7 + app/DD_PM_WINDREAM/frmMain.resx | 595 ++--- app/DD_PM_WINDREAM/frmMain.vb | 265 ++- app/DD_PM_WINDREAM/frmValidator.vb | 41 +- 12 files changed, 1810 insertions(+), 2016 deletions(-) diff --git a/app/DD_PM_WINDREAM/ClassRefreshHelper.vb b/app/DD_PM_WINDREAM/ClassRefreshHelper.vb index f771756..687210f 100644 --- a/app/DD_PM_WINDREAM/ClassRefreshHelper.vb +++ b/app/DD_PM_WINDREAM/ClassRefreshHelper.vb @@ -248,7 +248,7 @@ Public Class RefreshHelper timespan_ = String.Format("{0:00}.{1:00} seconds", ts.Seconds, ts.Milliseconds / 10) End If If timespan_ <> "00:00.00" Then - Dim message = String.Format("{0} || {1}", timespan_, label) + Dim message = String.Format("PerformanceWatch {0} || {1}", timespan_, label) If LOGCONFIG.Debug = True Then LOGGER.Debug(message) diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index 3640541..ca672f2 100644 --- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb +++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb @@ -79,13 +79,20 @@ Module ModuleRuntimeVariables Public CURRENT_DT_MASS_CHANGE_DOCS As DataTable Public CURRENT_DT_FINAL_INDEXING As DataTable + Public CURRENT_DT_PROFILES As DataTable Public CURRENT_DT_PROFILE As DataTable + Public CURRENT_DT_PROFILES_SEARCHES_DOC As DataTable Public CURRENT_DT_PROFILE_SEARCHES_DOC As DataTable + Public CURRENT_DT_PROFILES_SEARCHES_SQL As DataTable Public CURRENT_DT_PROFILE_SEARCHES_SQL As DataTable Public CURRENT_INDEX_ARRAY(100, 250) As String Public CURRENT_DT_VW_PROFILE_USER As DataTable Public CURRENT_DT_GUI_LANGUAGE_PHRASES As DataTable + + Public DTVWCONTROLS_INDEX As DataTable + Public DTVWCONTROL_INDEX As DataTable + Public CURRENT_CONTROL_ID As Integer Public errormessage As String diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index 4367d57..a89cf38 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -34,7 +34,6 @@ Partial Class frmAdministration Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim TITLELabel As System.Windows.Forms.Label Dim WORK_HISTORY_ENTRYLabel As System.Windows.Forms.Label - Dim SQL_VIEWLabel As System.Windows.Forms.Label Dim DISPLAY_MODELabel As System.Windows.Forms.Label Me.SplitContainer_Profilzuordnung2 = New System.Windows.Forms.SplitContainer() Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl() @@ -79,21 +78,6 @@ Partial Class frmAdministration Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() - Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() - Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() - Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() - Me.VWPM_PROFILE_USERBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() - Me.TBPM_PROFILEBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) - Me.tstrpbtn_add = New System.Windows.Forms.ToolStripButton() - Me.tstrlblSave = New System.Windows.Forms.ToolStripLabel() - Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.Label2 = New System.Windows.Forms.Label() Me.cmbObjekttypen = New System.Windows.Forms.ComboBox() Me.FINAL_PROFILECheckBox = New System.Windows.Forms.CheckBox() @@ -101,9 +85,6 @@ Partial Class frmAdministration Me.Label1 = New System.Windows.Forms.Label() Me.cmbType = New System.Windows.Forms.ComboBox() Me.TBPM_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.GroupBox3 = New System.Windows.Forms.GroupBox() - Me.MOVE2FOLDERTextBox = New System.Windows.Forms.TextBox() - Me.btnmovetoFolderDialog = New System.Windows.Forms.Button() Me.PRIORITYNumericUpDown = New System.Windows.Forms.NumericUpDown() Me.btnWMopenSuche = New System.Windows.Forms.Button() Me.btnWMSuche = New System.Windows.Forms.Button() @@ -149,29 +130,16 @@ Partial Class frmAdministration Me.colDESCRIPTION1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colACTIVE = New DevExpress.XtraGrid.Columns.GridColumn() Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid() - Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) - Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel() - Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMovePreviousItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator3 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorPositionItem1 = New System.Windows.Forms.ToolStripTextBox() - Me.BindingNavigatorSeparator4 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorMoveNextItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() - Me.tsBtnCancel = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() - Me.tsBtnSave = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() - Me.Label13 = New System.Windows.Forms.Label() - Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.TabPage12 = New System.Windows.Forms.TabPage() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.MOVE2FOLDERTextBox = New System.Windows.Forms.TextBox() + Me.btnmovetoFolderDialog = New System.Windows.Forms.Button() Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox = New System.Windows.Forms.CheckBox() Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox = New System.Windows.Forms.CheckBox() - Me.SQL_VIEWTextBox = New System.Windows.Forms.TextBox() Me.WORK_HISTORY_ENTRYTextBox = New System.Windows.Forms.TextBox() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.SQL_VIEWTextBox = New System.Windows.Forms.TextBox() Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn() @@ -181,7 +149,6 @@ Partial Class frmAdministration Me.gridAvailableProfiles = New DevExpress.XtraGrid.GridControl() Me.viewAvailableProfiles = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colNAME1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.Label21 = New System.Windows.Forms.Label() Me.TabControl3 = New System.Windows.Forms.TabControl() Me.TabPage7 = New System.Windows.Forms.TabPage() Me.TabPage8 = New System.Windows.Forms.TabPage() @@ -219,6 +186,12 @@ Partial Class frmAdministration Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem15 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem16 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem17 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem18 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem() + Me.tsbStaticInfo = New DevExpress.XtraBars.BarStaticItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -235,7 +208,6 @@ Partial Class frmAdministration CHANGED_WHENLabel = New System.Windows.Forms.Label() TITLELabel = New System.Windows.Forms.Label() WORK_HISTORY_ENTRYLabel = New System.Windows.Forms.Label() - SQL_VIEWLabel = New System.Windows.Forms.Label() DISPLAY_MODELabel = New System.Windows.Forms.Label() CType(Me.SplitContainer_Profilzuordnung2, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer_Profilzuordnung2.Panel1.SuspendLayout() @@ -264,10 +236,7 @@ Partial Class frmAdministration Me.Panel4.SuspendLayout() CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBPM_PROFILEBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TBPM_PROFILEBindingNavigator.SuspendLayout() CType(Me.TBPM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox3.SuspendLayout() CType(Me.PRIORITYNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() @@ -281,9 +250,9 @@ Partial Class frmAdministration CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.BindingNavigator1.SuspendLayout() Me.TabPage12.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.TabPage3.SuspendLayout() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage2.SuspendLayout() @@ -651,11 +620,6 @@ Partial Class frmAdministration resources.ApplyResources(WORK_HISTORY_ENTRYLabel, "WORK_HISTORY_ENTRYLabel") WORK_HISTORY_ENTRYLabel.Name = "WORK_HISTORY_ENTRYLabel" ' - 'SQL_VIEWLabel - ' - resources.ApplyResources(SQL_VIEWLabel, "SQL_VIEWLabel") - SQL_VIEWLabel.Name = "SQL_VIEWLabel" - ' 'DISPLAY_MODELabel ' resources.ApplyResources(DISPLAY_MODELabel, "DISPLAY_MODELabel") @@ -693,104 +657,6 @@ Partial Class frmAdministration ' Me.TBPM_PROFILETableAdapter.ClearBeforeFill = True ' - 'BindingNavigatorMoveFirstItem - ' - Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem") - Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" - ' - 'BindingNavigatorMovePreviousItem - ' - Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem") - Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" - ' - 'BindingNavigatorSeparator - ' - Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" - resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator") - ' - 'BindingNavigatorPositionItem - ' - resources.ApplyResources(Me.BindingNavigatorPositionItem, "BindingNavigatorPositionItem") - Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" - ' - 'BindingNavigatorCountItem - ' - Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" - resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem") - ' - 'BindingNavigatorSeparator1 - ' - Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" - resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1") - ' - 'BindingNavigatorMoveNextItem - ' - Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem") - Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" - ' - 'BindingNavigatorMoveLastItem - ' - Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem") - Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" - ' - 'BindingNavigatorSeparator2 - ' - Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" - resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2") - ' - 'VWPM_PROFILE_USERBindingNavigatorSaveItem - ' - Me.VWPM_PROFILE_USERBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.VWPM_PROFILE_USERBindingNavigatorSaveItem, "VWPM_PROFILE_USERBindingNavigatorSaveItem") - Me.VWPM_PROFILE_USERBindingNavigatorSaveItem.Name = "VWPM_PROFILE_USERBindingNavigatorSaveItem" - ' - 'TBPM_PROFILEBindingNavigator - ' - Me.TBPM_PROFILEBindingNavigator.AddNewItem = Nothing - Me.TBPM_PROFILEBindingNavigator.BindingSource = Me.TBPM_PROFILEBindingSource - Me.TBPM_PROFILEBindingNavigator.CountItem = Me.BindingNavigatorCountItem - Me.TBPM_PROFILEBindingNavigator.CountItemFormat = "von {0} Profilen" - Me.TBPM_PROFILEBindingNavigator.DeleteItem = Nothing - Me.TBPM_PROFILEBindingNavigator.ImageScalingSize = New System.Drawing.Size(20, 20) - Me.TBPM_PROFILEBindingNavigator.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.VWPM_PROFILE_USERBindingNavigatorSaveItem, Me.tstrpbtn_add, Me.tstrlblSave, Me.ToolStripSeparator1, Me.ToolStripSeparator2}) - resources.ApplyResources(Me.TBPM_PROFILEBindingNavigator, "TBPM_PROFILEBindingNavigator") - Me.TBPM_PROFILEBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem - Me.TBPM_PROFILEBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem - Me.TBPM_PROFILEBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem - Me.TBPM_PROFILEBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem - Me.TBPM_PROFILEBindingNavigator.Name = "TBPM_PROFILEBindingNavigator" - Me.TBPM_PROFILEBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem - ' - 'tstrpbtn_add - ' - Me.tstrpbtn_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.tstrpbtn_add.Image = Global.DD_ProcessManager.My.Resources.Resources.action_add_16xLG - resources.ApplyResources(Me.tstrpbtn_add, "tstrpbtn_add") - Me.tstrpbtn_add.Name = "tstrpbtn_add" - ' - 'tstrlblSave - ' - Me.tstrlblSave.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.tstrlblSave.BackColor = System.Drawing.Color.Lime - Me.tstrlblSave.ForeColor = System.Drawing.Color.Crimson - Me.tstrlblSave.Image = Global.DD_ProcessManager.My.Resources.Resources.asterisk_yellow - Me.tstrlblSave.Name = "tstrlblSave" - resources.ApplyResources(Me.tstrlblSave, "tstrlblSave") - ' - 'ToolStripSeparator1 - ' - Me.ToolStripSeparator1.Name = "ToolStripSeparator1" - resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1") - ' - 'ToolStripSeparator2 - ' - Me.ToolStripSeparator2.Name = "ToolStripSeparator2" - resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2") - ' 'Label2 ' resources.ApplyResources(Me.Label2, "Label2") @@ -836,26 +702,6 @@ Partial Class frmAdministration Me.TBPM_TYPEBindingSource.DataMember = "TBPM_TYPE" Me.TBPM_TYPEBindingSource.DataSource = Me.DD_DMSLiteDataSet ' - 'GroupBox3 - ' - Me.GroupBox3.Controls.Add(Me.MOVE2FOLDERTextBox) - Me.GroupBox3.Controls.Add(Me.btnmovetoFolderDialog) - resources.ApplyResources(Me.GroupBox3, "GroupBox3") - Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.TabStop = False - ' - 'MOVE2FOLDERTextBox - ' - Me.MOVE2FOLDERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "MOVE2FOLDER", True)) - resources.ApplyResources(Me.MOVE2FOLDERTextBox, "MOVE2FOLDERTextBox") - Me.MOVE2FOLDERTextBox.Name = "MOVE2FOLDERTextBox" - ' - 'btnmovetoFolderDialog - ' - resources.ApplyResources(Me.btnmovetoFolderDialog, "btnmovetoFolderDialog") - Me.btnmovetoFolderDialog.Name = "btnmovetoFolderDialog" - Me.btnmovetoFolderDialog.UseVisualStyleBackColor = True - ' 'PRIORITYNumericUpDown ' Me.PRIORITYNumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBPM_PROFILEBindingSource, "PRIORITY", True)) @@ -963,7 +809,6 @@ Partial Class frmAdministration 'TabPage1 ' Me.TabPage1.Controls.Add(Me.tabctrl_Profilkonfig) - Me.TabPage1.Controls.Add(Me.TBPM_PROFILEBindingNavigator) Me.TabPage1.Controls.Add(GUIDLabel) Me.TabPage1.Controls.Add(TITLELabel) Me.TabPage1.Controls.Add(Me.TITLETextBox) @@ -1067,6 +912,7 @@ Partial Class frmAdministration ' Me.TabControl2.Controls.Add(Me.TabPage11) Me.TabControl2.Controls.Add(Me.TabPage12) + Me.TabControl2.Controls.Add(Me.TabPage3) resources.ApplyResources(Me.TabControl2, "TabControl2") Me.TabControl2.Name = "TabControl2" Me.TabControl2.SelectedIndex = 0 @@ -1074,10 +920,6 @@ Partial Class frmAdministration 'TabPage11 ' Me.TabPage11.Controls.Add(Me.Panel5) - Me.TabPage11.Controls.Add(Me.BindingNavigator1) - Me.TabPage11.Controls.Add(Me.Label13) - Me.TabPage11.Controls.Add(Me.GroupBox3) - Me.TabPage11.Controls.Add(Me.Label5) Me.TabPage11.Controls.Add(Me.Label6) resources.ApplyResources(Me.TabPage11, "TabPage11") Me.TabPage11.Name = "TabPage11" @@ -1178,111 +1020,6 @@ Partial Class frmAdministration resources.ApplyResources(Me.PropertyGrid1, "PropertyGrid1") Me.PropertyGrid1.Name = "PropertyGrid1" ' - 'BindingNavigator1 - ' - Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem - Me.BindingNavigator1.BindingSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource - Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem1 - Me.BindingNavigator1.CountItemFormat = "von {0} finalen Indexen" - Me.BindingNavigator1.DeleteItem = Nothing - resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1") - Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(20, 20) - Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorAddNewItem, Me.tsBtnCancel, Me.BindingNavigatorDeleteItem, Me.tsBtnSave, Me.ToolStripButton5}) - Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1 - Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem1 - Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem1 - Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem1 - Me.BindingNavigator1.Name = "BindingNavigator1" - Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem1 - ' - 'BindingNavigatorAddNewItem - ' - Me.BindingNavigatorAddNewItem.Image = Global.DD_ProcessManager.My.Resources.Resources.add - Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" - resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem") - ' - 'BindingNavigatorCountItem1 - ' - Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" - resources.ApplyResources(Me.BindingNavigatorCountItem1, "BindingNavigatorCountItem1") - ' - 'BindingNavigatorMoveFirstItem1 - ' - Me.BindingNavigatorMoveFirstItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveFirstItem1, "BindingNavigatorMoveFirstItem1") - Me.BindingNavigatorMoveFirstItem1.Name = "BindingNavigatorMoveFirstItem1" - ' - 'BindingNavigatorMovePreviousItem1 - ' - Me.BindingNavigatorMovePreviousItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMovePreviousItem1, "BindingNavigatorMovePreviousItem1") - Me.BindingNavigatorMovePreviousItem1.Name = "BindingNavigatorMovePreviousItem1" - ' - 'BindingNavigatorSeparator3 - ' - Me.BindingNavigatorSeparator3.Name = "BindingNavigatorSeparator3" - resources.ApplyResources(Me.BindingNavigatorSeparator3, "BindingNavigatorSeparator3") - ' - 'BindingNavigatorPositionItem1 - ' - resources.ApplyResources(Me.BindingNavigatorPositionItem1, "BindingNavigatorPositionItem1") - Me.BindingNavigatorPositionItem1.Name = "BindingNavigatorPositionItem1" - ' - 'BindingNavigatorSeparator4 - ' - Me.BindingNavigatorSeparator4.Name = "BindingNavigatorSeparator4" - resources.ApplyResources(Me.BindingNavigatorSeparator4, "BindingNavigatorSeparator4") - ' - 'BindingNavigatorMoveNextItem1 - ' - Me.BindingNavigatorMoveNextItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveNextItem1, "BindingNavigatorMoveNextItem1") - Me.BindingNavigatorMoveNextItem1.Name = "BindingNavigatorMoveNextItem1" - ' - 'BindingNavigatorMoveLastItem1 - ' - Me.BindingNavigatorMoveLastItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveLastItem1, "BindingNavigatorMoveLastItem1") - Me.BindingNavigatorMoveLastItem1.Name = "BindingNavigatorMoveLastItem1" - ' - 'BindingNavigatorSeparator5 - ' - Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5" - resources.ApplyResources(Me.BindingNavigatorSeparator5, "BindingNavigatorSeparator5") - ' - 'tsBtnCancel - ' - Me.tsBtnCancel.Image = Global.DD_ProcessManager.My.Resources.Resources.cancel - resources.ApplyResources(Me.tsBtnCancel, "tsBtnCancel") - Me.tsBtnCancel.Name = "tsBtnCancel" - ' - 'BindingNavigatorDeleteItem - ' - resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem") - Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" - ' - 'tsBtnSave - ' - Me.tsBtnSave.Image = Global.DD_ProcessManager.My.Resources.Resources.save - resources.ApplyResources(Me.tsBtnSave, "tsBtnSave") - Me.tsBtnSave.Name = "tsBtnSave" - ' - 'ToolStripButton5 - ' - Me.ToolStripButton5.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xMD - resources.ApplyResources(Me.ToolStripButton5, "ToolStripButton5") - Me.ToolStripButton5.Name = "ToolStripButton5" - ' - 'Label13 - ' - resources.ApplyResources(Me.Label13, "Label13") - Me.Label13.Name = "Label13" - ' - 'Label5 - ' - resources.ApplyResources(Me.Label5, "Label5") - Me.Label5.Name = "Label5" - ' 'Label6 ' resources.ApplyResources(Me.Label6, "Label6") @@ -1291,15 +1028,34 @@ Partial Class frmAdministration 'TabPage12 ' resources.ApplyResources(Me.TabPage12, "TabPage12") + Me.TabPage12.Controls.Add(Me.GroupBox3) Me.TabPage12.Controls.Add(Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox) Me.TabPage12.Controls.Add(Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox) - Me.TabPage12.Controls.Add(SQL_VIEWLabel) - Me.TabPage12.Controls.Add(Me.SQL_VIEWTextBox) Me.TabPage12.Controls.Add(WORK_HISTORY_ENTRYLabel) Me.TabPage12.Controls.Add(Me.WORK_HISTORY_ENTRYTextBox) Me.TabPage12.Name = "TabPage12" Me.TabPage12.UseVisualStyleBackColor = True ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.MOVE2FOLDERTextBox) + Me.GroupBox3.Controls.Add(Me.btnmovetoFolderDialog) + resources.ApplyResources(Me.GroupBox3, "GroupBox3") + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.TabStop = False + ' + 'MOVE2FOLDERTextBox + ' + Me.MOVE2FOLDERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "MOVE2FOLDER", True)) + resources.ApplyResources(Me.MOVE2FOLDERTextBox, "MOVE2FOLDERTextBox") + Me.MOVE2FOLDERTextBox.Name = "MOVE2FOLDERTextBox" + ' + 'btnmovetoFolderDialog + ' + resources.ApplyResources(Me.btnmovetoFolderDialog, "btnmovetoFolderDialog") + Me.btnmovetoFolderDialog.Name = "btnmovetoFolderDialog" + Me.btnmovetoFolderDialog.UseVisualStyleBackColor = True + ' 'ANNOTATE_WORK_HISTORY_ENTRYCheckBox ' Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILEBindingSource, "ANNOTATE_WORK_HISTORY_ENTRY", True)) @@ -1314,18 +1070,25 @@ Partial Class frmAdministration Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox.Name = "ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox" Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox.UseVisualStyleBackColor = True ' - 'SQL_VIEWTextBox - ' - Me.SQL_VIEWTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "SQL_VIEW", True)) - resources.ApplyResources(Me.SQL_VIEWTextBox, "SQL_VIEWTextBox") - Me.SQL_VIEWTextBox.Name = "SQL_VIEWTextBox" - ' 'WORK_HISTORY_ENTRYTextBox ' Me.WORK_HISTORY_ENTRYTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "WORK_HISTORY_ENTRY", True)) resources.ApplyResources(Me.WORK_HISTORY_ENTRYTextBox, "WORK_HISTORY_ENTRYTextBox") Me.WORK_HISTORY_ENTRYTextBox.Name = "WORK_HISTORY_ENTRYTextBox" ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.SQL_VIEWTextBox) + resources.ApplyResources(Me.TabPage3, "TabPage3") + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'SQL_VIEWTextBox + ' + resources.ApplyResources(Me.SQL_VIEWTextBox, "SQL_VIEWTextBox") + Me.SQL_VIEWTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "SQL_VIEW", True)) + Me.SQL_VIEWTextBox.Name = "SQL_VIEWTextBox" + ' 'GridControl1 ' Me.GridControl1.DataSource = Me.TBPM_PROFILEBindingSource @@ -1383,7 +1146,6 @@ Partial Class frmAdministration 'SplitContainerProfilzuordnung.Panel1 ' Me.SplitContainerProfilzuordnung.Panel1.Controls.Add(Me.gridAvailableProfiles) - Me.SplitContainerProfilzuordnung.Panel1.Controls.Add(Me.Label21) ' 'SplitContainerProfilzuordnung.Panel2 ' @@ -1419,11 +1181,6 @@ Partial Class frmAdministration Me.colNAME1.MinWidth = 16 Me.colNAME1.Name = "colNAME1" ' - 'Label21 - ' - resources.ApplyResources(Me.Label21, "Label21") - Me.Label21.Name = "Label21" - ' 'TabControl3 ' Me.TabControl3.Controls.Add(Me.TabPage7) @@ -1532,9 +1289,9 @@ Partial Class frmAdministration 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.tsbStaticInfo}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 15 + Me.RibbonControl1.MaxItemId = 21 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 @@ -1655,6 +1412,54 @@ Partial Class frmAdministration Me.BarButtonItem14.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem14.ImageOptions.LargeImage"), System.Drawing.Image) Me.BarButtonItem14.Name = "BarButtonItem14" ' + 'BarButtonItem15 + ' + resources.ApplyResources(Me.BarButtonItem15, "BarButtonItem15") + Me.BarButtonItem15.Id = 15 + Me.BarButtonItem15.ImageOptions.Image = CType(resources.GetObject("BarButtonItem15.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem15.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem15.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem15.Name = "BarButtonItem15" + ' + 'BarButtonItem16 + ' + resources.ApplyResources(Me.BarButtonItem16, "BarButtonItem16") + Me.BarButtonItem16.Id = 16 + Me.BarButtonItem16.ImageOptions.Image = CType(resources.GetObject("BarButtonItem16.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem16.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem16.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem16.Name = "BarButtonItem16" + ' + 'BarButtonItem17 + ' + resources.ApplyResources(Me.BarButtonItem17, "BarButtonItem17") + Me.BarButtonItem17.Id = 17 + Me.BarButtonItem17.ImageOptions.Image = CType(resources.GetObject("BarButtonItem17.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem17.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem17.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem17.Name = "BarButtonItem17" + ' + 'BarButtonItem18 + ' + resources.ApplyResources(Me.BarButtonItem18, "BarButtonItem18") + Me.BarButtonItem18.Id = 18 + Me.BarButtonItem18.ImageOptions.Image = CType(resources.GetObject("BarButtonItem18.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem18.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem18.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem18.Name = "BarButtonItem18" + ' + 'BarButtonItem19 + ' + resources.ApplyResources(Me.BarButtonItem19, "BarButtonItem19") + Me.BarButtonItem19.Id = 19 + Me.BarButtonItem19.ImageOptions.Image = CType(resources.GetObject("BarButtonItem19.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem19.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem19.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem19.Name = "BarButtonItem19" + Me.BarButtonItem19.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'tsbStaticInfo + ' + Me.tsbStaticInfo.Id = 20 + Me.tsbStaticInfo.ItemAppearance.Normal.BackColor = System.Drawing.Color.Yellow + Me.tsbStaticInfo.ItemAppearance.Normal.Options.UseBackColor = True + Me.tsbStaticInfo.Name = "tsbStaticInfo" + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3}) @@ -1675,6 +1480,11 @@ Partial Class frmAdministration ' 'RibbonPageGroup2 ' + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem15) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem19) Me.RibbonPageGroup2.Name = "RibbonPageGroup2" resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2") ' @@ -1689,6 +1499,7 @@ Partial Class frmAdministration ' 'RibbonStatusBar1 ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.tsbStaticInfo) resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1") Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 @@ -1738,12 +1549,7 @@ Partial Class frmAdministration Me.Panel4.ResumeLayout(False) CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBPM_PROFILEBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() - Me.TBPM_PROFILEBindingNavigator.ResumeLayout(False) - Me.TBPM_PROFILEBindingNavigator.PerformLayout() CType(Me.TBPM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox3.ResumeLayout(False) - Me.GroupBox3.PerformLayout() CType(Me.PRIORITYNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) @@ -1760,11 +1566,12 @@ Partial Class frmAdministration CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() - Me.BindingNavigator1.ResumeLayout(False) - Me.BindingNavigator1.PerformLayout() Me.TabPage12.ResumeLayout(False) Me.TabPage12.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.TabPage3.ResumeLayout(False) + Me.TabPage3.PerformLayout() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage2.ResumeLayout(False) @@ -1793,17 +1600,6 @@ Partial Class frmAdministration Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents TBPM_PROFILEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter - Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator - Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox - Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel - Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents VWPM_PROFILE_USERBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton - Friend WithEvents TBPM_PROFILEBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents btnWMSuche As System.Windows.Forms.Button Friend WithEvents TITLETextBox As System.Windows.Forms.TextBox Friend WithEvents PROFILGUIDTextBox As System.Windows.Forms.TextBox @@ -1819,17 +1615,11 @@ Partial Class frmAdministration Friend WithEvents FINAL_TEXTTextBox As System.Windows.Forms.TextBox Friend WithEvents dlgWindreamsuche As System.Windows.Forms.OpenFileDialog Friend WithEvents btnWMopenSuche As System.Windows.Forms.Button - Friend WithEvents tstrpbtn_add As System.Windows.Forms.ToolStripButton Friend WithEvents PRIORITYNumericUpDown As System.Windows.Forms.NumericUpDown - Friend WithEvents tstrlblSave As System.Windows.Forms.ToolStripLabel - Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator Friend WithEvents TBPM_TYPEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_TYPETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter Friend WithEvents cmbType As System.Windows.Forms.ComboBox - Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox - Friend WithEvents btnmovetoFolderDialog As System.Windows.Forms.Button Friend WithEvents FolderBrowserDialog1 As System.Windows.Forms.FolderBrowserDialog - Friend WithEvents MOVE2FOLDERTextBox As System.Windows.Forms.TextBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents cmbObjekttypen As System.Windows.Forms.ComboBox Friend WithEvents Label2 As System.Windows.Forms.Label @@ -1852,15 +1642,12 @@ Partial Class frmAdministration Friend WithEvents TabPage5 As System.Windows.Forms.TabPage Friend WithEvents TabPage6 As System.Windows.Forms.TabPage Friend WithEvents Label6 As System.Windows.Forms.Label - Friend WithEvents Label5 As System.Windows.Forms.Label - Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter Friend WithEvents PM_VEKTOR_INDEXComboBox As System.Windows.Forms.ComboBox Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter Friend WithEvents cmbLOGIndex As System.Windows.Forms.ComboBox - Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents DataGridViewCheckBoxColumn2 As System.Windows.Forms.DataGridViewCheckBoxColumn Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView @@ -1872,7 +1659,6 @@ Partial Class frmAdministration Friend WithEvents TabPage12 As TabPage Friend WithEvents ANNOTATE_WORK_HISTORY_ENTRYCheckBox As CheckBox Friend WithEvents ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox As CheckBox - Friend WithEvents SQL_VIEWTextBox As TextBox Friend WithEvents WORK_HISTORY_ENTRYTextBox As TextBox Friend WithEvents gridAvailableProfiles As DevExpress.XtraGrid.GridControl Friend WithEvents viewAvailableProfiles As DevExpress.XtraGrid.Views.Grid.GridView @@ -1892,7 +1678,6 @@ Partial Class frmAdministration Friend WithEvents Label20 As Label Friend WithEvents Panel2 As Panel Friend WithEvents Label19 As Label - Friend WithEvents Label21 As Label Friend WithEvents TabControl3 As TabControl Friend WithEvents TabPage7 As TabPage Friend WithEvents TabPage8 As TabPage @@ -1921,23 +1706,8 @@ Partial Class frmAdministration Friend WithEvents OpenFileDialog1 As OpenFileDialog Friend WithEvents gridFinalIndex As DevExpress.XtraGrid.GridControl Friend WithEvents viewFinalIndex As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents BindingNavigator1 As BindingNavigator - Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton - Friend WithEvents BindingNavigatorCountItem1 As ToolStripLabel - Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton - Friend WithEvents BindingNavigatorMoveFirstItem1 As ToolStripButton - Friend WithEvents BindingNavigatorMovePreviousItem1 As ToolStripButton - Friend WithEvents BindingNavigatorSeparator3 As ToolStripSeparator - Friend WithEvents BindingNavigatorPositionItem1 As ToolStripTextBox - Friend WithEvents BindingNavigatorSeparator4 As ToolStripSeparator - Friend WithEvents BindingNavigatorMoveNextItem1 As ToolStripButton - Friend WithEvents BindingNavigatorMoveLastItem1 As ToolStripButton - Friend WithEvents BindingNavigatorSeparator5 As ToolStripSeparator Friend WithEvents PropertyGrid1 As PropertyGrid - Friend WithEvents tsBtnSave As ToolStripButton Friend WithEvents Panel5 As Panel - Friend WithEvents ToolStripButton5 As ToolStripButton - Friend WithEvents tsBtnCancel As ToolStripButton Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILEBindingSource As BindingSource Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILETableAdapter As DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter Friend WithEvents FinalIndexDataSet As FinalIndexDataSet @@ -1961,7 +1731,6 @@ Partial Class frmAdministration Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem @@ -1979,4 +1748,16 @@ Partial Class frmAdministration Friend WithEvents BarButtonItem12 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem13 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem14 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents TabPage3 As TabPage + Friend WithEvents SQL_VIEWTextBox As TextBox + Friend WithEvents GroupBox3 As GroupBox + Friend WithEvents MOVE2FOLDERTextBox As TextBox + Friend WithEvents btnmovetoFolderDialog As Button + Friend WithEvents BarButtonItem15 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem16 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem17 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem18 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem19 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents tsbStaticInfo As DevExpress.XtraBars.BarStaticItem End Class diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index 65bbc03..69d1928 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -126,7 +126,7 @@ - 285, 45 + 288, 9 25, 16 @@ -147,7 +147,7 @@ TabPage1 - 2 + 1 @@ -264,24 +264,6 @@ 0 - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Benutzer: - - - MiddleLeft - Label20 @@ -432,24 +414,6 @@ 0 - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Benutzer: - - - MiddleLeft - Label19 @@ -519,6 +483,69 @@ 0 + + 206, 17 + + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Benutzer: + + + MiddleLeft + + + Label20 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 0 + + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Benutzer: + + + MiddleLeft + + + Label19 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel2 + + + 0 + Fill @@ -582,27 +609,6 @@ 0 - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Gruppen: - - - MiddleLeft - Label22 @@ -705,27 +711,6 @@ 0 - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Gruppen: - - - MiddleLeft - Label23 @@ -795,6 +780,72 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Gruppen: + + + MiddleLeft + + + Label22 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel3 + + + 0 + + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Gruppen: + + + MiddleLeft + + + Label23 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel4 + + + 0 + False @@ -802,7 +853,7 @@ True - 370, 45 + 373, 9 80, 16 @@ -823,7 +874,7 @@ TabPage1 - 8 + 7 False @@ -1030,7 +1081,7 @@ True - 370, 72 + 373, 36 38, 16 @@ -1051,7 +1102,7 @@ TabPage1 - 3 + 2 False @@ -1059,8 +1110,11 @@ True + + Tahoma, 9.75pt + - 6, 3 + 6, 66 142, 16 @@ -1081,37 +1135,7 @@ TabPage12 - 4 - - - False - - - True - - - 6, 48 - - - 129, 16 - - - 6 - - - SQL für Profilansicht: - - - SQL_VIEWLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 2 + 3 False @@ -1158,213 +1182,32 @@ 982, 17 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - vAAADrwBlbxySQAAASpJREFUOE9jGDygcNbz/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 - - 24, 24 + + Tahoma, 9.75pt - - Erste verschieben + + 16, 15 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/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 - + + 67, 16 - - True + + 77 - - 24, 24 + + Objekttyp: - - Vorherige verschieben + + Label2 - - 6, 27 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Position - - - False - - - Segoe UI, 9pt - - - 58, 23 - - - 0 - - - Aktuelle Position - - - 88, 24 - - - von {0} Profilen - - - Die Gesamtanzahl der Elemente. - - - 6, 27 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - True - - - 24, 24 - - - Nächste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/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 - - - 24, 24 - - - Letzte verschieben - - - 6, 27 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - vAAADrwBlbxySQAAAi9JREFUOE+tkt1L01EYx3//QvfdBF10W1NjOBerwa9cQ1k2DCvCXn6RZmm6TBMV - K9Oo+QbZCpdOWq0m4aQiX8AUKRFlKlmauaIlDjXFJoLB1/Oc/fK4ii6iB56bw/l8znlepP8Sz5+FQelr - XUKLdxEP3fNoagzhrmMadbVfYL8VwPXySZSWjKOw4C3yckdw/pwfKi5JBHZ1ArU1K/hbLK+swpTahUOp - T3mquCR5nyxwQWXFN/Xq70FwaH4ZuywvoNEosB70CIH7wRwXlJZ8Va9Hx0/4Y3ABMWYfCi5N4YClWQic - DTNccNH2QUVEbISHJ0LYJnuRkz2G5CSnENTfDnJB1tkRFYvEr3CfP4jNBjcUZQBms0MIaqo/c4FyakBF - /wx39n/CpvhGHD7yComJdUJwo3IKHe1gowSOHX8D69Fe3m1qGNVM36aXI3A3UqwvIct2IbhSNoE2H9gO - AM2uH2zu31F+bZY3lRpGNWdm+Nfh/cmtMBorhOBy4Rg8j4D7zlW2OGGY0rKj0pJuQ9qZogicxOB9HhgM - ZUJgyxtlMFBdFeYvE0TnMToZg+9nMDo5CyX3KvaYWjis2+2CXl8kBLSWjjtY/zYJCD6dfxPvAnMITC/i - QrEdsQYXg5sQm3APuvh8IcjMGGJ1L3F4q9GDLTtkPG7rga+9Dx3d/eh9PYi9Zis0+gbEMXi7th5abU60 - 4OSJHr6etGG0JDRnGhV1mxpGNdOrlATvjMsSgn8PSVoDbGg6a0b5NXsAAAAASUVORK5CYII= - - - - 24, 24 - - - Daten speichern - - - 541, 17 - - - Magenta - - - 24, 24 - - - Hinzufügen - - - 260, 24 - - - Änderungen wurden erfolgreich gespeichert - - - 6, 27 - - - 6, 27 - - - 279, 3 - - - 990, 27 - - - 0 - - - BindingNavigator1 - - - TBPM_PROFILEBindingNavigator - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 1 - - - True - - - Tahoma, 9.75pt - - - 16, 15 - - - 67, 16 - - - 77 - - - Objekttyp: - - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 + + TabPage5 11 @@ -1501,84 +1344,9 @@ 4 - - Segoe UI, 9pt - - - 9, 21 - - - 862, 23 - - - 0 - - - MOVE2FOLDERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 0 - - - Segoe UI, 9.75pt, style=Bold - - - 877, 19 - - - 29, 23 - - - 72 - - - ... - - - btnmovetoFolderDialog - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 1 - - - Segoe UI, 8.25pt, style=Bold - - - 9, 23 - - - 1007, 57 - - - 73 - - - Wählen Sie hier einen Ordner in windream, in welchen die Datei, nach erfolgreicher Indexierung verschoben werden soll: - - - GroupBox3 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 3 - + + 174, 56 + Tahoma, 9.75pt @@ -1667,7 +1435,7 @@ 22 - 456, 69 + 459, 33 511, 23 @@ -1685,10 +1453,10 @@ TabPage1 - 4 + 3 - 326, 42 + 329, 6 38, 23 @@ -1706,10 +1474,10 @@ TabPage1 - 5 + 4 - 456, 42 + 459, 6 511, 23 @@ -1727,7 +1495,7 @@ TabPage1 - 10 + 9 Tahoma, 9.75pt @@ -1778,7 +1546,7 @@ 15 - 973, 41 + 976, 5 65, 24 @@ -1799,7 +1567,7 @@ TabPage1 - 6 + 5 Tahoma, 9.75pt @@ -1918,24 +1686,6 @@ True - - True - - - Tahoma, 9.75pt - - - 16, 104 - - - 45, 16 - - - 89 - - - Label7 - Label7 @@ -1948,24 +1698,6 @@ 0 - - True - - - Tahoma, 9.75pt - - - 15, 161 - - - 130, 16 - - - 88 - - - Use Vektor for Index: - Label4 @@ -1978,24 +1710,6 @@ 1 - - True - - - Tahoma, 9.75pt - - - 16, 191 - - - 92, 16 - - - 87 - - - Index Logging: - Label9 @@ -2008,27 +1722,6 @@ 3 - - Tahoma, 9.75pt - - - Overview and Detail - - - Overview - - - Detail - - - 202, 42 - - - 345, 24 - - - 85 - DISPLAY_MODEComboBox @@ -2041,18 +1734,6 @@ 8 - - Tahoma, 9.75pt - - - 202, 188 - - - 345, 24 - - - 83 - cmbLOGIndex @@ -2065,17 +1746,8 @@ 9 - - 202, 158 - - - 345, 24 - - - 81 - - - PM_VEKTOR_INDEXComboBox + + PM_VEKTOR_INDEXComboBox System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -2096,7 +1768,7 @@ 3, 3, 3, 3 - 970, 306 + 970, 342 0 @@ -2177,7 +1849,7 @@ Neue Werte erlauben - 627, 204 + 624, 293 93 @@ -2201,10 +1873,10 @@ False - 627, 0 + 624, 0 - 323, 204 + 323, 293 91 @@ -2222,10 +1894,10 @@ 1 - 3, 166 + 3, 23 - 950, 204 + 947, 293 94 @@ -2242,268 +1914,6 @@ 0 - - 1045, 173 - - - True - - - 116, 24 - - - Neu hinzufügen - - - 127, 24 - - - von {0} finalen Indexen - - - Die Gesamtanzahl der Elemente. - - - None - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - True - - - 24, 24 - - - 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 - - - 24, 24 - - - Vorherige verschieben - - - 6, 27 - - - Position - - - False - - - Segoe UI, 9pt - - - 50, 23 - - - 0 - - - Aktuelle Position - - - 6, 27 - - - - 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 - - - 24, 24 - - - 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 - - - 24, 24 - - - Letzte verschieben - - - 6, 27 - - - Magenta - - - 89, 24 - - - Abbrechen - - - False - - - - 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 - - - 75, 24 - - - Löschen - - - Magenta - - - 83, 24 - - - Speichern - - - Magenta - - - 99, 24 - - - Aktualisieren - - - 9, 133 - - - 678, 27 - - - 92 - - - BindingNavigator1 - - - BindingNavigator1 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 1 - - - True - - - Segoe UI, 9.75pt, style=Italic - - - 6, 3 - - - 497, 17 - - - 79 - - - Definieren Sie hier Aktionen welche nach erfolgreicher Indexierung durchgeführt werden: - - - Label13 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 2 - - - True - - - Tahoma, 12pt, style=Bold - - - 5, 83 - - - 120, 19 - - - 74 - - - Finale Indexe - - - Label5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 4 - True @@ -2511,7 +1921,7 @@ Segoe UI, 9.75pt, style=Italic - 6, 108 + -4, 3 583, 17 @@ -2532,7 +1942,7 @@ TabPage11 - 5 + 1 Tahoma, 9pt @@ -2544,13 +1954,13 @@ 3, 3, 3, 3 - 956, 271 + 956, 307 0 - Move und finale Indexe + Finale Indexe TabPage11 @@ -2567,8 +1977,62 @@ True + + MOVE2FOLDERTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox3 + + + 0 + + + btnmovetoFolderDialog + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox3 + + + 1 + + + Tahoma, 9.75pt + + + 9, 6 + + + 941, 57 + + + 74 + + + Wählen Sie hier einen Ordner, in welchen die Datei, nach erfolgreicher Indexierung verschoben werden soll: + + + GroupBox3 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage12 + + + 0 + + + Tahoma, 9.75pt + - 291, 336 + 9, 144 260, 24 @@ -2589,10 +2053,13 @@ TabPage12 - 0 + 1 + + + Tahoma, 9.75pt - 9, 336 + 9, 114 292, 24 @@ -2613,40 +2080,13 @@ TabPage12 - 1 - - - Tahoma, 9pt - - - 9, 67 - - - True - - - 1198, 234 - - - 7 - - - SQL_VIEWTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 3 + 2 - 9, 22 + 9, 85 - 1198, 23 + 875, 23 1 @@ -2661,7 +2101,7 @@ TabPage12 - 5 + 4 4, 25 @@ -2670,7 +2110,7 @@ 3, 3, 3, 3 - 956, 274 + 956, 307 1 @@ -2690,14 +2130,77 @@ 1 + + Top, Bottom, Left, Right + + + Consolas, 9pt + + + 6, 9 + + + True + + + Both + + + 944, 292 + + + 9 + + + SQL_VIEWTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 0 + + + 4, 25 + + + 3, 3, 3, 3 + + + 956, 307 + + + 2 + + + SQL für Detailansicht Profil + + + TabPage3 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl2 + + + 2 + Fill + + Tahoma, 9.75pt, style=Bold + 3, 3 - 964, 300 + 964, 336 92 @@ -2721,7 +2224,7 @@ 3, 3, 3, 3 - 970, 306 + 970, 342 1 @@ -2742,10 +2245,10 @@ 1 - 288, 98 + 288, 62 - 978, 335 + 978, 371 79 @@ -2796,13 +2299,13 @@ TabPage1 - 7 + 6 Tahoma, 9.75pt - 973, 68 + 976, 32 238, 24 @@ -2823,7 +2326,7 @@ TabPage1 - 9 + 8 4, 25 @@ -2862,7 +2365,7 @@ Fill - 0, 25 + 0, 0 Profil-Name @@ -2877,7 +2380,7 @@ 58 - 269, 408 + 269, 433 2 @@ -2894,36 +2397,6 @@ 0 - - Top - - - 0, 0 - - - 269, 25 - - - 3 - - - Verfügbare Profile: - - - MiddleLeft - - - Label21 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerProfilzuordnung.Panel1 - - - 1 - SplitContainerProfilzuordnung.Panel1 @@ -2936,21 +2409,6 @@ 0 - - 4, 25 - - - 3, 3, 3, 3 - - - 985, 404 - - - 0 - - - Benutzer - TabPage7 @@ -2963,21 +2421,6 @@ 0 - - 4, 25 - - - 3, 3, 3, 3 - - - 985, 404 - - - 1 - - - Gruppen - TabPage8 @@ -3065,38 +2508,317 @@ TabPage2 - + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 1 + + + Fill + + + 0, 0 + + + 1280, 468 + + + 3 + + + TabControl1 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlMain + + + 0 + + + True + + + Tahoma, 9.75pt + + + 16, 104 + + + 45, 16 + + + 89 + + + Label7 + + + Label7 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 0 + + + True + + + Tahoma, 9.75pt + + + 15, 161 + + + 130, 16 + + + 88 + + + Use Vektor for Index: + + + Label4 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 1 + + + True + + + Tahoma, 9.75pt + + + 16, 191 + + + 92, 16 + + + 87 + + + Index Logging: + + + Label9 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 3 + + + Tahoma, 9.75pt + + + Overview and Detail + + + Overview + + + Detail + + + 202, 42 + + + 345, 24 + + + 85 + + + DISPLAY_MODEComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 8 + + + Tahoma, 9.75pt + + + 202, 188 + + + 345, 24 + + + 83 + + + cmbLOGIndex + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 9 + + + 202, 158 + + + 345, 24 + + + 81 + + + PM_VEKTOR_INDEXComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 10 + + + 677, 212 + + + Segoe UI, 9pt + + + 9, 21 + + + 862, 23 + + + 0 + + + MOVE2FOLDERTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox3 + + + 0 + + + Segoe UI, 9.75pt, style=Bold + + + NoControl + + + 877, 19 + + + 29, 23 + + + 72 + + + ... + + + btnmovetoFolderDialog + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox3 + + + 1 + + + 4, 25 + + + 3, 3, 3, 3 + + + 985, 404 + + + 0 + + + Benutzer + + + TabPage7 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabControl1 + + TabControl3 - - 1 + + 0 - - Fill + + 4, 25 - - 0, 0 + + 3, 3, 3, 3 - - 1280, 468 + + 985, 404 - - 3 + + 1 - - TabControl1 + + Gruppen - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabPage8 - - pnlMain + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 0 + + TabControl3 + + + 1 234, 95 @@ -3110,12 +2832,6 @@ 754, 95 - - 20, 20 - - - False - 0, 614 @@ -3140,6 +2856,12 @@ 1 + + 20, 20 + + + False + 17, 95 @@ -3914,17 +3636,201 @@ aV3TJKNJSVsYzQ361myTOaI2lBk8Q5nfAK6UO7kYFLMOAAAAAElFTkSuQmCC - - 0, 0 + + Aktualisieren - - Profil-Verwaltung + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA1dEVYdFRpdGxlAEFycm93O1JlY3VycmVuY2U7UmVm + cmVzaDtVcGRhdGU7UmVsb2FkO0V4Y2hhbmdlhrRdSAAAALlJREFUOE+lksENgzAMRVkEdQhOSJmnZyZg + pt56ZIwee2cJ93/LRiQ4kIpID4y//RXidCJyizD5D1uQUnJ6MIE3WA3GzFHzujkyGMELSAVqrJn5XRrQ + 3ZsX8AQPgzFz1D72Phhwi948eN40MoAv0GZCTQtqqzDQbe/ZDK6Imgk1LziIQE/5Cn1EzSAvDFbNgAfF + A8sMLOeTmDxfGviIzsbIUfeRAbfdepG0b2+g/2w0XeXM4A5hsh3pfngbEtI9NQFmAAAAAElFTkSuQmCC + - - Profil-Zuordnung + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA1dEVYdFRpdGxlAEFycm93O1JlY3VycmVuY2U7UmVm + cmVzaDtVcGRhdGU7UmVsb2FkO0V4Y2hhbmdlhrRdSAAAAbFJREFUWEfFljFOw0AQRXMAJK6TwtwkJ6Ak + TWhyDk5BlQJuQscRqJDozH/W2poZj2MLm03xJO/4//mOd7PeXdu2NyUt1iQt1iQt1mRUaJrmGntxEq/i + Q3wXuKbGPTSZtyPmjQqZSTyIF/El2hnQoMWT9TrbPBcOieFR8AuzsGvgwWt7nYVilj/As/gRWcAS8NJj + CAeb58KhiIGnz8LfxZNgru8LXFPjXtTT42JrNs+FgwTA/MXX/imO4i56erhXNGit12E9rgFIACwia6Lh + IWoj0vQcisf2GLAe1wAk4HXG1X6MugzpLG/C9hiwHtcAJOC/bA3M6+Rrt0jXMyy4DOtxDdai5rPhYD2u + wVrUfDYcrMc1uAVpsSZukL2uBLeXr8UNkrAIc+w8a3GDEBbpwsF6ppCOXTFuzaeoc4MgtrCpdOFgPVNI + x5Zse7C57aPODYLB0m3FYtEDFG3citneR1o3CIYIDf/6MeLD1h1QoscNjAH4hG71OR4OJjYP3KAYoF9w + Wx5IFj/AsNoLWx7JXB64gQQxvGezQ6nNg1EhMxmY6/89ltcmLdYkLdYkLdaj3f0Cj5M+ApfcyL4AAAAA + SUVORK5CYII= + - - Grundeinstellungen + + Hinzufügen + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAEFkZDtQbHVzO0JhcnM7UmliYm9u + O5UGMy8AAABgSURBVDhP3YxRCoAwDEN3QS/lqbxdtNKUTDJEHAh+vNGl6WsAXmFDsqwbkphtx4bkR4Kc + bceGRAUjzofFp0wVFPEnWrzk1e0CJfMS6I7ME4w4Sp1Ad8SGhII4/kZwD9oOmV+r+RzWkL4AAAAASUVO + RK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAEFkZDtQbHVzO0JhcnM7UmliYm9u + O5UGMy8AAACPSURBVFhH7c5RCoQwDEVRN+imXJW7i82HIOlFHhKiSD4Owp1p+xYzexXGShgrYayEsRJG + xbrtdhV/V2FU9IAe0AP+PSBeniW+46bg6HCG+I6bgqPDGeI7bgqODmeI77gpqJTLFRgVNGB8b13PnzAq + xoXfG/AERkUPoAHji/+9g1HRA7JgrISxEsZKGOvYcgB55Y6E3tOuXgAAAABJRU5ErkJggg== + + + + Löschen + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACV0RVh0VGl0 + bGUAUmVtb3ZlUGl2b3RGaWVsZDtEZWxldGU7UmVtb3ZlO3aMxpEAAAIdSURBVDhPhZJbSFRRGIUPRVMK + FZQGaghqDYWQNTVETTShSDAVQU1FMUGCTIRoF7KHsgt0Y6CLpRUm9iLUSzISBNGDJEfp8lBBJDSFUVIT + UhRS0Ntqf5s9Mk+24YPFv9ba55z5x3NnuiHwfuuGQUC7We5M6SNmjWyO+uNdVwRoZs77n+8FXsfW+9nO + lP6+HLCgmRmvEKbweROvYLBuTffnVJsm0rc00depP36/xq5d0NP6yDCgmeGRIWs6d+hyAa9SlF4Xbs+0 + NupH10n97E3p98A9jV46ZUEzwyNDlo7rejMMcwwld1evuP62OaHxq6363n1Gv9IdFjQzPDJkXYeuN83A + t8w1lPWEajpeJXfq67kmZS+2WNDM8Mi4LB269iD4nqLelaFnL5K7NHa8UZ+O7LWgmeGRcdnJMod1FPbU + LB963pRQNtWijwd368P+7RY0MzwyZF3HHrvnG9XL/KGGuL6dTmr0QFyZfVv0eGPUgmaGR4YsHdf1ApeD + 1f6THZv05dAeZRIxjcTr9LA2ohMVwZuAZoZHhiwdulxQcLZyyYNH9VG921arN7GI+teGdax8MT9YBaCZ + 4ZEhe75y6TBde4Gh+OjCRbf7wiHdXxXS4bIqVlVqmO8oZYZHpq08yI+5wGAv4DXs/6C5pKod0AZWxXcC + Ot/n8twq7TpmGmYbeNo8p3N7BnTOBx5IZ3IThPhXMQR0/p7zfd7I+Z73DxkXTSgd4+4eAAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACV0RVh0VGl0 + bGUAUmVtb3ZlUGl2b3RGaWVsZDtEZWxldGU7UmVtb3ZlO3aMxpEAAAQdSURBVFhHxZZvTJVlGMa1Te2L + a6svQXMOQlrmAEVRSTgbkn+mNNHAaVD+O2viIiiHiZmV9eJJm6fXofmntvyQSzZlq2mtjc2Za7NhWBYp + mYxEkGBYWevb3fN7es7Bw3nOe97zRa/t2u7nvu/rum99n/O+jBGRe0pr8m5yJLBjrOJ9hsR+kVTnZwHE + 4zrLAjshscklgy9dsgUQjP9habEzeGivQGJyppYIvnVeC2iTjiXFzsD+d+XfC22axOSomZ7RSEmXaAFt + 0r64yLnZHJJ/zn0mf508oElMjho9pjeClHW2Bbgs484vnOf07WuSv8+2yh/H35fhD9/UJCZHjR7VGzHT + w1PQcSfG2hbAaMLZ0sLQ9dBWufVpWIYObpehA43/U8W3Ptkjt8+0SK+7U849Vdik+u+HxOSo0ROnU154 + 4s0MZiVcQPHBU4GC8K8NQRlsbpRBd8sI1Xn4aEhutx2TnvAb0lYyJwSJyVGzafDCE28zw7qAfgSKExXT + WufNdLvq18hAuEEG3ntlhOo89NHb8udXH8u1Pds0icnZevHAC0/jnfARAP08FR9QTG8pzHc7a6vk5u56 + 6d9VGyXn3w+9LsMnXU1iWw9aPPAynp6XMIKYJY7NnuFeqlklfe9skhtvbYyScz9DFW01NGjxMF7R4cBr + ARCzxNFZeW5HsFJ6d7wg118LepIeetGgNR4xw0GyBUDMEkdm5O5rX7tcftu6Tnoa1lhJjR560Rht3HDg + ZwGAkJ/aQwfzcsLfBiuk59W10l232kpq9NCLxmjjhoOUFjiclxtqf+k5/by765+VqxsrrKRGD71o0BqP + OPhZAOH4D3Jyms7XrFa3uk66X66SX4LLpWv9Miup0UMvGrR4GK8YJFtAD2+eluN8s6FS+tXNvrapUq48 + XyaXq5d4kh560aDFAy/jGYXXAnr43senOV9Xl0tf4zq5umGZ/LxqkXSuXBAl5y9LizRtNTRo8cALT+Ot + kWgBPXx39hPOmZVlcqO+Srqql8pPK0rlx/KSKDmfnl8k2zOz90NiWw9aPPDCE28zw7qAfhU7WVOdtvJF + 0ltTIVfUv+bS08Xqj4qiKDl/Hpgr2zKy+allQGJytl488MITb2Ywy7YAm03YkfFY6IsFAbn8zHz5fnGh + XFw4N0rOrU8WyJbJUyIvGX5qMJ0cNZsGLzzxZoai99ewYVJW+MScmXKxtEA6SmZpEp+YnS+bJ2Xd+YbT + n2MTp1OjJ06nvPBUPf6/hnWPPOq25E+X7wL5msTkVG30G07fG5NL99Cl/jWsTct0j0/PFUhMztRibrRC + yrpEC4A7zdJefDgzDIlNbvTwCFLSeS0AImb8l/HcIHGi4RH41iVbACDgeXFpILHX8Ah86fwsALiYiCGx + XyTVxS1wr2hN3j3KmP8AEPJiSeQUIA4AAAAASUVORK5CYII= + + + + Speichern + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAFhJREFUOE9j + +P//P0UYTEzOWr8XiP+DMJQPZqNjNLm9ID7MAFyKUMTQ5UB8+hgAw9jUYjUAH0ZXiyFICqa+ASA2MXjU + ADwGkIqRDdiOLkkE3g43gHz8nwEAvq7TCya3G6wAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAQ1JREFUWEft + l9EJwzAMRLNZoF+Zpet0kM7RPQIZw9WJ2JyF5CbQOATy8cCVjqcjfx1SSqfiDnviDntS/Xg936PwERKB + OcO7JquTZ3CPfNMWWCic4eNW2GR12vnCN20BGwZ8PMoA3bMncmKeKQ/ghQUVE14G6J49kRPzTHkALyyo + mPAyQPfsiZyYZ8oDeGFBxYSXAbpnT+TEPFMewAsLKia8DNA9eyIn5pnyAF5YUDHhZVwiZ74HLlmgCfsi + J+9/ho+Ab94FWgUeAma7YB954dpdoBJvhX2M7O4Cd4G7wPUKTEIl3wL7yAvX7gKHwTdtgdmGD2Dmm7YA + PpX33+BfwD3xzarAGbjDnrjDfqThC1oLalOREus2AAAAAElFTkSuQmCC + + + + Abbrechen + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACN0RVh0VGl0 + bGUAQ2FuY2VsO1N0b3A7RXhpdDtCYXJzO1JpYmJvbjtMlpayAAADmklEQVQ4TyWTf1CTdRzHvwim2KS6 + 0k5iXWAbIg6GbG2gHmPGhMEs+CMsT70yE1BGx3F5kCReFE7uNAMu7og6MBFk/LCEOZ15WUkXw8aAcgsE + +SHC9mzABtuR3rvv8/C9ez33vs/n834/3+9zz5d4TK3Ec7uDeO9cJXQF/pZ7RGQrKqh6cKLQMl5c9ISF + 1X8XamsMHxwU05kgSoDHpCcLxhZCA/SsMYCy2qrNKx799BP/7Ldfw93eAM/tTngp7vZGzNRXYezkCb/5 + 2NFSOruWsooLoCtAK5fxho7nmcYryuC51Y757ouY66iHq6UGruYauNvqMPdTI+jLMHH2cwwcz/1FEyl8 + gQ1hA4LMHx7+ZrS8lBovwVKUj7pwEYyZmXA2noOz4RxuZmVxNUvhMS5o7Msy/HH4/cvUu5Z0ZmVKrbk5 + Txj9d7hXkIMG1TswdZvRnFOCbnUGDOkaTpu6ermeOf8juK7UwZqf97Q+NTWJmDI0tSNfnMTj2grU8aPw + wD4Fh2sJ9lEGLdrTHPepnnZ6MWyb4mamq8sxcroEhrR0Pbm5Rz1sP/ouRrT7cUPzFv7UnYd36T84532w + PWRgG2MwO+fDwuIy1zNq9mI4Lxu2I9m4oUp7SK4rVMv/ZKdg6O0dsB+iW969Gz26C5hx+zBDd/LYTWF8 + +L3iKxiUStw/kIbBjAQMZiXBoEhZJlflScuW1DcwoJZhaG8irkm2w3jqLN3yEh45FzHl8FKWcL1Uh2vx + 2zGQLod1jxT9KglYL2kSy8d6lSuFrthtaPu4DAP/OjA56wWz4AMz78f4jBf99lnoC06hKyYaljfj0KsQ + oylWNkVqheLvTTtksCjFuBQuhHPaiUnHIlwLfvRfqOZYCfHA8cjJzfyVFIOfEyWoFsR2kqLQiF0Xo+Ke + mnduw12lHLcOHIKfYXBPVwmjLJ4i4TRbY3t3k2XoS4zGD1vEyH/5NTX7IwVXviK8fCVyKyzJsehJlqJV + GAmTLI5+Fzl3ZlaztR6FFBZFDPSRUTizScBenvVswKqta9ZtqNy4ua8pQgDzLhE1JaA/RYK+hCjKFnrm + eAyqE9C3U4TmzQKc2RhhFa15lk+9gWSi4D02JDD+Gd6msuf4LVUbwtEuiMAd8evoldJAyq9Ud9BaNe19 + 9jz/x+jVwa9ST9C4dh8h7IMTKxeDd3DdS6oSXmhreUjYhC6ED11IGMrXh00W80Lb9ge/qKEzIZTAFd8+ + 8j91kUbX3K/WKgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACN0RVh0VGl0 + bGUAQ2FuY2VsO1N0b3A7RXhpdDtCYXJzO1JpYmJvbjtMlpayAAALFUlEQVRYR5WXB1RVxxaGx/dSfEGM + xq50BUUEC1goAtJBwYZiiRpFDREJNkBApVgQE7FjJMYSg6KiXlBRNNJEqQIXROBSlM6lKqLI1bf+7DkX + iHkr67319lrfmrlzZvb/zz5zDgdWsz+Y2C0n9G+g8Wpqq0M4wYyiz3/jRYA/ex7gxyp2+rLnRIW/Nyv3 + 9WLl271Ymc9WVuq9hUm2bWaSrZ40naJmXxD7d+vzbl6wD38DRY/AP4h/Ep8Qn/4HfIzDr/N5fd7XP2Pv + 6wvZ+zrOU/a+poDJasRMVp3Hijw9aApF1d4A9qGlnKj4K2SIokdYEM302jyleIdvcOku/0dlu/xyKgL8 + PpTv9P0g8ffOlfh6P8732rwnYcN6A5r7GZ9PyI0I4vm94rKqXFa4cQNdoqgM3sk+NJcRZOIjKHp2/Kl4 + +7bFJCip/DEEzbFX0CFOxdtnmaB5RBneFKbjdU4yGq9HomJvIJ5t2yxJc3dbTms/JwQjMm6gSi4uq3zC + 8r9zo2GKil1+7H2jpJtSoaUQdp3g7ja6xH97ek34EXTkpeJ9fRE6i9LQkX4Xr1Nv4uXdi3h55ze0J91A + e0oM3oqTIKvOR3t2IirC9kPs4Z55dsH8cZSLV0SoRteLbNb1PIvlrVtLPynK/Lez9w3FvVBw8U/SPT2s + JTu2t7beE6HrRR5eP75NYpFy4i6g7TZx6zzaYs+iVXQGrddPoyX6FFqunsTL+IvoLE6DNCYK+R7urTFL + lzhQTl4NuYnSNJa9ejV1KSQ+2+jePGWy2kL+UxBP3fCdjWSXf1d7ViLeZP8uF7opp/XmObTFnCVI9MYv + JPwzWq9FkPBPaL58As0Xj6Hpt8NoPB+G9oRotD2MQ66Hu+y688JeE53FqSxzxUqux1jRZk/WVZnHu0LZ + Rd+sGFfos625PfMBXlGCFi5C8FaABFu4YDQXpR1fOUnC4Wi+dBxNkUfQeOEQGs/9iMYzByD9OUSoSmtS + LDJcXVuOWVvrkoZwOx4vXcY1GROvWc26yrN5l5fnszyPjY+lsVFUxig08+RXaGe9cLFuwSjaLRcVdtwj + fBCNZ3+A9HQoGiL2ouHkbtQdDyJjx1AdeRrJLkvTSaMfwQ8m3zBjWS5LeCOUPnntmuUlwbvQnixCY+RR + YWEPNREHEOc8F78aTMX9rxej4exBNP1KolTqehKMd5mP0xP0IHKwRmXYDtSfCEbd0QDUHt6B2oO+aKFz + kvX9Rlyyc+A3vy/BN8xYuvMi3vAfn2evXy9puh0F6YXDkJKA9FyYQE34PojsbXDNaxfuxDzE1fUeuDXX + AXWnQlD30z7EzLHF5bXuiBOl4IqnL6JMjFAR4oXaMD9U/+CD6tBtqD7gjdrIU4h3ml9GWv2J3ioIu79q + a28n3uJJTs9S4n2ojwgRaPh5P+4sdILINwipWWUoe96IotJ6XHPzxE1He9ycY0fiG5GUVoyisnqUPG+C + iIyKrC1QFeqFqpAtqNq9CS8CNwq5UletwrGphk6k2fNUCAY+i7ObfejZzm2o3O2JmqOBqKUScuqIy8ZG + qK9qQEV1C9rau9D2+h1KyhsEE5fXeSDxcTGKyVhz+zs0v+pEq7QFZ3QnomqPJ14EfY/nAe6o8P8W5d6u + yN26ERemmxwnTQWCv2EFF33jbR0eSXZ6osTVCcXfzkflnk2oObQDNYd3InHVMjzasROd72Rk4B1aXpEQ + tcXlUqTnVKC4ohFNLzsF+JwkLx/EzXeUC+9wQ+nWVXi2xglFaxxR6LMBUdNn8sPIb0OvgS/ireyaJd7r + ULjSDoVf26JwhR1K3JxR7u+G2vA9uLdoAdICAwUBQYx2ytvGj+jslOGhnx9i7a3xItQHpZtWoNh1npDr + 6XIbwhbFW1xx2cCkhTQHEvwcCC4UblvYyCQey1HgYo2CpdZ4uowvILiZVQ4o93ND3GwbJPv6Qdr2BlIS + lLa97aW+uQOJPr6IsTRD2Xa+EQdBkOfh+fJdLCFebIlidxdcmmwoI82vCP5XVDDQL3ampaxw9TyInWfR + RAvk02S+qGCJlTwBJbptaYob33rgqUQKaQsZaHmLBqKOqG3qwK0NmxBjaggxzS9YaoX8JfIcPF+eszny + Fpqh4Js5uKA7nRsY9BcDN4zMmnOW2CNvAU1cYEaTzckMsYgMLbLALXNDXKfH7/eUIhSUSlHXTKICHYJ4 + bdNbiIvrcdV1A64b6iOXC3IoV+4CU+TOm0mYIsvZGme19fkt6DXAz4DCJQOTx2lzrZBDE584mdBkDi2a + PxN3LY1xw+173E95hnzavVywA2/edqGDqGnsQHU3ec9qcW3tBsQYG1AuUzyZa4InjsbIdjQS8ibZmSFc + c2ImafaeAW7gX6f1ph29b2WObCdTZDvMQNYcQ2TPMaKFJG5qjDJJNcQl9YJYDYl3vOlCRlAA0gMDhH6V + tEOgsuE1aqukuKg/RVifNXsGMilfpt10ymmEWKPpCFXR/ok0//IUfL5XS9cpepoRMhwIm6nItJmGDLtp + yKKF8faWeHryBF51dFHp3wiCWcFBuGNjjjhrM8HIaxrjVeFz8o4ewc1ZJsL6TMqVYW2AdCt9pNlOx3nt + idg6TN2FNPl7gGvL34TEl2e09cvvG08RJqdb8nYKMqwMkLtsNuJIjJt429CArKBA3LWdhYKVjihY5Yg7 + 1qbICNyFNw31yDt2FCJTI+QstUcarU+zmIy0WZOQRvnipk7AYSVt/q03lOBvwj7s3Dh9auXvgj1q49dF + 6kxGqvkkPDKbiMfmBF9MhriJ+w6WiJ01Ew/mWCFvmYNgNIMQL7PHPXsLRBsbIs6K7jsd5jRLfSHHI1M9 + PJqphxQTPUSoa2PrYFV30uopfx/2i+ZkaoUq8BM54ISGbtYNPR2kGE9AqrEuUmlx6kxdPDKfjNzF9Diu + nIscZyukmZFJUy5AJqmfs5Ae1xWOyF1kTcKT8NBEvv6hkQ6SZ4xHlJYmQoeO4R8ef+6eR4SGHkuw4B+y + 8sO4ZrDSjHA1ndbYiVpImqotLE6ZoYOHhtQakjGj8ULSh0YTPoJf52N03VCb5vM12kiaPg6JBlq4Pk4D + YUNHty3oN8SUNPj3gHz3PMJVddj9GRMEKPhZ6Ld5iOrCcGVt2TXt0fh9iiYSp45FMpE4bRySiSQipbv9 + k7ECiZypWkgg7k3SwGVNVYQN1pC5Kg5fSrkHELzSfX4YqEYNxfFR2uzuZE0WR1D03Ir+7l8pLzo8XOtl + pIYabuuo4f5kDTyYMgYP9DUFEnoZgwQymSBcI6h/T08DN8er4LyKCkK/Un21WmEo//7ir17+OdZHNEGd + hfZXpS7FkRFjWSwNxOqo85/cQI8JxXn9Bk/bP0gjN3yEOqLUlRE7Vgm3KPE9XTVCHQ8mUoWIePodP0EN + cXRNpDUKkaqjcHSwCoL6K4tt+w4wolx854I455qWEtunqEJdirAhY5iIBq5rjWIizVF8qMcEvx38WR3i + 0X+k+76BapWHBqsiYoQSflMZSSIjET16OKI1hiNSZQQuKI/EqeGjcHCgMvYoKle5KQzj/3sNJxQJoeyc + K+oj2BX14WyvgjL9pPhxkAaLVh/Grml0Q32KHhP8sPATyx+bYcu+GOLorTjyRKCisjhYUaUkpL8KQhRp + p/2USgIUlMRbvxgR7tJ30FyaO4Lgu+bffnwjQr7LKkNYD3sVlGiI4sBAdXZggBoL5XypSi3B2/5CiT42 + wkvIK8ITDyH47kZ2w/v88eLvd37KueleYS72d/w/0WOEP6o8MS8pN8SFOLzPx/g1Pqdn/v8Ixv4AVZya + X9ttAMYAAAAASUVORK5CYII= + + + + 0, 0 Menü Profil-Verwaltung @@ -3962,6 +3868,15 @@ 3 + + Profil-Verwaltung + + + Finale Indexe + + + Grundeinstellungen + RibbonPage2 @@ -3969,7 +3884,7 @@ True - 66 + 116 7, 16 @@ -4243,90 +4158,6 @@ DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - BindingNavigatorMoveFirstItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMovePreviousItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorPositionItem - - - System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorCountItem - - - System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator1 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveNextItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveLastItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator2 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - VWPM_PROFILE_USERBindingNavigatorSaveItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tstrpbtn_add - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tstrlblSave - - - System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripSeparator1 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripSeparator2 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - TBPM_TYPEBindingSource @@ -4429,90 +4260,6 @@ DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - BindingNavigatorAddNewItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorCountItem1 - - - System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveFirstItem1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMovePreviousItem1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator3 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorPositionItem1 - - - System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator4 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveNextItem1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveLastItem1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator5 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tsBtnCancel - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorDeleteItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tsBtnSave - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton5 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - GridView1 @@ -4723,6 +4470,42 @@ DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarButtonItem15 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem16 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem17 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem18 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem19 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + tsbStaticInfo + + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage1 diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index cfe99fb..cc60b05 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -238,7 +238,7 @@ Public Class frmAdministration End Sub Private Sub TBPM_PROFILEBindingSource_PositionChanged(sender As System.Object, e As System.EventArgs) Handles TBPM_PROFILEBindingSource.PositionChanged - tstrlblSave.Visible = False + tsbStaticInfo.Caption = "" Indexe_eintragen() If tabctrl_Profilkonfig.SelectedIndex = 1 And TBPM_PROFILEBindingSource.Position <> -1 Then Refresh_Final_indexe() @@ -249,7 +249,7 @@ Public Class frmAdministration - Private Sub btnmovetoFolderDialog_Click(sender As System.Object, e As System.EventArgs) Handles btnmovetoFolderDialog.Click + Private Sub btnmovetoFolderDialog_Click(sender As System.Object, e As System.EventArgs) ' wenn im Formular der OK-Button geklickt wurde If Me.FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then ' den Speicherort der windream-Suche in die TextBox eintragen @@ -393,6 +393,7 @@ Public Class frmAdministration Private Sub frmProfileDesigner_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown TabControl1.SelectedIndex = 0 formloaded = True + RibbonPageGroup2.Enabled = False End Sub @@ -410,21 +411,23 @@ Public Class frmAdministration End Sub Private Sub TabControl2_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles tabctrl_Profilkonfig.SelectedIndexChanged - If tabctrl_Profilkonfig.SelectedIndex = 1 Then - CURRENT_OBJECTTYPE = cmbObjekttypen.Text - Refresh_Final_indexe() - CancelFinalIndexInsert() - End If + Select Case tabctrl_Profilkonfig.SelectedIndex + Case 0 + RibbonPageGroup2.Enabled = False + Case 1 + CURRENT_OBJECTTYPE = cmbObjekttypen.Text + Refresh_Final_indexe() + CancelFinalIndexInsert() + End Select + End Sub Private Sub TabControl1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles TabControl1.SelectedIndexChanged Select Case TabControl1.SelectedIndex Case 0 RibbonPageGroup1.Enabled = True - RibbonPageGroup2.Enabled = False Case 1 - RibbonPageGroup2.Enabled = True RibbonPageGroup1.Enabled = False If PROFILGUIDTextBox.Text = String.Empty Then @@ -612,8 +615,9 @@ Public Class frmAdministration Private Sub CancelFinalIndexInsert() INSERT_ACTIVE = False - tsBtnCancel.Visible = False - BindingNavigatorAddNewItem.Visible = True + BarButtonItem19.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + + BarButtonItem16.Visibility = DevExpress.XtraBars.BarItemVisibility.Always TBPM_PROFILE_FINAL_INDEXINGBindingSource.CancelEdit() @@ -816,15 +820,17 @@ Public Class frmAdministration ' End Try 'End Sub - Private Sub tsBtnCancel_Click(sender As Object, e As EventArgs) Handles tsBtnCancel.Click - CancelFinalIndexInsert() - End Sub - Private Sub frmProfileDesigner_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing CancelFinalIndexInsert() End Sub Private Sub TabControl2_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles TabControl2.SelectedIndexChanged + Select Case TabControl2.SelectedIndex + Case 0 + RibbonPageGroup2.Enabled = True + Case Else + RibbonPageGroup2.Enabled = False + End Select CancelFinalIndexInsert() End Sub @@ -869,6 +875,8 @@ Public Class frmAdministration End If If IDB_ACTIVE Then obj.Indicies = MyIndicies.Except(IDBData.IDBSystemIndices).ToList + Else + obj.Indicies = MyIndicies End If @@ -893,87 +901,6 @@ Public Class frmAdministration End Try End Sub - Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click - INSERT_ACTIVE = True - - tsBtnCancel.Visible = True - BindingNavigatorAddNewItem.Visible = False - End Sub - - Private Sub ToolStripButton4_Click_1(sender As Object, e As EventArgs) Handles tsBtnSave.Click - Try - Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject - - If Not IsNothing(obj) Then - - Dim value - - If obj.SQLCommand.Value <> String.Empty Then - value = "SQL-Command" - Else - value = FINALINDICES.GetValue(obj, obj.IndexName, MyIndicies, MyIndicies_Types, obj.VectorIndex) - End If - value = NotNull(value, String.Empty) - - Dim guid = obj.GUID - Dim profileId As Integer = PROFILGUIDTextBox.Text - Dim connectionId As Integer = obj.ConnectionId - Dim sqlCommand As String = NotNull(obj.SQLCommand.Value, String.Empty).Replace("'", "''") - Dim indexName As String = NotNull(obj.IndexName, String.Empty) - Dim isVectorIndex As Boolean = obj.VectorIndex - Dim addedWho As String = USER_USERNAME - Dim description As String = obj.Description - Dim active As Integer = IIf(obj.Active, 1, 0) - Dim preventDuplicates As Integer = IIf(obj.PreventDuplicates, 1, 0) - Dim AllowAddNewValues As Integer = IIf(obj.AllowAddNewValues, 1, 0) - Dim IF_VEKTOR_BEHAVIOUR As String = NotNull(obj.VectorBehaviour, String.Empty) - - If indexName = String.Empty Then - MsgBox("Das Feld IndexName muss ausgefüllt sein!", MsgBoxStyle.Exclamation) - Exit Sub - End If - - If sqlCommand = String.Empty And value = String.Empty Then - MsgBox("Entweder SQLCommand oder StaticValue müssen ausgefüllt sein!", MsgBoxStyle.Exclamation) - Exit Sub - End If - - ' Add the vector prefix to the value if index is a vector index - ' and value is NOT an SQL-Command - If obj.VectorIndex And value <> "SQL-Command" Then - value = $"{FINALINDICES.PREFIX_VECTOR}{value}" - End If - - If INSERT_ACTIVE = True Then - Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES, ADDED_WHO,IF_VEKTOR_BEHAVIOUR) - VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}')" - - If ClassDatabase.Execute_non_Query(sql, True) Then - INSERT_ACTIVE = False - End If - Else - Dim sql As String = $"UPDATE TBPM_PROFILE_FINAL_INDEXING - SET CONNECTION_ID = {connectionId}, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}', - VALUE = '{value}', ACTIVE = {active}, ALLOW_NEW_VALUES = {AllowAddNewValues}, PREVENT_DUPLICATES = {preventDuplicates},IF_VEKTOR_BEHAVIOUR = '{IF_VEKTOR_BEHAVIOUR}' - WHERE GUID = {guid}" - - If ClassDatabase.Execute_non_Query(sql, True) Then - - End If - End If - - Refresh_Final_indexe() - End If - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Error while Saving Final Index: " & ex.Message, MsgBoxStyle.Critical) - LOGGER.Info("Error while Saving Final Index: " & ex.Message) - Finally - tsBtnCancel.Visible = False - BindingNavigatorAddNewItem.Visible = True - INSERT_ACTIVE = False - End Try - End Sub Private Sub PropertyGrid1_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles PropertyGrid1.PropertyValueChanged Dim propertyGrid As PropertyGrid = s @@ -996,25 +923,8 @@ Public Class frmAdministration End If End Sub - Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click - Dim selectedRowHandle = viewFinalIndex.GetSelectedRows().First() - Dim row As DataRow = viewFinalIndex.GetDataRow(selectedRowHandle) - - If Not IsNothing(row) Then - If MsgBox("Wollen Sie den Index wirklich löschen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question) = MsgBoxResult.Yes Then - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.DeleteFinalIndex(row.Item("GUID")) - Refresh_Final_indexe() - MsgBox("Index erfolgreich gelöscht!", MsgBoxStyle.Information, "Hinweis:") - End If - End If - End Sub - - Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click - Refresh_Final_indexe() - End Sub - - Private Sub tsBtnCancel_Click_1(sender As Object, e As EventArgs) Handles tsBtnCancel.Click + Private Sub tsBtnCancel_Click_1(sender As Object, e As EventArgs) CancelFinalIndexInsert() End Sub @@ -1125,9 +1035,10 @@ Public Class frmAdministration Me.TBPM_PROFILEBindingSource.EndEdit() If DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges Is Nothing = False Then Me.TBPM_PROFILETableAdapter.Update(DD_DMSLiteDataSet.TBPM_PROFILE) - tstrlblSave.Visible = True + tsbStaticInfo.Caption = $"ProfileData saved - {Now.ToLongTimeString}" + Else - tstrlblSave.Visible = False + tsbStaticInfo.Caption = "" End If Catch ex As Exception LOGGER.Error(ex) @@ -1180,4 +1091,113 @@ Public Class frmAdministration LOGGER.Error(ex) End Try End Sub + + Private Sub BarButtonItem15_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem15.ItemClick + Refresh_Final_indexe() + End Sub + + Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick + INSERT_ACTIVE = True + BarButtonItem19.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + BarButtonItem16.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + TBPM_PROFILE_FINAL_INDEXINGBindingSource.AddNew() + End Sub + + Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick + Dim selectedRowHandle = viewFinalIndex.GetSelectedRows().First() + Dim row As DataRow = viewFinalIndex.GetDataRow(selectedRowHandle) + + If Not IsNothing(row) Then + If MsgBox("Wollen Sie den Index wirklich löschen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question) = MsgBoxResult.Yes Then + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.DeleteFinalIndex(row.Item("GUID")) + Refresh_Final_indexe() + + MsgBox("Index erfolgreich gelöscht!", MsgBoxStyle.Information, "Hinweis:") + End If + End If + End Sub + + Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick + Try + Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject + + If Not IsNothing(obj) Then + + Dim value + + If obj.SQLCommand.Value <> String.Empty Then + value = "SQL-Command" + Else + value = FINALINDICES.GetValue(obj, obj.IndexName, MyIndicies, MyIndicies_Types, obj.VectorIndex) + End If + value = NotNull(value, String.Empty) + + Dim guid = obj.GUID + Dim profileId As Integer = PROFILGUIDTextBox.Text + Dim connectionId As Integer = obj.ConnectionId + Dim sqlCommand As String = NotNull(obj.SQLCommand.Value, String.Empty).Replace("'", "''") + Dim indexName As String = NotNull(obj.IndexName, String.Empty) + Dim isVectorIndex As Boolean = obj.VectorIndex + Dim addedWho As String = USER_USERNAME + Dim description As String = obj.Description + Dim active As Integer = IIf(obj.Active, 1, 0) + Dim preventDuplicates As Integer = IIf(obj.PreventDuplicates, 1, 0) + Dim AllowAddNewValues As Integer = IIf(obj.AllowAddNewValues, 1, 0) + Dim IF_VEKTOR_BEHAVIOUR As String = NotNull(obj.VectorBehaviour, String.Empty) + + If indexName = String.Empty Then + MsgBox("We need an index!", MsgBoxStyle.Exclamation) + Exit Sub + End If + + If sqlCommand = String.Empty And value = String.Empty Then + MsgBox("SQLCommand or StaticValue need to be filled!", MsgBoxStyle.Exclamation) + Exit Sub + End If + + ' Add the vector prefix to the value if index is a vector index + ' and value is NOT an SQL-Command + If obj.VectorIndex And value <> "SQL-Command" Then + value = $"{FINALINDICES.PREFIX_VECTOR}{value}" + End If + + If INSERT_ACTIVE = True Then + Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES, ADDED_WHO,IF_VEKTOR_BEHAVIOUR) + VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}')" + + If ClassDatabase.Execute_non_Query(sql, True) Then + tsbStaticInfo.Caption = $"Final index added - {Now.ToLongTimeString}" + INSERT_ACTIVE = False + End If + Else + Dim sql As String = $"UPDATE TBPM_PROFILE_FINAL_INDEXING + SET CONNECTION_ID = {connectionId}, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}', + VALUE = '{value}', ACTIVE = {active}, ALLOW_NEW_VALUES = {AllowAddNewValues}, PREVENT_DUPLICATES = {preventDuplicates},IF_VEKTOR_BEHAVIOUR = '{IF_VEKTOR_BEHAVIOUR}' + WHERE GUID = {guid}" + + If ClassDatabase.Execute_non_Query(sql, True) Then + tsbStaticInfo.Caption = $"Final index saved - {Now.ToLongTimeString}" + End If + End If + + Refresh_Final_indexe() + End If + Catch ex As Exception + LOGGER.Error(ex) + MsgBox("Error while Saving Final Index: " & ex.Message, MsgBoxStyle.Critical) + LOGGER.Info("Error while Saving Final Index: " & ex.Message) + Finally + BarButtonItem19.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + BarButtonItem16.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + INSERT_ACTIVE = False + End Try + End Sub + + Private Sub BarButtonItem19_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem19.ItemClick + CancelFinalIndexInsert() + End Sub + + Private Sub gridFinalIndex_MouseHover(sender As Object, e As EventArgs) Handles gridFinalIndex.MouseHover + RibbonPageGroup2.Enabled = True + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmConnection.Designer.vb b/app/DD_PM_WINDREAM/frmConnection.Designer.vb index 76cb0d0..a086c1c 100644 --- a/app/DD_PM_WINDREAM/frmConnection.Designer.vb +++ b/app/DD_PM_WINDREAM/frmConnection.Designer.vb @@ -32,6 +32,8 @@ Partial Class frmConnection Me.chkOR_ohne_TNS = New System.Windows.Forms.CheckBox() Me.Chckwin_aut = New System.Windows.Forms.CheckBox() Me.txtBezeichnung = New System.Windows.Forms.TextBox() + Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.Label1 = New System.Windows.Forms.Label() Me.btnCheck_Con = New System.Windows.Forms.Button() Me.lblDatasource2 = New System.Windows.Forms.Label() @@ -59,14 +61,6 @@ Partial Class frmConnection Me.TBDD_CONNECTIONBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() Me.TBDD_CONNECTIONDataGridView = New System.Windows.Forms.DataGridView() - Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox() - Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() - Me.SERVERTextBox = New System.Windows.Forms.TextBox() - Me.GUIDTextBox = New System.Windows.Forms.TextBox() - Me.DATENBANKComboBox = New System.Windows.Forms.ComboBox() - Me.BEMERKUNGTextBox = New System.Windows.Forms.TextBox() - Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() @@ -75,18 +69,26 @@ Partial Class frmConnection Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox() + Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() + Me.SERVERTextBox = New System.Windows.Forms.TextBox() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.DATENBANKComboBox = New System.Windows.Forms.ComboBox() + Me.BEMERKUNGTextBox = New System.Windows.Forms.TextBox() Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBDD_CONNECTIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() Me.SYS_CONNECTIONCheckBox = New System.Windows.Forms.CheckBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() GEANDERTWERLabel = New System.Windows.Forms.Label() GEAENDERTWANNLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label() BEMERKUNGLabel = New System.Windows.Forms.Label() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() Me.TBDD_CONNECTIONBindingNavigator.SuspendLayout() CType(Me.TBDD_CONNECTIONDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() Me.SuspendLayout() ' 'GEANDERTWERLabel @@ -110,7 +112,7 @@ Partial Class frmConnection 'GUIDLabel ' GUIDLabel.AutoSize = True - GUIDLabel.Location = New System.Drawing.Point(529, 36) + GUIDLabel.Location = New System.Drawing.Point(523, 19) GUIDLabel.Name = "GUIDLabel" GUIDLabel.Size = New System.Drawing.Size(25, 16) GUIDLabel.TabIndex = 64 @@ -119,7 +121,7 @@ Partial Class frmConnection 'BEMERKUNGLabel ' BEMERKUNGLabel.AutoSize = True - BEMERKUNGLabel.Location = New System.Drawing.Point(532, 83) + BEMERKUNGLabel.Location = New System.Drawing.Point(526, 66) BEMERKUNGLabel.Name = "BEMERKUNGLabel" BEMERKUNGLabel.Size = New System.Drawing.Size(82, 16) BEMERKUNGLabel.TabIndex = 66 @@ -129,7 +131,7 @@ Partial Class frmConnection ' Me.chkOR_ohne_TNS.AutoSize = True Me.chkOR_ohne_TNS.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.chkOR_ohne_TNS.Location = New System.Drawing.Point(15, 191) + Me.chkOR_ohne_TNS.Location = New System.Drawing.Point(9, 174) Me.chkOR_ohne_TNS.Name = "chkOR_ohne_TNS" Me.chkOR_ohne_TNS.Size = New System.Drawing.Size(139, 20) Me.chkOR_ohne_TNS.TabIndex = 45 @@ -141,7 +143,7 @@ Partial Class frmConnection ' Me.Chckwin_aut.AutoSize = True Me.Chckwin_aut.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Chckwin_aut.Location = New System.Drawing.Point(12, 191) + Me.Chckwin_aut.Location = New System.Drawing.Point(6, 174) Me.Chckwin_aut.Name = "Chckwin_aut" Me.Chckwin_aut.Size = New System.Drawing.Size(180, 20) Me.Chckwin_aut.TabIndex = 8 @@ -153,16 +155,26 @@ Partial Class frmConnection ' Me.txtBezeichnung.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEZEICHNUNG", True)) Me.txtBezeichnung.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtBezeichnung.Location = New System.Drawing.Point(232, 53) + Me.txtBezeichnung.Location = New System.Drawing.Point(226, 36) Me.txtBezeichnung.Name = "txtBezeichnung" Me.txtBezeichnung.Size = New System.Drawing.Size(294, 23) Me.txtBezeichnung.TabIndex = 1 ' + 'TBDD_CONNECTIONBindingSource + ' + Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" + Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' + 'DD_DMSLiteDataSet + ' + Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" + Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.Location = New System.Drawing.Point(229, 36) + Me.Label1.Location = New System.Drawing.Point(223, 19) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(154, 17) Me.Label1.TabIndex = 40 @@ -173,7 +185,7 @@ Partial Class frmConnection Me.btnCheck_Con.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnCheck_Con.Image = Global.DD_ProcessManager.My.Resources.Resources.world_link Me.btnCheck_Con.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCheck_Con.Location = New System.Drawing.Point(374, 150) + Me.btnCheck_Con.Location = New System.Drawing.Point(368, 133) Me.btnCheck_Con.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnCheck_Con.Name = "btnCheck_Con" Me.btnCheck_Con.Size = New System.Drawing.Size(152, 28) @@ -187,7 +199,7 @@ Partial Class frmConnection ' Me.lblDatasource2.AutoSize = True Me.lblDatasource2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblDatasource2.Location = New System.Drawing.Point(229, 82) + Me.lblDatasource2.Location = New System.Drawing.Point(223, 65) Me.lblDatasource2.Name = "lblDatasource2" Me.lblDatasource2.Size = New System.Drawing.Size(91, 17) Me.lblDatasource2.TabIndex = 34 @@ -199,7 +211,7 @@ Partial Class frmConnection Me.btnMdbLöschen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.btnMdbLöschen.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnMdbLöschen.Image = CType(resources.GetObject("btnMdbLöschen.Image"), System.Drawing.Image) - Me.btnMdbLöschen.Location = New System.Drawing.Point(532, 150) + Me.btnMdbLöschen.Location = New System.Drawing.Point(526, 133) Me.btnMdbLöschen.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnMdbLöschen.Name = "btnMdbLöschen" Me.btnMdbLöschen.Size = New System.Drawing.Size(29, 26) @@ -211,7 +223,7 @@ Partial Class frmConnection ' Me.btnMdbLocation.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.btnMdbLocation.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnMdbLocation.Location = New System.Drawing.Point(497, 101) + Me.btnMdbLocation.Location = New System.Drawing.Point(491, 84) Me.btnMdbLocation.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnMdbLocation.Name = "btnMdbLocation" Me.btnMdbLocation.Size = New System.Drawing.Size(29, 26) @@ -224,7 +236,7 @@ Partial Class frmConnection ' Me.txtPassword.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "PASSWORD", True)) Me.txtPassword.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPassword.Location = New System.Drawing.Point(231, 153) + Me.txtPassword.Location = New System.Drawing.Point(225, 136) Me.txtPassword.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.txtPassword.Name = "txtPassword" Me.txtPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) @@ -237,7 +249,7 @@ Partial Class frmConnection ' Me.txtUserId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "USERNAME", True)) Me.txtUserId.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtUserId.Location = New System.Drawing.Point(15, 153) + Me.txtUserId.Location = New System.Drawing.Point(9, 136) Me.txtUserId.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.txtUserId.Name = "txtUserId" Me.txtUserId.Size = New System.Drawing.Size(200, 23) @@ -248,7 +260,7 @@ Partial Class frmConnection ' Me.lblPassword.AutoSize = True Me.lblPassword.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblPassword.Location = New System.Drawing.Point(229, 132) + Me.lblPassword.Location = New System.Drawing.Point(223, 115) Me.lblPassword.Name = "lblPassword" Me.lblPassword.Size = New System.Drawing.Size(63, 17) Me.lblPassword.TabIndex = 4 @@ -259,7 +271,7 @@ Partial Class frmConnection ' Me.lblUserId.AutoSize = True Me.lblUserId.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblUserId.Location = New System.Drawing.Point(12, 132) + Me.lblUserId.Location = New System.Drawing.Point(6, 115) Me.lblUserId.Name = "lblUserId" Me.lblUserId.Size = New System.Drawing.Size(49, 17) Me.lblUserId.TabIndex = 3 @@ -270,7 +282,7 @@ Partial Class frmConnection ' Me.lblDataSource.AutoSize = True Me.lblDataSource.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblDataSource.Location = New System.Drawing.Point(12, 82) + Me.lblDataSource.Location = New System.Drawing.Point(6, 65) Me.lblDataSource.Name = "lblDataSource" Me.lblDataSource.Size = New System.Drawing.Size(83, 17) Me.lblDataSource.TabIndex = 2 @@ -284,7 +296,7 @@ Partial Class frmConnection Me.cmbDbArt.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cmbDbArt.FormattingEnabled = True Me.cmbDbArt.Items.AddRange(New Object() {"MS-SQL", "ODBC", "ORACLE"}) - Me.cmbDbArt.Location = New System.Drawing.Point(15, 53) + Me.cmbDbArt.Location = New System.Drawing.Point(9, 36) Me.cmbDbArt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.cmbDbArt.Name = "cmbDbArt" Me.cmbDbArt.Size = New System.Drawing.Size(210, 24) @@ -294,7 +306,7 @@ Partial Class frmConnection ' Me.lblDatenbanktyp.AutoSize = True Me.lblDatenbanktyp.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblDatenbanktyp.Location = New System.Drawing.Point(12, 36) + Me.lblDatenbanktyp.Location = New System.Drawing.Point(6, 19) Me.lblDatenbanktyp.Name = "lblDatenbanktyp" Me.lblDatenbanktyp.Size = New System.Drawing.Size(96, 17) Me.lblDatenbanktyp.TabIndex = 0 @@ -439,68 +451,6 @@ Partial Class frmConnection Me.TBDD_CONNECTIONDataGridView.Size = New System.Drawing.Size(1166, 316) Me.TBDD_CONNECTIONDataGridView.TabIndex = 53 ' - 'GEANDERTWERTextBox - ' - Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEANDERTWER", True)) - Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(12, 246) - Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox" - Me.GEANDERTWERTextBox.ReadOnly = True - Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(147, 23) - Me.GEANDERTWERTextBox.TabIndex = 57 - ' - 'GEAENDERTWANNTextBox - ' - Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEAENDERTWANN", True)) - Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(165, 246) - Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox" - Me.GEAENDERTWANNTextBox.ReadOnly = True - Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(155, 23) - Me.GEAENDERTWANNTextBox.TabIndex = 63 - ' - 'SERVERTextBox - ' - Me.SERVERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SERVER", True)) - Me.SERVERTextBox.Location = New System.Drawing.Point(15, 103) - Me.SERVERTextBox.Name = "SERVERTextBox" - Me.SERVERTextBox.Size = New System.Drawing.Size(210, 23) - Me.SERVERTextBox.TabIndex = 2 - ' - 'GUIDTextBox - ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GUID", True)) - Me.GUIDTextBox.Location = New System.Drawing.Point(532, 53) - Me.GUIDTextBox.Name = "GUIDTextBox" - Me.GUIDTextBox.ReadOnly = True - Me.GUIDTextBox.Size = New System.Drawing.Size(72, 23) - Me.GUIDTextBox.TabIndex = 65 - ' - 'DATENBANKComboBox - ' - Me.DATENBANKComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "DATENBANK", True)) - Me.DATENBANKComboBox.FormattingEnabled = True - Me.DATENBANKComboBox.Location = New System.Drawing.Point(232, 102) - Me.DATENBANKComboBox.Name = "DATENBANKComboBox" - Me.DATENBANKComboBox.Size = New System.Drawing.Size(259, 24) - Me.DATENBANKComboBox.TabIndex = 66 - ' - 'BEMERKUNGTextBox - ' - Me.BEMERKUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEMERKUNG", True)) - Me.BEMERKUNGTextBox.Location = New System.Drawing.Point(535, 102) - Me.BEMERKUNGTextBox.Name = "BEMERKUNGTextBox" - Me.BEMERKUNGTextBox.Size = New System.Drawing.Size(219, 23) - Me.BEMERKUNGTextBox.TabIndex = 67 - ' - 'TBDD_CONNECTIONBindingSource - ' - Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" - Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' - 'DD_DMSLiteDataSet - ' - Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" - Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' 'DataGridViewTextBoxColumn1 ' Me.DataGridViewTextBoxColumn1.DataPropertyName = "GUID" @@ -550,11 +500,65 @@ Partial Class frmConnection Me.DataGridViewCheckBoxColumn1.HeaderText = "Aktiv" Me.DataGridViewCheckBoxColumn1.Name = "DataGridViewCheckBoxColumn1" ' + 'GEANDERTWERTextBox + ' + Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEANDERTWER", True)) + Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(12, 246) + Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox" + Me.GEANDERTWERTextBox.ReadOnly = True + Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(147, 23) + Me.GEANDERTWERTextBox.TabIndex = 57 + ' + 'GEAENDERTWANNTextBox + ' + Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEAENDERTWANN", True)) + Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(165, 246) + Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox" + Me.GEAENDERTWANNTextBox.ReadOnly = True + Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(155, 23) + Me.GEAENDERTWANNTextBox.TabIndex = 63 + ' + 'SERVERTextBox + ' + Me.SERVERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SERVER", True)) + Me.SERVERTextBox.Location = New System.Drawing.Point(9, 86) + Me.SERVERTextBox.Name = "SERVERTextBox" + Me.SERVERTextBox.Size = New System.Drawing.Size(210, 23) + Me.SERVERTextBox.TabIndex = 2 + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GUID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(526, 36) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.Size = New System.Drawing.Size(72, 23) + Me.GUIDTextBox.TabIndex = 65 + ' + 'DATENBANKComboBox + ' + Me.DATENBANKComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "DATENBANK", True)) + Me.DATENBANKComboBox.FormattingEnabled = True + Me.DATENBANKComboBox.Location = New System.Drawing.Point(226, 85) + Me.DATENBANKComboBox.Name = "DATENBANKComboBox" + Me.DATENBANKComboBox.Size = New System.Drawing.Size(259, 24) + Me.DATENBANKComboBox.TabIndex = 66 + ' + 'BEMERKUNGTextBox + ' + Me.BEMERKUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEMERKUNG", True)) + Me.BEMERKUNGTextBox.Location = New System.Drawing.Point(529, 85) + Me.BEMERKUNGTextBox.Name = "BEMERKUNGTextBox" + Me.BEMERKUNGTextBox.Size = New System.Drawing.Size(219, 23) + Me.BEMERKUNGTextBox.TabIndex = 67 + ' 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.Connection = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing + Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing @@ -573,56 +577,67 @@ Partial Class frmConnection 'SYS_CONNECTIONCheckBox ' Me.SYS_CONNECTIONCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_CONNECTIONBindingSource, "SYS_CONNECTION", True)) - Me.SYS_CONNECTIONCheckBox.Location = New System.Drawing.Point(627, 53) + Me.SYS_CONNECTIONCheckBox.Location = New System.Drawing.Point(621, 36) Me.SYS_CONNECTIONCheckBox.Name = "SYS_CONNECTIONCheckBox" - Me.SYS_CONNECTIONCheckBox.Size = New System.Drawing.Size(104, 24) + Me.SYS_CONNECTIONCheckBox.Size = New System.Drawing.Size(127, 24) Me.SYS_CONNECTIONCheckBox.TabIndex = 68 - Me.SYS_CONNECTIONCheckBox.Text = "CheckBox1" + Me.SYS_CONNECTIONCheckBox.Text = "SYS Connection" Me.SYS_CONNECTIONCheckBox.UseVisualStyleBackColor = True ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.lblDatenbanktyp) + Me.GroupBox1.Controls.Add(Me.SYS_CONNECTIONCheckBox) + Me.GroupBox1.Controls.Add(Me.chkOR_ohne_TNS) + Me.GroupBox1.Controls.Add(BEMERKUNGLabel) + Me.GroupBox1.Controls.Add(Me.btnCheck_Con) + Me.GroupBox1.Controls.Add(Me.BEMERKUNGTextBox) + Me.GroupBox1.Controls.Add(Me.lblDatasource2) + Me.GroupBox1.Controls.Add(Me.DATENBANKComboBox) + Me.GroupBox1.Controls.Add(Me.Label1) + Me.GroupBox1.Controls.Add(GUIDLabel) + Me.GroupBox1.Controls.Add(Me.cmbDbArt) + Me.GroupBox1.Controls.Add(Me.GUIDTextBox) + Me.GroupBox1.Controls.Add(Me.Chckwin_aut) + Me.GroupBox1.Controls.Add(Me.SERVERTextBox) + Me.GroupBox1.Controls.Add(Me.btnMdbLöschen) + Me.GroupBox1.Controls.Add(Me.txtBezeichnung) + Me.GroupBox1.Controls.Add(Me.lblDataSource) + Me.GroupBox1.Controls.Add(Me.txtUserId) + Me.GroupBox1.Controls.Add(Me.btnMdbLocation) + Me.GroupBox1.Controls.Add(Me.lblUserId) + Me.GroupBox1.Controls.Add(Me.txtPassword) + Me.GroupBox1.Controls.Add(Me.lblPassword) + Me.GroupBox1.Location = New System.Drawing.Point(12, 28) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(773, 196) + Me.GroupBox1.TabIndex = 69 + Me.GroupBox1.TabStop = False + ' 'frmConnection ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1187, 619) - Me.Controls.Add(Me.SYS_CONNECTIONCheckBox) - Me.Controls.Add(BEMERKUNGLabel) - Me.Controls.Add(Me.BEMERKUNGTextBox) - Me.Controls.Add(Me.DATENBANKComboBox) - Me.Controls.Add(GUIDLabel) - Me.Controls.Add(Me.GUIDTextBox) - Me.Controls.Add(Me.SERVERTextBox) + Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(GEAENDERTWANNLabel) - Me.Controls.Add(Me.lblDatenbanktyp) - Me.Controls.Add(Me.txtUserId) Me.Controls.Add(Me.GEAENDERTWANNTextBox) - Me.Controls.Add(Me.txtPassword) Me.Controls.Add(GEANDERTWERLabel) - Me.Controls.Add(Me.lblPassword) Me.Controls.Add(Me.GEANDERTWERTextBox) - Me.Controls.Add(Me.lblUserId) Me.Controls.Add(Me.TBDD_CONNECTIONDataGridView) - Me.Controls.Add(Me.btnMdbLocation) Me.Controls.Add(Me.TBDD_CONNECTIONBindingNavigator) - Me.Controls.Add(Me.lblDataSource) - Me.Controls.Add(Me.txtBezeichnung) - Me.Controls.Add(Me.btnMdbLöschen) - Me.Controls.Add(Me.Chckwin_aut) - Me.Controls.Add(Me.cmbDbArt) - Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.lblDatasource2) - Me.Controls.Add(Me.btnCheck_Con) - Me.Controls.Add(Me.chkOR_ohne_TNS) Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.Name = "frmConnection" Me.Text = "Verwaltung der Connections" + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() Me.TBDD_CONNECTIONBindingNavigator.ResumeLayout(False) Me.TBDD_CONNECTIONBindingNavigator.PerformLayout() CType(Me.TBDD_CONNECTIONDataGridView, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -676,4 +691,5 @@ Partial Class frmConnection Friend WithEvents DATENBANKComboBox As ComboBox Friend WithEvents BEMERKUNGTextBox As TextBox Friend WithEvents SYS_CONNECTIONCheckBox As CheckBox + Friend WithEvents GroupBox1 As GroupBox End Class diff --git a/app/DD_PM_WINDREAM/frmConnection.vb b/app/DD_PM_WINDREAM/frmConnection.vb index 66c06c6..af83eef 100644 --- a/app/DD_PM_WINDREAM/frmConnection.vb +++ b/app/DD_PM_WINDREAM/frmConnection.vb @@ -335,4 +335,12 @@ Public Class frmConnection Me.Cursor = Cursors.Default End Try End Sub + + Private Sub SYS_CONNECTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SYS_CONNECTIONCheckBox.CheckedChanged + If SYS_CONNECTIONCheckBox.Checked Then + GroupBox1.Enabled = False + Else + GroupBox1.Enabled = True + End If + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index e2eba15..935dffe 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -44,6 +44,9 @@ Public Class frmFormDesigner ' Windream initialisieren If IDB_ACTIVE = False Then clsWindream.Create_Session() + btnButton.Visible = False + Else + btnButton.Visible = True End If diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index 773afba..9ed7969 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -123,6 +123,7 @@ Partial Class frmMain Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) Me.bwSync = New System.ComponentModel.BackgroundWorker() Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() + Me.bwBasicData = New System.ComponentModel.BackgroundWorker() CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerDashboard.Panel1.SuspendLayout() Me.SplitContainerDashboard.Panel2.SuspendLayout() @@ -857,6 +858,11 @@ Partial Class frmMain ' resources.ApplyResources(Me.SaveFileDialog1, "SaveFileDialog1") ' + 'bwBasicData + ' + Me.bwBasicData.WorkerReportsProgress = True + Me.bwBasicData.WorkerSupportsCancellation = True + ' 'frmMain ' Me.Appearance.Options.UseFont = True @@ -1022,4 +1028,5 @@ Partial Class frmMain Friend WithEvents ToolStripButton6 As ToolStripButton Friend WithEvents ToolStripButton7 As ToolStripButton Friend WithEvents ToolStripButton8 As ToolStripButton + Friend WithEvents bwBasicData As System.ComponentModel.BackgroundWorker End Class diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 8e3c9c4..eb957c4 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -162,24 +162,6 @@ 662, 95 - - Magenta - - - 24, 24 - - - Export to pdf - - - Magenta - - - 24, 24 - - - Export png - 0, 0 @@ -243,57 +225,6 @@ 804, 95 - - Magenta - - - 24, 24 - - - Export to pdf - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 - LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 - Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk - aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY - 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES - OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj - 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx - JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h - o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i - UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM - f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN - XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt - UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI - M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK - BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 - w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW - F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN - HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ - p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH - fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn - tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC - LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz - 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l - LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i - XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ - 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj - kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A - AAAASUVORK5CYII= - - - - Magenta - - - 24, 24 - - - Export png - 0, 0 @@ -396,57 +327,6 @@ 955, 95 - - Magenta - - - 24, 24 - - - Export to pdf - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 - LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 - Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk - aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY - 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES - OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj - 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx - JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h - o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i - UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM - f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN - XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt - UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI - M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK - BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 - w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW - F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN - HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ - p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH - fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn - tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC - LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz - 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l - LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i - XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ - 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj - kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A - AAAASUVORK5CYII= - - - - Magenta - - - 24, 24 - - - Export png - 0, 0 @@ -510,57 +390,6 @@ 1117, 95 - - Magenta - - - 24, 24 - - - Export to pdf - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 - LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 - Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk - aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY - 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES - OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj - 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx - JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h - o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i - UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM - f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN - XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt - UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI - M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK - BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 - w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW - F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN - HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ - p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH - fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn - tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC - LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz - 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l - LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i - XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ - 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj - kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A - AAAASUVORK5CYII= - - - - Magenta - - - 24, 24 - - - Export png - 0, 0 @@ -642,14 +471,185 @@ SplitContainerDashboard - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlDashboard + + + 0 + + + Magenta + + + 24, 24 + + + Export to pdf + + + Magenta + + + 24, 24 + + + Export png + + + Magenta + + + 24, 24 + + + Export to pdf + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 + LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 + Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk + aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY + 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES + OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj + 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx + JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h + o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i + UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM + f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN + XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt + UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI + M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK + BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 + w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW + F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN + HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ + p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH + fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn + tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC + LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz + 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l + LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i + XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ + 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj + kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A + AAAASUVORK5CYII= + + + + Magenta + + + 24, 24 + + + Export png + + + Magenta + + + 24, 24 + + + Export to pdf + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 + LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 + Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk + aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY + 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES + OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj + 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx + JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h + o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i + UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM + f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN + XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt + UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI + M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK + BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 + w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW + F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN + HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ + p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH + fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn + tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC + LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz + 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l + LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i + XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ + 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj + kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A + AAAASUVORK5CYII= + + + + Magenta + + + 24, 24 + + + Export png + + + Magenta + + + 24, 24 + + + Export to pdf + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 + LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 + Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk + aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY + 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES + OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj + 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx + JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h + o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i + UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM + f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN + XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt + UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI + M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK + BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 + w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW + F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN + HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ + p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH + fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn + tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC + LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz + 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l + LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i + XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ + 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj + kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A + AAAASUVORK5CYII= + + + + Magenta - - pnlDashboard + + 24, 24 - - 0 + + Export png 770, 17 @@ -659,7 +659,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAewBBQHsAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAfQBBQH0AQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -712,6 +712,84 @@ 597, 17 + + 17, 134 + + + pnlDashboard + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 0 + + + GridControl_Docs + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 1 + + + BindingNavigator1 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 2 + + + NavBarControl1 + + + DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 3 + + + Fill + + + Tahoma, 9pt + + + 0, 146 + + + 1347, 360 + + + 4 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + 986, 31 @@ -736,6 +814,39 @@ 392, 95 + + 270, 198 + + + ContextMenuGrid + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 256, 30 + + + 631, 241 + + + 8 + + + False + + + GridControl_Docs + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 1 + 269, 26 @@ -816,39 +927,6 @@ Layout speichern - - 270, 198 - - - ContextMenuGrid - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 256, 30 - - - 631, 241 - - - 8 - - - False - - - GridControl_Docs - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 1 - 17, 134 @@ -923,6 +1001,9 @@ False + + Segoe UI, 9pt + 50, 23 @@ -1052,12 +1133,6 @@ 541, 95 - - 219, 26 - - - Starte Validierung für Profil - 220, 30 @@ -1255,32 +1330,11 @@ 3 - - Fill - - - Tahoma, 9pt - - - 0, 146 - - - 1347, 360 - - - 4 - - - Panel1 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this + + 219, 26 - - 3 + + Starte Validierung für Profil 908, 17 @@ -1288,18 +1342,6 @@ 519, 134 - - 234, 22 - - - Popup Erinnerung inaktivieren - - - 234, 22 - - - Monitor anzeigen - 235, 48 @@ -1481,6 +1523,18 @@ True + + 234, 22 + + + Popup Erinnerung inaktivieren + + + 234, 22 + + + Monitor anzeigen + 1023, 17 @@ -1804,18 +1858,6 @@ 0, 0 - - Allgemein - - - Funktionen - - - Verwaltung - - - Grundeinstellungen - Funktionen @@ -1852,6 +1894,18 @@ 5 + + Allgemein + + + Funktionen + + + Verwaltung + + + Grundeinstellungen + RibbonPage2 @@ -1867,6 +1921,9 @@ PDF Files (*.pdf*)|*.pdf + + 1083, 134 + True @@ -2525,6 +2582,12 @@ System.Windows.Forms.SaveFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + bwBasicData + + + System.ComponentModel.BackgroundWorker, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + frmMain diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index f95394b..c149d80 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -38,6 +38,9 @@ Public Class frmMain Private CurrNavBarGroup As NavBarGroup + Private DTGRID_GROUPS As DataTable + Private DT_CHECKUSER_MODULE As DataTable + Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Try formopenClose = True @@ -92,7 +95,7 @@ Public Class frmMain bsiVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString) If ERROR_STATE = "NO DB-CONNECTION" Or ERROR_STATE = "FAILED DBCONNECTION" Then - MsgBox("Bitte hinterlegen Sie die Datenbankverbindung in der Konfiguration!", MsgBoxStyle.Critical, "Fehlende Konfiguration:") + MsgBox("Please add a database-Connection in AppConfig!", MsgBoxStyle.Critical, "Fehlende Konfiguration:") frmKonfig.ShowDialog() End If Try @@ -104,7 +107,7 @@ Public Class frmMain End If Catch ex As Exception LOGGER.Error(ex) - MessageBox.Show("Fehler bei Laden der CurrentUICulture-Info!", "Achtung:", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + MessageBox.Show("Error loading CurrentUICulture-Info!", "Attention:", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End Try If Refresh_ConnectionString() = True Then Try @@ -125,7 +128,7 @@ Public Class frmMain 'Wenn license abgelaufen und der User nicht admin ist! If LICENSE_EXPIRED = True Then If USER_IS_ADMIN = False Then - MsgBox("Achtung: Lizenz ist abgelaufen oder ungültig!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") + MsgBox("License expired or invalid!" & vbNewLine & "Please contact the AdminTeam!", MsgBoxStyle.Critical, "Attention:") Me.Close() End If End If @@ -154,9 +157,10 @@ Public Class frmMain End If Catch ex As Exception LOGGER.Error(ex) - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei User Check:") + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in User Check:") End Try bsiUser.Caption = USER_USERNAME + GetBaseData("Load") Try @@ -168,11 +172,10 @@ Public Class frmMain LOGGER.Error(ex) MsgBox("Unexpected Error in LoadForm - Step 4: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") End Try - Load_Profile_items() + LoadNavBar() Try If SHOW_CHARTS = True Then - Dim sql = "SELECT * FROM TBPM_CHART" - DT_CHARTS = ClassDatabase.Return_Datatable(sql) + If DT_CHARTS.Rows.Count = 0 Then NavBarItemDashboard.Visible = False Else @@ -273,7 +276,7 @@ Public Class frmMain Return True Catch ex As Exception LOGGER.Error(ex) - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Refresh_ConnectionString:") + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Refresh_ConnectionString:") Return False End Try End Function @@ -342,8 +345,13 @@ Public Class frmMain GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" Catch ex As Exception - GridView_Docs.Columns("Zuletzt bearbeitetd").DisplayFormat.FormatType = FormatType.DateTime - GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + Try + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + Catch ex1 As Exception + LOGGER.Warn("(ResetLayout)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL") + End Try + End Try Try @@ -360,8 +368,8 @@ Public Class frmMain End Try End Sub - Sub Load_Profile_items() - Dim oStopWatch As New RefreshHelper.SW("Load_Profile_items") + Sub LoadNavBar() + Dim oStopWatch As New RefreshHelper.SW("LoadNavBar") Dim profileGroupOpen As Boolean = False If Not IsNothing(CurrNavBarGroup) Then Try @@ -456,8 +464,6 @@ Public Class frmMain End Sub Function Load_Profiles_for_User() As Boolean Try - Dim sql = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID) - CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(sql) If IsNothing(CURR_DT_VWPM_PROFILE_ACTIVE) Then Return False @@ -756,8 +762,13 @@ Public Class frmMain GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" Catch ex As Exception - GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime - GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + Try + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + Catch ex1 As Exception + LOGGER.Warn("(CreateBasicView)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL") + End Try + End Try LOGGER.Debug("All columns in CreateBasicView created") @@ -839,11 +850,20 @@ Public Class frmMain If TimerRefresh.Enabled = False Then Exit Sub End If - - If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo() + If bwBasicData.IsBusy Then + LOGGER.Info("bwBasicData is busy - no Refreshing") + Exit Sub + End If If Application.OpenForms().OfType(Of frmValidator).Any Then Exit Sub End If + If Application.OpenForms().OfType(Of frmAdministration).Any Then + Exit Sub + End If + If Application.OpenForms().OfType(Of frmAdmin2).Any Then + Exit Sub + End If + If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo() 'If Not Application.OpenForms().OfType(Of frmValidator).Any Then ' Dim oUpdate = "Not Defined" ' Try @@ -861,7 +881,7 @@ Public Class frmMain Try SaveGridLayout() 'bwSync.ReportProgress(10) - Load_Profile_items() + LoadNavBar() 'bwSync.ReportProgress(60) Dim oStopWatch As New RefreshHelper.SW("Decide_Load") Decide_Load() @@ -962,7 +982,8 @@ Public Class frmMain End If If CURRENT_DT_VW_PROFILE_USER.Rows.Count > 0 Then - NotifyIcon1.ShowBalloonTip(30000, "Erinnerung", "Es bedinden sich noch unerledigte Aufgaben in Ihrem Verantwortungsbereich.", ToolTipIcon.Info) + Dim oMessage As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("App.ReminderPipeline") + NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info) End If End Sub @@ -972,25 +993,40 @@ Public Class frmMain 'Me.Visible = False CURRENT_ProfilGUID = pProfilID ' CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING) - CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID)) - CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME") - CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID)) - CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID)) - My.Settings.Save() + 'My.Settings.Save() Dim omsg = "Es ist bereits ein Workflow geöffnet!" Dim omsgTitle = "Achtung:" If USER_LANGUAGE <> "de-DE" Then omsg = "There is already a workflow active!" omsgTitle = "Attention:" End If - If TimerRefresh.Enabled Then - TimerRefresh.Enabled = False - End If + ' Dim th As System.Threading.Thread If Not Application.OpenForms().OfType(Of frmValidator).Any Then + If TimerRefresh.Enabled Then + TimerRefresh.Enabled = False + End If + + Dim oExpression = $"GUID = {CURRENT_ProfilGUID}" + CURRENT_DT_PROFILE.Clear() + CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges) + If CURRENT_DT_PROFILE.Rows.Count = 1 Then + CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME") + Else + Exit Sub + End If + + + CURRENT_DT_PROFILE_SEARCHES_DOC.Clear() + oExpression = $"PROFILE_ID = {CURRENT_ProfilGUID}" + CURRENT_DT_PROFILES_SEARCHES_DOC.Select(oExpression, "TAB_INDEX").CopyToDataTable(CURRENT_DT_PROFILE_SEARCHES_DOC, LoadOption.PreserveChanges) + 'CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID)) + CURRENT_DT_PROFILE_SEARCHES_SQL.Clear() + CURRENT_DT_PROFILES_SEARCHES_SQL.Select(oExpression, "TAB_INDEX").CopyToDataTable(CURRENT_DT_PROFILE_SEARCHES_SQL, LoadOption.PreserveChanges) + 'CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID)) frmValidator.Show() - Decide_Load() + 'Decide_Load() TimerRefresh.Enabled = True Dim iterateIndex As Integer = 0 Dim oNewDataTable As DataTable = CURR_DT_OVERVIEW.Copy @@ -1258,8 +1294,16 @@ Public Class frmMain If SOURCE_INIT = True Then CURRENT_ProfilGUID = oProfileId - CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID)) - CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID)) + CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID)) + CURRENT_DT_PROFILE.Clear() + Dim oExpression = $"GUID = {CURRENT_ProfilGUID}" + CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges) + If CURRENT_DT_PROFILE.Rows.Count = 1 Then + CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME") + Else + Exit Sub + End If + CURRENT_PROFILE_LOG_INDEX = CURRENT_DT_PROFILE.Rows(0).Item("PM_VEKTOR_INDEX") If CURRENT_PROFILE_LOG_INDEX = "" Then CURRENT_PROFILE_LOG_INDEX = CURRENT_DT_PROFILE.Rows(0).Item("LOG_INDEX") @@ -1292,7 +1336,7 @@ Public Class frmMain CURRENT_DT_MASS_CHANGE_DOCS = NewDatatable TimerRefresh.Enabled = False frmMassValidator.ShowDialog() - Load_Profile_items() + LoadNavBar() Decide_Load() Else If USER_LANGUAGE = "de-DE" Then @@ -1318,6 +1362,7 @@ Public Class frmMain RefreshHelper.LoadViewInfo() End Sub Sub Load_Grid_Overview() + Dim oStopWatch As New RefreshHelper.SW("Load_Grid_Overview(LGO)") pnlDashboard.Visible = False Layout_Single_Profile() GRID_LOAD_TYPE = "OVERVIEW" @@ -1328,25 +1373,25 @@ Public Class frmMain ToolStripLabelViewTape.Text = "Overview" End If Try - Dim sel = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID ={0}", USER_ID) - CURRENT_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(sel) bsiMessage.Caption = "" If CURRENT_DT_VW_PROFILE_USER.Rows.Count = 0 Then LOGGER.Info("no profiles for user: '" & USER_USERNAME & "' configured!", False) NO_WORKFLOWITEMS = True bsiMessage.Caption = "Keine Profile für Ihren User hinterlegt" - + oStopWatch.Done() Exit Sub End If - Dim oStopWatch As New RefreshHelper.SW("Load_Profiles_for_User") + Dim oStopWatch1 As New RefreshHelper.SW("LGO#Load_Profiles_for_User") Load_Profiles_for_User() - oStopWatch.Done() + oStopWatch1.Done() 'ClassInit.InitBasics() - oStopWatch = New RefreshHelper.SW("build CURR_DT_OVERVIEW") + Dim oStopWatch2 As New RefreshHelper.SW("LGO#build CURR_DT_OVERVIEW") Dim oSQLOverview = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") If IsDBNull(oSQLOverview) Then bsiMessage.Caption = "No GROUP-CONFIG (SQL_PROFILE_MAIN_VIEW) in Baseconfig" + oStopWatch.Done() + oStopWatch2.Done() Exit Sub End If @@ -1363,15 +1408,8 @@ Public Class frmMain ' "WHERE T.PROFIL_ID = T1.PROFIL_ID " & ' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", USER_USERNAME) CURR_DT_OVERVIEW = ClassDatabase.Return_Datatable(oSQLOverview) - oStopWatch.Done() + oStopWatch2.Done() - Dim DTGRID_GROUPS As DataTable - Try - DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1") - Catch ex As Exception - LOGGER.Error(ex) - LOGGER.Info(ex.Message) - End Try If Not IsNothing(CURR_DT_OVERVIEW) Then @@ -1486,12 +1524,18 @@ Public Class frmMain GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left + LOGGER.Debug(" GridView_Docs.Columns loaded...") Try GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" Catch ex As Exception - GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime - GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + Try + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + Catch ex1 As Exception + LOGGER.Warn("(LoadGridOverview)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL") + End Try + End Try LOGGER.Debug("finished Formatting Grid!") @@ -1517,6 +1561,7 @@ Public Class frmMain LOGGER.Error(ex) End Try End If + oStopWatch.Done() Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Load_Grid_Overview - Fehler: " & ex.Message) @@ -1550,7 +1595,7 @@ Public Class frmMain SaveGridLayout() ' Ansicht neu laden - Load_Profile_items() + LoadNavBar() Decide_Load() InResetlayout = False RefreshHelper.LoadViewInfo() @@ -1669,7 +1714,49 @@ Public Class frmMain ' Save expanded GroupRows If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo() End Sub - + Sub GetBaseData(pMode As String) + Dim oStopWatch As New RefreshHelper.SW("GetBaseData") + Try + Dim oSQL = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED) + DT_CHECKUSER_MODULE = ClassDatabase.Return_Datatable(oSQL) + If pMode = "bwBasicData" Then bwBasicData.ReportProgress(10) + ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE) + If pMode = "bwBasicData" Then bwBasicData.ReportProgress(20) + oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID) + CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(oSQL) + If pMode = "bwBasicData" Then bwBasicData.ReportProgress(30) + CURRENT_DT_PROFILES = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE where ACTIVE = 1") + If pMode = "Load" Then + CURRENT_DT_PROFILE = CURRENT_DT_PROFILES.Clone() + End If + If pMode = "bwBasicData" Then bwBasicData.ReportProgress(40) + CURRENT_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX") + If pMode = "Load" Then + CURRENT_DT_PROFILE_SEARCHES_DOC = CURRENT_DT_PROFILES_SEARCHES_DOC.Clone() + End If + If pMode = "bwBasicData" Then bwBasicData.ReportProgress(50) + CURRENT_DT_PROFILES_SEARCHES_SQL = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'SQL' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX") + If pMode = "Load" Then + CURRENT_DT_PROFILE_SEARCHES_SQL = CURRENT_DT_PROFILES_SEARCHES_SQL.Clone() + End If + If pMode = "bwBasicData" Then bwBasicData.ReportProgress(60) + oSQL = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID) + CURRENT_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSQL) + If pMode = "bwBasicData" Then bwBasicData.ReportProgress(70) + DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1") + oSQL = "SELECT * FROM TBPM_CHART" + DT_CHARTS = ClassDatabase.Return_Datatable(oSQL) + oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX ORDER BY PROFIL_ID,Y_LOC, X_LOC" + DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable("oSQL") + If pMode = "Load" Then + DTVWCONTROL_INDEX = DTVWCONTROLS_INDEX.Clone() + End If + If pMode = "bwBasicData" Then bwBasicData.ReportProgress(100) + Catch ex As Exception + LOGGER.Warn($"Error laoding basic data Error [{ex.Message}]") + End Try + oStopWatch.Done() + End Sub Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown Decide_Load() @@ -1708,36 +1795,7 @@ Public Class frmMain bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End If End Sub - Private Sub Timer5Mins_Tick(sender As Object, e As EventArgs) Handles Timer5Mins.Tick - Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED) - Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql) - ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE) - If USER_IS_ADMIN Then - If USER_LANGUAGE = "de-DE" Then - bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN - Else - bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN - End If - - End If - - - If USER_DEBUG_LOG = True Then - ' 'Jetzt de rinsert der Inhalte - If Not IsNothing(LOGCONFIG.Logs) Then - If LOGCONFIG.Logs.Count > 0 Then - ' Dim odel = $"delete from TBPM_LOG_DEBUG where userid = {USER_ID}" - ' ClassDatabase.Execute_non_Query(odel) - Dim thread As New Thread(AddressOf DebuglogBackgroundthread) - thread.Start() - - End If - - End If - End If - - End Sub Sub DebuglogBackgroundthread() Dim oSQL As String = "None" Try @@ -1841,7 +1899,7 @@ Public Class frmMain SaveGridLayout() End If - Load_Profile_items() + LoadNavBar() Decide_Load() If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo() End Sub @@ -1859,9 +1917,9 @@ Public Class frmMain If AdminSecurity = True Then frmLoginAdmin.ShowDialog() Else - frmAdministration.ShowDialog() + frmAdministration.Show() End If - Decide_Load() + End Sub Private Sub bbiKonfiguration_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbiKonfiguration.ItemClick @@ -1986,4 +2044,47 @@ Public Class frmMain ExportCharttoimage(ChartBottomRight, SaveFileDialog1.FileName) End If End Sub + Private Sub Timer5Mins_Tick(sender As Object, e As EventArgs) Handles Timer5Mins.Tick + + If Not bwBasicData.IsBusy Then + BarEditItem1.Caption = "Get BasicData" + BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + bwBasicData.RunWorkerAsync() + End If + + If USER_DEBUG_LOG = True Then + ' 'Jetzt de rinsert der Inhalte + If Not IsNothing(LOGCONFIG.Logs) Then + If LOGCONFIG.Logs.Count > 0 Then + ' Dim odel = $"delete from TBPM_LOG_DEBUG where userid = {USER_ID}" + ' ClassDatabase.Execute_non_Query(odel) + + Dim thread As New Thread(AddressOf DebuglogBackgroundthread) + thread.Start() + + End If + + End If + End If + + End Sub + Private Sub bwBasicData_DoWork(sender As Object, e As DoWorkEventArgs) Handles bwBasicData.DoWork + GetBaseData("bwBasicData") + End Sub + + Private Sub bwBasicData_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bwBasicData.RunWorkerCompleted + If USER_IS_ADMIN Then + If USER_LANGUAGE = "de-DE" Then + bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN + Else + bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN + End If + + End If + BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + + Private Sub bwBasicData_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles bwBasicData.ProgressChanged + BarEditItem1.EditValue = e.ProgressPercentage + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 9f07988..75a4d96 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -59,7 +59,7 @@ Public Class frmValidator Private DTGRID_COLUMNS_WITH_SQL As DataTable Private DTGRID_COLUMNS As DataTable Private DTGRID_COLUMNS_TEXTBOX As DataTable - Private DTVWCONTROL_INDEX As DataTable + Public FormLoaded As Boolean = False Private ItemWorked As Boolean = False Private Override As Boolean = False @@ -132,8 +132,13 @@ Public Class frmValidator TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING _step = 2 - Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC" - DTVWCONTROL_INDEX = ClassDatabase.Return_Datatable(oSQL) + + DTVWCONTROL_INDEX.Clear() + Dim oExpression = $"PROFILE_ID = {CURRENT_ProfilGUID}" + DTVWCONTROLS_INDEX.Select(oExpression, "Y_LOC, X_LOC").CopyToDataTable(DTVWCONTROL_INDEX, LoadOption.PreserveChanges) + + 'Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC" + 'DTVWCONTROL_INDEX = ClassDatabase.Return_Datatable(oSQL) 'VWPM_CONTROL_INDEXTableAdapter.Fill(DD_DMSLiteDataSet.VWPM_CONTROL_INDEX, CURRENT_ProfilName) _step = 3 TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) @@ -3596,31 +3601,31 @@ Public Class frmValidator 'Der input der Box,Cmb muss jedes mal geleert werden Dim oMyInput As String = "" 'Jedes Control in Konfig Tab durchlaufn - For Each dr As DataRow In DTVWCONTROL_INDEX.Rows - If dr.Item("CTRL_TYPE") = "LBL" Or dr.Item("CTRL_TYPE") = "LINE" Then + For Each oControlRow As DataRow In DTVWCONTROL_INDEX.Rows + If oControlRow.Item("CTRL_TYPE") = "LBL" Or oControlRow.Item("CTRL_TYPE") = "LINE" Then Continue For End If 'Den Indexnamen auslesen - Dim oIndexName As String = dr.Item("INDEX_NAME") + Dim oIndexName As String = oControlRow.Item("INDEX_NAME") - Dim oIsRequired As Boolean = CBool(dr.Item("VALIDATION")) - Dim oSQLCheckCommand As String = IIf(IsDBNull(dr.Item("SQL_UEBERPRUEFUNG")), "", dr.Item("SQL_UEBERPRUEFUNG")) - Dim oIsReadOnly As Boolean = CBool(dr.Item("READ_ONLY")) - Dim oControlType As String = dr.Item("CTRL_TYPE") + Dim oIsRequired As Boolean = CBool(oControlRow.Item("VALIDATION")) + Dim oSQLCheckCommand As String = IIf(IsDBNull(oControlRow.Item("SQL_UEBERPRUEFUNG")), "", oControlRow.Item("SQL_UEBERPRUEFUNG")) + Dim oIsReadOnly As Boolean = CBool(oControlRow.Item("READ_ONLY")) + Dim oControlType As String = oControlRow.Item("CTRL_TYPE") Dim oIDBTyp As Integer If IDB_ACTIVE Then - oIDBTyp = dr.Item("IDB_TYP") + oIDBTyp = oControlRow.Item("IDB_TYP") End If - oControlId = dr.Item("GUID") - Dim oRegexMatch As String = NotNull(dr.Item("REGEX_MATCH"), String.Empty) - Dim oRegexMessage As String = NotNull(dr.Item("REGEX_MESSAGE_DE"), String.Empty) - oControlName = dr.Item("CTRL_NAME") - Dim oOVERWRITE_DATA = dr.Item("OVERWRITE_DATA") + oControlId = oControlRow.Item("GUID") + Dim oRegexMatch As String = NotNull(oControlRow.Item("REGEX_MATCH"), String.Empty) + Dim oRegexMessage As String = NotNull(oControlRow.Item("REGEX_MESSAGE_DE"), String.Empty) + oControlName = oControlRow.Item("CTRL_NAME") + Dim oOVERWRITE_DATA = oControlRow.Item("OVERWRITE_DATA") 'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist - If dr.Item("CTRL_NAME") = oControl.Name And (oIsReadOnly = False Or oSQLCheckCommand <> "") And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then + If oControlRow.Item("CTRL_NAME") = oControl.Name And (oIsReadOnly = False Or oSQLCheckCommand <> "") And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then LOGGER.Debug("Indexierung für Control (" & oControlId & ") '" & oControlName & "' gestartet. Indexname '" & oIndexName & "'") If oIndexName = "" Then LOGGER.Info(" >> Indexname is unexpected empty.") @@ -4357,7 +4362,7 @@ Public Class frmValidator End If - End If + End If End Select End If 'End If für Control und ReadOnly = False Next From 61a3e9b6d3905cc3cf3169e11f112df205447efe Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 5 Mar 2020 10:27:23 +0100 Subject: [PATCH 25/26] MS .0.8 --- .../ClassAllgemeineFunktionen.vb | 10 +- app/DD_PM_WINDREAM/ClassControlCreator.vb | 2 +- app/DD_PM_WINDREAM/ClassDragDrop.vb | 2 +- app/DD_PM_WINDREAM/ClassInit.vb | 28 +- .../DD_DMSLiteDataSet.Designer.vb | 17479 +++++++++------- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd | 196 +- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss | 62 +- app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj | 81 +- app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb | 28 +- app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb | 2 +- app/DD_PM_WINDREAM/My Project/licenses.licx | 20 +- app/DD_PM_WINDREAM/XtraReport1.Designer.vb | 430 + app/DD_PM_WINDREAM/XtraReport1.resx | 126 + app/DD_PM_WINDREAM/XtraReport1.vb | 3 + app/DD_PM_WINDREAM/frmAdmin2.Designer.vb | 46 +- app/DD_PM_WINDREAM/frmAdmin2.resx | 302 +- .../frmAdministration.Designer.vb | 146 +- app/DD_PM_WINDREAM/frmAdministration.resx | 1759 +- app/DD_PM_WINDREAM/frmAdministration.vb | 110 +- app/DD_PM_WINDREAM/frmConnection.Designer.vb | 2 +- app/DD_PM_WINDREAM/frmFormDesigner.vb | 22 +- .../frmInvDashboard.Designer.vb | 258 + app/DD_PM_WINDREAM/frmInvDashboard.resx | 132 + app/DD_PM_WINDREAM/frmInvDashboard.vb | 26 + app/DD_PM_WINDREAM/frmMain.Designer.vb | 733 +- app/DD_PM_WINDREAM/frmMain.resx | 1572 +- app/DD_PM_WINDREAM/frmMain.vb | 121 +- app/DD_PM_WINDREAM/frmMassValidator.vb | 4 +- app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb | 3 + app/DD_PM_WINDREAM/frmSplash.vb | 14 +- app/DD_PM_WINDREAM/frmValidator.Designer.vb | 67 +- app/DD_PM_WINDREAM/frmValidator.resx | 112 +- app/DD_PM_WINDREAM/frmValidator.vb | 414 +- app/DD_PM_WINDREAM/frmValidatorSearch.vb | 32 +- 34 files changed, 13912 insertions(+), 10432 deletions(-) create mode 100644 app/DD_PM_WINDREAM/XtraReport1.Designer.vb create mode 100644 app/DD_PM_WINDREAM/XtraReport1.resx create mode 100644 app/DD_PM_WINDREAM/XtraReport1.vb create mode 100644 app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb create mode 100644 app/DD_PM_WINDREAM/frmInvDashboard.resx create mode 100644 app/DD_PM_WINDREAM/frmInvDashboard.vb diff --git a/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb b/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb index 9764b8e..720413f 100644 --- a/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb +++ b/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb @@ -5,9 +5,9 @@ Imports WINDREAMLib Public Class ClassAllgemeineFunktionen Public Shared Function GUI_LANGUAGE_INFO(pTITLE As String) - Dim oFilteredDatatable As DataTable = CURRENT_DT_GUI_LANGUAGE_PHRASES.Clone() + Dim oFilteredDatatable As DataTable = BASEDATA_DT_GUI_LANGUAGE_PHRASES.Clone() Dim oExpression = $"LANGUAGE ='{USER_LANGUAGE}' AND TITLE = '{pTITLE}'" - CURRENT_DT_GUI_LANGUAGE_PHRASES.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) + BASEDATA_DT_GUI_LANGUAGE_PHRASES.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) If oFilteredDatatable.Rows.Count = 1 Then If oFilteredDatatable.Rows(0).Item("CAPT_TYPE") = "MsgBox" Then Return oFilteredDatatable @@ -25,9 +25,9 @@ Public Class ClassAllgemeineFunktionen End If End Function Public Shared Function GUI_LANGUAGE_MSGBOX(pTITLE As String) - Dim oFilteredDatatable As DataTable = CURRENT_DT_GUI_LANGUAGE_PHRASES.Clone() + Dim oFilteredDatatable As DataTable = BASEDATA_DT_GUI_LANGUAGE_PHRASES.Clone() Dim oExpression = $"LANGUAGE = '{USER_LANGUAGE}' AND TITLE = '{pTITLE}'" - CURRENT_DT_GUI_LANGUAGE_PHRASES.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) + BASEDATA_DT_GUI_LANGUAGE_PHRASES.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges) If oFilteredDatatable.Rows.Count = 1 Then Return oFilteredDatatable.Rows(0) Else @@ -64,7 +64,7 @@ Public Class ClassAllgemeineFunktionen ERR_MSG = ERR_MSG.Replace("'", "''") Dim insert As String = $"INSERT INTO TBPM_LOG_DEBUG (USERID, LOGMSG) VALUES ({USER_ID},'{ERR_MSG}')" If ExecuteonMSSQL(insert, CONNECTION_STRING) <> "" Then - LOGGER.Info("Eintrag in Log-Tabelle konnte nicht erstellt werden!!", True) + LOGGER.Warn("...Eintrag in Log-Tabelle konnte nicht erstellt werden!!", True) End If Catch ex As Exception LOGGER.Error(ex) diff --git a/app/DD_PM_WINDREAM/ClassControlCreator.vb b/app/DD_PM_WINDREAM/ClassControlCreator.vb index 3303ae7..233d49e 100644 --- a/app/DD_PM_WINDREAM/ClassControlCreator.vb +++ b/app/DD_PM_WINDREAM/ClassControlCreator.vb @@ -670,7 +670,7 @@ Public Class ClassControlCreator Try Dim dt As New DataTable - dt = CURRENT_DT_TBDD_CONNECTION + dt = BASEDATA_DT_TBDD_CONNECTION ' Define the filter Dim filter As String = "GUID = " & CON_ID ' Filter the rows using Select() method of DataTable diff --git a/app/DD_PM_WINDREAM/ClassDragDrop.vb b/app/DD_PM_WINDREAM/ClassDragDrop.vb index 3878538..12a5c81 100644 --- a/app/DD_PM_WINDREAM/ClassDragDrop.vb +++ b/app/DD_PM_WINDREAM/ClassDragDrop.vb @@ -61,10 +61,10 @@ Public Class ClassDragDrop Try dragDropData = row.Item("GUID") & "|" & source Catch ex As Exception - LOGGER.Error(ex) Try dragDropData = row.Item("USER_ID") & "|" & source Catch ex1 As Exception + LOGGER.Warn($"Error in view_MouseMove(2nd exception): " & ex.Message) MsgBox("Error in view_MouseMove(2nd exception): " & ex.Message, MsgBoxStyle.Critical) End Try diff --git a/app/DD_PM_WINDREAM/ClassInit.vb b/app/DD_PM_WINDREAM/ClassInit.vb index df9aaae..4c19896 100644 --- a/app/DD_PM_WINDREAM/ClassInit.vb +++ b/app/DD_PM_WINDREAM/ClassInit.vb @@ -101,7 +101,7 @@ Public Class ClassInit Sub Refresh_Licence() Try Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "") - Dim lic As String = CURRENT_DT_CONFIG.Rows(0).Item("LIZENZEN") ' ClassDatabase.Execute_Scalar("SELECT LIZENZEN FROM TBPM_KONFIGURATION WHERE (GUID = 1)", MyConnectionString) + Dim lic As String = BASEDATA_DT_CONFIG.Rows(0).Item("LIZENZEN") ' ClassDatabase.Execute_Scalar("SELECT LIZENZEN FROM TBPM_KONFIGURATION WHERE (GUID = 1)", MyConnectionString) Dim licString = Me._lizenzManager.DecodeLicenseKey(lic) Dim split() = licString.ToString.Split("#") @@ -255,10 +255,10 @@ Public Class ClassInit Public Shared Sub InitBasics() Try Dim oSql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1") - CURRENT_DT_CONFIG = ClassDatabase.Return_Datatable(oSql) + BASEDATA_DT_CONFIG = ClassDatabase.Return_Datatable(oSql) Settings_LoadBasicConfig() - oSql = "select * from TBDD_CONNECTION" - CURRENT_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql) + oSql = "select * from TBDD_CONNECTION WHERE AKTIV = 1" + BASEDATA_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql) oSql = "Select * FROM TBDD_3RD_PARTY_MODULES WHERE ACTIVE = 1" @@ -269,7 +269,14 @@ Public Class ClassInit End If Next oSql = "SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE WHERE MODULE IN ('PM','All Modules')" - CURRENT_DT_GUI_LANGUAGE_PHRASES = ClassDatabase.Return_Datatable(oSql) + BASEDATA_DT_GUI_LANGUAGE_PHRASES = ClassDatabase.Return_Datatable(oSql) + + BASEDATA_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX") + BASEDATA_DT_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone() + + BASEDATA_DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1") + oSql = "SELECT * FROM TBPM_CHART" + BASEDATA_DT_CHARTS = ClassDatabase.Return_Datatable(oSql) Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Unexpected Error in InitBasics: " & ex.Message, True) @@ -277,6 +284,17 @@ Public Class ClassInit End Try End Sub + Public Shared Sub InitBasics2() + Try + Dim oSql = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID) + BASEDATA_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSql) + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info("Unexpected Error in InitBasics2: " & ex.Message, True) + ERROR_STATE = "Basics2 not initialized" + End Try + End Sub + Private Shared Function Settings_LoadBasicConfig() Try Dim sql As String = "select * from tbdd_Modules where SHORT_NAME = 'PM'" diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index e5a4c2e..fec0976 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -59,6 +59,10 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBDD_GUI_LANGUAGE_PHRASE As TBDD_GUI_LANGUAGE_PHRASEDataTable + Private tableVWPM_CHART_INVOICE_MONITOR As VWPM_CHART_INVOICE_MONITORDataTable + + Private tableVWPM_CHART_INVOICE_MONITOR_SERIES As VWPM_CHART_INVOICE_MONITOR_SERIESDataTable + Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable Private relationFK_TBPM_ERROR_LOG_PROFILE1 As Global.System.Data.DataRelation @@ -151,6 +155,12 @@ Partial Public Class DD_DMSLiteDataSet If (Not (ds.Tables("TBDD_GUI_LANGUAGE_PHRASE")) Is Nothing) Then MyBase.Tables.Add(New TBDD_GUI_LANGUAGE_PHRASEDataTable(ds.Tables("TBDD_GUI_LANGUAGE_PHRASE"))) End If + If (Not (ds.Tables("VWPM_CHART_INVOICE_MONITOR")) Is Nothing) Then + MyBase.Tables.Add(New VWPM_CHART_INVOICE_MONITORDataTable(ds.Tables("VWPM_CHART_INVOICE_MONITOR"))) + End If + If (Not (ds.Tables("VWPM_CHART_INVOICE_MONITOR_SERIES")) Is Nothing) Then + MyBase.Tables.Add(New VWPM_CHART_INVOICE_MONITOR_SERIESDataTable(ds.Tables("VWPM_CHART_INVOICE_MONITOR_SERIES"))) + End If If (Not (ds.Tables("TBWH_CONNECTION")) Is Nothing) Then MyBase.Tables.Add(New TBWH_CONNECTIONDataTable(ds.Tables("TBWH_CONNECTION"))) End If @@ -341,6 +351,26 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property + _ + Public ReadOnly Property VWPM_CHART_INVOICE_MONITOR() As VWPM_CHART_INVOICE_MONITORDataTable + Get + Return Me.tableVWPM_CHART_INVOICE_MONITOR + End Get + End Property + + _ + Public ReadOnly Property VWPM_CHART_INVOICE_MONITOR_SERIES() As VWPM_CHART_INVOICE_MONITOR_SERIESDataTable + Get + Return Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES + End Get + End Property + _ + Private Function ShouldSerializeVWPM_CHART_INVOICE_MONITOR() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWPM_CHART_INVOICE_MONITOR_SERIES() As Boolean + Return false + End Function + _ Private Function ShouldSerializeTBWH_CONNECTION() As Boolean @@ -892,6 +956,12 @@ Partial Public Class DD_DMSLiteDataSet _ Public Delegate Sub TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GUI_LANGUAGE_PHRASERowChangeEvent) + _ + Public Delegate Sub VWPM_CHART_INVOICE_MONITORRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPM_CHART_INVOICE_MONITORRowChangeEvent) + + _ + Public Delegate Sub VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent) + _ Public Delegate Sub TBWH_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_CONNECTIONRowChangeEvent) @@ -8409,40 +8479,36 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class TBWH_CONNECTIONDataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_CONNECTIONRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnBEZEICHNUNG As Global.System.Data.DataColumn + Partial Public Class VWPM_CHART_INVOICE_MONITORDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPM_CHART_INVOICE_MONITORRow) - Private columnSQL_PROVIDER As Global.System.Data.DataColumn + Private columnAnzahl_AI As Global.System.Data.DataColumn - Private columnSERVER As Global.System.Data.DataColumn + Private columnNettoSumme_AI As Global.System.Data.DataColumn - Private columnDATENBANK As Global.System.Data.DataColumn + Private columnAnzahl_PE As Global.System.Data.DataColumn - Private columnUSERNAME As Global.System.Data.DataColumn + Private columnNettoSumme_PE As Global.System.Data.DataColumn - Private columnPASSWORD As Global.System.Data.DataColumn + Private columnAnzahl_FF As Global.System.Data.DataColumn - Private columnBEMERKUNG As Global.System.Data.DataColumn + Private columnNettoSumme_FF As Global.System.Data.DataColumn - Private columnAKTIV As Global.System.Data.DataColumn + Private columnAnzahl_FIF As Global.System.Data.DataColumn - Private columnERSTELLTWER As Global.System.Data.DataColumn + Private columnNettoSumme_FIF As Global.System.Data.DataColumn - Private columnERSTELLTWANN As Global.System.Data.DataColumn + Private columnAnzahl_ZK As Global.System.Data.DataColumn - Private columnGEANDERTWER As Global.System.Data.DataColumn + Private columnWFState As Global.System.Data.DataColumn - Private columnGEAENDERTWANN As Global.System.Data.DataColumn + Private columnNettoSumme_ZK As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBWH_CONNECTION" + Me.TableName = "VWPM_CHART_INVOICE_MONITOR" Me.BeginInit Me.InitClass Me.EndInit @@ -8475,105 +8541,89 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBEZEICHNUNG - End Get - End Property - - _ - Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property Anzahl_AIColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_PROVIDER + Return Me.columnAnzahl_AI End Get End Property _ - Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NettoSumme_AIColumn() As Global.System.Data.DataColumn Get - Return Me.columnSERVER + Return Me.columnNettoSumme_AI End Get End Property _ - Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn + Public ReadOnly Property Anzahl_PEColumn() As Global.System.Data.DataColumn Get - Return Me.columnDATENBANK + Return Me.columnAnzahl_PE End Get End Property _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NettoSumme_PEColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSERNAME + Return Me.columnNettoSumme_PE End Get End Property _ - Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property Anzahl_FFColumn() As Global.System.Data.DataColumn Get - Return Me.columnPASSWORD + Return Me.columnAnzahl_FF End Get End Property _ - Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NettoSumme_FFColumn() As Global.System.Data.DataColumn Get - Return Me.columnBEMERKUNG + Return Me.columnNettoSumme_FF End Get End Property _ - Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Public ReadOnly Property Anzahl_FIFColumn() As Global.System.Data.DataColumn Get - Return Me.columnAKTIV + Return Me.columnAnzahl_FIF End Get End Property _ - Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NettoSumme_FIFColumn() As Global.System.Data.DataColumn Get - Return Me.columnERSTELLTWER + Return Me.columnNettoSumme_FIF End Get End Property _ - Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Public ReadOnly Property Anzahl_ZKColumn() As Global.System.Data.DataColumn Get - Return Me.columnERSTELLTWANN + Return Me.columnAnzahl_ZK End Get End Property _ - Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property WFStateColumn() As Global.System.Data.DataColumn Get - Return Me.columnGEANDERTWER + Return Me.columnWFState End Get End Property _ - Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NettoSumme_ZKColumn() As Global.System.Data.DataColumn Get - Return Me.columnGEAENDERTWANN + Return Me.columnNettoSumme_ZK End Get End Property @@ -8588,50 +8638,44 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_CONNECTIONRow + Public Default ReadOnly Property Item(ByVal index As Integer) As VWPM_CHART_INVOICE_MONITORRow Get - Return CType(Me.Rows(index),TBWH_CONNECTIONRow) + Return CType(Me.Rows(index),VWPM_CHART_INVOICE_MONITORRow) End Get End Property _ - Public Event TBWH_CONNECTIONRowChanging As TBWH_CONNECTIONRowChangeEventHandler + Public Event VWPM_CHART_INVOICE_MONITORRowChanging As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler _ - Public Event TBWH_CONNECTIONRowChanged As TBWH_CONNECTIONRowChangeEventHandler + Public Event VWPM_CHART_INVOICE_MONITORRowChanged As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler _ - Public Event TBWH_CONNECTIONRowDeleting As TBWH_CONNECTIONRowChangeEventHandler + Public Event VWPM_CHART_INVOICE_MONITORRowDeleting As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler _ - Public Event TBWH_CONNECTIONRowDeleted As TBWH_CONNECTIONRowChangeEventHandler + Public Event VWPM_CHART_INVOICE_MONITORRowDeleted As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler _ - Public Overloads Sub AddTBWH_CONNECTIONRow(ByVal row As TBWH_CONNECTIONRow) + Public Overloads Sub AddVWPM_CHART_INVOICE_MONITORRow(ByVal row As VWPM_CHART_INVOICE_MONITORRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBWH_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBWH_CONNECTIONRow - Dim rowTBWH_CONNECTIONRow As TBWH_CONNECTIONRow = CType(Me.NewRow,TBWH_CONNECTIONRow) - Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} - rowTBWH_CONNECTIONRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBWH_CONNECTIONRow) - Return rowTBWH_CONNECTIONRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Short) As TBWH_CONNECTIONRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_CONNECTIONRow) + Public Overloads Function AddVWPM_CHART_INVOICE_MONITORRow(ByVal Anzahl_AI As Integer, ByVal NettoSumme_AI As String, ByVal Anzahl_PE As Integer, ByVal NettoSumme_PE As String, ByVal Anzahl_FF As Integer, ByVal NettoSumme_FF As String, ByVal Anzahl_FIF As Integer, ByVal NettoSumme_FIF As String, ByVal Anzahl_ZK As Integer, ByVal WFState As String, ByVal NettoSumme_ZK As String) As VWPM_CHART_INVOICE_MONITORRow + Dim rowVWPM_CHART_INVOICE_MONITORRow As VWPM_CHART_INVOICE_MONITORRow = CType(Me.NewRow,VWPM_CHART_INVOICE_MONITORRow) + Dim columnValuesArray() As Object = New Object() {Anzahl_AI, NettoSumme_AI, Anzahl_PE, NettoSumme_PE, Anzahl_FF, NettoSumme_FF, Anzahl_FIF, NettoSumme_FIF, Anzahl_ZK, WFState, NettoSumme_ZK} + rowVWPM_CHART_INVOICE_MONITORRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPM_CHART_INVOICE_MONITORRow) + Return rowVWPM_CHART_INVOICE_MONITORRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_CONNECTIONDataTable = CType(MyBase.Clone,TBWH_CONNECTIONDataTable) + Dim cln As VWPM_CHART_INVOICE_MONITORDataTable = CType(MyBase.Clone,VWPM_CHART_INVOICE_MONITORDataTable) cln.InitVars Return cln End Function @@ -8639,101 +8683,93 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBWH_CONNECTIONDataTable() + Return New VWPM_CHART_INVOICE_MONITORDataTable() End Function _ Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") - Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") - Me.columnSERVER = MyBase.Columns("SERVER") - Me.columnDATENBANK = MyBase.Columns("DATENBANK") - Me.columnUSERNAME = MyBase.Columns("USERNAME") - Me.columnPASSWORD = MyBase.Columns("PASSWORD") - Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") - Me.columnAKTIV = MyBase.Columns("AKTIV") - Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") - Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") - Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") - Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnAnzahl_AI = MyBase.Columns("Anzahl_AI") + Me.columnNettoSumme_AI = MyBase.Columns("NettoSumme_AI") + Me.columnAnzahl_PE = MyBase.Columns("Anzahl_PE") + Me.columnNettoSumme_PE = MyBase.Columns("NettoSumme_PE") + Me.columnAnzahl_FF = MyBase.Columns("Anzahl_FF") + Me.columnNettoSumme_FF = MyBase.Columns("NettoSumme_FF") + Me.columnAnzahl_FIF = MyBase.Columns("Anzahl_FIF") + Me.columnNettoSumme_FIF = MyBase.Columns("NettoSumme_FIF") + Me.columnAnzahl_ZK = MyBase.Columns("Anzahl_ZK") + Me.columnWFState = MyBase.Columns("WFState") + Me.columnNettoSumme_ZK = MyBase.Columns("NettoSumme_ZK") End Sub _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBEZEICHNUNG) - Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_PROVIDER) - Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSERVER) - Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDATENBANK) - Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSERNAME) - Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPASSWORD) - Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBEMERKUNG) - Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnAKTIV) - Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnERSTELLTWER) - Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnERSTELLTWANN) - Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGEANDERTWER) - Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGEAENDERTWANN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnBEZEICHNUNG.MaxLength = 100 - Me.columnSQL_PROVIDER.MaxLength = 100 - Me.columnSERVER.MaxLength = 150 - Me.columnDATENBANK.MaxLength = 100 - Me.columnUSERNAME.MaxLength = 100 - Me.columnPASSWORD.MaxLength = 100 - Me.columnBEMERKUNG.MaxLength = 400 - Me.columnAKTIV.AllowDBNull = false - Me.columnERSTELLTWER.AllowDBNull = false - Me.columnERSTELLTWER.MaxLength = 50 - Me.columnERSTELLTWANN.AllowDBNull = false - Me.columnGEANDERTWER.MaxLength = 50 - End Sub - - _ - Public Function NewTBWH_CONNECTIONRow() As TBWH_CONNECTIONRow - Return CType(Me.NewRow,TBWH_CONNECTIONRow) + Me.columnAnzahl_AI = New Global.System.Data.DataColumn("Anzahl_AI", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAnzahl_AI) + Me.columnNettoSumme_AI = New Global.System.Data.DataColumn("NettoSumme_AI", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNettoSumme_AI) + Me.columnAnzahl_PE = New Global.System.Data.DataColumn("Anzahl_PE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAnzahl_PE) + Me.columnNettoSumme_PE = New Global.System.Data.DataColumn("NettoSumme_PE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNettoSumme_PE) + Me.columnAnzahl_FF = New Global.System.Data.DataColumn("Anzahl_FF", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAnzahl_FF) + Me.columnNettoSumme_FF = New Global.System.Data.DataColumn("NettoSumme_FF", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNettoSumme_FF) + Me.columnAnzahl_FIF = New Global.System.Data.DataColumn("Anzahl_FIF", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAnzahl_FIF) + Me.columnNettoSumme_FIF = New Global.System.Data.DataColumn("NettoSumme_FIF", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNettoSumme_FIF) + Me.columnAnzahl_ZK = New Global.System.Data.DataColumn("Anzahl_ZK", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAnzahl_ZK) + Me.columnWFState = New Global.System.Data.DataColumn("WFState", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWFState) + Me.columnNettoSumme_ZK = New Global.System.Data.DataColumn("NettoSumme_ZK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNettoSumme_ZK) + Me.columnAnzahl_AI.ReadOnly = true + Me.columnNettoSumme_AI.ReadOnly = true + Me.columnNettoSumme_AI.MaxLength = 30 + Me.columnAnzahl_PE.ReadOnly = true + Me.columnNettoSumme_PE.ReadOnly = true + Me.columnNettoSumme_PE.MaxLength = 30 + Me.columnAnzahl_FF.ReadOnly = true + Me.columnNettoSumme_FF.ReadOnly = true + Me.columnNettoSumme_FF.MaxLength = 30 + Me.columnAnzahl_FIF.ReadOnly = true + Me.columnNettoSumme_FIF.ReadOnly = true + Me.columnNettoSumme_FIF.MaxLength = 30 + Me.columnAnzahl_ZK.ReadOnly = true + Me.columnWFState.ReadOnly = true + Me.columnWFState.MaxLength = 12 + Me.columnNettoSumme_ZK.ReadOnly = true + Me.columnNettoSumme_ZK.MaxLength = 5 + End Sub + + _ + Public Function NewVWPM_CHART_INVOICE_MONITORRow() As VWPM_CHART_INVOICE_MONITORRow + Return CType(Me.NewRow,VWPM_CHART_INVOICE_MONITORRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBWH_CONNECTIONRow(builder) + Return New VWPM_CHART_INVOICE_MONITORRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBWH_CONNECTIONRow) + Return GetType(VWPM_CHART_INVOICE_MONITORRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBWH_CONNECTIONRowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_CONNECTIONRowChanged(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + If (Not (Me.VWPM_CHART_INVOICE_MONITORRowChangedEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITORRowChanged(Me, New VWPM_CHART_INVOICE_MONITORRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITORRow), e.Action)) End If End Sub @@ -8741,8 +8777,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBWH_CONNECTIONRowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_CONNECTIONRowChanging(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + If (Not (Me.VWPM_CHART_INVOICE_MONITORRowChangingEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITORRowChanging(Me, New VWPM_CHART_INVOICE_MONITORRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITORRow), e.Action)) End If End Sub @@ -8750,8 +8786,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBWH_CONNECTIONRowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_CONNECTIONRowDeleted(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + If (Not (Me.VWPM_CHART_INVOICE_MONITORRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITORRowDeleted(Me, New VWPM_CHART_INVOICE_MONITORRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITORRow), e.Action)) End If End Sub @@ -8759,14 +8795,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBWH_CONNECTIONRowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_CONNECTIONRowDeleting(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + If (Not (Me.VWPM_CHART_INVOICE_MONITORRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITORRowDeleting(Me, New VWPM_CHART_INVOICE_MONITORRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITORRow), e.Action)) End If End Sub _ - Public Sub RemoveTBWH_CONNECTIONRow(ByVal row As TBWH_CONNECTIONRow) + Public Sub RemoveVWPM_CHART_INVOICE_MONITORRow(ByVal row As VWPM_CHART_INVOICE_MONITORRow) Me.Rows.Remove(row) End Sub @@ -8793,7 +8829,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBWH_CONNECTIONDataTable" + attribute2.FixedValue = "VWPM_CHART_INVOICE_MONITORDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -8838,1387 +8874,1315 @@ Partial Public Class DD_DMSLiteDataSet End Class ''' - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class TBPM_PROFILE_FINAL_INDEXINGRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class VWPM_CHART_INVOICE_MONITOR_SERIESDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPM_CHART_INVOICE_MONITOR_SERIESRow) - Private tableTBPM_PROFILE_FINAL_INDEXING As TBPM_PROFILE_FINAL_INDEXINGDataTable + Private columnTitle As Global.System.Data.DataColumn + + Private columnAnzahl As Global.System.Data.DataColumn + + Private columnNettoSumme As Global.System.Data.DataColumn + + Private columnSEQ As Global.System.Data.DataColumn _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPM_PROFILE_FINAL_INDEXING = CType(Me.Table,TBPM_PROFILE_FINAL_INDEXINGDataTable) + Public Sub New() + MyBase.New + Me.TableName = "VWPM_CHART_INVOICE_MONITOR_SERIES" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Property INDEXNAME() As String + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.INDEXNAMEColumn),String) + Return Me.columnTitle End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.INDEXNAMEColumn) = value - End Set End Property _ - Public Property VALUE() As String + Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.VALUEColumn),String) + Return Me.columnAnzahl End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.VALUEColumn) = value - End Set End Property _ - Public Property ADDED_WHO() As String + Public ReadOnly Property NettoSummeColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHOColumn),String) + Return Me.columnNettoSumme End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHOColumn) = value - End Set End Property _ - Public Property ADDED_WHEN() As Date + Public ReadOnly Property SEQColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHENColumn),Date) + Return Me.columnSEQ End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNull"& _ - ".", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) = value - End Set End Property _ - Public Property CHANGED_WHEN() As Date + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNul"& _ - "l.", e) - End Try + Return Me.Rows.Count End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = value - End Set End Property _ - Public Property GUID() As Integer + Public Default ReadOnly Property Item(ByVal index As Integer) As VWPM_CHART_INVOICE_MONITOR_SERIESRow Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.GUIDColumn),Integer) + Return CType(Me.Rows(index),VWPM_CHART_INVOICE_MONITOR_SERIESRow) End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.GUIDColumn) = value - End Set End Property - _ - Public Property CONNECTION_ID() As Short - Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CONNECTION_IDColumn),Short) - End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CONNECTION_IDColumn) = value - End Set - End Property + _ + Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowChanging As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler - _ - Public Property SQL_COMMAND() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.SQL_COMMANDColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.SQL_COMMANDColumn) = value - End Set - End Property + _ + Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowChanged As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler - _ - Public Property DESCRIPTION() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn) = value - End Set - End Property + _ + Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleting As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler - _ - Public Property ACTIVE() As Boolean - Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn) = value - End Set - End Property + _ + Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleted As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler _ - Public Property IF_VEKTOR_BEHAVIOUR() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOURColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOURColumn) = value - End Set - End Property + Public Overloads Sub AddVWPM_CHART_INVOICE_MONITOR_SERIESRow(ByVal row As VWPM_CHART_INVOICE_MONITOR_SERIESRow) + Me.Rows.Add(row) + End Sub _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) + Public Overloads Function AddVWPM_CHART_INVOICE_MONITOR_SERIESRow(ByVal Title As String, ByVal Anzahl As Integer, ByVal NettoSumme As Decimal, ByVal SEQ As Integer) As VWPM_CHART_INVOICE_MONITOR_SERIESRow + Dim rowVWPM_CHART_INVOICE_MONITOR_SERIESRow As VWPM_CHART_INVOICE_MONITOR_SERIESRow = CType(Me.NewRow,VWPM_CHART_INVOICE_MONITOR_SERIESRow) + Dim columnValuesArray() As Object = New Object() {Title, Anzahl, NettoSumme, SEQ} + rowVWPM_CHART_INVOICE_MONITOR_SERIESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPM_CHART_INVOICE_MONITOR_SERIESRow) + Return rowVWPM_CHART_INVOICE_MONITOR_SERIESRow End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWPM_CHART_INVOICE_MONITOR_SERIESDataTable = CType(MyBase.Clone,VWPM_CHART_INVOICE_MONITOR_SERIESDataTable) + cln.InitVars + Return cln + End Function _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWPM_CHART_INVOICE_MONITOR_SERIESDataTable() End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Friend Sub InitVars() + Me.columnTitle = MyBase.Columns("Title") + Me.columnAnzahl = MyBase.Columns("Anzahl") + Me.columnNettoSumme = MyBase.Columns("NettoSumme") + Me.columnSEQ = MyBase.Columns("SEQ") End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBPM_KONFIGURATIONRow - Inherits Global.System.Data.DataRow - - Private tableTBPM_KONFIGURATION As TBPM_KONFIGURATIONDataTable _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPM_KONFIGURATION = CType(Me.Table,TBPM_KONFIGURATIONDataTable) + Private Sub InitClass() + Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTitle) + Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAnzahl) + Me.columnNettoSumme = New Global.System.Data.DataColumn("NettoSumme", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNettoSumme) + Me.columnSEQ = New Global.System.Data.DataColumn("SEQ", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQ) + Me.columnTitle.AllowDBNull = false + Me.columnTitle.MaxLength = 18 + Me.columnAnzahl.AllowDBNull = false + Me.columnNettoSumme.AllowDBNull = false + Me.columnSEQ.AllowDBNull = false End Sub _ - Public Property GUID() As Byte - Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.GUIDColumn),Byte) - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.GUIDColumn) = value - End Set - End Property - - _ - Public Property LIZENZEN() As String - Get - Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LIZENZEN in Tabelle TBPM_KONFIGURATION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) = value - End Set - End Property - - _ - Public Property ERFASSTWER() As String - Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.ERFASSTWERColumn),String) - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.ERFASSTWERColumn) = value - End Set - End Property + Public Function NewVWPM_CHART_INVOICE_MONITOR_SERIESRow() As VWPM_CHART_INVOICE_MONITOR_SERIESRow + Return CType(Me.NewRow,VWPM_CHART_INVOICE_MONITOR_SERIESRow) + End Function _ - Public Property ERSTELLTWER() As String - Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWERColumn),String) - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWERColumn) = value - End Set - End Property + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWPM_CHART_INVOICE_MONITOR_SERIESRow(builder) + End Function _ - Public Property ERSTELLTWANN() As Date - Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWANNColumn),Date) - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWANNColumn) = value - End Set - End Property + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWPM_CHART_INVOICE_MONITOR_SERIESRow) + End Function _ - Public Property GEAENDERTWER() As String - Get - Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBPM_KONFIGURATION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) = value - End Set - End Property + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowChangedEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITOR_SERIESRowChanged(Me, New VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITOR_SERIESRow), e.Action)) + End If + End Sub _ - Public Property INTERVALL_CKECK_NO_OF_FILES() As Short - Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.INTERVALL_CKECK_NO_OF_FILESColumn),Short) - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.INTERVALL_CKECK_NO_OF_FILESColumn) = value - End Set - End Property + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowChangingEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITOR_SERIESRowChanging(Me, New VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITOR_SERIESRow), e.Action)) + End If + End Sub _ - Public Property GEAENDERTWANN() As Date - Get - Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBPM_KONFIGURATION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) = value - End Set - End Property + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleted(Me, New VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITOR_SERIESRow), e.Action)) + End If + End Sub _ - Public Property EMAIL_ACTIVE() As Boolean - Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.EMAIL_ACTIVEColumn) = value - End Set - End Property + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleting(Me, New VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITOR_SERIESRow), e.Action)) + End If + End Sub _ - Public Property EMAIL_FROM() As String - Get - Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_FROM in Tabelle TBPM_KONFIGURATION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) = value - End Set - End Property + Public Sub RemoveVWPM_CHART_INVOICE_MONITOR_SERIESRow(ByVal row As VWPM_CHART_INVOICE_MONITOR_SERIESRow) + Me.Rows.Remove(row) + End Sub _ - Public Property EMAIL_SMTP() As String - Get - Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_SMTP in Tabelle TBPM_KONFIGURATION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) = value - End Set - End Property + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DD_DMSLiteDataSet = New DD_DMSLiteDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWPM_CHART_INVOICE_MONITOR_SERIESDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_CONNECTIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_CONNECTIONRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnSQL_PROVIDER As Global.System.Data.DataColumn + + Private columnSERVER As Global.System.Data.DataColumn + + Private columnDATENBANK As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnPASSWORD As Global.System.Data.DataColumn + + Private columnBEMERKUNG As Global.System.Data.DataColumn + + Private columnAKTIV As Global.System.Data.DataColumn + + Private columnERSTELLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ - Public Property EMAIL_USER() As String + Public Sub New() + MyBase.New + Me.TableName = "TBWH_CONNECTION" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_USER in Tabelle TBPM_KONFIGURATION ist DBNull.", e) - End Try + Return Me.columnGUID End Get - Set - Me(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) = value - End Set End Property _ - Public Property EMAIL_PW() As String + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_PW in Tabelle TBPM_KONFIGURATION ist DBNull.", e) - End Try + Return Me.columnBEZEICHNUNG End Get - Set - Me(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) = value - End Set End Property _ - Public Property EMAIL_REMINDER_HEADER() As String + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_REMINDER_HEADER in Tabelle TBPM_KONFIGURATION ist DBNul"& _ - "l.", e) - End Try + Return Me.columnSQL_PROVIDER End Get - Set - Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = value - End Set End Property _ - Public Property EMAIL_REMINDER_FOOTER() As String + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_REMINDER_FOOTER in Tabelle TBPM_KONFIGURATION ist DBNul"& _ - "l.", e) - End Try + Return Me.columnSERVER End Get - Set - Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = value - End Set End Property _ - Public Property VEKTOR_DELIMITER() As String + Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.VEKTOR_DELIMITERColumn),String) + Return Me.columnDATENBANK End Get - Set - Me(Me.tableTBPM_KONFIGURATION.VEKTOR_DELIMITERColumn) = value - End Set End Property _ - Public Property ADMIN_PW() As String + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADMIN_PW in Tabelle TBPM_KONFIGURATION ist DBNull.", e) - End Try + Return Me.columnUSERNAME End Get - Set - Me(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) = value - End Set End Property _ - Public Property ADMIN_SECURITY() As Boolean + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.ADMIN_SECURITYColumn),Boolean) + Return Me.columnPASSWORD End Get - Set - Me(Me.tableTBPM_KONFIGURATION.ADMIN_SECURITYColumn) = value - End Set End Property _ - Public Function IsLIZENZENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) - End Function + Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEMERKUNG + End Get + End Property _ - Public Sub SetLIZENZENNull() - Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIV + End Get + End Property _ - Public Function IsGEAENDERTWERNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) - End Function + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWER + End Get + End Property _ - Public Sub SetGEAENDERTWERNull() - Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property _ - Public Function IsGEAENDERTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) - End Function + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property _ - Public Sub SetGEAENDERTWANNNull() - Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property _ - Public Function IsEMAIL_FROMNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property _ - Public Sub SetEMAIL_FROMNull() - Me(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) = Global.System.Convert.DBNull + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_CONNECTIONRow + Get + Return CType(Me.Rows(index),TBWH_CONNECTIONRow) + End Get + End Property + + _ + Public Event TBWH_CONNECTIONRowChanging As TBWH_CONNECTIONRowChangeEventHandler + + _ + Public Event TBWH_CONNECTIONRowChanged As TBWH_CONNECTIONRowChangeEventHandler + + _ + Public Event TBWH_CONNECTIONRowDeleting As TBWH_CONNECTIONRowChangeEventHandler + + _ + Public Event TBWH_CONNECTIONRowDeleted As TBWH_CONNECTIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_CONNECTIONRow(ByVal row As TBWH_CONNECTIONRow) + Me.Rows.Add(row) End Sub _ - Public Function IsEMAIL_SMTPNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) + Public Overloads Function AddTBWH_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBWH_CONNECTIONRow + Dim rowTBWH_CONNECTIONRow As TBWH_CONNECTIONRow = CType(Me.NewRow,TBWH_CONNECTIONRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} + rowTBWH_CONNECTIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_CONNECTIONRow) + Return rowTBWH_CONNECTIONRow End Function _ - Public Sub SetEMAIL_SMTPNull() - Me(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) = Global.System.Convert.DBNull - End Sub + Public Function FindByGUID(ByVal GUID As Short) As TBWH_CONNECTIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_CONNECTIONRow) + End Function _ - Public Function IsEMAIL_USERNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_CONNECTIONDataTable = CType(MyBase.Clone,TBWH_CONNECTIONDataTable) + cln.InitVars + Return cln End Function _ - Public Sub SetEMAIL_USERNull() - Me(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) = Global.System.Convert.DBNull + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_CONNECTIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") + Me.columnSERVER = MyBase.Columns("SERVER") + Me.columnDATENBANK = MyBase.Columns("DATENBANK") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnPASSWORD = MyBase.Columns("PASSWORD") + Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") End Sub _ - Public Function IsEMAIL_PWNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_PROVIDER) + Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERVER) + Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATENBANK) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPASSWORD) + Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEMERKUNG) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnSQL_PROVIDER.MaxLength = 100 + Me.columnSERVER.MaxLength = 150 + Me.columnDATENBANK.MaxLength = 100 + Me.columnUSERNAME.MaxLength = 100 + Me.columnPASSWORD.MaxLength = 100 + Me.columnBEMERKUNG.MaxLength = 400 + Me.columnAKTIV.AllowDBNull = false + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnERSTELLTWANN.AllowDBNull = false + Me.columnGEANDERTWER.MaxLength = 50 + End Sub + + _ + Public Function NewTBWH_CONNECTIONRow() As TBWH_CONNECTIONRow + Return CType(Me.NewRow,TBWH_CONNECTIONRow) End Function _ - Public Sub SetEMAIL_PWNull() - Me(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) = Global.System.Convert.DBNull - End Sub + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_CONNECTIONRow(builder) + End Function _ - Public Function IsEMAIL_REMINDER_HEADERNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_CONNECTIONRow) End Function _ - Public Sub SetEMAIL_REMINDER_HEADERNull() - Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_CONNECTIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_CONNECTIONRowChanged(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + End If End Sub _ - Public Function IsEMAIL_REMINDER_FOOTERNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) - End Function + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_CONNECTIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_CONNECTIONRowChanging(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + End If + End Sub _ - Public Sub SetEMAIL_REMINDER_FOOTERNull() - Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_CONNECTIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_CONNECTIONRowDeleted(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + End If End Sub _ - Public Function IsADMIN_PWNull() As Boolean - Return Me.IsNull(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) - End Function + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_CONNECTIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_CONNECTIONRowDeleting(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + End If + End Sub _ - Public Sub SetADMIN_PWNull() - Me(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) = Global.System.Convert.DBNull + Public Sub RemoveTBWH_CONNECTIONRow(ByVal row As TBWH_CONNECTIONRow) + Me.Rows.Remove(row) End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DD_DMSLiteDataSet = New DD_DMSLiteDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_CONNECTIONDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_USERRow + Partial Public Class TBPM_PROFILE_FINAL_INDEXINGRow Inherits Global.System.Data.DataRow - Private tableTBDD_USER As TBDD_USERDataTable + Private tableTBPM_PROFILE_FINAL_INDEXING As TBPM_PROFILE_FINAL_INDEXINGDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) + Me.tableTBPM_PROFILE_FINAL_INDEXING = CType(Me.Table,TBPM_PROFILE_FINAL_INDEXINGDataTable) End Sub _ - Public Property GUID() As Integer + Public Property INDEXNAME() As String Get - Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.INDEXNAMEColumn),String) End Get Set - Me(Me.tableTBDD_USER.GUIDColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.INDEXNAMEColumn) = value End Set End Property _ - Public Property PRENAME() As String + Public Property VALUE() As String Get - Try - Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBDD_USER ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.VALUEColumn),String) End Get Set - Me(Me.tableTBDD_USER.PRENAMEColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.VALUEColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBDD_USER.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBDD_USER.NAMEColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHOColumn) = value End Set End Property _ - Public Property USERNAME() As String + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableTBDD_USER.USERNAMEColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHENColumn) = value End Set End Property _ - Public Property EMAIL() As String + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_USER.EMAILColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBDD_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNull"& _ + ".", e) End Try End Get Set - Me(Me.tableTBDD_USER.EMAILColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property CHANGED_WHEN() As Date Get - Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNul"& _ + "l.", e) + End Try End Get Set - Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property GUID() As Integer Get - Try - Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.GUIDColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property CONNECTION_ID() As Short Get - Try - Return CType(Me(Me.tableTBDD_USER.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CONNECTION_IDColumn),Short) End Get Set - Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CONNECTION_IDColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property SQL_COMMAND() As String Get - Try - Return CType(Me(Me.tableTBDD_USER.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.SQL_COMMANDColumn),String) End Get Set - Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.SQL_COMMANDColumn) = value End Set End Property _ - Public Property COMMENT() As String + Public Property DESCRIPTION() As String Get - Try - Return CType(Me(Me.tableTBDD_USER.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_USER ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn),String) End Get Set - Me(Me.tableTBDD_USER.COMMENTColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn) = value End Set End Property _ - Public Property SHORTNAME() As String + Public Property ACTIVE() As Boolean Get - Try - Return CType(Me(Me.tableTBDD_USER.SHORTNAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBDD_USER ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBDD_USER.SHORTNAMEColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn) = value End Set End Property _ - Public Function IsPRENAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) - End Function - - _ - Public Sub SetPRENAMENull() - Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) - End Function - - _ - Public Sub SetNAMENull() - Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsEMAILNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) - End Function - - _ - Public Sub SetEMAILNull() - Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub + Public Property IF_VEKTOR_BEHAVIOUR() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOURColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOURColumn) = value + End Set + End Property _ Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.COMMENTColumn) - End Function - - _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBDD_USER.COMMENTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSHORTNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) - End Function - - _ - Public Sub SetSHORTNAMENull() - Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBPM_TYPERow + Partial Public Class TBPM_KONFIGURATIONRow Inherits Global.System.Data.DataRow - Private tableTBPM_TYPE As TBPM_TYPEDataTable + Private tableTBPM_KONFIGURATION As TBPM_KONFIGURATIONDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPM_TYPE = CType(Me.Table,TBPM_TYPEDataTable) + Me.tableTBPM_KONFIGURATION = CType(Me.Table,TBPM_KONFIGURATIONDataTable) End Sub _ - Public Property GUID() As Short + Public Property GUID() As Byte Get - Return CType(Me(Me.tableTBPM_TYPE.GUIDColumn),Short) + Return CType(Me(Me.tableTBPM_KONFIGURATION.GUIDColumn),Byte) End Get Set - Me(Me.tableTBPM_TYPE.GUIDColumn) = value + Me(Me.tableTBPM_KONFIGURATION.GUIDColumn) = value End Set End Property _ - Public Property BEZEICHNUNG() As String + Public Property LIZENZEN() As String Get - Return CType(Me(Me.tableTBPM_TYPE.BEZEICHNUNGColumn),String) + Try + Return CType(Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LIZENZEN in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_TYPE.BEZEICHNUNGColumn) = value + Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property ERFASSTWER() As String Get - Return CType(Me(Me.tableTBPM_TYPE.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.ERFASSTWERColumn),String) End Get Set - Me(Me.tableTBPM_TYPE.ADDED_WHOColumn) = value + Me(Me.tableTBPM_KONFIGURATION.ERFASSTWERColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property ERSTELLTWER() As String Get - Return CType(Me(Me.tableTBPM_TYPE.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWERColumn),String) End Get Set - Me(Me.tableTBPM_TYPE.ADDED_WHENColumn) = value + Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWERColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property ERSTELLTWANN() As Date Get - Try - Return CType(Me(Me.tableTBPM_TYPE.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_TYPE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWANNColumn),Date) End Get Set - Me(Me.tableTBPM_TYPE.CHANGED_WHOColumn) = value + Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWANNColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property GEAENDERTWER() As String Get Try - Return CType(Me(Me.tableTBPM_TYPE.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_TYPE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBPM_KONFIGURATION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_TYPE.CHANGED_WHENColumn) = value + Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) = value End Set End Property _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPM_TYPE.CHANGED_WHOColumn) - End Function + Public Property INTERVALL_CKECK_NO_OF_FILES() As Short + Get + Return CType(Me(Me.tableTBPM_KONFIGURATION.INTERVALL_CKECK_NO_OF_FILESColumn),Short) + End Get + Set + Me(Me.tableTBPM_KONFIGURATION.INTERVALL_CKECK_NO_OF_FILESColumn) = value + End Set + End Property _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPM_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) = value + End Set + End Property _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_TYPE.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPM_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function GetTBPM_PROFILERows() As TBPM_PROFILERow() - If (Me.Table.ChildRelations("FK_TBPM_PROFILE_TYPE1") Is Nothing) Then - Return New TBPM_PROFILERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_PROFILE_TYPE1")),TBPM_PROFILERow()) - End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBPM_ERROR_LOGRow - Inherits Global.System.Data.DataRow - - Private tableTBPM_ERROR_LOG As TBPM_ERROR_LOGDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPM_ERROR_LOG = CType(Me.Table,TBPM_ERROR_LOGDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBPM_ERROR_LOG.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBPM_ERROR_LOG.GUIDColumn) = value - End Set - End Property - - _ - Public Property PROFIL_ID() As Integer - Get - Return CType(Me(Me.tableTBPM_ERROR_LOG.PROFIL_IDColumn),Integer) - End Get - Set - Me(Me.tableTBPM_ERROR_LOG.PROFIL_IDColumn) = value - End Set - End Property - - _ - Public Property ERROR_MSG() As String - Get - Return CType(Me(Me.tableTBPM_ERROR_LOG.ERROR_MSGColumn),String) - End Get - Set - Me(Me.tableTBPM_ERROR_LOG.ERROR_MSGColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBPM_ERROR_LOG.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBPM_ERROR_LOG.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Return CType(Me(Me.tableTBPM_ERROR_LOG.ADDED_WHENColumn),Date) - End Get - Set - Me(Me.tableTBPM_ERROR_LOG.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property TBPM_PROFILERow() As TBPM_PROFILERow + Public Property EMAIL_ACTIVE() As Boolean Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_ERROR_LOG_PROFILE1")),TBPM_PROFILERow) + Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_ACTIVEColumn),Boolean) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_ERROR_LOG_PROFILE1")) + Me(Me.tableTBPM_KONFIGURATION.EMAIL_ACTIVEColumn) = value End Set End Property - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBDD_CONNECTIONRow - Inherits Global.System.Data.DataRow - - Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) - End Sub _ - Public Property GUID() As Short + Public Property EMAIL_FROM() As String Get - Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) + Try + Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_FROM in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value + Me(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) = value End Set End Property _ - Public Property BEZEICHNUNG() As String + Public Property EMAIL_SMTP() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn),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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_SMTP in Tabelle TBPM_KONFIGURATION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value + Me(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) = value End Set End Property _ - Public Property SQL_PROVIDER() As String + Public Property EMAIL_USER() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn),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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_USER in Tabelle TBPM_KONFIGURATION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value + Me(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) = value End Set End Property _ - Public Property SERVER() As String + Public Property EMAIL_PW() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn),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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_PW in Tabelle TBPM_KONFIGURATION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value + Me(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) = value End Set End Property _ - Public Property DATENBANK() As String + Public Property EMAIL_REMINDER_HEADER() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_REMINDER_HEADER in Tabelle TBPM_KONFIGURATION ist DBNul"& _ + "l.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value + Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = value End Set End Property _ - Public Property USERNAME() As String + Public Property EMAIL_REMINDER_FOOTER() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn),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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_REMINDER_FOOTER in Tabelle TBPM_KONFIGURATION ist DBNul"& _ + "l.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value + Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = value End Set End Property _ - Public Property PASSWORD() As String + Public Property VEKTOR_DELIMITER() As String Get - 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 + Return CType(Me(Me.tableTBPM_KONFIGURATION.VEKTOR_DELIMITERColumn),String) End Get Set - Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value + Me(Me.tableTBPM_KONFIGURATION.VEKTOR_DELIMITERColumn) = value End Set End Property _ - Public Property BEMERKUNG() As String + Public Property ADMIN_PW() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) + Return CType(Me(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADMIN_PW in Tabelle TBPM_KONFIGURATION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value + Me(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) = value End Set End Property _ - Public Property AKTIV() As Boolean + Public Property ADMIN_SECURITY() As Boolean Get - Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) + Return CType(Me(Me.tableTBPM_KONFIGURATION.ADMIN_SECURITYColumn),Boolean) End Get Set - Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value + Me(Me.tableTBPM_KONFIGURATION.ADMIN_SECURITYColumn) = value End Set End Property _ - Public Property ERSTELLTWER() As String - Get - Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) - End Get - Set - Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value - End Set - End Property + Public Function IsLIZENZENNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) + End Function _ - Public Property ERSTELLTWANN() As Date - Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value - End Set - End Property + Public Sub SetLIZENZENNull() + Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property GEANDERTWER() As String - Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value - End Set - End Property + Public Function IsGEAENDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) + End Function _ - Public Property GEAENDERTWANN() As Date - Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value - End Set - End Property + Public Sub SetGEAENDERTWERNull() + Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property SYS_CONNECTION() As Boolean - Get - Return CType(Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn) = value - End Set - End Property + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) + End Function _ - 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 + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDATENBANKNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) + Public Function IsEMAIL_FROMNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) End Function _ - Public Sub SetDATENBANKNull() - Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull + Public Sub SetEMAIL_FROMNull() + Me(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsUSERNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) + Public Function IsEMAIL_SMTPNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) End Function _ - Public Sub SetUSERNAMENull() - Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull + Public Sub SetEMAIL_SMTPNull() + Me(Me.tableTBPM_KONFIGURATION.EMAIL_SMTPColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPASSWORDNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) + Public Function IsEMAIL_USERNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) End Function _ - Public Sub SetPASSWORDNull() - Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull + Public Sub SetEMAIL_USERNull() + Me(Me.tableTBPM_KONFIGURATION.EMAIL_USERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBEMERKUNGNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) + Public Function IsEMAIL_PWNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) End Function _ - Public Sub SetBEMERKUNGNull() - Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull + Public Sub SetEMAIL_PWNull() + Me(Me.tableTBPM_KONFIGURATION.EMAIL_PWColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsERSTELLTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) + Public Function IsEMAIL_REMINDER_HEADERNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) End Function _ - Public Sub SetERSTELLTWANNNull() - Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + Public Sub SetEMAIL_REMINDER_HEADERNull() + Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_HEADERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGEANDERTWERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) + Public Function IsEMAIL_REMINDER_FOOTERNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) End Function _ - Public Sub SetGEANDERTWERNull() - Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull + Public Sub SetEMAIL_REMINDER_FOOTERNull() + Me(Me.tableTBPM_KONFIGURATION.EMAIL_REMINDER_FOOTERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGEAENDERTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) + Public Function IsADMIN_PWNull() As Boolean + Return Me.IsNull(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) End Function _ - Public Sub SetGEAENDERTWANNNull() - Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + Public Sub SetADMIN_PWNull() + Me(Me.tableTBPM_KONFIGURATION.ADMIN_PWColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBPROFILE_USERRow + Partial Public Class TBDD_USERRow Inherits Global.System.Data.DataRow - Private tableTBPROFILE_USER As TBPROFILE_USERDataTable + Private tableTBDD_USER As TBDD_USERDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPROFILE_USER = CType(Me.Table,TBPROFILE_USERDataTable) + Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPROFILE_USER.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPROFILE_USER.GUIDColumn) = value + Me(Me.tableTBDD_USER.GUIDColumn) = value End Set End Property @@ -10227,13 +10191,13 @@ Partial Public Class DD_DMSLiteDataSet Public Property PRENAME() As String Get Try - Return CType(Me(Me.tableTBPROFILE_USER.PRENAMEColumn),String) + Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBPROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPROFILE_USER.PRENAMEColumn) = value + Me(Me.tableTBDD_USER.PRENAMEColumn) = value End Set End Property @@ -10242,13 +10206,13 @@ Partial Public Class DD_DMSLiteDataSet Public Property NAME() As String Get Try - Return CType(Me(Me.tableTBPROFILE_USER.NAMEColumn),String) + Return CType(Me(Me.tableTBDD_USER.NAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBPROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPROFILE_USER.NAMEColumn) = value + Me(Me.tableTBDD_USER.NAMEColumn) = value End Set End Property @@ -10256,10 +10220,10 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USERNAME() As String Get - Return CType(Me(Me.tableTBPROFILE_USER.USERNAMEColumn),String) + Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) End Get Set - Me(Me.tableTBPROFILE_USER.USERNAMEColumn) = value + Me(Me.tableTBDD_USER.USERNAMEColumn) = value End Set End Property @@ -10268,13 +10232,69 @@ Partial Public Class DD_DMSLiteDataSet Public Property EMAIL() As String Get Try - Return CType(Me(Me.tableTBPROFILE_USER.EMAILColumn),String) + Return CType(Me(Me.tableTBDD_USER.EMAILColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBPROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPROFILE_USER.EMAILColumn) = value + Me(Me.tableTBDD_USER.EMAILColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value End Set End Property @@ -10283,13 +10303,13 @@ Partial Public Class DD_DMSLiteDataSet Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableTBPROFILE_USER.COMMENTColumn),String) + Return CType(Me(Me.tableTBDD_USER.COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPROFILE_USER.COMMENTColumn) = value + Me(Me.tableTBDD_USER.COMMENTColumn) = value End Set End Property @@ -10298,1499 +10318,1537 @@ Partial Public Class DD_DMSLiteDataSet Public Property SHORTNAME() As String Get Try - Return CType(Me(Me.tableTBPROFILE_USER.SHORTNAMEColumn),String) + Return CType(Me(Me.tableTBDD_USER.SHORTNAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBPROFILE_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBDD_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPROFILE_USER.SHORTNAMEColumn) = value + Me(Me.tableTBDD_USER.SHORTNAMEColumn) = value End Set End Property _ Public Function IsPRENAMENull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_USER.PRENAMEColumn) + Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) End Function _ Public Sub SetPRENAMENull() - Me(Me.tableTBPROFILE_USER.PRENAMEColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_USER.NAMEColumn) + Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) End Function _ Public Sub SetNAMENull() - Me(Me.tableTBPROFILE_USER.NAMEColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEMAILNull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_USER.EMAILColumn) + Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) End Function _ Public Sub SetEMAILNull() - Me(Me.tableTBPROFILE_USER.EMAILColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_USER.COMMENTColumn) + Return Me.IsNull(Me.tableTBDD_USER.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() - Me(Me.tableTBPROFILE_USER.COMMENTColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSHORTNAMENull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_USER.SHORTNAMEColumn) + Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) End Function _ Public Sub SetSHORTNAMENull() - Me(Me.tableTBPROFILE_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBPM_PROFILE_FILESRow + Partial Public Class TBPM_TYPERow Inherits Global.System.Data.DataRow - Private tableTBPM_PROFILE_FILES As TBPM_PROFILE_FILESDataTable + Private tableTBPM_TYPE As TBPM_TYPEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPM_PROFILE_FILES = CType(Me.Table,TBPM_PROFILE_FILESDataTable) + Me.tableTBPM_TYPE = CType(Me.Table,TBPM_TYPEDataTable) End Sub _ - Public Property GUID() As Integer + Public Property GUID() As Short Get - Return CType(Me(Me.tableTBPM_PROFILE_FILES.GUIDColumn),Integer) + Return CType(Me(Me.tableTBPM_TYPE.GUIDColumn),Short) End Get Set - Me(Me.tableTBPM_PROFILE_FILES.GUIDColumn) = value + Me(Me.tableTBPM_TYPE.GUIDColumn) = value End Set End Property _ - Public Property FILE_PATH() As String + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBPM_TYPE.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBPM_TYPE.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPM_TYPE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPM_TYPE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPM_TYPE.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPM_TYPE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn),String) + Return CType(Me(Me.tableTBPM_TYPE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_PATH in Tabelle TBPM_PROFILE_FILES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_TYPE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) = value + Me(Me.tableTBPM_TYPE.CHANGED_WHOColumn) = value End Set End Property _ - Public Property DMS_ERSTELLT_DATE() As Date + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn),Date) + Return CType(Me(Me.tableTBPM_TYPE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DMS_ERSTELLT_DATE in Tabelle TBPM_PROFILE_FILES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_TYPE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) = value + Me(Me.tableTBPM_TYPE.CHANGED_WHENColumn) = value End Set End Property _ - Public Function IsFILE_PATHNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPM_TYPE.CHANGED_WHOColumn) End Function _ - Public Sub SetFILE_PATHNull() - Me(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPM_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDMS_ERSTELLT_DATENull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPM_TYPE.CHANGED_WHENColumn) End Function _ - Public Sub SetDMS_ERSTELLT_DATENull() - Me(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPM_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub + + _ + Public Function GetTBPM_PROFILERows() As TBPM_PROFILERow() + If (Me.Table.ChildRelations("FK_TBPM_PROFILE_TYPE1") Is Nothing) Then + Return New TBPM_PROFILERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_PROFILE_TYPE1")),TBPM_PROFILERow()) + End If + End Function End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBPM_PROFILERow + Partial Public Class TBPM_ERROR_LOGRow Inherits Global.System.Data.DataRow - Private tableTBPM_PROFILE As TBPM_PROFILEDataTable + Private tableTBPM_ERROR_LOG As TBPM_ERROR_LOGDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPM_PROFILE = CType(Me.Table,TBPM_PROFILEDataTable) + Me.tableTBPM_ERROR_LOG = CType(Me.Table,TBPM_ERROR_LOGDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPM_PROFILE.GUIDColumn),Integer) + Return CType(Me(Me.tableTBPM_ERROR_LOG.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE.GUIDColumn) = value + Me(Me.tableTBPM_ERROR_LOG.GUIDColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property PROFIL_ID() As Integer Get - Return CType(Me(Me.tableTBPM_PROFILE.NAMEColumn),String) + Return CType(Me(Me.tableTBPM_ERROR_LOG.PROFIL_IDColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE.NAMEColumn) = value + Me(Me.tableTBPM_ERROR_LOG.PROFIL_IDColumn) = value End Set End Property _ - Public Property TITLE() As String + Public Property ERROR_MSG() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.TITLEColumn),String) + Return CType(Me(Me.tableTBPM_ERROR_LOG.ERROR_MSGColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE.TITLEColumn) = value + Me(Me.tableTBPM_ERROR_LOG.ERROR_MSGColumn) = value End Set End Property _ - Public Property PRIORITY() As Integer + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.PRIORITYColumn),Integer) + Return CType(Me(Me.tableTBPM_ERROR_LOG.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE.PRIORITYColumn) = value + Me(Me.tableTBPM_ERROR_LOG.ADDED_WHOColumn) = value End Set End Property _ - Public Property DESCRIPTION() As String + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle TBPM_PROFILE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_ERROR_LOG.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = value + Me(Me.tableTBPM_ERROR_LOG.ADDED_WHENColumn) = value End Set End Property _ - Public Property ACTIVE() As Boolean + Public Property TBPM_PROFILERow() As TBPM_PROFILERow Get - Return CType(Me(Me.tableTBPM_PROFILE.ACTIVEColumn),Boolean) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_ERROR_LOG_PROFILE1")),TBPM_PROFILERow) End Get Set - Me(Me.tableTBPM_PROFILE.ACTIVEColumn) = value + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_ERROR_LOG_PROFILE1")) End Set End Property + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_CONNECTIONRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable _ - Public Property WD_SEARCH() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE.WD_SEARCHColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE.WD_SEARCHColumn) = value - End Set - End Property + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) + End Sub _ - Public Property NO_OF_DOCUMENTS() As Integer + Public Property GUID() As Short Get - Return CType(Me(Me.tableTBPM_PROFILE.NO_OF_DOCUMENTSColumn),Integer) + Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) End Get Set - Me(Me.tableTBPM_PROFILE.NO_OF_DOCUMENTSColumn) = value + Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property BEZEICHNUNG() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn),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 - Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn) = value + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property SQL_PROVIDER() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn),Date) + 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 - Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = value + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property SERVER() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn),String) + 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 CHANGED_WHO in Tabelle TBPM_PROFILE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) = value + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property DATENBANK() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn),Date) + 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 CHANGED_WHEN in Tabelle TBPM_PROFILE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) = value + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value End Set End Property _ - Public Property FINAL_PROFILE() As Boolean + Public Property USERNAME() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.FINAL_PROFILEColumn),Boolean) + 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 - Me(Me.tableTBPM_PROFILE.FINAL_PROFILEColumn) = value + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value End Set End Property _ - Public Property FINAL_TEXT() As String + Public Property PASSWORD() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FINAL_TEXT in Tabelle TBPM_PROFILE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) = value + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value End Set End Property _ - Public Property MOVE2FOLDER() As String + Public Property BEMERKUNG() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MOVE2FOLDER in Tabelle TBPM_PROFILE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) = value + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value End Set End Property _ - Public Property TYPE() As Short + Public Property AKTIV() As Boolean Get - Return CType(Me(Me.tableTBPM_PROFILE.TYPEColumn),Short) + Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE.TYPEColumn) = value + Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value End Set End Property _ - Public Property WD_OBJECTTYPE() As String + Public Property ERSTELLTWER() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.WD_OBJECTTYPEColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE.WD_OBJECTTYPEColumn) = value + Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value End Set End Property _ - Public Property SORT_BY_LATEST() As Boolean + Public Property ERSTELLTWANN() As Date Get - Return CType(Me(Me.tableTBPM_PROFILE.SORT_BY_LATESTColumn),Boolean) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.SORT_BY_LATESTColumn) = value + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value End Set End Property _ - Public Property PM_VEKTOR_INDEX() As String + Public Property GEANDERTWER() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn),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 - Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn) = value + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value End Set End Property _ - Public Property LOG_INDEX() As String + Public Property GEAENDERTWANN() As Date Get - Return CType(Me(Me.tableTBPM_PROFILE.LOG_INDEXColumn),String) + 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 - Me(Me.tableTBPM_PROFILE.LOG_INDEXColumn) = value + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value End Set End Property _ - Public Property SQL_VIEW() As String + Public Property SYS_CONNECTION() As Boolean Get - Return CType(Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn) = value + Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn) = value End Set End Property _ - Public Property ANNOTATE_ALL_WORK_HISTORY_ENTRIES() As Boolean - Get - Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn),Boolean) - End Get - Set - Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn) = value - End Set - End Property + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) + End Function _ - Public Property ANNOTATE_WORK_HISTORY_ENTRY() As Boolean - Get - Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn),Boolean) - End Get - Set - Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn) = value - End Set - End Property + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property WORK_HISTORY_ENTRY() As String - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORK_HISTORY_ENTRY in Tabelle TBPM_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = value - End Set - End Property + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) + End Function _ - Public Property DISPLAY_MODE() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE.DISPLAY_MODEColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE.DISPLAY_MODEColumn) = value - End Set - End Property + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property SQL_BTN_FINISH() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn) = value - End Set - End Property + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) + End Function _ - Public Property TBPM_TYPERow() As TBPM_TYPERow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_TYPE1")),TBPM_TYPERow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_PROFILE_TYPE1")) - End Set - End Property + Public Sub SetSERVERNull() + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function IsDESCRIPTIONNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) End Function _ - Public Sub SetDESCRIPTIONNull() - Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = Global.System.Convert.DBNull + Public Sub SetDATENBANKNull() + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetUSERNAMENull() + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetPASSWORDNull() + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFINAL_TEXTNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) End Function _ - Public Sub SetFINAL_TEXTNull() - Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) = Global.System.Convert.DBNull + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsMOVE2FOLDERNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) End Function _ - Public Sub SetMOVE2FOLDERNull() - Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) = Global.System.Convert.DBNull + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsWORK_HISTORY_ENTRYNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) End Function _ - Public Sub SetWORK_HISTORY_ENTRYNull() - Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = Global.System.Convert.DBNull + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function GetTBPM_ERROR_LOGRows() As TBPM_ERROR_LOGRow() - If (Me.Table.ChildRelations("FK_TBPM_ERROR_LOG_PROFILE1") Is Nothing) Then - Return New TBPM_ERROR_LOGRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_ERROR_LOG_PROFILE1")),TBPM_ERROR_LOGRow()) - End If + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) End Function _ - Public Function GetTBPM_PROFILE_CONTROLSRows() As TBPM_PROFILE_CONTROLSRow() - If (Me.Table.ChildRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1") Is Nothing) Then - Return New TBPM_PROFILE_CONTROLSRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")),TBPM_PROFILE_CONTROLSRow()) - End If - End Function + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBWH_CHECK_PROFILE_CONTROLSRow + Partial Public Class TBPROFILE_USERRow Inherits Global.System.Data.DataRow - Private tableTBWH_CHECK_PROFILE_CONTROLS As TBWH_CHECK_PROFILE_CONTROLSDataTable + Private tableTBPROFILE_USER As TBPROFILE_USERDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBWH_CHECK_PROFILE_CONTROLS = CType(Me.Table,TBWH_CHECK_PROFILE_CONTROLSDataTable) + Me.tableTBPROFILE_USER = CType(Me.Table,TBPROFILE_USERDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.GUIDColumn) = value - End Set - End Property - - _ - Public Property NAME() As String - Get - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.NAMEColumn),String) - End Get - Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.NAMEColumn) = value - End Set - End Property - - _ - Public Property CTRL_TYPE() As String - Get - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CTRL_TYPEColumn),String) + Return CType(Me(Me.tableTBPROFILE_USER.GUIDColumn),Integer) End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CTRL_TYPEColumn) = value + Me(Me.tableTBPROFILE_USER.GUIDColumn) = value End Set End Property _ - Public Property INDEX_NAME() As String + Public Property PRENAME() As String Get Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn),String) + Return CType(Me(Me.tableTBPROFILE_USER.PRENAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX_NAME in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull."& _ - "", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBPROFILE_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) = value + Me(Me.tableTBPROFILE_USER.PRENAMEColumn) = value End Set End Property _ - Public Property TYP() As String + Public Property NAME() As String Get Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn),String) + Return CType(Me(Me.tableTBPROFILE_USER.NAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBPROFILE_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) = value + Me(Me.tableTBPROFILE_USER.NAMEColumn) = value End Set End Property _ - Public Property VALIDATION() As Boolean + Public Property USERNAME() As String Get - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) + Return CType(Me(Me.tableTBPROFILE_USER.USERNAMEColumn),String) End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.VALIDATIONColumn) = value + Me(Me.tableTBPROFILE_USER.USERNAMEColumn) = value End Set End Property _ - Public Property CHOICE_LIST() As String + Public Property EMAIL() As String Get Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn),String) + Return CType(Me(Me.tableTBPROFILE_USER.EMAILColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull"& _ - ".", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBPROFILE_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) = value + Me(Me.tableTBPROFILE_USER.EMAILColumn) = value End Set End Property _ - Public Property CONNECTION_ID() As Short + Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn),Short) + Return CType(Me(Me.tableTBPROFILE_USER.COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNu"& _ - "ll.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPROFILE_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) = value + Me(Me.tableTBPROFILE_USER.COMMENTColumn) = value End Set End Property _ - Public Property SQL_UEBERPRUEFUNG() As String + Public Property SHORTNAME() As String Get Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn),String) + Return CType(Me(Me.tableTBPROFILE_USER.SHORTNAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_UEBERPRUEFUNG in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist "& _ - "DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBPROFILE_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = value + Me(Me.tableTBPROFILE_USER.SHORTNAMEColumn) = value End Set End Property _ - Public Function IsINDEX_NAMENull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_USER.PRENAMEColumn) End Function _ - Public Sub SetINDEX_NAMENull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull + Public Sub SetPRENAMENull() + Me(Me.tableTBPROFILE_USER.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsTYPNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_USER.NAMEColumn) End Function _ - Public Sub SetTYPNull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull + Public Sub SetNAMENull() + Me(Me.tableTBPROFILE_USER.NAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHOICE_LISTNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) + Public Function IsEMAILNull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_USER.EMAILColumn) End Function _ - Public Sub SetCHOICE_LISTNull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull + Public Sub SetEMAILNull() + Me(Me.tableTBPROFILE_USER.EMAILColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCONNECTION_IDNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_USER.COMMENTColumn) End Function _ - Public Sub SetCONNECTION_IDNull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull + Public Sub SetCOMMENTNull() + Me(Me.tableTBPROFILE_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) + Public Function IsSHORTNAMENull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_USER.SHORTNAMEColumn) End Function _ - Public Sub SetSQL_UEBERPRUEFUNGNull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull + Public Sub SetSHORTNAMENull() + Me(Me.tableTBPROFILE_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub - - _ - Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow() - If (Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL") Is Nothing) Then - Return New TBPM_CONTROL_TABLERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL")),TBPM_CONTROL_TABLERow()) - End If - End Function End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBPM_PROFILE_CONTROLSRow + Partial Public Class TBPM_PROFILE_FILESRow Inherits Global.System.Data.DataRow - Private tableTBPM_PROFILE_CONTROLS As TBPM_PROFILE_CONTROLSDataTable + Private tableTBPM_PROFILE_FILES As TBPM_PROFILE_FILESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPM_PROFILE_CONTROLS = CType(Me.Table,TBPM_PROFILE_CONTROLSDataTable) + Me.tableTBPM_PROFILE_FILES = CType(Me.Table,TBPM_PROFILE_FILESDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.GUIDColumn),Integer) + Return CType(Me(Me.tableTBPM_PROFILE_FILES.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.GUIDColumn) = value + Me(Me.tableTBPM_PROFILE_FILES.GUIDColumn) = value End Set End Property _ - Public Property PROFIL_ID() As Integer + Public Property FILE_PATH() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.PROFIL_IDColumn),Integer) + Try + Return CType(Me(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_PATH in Tabelle TBPM_PROFILE_FILES ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.PROFIL_IDColumn) = value + Me(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property DMS_ERSTELLT_DATE() As Date Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.NAMEColumn),String) + Try + Return CType(Me(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DMS_ERSTELLT_DATE in Tabelle TBPM_PROFILE_FILES ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.NAMEColumn) = value + Me(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) = value End Set End Property _ - Public Property CTRL_TYPE() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TYPEColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TYPEColumn) = value - End Set - End Property + Public Function IsFILE_PATHNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) + End Function _ - Public Property CTRL_TEXT() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn) = value - End Set - End Property + Public Sub SetFILE_PATHNull() + Me(Me.tableTBPM_PROFILE_FILES.FILE_PATHColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property X_LOC() As Double + Public Function IsDMS_ERSTELLT_DATENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) + End Function + + _ + Public Sub SetDMS_ERSTELLT_DATENull() + Me(Me.tableTBPM_PROFILE_FILES.DMS_ERSTELLT_DATEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPM_PROFILERow + Inherits Global.System.Data.DataRow + + Private tableTBPM_PROFILE As TBPM_PROFILEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPM_PROFILE = CType(Me.Table,TBPM_PROFILEDataTable) + End Sub + + _ + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.X_LOCColumn),Double) + Return CType(Me(Me.tableTBPM_PROFILE.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.X_LOCColumn) = value + Me(Me.tableTBPM_PROFILE.GUIDColumn) = value End Set End Property _ - Public Property Y_LOC() As Double + Public Property NAME() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.Y_LOCColumn),Double) + Return CType(Me(Me.tableTBPM_PROFILE.NAMEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.Y_LOCColumn) = value + Me(Me.tableTBPM_PROFILE.NAMEColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property TITLE() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE.TITLEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHOColumn) = value + Me(Me.tableTBPM_PROFILE.TITLEColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property PRIORITY() As Integer Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBPM_PROFILE.PRIORITYColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHENColumn) = value + Me(Me.tableTBPM_PROFILE.PRIORITYColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property DESCRIPTION() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle TBPM_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) = value + Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property ACTIVE() As Boolean Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) = value + Me(Me.tableTBPM_PROFILE.ACTIVEColumn) = value End Set End Property _ - Public Property INDEX_NAME() As String + Public Property WD_SEARCH() As String Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX_NAME in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.WD_SEARCHColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) = value + Me(Me.tableTBPM_PROFILE.WD_SEARCHColumn) = value End Set End Property _ - Public Property TYP() As String + Public Property NO_OF_DOCUMENTS() As Integer Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.NO_OF_DOCUMENTSColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) = value + Me(Me.tableTBPM_PROFILE.NO_OF_DOCUMENTSColumn) = value End Set End Property _ - Public Property VALIDATION() As Boolean + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.VALIDATIONColumn) = value + Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn) = value End Set End Property _ - Public Property CHOICE_LIST() As String + Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) = value + Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = value End Set End Property _ - Public Property CONNECTION_ID() As Short + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn),Short) + Return CType(Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) = value + Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) = value End Set End Property _ - Public Property SQL_UEBERPRUEFUNG() As String + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_UEBERPRUEFUNG in Tabelle TBPM_PROFILE_CONTROLS ist DBNull"& _ - ".", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = value + Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) = value End Set End Property _ - Public Property HEIGHT() As Short + Public Property FINAL_PROFILE() As Boolean Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.HEIGHTColumn),Short) + Return CType(Me(Me.tableTBPM_PROFILE.FINAL_PROFILEColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.HEIGHTColumn) = value + Me(Me.tableTBPM_PROFILE.FINAL_PROFILEColumn) = value End Set End Property _ - Public Property WIDTH() As Short + Public Property FINAL_TEXT() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.WIDTHColumn),Short) + Try + Return CType(Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FINAL_TEXT in Tabelle TBPM_PROFILE ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.WIDTHColumn) = value + Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) = value End Set End Property _ - Public Property FONT_STYLE() As Short + Public Property MOVE2FOLDER() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn),Short) + Return CType(Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_STYLE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MOVE2FOLDER in Tabelle TBPM_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) = value + Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) = value End Set End Property _ - Public Property FONT_SIZE() As Short + Public Property TYPE() As Short Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn),Short) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_SIZE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.TYPEColumn),Short) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) = value + Me(Me.tableTBPM_PROFILE.TYPEColumn) = value End Set End Property _ - Public Property FONT_FAMILY() As String + Public Property WD_OBJECTTYPE() As String Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_FAMILY in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.WD_OBJECTTYPEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) = value + Me(Me.tableTBPM_PROFILE.WD_OBJECTTYPEColumn) = value End Set End Property _ - Public Property FONT_COLOR() As Long + Public Property SORT_BY_LATEST() As Boolean Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_COLOR in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.SORT_BY_LATESTColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) = value + Me(Me.tableTBPM_PROFILE.SORT_BY_LATESTColumn) = value End Set End Property _ - Public Property READ_ONLY() As Boolean + Public Property PM_VEKTOR_INDEX() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.READ_ONLYColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.READ_ONLYColumn) = value + Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn) = value End Set End Property _ - Public Property LOAD_IDX_VALUE() As Boolean + Public Property LOG_INDEX() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.LOAD_IDX_VALUEColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE.LOG_INDEXColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.LOAD_IDX_VALUEColumn) = value + Me(Me.tableTBPM_PROFILE.LOG_INDEXColumn) = value End Set End Property _ - Public Property DEFAULT_VALUE() As String - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DEFAULT_VALUE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) = value - End Set - End Property - - _ - Public Property MULTISELECT() As Boolean + Public Property SQL_VIEW() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.MULTISELECTColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.MULTISELECTColumn) = value + Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn) = value End Set End Property _ - Public Property VKT_ADD_ITEM() As Boolean + Public Property ANNOTATE_ALL_WORK_HISTORY_ENTRIES() As Boolean Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_ADD_ITEMColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_ADD_ITEMColumn) = value + Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn) = value End Set End Property _ - Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean + Public Property ANNOTATE_WORK_HISTORY_ENTRY() As Boolean Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_PREVENT_MULTIPLE_VALUESColumn) = value + Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn) = value End Set End Property _ - Public Property REGEX_MATCH() As String + Public Property WORK_HISTORY_ENTRY() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte REGEX_MATCH in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORK_HISTORY_ENTRY in Tabelle TBPM_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) = value - End Set - End Property - - _ - Public Property REGEX_MESSAGE_DE() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_DEColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_DEColumn) = value - End Set - End Property - - _ - Public Property REGEX_MESSAGE_EN() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_ENColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_ENColumn) = value + Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = value End Set End Property _ - Public Property IMAGE_CONTROL() As Byte() + Public Property DISPLAY_MODE() As String Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn),Byte()) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMAGE_CONTROL in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.DISPLAY_MODEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn) = value + Me(Me.tableTBPM_PROFILE.DISPLAY_MODEColumn) = value End Set End Property _ - Public Property SQL2() As String + Public Property SQL_BTN_FINISH() As String Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL2 in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column) = value + Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn) = value End Set End Property _ - Public Property SQL_ENABLE() As String + Public Property TBPM_TYPERow() As TBPM_TYPERow Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_ENABLE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_TYPE1")),TBPM_TYPERow) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn) = value + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_PROFILE_TYPE1")) End Set End Property _ - Public Property SET_CONTROL_DATA() As String - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SET_CONTROL_DATA in Tabelle TBPM_PROFILE_CONTROLS ist DBNull."& _ - "", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn) = value - End Set - End Property + Public Function IsDESCRIPTIONNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) + End Function _ - Public Property TBPM_PROFILERow() As TBPM_PROFILERow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")),TBPM_PROFILERow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")) - End Set - End Property + Public Sub SetDESCRIPTIONNull() + Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = Global.System.Convert.DBNull + End Sub _ Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsINDEX_NAMENull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) + Public Function IsFINAL_TEXTNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) End Function _ - Public Sub SetINDEX_NAMENull() - Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull + Public Sub SetFINAL_TEXTNull() + Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsTYPNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) + Public Function IsMOVE2FOLDERNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) End Function _ - Public Sub SetTYPNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull + Public Sub SetMOVE2FOLDERNull() + Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHOICE_LISTNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) + Public Function IsWORK_HISTORY_ENTRYNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) End Function _ - Public Sub SetCHOICE_LISTNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull + Public Sub SetWORK_HISTORY_ENTRYNull() + Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCONNECTION_IDNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) + Public Function GetTBPM_ERROR_LOGRows() As TBPM_ERROR_LOGRow() + If (Me.Table.ChildRelations("FK_TBPM_ERROR_LOG_PROFILE1") Is Nothing) Then + Return New TBPM_ERROR_LOGRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_ERROR_LOG_PROFILE1")),TBPM_ERROR_LOGRow()) + End If End Function _ - Public Sub SetCONNECTION_IDNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) + Public Function GetTBPM_PROFILE_CONTROLSRows() As TBPM_PROFILE_CONTROLSRow() + If (Me.Table.ChildRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1") Is Nothing) Then + Return New TBPM_PROFILE_CONTROLSRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")),TBPM_PROFILE_CONTROLSRow()) + End If End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_CHECK_PROFILE_CONTROLSRow + Inherits Global.System.Data.DataRow + + Private tableTBWH_CHECK_PROFILE_CONTROLS As TBWH_CHECK_PROFILE_CONTROLSDataTable _ - Public Sub SetSQL_UEBERPRUEFUNGNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_CHECK_PROFILE_CONTROLS = CType(Me.Table,TBWH_CHECK_PROFILE_CONTROLSDataTable) End Sub _ - Public Function IsFONT_STYLENull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) - End Function + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.GUIDColumn) = value + End Set + End Property _ - Public Sub SetFONT_STYLENull() - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) = Global.System.Convert.DBNull - End Sub + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.NAMEColumn),String) + End Get + Set + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.NAMEColumn) = value + End Set + End Property _ - Public Function IsFONT_SIZENull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) - End Function + Public Property CTRL_TYPE() As String + Get + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CTRL_TYPEColumn),String) + End Get + Set + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CTRL_TYPEColumn) = value + End Set + End Property _ - Public Sub SetFONT_SIZENull() - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) = Global.System.Convert.DBNull - End Sub + Public Property INDEX_NAME() As String + Get + Try + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX_NAME in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) = value + End Set + End Property _ - Public Function IsFONT_FAMILYNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) - End Function + Public Property TYP() As String + Get + Try + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) = value + End Set + End Property _ - Public Sub SetFONT_FAMILYNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFONT_COLORNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) - End Function + Public Property VALIDATION() As Boolean + Get + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) + End Get + Set + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.VALIDATIONColumn) = value + End Set + End Property _ - Public Sub SetFONT_COLORNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) = Global.System.Convert.DBNull - End Sub + Public Property CHOICE_LIST() As String + Get + Try + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) = value + End Set + End Property _ - Public Function IsDEFAULT_VALUENull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) - End Function + Public Property CONNECTION_ID() As Short + Get + Try + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) = value + End Set + End Property _ - Public Sub SetDEFAULT_VALUENull() - Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) = Global.System.Convert.DBNull - End Sub + Public Property SQL_UEBERPRUEFUNG() As String + Get + Try + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_UEBERPRUEFUNG in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = value + End Set + End Property _ - Public Function IsREGEX_MATCHNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) + Public Function IsINDEX_NAMENull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) End Function _ - Public Sub SetREGEX_MATCHNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) = Global.System.Convert.DBNull + Public Sub SetINDEX_NAMENull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsIMAGE_CONTROLNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn) + Public Function IsTYPNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) End Function _ - Public Sub SetIMAGE_CONTROLNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn) = Global.System.Convert.DBNull + Public Sub SetTYPNull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSQL2Null() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column) + Public Function IsCHOICE_LISTNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) End Function _ - Public Sub SetSQL2Null() - Me(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column) = Global.System.Convert.DBNull + Public Sub SetCHOICE_LISTNull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSQL_ENABLENull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn) + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) End Function _ - Public Sub SetSQL_ENABLENull() - Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn) = Global.System.Convert.DBNull + Public Sub SetCONNECTION_IDNull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSET_CONTROL_DATANull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn) + Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) End Function _ - Public Sub SetSET_CONTROL_DATANull() - Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn) = Global.System.Convert.DBNull + Public Sub SetSQL_UEBERPRUEFUNGNull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow() - If (Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL1") Is Nothing) Then + If (Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL") Is Nothing) Then Return New TBPM_CONTROL_TABLERow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL1")),TBPM_CONTROL_TABLERow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL")),TBPM_CONTROL_TABLERow()) End If End Function End Class @@ -11798,1092 +11856,1138 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBPM_CONTROL_TABLERow + Partial Public Class TBPM_PROFILE_CONTROLSRow Inherits Global.System.Data.DataRow - Private tableTBPM_CONTROL_TABLE As TBPM_CONTROL_TABLEDataTable + Private tableTBPM_PROFILE_CONTROLS As TBPM_PROFILE_CONTROLSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPM_CONTROL_TABLE = CType(Me.Table,TBPM_CONTROL_TABLEDataTable) + Me.tableTBPM_PROFILE_CONTROLS = CType(Me.Table,TBPM_PROFILE_CONTROLSDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.GUIDColumn),Integer) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.GUIDColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.GUIDColumn) = value End Set End Property _ - Public Property CONTROL_ID() As Integer + Public Property PROFIL_ID() As Integer Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CONTROL_IDColumn),Integer) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.PROFIL_IDColumn),Integer) End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.CONTROL_IDColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.PROFIL_IDColumn) = value End Set End Property _ - Public Property SPALTENNAME() As String + Public Property NAME() As String Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTENNAMEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.NAMEColumn),String) End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.SPALTENNAMEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.NAMEColumn) = value End Set End Property _ - Public Property SPALTEN_HEADER() As String + Public Property CTRL_TYPE() As String Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTEN_HEADERColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TYPEColumn),String) End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.SPALTEN_HEADERColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TYPEColumn) = value End Set End Property _ - Public Property SPALTENBREITE() As Integer + Public Property CTRL_TEXT() As String Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTENBREITEColumn),Integer) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn),String) End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.SPALTENBREITEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn) = value End Set End Property _ - Public Property VALIDATION() As Boolean + Public Property X_LOC() As Double Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.VALIDATIONColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.X_LOCColumn),Double) End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.VALIDATIONColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.X_LOCColumn) = value End Set End Property _ - Public Property CHOICE_LIST() As String + Public Property Y_LOC() As Double Get - Try - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.Y_LOCColumn),Double) End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.Y_LOCColumn) = value End Set End Property _ - Public Property CONNECTION_ID() As Short + Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn),Short) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHOColumn) = value End Set End Property _ - Public Property SQL_COMMAND() As String + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_COMMAND in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) = value End Set End Property _ - Public Property READ_ONLY() As Boolean + Public Property CHANGED_WHEN() As Date Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.READ_ONLYColumn),Boolean) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.READ_ONLYColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) = value End Set End Property _ - Public Property LOAD_IDX_VALUE() As Boolean + Public Property INDEX_NAME() As String Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.LOAD_IDX_VALUEColumn),Boolean) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX_NAME in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.LOAD_IDX_VALUEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property TYP() As String Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHOColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property VALIDATION() As Boolean Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHENColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.VALIDATIONColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property CHOICE_LIST() As String Get Try - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property CONNECTION_ID() As Short Get Try - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn),Short) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) = value End Set End Property _ - Public Property REGEX_MATCH() As String + Public Property SQL_UEBERPRUEFUNG() As String Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MATCHColumn),String) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_UEBERPRUEFUNG in Tabelle TBPM_PROFILE_CONTROLS ist DBNull"& _ + ".", e) + End Try End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MATCHColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = value End Set End Property _ - Public Property REGEX_MESSAGE_EN() As String + Public Property HEIGHT() As Short Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_ENColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.HEIGHTColumn),Short) End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_ENColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.HEIGHTColumn) = value End Set End Property _ - Public Property REGEX_MESSAGE_DE() As String + Public Property WIDTH() As Short Get - Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_DEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.WIDTHColumn),Short) End Get Set - Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_DEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.WIDTHColumn) = value End Set End Property _ - Public Property TBPM_PROFILE_CONTROLSRow() As TBPM_PROFILE_CONTROLSRow + Public Property FONT_STYLE() As Short Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL1")),TBPM_PROFILE_CONTROLSRow) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_STYLE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL1")) + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) = value End Set End Property _ - Public Property TBWH_CHECK_PROFILE_CONTROLSRow() As TBWH_CHECK_PROFILE_CONTROLSRow + Public Property FONT_SIZE() As Short Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL")),TBWH_CHECK_PROFILE_CONTROLSRow) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_SIZE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL")) + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) = value End Set End Property _ - Public Function IsCHOICE_LISTNull() As Boolean - Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) - End Function - - _ - Public Sub SetCHOICE_LISTNull() - Me(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCONNECTION_IDNull() As Boolean - Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) - End Function - - _ - Public Sub SetCONNECTION_IDNull() - Me(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSQL_COMMANDNull() As Boolean - Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) - End Function - - _ - Public Sub SetSQL_COMMANDNull() - Me(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) - End Function + Public Property FONT_FAMILY() As String + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_FAMILY in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) = value + End Set + End Property _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub + Public Property FONT_COLOR() As Long + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_COLOR in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) = value + End Set + End Property _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) - End Function + Public Property READ_ONLY() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.READ_ONLYColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.READ_ONLYColumn) = value + End Set + End Property _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBDD_GROUPSRow - Inherits Global.System.Data.DataRow - - Private tableTBDD_GROUPS As TBDD_GROUPSDataTable + Public Property LOAD_IDX_VALUE() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.LOAD_IDX_VALUEColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.LOAD_IDX_VALUEColumn) = value + End Set + End Property _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable) - End Sub + Public Property DEFAULT_VALUE() As String + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DEFAULT_VALUE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) = value + End Set + End Property _ - Public Property GUID() As Integer + Public Property MULTISELECT() As Boolean Get - Return CType(Me(Me.tableTBDD_GROUPS.GUIDColumn),Integer) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.MULTISELECTColumn),Boolean) End Get Set - Me(Me.tableTBDD_GROUPS.GUIDColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.MULTISELECTColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property VKT_ADD_ITEM() As Boolean Get - Try - Return CType(Me(Me.tableTBDD_GROUPS.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_GROUPS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_ADD_ITEMColumn),Boolean) End Get Set - Me(Me.tableTBDD_GROUPS.NAMEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_ADD_ITEMColumn) = value End Set End Property _ - Public Property ECM_FK_ID() As Integer + Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean Get - Return CType(Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn),Integer) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean) End Get Set - Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_PREVENT_MULTIPLE_VALUESColumn) = value End Set End Property _ - Public Property AD_SYNC() As Boolean + Public Property REGEX_MATCH() As String Get - Return CType(Me(Me.tableTBDD_GROUPS.AD_SYNCColumn),Boolean) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte REGEX_MATCH in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_GROUPS.AD_SYNCColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) = value End Set End Property _ - Public Property INTERNAL() As Boolean + Public Property REGEX_MESSAGE_DE() As String Get - Return CType(Me(Me.tableTBDD_GROUPS.INTERNALColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_DEColumn),String) End Get Set - Me(Me.tableTBDD_GROUPS.INTERNALColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_DEColumn) = value End Set End Property _ - Public Property ACTIVE() As Boolean + Public Property REGEX_MESSAGE_EN() As String Get - Return CType(Me(Me.tableTBDD_GROUPS.ACTIVEColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_ENColumn),String) End Get Set - Me(Me.tableTBDD_GROUPS.ACTIVEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_ENColumn) = value End Set End Property _ - Public Property COMMENT() As String + Public Property IMAGE_CONTROL() As Byte() Get Try - Return CType(Me(Me.tableTBDD_GROUPS.COMMENTColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn),Byte()) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_GROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMAGE_CONTROL in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS.COMMENTColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property SQL2() As String Get Try - Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL2 in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property SQL_ENABLE() As String Get Try - Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_ENABLE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property SET_CONTROL_DATA() As String Get Try - Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SET_CONTROL_DATA in Tabelle TBPM_PROFILE_CONTROLS ist DBNull."& _ + "", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property TBPM_PROFILERow() As TBPM_PROFILERow Get - Try - Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) - End Try + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")),TBPM_PROFILERow) End Get Set - Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = value + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")) End Set End Property _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) End Function _ - Public Sub SetNAMENull() - Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.COMMENTColumn) + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBDD_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn) + Public Function IsINDEX_NAMENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) End Function _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetINDEX_NAMENull() + Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn) + Public Function IsTYPNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetTYPNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) + Public Function IsCHOICE_LISTNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetCHOICE_LISTNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetCONNECTION_IDNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBPROFILE_GROUPRow - Inherits Global.System.Data.DataRow - Private tableTBPROFILE_GROUP As TBPROFILE_GROUPDataTable + _ + Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) + End Function _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPROFILE_GROUP = CType(Me.Table,TBPROFILE_GROUPDataTable) + Public Sub SetSQL_UEBERPRUEFUNGNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull End Sub _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBPROFILE_GROUP.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBPROFILE_GROUP.GUIDColumn) = value - End Set - End Property + Public Function IsFONT_STYLENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) + End Function _ - Public Property NAME() As String - Get - Try - Return CType(Me(Me.tableTBPROFILE_GROUP.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBPROFILE_GROUP ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPROFILE_GROUP.NAMEColumn) = value - End Set - End Property + Public Sub SetFONT_STYLENull() + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property ACTIVE() As Boolean - Get - Return CType(Me(Me.tableTBPROFILE_GROUP.ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableTBPROFILE_GROUP.ACTIVEColumn) = value - End Set - End Property + Public Function IsFONT_SIZENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) + End Function _ - Public Property COMMENT() As String - Get - Try - Return CType(Me(Me.tableTBPROFILE_GROUP.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPROFILE_GROUP ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPROFILE_GROUP.COMMENTColumn) = value - End Set - End Property + Public Sub SetFONT_SIZENull() + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property ADDED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPROFILE_GROUP ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) = value - End Set - End Property + Public Function IsFONT_FAMILYNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) + End Function _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPROFILE_GROUP ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) = value - End Set - End Property + Public Sub SetFONT_FAMILYNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPROFILE_GROUP ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) = value - End Set - End Property + Public Function IsFONT_COLORNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) + End Function _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPROFILE_GROUP ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) = value - End Set - End Property + Public Sub SetFONT_COLORNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_GROUP.NAMEColumn) + Public Function IsDEFAULT_VALUENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) End Function _ - Public Sub SetNAMENull() - Me(Me.tableTBPROFILE_GROUP.NAMEColumn) = Global.System.Convert.DBNull + Public Sub SetDEFAULT_VALUENull() + Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_GROUP.COMMENTColumn) + Public Function IsREGEX_MATCHNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBPROFILE_GROUP.COMMENTColumn) = Global.System.Convert.DBNull + Public Sub SetREGEX_MATCHNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) + Public Function IsIMAGE_CONTROLNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn) End Function _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetIMAGE_CONTROLNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) + Public Function IsSQL2Null() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column) End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetSQL2Null() + Me(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) + Public Function IsSQL_ENABLENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetSQL_ENABLENull() + Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) + Public Function IsSET_CONTROL_DATANull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn) End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetSET_CONTROL_DATANull() + Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn) = Global.System.Convert.DBNull End Sub + + _ + Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow() + If (Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL1") Is Nothing) Then + Return New TBPM_CONTROL_TABLERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL1")),TBPM_CONTROL_TABLERow()) + End If + End Function End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class FNPM_GET_FREE_USER_FOR_PROFILERow + Partial Public Class TBPM_CONTROL_TABLERow Inherits Global.System.Data.DataRow - Private tableFNPM_GET_FREE_USER_FOR_PROFILE As FNPM_GET_FREE_USER_FOR_PROFILEDataTable + Private tableTBPM_CONTROL_TABLE As TBPM_CONTROL_TABLEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableFNPM_GET_FREE_USER_FOR_PROFILE = CType(Me.Table,FNPM_GET_FREE_USER_FOR_PROFILEDataTable) + Me.tableTBPM_CONTROL_TABLE = CType(Me.Table,TBPM_CONTROL_TABLEDataTable) End Sub _ - Public Property SequentialOrder() As Integer + Public Property GUID() As Integer Get - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.SequentialOrderColumn),Integer) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.GUIDColumn),Integer) End Get Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.SequentialOrderColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.GUIDColumn) = value End Set End Property _ - Public Property USER_ID() As Integer + Public Property CONTROL_ID() As Integer Get - Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn),Integer) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_ID in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNull."& _ - "", e) - End Try + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CONTROL_IDColumn),Integer) End Get Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.CONTROL_IDColumn) = value End Set End Property _ - Public Property USER_NAME() As String + Public Property SPALTENNAME() As String Get - Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_NAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNul"& _ - "l.", e) - End Try + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTENNAMEColumn),String) End Get Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.SPALTENNAMEColumn) = value End Set End Property _ - Public Property USER_PRENAME() As String + Public Property SPALTEN_HEADER() As String Get - Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_PRENAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ - "Null.", e) - End Try + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTEN_HEADERColumn),String) End Get Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.SPALTEN_HEADERColumn) = value End Set End Property _ - Public Property USER_SURNAME() As String + Public Property SPALTENBREITE() As Integer Get - Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_SURNAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ - "Null.", e) - End Try + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SPALTENBREITEColumn),Integer) End Get Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.SPALTENBREITEColumn) = value End Set End Property _ - Public Property USER_SHORTNAME() As String + Public Property VALIDATION() As Boolean + Get + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.VALIDATIONColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_CONTROL_TABLE.VALIDATIONColumn) = value + End Set + End Property + + _ + Public Property CHOICE_LIST() As String Get Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn),String) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_SHORTNAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist "& _ - "DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) End Try End Get Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) = value End Set End Property _ - Public Property USER_EMAIL() As String + Public Property CONNECTION_ID() As Short Get Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn),String) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn),Short) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_EMAIL in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNu"& _ - "ll.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) End Try End Get Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) = value End Set End Property _ - Public Property USER_LANGUAGE() As String + Public Property SQL_COMMAND() As String Get Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn),String) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_LANGUAGE in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist D"& _ - "BNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_COMMAND in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) End Try End Get Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) = value End Set End Property _ - Public Property USER_COMMENT() As String + Public Property READ_ONLY() As Boolean + Get + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.READ_ONLYColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_CONTROL_TABLE.READ_ONLYColumn) = value + End Set + End Property + + _ + Public Property LOAD_IDX_VALUE() As Boolean + Get + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.LOAD_IDX_VALUEColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_CONTROL_TABLE.LOAD_IDX_VALUEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPM_CONTROL_TABLE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn),String) + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_COMMENT in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ - "Null.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) End Try End Get Set - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) = value + Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) = value End Set End Property _ - Public Function IsUSER_IDNull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) - End Function + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) = value + End Set + End Property _ - Public Sub SetUSER_IDNull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) = Global.System.Convert.DBNull - End Sub + Public Property REGEX_MATCH() As String + Get + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MATCHColumn),String) + End Get + Set + Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MATCHColumn) = value + End Set + End Property _ - Public Function IsUSER_NAMENull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) - End Function + Public Property REGEX_MESSAGE_EN() As String + Get + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_ENColumn),String) + End Get + Set + Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_ENColumn) = value + End Set + End Property _ - Public Sub SetUSER_NAMENull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Property REGEX_MESSAGE_DE() As String + Get + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_DEColumn),String) + End Get + Set + Me(Me.tableTBPM_CONTROL_TABLE.REGEX_MESSAGE_DEColumn) = value + End Set + End Property _ - Public Function IsUSER_PRENAMENull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) - End Function + Public Property TBPM_PROFILE_CONTROLSRow() As TBPM_PROFILE_CONTROLSRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL1")),TBPM_PROFILE_CONTROLSRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL1")) + End Set + End Property _ - Public Sub SetUSER_PRENAMENull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Property TBWH_CHECK_PROFILE_CONTROLSRow() As TBWH_CHECK_PROFILE_CONTROLSRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL")),TBWH_CHECK_PROFILE_CONTROLSRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_CONTROL_TABLE_CONTROL")) + End Set + End Property _ - Public Function IsUSER_SURNAMENull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) + Public Function IsCHOICE_LISTNull() As Boolean + Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) End Function _ - Public Sub SetUSER_SURNAMENull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) = Global.System.Convert.DBNull + Public Sub SetCHOICE_LISTNull() + Me(Me.tableTBPM_CONTROL_TABLE.CHOICE_LISTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsUSER_SHORTNAMENull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) End Function _ - Public Sub SetUSER_SHORTNAMENull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) = Global.System.Convert.DBNull + Public Sub SetCONNECTION_IDNull() + Me(Me.tableTBPM_CONTROL_TABLE.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsUSER_EMAILNull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) + Public Function IsSQL_COMMANDNull() As Boolean + Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) End Function _ - Public Sub SetUSER_EMAILNull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) = Global.System.Convert.DBNull + Public Sub SetSQL_COMMANDNull() + Me(Me.tableTBPM_CONTROL_TABLE.SQL_COMMANDColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsUSER_LANGUAGENull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) End Function _ - Public Sub SetUSER_LANGUAGENull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsUSER_COMMENTNull() As Boolean - Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) End Function _ - Public Sub SetUSER_COMMENTNull() - Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_EMAIL_TEMPLATERow + Partial Public Class TBDD_GROUPSRow Inherits Global.System.Data.DataRow - Private tableTBDD_EMAIL_TEMPLATE As TBDD_EMAIL_TEMPLATEDataTable + Private tableTBDD_GROUPS As TBDD_GROUPSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_EMAIL_TEMPLATE = CType(Me.Table,TBDD_EMAIL_TEMPLATEDataTable) + Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_GROUPS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_EMAIL_TEMPLATE.GUIDColumn) = value + Me(Me.tableTBDD_GROUPS.GUIDColumn) = value End Set End Property _ - Public Property TITLE() As String + Public Property NAME() As String Get - Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.TITLEColumn),String) + Try + Return CType(Me(Me.tableTBDD_GROUPS.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_EMAIL_TEMPLATE.TITLEColumn) = value + Me(Me.tableTBDD_GROUPS.NAMEColumn) = value End Set End Property _ - Public Property EMAIL_SUBJECT() As String + Public Property ECM_FK_ID() As Integer Get - Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_SUBJECTColumn),String) + Return CType(Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_SUBJECTColumn) = value + Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn) = value End Set End Property _ - Public Property EMAIL_BODY1() As String + Public Property AD_SYNC() As Boolean Get - Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY1Column),String) + Return CType(Me(Me.tableTBDD_GROUPS.AD_SYNCColumn),Boolean) End Get Set - Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY1Column) = value + Me(Me.tableTBDD_GROUPS.AD_SYNCColumn) = value End Set End Property _ - Public Property EMAIL_BODY2() As String + Public Property INTERNAL() As Boolean Get - Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY2Column),String) + Return CType(Me(Me.tableTBDD_GROUPS.INTERNALColumn),Boolean) End Get Set - Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY2Column) = value + Me(Me.tableTBDD_GROUPS.INTERNALColumn) = value End Set End Property _ - Public Property EMAIL_BODY3() As String + Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY3Column),String) + Return CType(Me(Me.tableTBDD_GROUPS.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY3Column) = value + Me(Me.tableTBDD_GROUPS.ACTIVEColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property COMMENT() As String Get - Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBDD_GROUPS.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHOColumn) = value + Me(Me.tableTBDD_GROUPS.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = value End Set End Property @@ -12892,13 +12996,13 @@ Partial Public Class DD_DMSLiteDataSet Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_EMAIL_TEMPLATE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn) = value + Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = value End Set End Property @@ -12907,13 +13011,13 @@ Partial Public Class DD_DMSLiteDataSet Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_EMAIL_TEMPLATE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn) = value + Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = value End Set End Property @@ -12922,213 +13026,168 @@ Partial Public Class DD_DMSLiteDataSet Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_EMAIL_TEMPLATE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn) = value + Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = value End Set End Property _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn) + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn) End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetNAMENull() + Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn) + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.COMMENTColumn) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn) + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn) End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHONull() + Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBDD_GUI_LANGUAGE_PHRASERow - Inherits Global.System.Data.DataRow - - Private tableTBDD_GUI_LANGUAGE_PHRASE As TBDD_GUI_LANGUAGE_PHRASEDataTable _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_GUI_LANGUAGE_PHRASE = CType(Me.Table,TBDD_GUI_LANGUAGE_PHRASEDataTable) - End Sub + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn) + End Function _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.GUIDColumn) = value - End Set - End Property + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property _MODULE() As String - Get - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.MODULEColumn),String) - End Get - Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.MODULEColumn) = value - End Set - End Property + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) + End Function _ - Public Property TITLE() As String - Get - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.TITLEColumn),String) - End Get - Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.TITLEColumn) = value - End Set - End Property + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property LANGUAGE() As String - Get - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.LANGUAGEColumn),String) - End Get - Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.LANGUAGEColumn) = value - End Set - End Property + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) + End Function _ - Public Property CAPT_TYPE() As String - Get - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CAPT_TYPEColumn),String) - End Get - Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CAPT_TYPEColumn) = value - End Set - End Property + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPROFILE_GROUPRow + Inherits Global.System.Data.DataRow + + Private tableTBPROFILE_GROUP As TBPROFILE_GROUPDataTable _ - Public Property STRING1() As String - Get - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING1Column),String) - End Get - Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING1Column) = value - End Set - End Property + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPROFILE_GROUP = CType(Me.Table,TBPROFILE_GROUPDataTable) + End Sub _ - Public Property STRING2() As String + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING2Column),String) + Return CType(Me(Me.tableTBPROFILE_GROUP.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING2Column) = value + Me(Me.tableTBPROFILE_GROUP.GUIDColumn) = value End Set End Property _ - Public Property STRING3() As String + Public Property NAME() As String Get Try - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING3Column),String) + Return CType(Me(Me.tableTBPROFILE_GROUP.NAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING3 in Tabelle TBDD_GUI_LANGUAGE_PHRASE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBPROFILE_GROUP ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING3Column) = value + Me(Me.tableTBPROFILE_GROUP.NAMEColumn) = value End Set End Property _ - Public Property STRING4() As String + Public Property ACTIVE() As Boolean Get - Try - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING4Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING4 in Tabelle TBDD_GUI_LANGUAGE_PHRASE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPROFILE_GROUP.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING4Column) = value + Me(Me.tableTBPROFILE_GROUP.ACTIVEColumn) = value End Set End Property _ - Public Property STRING5() As String + Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING5Column),String) + Return CType(Me(Me.tableTBPROFILE_GROUP.COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING5 in Tabelle TBDD_GUI_LANGUAGE_PHRASE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPROFILE_GROUP ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING5Column) = value + Me(Me.tableTBPROFILE_GROUP.COMMENTColumn) = value End Set End Property _ - Public Property STRING6() As String + Public Property ADDED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING6Column),String) + Return CType(Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING6 in Tabelle TBDD_GUI_LANGUAGE_PHRASE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPROFILE_GROUP ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING6Column) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHOColumn) = value + Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) = value End Set End Property @@ -13137,13 +13196,13 @@ Partial Public Class DD_DMSLiteDataSet Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GUI_LANGUAGE_PHRASE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPROFILE_GROUP ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHENColumn) = value + Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) = value End Set End Property @@ -13152,13 +13211,13 @@ Partial Public Class DD_DMSLiteDataSet Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GUI_LANGUAGE_PHRASE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPROFILE_GROUP ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHOColumn) = value + Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) = value End Set End Property @@ -13167,3467 +13226,2232 @@ Partial Public Class DD_DMSLiteDataSet Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GUI_LANGUAGE_PHRASE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPROFILE_GROUP ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHENColumn) = value + Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) = value End Set End Property _ - Public Property OBJ_NAME() As String - Get - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.OBJ_NAMEColumn),String) - End Get - Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.OBJ_NAMEColumn) = value - End Set - End Property + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.NAMEColumn) + End Function _ - Public Property INTERNAL() As Boolean - Get - Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.INTERNALColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.INTERNALColumn) = value - End Set - End Property + Public Sub SetNAMENull() + Me(Me.tableTBPROFILE_GROUP.NAMEColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function IsSTRING3Null() As Boolean - Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING3Column) + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.COMMENTColumn) End Function _ - Public Sub SetSTRING3Null() - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING3Column) = Global.System.Convert.DBNull + Public Sub SetCOMMENTNull() + Me(Me.tableTBPROFILE_GROUP.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSTRING4Null() As Boolean - Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING4Column) + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) End Function _ - Public Sub SetSTRING4Null() - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING4Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSTRING5Null() As Boolean - Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING5Column) - End Function - - _ - Public Sub SetSTRING5Null() - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING5Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSTRING6Null() As Boolean - Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING6Column) - End Function - - _ - Public Sub SetSTRING6Null() - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING6Column) = Global.System.Convert.DBNull + Public Sub SetADDED_WHONull() + Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHENColumn) + Return Me.IsNull(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBWH_CONNECTIONRow + Partial Public Class FNPM_GET_FREE_USER_FOR_PROFILERow Inherits Global.System.Data.DataRow - Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable + Private tableFNPM_GET_FREE_USER_FOR_PROFILE As FNPM_GET_FREE_USER_FOR_PROFILEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBWH_CONNECTION = CType(Me.Table,TBWH_CONNECTIONDataTable) + Me.tableFNPM_GET_FREE_USER_FOR_PROFILE = CType(Me.Table,FNPM_GET_FREE_USER_FOR_PROFILEDataTable) End Sub _ - Public Property GUID() As Short - Get - Return CType(Me(Me.tableTBWH_CONNECTION.GUIDColumn),Short) - End Get - Set - Me(Me.tableTBWH_CONNECTION.GUIDColumn) = value - End Set - End Property - - _ - Public Property BEZEICHNUNG() As String + Public Property SequentialOrder() As Integer Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.SequentialOrderColumn),Integer) End Get Set - Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.SequentialOrderColumn) = value End Set End Property _ - Public Property SQL_PROVIDER() As String + Public Property USER_ID() As Integer Get Try - Return CType(Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn),String) + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn),Integer) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBWH_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_ID in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNull."& _ + "", e) End Try End Get Set - Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) = value End Set End Property _ - Public Property SERVER() As String + Public Property USER_NAME() As String Get Try - Return CType(Me(Me.tableTBWH_CONNECTION.SERVERColumn),String) + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBWH_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_NAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNul"& _ + "l.", e) End Try End Get Set - Me(Me.tableTBWH_CONNECTION.SERVERColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) = value End Set End Property _ - Public Property DATENBANK() As String + Public Property USER_PRENAME() As String Get Try - Return CType(Me(Me.tableTBWH_CONNECTION.DATENBANKColumn),String) + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBWH_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_PRENAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ + "Null.", e) End Try End Get Set - Me(Me.tableTBWH_CONNECTION.DATENBANKColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) = value End Set End Property _ - Public Property USERNAME() As String + Public Property USER_SURNAME() As String Get Try - Return CType(Me(Me.tableTBWH_CONNECTION.USERNAMEColumn),String) + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBWH_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_SURNAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ + "Null.", e) End Try End Get Set - Me(Me.tableTBWH_CONNECTION.USERNAMEColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) = value End Set End Property _ - Public Property PASSWORD() As String + Public Property USER_SHORTNAME() As String Get Try - Return CType(Me(Me.tableTBWH_CONNECTION.PASSWORDColumn),String) + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBWH_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_SHORTNAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist "& _ + "DBNull.", e) End Try End Get Set - Me(Me.tableTBWH_CONNECTION.PASSWORDColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) = value End Set End Property _ - Public Property BEMERKUNG() As String + Public Property USER_EMAIL() As String Get Try - Return CType(Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn),String) + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBWH_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_EMAIL in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNu"& _ + "ll.", e) End Try End Get Set - Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) = value - End Set - End Property - - _ - Public Property AKTIV() As Boolean - Get - Return CType(Me(Me.tableTBWH_CONNECTION.AKTIVColumn),Boolean) - End Get - Set - Me(Me.tableTBWH_CONNECTION.AKTIVColumn) = value - End Set - End Property - - _ - Public Property ERSTELLTWER() As String - Get - Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWERColumn),String) - End Get - Set - Me(Me.tableTBWH_CONNECTION.ERSTELLTWERColumn) = value - End Set - End Property - - _ - Public Property ERSTELLTWANN() As Date - Get - Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWANNColumn),Date) - End Get - Set - Me(Me.tableTBWH_CONNECTION.ERSTELLTWANNColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) = value End Set End Property _ - Public Property GEANDERTWER() As String + Public Property USER_LANGUAGE() As String Get Try - Return CType(Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn),String) + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBWH_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_LANGUAGE in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist D"& _ + "BNull.", e) End Try End Get Set - Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) = value End Set End Property _ - Public Property GEAENDERTWANN() As Date + Public Property USER_COMMENT() As String Get Try - Return CType(Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn),Date) + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBWH_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_COMMENT in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ + "Null.", e) End Try End Get Set - Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) = value + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) = value End Set End Property _ - Public Function IsBEZEICHNUNGNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) - End Function - - _ - Public Sub SetBEZEICHNUNGNull() - Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSQL_PROVIDERNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) + Public Function IsUSER_IDNull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) End Function _ - Public Sub SetSQL_PROVIDERNull() - Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + Public Sub SetUSER_IDNull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSERVERNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.SERVERColumn) + Public Function IsUSER_NAMENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) End Function _ - Public Sub SetSERVERNull() - Me(Me.tableTBWH_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull + Public Sub SetUSER_NAMENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDATENBANKNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.DATENBANKColumn) + Public Function IsUSER_PRENAMENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) End Function _ - Public Sub SetDATENBANKNull() - Me(Me.tableTBWH_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull + Public Sub SetUSER_PRENAMENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsUSERNAMENull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.USERNAMEColumn) + Public Function IsUSER_SURNAMENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) End Function _ - Public Sub SetUSERNAMENull() - Me(Me.tableTBWH_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull + Public Sub SetUSER_SURNAMENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPASSWORDNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.PASSWORDColumn) + Public Function IsUSER_SHORTNAMENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) End Function _ - Public Sub SetPASSWORDNull() - Me(Me.tableTBWH_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull + Public Sub SetUSER_SHORTNAMENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBEMERKUNGNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) + Public Function IsUSER_EMAILNull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) End Function _ - Public Sub SetBEMERKUNGNull() - Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull + Public Sub SetUSER_EMAILNull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGEANDERTWERNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) + Public Function IsUSER_LANGUAGENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) End Function _ - Public Sub SetGEANDERTWERNull() - Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull + Public Sub SetUSER_LANGUAGENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGEAENDERTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) + Public Function IsUSER_COMMENTNull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) End Function _ - Public Sub SetGEAENDERTWANNNull() - Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + Public Sub SetUSER_COMMENTNull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) = Global.System.Convert.DBNull End Sub End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_PROFILE_FINAL_INDEXINGRow + Partial Public Class TBDD_EMAIL_TEMPLATERow + Inherits Global.System.Data.DataRow - Private eventAction As Global.System.Data.DataRowAction + Private tableTBDD_EMAIL_TEMPLATE As TBDD_EMAIL_TEMPLATEDataTable _ - Public Sub New(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_EMAIL_TEMPLATE = CType(Me.Table,TBDD_EMAIL_TEMPLATEDataTable) End Sub _ - Public ReadOnly Property Row() As TBPM_PROFILE_FINAL_INDEXINGRow + Public Property GUID() As Integer Get - Return Me.eventRow + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.GUIDColumn),Integer) End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.GUIDColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property TITLE() As String Get - Return Me.eventAction + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.TITLEColumn),String) End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.TITLEColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_KONFIGURATIONRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_KONFIGURATIONRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPM_KONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub _ - Public ReadOnly Property Row() As TBPM_KONFIGURATIONRow + Public Property EMAIL_SUBJECT() As String Get - Return Me.eventRow + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_SUBJECTColumn),String) End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_SUBJECTColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property EMAIL_BODY1() As String Get - Return Me.eventAction + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY1Column),String) End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY1Column) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_USERRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_USERRow - - Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Public Property EMAIL_BODY2() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY2Column),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY2Column) = value + End Set + End Property _ - Public ReadOnly Property Row() As TBDD_USERRow + Public Property EMAIL_BODY3() As String Get - Return Me.eventRow + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY3Column),String) End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY3Column) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property ADDED_WHO() As String Get - Return Me.eventAction + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHOColumn),String) End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHOColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_TYPERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_TYPERow - - Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPM_TYPERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_EMAIL_TEMPLATE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn) = value + End Set + End Property _ - Public ReadOnly Property Row() As TBPM_TYPERow + Public Property CHANGED_WHO() As String Get - Return Me.eventRow + Try + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_EMAIL_TEMPLATE ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property CHANGED_WHEN() As Date Get - Return Me.eventAction + Try + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_EMAIL_TEMPLATE ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_ERROR_LOGRowChangeEvent - Inherits Global.System.EventArgs - Private eventRow As TBPM_ERROR_LOGRow + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn) + End Function - Private eventAction As Global.System.Data.DataRowAction + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub _ - Public Sub New(ByVal row As TBPM_ERROR_LOGRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public ReadOnly Property Row() As TBPM_ERROR_LOGRow - Get - Return Me.eventRow - End Get - End Property + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn) + End Function _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class TBDD_CONNECTIONRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_CONNECTIONRow + Partial Public Class TBDD_GUI_LANGUAGE_PHRASERow + Inherits Global.System.Data.DataRow - Private eventAction As Global.System.Data.DataRowAction + Private tableTBDD_GUI_LANGUAGE_PHRASE As TBDD_GUI_LANGUAGE_PHRASEDataTable _ - Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_GUI_LANGUAGE_PHRASE = CType(Me.Table,TBDD_GUI_LANGUAGE_PHRASEDataTable) End Sub _ - Public ReadOnly Property Row() As TBDD_CONNECTIONRow + Public Property GUID() As Integer Get - Return Me.eventRow + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.GUIDColumn),Integer) End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.GUIDColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property _MODULE() As String Get - Return Me.eventAction + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.MODULEColumn),String) End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.MODULEColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPROFILE_USERRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPROFILE_USERRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPROFILE_USERRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub _ - Public ReadOnly Property Row() As TBPROFILE_USERRow + Public Property TITLE() As String Get - Return Me.eventRow + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.TITLEColumn),String) End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.TITLEColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property LANGUAGE() As String Get - Return Me.eventAction + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.LANGUAGEColumn),String) End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.LANGUAGEColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_PROFILE_FILESRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_PROFILE_FILESRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPM_PROFILE_FILESRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub _ - Public ReadOnly Property Row() As TBPM_PROFILE_FILESRow + Public Property CAPT_TYPE() As String Get - Return Me.eventRow + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CAPT_TYPEColumn),String) End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CAPT_TYPEColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property STRING1() As String Get - Return Me.eventAction + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING1Column),String) End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING1Column) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_PROFILERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_PROFILERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBPM_PROFILERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub _ - Public ReadOnly Property Row() As TBPM_PROFILERow + Public Property STRING2() As String Get - Return Me.eventRow + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING2Column),String) End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING2Column) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property STRING3() As String Get - Return Me.eventAction + Try + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING3 in Tabelle TBDD_GUI_LANGUAGE_PHRASE ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING3Column) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBWH_CHECK_PROFILE_CONTROLSRow - - Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Public Property STRING4() As String + Get + Try + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING4 in Tabelle TBDD_GUI_LANGUAGE_PHRASE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING4Column) = value + End Set + End Property _ - Public ReadOnly Property Row() As TBWH_CHECK_PROFILE_CONTROLSRow + Public Property STRING5() As String Get - Return Me.eventRow + Try + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING5Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING5 in Tabelle TBDD_GUI_LANGUAGE_PHRASE ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING5Column) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property STRING6() As String Get - Return Me.eventAction + Try + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING6Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING6 in Tabelle TBDD_GUI_LANGUAGE_PHRASE ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING6Column) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_PROFILE_CONTROLSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_PROFILE_CONTROLSRow - - Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPM_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHOColumn) = value + End Set + End Property _ - Public ReadOnly Property Row() As TBPM_PROFILE_CONTROLSRow + Public Property ADDED_WHEN() As Date Get - Return Me.eventRow + Try + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GUI_LANGUAGE_PHRASE ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHENColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property CHANGED_WHO() As String Get - Return Me.eventAction + Try + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GUI_LANGUAGE_PHRASE ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHOColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_CONTROL_TABLERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_CONTROL_TABLERow - - Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPM_CONTROL_TABLERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GUI_LANGUAGE_PHRASE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHENColumn) = value + End Set + End Property _ - Public ReadOnly Property Row() As TBPM_CONTROL_TABLERow + Public Property OBJ_NAME() As String Get - Return Me.eventRow + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.OBJ_NAMEColumn),String) End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.OBJ_NAMEColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property INTERNAL() As Boolean Get - Return Me.eventAction + Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.INTERNALColumn),Boolean) End Get + Set + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.INTERNALColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_GROUPSRowChangeEvent - Inherits Global.System.EventArgs - Private eventRow As TBDD_GROUPSRow + _ + Public Function IsSTRING3Null() As Boolean + Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING3Column) + End Function - Private eventAction As Global.System.Data.DataRowAction + _ + Public Sub SetSTRING3Null() + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING3Column) = Global.System.Convert.DBNull + End Sub _ - Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Public Function IsSTRING4Null() As Boolean + Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING4Column) + End Function + + _ + Public Sub SetSTRING4Null() + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING4Column) = Global.System.Convert.DBNull End Sub _ - Public ReadOnly Property Row() As TBDD_GROUPSRow - Get - Return Me.eventRow - End Get - End Property + Public Function IsSTRING5Null() As Boolean + Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING5Column) + End Function _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPROFILE_GROUPRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPROFILE_GROUPRow + Public Sub SetSTRING5Null() + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING5Column) = Global.System.Convert.DBNull + End Sub - Private eventAction As Global.System.Data.DataRowAction + _ + Public Function IsSTRING6Null() As Boolean + Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING6Column) + End Function _ - Public Sub New(ByVal row As TBPROFILE_GROUPRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Public Sub SetSTRING6Null() + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.STRING6Column) = Global.System.Convert.DBNull End Sub _ - Public ReadOnly Property Row() As TBPROFILE_GROUPRow - Get - Return Me.eventRow - End Get - End Property + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHENColumn) + End Function _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As FNPM_GET_FREE_USER_FOR_PROFILERow + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub - Private eventAction As Global.System.Data.DataRowAction + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHOColumn) + End Function _ - Public Sub New(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public ReadOnly Property Row() As FNPM_GET_FREE_USER_FOR_PROFILERow - Get - Return Me.eventRow - End Get - End Property + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHENColumn) + End Function _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class TBDD_EMAIL_TEMPLATERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_EMAIL_TEMPLATERow + Partial Public Class VWPM_CHART_INVOICE_MONITORRow + Inherits Global.System.Data.DataRow - Private eventAction As Global.System.Data.DataRowAction + Private tableVWPM_CHART_INVOICE_MONITOR As VWPM_CHART_INVOICE_MONITORDataTable _ - Public Sub New(ByVal row As TBDD_EMAIL_TEMPLATERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPM_CHART_INVOICE_MONITOR = CType(Me.Table,VWPM_CHART_INVOICE_MONITORDataTable) End Sub _ - Public ReadOnly Property Row() As TBDD_EMAIL_TEMPLATERow + Public Property Anzahl_AI() As Integer Get - Return Me.eventRow + Try + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_AIColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl_AI in Tabelle VWPM_CHART_INVOICE_MONITOR ist DBNull.", e) + End Try End Get + Set + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_AIColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property NettoSumme_AI() As String Get - Return Me.eventAction + Try + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_AIColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NettoSumme_AI in Tabelle VWPM_CHART_INVOICE_MONITOR ist DBNul"& _ + "l.", e) + End Try End Get + Set + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_AIColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_GUI_LANGUAGE_PHRASERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_GUI_LANGUAGE_PHRASERow - - Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBDD_GUI_LANGUAGE_PHRASERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Public Property Anzahl_PE() As Integer + Get + Try + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_PEColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl_PE in Tabelle VWPM_CHART_INVOICE_MONITOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_PEColumn) = value + End Set + End Property _ - Public ReadOnly Property Row() As TBDD_GUI_LANGUAGE_PHRASERow + Public Property NettoSumme_PE() As String Get - Return Me.eventRow + Try + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_PEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NettoSumme_PE in Tabelle VWPM_CHART_INVOICE_MONITOR ist DBNul"& _ + "l.", e) + End Try End Get + Set + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_PEColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property Anzahl_FF() As Integer Get - Return Me.eventAction + Try + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_FFColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl_FF in Tabelle VWPM_CHART_INVOICE_MONITOR ist DBNull.", e) + End Try End Get + Set + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_FFColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBWH_CONNECTIONRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBWH_CONNECTIONRow - - Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBWH_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Public Property NettoSumme_FF() As String + Get + Try + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_FFColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NettoSumme_FF in Tabelle VWPM_CHART_INVOICE_MONITOR ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_FFColumn) = value + End Set + End Property _ - Public ReadOnly Property Row() As TBWH_CONNECTIONRow + Public Property Anzahl_FIF() As Integer Get - Return Me.eventRow + Try + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_FIFColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl_FIF in Tabelle VWPM_CHART_INVOICE_MONITOR ist DBNull.", e) + End Try End Get + Set + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_FIFColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property NettoSumme_FIF() As String Get - Return Me.eventAction + Try + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_FIFColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NettoSumme_FIF in Tabelle VWPM_CHART_INVOICE_MONITOR ist DBNu"& _ + "ll.", e) + End Try End Get + Set + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_FIFColumn) = value + End Set End Property - End Class -End Class - -Namespace DD_DMSLiteDataSetTableAdapters - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPM_PROFILE_FINAL_INDEXINGTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub + Public Property Anzahl_ZK() As Integer + Get + Try + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_ZKColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Anzahl_ZK in Tabelle VWPM_CHART_INVOICE_MONITOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_ZKColumn) = value + End Set + End Property _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Public Property WFState() As String Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter + Try + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR.WFStateColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WFState in Tabelle VWPM_CHART_INVOICE_MONITOR ist DBNull.", e) + End Try End Get + Set + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.WFStateColumn) = value + End Set End Property _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Public Property NettoSumme_ZK() As String Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection + Try + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_ZKColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NettoSumme_ZK in Tabelle VWPM_CHART_INVOICE_MONITOR ist DBNul"& _ + "l.", e) + End Try End Get Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_ZKColumn) = value End Set End Property _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property + Public Function IsAnzahl_AINull() As Boolean + Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_AIColumn) + End Function _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property + Public Sub SetAnzahl_AINull() + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_AIColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property + Public Function IsNettoSumme_AINull() As Boolean + Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_AIColumn) + End Function _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPM_PROFILE_FINAL_INDEXING" - tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") - tableMapping.ColumnMappings.Add("VALUE", "VALUE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") - tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("IF_VEKTOR_BEHAVIOUR", "IF_VEKTOR_BEHAVIOUR") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ - "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND, IF_VEKTOR_BEHAVIOUR)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALU"& _ - "ES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND,@"& _ - "IF_VEKTOR_BEHAVIOUR)" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IF_VEKTOR_BEHAVIOUR", Global.System.Data.SqlDbType.VarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, "IF_VEKTOR_BEHAVIOUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_PROFILE_FINAL_INDEXING" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Public Sub SetNettoSumme_AINull() + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_AIColumn) = Global.System.Convert.DBNull End Sub _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString - End Sub + Public Function IsAnzahl_PENull() As Boolean + Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_PEColumn) + End Function _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(6) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING."& _ - "VALUE, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.ADDED_"& _ - "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_P"& _ - "ROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFI"& _ - "LE_FINAL_INDEXING.CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_I"& _ - "NDEXING.SQL_COMMAND, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL"& _ - "_INDEXING.ACTIVE, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE"& _ - " ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBP"& _ - "M_PROFILE.NAME = @name)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ - "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND, IF_VEKTOR_BEHAVIOUR)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALU"& _ - "ES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND,@"& _ - "IF_VEKTOR_BEHAVIOUR)" - Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IF_VEKTOR_BEHAVIOUR", Global.System.Data.SqlDbType.VarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, "IF_VEKTOR_BEHAVIOUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(4).Connection = Me.Connection - Me._commandCollection(4).CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ - "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT @NEW_PROFIL"& _ - "_ID AS Expr1, INDEXNAME, VALUE, @User AS Expr2, CONNECTION_ID, SQL_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"& _ - " TBPM_PROFILE_FINAL_INDEXING AS TBPM_PROFILE_FINAL_INDEXING_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (PROFIL_ID = @Copy_Profil_ID)" - Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NEW_PROFIL_ID", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@User", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Copy_Profil_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(5).Connection = Me.Connection - Me._commandCollection(5).CommandText = "UPDATE TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONNECTION_ID = @CON"& _ - "_ID, SQL_COMMAND = @COMMAND, CHANGED_WHO = @WHO, IF_VEKTOR_BEHAVIOUR = @IF_VEKTO"& _ - "R_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" - Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CON_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IF_VEKTOR_BEHAVIOUR", Global.System.Data.SqlDbType.VarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, "IF_VEKTOR_BEHAVIOUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(6).Connection = Me.Connection - Me._commandCollection(6).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.ADDED_WHEN, TBPM_PROFILE_FINAL_INDEXING"& _ - ".ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXIN"& _ - "G.CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM"& _ - "_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING.VALUE, TBPM_PROFI"& _ - "LE_FINAL_INDEXING.SQL_COMMAND, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_IND"& _ - "EXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROF"& _ - "ILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE ("& _ - "TBPM_PROFILE.GUID = @ID)" - Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(6).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, "", "", "")) + Public Sub SetAnzahl_PENull() + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_PEColumn) = Global.System.Convert.DBNull End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal name As String) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (name Is Nothing) Then - Throw New Global.System.ArgumentNullException("name") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(name,String) - End If - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function IsNettoSumme_PENull() As Boolean + Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_PEColumn) End Function _ - Public Overloads Overridable Function GetData(ByVal name As String) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (name Is Nothing) Then - Throw New Global.System.ArgumentNullException("name") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(name,String) - End If - Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetNettoSumme_PENull() + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_PEColumn) = Global.System.Convert.DBNull + End Sub _ - Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(6) - 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 + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function IsAnzahl_FFNull() As Boolean + Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_FFColumn) End Function _ - Public Overloads Overridable Function GetDataByID(ByVal ID As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(6) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetAnzahl_FFNull() + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_FFColumn) = Global.System.Convert.DBNull + End Sub _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable) As Integer - Return Me.Adapter.Update(dataTable) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function IsNettoSumme_FFNull() As Boolean + Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_FFColumn) End Function _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_FINAL_INDEXING") - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetNettoSumme_FFNull() + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_FFColumn) = Global.System.Convert.DBNull + End Sub _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function IsAnzahl_FIFNull() As Boolean + Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_FIFColumn) End Function _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetAnzahl_FIFNull() + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_FIFColumn) = Global.System.Convert.DBNull + End Sub _ - Public Overloads Overridable Function CmdDelete(ByVal guid As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(guid,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function IsNettoSumme_FIFNull() As Boolean + Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_FIFColumn) End Function _ - Public Overloads Overridable Function CmdDelete_ProfilID(ByVal PROFIL_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(PROFIL_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetNettoSumme_FIFNull() + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_FIFColumn) = Global.System.Convert.DBNull + End Sub _ - Public Overloads Overridable Function CmdInsert(ByVal PROFIL_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal IF_VEKTOR_BEHAVIOUR As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) - command.Parameters(0).Value = CType(PROFIL_ID,Integer) - If (INDEXNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("INDEXNAME") - Else - command.Parameters(1).Value = CType(INDEXNAME,String) - End If - If (VALUE Is Nothing) Then - Throw New Global.System.ArgumentNullException("VALUE") - Else - command.Parameters(2).Value = CType(VALUE,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - command.Parameters(3).Value = CType(ADDED_WHO,String) - End If - command.Parameters(4).Value = CType(CONNECTION_ID,Short) - If (SQL_COMMAND Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_COMMAND") - Else - command.Parameters(5).Value = CType(SQL_COMMAND,String) - End If - If (IF_VEKTOR_BEHAVIOUR Is Nothing) Then - Throw New Global.System.ArgumentNullException("IF_VEKTOR_BEHAVIOUR") - Else - command.Parameters(6).Value = CType(IF_VEKTOR_BEHAVIOUR,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function IsAnzahl_ZKNull() As Boolean + Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_ZKColumn) End Function _ - Public Overloads Overridable Function CmdInsert_Copy(ByVal NEW_PROFIL_ID As String, ByVal User As String, ByVal Copy_Profil_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) - If (NEW_PROFIL_ID Is Nothing) Then - Throw New Global.System.ArgumentNullException("NEW_PROFIL_ID") - Else - command.Parameters(0).Value = CType(NEW_PROFIL_ID,String) - End If - If (User Is Nothing) Then - Throw New Global.System.ArgumentNullException("User") - Else - command.Parameters(1).Value = CType(User,String) - End If - command.Parameters(2).Value = CType(Copy_Profil_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetAnzahl_ZKNull() + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.Anzahl_ZKColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWFStateNull() As Boolean + Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.WFStateColumn) End Function _ - Public Overloads Overridable Function cmdUpdateSQL(ByVal CON_ID As Short, ByVal COMMAND1 As String, ByVal WHO As String, ByVal IF_VEKTOR_BEHAVIOUR As String, ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) - command.Parameters(0).Value = CType(CON_ID,Short) - If (COMMAND1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("COMMAND1") - Else - command.Parameters(1).Value = CType(COMMAND1,String) - End If - If (WHO Is Nothing) Then - command.Parameters(2).Value = Global.System.DBNull.Value - Else - command.Parameters(2).Value = CType(WHO,String) - End If - If (IF_VEKTOR_BEHAVIOUR Is Nothing) Then - Throw New Global.System.ArgumentNullException("IF_VEKTOR_BEHAVIOUR") - Else - command.Parameters(3).Value = CType(IF_VEKTOR_BEHAVIOUR,String) - End If - command.Parameters(4).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetWFStateNull() + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.WFStateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNettoSumme_ZKNull() As Boolean + Return Me.IsNull(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_ZKColumn) End Function + + _ + Public Sub SetNettoSumme_ZKNull() + Me(Me.tableVWPM_CHART_INVOICE_MONITOR.NettoSumme_ZKColumn) = Global.System.Convert.DBNull + End Sub End Class ''' - '''Represents the connection and commands used to retrieve and save data. + '''Represents strongly named DataRow class. ''' - _ - Partial Public Class TBPM_KONFIGURATIONTableAdapter - 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 + Partial Public Class VWPM_CHART_INVOICE_MONITOR_SERIESRow + Inherits Global.System.Data.DataRow - Private _clearBeforeFill As Boolean + Private tableVWPM_CHART_INVOICE_MONITOR_SERIES As VWPM_CHART_INVOICE_MONITOR_SERIESDataTable _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES = CType(Me.Table,VWPM_CHART_INVOICE_MONITOR_SERIESDataTable) End Sub _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Public Property Title() As String Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES.TitleColumn),String) End Get + Set + Me(Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES.TitleColumn) = value + End Set End Property _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Public Property Anzahl() As Integer Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES.AnzahlColumn),Integer) End Get Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop + Me(Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES.AnzahlColumn) = value End Set End Property _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Public Property NettoSumme() As Decimal Get - Return Me._transaction + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES.NettoSummeColumn),Decimal) End Get Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If + Me(Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES.NettoSummeColumn) = value End Set End Property _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Public Property SEQ() As Integer Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection + Return CType(Me(Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES.SEQColumn),Integer) End Get + Set + Me(Me.tableVWPM_CHART_INVOICE_MONITOR_SERIES.SEQColumn) = value + End Set End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_CONNECTIONRow + Inherits Global.System.Data.DataRow + + Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_CONNECTION = CType(Me.Table,TBWH_CONNECTIONDataTable) + End Sub + + _ + Public Property GUID() As Short + Get + Return CType(Me(Me.tableTBWH_CONNECTION.GUIDColumn),Short) End Get Set - Me._clearBeforeFill = value + Me(Me.tableTBWH_CONNECTION.GUIDColumn) = value End Set End Property _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPM_KONFIGURATION" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("LIZENZEN", "LIZENZEN") - tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") - tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") - tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") - tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") - tableMapping.ColumnMappings.Add("INTERVALL_CKECK_NO_OF_FILES", "INTERVALL_CKECK_NO_OF_FILES") - tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") - tableMapping.ColumnMappings.Add("EMAIL_ACTIVE", "EMAIL_ACTIVE") - tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") - tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") - tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") - tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") - tableMapping.ColumnMappings.Add("EMAIL_REMINDER_HEADER", "EMAIL_REMINDER_HEADER") - tableMapping.ColumnMappings.Add("EMAIL_REMINDER_FOOTER", "EMAIL_REMINDER_FOOTER") - tableMapping.ColumnMappings.Add("VEKTOR_DELIMITER", "VEKTOR_DELIMITER") - tableMapping.ColumnMappings.Add("ADMIN_PW", "ADMIN_PW") - tableMapping.ColumnMappings.Add("ADMIN_SECURITY", "ADMIN_SECURITY") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPM_KONFIGURATION] WHERE (([GUID] = @Original_GUID))" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, 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 [TBPM_KONFIGURATION] ([GUID], [LIZENZEN], [ERFASSTWER], [ERSTELLTWER]"& _ - ", [ERSTELLTWANN], [GEAENDERTWER], [INTERVALL_CKECK_NO_OF_FILES], [GEAENDERTWANN]"& _ - ") VALUES (@GUID, @LIZENZEN, @ERFASSTWER, @ERSTELLTWER, @ERSTELLTWANN, @GEAENDERT"& _ - "WER, @INTERVALL_CKECK_NO_OF_FILES, @GEAENDERTWANN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LIZENZEN, ERFA"& _ - "SSTWER, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES, GE"& _ - "AENDERTWANN FROM TBPM_KONFIGURATION WHERE (GUID = @GUID)" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LIZENZEN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LIZENZEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LIZENZEN = @LIZENZEN, GEAENDE"& _ - "RTWER = @GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES = @INTERVALL_CKECK_NO_OF_FILE"& _ - "S, EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_FROM,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL_PW, "& _ - "EMAIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EMAIL"& _ - "_REMINDER_FOOTER = @EMAIL_REMINDER_FOOTER, VEKTOR_DELIMITER = @VEKTOR_DELIMITER"&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, LIZENZEN, ERFASSTWER, "& _ - "ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES, GEAENDERTW"& _ - "ANN FROM TBPM_KONFIGURATION WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LIZENZEN", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LIZENZEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_HEADER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_FOOTER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_FOOTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VEKTOR_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VEKTOR_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) = value + End Set + End Property _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString - End Sub + Public Property SQL_PROVIDER() As String + Get + Try + Return CType(Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) = value + End Set + End Property _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(7) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, LIZENZEN, ERFASSTWER, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER"& _ - ", INTERVALL_CKECK_NO_OF_FILES, GEAENDERTWANN, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SM"& _ - "TP, EMAIL_USER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EMAIL_PW, EMAIL_REMINDER_HEADER, EMAI"& _ - "L_REMINDER_FOOTER, VEKTOR_DELIMITER, ADMIN_PW, ADMIN_SECURITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM T"& _ - "BPM_KONFIGURATION" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT ADMIN_PW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = "& _ - "1)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT ADMIN_SECURITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (G"& _ - "UID = 1)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "SELECT VEKTOR_DELIMITER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - "(GUID = 1)" - Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(4).Connection = Me.Connection - Me._commandCollection(4).CommandText = "SELECT LIZENZEN FROM TBPM_KONFIGURATION WHERE (GUID = 1)" - Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(5).Connection = Me.Connection - Me._commandCollection(5).CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ADMIN_PW = @ADMIN_PW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (GUID = 1)" - Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(6).Connection = Me.Connection - Me._commandCollection(6).CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEAENDERTWER = @GEAENDERTWER,"& _ - " EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_FROM, EMAIL_SMTP = @EMAIL_SMT"& _ - "P, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL_PW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EM"& _ - "AIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER = @EMAIL_REM"& _ - "INDER_FOOTER"&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, LIZENZEN, E"& _ - "RFASSTWER, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES,"& _ - " GEAENDERTWANN FROM TBPM_KONFIGURATION WHERE (GUID = @GUID)" - Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_HEADER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_FOOTER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_FOOTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(7).Connection = Me.Connection - Me._commandCollection(7).CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEAENDERTWER = @GEAENDERTWER,"& _ - " LIZENZEN = @LIZENZEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = 1)" - Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LIZENZEN", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LIZENZEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function + Public Property SERVER() As String + Get + Try + Return CType(Me(Me.tableTBWH_CONNECTION.SERVERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CONNECTION.SERVERColumn) = value + End Set + End Property _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable = New DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property DATENBANK() As String + Get + Try + Return CType(Me(Me.tableTBWH_CONNECTION.DATENBANKColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CONNECTION.DATENBANKColumn) = value + End Set + End Property _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableTBWH_CONNECTION.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CONNECTION.USERNAMEColumn) = value + End Set + End Property _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPM_KONFIGURATION") - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property PASSWORD() As String + Get + Try + Return CType(Me(Me.tableTBWH_CONNECTION.PASSWORDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CONNECTION.PASSWORDColumn) = value + End Set + End Property _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property BEMERKUNG() As String + Get + Try + Return CType(Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) = value + End Set + End Property _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBWH_CONNECTION.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBWH_CONNECTION.AKTIVColumn) = value + End Set + End Property _ - Public Overloads Overridable Function cmdGetAdminPW() As String - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing - Else - Return CType(returnValue,String) - End If + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBWH_CONNECTION.ERSTELLTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWANN() As Date + Get + Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWANNColumn),Date) + End Get + Set + Me(Me.tableTBWH_CONNECTION.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) End Function _ - Public Overloads Overridable Function cmdGetAdminSecurity() As Global.System.Nullable(Of Boolean) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Boolean)() - Else - Return New Global.System.Nullable(Of Boolean)(CType(returnValue,Boolean)) - End If + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) End Function _ - Public Overloads Overridable Function cmdGetDelimiter() As String - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing - Else - Return CType(returnValue,String) - End If + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.SERVERColumn) End Function _ - Public Overloads Overridable Function cmdGetLizenz() As String - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing - Else - Return CType(returnValue,String) - End If + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetSERVERNull() + Me(Me.tableTBWH_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.DATENBANKColumn) End Function _ - Public Overloads Overridable Function cmdSetAdminPW(ByVal ADMIN_PW As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) - If (ADMIN_PW Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value - Else - command.Parameters(0).Value = CType(ADMIN_PW,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetDATENBANKNull() + Me(Me.tableTBWH_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.USERNAMEColumn) End Function _ - Public Overloads Overridable Function cmdUpdateEmail(ByVal GEAENDERTWER As String, ByVal EMAIL_ACTIVE As Boolean, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal EMAIL_REMINDER_HEADER As String, ByVal EMAIL_REMINDER_FOOTER As String, ByVal Original_GUID As Byte, ByVal GUID As Byte) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) - If (GEAENDERTWER Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value - Else - command.Parameters(0).Value = CType(GEAENDERTWER,String) - End If - command.Parameters(1).Value = CType(EMAIL_ACTIVE,Boolean) - If (EMAIL_FROM Is Nothing) Then - command.Parameters(2).Value = Global.System.DBNull.Value - Else - command.Parameters(2).Value = CType(EMAIL_FROM,String) - End If - If (EMAIL_SMTP Is Nothing) Then - command.Parameters(3).Value = Global.System.DBNull.Value - Else - command.Parameters(3).Value = CType(EMAIL_SMTP,String) - End If - If (EMAIL_USER Is Nothing) Then - command.Parameters(4).Value = Global.System.DBNull.Value - Else - command.Parameters(4).Value = CType(EMAIL_USER,String) - End If - If (EMAIL_PW Is Nothing) Then - command.Parameters(5).Value = Global.System.DBNull.Value - Else - command.Parameters(5).Value = CType(EMAIL_PW,String) - End If - If (EMAIL_REMINDER_HEADER Is Nothing) Then - command.Parameters(6).Value = Global.System.DBNull.Value - Else - command.Parameters(6).Value = CType(EMAIL_REMINDER_HEADER,String) - End If - If (EMAIL_REMINDER_FOOTER Is Nothing) Then - command.Parameters(7).Value = Global.System.DBNull.Value - Else - command.Parameters(7).Value = CType(EMAIL_REMINDER_FOOTER,String) - End If - command.Parameters(8).Value = CType(Original_GUID,Byte) - command.Parameters(9).Value = CType(GUID,Byte) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetUSERNAMENull() + Me(Me.tableTBWH_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.PASSWORDColumn) End Function _ - Public Overloads Overridable Function CmdUpdateLizenz(ByVal GEAENDERTWER As String, ByVal LIZENZEN As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7) - If (GEAENDERTWER Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value - Else - command.Parameters(0).Value = CType(GEAENDERTWER,String) - End If - If (LIZENZEN Is Nothing) Then - command.Parameters(1).Value = Global.System.DBNull.Value - Else - command.Parameters(1).Value = CType(LIZENZEN,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetPASSWORDNull() + Me(Me.tableTBWH_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) + End Function + + _ + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub End Class ''' - '''Represents the connection and commands used to retrieve and save data. + '''Row event argument class ''' - _ - Partial Public Class TBDD_USERTableAdapter - 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 + _ + Public Class TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent + Inherits Global.System.EventArgs - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + Private eventRow As TBPM_PROFILE_FINAL_INDEXINGRow - Private _clearBeforeFill As Boolean + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New() + Public Sub New(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New - Me.ClearBeforeFill = true + Me.eventRow = row + Me.eventAction = action End Sub _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Public ReadOnly Property Row() As TBPM_PROFILE_FINAL_INDEXINGRow Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter + Return Me.eventRow End Get End Property _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection + Return Me.eventAction End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPM_KONFIGURATIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPM_KONFIGURATIONRow + + Private eventAction As Global.System.Data.DataRowAction _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property + Public Sub New(ByVal row As TBPM_KONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Public ReadOnly Property Row() As TBPM_KONFIGURATIONRow Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection + Return Me.eventRow End Get End Property _ - Public Property ClearBeforeFill() As Boolean + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Return Me._clearBeforeFill + Return Me.eventAction End Get - Set - Me._clearBeforeFill = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_USERRow + + Private eventAction As Global.System.Data.DataRowAction _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_USER" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_USER] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PRENAME = "& _ - "1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND ((@IsNull_NAME "& _ - "= 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USERNAME] = @Origina"& _ - "l_USERNAME) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS NULL) OR ([EMAIL] = @Original"& _ - "_EMAIL)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AN"& _ - "D [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_"& _ - "CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED"& _ - "_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_W"& _ - "HEN] = @Original_CHANGED_WHEN)) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL)"& _ - " OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME]"& _ - " IS NULL) OR ([SHORTNAME] = @Original_SHORTNAME)))" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRENAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EMAIL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORTNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _ - "ADDED_WHO, COMMENT, SHORTNAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@"& _ - "ADDED_WHO,@COMMENT,@SHORTNAME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, A"& _ - "DDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT, SHORTNAME FROM TBDD_US"& _ - "ER WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _ - "NAME = @USERNAME, EMAIL = @EMAIL, CHANGED_WHO = @CHANGED_WHO, COMMENT = @COMMENT"& _ - ", SHORTNAME = @SHORTNAME"&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, P"& _ - "RENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN,"& _ - " COMMENT, SHORTNAME FROM TBDD_USER WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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, "", "", "")) + Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString - End Sub + Public ReadOnly Property Row() As TBDD_USERRow + Get + Return Me.eventRow + End Get + End Property _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGE"& _ - "D_WHO, CHANGED_WHEN, COMMENT, SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT USER_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBDD_USER_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (MODULE_ID ="&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBDD_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (SHORT_NAME = 'PM')))))" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT T1.GUID, T1.PRENAME, T1.NAME, T1.USERNAME, T1.EMAIL, T1.ADDED_WHO, "& _ - "T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN, T1.COMMENT, T1.SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBDD_USER_MODULES AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER "& _ - "AS T1 ON T.USER_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.MODULE_ID ="&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBDD"& _ - "_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (SHORT_NAME = 'PM'))) AND "& _ - "(T.USER_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT USER_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBPM_PROFILE_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (PROFIL_ID = @PROFILE_ID)))" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPM_TYPERowChangeEvent + Inherits Global.System.EventArgs - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function + Private eventRow As TBPM_TYPERow - _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_USERDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable = New DD_DMSLiteDataSet.TBDD_USERDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function + Private eventAction As Global.System.Data.DataRowAction _ - Public Overloads Overridable Function FillByProfileId_NotAssigned(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable, ByVal PROFILE_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New(ByVal row As TBPM_TYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Overloads Overridable Function GetDataByProfileId_NotAssigned(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.TBDD_USERDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable = New DD_DMSLiteDataSet.TBDD_USERDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Row() As TBPM_TYPERow + Get + Return Me.eventRow + End Get + End Property _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPM_ERROR_LOGRowChangeEvent + Inherits Global.System.EventArgs - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_USER") - End Function + Private eventRow As TBPM_ERROR_LOGRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New(ByVal row As TBPM_ERROR_LOGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Row() As TBPM_ERROR_LOGRow + Get + Return Me.eventRow + End Get + End Property _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PRENAME As String, ByVal Original_NAME As String, ByVal Original_USERNAME As String, ByVal Original_EMAIL As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_COMMENT As String, ByVal Original_SHORTNAME As String) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_PRENAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PRENAME,String) - End If - If (Original_NAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_NAME,String) - End If - If (Original_USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_USERNAME") - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_USERNAME,String) - End If - If (Original_EMAIL Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_EMAIL,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value - End If - If (Original_COMMENT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_COMMENT,String) - End If - If (Original_SHORTNAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_SHORTNAME,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal COMMENT As String, ByVal SHORTNAME As String) As Integer - If (PRENAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) - End If - If (NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) - End If - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) - End If - If (EMAIL Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(COMMENT,String) - End If - If (SHORTNAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(SHORTNAME,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal CHANGED_WHO As String, ByVal COMMENT As String, ByVal SHORTNAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (PRENAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) - End If - If (NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) - End If - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) - End If - If (EMAIL Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COMMENT,String) - End If - If (SHORTNAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SHORTNAME,String) - End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property End Class ''' - '''Represents the connection and commands used to retrieve and save data. + '''Row event argument class ''' - _ - Partial Public Class TBPM_TYPETableAdapter - 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 + _ + Public Class TBDD_CONNECTIONRowChangeEvent + Inherits Global.System.EventArgs - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + Private eventRow As TBDD_CONNECTIONRow - Private _clearBeforeFill As Boolean + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New() + Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New - Me.ClearBeforeFill = true + Me.eventRow = row + Me.eventAction = action End Sub _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Public ReadOnly Property Row() As TBDD_CONNECTIONRow Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter + Return Me.eventRow End Get End Property _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection + Return Me.eventAction End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set End Property - + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPROFILE_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPROFILE_USERRow + + Private eventAction As Global.System.Data.DataRowAction + _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property + Public Sub New(ByVal row As TBPROFILE_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Public ReadOnly Property Row() As TBPROFILE_USERRow Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection + Return Me.eventRow End Get End Property _ - Public Property ClearBeforeFill() As Boolean + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Return Me._clearBeforeFill + Return Me.eventAction End Get - Set - Me._clearBeforeFill = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPM_PROFILE_FILESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPM_PROFILE_FILESRow + + Private eventAction As Global.System.Data.DataRowAction _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPM_TYPE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPM_TYPE] WHERE (([GUID] = @Original_GUID) AND ([BEZEICHNUNG] = @Or"& _ - "iginal_BEZEICHNUNG) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = "& _ - "@Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) O"& _ - "R ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [C"& _ - "HANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPM_TYPE] ([BEZEICHNUNG], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO],"& _ - " [CHANGED_WHEN]) VALUES (@BEZEICHNUNG, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @C"& _ - "HANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHA"& _ - "NGED_WHEN FROM TBPM_TYPE WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_TYPE] SET [BEZEICHNUNG] = @BEZEICHNUNG, [ADDED_WHO] = @ADDED_WHO, [A"& _ - "DDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGE"& _ - "D_WHEN WHERE (([GUID] = @Original_GUID) AND ([BEZEICHNUNG] = @Original_BEZEICHNU"& _ - "NG) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_"& _ - "WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO]"& _ - " = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS "& _ - "NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG,"& _ - " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPM_TYPE WHERE (GUID = @"& _ - "GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Public Sub New(ByVal row As TBPM_PROFILE_FILESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString - End Sub + Public ReadOnly Property Row() As TBPM_PROFILE_FILESRow + Get + Return Me.eventRow + End Get + End Property _ - 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 TBPM_TYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_TYPE" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPM_PROFILERowChangeEvent + Inherits Global.System.EventArgs - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function + Private eventRow As TBPM_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_TYPEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable = New DD_DMSLiteDataSet.TBPM_TYPEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New(ByVal row As TBPM_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Row() As TBPM_PROFILERow + Get + Return Me.eventRow + End Get + End Property _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPM_TYPE") - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + 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_CHECK_PROFILE_CONTROLSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_CHECK_PROFILE_CONTROLSRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Row() As TBWH_CHECK_PROFILE_CONTROLSRow + Get + Return Me.eventRow + End Get + End Property _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) - If (Original_BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG") - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_BEZEICHNUNG,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPM_PROFILE_CONTROLSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPM_PROFILE_CONTROLSRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - If (BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("BEZEICHNUNG") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New(ByVal row As TBPM_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Short) As Integer - If (BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("BEZEICHNUNG") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Short) - If (Original_BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG") - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_BEZEICHNUNG,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GUID,Short) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Row() As TBPM_PROFILE_CONTROLSRow + Get + Return Me.eventRow + End Get + End Property _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_BEZEICHNUNG, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property End Class ''' - '''Represents the connection and commands used to retrieve and save data. + '''Row event argument class ''' - _ - Partial Public Class TBPM_ERROR_LOGTableAdapter - Inherits Global.System.ComponentModel.Component + _ + Public Class TBPM_CONTROL_TABLERowChangeEvent + Inherits Global.System.EventArgs - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + Private eventRow As TBPM_CONTROL_TABLERow - Private _connection As Global.System.Data.SqlClient.SqlConnection + Private eventAction As Global.System.Data.DataRowAction - Private _transaction As Global.System.Data.SqlClient.SqlTransaction + _ + Public Sub New(ByVal row As TBPM_CONTROL_TABLERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + _ + Public ReadOnly Property Row() As TBPM_CONTROL_TABLERow + Get + Return Me.eventRow + End Get + End Property - Private _clearBeforeFill As Boolean + _ + 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_GROUPSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_GROUPSRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New() + Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New - Me.ClearBeforeFill = true + Me.eventRow = row + Me.eventAction = action End Sub _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Public ReadOnly Property Row() As TBDD_GROUPSRow Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter + Return Me.eventRow End Get End Property _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection + Return Me.eventAction End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPROFILE_GROUPRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPROFILE_GROUPRow + + Private eventAction As Global.System.Data.DataRowAction _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Public Sub New(ByVal row As TBPROFILE_GROUPRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPROFILE_GROUPRow Get - Return Me._transaction + Return Me.eventRow End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set End Property _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection + Return Me.eventAction End Get End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As FNPM_GET_FREE_USER_FOR_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property ClearBeforeFill() As Boolean + Public Sub New(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As FNPM_GET_FREE_USER_FOR_PROFILERow Get - Return Me._clearBeforeFill + Return Me.eventRow End Get - Set - Me._clearBeforeFill = value - End Set End Property _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPM_ERROR_LOG" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PROFIL_ID", "PROFIL_ID") - tableMapping.ColumnMappings.Add("ERROR_MSG", "ERROR_MSG") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, ERROR_MSG, ADDED"& _ - "_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@ERROR_MSG,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_I"& _ - "D, ERROR_MSG, ADDED_WHO, ADDED_WHEN FROM TBPM_ERROR_LOG 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("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERROR_MSG", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "ERROR_MSG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_ERROR_LOG] SET [PROFIL_ID] = @PROFIL_ID, [ERROR_MSG] = @ERROR_MSG, ["& _ - "ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Original_G"& _ - "UID) AND ([PROFIL_ID] = @Original_PROFIL_ID) AND ([ERROR_MSG] = @Original_ERROR_"& _ - "MSG) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED"& _ - "_WHEN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, ERROR_MSG, ADDED_WHO, ADDED_WHEN FROM TBPM_ERR"& _ - "OR_LOG WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERROR_MSG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERROR_MSG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFIL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERROR_MSG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERROR_MSG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub + Public 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_EMAIL_TEMPLATERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_EMAIL_TEMPLATERow + + Private eventAction As Global.System.Data.DataRowAction _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString + Public Sub New(ByVal row As TBDD_EMAIL_TEMPLATERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, PROFIL_ID, ERROR_MSG, ADDED_WHO, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - "TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY ADDED_WHEN DESC" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "DELETE FROM TBPM_ERROR_LOG" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "DELETE FROM TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROF_ID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub + Public ReadOnly Property Row() As TBDD_EMAIL_TEMPLATERow + Get + Return Me.eventRow + End Get + End Property _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_GUI_LANGUAGE_PHRASERowChangeEvent + Inherits Global.System.EventArgs - _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable = New DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function + Private eventRow As TBDD_GUI_LANGUAGE_PHRASERow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New(ByVal row As TBDD_GUI_LANGUAGE_PHRASERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPM_ERROR_LOG") - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Row() As TBDD_GUI_LANGUAGE_PHRASERow + Get + Return Me.eventRow + End Get + End Property _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPM_CHART_INVOICE_MONITORRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPM_CHART_INVOICE_MONITORRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New(ByVal row As VWPM_CHART_INVOICE_MONITORRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Row() As VWPM_CHART_INVOICE_MONITORRow + Get + Return Me.eventRow + End Get + End Property _ - Public Overloads Overridable Function Insert(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) - If (ERROR_MSG Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERROR_MSG") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(ERROR_MSG,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPM_CHART_INVOICE_MONITOR_SERIESRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Overloads Overridable Function Update(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_PROFIL_ID As Integer, ByVal Original_ERROR_MSG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) - If (ERROR_MSG Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERROR_MSG") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ERROR_MSG,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN,Date) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_PROFIL_ID,Integer) - If (Original_ERROR_MSG Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ERROR_MSG") - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ERROR_MSG,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ADDED_WHEN,Date) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New(ByVal row As VWPM_CHART_INVOICE_MONITOR_SERIESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Overloads Overridable Function Update(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_PROFIL_ID As Integer, ByVal Original_ERROR_MSG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date) As Integer - Return Me.Update(PROFIL_ID, ERROR_MSG, ADDED_WHO, ADDED_WHEN, Original_GUID, Original_PROFIL_ID, Original_ERROR_MSG, Original_ADDED_WHO, Original_ADDED_WHEN, Original_GUID) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Row() As VWPM_CHART_INVOICE_MONITOR_SERIESRow + Get + Return Me.eventRow + End Get + End Property _ - Public Overloads Overridable Function CmdDelete() As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_CONNECTIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_CONNECTIONRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Overloads Overridable Function DeletePROFIL(ByVal PROF_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(PROF_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New(ByVal row As TBWH_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_CONNECTIONRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property End Class +End Class + +Namespace DD_DMSLiteDataSetTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. @@ -16638,7 +15462,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_CONNECTIONTableAdapter + Partial Public Class TBPM_PROFILE_FINAL_INDEXINGTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -16755,68 +15579,43 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_CONNECTION" + tableMapping.DataSetTable = "TBPM_PROFILE_FINAL_INDEXING" + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("VALUE", "VALUE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") - tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") - tableMapping.ColumnMappings.Add("SERVER", "SERVER") - tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") - tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") - tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") - tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") - tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") - tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") - tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") - tableMapping.ColumnMappings.Add("SYS_CONNECTION", "SYS_CONNECTION") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("IF_VEKTOR_BEHAVIOUR", "IF_VEKTOR_BEHAVIOUR") 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 TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @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("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, SQL_PROVIDER,"& _ - " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, SYS_CONNE"& _ - "CTION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@"& _ - "PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER,@SYS_CONNECTION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZE"& _ - "ICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, "& _ - "ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE"& _ - " (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ + "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND, IF_VEKTOR_BEHAVIOUR)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALU"& _ + "ES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND,@"& _ + "IF_VEKTOR_BEHAVIOUR)" 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("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IF_VEKTOR_BEHAVIOUR", Global.System.Data.SqlDbType.VarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, "IF_VEKTOR_BEHAVIOUR", 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, BEMERKUNG = @BEMERKUNG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER, SYS_CONNECTION = @SYS_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVID"& _ - "ER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTEL"& _ - "LTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_PROFILE_FINAL_INDEXING" 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("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", 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 InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(6) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSW"& _ - "ORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SY"& _ - "S_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION" + Me._commandCollection(0).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING."& _ + "VALUE, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.ADDED_"& _ + "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_P"& _ + "ROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFI"& _ + "LE_FINAL_INDEXING.CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_I"& _ + "NDEXING.SQL_COMMAND, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL"& _ + "_INDEXING.ACTIVE, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE"& _ + " ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBP"& _ + "M_PROFILE.NAME = @name)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).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, SYS_CONNE"& _ - "CTION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@"& _ - "PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER,@SYS_CONNECTION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZE"& _ - "ICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, "& _ - "ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE"& _ - " (GUID = SCOPE_IDENTITY())" + Me._commandCollection(1).CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSW"& _ - "ORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SY"& _ - "S_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" + Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID)" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ + "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND, IF_VEKTOR_BEHAVIOUR)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALU"& _ + "ES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND,@"& _ + "IF_VEKTOR_BEHAVIOUR)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IF_VEKTOR_BEHAVIOUR", Global.System.Data.SqlDbType.VarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, "IF_VEKTOR_BEHAVIOUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ + "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT @NEW_PROFIL"& _ + "_ID AS Expr1, INDEXNAME, VALUE, @User AS Expr2, CONNECTION_ID, SQL_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"& _ + " TBPM_PROFILE_FINAL_INDEXING AS TBPM_PROFILE_FINAL_INDEXING_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (PROFIL_ID = @Copy_Profil_ID)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NEW_PROFIL_ID", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@User", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Copy_Profil_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "UPDATE TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONNECTION_ID = @CON"& _ + "_ID, SQL_COMMAND = @COMMAND, CHANGED_WHO = @WHO, IF_VEKTOR_BEHAVIOUR = @IF_VEKTO"& _ + "R_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CON_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IF_VEKTOR_BEHAVIOUR", Global.System.Data.SqlDbType.VarChar, 25, Global.System.Data.ParameterDirection.Input, 0, 0, "IF_VEKTOR_BEHAVIOUR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(6).Connection = Me.Connection + Me._commandCollection(6).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.ADDED_WHEN, TBPM_PROFILE_FINAL_INDEXING"& _ + ".ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXIN"& _ + "G.CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM"& _ + "_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING.VALUE, TBPM_PROFI"& _ + "LE_FINAL_INDEXING.SQL_COMMAND, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_IND"& _ + "EXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOUR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROF"& _ + "ILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE ("& _ + "TBPM_PROFILE.GUID = @ID)" + Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(6).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_DMSLiteDataSet.TBDD_CONNECTIONDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal name As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (name Is Nothing) Then + Throw New Global.System.ArgumentNullException("name") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(name,String) + End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -16882,9 +15726,14 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable + Public Overloads Overridable Function GetData(ByVal name As String) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable = New DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable() + If (name Is Nothing) Then + Throw New Global.System.ArgumentNullException("name") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(name,String) + End If + Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -16893,9 +15742,9 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ - Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable, ByVal ID As Short) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Short) + Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(6) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -16907,10 +15756,10 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ - Public Overloads Overridable Function GetDataByID(ByVal ID As Short) As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Short) - Dim dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable = New DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable() + Public Overloads Overridable Function GetDataByID(ByVal ID As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(6) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -16918,7 +15767,7 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -16926,7 +15775,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") + Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_FINAL_INDEXING") End Function _ - 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) _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ + Public Overloads Overridable Function CmdDelete(ByVal guid As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(guid,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + command.Connection.Open End If + Dim returnValue As Integer Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + command.Connection.Close End If End Try + Return returnValue End Function _ - Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal SYS_CONNECTION As Boolean) 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) + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ + Public Overloads Overridable Function CmdDelete_ProfilID(ByVal PROFIL_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(PROFIL_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open End If - If (SQL_PROVIDER Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function CmdInsert(ByVal PROFIL_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal IF_VEKTOR_BEHAVIOUR As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + command.Parameters(0).Value = CType(PROFIL_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + command.Parameters(1).Value = CType(INDEXNAME,String) End If - If (SERVER Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + If (VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("VALUE") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) + command.Parameters(2).Value = CType(VALUE,String) End If - If (DATENBANK Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK,String) - End If - If (USERNAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) - End If - If (PASSWORD Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) + command.Parameters(3).Value = CType(ADDED_WHO,String) End If - If (BEMERKUNG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + command.Parameters(4).Value = CType(CONNECTION_ID,Short) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG,String) + command.Parameters(5).Value = CType(SQL_COMMAND,String) End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV,Boolean) - If (ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERSTELLTWER") + If (IF_VEKTOR_BEHAVIOUR Is Nothing) Then + Throw New Global.System.ArgumentNullException("IF_VEKTOR_BEHAVIOUR") Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) + command.Parameters(6).Value = CType(IF_VEKTOR_BEHAVIOUR,String) End If - Me.Adapter.InsertCommand.Parameters(9).Value = CType(SYS_CONNECTION,Boolean) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + command.Connection.Open End If + Dim returnValue As Integer Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + command.Connection.Close End If End Try + Return returnValue End Function _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal 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 SYS_CONNECTION As Boolean, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer - If (BEZEICHNUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) - End If - If (SQL_PROVIDER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) - End If - If (SERVER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) - End If - If (DATENBANK Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK,String) - End If - If (USERNAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME,String) - End If - If (PASSWORD Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) - End If - If (BEMERKUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function CmdInsert_Copy(ByVal NEW_PROFIL_ID As String, ByVal User As String, ByVal Copy_Profil_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) + If (NEW_PROFIL_ID Is Nothing) Then + Throw New Global.System.ArgumentNullException("NEW_PROFIL_ID") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG,String) + command.Parameters(0).Value = CType(NEW_PROFIL_ID,String) End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV,Boolean) - If (GEANDERTWER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + If (User Is Nothing) Then + Throw New Global.System.ArgumentNullException("User") Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER,String) + command.Parameters(1).Value = CType(User,String) End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SYS_CONNECTION,Boolean) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Short) - Me.Adapter.UpdateCommand.Parameters(11).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) _ + command.Parameters(2).Value = CType(Copy_Profil_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + command.Connection.Open End If + Dim returnValue As Integer Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + command.Connection.Close End If End Try + Return returnValue End Function _ - Public Overloads Overridable Function CmdInsert(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 SYS_CONNECTION As Boolean) As Object - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - If (BEZEICHNUNG Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value - Else - command.Parameters(0).Value = CType(BEZEICHNUNG,String) - End If - If (SQL_PROVIDER Is Nothing) Then - command.Parameters(1).Value = Global.System.DBNull.Value + Public Overloads Overridable Function cmdUpdateSQL(ByVal CON_ID As Short, ByVal COMMAND1 As String, ByVal WHO As String, ByVal IF_VEKTOR_BEHAVIOUR As String, ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) + command.Parameters(0).Value = CType(CON_ID,Short) + If (COMMAND1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COMMAND1") Else - command.Parameters(1).Value = CType(SQL_PROVIDER,String) + command.Parameters(1).Value = CType(COMMAND1,String) End If - If (SERVER Is Nothing) Then + If (WHO Is Nothing) Then command.Parameters(2).Value = Global.System.DBNull.Value Else - command.Parameters(2).Value = CType(SERVER,String) - End If - If (DATENBANK Is Nothing) Then - command.Parameters(3).Value = Global.System.DBNull.Value - Else - command.Parameters(3).Value = CType(DATENBANK,String) - End If - If (USERNAME Is Nothing) Then - command.Parameters(4).Value = Global.System.DBNull.Value - Else - command.Parameters(4).Value = CType(USERNAME,String) - End If - If (PASSWORD Is Nothing) Then - command.Parameters(5).Value = Global.System.DBNull.Value - Else - command.Parameters(5).Value = CType(PASSWORD,String) - End If - If (BEMERKUNG Is Nothing) Then - command.Parameters(6).Value = Global.System.DBNull.Value - Else - command.Parameters(6).Value = CType(BEMERKUNG,String) + command.Parameters(2).Value = CType(WHO,String) End If - command.Parameters(7).Value = CType(AKTIV,Boolean) - If (ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERSTELLTWER") + If (IF_VEKTOR_BEHAVIOUR Is Nothing) Then + Throw New Global.System.ArgumentNullException("IF_VEKTOR_BEHAVIOUR") Else - command.Parameters(8).Value = CType(ERSTELLTWER,String) + command.Parameters(3).Value = CType(IF_VEKTOR_BEHAVIOUR,String) End If - command.Parameters(9).Value = CType(SYS_CONNECTION,Boolean) + command.Parameters(4).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If - Dim returnValue As Object + Dim returnValue As Integer Try - returnValue = command.ExecuteScalar + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing - Else - Return CType(returnValue,Object) - End If + Return returnValue End Function End Class @@ -17168,7 +15966,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPROFILE_USERTableAdapter + Partial Public Class TBPM_KONFIGURATIONTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -17285,15 +16083,72 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPROFILE_USER" + tableMapping.DataSetTable = "TBPM_KONFIGURATION" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") + tableMapping.ColumnMappings.Add("LIZENZEN", "LIZENZEN") + tableMapping.ColumnMappings.Add("ERFASSTWER", "ERFASSTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") + tableMapping.ColumnMappings.Add("INTERVALL_CKECK_NO_OF_FILES", "INTERVALL_CKECK_NO_OF_FILES") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("EMAIL_ACTIVE", "EMAIL_ACTIVE") + tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") + tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") + tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") + tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") + tableMapping.ColumnMappings.Add("EMAIL_REMINDER_HEADER", "EMAIL_REMINDER_HEADER") + tableMapping.ColumnMappings.Add("EMAIL_REMINDER_FOOTER", "EMAIL_REMINDER_FOOTER") + tableMapping.ColumnMappings.Add("VEKTOR_DELIMITER", "VEKTOR_DELIMITER") + tableMapping.ColumnMappings.Add("ADMIN_PW", "ADMIN_PW") + tableMapping.ColumnMappings.Add("ADMIN_SECURITY", "ADMIN_SECURITY") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPM_KONFIGURATION] WHERE (([GUID] = @Original_GUID))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, 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 [TBPM_KONFIGURATION] ([GUID], [LIZENZEN], [ERFASSTWER], [ERSTELLTWER]"& _ + ", [ERSTELLTWANN], [GEAENDERTWER], [INTERVALL_CKECK_NO_OF_FILES], [GEAENDERTWANN]"& _ + ") VALUES (@GUID, @LIZENZEN, @ERFASSTWER, @ERSTELLTWER, @ERSTELLTWANN, @GEAENDERT"& _ + "WER, @INTERVALL_CKECK_NO_OF_FILES, @GEAENDERTWANN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LIZENZEN, ERFA"& _ + "SSTWER, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES, GE"& _ + "AENDERTWANN FROM TBPM_KONFIGURATION WHERE (GUID = @GUID)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LIZENZEN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LIZENZEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERFASSTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERFASSTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LIZENZEN = @LIZENZEN, GEAENDE"& _ + "RTWER = @GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES = @INTERVALL_CKECK_NO_OF_FILE"& _ + "S, EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_FROM,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL_PW, "& _ + "EMAIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EMAIL"& _ + "_REMINDER_FOOTER = @EMAIL_REMINDER_FOOTER, VEKTOR_DELIMITER = @VEKTOR_DELIMITER"&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, LIZENZEN, ERFASSTWER, "& _ + "ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES, GEAENDERTW"& _ + "ANN FROM TBPM_KONFIGURATION WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LIZENZEN", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LIZENZEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERVALL_CKECK_NO_OF_FILES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_HEADER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_FOOTER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_FOOTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VEKTOR_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VEKTOR_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(7) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT T1.GUID, T1.PRENAME, T1.NAME, T1.USERNAME, T1.EMAIL, T1.COMMENT, T1"& _ - ".SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_USER T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBDD_USER T1 ON T.USER_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.PROFIL_ID = @profil_id"& _ - ")" + Me._commandCollection(0).CommandText = "SELECT GUID, LIZENZEN, ERFASSTWER, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER"& _ + ", INTERVALL_CKECK_NO_OF_FILES, GEAENDERTWANN, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SM"& _ + "TP, EMAIL_USER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EMAIL_PW, EMAIL_REMINDER_HEADER, EMAI"& _ + "L_REMINDER_FOOTER, VEKTOR_DELIMITER, ADMIN_PW, ADMIN_SECURITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM T"& _ + "BPM_KONFIGURATION" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "DELETE FROM TBPM_PROFILE_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFILE_ID) AND (USER_I"& _ - "D = @USER_ID)" + Me._commandCollection(1).CommandText = "SELECT ADMIN_PW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = "& _ + "1)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFILE_ID)" + Me._commandCollection(2).CommandText = "SELECT ADMIN_SECURITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (G"& _ + "UID = 1)" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "INSERT INTO TBPM_PROFILE_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, USER_ID, ADDE"& _ - "D_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@USER_ID,@WHO)" + Me._commandCollection(3).CommandText = "SELECT VEKTOR_DELIMITER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + "(GUID = 1)" Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "SELECT LIZENZEN FROM TBPM_KONFIGURATION WHERE (GUID = 1)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ADMIN_PW = @ADMIN_PW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = 1)" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(6).Connection = Me.Connection + Me._commandCollection(6).CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEAENDERTWER = @GEAENDERTWER,"& _ + " EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_FROM, EMAIL_SMTP = @EMAIL_SMT"& _ + "P, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL_PW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EM"& _ + "AIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER = @EMAIL_REM"& _ + "INDER_FOOTER"&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, LIZENZEN, E"& _ + "RFASSTWER, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, INTERVALL_CKECK_NO_OF_FILES,"& _ + " GEAENDERTWANN FROM TBPM_KONFIGURATION WHERE (GUID = @GUID)" + Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_HEADER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_FOOTER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_FOOTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(7).Connection = Me.Connection + Me._commandCollection(7).CommandText = "UPDATE TBPM_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEAENDERTWER = @GEAENDERTWER,"& _ + " LIZENZEN = @LIZENZEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = 1)" + Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LIZENZEN", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LIZENZEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPROFILE_USERDataTable, ByVal profil_id As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(profil_id,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -17355,45 +16241,156 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal profil_id As Integer) As DD_DMSLiteDataSet.TBPROFILE_USERDataTable + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(profil_id,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBPROFILE_USERDataTable = New DD_DMSLiteDataSet.TBPROFILE_USERDataTable() + Dim dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable = New DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ - Public Overloads Overridable Function CmdDelete(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer) As Integer + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_KONFIGURATIONDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPM_KONFIGURATION") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function cmdGetAdminPW() As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(PROFILE_ID,Integer) - command.Parameters(1).Value = CType(USER_ID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If - Dim returnValue As Integer + Dim returnValue As Object Try - returnValue = command.ExecuteNonQuery + returnValue = command.ExecuteScalar Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try - Return returnValue + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,String) + End If End Function _ - Public Overloads Overridable Function cmdDeleteAllForProfile(ByVal PROFILE_ID As Integer) As Integer + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function cmdGetAdminSecurity() As Global.System.Nullable(Of Boolean) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Boolean)() + Else + Return New Global.System.Nullable(Of Boolean)(CType(returnValue,Boolean)) + End If + End Function + + _ + Public Overloads Overridable Function cmdGetDelimiter() As String + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,String) + End If + End Function + + _ + Public Overloads Overridable Function cmdGetLizenz() As String + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,String) + End If + End Function + + _ + Public Overloads Overridable Function cmdSetAdminPW(ByVal ADMIN_PW As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) + If (ADMIN_PW Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(ADMIN_PW,String) + End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -17413,16 +16410,47 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function CMDInsert(ByVal PROFIL_ID As Integer, ByVal USER_ID As Integer, ByVal WHO As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) - command.Parameters(0).Value = CType(PROFIL_ID,Integer) - command.Parameters(1).Value = CType(USER_ID,Integer) - If (WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("WHO") + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, false)> _ + Public Overloads Overridable Function cmdUpdateEmail(ByVal GEAENDERTWER As String, ByVal EMAIL_ACTIVE As Boolean, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal EMAIL_REMINDER_HEADER As String, ByVal EMAIL_REMINDER_FOOTER As String, ByVal Original_GUID As Byte, ByVal GUID As Byte) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) + If (GEAENDERTWER Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value Else - command.Parameters(2).Value = CType(WHO,String) + command.Parameters(0).Value = CType(GEAENDERTWER,String) + End If + command.Parameters(1).Value = CType(EMAIL_ACTIVE,Boolean) + If (EMAIL_FROM Is Nothing) Then + command.Parameters(2).Value = Global.System.DBNull.Value + Else + command.Parameters(2).Value = CType(EMAIL_FROM,String) + End If + If (EMAIL_SMTP Is Nothing) Then + command.Parameters(3).Value = Global.System.DBNull.Value + Else + command.Parameters(3).Value = CType(EMAIL_SMTP,String) + End If + If (EMAIL_USER Is Nothing) Then + command.Parameters(4).Value = Global.System.DBNull.Value + Else + command.Parameters(4).Value = CType(EMAIL_USER,String) + End If + If (EMAIL_PW Is Nothing) Then + command.Parameters(5).Value = Global.System.DBNull.Value + Else + command.Parameters(5).Value = CType(EMAIL_PW,String) + End If + If (EMAIL_REMINDER_HEADER Is Nothing) Then + command.Parameters(6).Value = Global.System.DBNull.Value + Else + command.Parameters(6).Value = CType(EMAIL_REMINDER_HEADER,String) + End If + If (EMAIL_REMINDER_FOOTER Is Nothing) Then + command.Parameters(7).Value = Global.System.DBNull.Value + Else + command.Parameters(7).Value = CType(EMAIL_REMINDER_FOOTER,String) End If + command.Parameters(8).Value = CType(Original_GUID,Byte) + command.Parameters(9).Value = CType(GUID,Byte) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -17438,23 +16466,55 @@ Namespace DD_DMSLiteDataSetTableAdapters End Try Return returnValue End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPM_PROFILE_FILESTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - Private _connection As Global.System.Data.SqlClient.SqlConnection + _ + Public Overloads Overridable Function CmdUpdateLizenz(ByVal GEAENDERTWER As String, ByVal LIZENZEN As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7) + If (GEAENDERTWER Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(GEAENDERTWER,String) + End If + If (LIZENZEN Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(LIZENZEN,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_USERTableAdapter + 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 @@ -17566,27 +16626,84 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPM_PROFILE_FILES" + tableMapping.DataSetTable = "TBDD_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("FILE_PATH", "FILE_PATH") - tableMapping.ColumnMappings.Add("DMS_ERSTELLT_DATE", "DMS_ERSTELLT_DATE") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPM_PROFILE_FILES] WHERE (([GUID] = @Original_GUID))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_USER] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PRENAME = "& _ + "1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND ((@IsNull_NAME "& _ + "= 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USERNAME] = @Origina"& _ + "l_USERNAME) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS NULL) OR ([EMAIL] = @Original"& _ + "_EMAIL)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AN"& _ + "D [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_"& _ + "CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED"& _ + "_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_W"& _ + "HEN] = @Original_CHANGED_WHEN)) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL)"& _ + " OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME]"& _ + " IS NULL) OR ([SHORTNAME] = @Original_SHORTNAME)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRENAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EMAIL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORTNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _ + "ADDED_WHO, COMMENT, SHORTNAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@"& _ + "ADDED_WHO,@COMMENT,@SHORTNAME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, A"& _ + "DDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT, SHORTNAME FROM TBDD_US"& _ + "ER WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_PROFILE_FILES] SET [FILE_PATH] = @FILE_PATH, [DMS_ERSTELLT_DATE] = @"& _ - "DMS_ERSTELLT_DATE WHERE (([GUID] = @Original_GUID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILE_PATH, DM"& _ - "S_ERSTELLT_DATE FROM TBPM_PROFILE_FILES WHERE (GUID = @GUID) ORDER BY DMS_ERSTEL"& _ - "LT_DATE" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _ + "NAME = @USERNAME, EMAIL = @EMAIL, CHANGED_WHO = @CHANGED_WHO, COMMENT = @COMMENT"& _ + ", SHORTNAME = @SHORTNAME"&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, P"& _ + "RENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN,"& _ + " COMMENT, SHORTNAME FROM TBDD_USER WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DMS_ERSTELLT_DATE", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DMS_ERSTELLT_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(5) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, FILE_PATH, DMS_ERSTELLT_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FI"& _ - "LES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (EDIT = 0) AND (PROFIL_ID = @Profil_id) AND (ACTIVE = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDE"& _ - "R BY DMS_ERSTELLT_DATE" + Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGE"& _ + "D_WHO, CHANGED_WHEN, COMMENT, SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT USER_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBDD_USER_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (MODULE_ID ="&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBDD_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (SHORT_NAME = 'PM')))))" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT EDIT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @AK"& _ - "TUELLE_ID)" + Me._commandCollection(1).CommandText = "SELECT T1.GUID, T1.PRENAME, T1.NAME, T1.USERNAME, T1.EMAIL, T1.ADDED_WHO, "& _ + "T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN, T1.COMMENT, T1.SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBDD_USER_MODULES AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER "& _ + "AS T1 ON T.USER_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.MODULE_ID ="&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBDD"& _ + "_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (SHORT_NAME = 'PM'))) AND "& _ + "(T.USER_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT USER_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBPM_PROFILE_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (PROFIL_ID = @PROFILE_ID)))" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTUELLE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT IN_WORK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @"& _ - "AKTUELLE_ID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTUELLE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "DELETE FROM TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" - Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(3).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.Original, false, Nothing, "", "", "")) - Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(4).Connection = Me.Connection - Me._commandCollection(4).CommandText = "DELETE FROM TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID)" - Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(5).Connection = Me.Connection - Me._commandCollection(5).CommandText = "UPDATE TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET EDIT = 1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID "& _ - "= @GUID)" - Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_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_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable, ByVal Profil_id As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(Profil_id,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -17655,10 +16760,35 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal Profil_id As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(Profil_id,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable() + Dim dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable = New DD_DMSLiteDataSet.TBDD_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByProfileId_NotAssigned(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable, ByVal PROFILE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByProfileId_NotAssigned(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.TBDD_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable = New DD_DMSLiteDataSet.TBDD_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -17666,7 +16796,7 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -17674,7 +16804,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_FILES") + Return Me.Adapter.Update(dataSet, "TBDD_USER") End Function _ - Public Overloads Overridable Function cmdCheckEdit(ByVal AKTUELLE_ID As Integer) As Object - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(AKTUELLE_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PRENAME As String, ByVal Original_NAME As String, ByVal Original_USERNAME As String, ByVal Original_EMAIL As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_COMMENT As String, ByVal Original_SHORTNAME As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_PRENAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PRENAME,String) End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing + If (Original_NAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Return CType(returnValue,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_NAME,String) End If - End Function - - _ - Public Overloads Overridable Function CmdCheckInWork(ByVal AKTUELLE_ID As Integer) As Global.System.Nullable(Of Boolean) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(AKTUELLE_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + If (Original_USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USERNAME") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_USERNAME,String) End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Boolean)() + If (Original_EMAIL Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Return New Global.System.Nullable(Of Boolean)(CType(returnValue,Boolean)) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_EMAIL,String) End If - End Function - - _ - Public Overloads Overridable Function CmdDelete(ByVal ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) - command.Parameters(0).Value = CType(ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_COMMENT,String) + End If + If (Original_SHORTNAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_SHORTNAME,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open End If - Dim returnValue As Integer Try - returnValue = command.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close End If End Try - Return returnValue End Function _ - Public Overloads Overridable Function cmdDeleteProfilData(ByVal PROFIL_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) - command.Parameters(0).Value = CType(PROFIL_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ + Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal COMMENT As String, ByVal SHORTNAME As String) As Integer + If (PRENAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) + End If + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + End If + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) + End If + If (EMAIL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(COMMENT,String) + End If + If (SHORTNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SHORTNAME,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.InsertCommand.Connection.Open End If - Dim returnValue As Integer Try - returnValue = command.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.InsertCommand.Connection.Close End If End Try - Return returnValue End Function _ - Public Overloads Overridable Function CmdSetEdit(ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) - command.Parameters(0).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal CHANGED_WHO As String, ByVal COMMENT As String, ByVal SHORTNAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (PRENAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) + End If + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) + End If + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) + End If + If (EMAIL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COMMENT,String) + End If + If (SHORTNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SHORTNAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open End If - Dim returnValue As Integer Try - returnValue = command.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close End If End Try - Return returnValue End Function End Class @@ -17824,7 +17030,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPM_PROFILETableAdapter + Partial Public Class TBPM_TYPETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -17941,163 +17147,68 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPM_PROFILE" + tableMapping.DataSetTable = "TBPM_TYPE" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("TITLE", "TITLE") - tableMapping.ColumnMappings.Add("PRIORITY", "PRIORITY") - tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") - tableMapping.ColumnMappings.Add("NO_OF_DOCUMENTS", "NO_OF_DOCUMENTS") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("FINAL_PROFILE", "FINAL_PROFILE") - tableMapping.ColumnMappings.Add("FINAL_TEXT", "FINAL_TEXT") - tableMapping.ColumnMappings.Add("MOVE2FOLDER", "MOVE2FOLDER") - tableMapping.ColumnMappings.Add("TYPE", "TYPE") - tableMapping.ColumnMappings.Add("WD_OBJECTTYPE", "WD_OBJECTTYPE") - tableMapping.ColumnMappings.Add("SORT_BY_LATEST", "SORT_BY_LATEST") - tableMapping.ColumnMappings.Add("PM_VEKTOR_INDEX", "PM_VEKTOR_INDEX") - tableMapping.ColumnMappings.Add("LOG_INDEX", "LOG_INDEX") - tableMapping.ColumnMappings.Add("SQL_VIEW", "SQL_VIEW") - tableMapping.ColumnMappings.Add("ANNOTATE_ALL_WORK_HISTORY_ENTRIES", "ANNOTATE_ALL_WORK_HISTORY_ENTRIES") - tableMapping.ColumnMappings.Add("ANNOTATE_WORK_HISTORY_ENTRY", "ANNOTATE_WORK_HISTORY_ENTRY") - tableMapping.ColumnMappings.Add("WORK_HISTORY_ENTRY", "WORK_HISTORY_ENTRY") - tableMapping.ColumnMappings.Add("DISPLAY_MODE", "DISPLAY_MODE") - tableMapping.ColumnMappings.Add("SQL_BTN_FINISH", "SQL_BTN_FINISH") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPM_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Origin"& _ - "al_NAME) AND ([TITLE] = @Original_TITLE) AND ([PRIORITY] = @Original_PRIORITY) A"& _ - "ND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Ori"& _ - "ginal_DESCRIPTION)) AND ([ACTIVE] = @Original_ACTIVE) AND ([WD_SEARCH] = @Origin"& _ - "al_WD_SEARCH) AND ([NO_OF_DOCUMENTS] = @Original_NO_OF_DOCUMENTS) AND ([ADDED_WH"& _ - "O] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNul"& _ - "l_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANG"& _ - "ED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED"& _ - "_WHEN] = @Original_CHANGED_WHEN)) AND ([FINAL_PROFILE] = @Original_FINAL_PROFILE"& _ - ") AND ((@IsNull_FINAL_TEXT = 1 AND [FINAL_TEXT] IS NULL) OR ([FINAL_TEXT] = @Ori"& _ - "ginal_FINAL_TEXT)) AND ((@IsNull_MOVE2FOLDER = 1 AND [MOVE2FOLDER] IS NULL) OR ("& _ - "[MOVE2FOLDER] = @Original_MOVE2FOLDER)) AND ([TYPE] = @Original_TYPE) AND ([WD_O"& _ - "BJECTTYPE] = @Original_WD_OBJECTTYPE) AND ([SORT_BY_LATEST] = @Original_SORT_BY_"& _ - "LATEST) AND ([PM_VEKTOR_INDEX] = @Original_PM_VEKTOR_INDEX) AND ([LOG_INDEX] = @"& _ - "Original_LOG_INDEX) AND ([ANNOTATE_ALL_WORK_HISTORY_ENTRIES] = @Original_ANNOTAT"& _ - "E_ALL_WORK_HISTORY_ENTRIES) AND ([ANNOTATE_WORK_HISTORY_ENTRY] = @Original_ANNOT"& _ - "ATE_WORK_HISTORY_ENTRY) AND ((@IsNull_WORK_HISTORY_ENTRY = 1 AND [WORK_HISTORY_E"& _ - "NTRY] IS NULL) OR ([WORK_HISTORY_ENTRY] = @Original_WORK_HISTORY_ENTRY)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPM_TYPE] WHERE (([GUID] = @Original_GUID) AND ([BEZEICHNUNG] = @Or"& _ + "iginal_BEZEICHNUNG) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = "& _ + "@Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) O"& _ + "R ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [C"& _ + "HANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRIORITY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FINAL_TEXT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MOVE2FOLDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, TITLE, PRIORITY, DESCRI"& _ - "PTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT,"& _ - " MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, "& _ - "ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME"& _ - ",@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@F"& _ - "INAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_V"& _ - "EKTOR_INDEX,@WORK_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@AN"& _ - "NOTATE_WORK_HISTORY_ENTRY,@DISPLAY_MODE,@SQL_BTN_FINISH); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _ - "NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WH"& _ - "O, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER"& _ - ", TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDEN"& _ - "TITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPM_TYPE] ([BEZEICHNUNG], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO],"& _ + " [CHANGED_WHEN]) VALUES (@BEZEICHNUNG, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @C"& _ + "HANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHA"& _ + "NGED_WHEN FROM TBPM_TYPE WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_VIEW", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, TITLE = @TITLE, PRIOR"& _ - "ITY = @PRIORITY, DESCRIPTION = @DESCRIPTION, ACTIVE = @ACTIVE, WD_SEARCH = @WD_S"& _ - "EARCH, NO_OF_DOCUMENTS = @NO_OF_DOCUMENTS, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WH"& _ - "O = @CHANGED_WHO, FINAL_PROFILE = @FINAL_PROFILE, FINAL_TEXT = @FINAL_TEXT, MOVE"& _ - "2FOLDER = @MOVE2FOLDER, TYPE = @TYPE, WD_OBJECTTYPE = @WD_OBJECTTYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " SORT_BY_LATEST = @SORT_BY_LATEST, PM_VEKTOR_INDEX = @PM_VEKTOR_"& _ - "INDEX, LOG_INDEX = @LOG_INDEX, WORK_HISTORY_ENTRY = @WORK_HISTORY_ENTRY, SQL_VIE"& _ - "W = @SQL_VIEW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @A"& _ - "NNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_H"& _ - "ISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_BTN_F"& _ - "INISH = @SQL_BTN_FINISH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ - "GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, AD"& _ - "DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2"& _ - "FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUI"& _ - "D)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_TYPE] SET [BEZEICHNUNG] = @BEZEICHNUNG, [ADDED_WHO] = @ADDED_WHO, [A"& _ + "DDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGE"& _ + "D_WHEN WHERE (([GUID] = @Original_GUID) AND ([BEZEICHNUNG] = @Original_BEZEICHNU"& _ + "NG) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_"& _ + "WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO]"& _ + " = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS "& _ + "NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG,"& _ + " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPM_TYPE 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("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_VIEW", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(9) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_"& _ - "DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINA"& _ - "L_TEXT, MOVE2FOLDER, TYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WD_OBJECTTYPE, SORT_BY_LAT"& _ - "EST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, AN"& _ - "NOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " SQL_BTN_FINISH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME" + Me._commandCollection(0).CommandText = "SELECT TBPM_TYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_TYPE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT COUNT(*) FROM TBPM_PROFILE" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "SELECT GUID FROM TBPM_PROFILE WHERE (FINAL_PROFILE = 1) AND (UPPER(NAME) = UPPER("& _ - "@name))" - Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(4).Connection = Me.Connection - Me._commandCollection(4).CommandText = "INSERT INTO TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, TITLE, PRIORITY, DESCRI"& _ - "PTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT,"& _ - " MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " LOG_INDEX, WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTOR"& _ - "Y_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT NAME + @COPY_SUFFIX AS Ex"& _ - "pr1, TITLE + @COPY_SUFFIX AS Expr5, PRIORITY, DESCRIPTION, 0 AS Expr2, WD_SEARCH"& _ - ", 0 AS Expr3, @USER AS Expr4, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX"& _ - ", WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " ANNOTATE_WORK_HISTORY_ENTRY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE AS TBPM_"& _ - "PROFILE_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" - Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COPY_SUFFIX", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(5).Connection = Me.Connection - Me._commandCollection(5).CommandText = "SELECT MAX(GUID) FROM TBPM_PROFILE" - Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(6).Connection = Me.Connection - Me._commandCollection(6).CommandText = "SELECT COUNT(GUID) FROM TBPM_PROFILE WHERE NAME = @NAME" - Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(7).Connection = Me.Connection - Me._commandCollection(7).CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LOG_INDEX = @LOG__INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION,"& _ - " ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ - "_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATE"& _ - "ST,LOG_INDEX FROM TBPM_PROFILE WHERE (GUID = @GUID)" - Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG__INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(8) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(8).Connection = Me.Connection - Me._commandCollection(8).CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NO_OF_DOCUMENTS = @NUMBER, CHANGED_"& _ - "WHO = @WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" - Me._commandCollection(8).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(9) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(9).Connection = Me.Connection - Me._commandCollection(9).CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PM_VEKTOR_INDEX = @PM_VEKTOR_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ - "WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DES"& _ - "CRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ - ", CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SOR"& _ - "T_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUID)" - Me._commandCollection(9).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(9).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(9).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(9).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -18210,9 +17245,9 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_PROFILEDataTable + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_TYPEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable = New DD_DMSLiteDataSet.TBPM_PROFILEDataTable() + Dim dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable = New DD_DMSLiteDataSet.TBPM_TYPEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -18220,7 +17255,7 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_TYPEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -18228,7 +17263,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPM_PROFILE") + Return Me.Adapter.Update(dataSet, "TBPM_TYPE") End Function _ - Public Overloads Overridable Function Delete( _ - ByVal Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_TITLE As String, _ - ByVal Original_PRIORITY As Integer, _ - ByVal Original_DESCRIPTION As String, _ - ByVal Original_ACTIVE As Boolean, _ - ByVal Original_WD_SEARCH As String, _ - ByVal Original_NO_OF_DOCUMENTS As Integer, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_FINAL_PROFILE As Boolean, _ - ByVal Original_FINAL_TEXT As String, _ - ByVal Original_MOVE2FOLDER As String, _ - ByVal Original_TYPE As Short, _ - ByVal Original_WD_OBJECTTYPE As String, _ - ByVal Original_SORT_BY_LATEST As Boolean, _ - ByVal Original_PM_VEKTOR_INDEX As String, _ - ByVal Original_LOG_INDEX As String, _ - ByVal Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ - ByVal Original_ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ - ByVal Original_WORK_HISTORY_ENTRY As String) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_NAME") + Public Overloads Overridable Function Delete(ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) + If (Original_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG") Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME,String) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_BEZEICHNUNG,String) End If - If (Original_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_TITLE") + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_TITLE,String) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHO,String) End If - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PRIORITY,Integer) - If (Original_DESCRIPTION Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_DESCRIPTION,String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CHANGED_WHO,String) End If - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ACTIVE,Boolean) - If (Original_WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_WD_SEARCH,String) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value End If - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_NO_OF_DOCUMENTS,Integer) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value - End If - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_FINAL_PROFILE,Boolean) - If (Original_FINAL_TEXT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_FINAL_TEXT,String) - End If - If (Original_MOVE2FOLDER Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_MOVE2FOLDER,String) - End If - Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_TYPE,Short) - If (Original_WD_OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WD_OBJECTTYPE") - Else - Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_WD_OBJECTTYPE,String) - End If - Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_SORT_BY_LATEST,Boolean) - If (Original_PM_VEKTOR_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PM_VEKTOR_INDEX") - Else - Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_PM_VEKTOR_INDEX,String) - End If - If (Original_LOG_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LOG_INDEX") - Else - Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_LOG_INDEX,String) - End If - Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean) - Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_ANNOTATE_WORK_HISTORY_ENTRY,Boolean) - If (Original_WORK_HISTORY_ENTRY Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_WORK_HISTORY_ENTRY,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery @@ -18379,100 +17330,27 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert( _ - ByVal NAME As String, _ - ByVal TITLE As String, _ - ByVal PRIORITY As Integer, _ - ByVal DESCRIPTION As String, _ - ByVal ACTIVE As Boolean, _ - ByVal WD_SEARCH As String, _ - ByVal NO_OF_DOCUMENTS As Integer, _ - ByVal ADDED_WHO As String, _ - ByVal FINAL_PROFILE As Boolean, _ - ByVal FINAL_TEXT As String, _ - ByVal MOVE2FOLDER As String, _ - ByVal TYPE As Short, _ - ByVal WD_OBJECTTYPE As String, _ - ByVal SORT_BY_LATEST As Boolean, _ - ByVal PM_VEKTOR_INDEX As String, _ - ByVal WORK_HISTORY_ENTRY As String, _ - ByVal SQL_VIEW As String, _ - ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ - ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ - ByVal DISPLAY_MODE As String, _ - ByVal SQL_BTN_FINISH As String) As Integer - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) - End If - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(TITLE,String) - End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(PRIORITY,Integer) - If (DESCRIPTION Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(DESCRIPTION,String) - End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(WD_SEARCH,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If - Me.Adapter.InsertCommand.Parameters(6).Value = CType(NO_OF_DOCUMENTS,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.InsertCommand.Parameters(8).Value = CType(FINAL_PROFILE,Boolean) - If (FINAL_TEXT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(FINAL_TEXT,String) - End If - If (MOVE2FOLDER Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(MOVE2FOLDER,String) - End If - Me.Adapter.InsertCommand.Parameters(11).Value = CType(TYPE,Short) - If (WD_OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_OBJECTTYPE") - Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(WD_OBJECTTYPE,String) - End If - Me.Adapter.InsertCommand.Parameters(13).Value = CType(SORT_BY_LATEST,Boolean) - If (PM_VEKTOR_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("PM_VEKTOR_INDEX") - Else - Me.Adapter.InsertCommand.Parameters(14).Value = CType(PM_VEKTOR_INDEX,String) - End If - If (WORK_HISTORY_ENTRY Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(15).Value = CType(WORK_HISTORY_ENTRY,String) - End If - If (SQL_VIEW Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_VIEW") - Else - Me.Adapter.InsertCommand.Parameters(16).Value = CType(SQL_VIEW,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) End If - Me.Adapter.InsertCommand.Parameters(17).Value = CType(ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean) - Me.Adapter.InsertCommand.Parameters(18).Value = CType(ANNOTATE_WORK_HISTORY_ENTRY,Boolean) - If (DISPLAY_MODE Is Nothing) Then - Throw New Global.System.ArgumentNullException("DISPLAY_MODE") + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(19).Value = CType(DISPLAY_MODE,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CHANGED_WHO,String) End If - If (SQL_BTN_FINISH Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_BTN_FINISH") + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(20).Value = CType(SQL_BTN_FINISH,String) + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -18493,115 +17371,59 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update( _ - ByVal NAME As String, _ - ByVal TITLE As String, _ - ByVal PRIORITY As Integer, _ - ByVal DESCRIPTION As String, _ - ByVal ACTIVE As Boolean, _ - ByVal WD_SEARCH As String, _ - ByVal NO_OF_DOCUMENTS As Integer, _ - ByVal CHANGED_WHO As String, _ - ByVal FINAL_PROFILE As Boolean, _ - ByVal FINAL_TEXT As String, _ - ByVal MOVE2FOLDER As String, _ - ByVal TYPE As Short, _ - ByVal WD_OBJECTTYPE As String, _ - ByVal SORT_BY_LATEST As Boolean, _ - ByVal PM_VEKTOR_INDEX As String, _ - ByVal LOG_INDEX As String, _ - ByVal WORK_HISTORY_ENTRY As String, _ - ByVal SQL_VIEW As String, _ - ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ - ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ - ByVal DISPLAY_MODE As String, _ - ByVal SQL_BTN_FINISH As String, _ - ByVal Original_GUID As Integer, _ - ByVal GUID As Integer) As Integer - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Short) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TITLE,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ADDED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PRIORITY,Integer) - If (DESCRIPTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DESCRIPTION,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(WD_SEARCH,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NO_OF_DOCUMENTS,Integer) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Short) + If (Original_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG") Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_BEZEICHNUNG,String) End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(FINAL_PROFILE,Boolean) - If (FINAL_TEXT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(FINAL_TEXT,String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) End If - If (MOVE2FOLDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(MOVE2FOLDER,String) - End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TYPE,Short) - If (WD_OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_OBJECTTYPE") - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(WD_OBJECTTYPE,String) - End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SORT_BY_LATEST,Boolean) - If (PM_VEKTOR_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("PM_VEKTOR_INDEX") - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(PM_VEKTOR_INDEX,String) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) End If - If (LOG_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("LOG_INDEX") + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(LOG_INDEX,String) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If - If (WORK_HISTORY_ENTRY Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(WORK_HISTORY_ENTRY,String) - End If - If (SQL_VIEW Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_VIEW") - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SQL_VIEW,String) - End If - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(ANNOTATE_WORK_HISTORY_ENTRY,Boolean) - If (DISPLAY_MODE Is Nothing) Then - Throw New Global.System.ArgumentNullException("DISPLAY_MODE") - Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(DISPLAY_MODE,String) - End If - If (SQL_BTN_FINISH Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_BTN_FINISH") - Else - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(SQL_BTN_FINISH,String) - End If - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GUID,Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery @@ -18615,220 +17437,373 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function cmdAnzProfile() As Global.System.Nullable(Of Integer) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() - Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) - End If + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Short, ByVal Original_BEZEICHNUNG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_BEZEICHNUNG, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPM_ERROR_LOGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean _ - Public Overloads Overridable Function cmdDelete(ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter End If - End Try - Return returnValue - End Function + Return Me._adapter + End Get + End Property _ - Public Overloads Overridable Function cmdFinalProfile(ByVal name As String) As Global.System.Nullable(Of Integer) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) - If (name Is Nothing) Then - Throw New Global.System.ArgumentNullException("name") - Else - command.Parameters(0).Value = CType(name,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() - Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) - End If - End Function + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property _ - Public Overloads Overridable Function cmdInsert_Copy(ByVal COPY_SUFFIX As String, ByVal USER As String, ByVal GUID As Integer) As Object - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) - If (COPY_SUFFIX Is Nothing) Then - Throw New Global.System.ArgumentNullException("COPY_SUFFIX") - Else - command.Parameters(0).Value = CType(COPY_SUFFIX,String) - End If - If (USER Is Nothing) Then - Throw New Global.System.ArgumentNullException("USER") - Else - command.Parameters(1).Value = CType(USER,String) - End If - command.Parameters(2).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing - Else - Return CType(returnValue,Object) - End If - End Function + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property _ - Public Overloads Overridable Function cmdMaxGuid() As Global.System.Nullable(Of Integer) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() - Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) - End If - End Function + Return Me._commandCollection + End Get + End Property _ - Public Overloads Overridable Function cmdProfileExists(ByVal NAME As String) As Global.System.Nullable(Of Integer) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - command.Parameters(0).Value = CType(NAME,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPM_ERROR_LOG" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFIL_ID", "PROFIL_ID") + tableMapping.ColumnMappings.Add("ERROR_MSG", "ERROR_MSG") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, ERROR_MSG, ADDED"& _ + "_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@ERROR_MSG,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_I"& _ + "D, ERROR_MSG, ADDED_WHO, ADDED_WHEN FROM TBPM_ERROR_LOG 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("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERROR_MSG", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "ERROR_MSG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_ERROR_LOG] SET [PROFIL_ID] = @PROFIL_ID, [ERROR_MSG] = @ERROR_MSG, ["& _ + "ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Original_G"& _ + "UID) AND ([PROFIL_ID] = @Original_PROFIL_ID) AND ([ERROR_MSG] = @Original_ERROR_"& _ + "MSG) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED"& _ + "_WHEN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, ERROR_MSG, ADDED_WHO, ADDED_WHEN FROM TBPM_ERR"& _ + "OR_LOG WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERROR_MSG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERROR_MSG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFIL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERROR_MSG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERROR_MSG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PROFIL_ID, ERROR_MSG, ADDED_WHO, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + "TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY ADDED_WHEN DESC" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "DELETE FROM TBPM_ERROR_LOG" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "DELETE FROM TBPM_ERROR_LOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROF_ID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable = New DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_ERROR_LOGDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPM_ERROR_LOG") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open End If - Dim returnValue As Object Try - returnValue = command.ExecuteScalar + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close End If End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() - Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) - End If End Function _ - Public Overloads Overridable Function cmdUpdatelogIndex(ByVal LOG__INDEX As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7) - If (LOG__INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("LOG__INDEX") + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ + Public Overloads Overridable Function Insert(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) + If (ERROR_MSG Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERROR_MSG") Else - command.Parameters(0).Value = CType(LOG__INDEX,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ERROR_MSG,String) End If - command.Parameters(1).Value = CType(Original_GUID,Integer) - command.Parameters(2).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.InsertCommand.Connection.Open End If - Dim returnValue As Integer Try - returnValue = command.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.InsertCommand.Connection.Close End If End Try - Return returnValue End Function _ - Public Overloads Overridable Function cmdUpdateNo(ByVal NUMBER As Integer, ByVal WHO As String, ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(8) - command.Parameters(0).Value = CType(NUMBER,Integer) - If (WHO Is Nothing) Then - command.Parameters(1).Value = Global.System.DBNull.Value + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_PROFIL_ID As Integer, ByVal Original_ERROR_MSG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) + If (ERROR_MSG Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERROR_MSG") Else - command.Parameters(1).Value = CType(WHO,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ERROR_MSG,String) End If - command.Parameters(2).Value = CType(GUID,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_PROFIL_ID,Integer) + If (Original_ERROR_MSG Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERROR_MSG") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ERROR_MSG,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_PROFIL_ID As Integer, ByVal Original_ERROR_MSG As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date) As Integer + Return Me.Update(PROFIL_ID, ERROR_MSG, ADDED_WHO, ADDED_WHEN, Original_GUID, Original_PROFIL_ID, Original_ERROR_MSG, Original_ADDED_WHO, Original_ADDED_WHEN, Original_GUID) + End Function + + _ + Public Overloads Overridable Function CmdDelete() As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -18848,16 +17823,10 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function CmdUpdateVKT_Index(ByVal PM_VEKTOR_INDEX As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(9) - If (PM_VEKTOR_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("PM_VEKTOR_INDEX") - Else - command.Parameters(0).Value = CType(PM_VEKTOR_INDEX,String) - End If - command.Parameters(1).Value = CType(Original_GUID,Integer) - command.Parameters(2).Value = CType(GUID,Integer) + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ + Public Overloads Overridable Function DeletePROFIL(ByVal PROF_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(PROF_ID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -18884,7 +17853,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBWH_CHECK_PROFILE_CONTROLSTableAdapter + Partial Public Class TBDD_CONNECTIONTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -19001,17 +17970,68 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBWH_CHECK_PROFILE_CONTROLS" + tableMapping.DataSetTable = "TBDD_CONNECTION" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("CTRL_TYPE", "CTRL_TYPE") - tableMapping.ColumnMappings.Add("INDEX_NAME", "INDEX_NAME") - tableMapping.ColumnMappings.Add("TYP", "TYP") - tableMapping.ColumnMappings.Add("VALIDATION", "VALIDATION") - tableMapping.ColumnMappings.Add("CHOICE_LIST", "CHOICE_LIST") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("SQL_UEBERPRUEFUNG", "SQL_UEBERPRUEFUNG") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") + tableMapping.ColumnMappings.Add("SERVER", "SERVER") + tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") + tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("SYS_CONNECTION", "SYS_CONNECTION") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, SQL_PROVIDER,"& _ + " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, SYS_CONNE"& _ + "CTION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@"& _ + "PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER,@SYS_CONNECTION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZE"& _ + "ICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, "& _ + "ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, 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("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", 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, BEMERKUNG = @BEMERKUNG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER, SYS_CONNECTION = @SYS_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVID"& _ + "ER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTEL"& _ + "LTWANN, GEANDERTWER, GEAENDERTWANN FROM 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("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", 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 InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME, CTRL_TYPE, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CO"& _ - "NNECTION_ID, SQL_UEBERPRUEFUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (PROFIL_ID = @P_ID) AND (CTRL_TYPE <> 'LBL')" + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSW"& _ + "ORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SY"& _ + "S_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@P_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).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, SYS_CONNE"& _ + "CTION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@"& _ + "PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER,@SYS_CONNECTION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZE"& _ + "ICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, "& _ + "ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE"& _ + " (GUID = SCOPE_IDENTITY())" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).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._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSW"& _ + "ORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SY"& _ + "S_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable, ByVal P_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(P_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -19052,133 +18097,401 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal P_ID As Integer) As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(P_ID,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable = New DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable() + Dim dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable = New DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPM_PROFILE_CONTROLSTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - Private _connection As Global.System.Data.SqlClient.SqlConnection + _ + Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable, ByVal ID As Short) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Short) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function - Private _transaction As Global.System.Data.SqlClient.SqlTransaction + _ + Public Overloads Overridable Function GetDataByID(ByVal ID As Short) As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Short) + Dim dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable = New DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_CONNECTIONDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function - Private _clearBeforeFill As Boolean + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") + End Function _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Short) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property + End Try + End Function _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ + Public Overloads Overridable Function Insert(ByVal 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 SYS_CONNECTION As Boolean) As Integer + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) + End If + If (DATENBANK Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK,String) + End If + If (USERNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) + End If + If (BEMERKUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV,Boolean) + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) + End If + Me.Adapter.InsertCommand.Parameters(9).Value = CType(SYS_CONNECTION,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal SYS_CONNECTION As Boolean, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) + End If + If (DATENBANK Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK,String) + End If + If (USERNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) + End If + If (BEMERKUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV,Boolean) + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SYS_CONNECTION,Boolean) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Short) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction + End Try + End Function + + _ + Public Overloads Overridable Function CmdInsert(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 SYS_CONNECTION As Boolean) As Object + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (BEZEICHNUNG Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (SQL_PROVIDER Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + command.Parameters(2).Value = Global.System.DBNull.Value + Else + command.Parameters(2).Value = CType(SERVER,String) + End If + If (DATENBANK Is Nothing) Then + command.Parameters(3).Value = Global.System.DBNull.Value + Else + command.Parameters(3).Value = CType(DATENBANK,String) + End If + If (USERNAME Is Nothing) Then + command.Parameters(4).Value = Global.System.DBNull.Value + Else + command.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + command.Parameters(5).Value = Global.System.DBNull.Value + Else + command.Parameters(5).Value = CType(PASSWORD,String) + End If + If (BEMERKUNG Is Nothing) Then + command.Parameters(6).Value = Global.System.DBNull.Value + Else + command.Parameters(6).Value = CType(BEMERKUNG,String) + End If + command.Parameters(7).Value = CType(AKTIV,Boolean) + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + command.Parameters(8).Value = CType(ERSTELLTWER,String) + End If + command.Parameters(9).Value = CType(SYS_CONNECTION,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close End If - End Set - End Property + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,Object) + End If + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPROFILE_USERTableAdapter + 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 _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + If (Me._adapter Is Nothing) Then + Me.InitAdapter End If - Return Me._commandCollection + Return Me._adapter End Get End Property _ - Public Property ClearBeforeFill() As Boolean + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get - Return Me._clearBeforeFill + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection End Get Set - Me._clearBeforeFill = value - End Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set End Property _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(11) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WH"& _ - "O, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LI"& _ - "ST, CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, "& _ - "FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAU"& _ - "LT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL"& _ - "2, SQL_ENABLE, SET_CONTROL_DATA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (GUID = @guid)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X_LOC" + Me._commandCollection(0).CommandText = "SELECT T1.GUID, T1.PRENAME, T1.NAME, T1.USERNAME, T1.EMAIL, T1.COMMENT, T1"& _ + ".SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_USER T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_USER T1 ON T.USER_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.PROFIL_ID = @profil_id"& _ + ")" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT COUNT(*) AS Expr1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (PROFIL_ID = @profilid) AND (NAME = @name)" + Me._commandCollection(1).CommandText = "DELETE FROM TBPM_PROFILE_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFILE_ID) AND (USER_I"& _ + "D = @USER_ID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@profilid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID)" + Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFILE_ID)" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "SELECT CHOICE_LIST"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (G"& _ - "UID = @GUID)" + Me._commandCollection(3).CommandText = "INSERT INTO TBPM_PROFILE_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, USER_ID, ADDE"& _ + "D_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@USER_ID,@WHO)" Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(4).Connection = Me.Connection - Me._commandCollection(4).CommandText = "SELECT CONNECTION_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - "(GUID = @GUID)" - Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(5).Connection = Me.Connection - Me._commandCollection(5).CommandText = "SELECT ISNULL(MAX(GUID), 0) AS Expr1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROL"& _ - "S"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @profilid) AND (NAME = @name)" - Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@profilid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(6).Connection = Me.Connection - Me._commandCollection(6).CommandText = "SELECT INDEX_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GU"& _ - "ID = @GUID)" - Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(7).Connection = Me.Connection - Me._commandCollection(7).CommandText = "SELECT SQL_UEBERPRUEFUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (GUID = @Guid)" - Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(8) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(8).Connection = Me.Connection - Me._commandCollection(8).CommandText = "INSERT INTO TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, NAME, CTR"& _ - "L_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, HEIGHT, WIDTH)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROF"& _ - "IL_ID,@NAME,@CTRL_TYPE,@CTRL_TEXT,@X_LOC,@Y_LOC,@ADDED_WHO,@HEIGHT,@Width)" - Me._commandCollection(8).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_TYPE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_TEXT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Width", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(9) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(9).Connection = Me.Connection - Me._commandCollection(9).CommandText = "INSERT INTO TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, PROFIL_ID, CTR"& _ - "L_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, INDEX_NAME, TYP, VALIDATION, CHOICE_"& _ - "LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, READ_ONLY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " LOAD_IDX_VALUE, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _ - "LECT LOWER(CTRL_TYPE + CONVERT(VARCHAR(4),rank() OVER (ORDER BY CTRL_TYPE"& _ - "))),@NEW_PROFIL_ID, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, @User, INDEX_NAME, TYP, "& _ - "VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " READ_ONLY, LOAD_IDX_VALUE, FONT_STYLE, FONT_SIZE, FONT_FAMI"& _ - "LY, FONT_COLOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS AS TBPM_PROFILE_CONTROLS_1"& _ - ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @Copy_profilId)" - Me._commandCollection(9).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(10) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(10).Connection = Me.Connection - Me._commandCollection(10).CommandText = "UPDATE TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET INDEX_NAME = @INDEX_NAME,CH"& _ - "ANGED_WHO = @G_WER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID);" - Me._commandCollection(10).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(10).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEX_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(10).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@G_WER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(10).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(11) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(11).Connection = Me.Connection - Me._commandCollection(11).CommandText = "SELECT dbo.FNPM_LANGUAGE_CONTROL_TEXT(NAME, @USER_LANGUAGE, CTRL_TYPE, CTR"& _ - "L_TEXT) AS CTRL_CAPTION_LANG, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, "& _ - "CHOICE_LIST, CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CTRL_TEXT, CTRL_TYPE, DEF"& _ - "AULT_VALUE, FONT_COLOR, FONT_FAMILY, FONT_SIZE, FONT_STYLE, GUID, HEIGHT, INDEX_"& _ - "NAME, LOAD_IDX_VALUE, MULTISELECT, NAME, PROFIL_ID, READ_ONLY, REGEX_MATCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, SQL_UEBERPRUEFUNG, TY"& _ - "P, VALIDATION, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, WIDTH, X_LOC, Y_LOC, I"& _ - "MAGE_CONTROL, SQL2, SQL_ENABLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SET_CONTROL_DATA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FRO"& _ - "M TBPM_PROFILE_CONTROLS AS T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @profil_id)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ - "ORDER BY Y_LOC, X_LOC" - Me._commandCollection(11).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(11).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(11).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable, ByVal guid As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPROFILE_USERDataTable, ByVal profil_id As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(guid,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(profil_id,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -19479,10 +18570,10 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal guid As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable + Public Overloads Overridable Function GetData(ByVal profil_id As Integer) As DD_DMSLiteDataSet.TBPROFILE_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(guid,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(profil_id,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBPROFILE_USERDataTable = New DD_DMSLiteDataSet.TBPROFILE_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -19490,656 +18581,3452 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function FillByProfil(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable, ByVal USER_LANGUAGE As String, ByVal profil_id As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(11) - If (USER_LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("USER_LANGUAGE") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_LANGUAGE,String) - End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(profil_id,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ + Public Overloads Overridable Function CmdDelete(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(PROFILE_ID,Integer) + command.Parameters(1).Value = CType(USER_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try Return returnValue End Function _ - Public Overloads Overridable Function GetDataByProfil(ByVal USER_LANGUAGE As String, ByVal profil_id As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(11) - If (USER_LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("USER_LANGUAGE") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_LANGUAGE,String) + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ + Public Overloads Overridable Function cmdDeleteAllForProfile(ByVal PROFILE_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(profil_id,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_CONTROLS") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, false)> _ + Public Overloads Overridable Function CMDInsert(ByVal PROFIL_ID As Integer, ByVal USER_ID As Integer, ByVal WHO As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + command.Parameters(0).Value = CType(PROFIL_ID,Integer) + command.Parameters(1).Value = CType(USER_ID,Integer) + If (WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("WHO") + Else + command.Parameters(2).Value = CType(WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + command.Connection.Open End If + Dim returnValue As Integer Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + command.Connection.Close End If End Try + Return returnValue End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPM_PROFILE_FILESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean _ - Public Overloads Overridable Function Insert( _ - ByVal PROFIL_ID As Integer, _ - ByVal NAME As String, _ - ByVal CTRL_TYPE As String, _ - ByVal CTRL_TEXT As String, _ - ByVal X_LOC As Double, _ - ByVal Y_LOC As Double, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal INDEX_NAME As String, _ - ByVal TYP As String, _ - ByVal VALIDATION As Boolean, _ - ByVal CHOICE_LIST As String, _ - ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ - ByVal SQL_UEBERPRUEFUNG As String, _ - ByVal HEIGHT As Short, _ - ByVal WIDTH As Short, _ - ByVal FONT_STYLE As Global.System.Nullable(Of Short), _ - ByVal FONT_SIZE As Global.System.Nullable(Of Short), _ - ByVal FONT_FAMILY As String, _ - ByVal FONT_COLOR As Global.System.Nullable(Of Long), _ - ByVal READ_ONLY As Boolean, _ - ByVal LOAD_IDX_VALUE As Boolean, _ - ByVal DEFAULT_VALUE As String, _ - ByVal MULTISELECT As Boolean, _ - ByVal VKT_ADD_ITEM As Boolean, _ - ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ - ByVal REGEX_MATCH As String, _ - ByVal REGEX_MESSAGE_DE As String, _ - ByVal REGEX_MESSAGE_EN As String, _ - ByVal IMAGE_CONTROL() As Byte, _ - ByVal SQL2 As String, _ - ByVal SQL_ENABLE As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) - End If - If (CTRL_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("CTRL_TYPE") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(CTRL_TYPE,String) - End If - If (CTRL_TEXT Is Nothing) Then - Throw New Global.System.ArgumentNullException("CTRL_TEXT") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(CTRL_TEXT,String) - End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(X_LOC,Double) - Me.Adapter.InsertCommand.Parameters(5).Value = CType(Y_LOC,Double) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPM_PROFILE_FILES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FILE_PATH", "FILE_PATH") + tableMapping.ColumnMappings.Add("DMS_ERSTELLT_DATE", "DMS_ERSTELLT_DATE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPM_PROFILE_FILES] WHERE (([GUID] = @Original_GUID))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_PROFILE_FILES] SET [FILE_PATH] = @FILE_PATH, [DMS_ERSTELLT_DATE] = @"& _ + "DMS_ERSTELLT_DATE WHERE (([GUID] = @Original_GUID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILE_PATH, DM"& _ + "S_ERSTELLT_DATE FROM TBPM_PROFILE_FILES WHERE (GUID = @GUID) ORDER BY DMS_ERSTEL"& _ + "LT_DATE" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DMS_ERSTELLT_DATE", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DMS_ERSTELLT_DATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(5) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, FILE_PATH, DMS_ERSTELLT_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FI"& _ + "LES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (EDIT = 0) AND (PROFIL_ID = @Profil_id) AND (ACTIVE = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDE"& _ + "R BY DMS_ERSTELLT_DATE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT EDIT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @AK"& _ + "TUELLE_ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTUELLE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT IN_WORK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @"& _ + "AKTUELLE_ID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTUELLE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "DELETE FROM TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).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.Original, false, Nothing, "", "", "")) + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "DELETE FROM TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "UPDATE TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET EDIT = 1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID "& _ + "= @GUID)" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable, ByVal Profil_id As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Profil_id,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal Profil_id As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Profil_id,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_FILES") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function cmdCheckEdit(ByVal AKTUELLE_ID As Integer) As Object + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(AKTUELLE_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open End If - If (INDEX_NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(INDEX_NAME,String) - End If - If (TYP Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(11).Value = CType(TYP,String) - End If - Me.Adapter.InsertCommand.Parameters(12).Value = CType(VALIDATION,Boolean) - If (CHOICE_LIST Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(13).Value = CType(CHOICE_LIST,String) - End If - If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(14).Value = CType(CONNECTION_ID.Value,Short) - Else - Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value - End If - If (SQL_UEBERPRUEFUNG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(15).Value = CType(SQL_UEBERPRUEFUNG,String) - End If - Me.Adapter.InsertCommand.Parameters(16).Value = CType(HEIGHT,Short) - Me.Adapter.InsertCommand.Parameters(17).Value = CType(WIDTH,Short) - If (FONT_STYLE.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(18).Value = CType(FONT_STYLE.Value,Short) - Else - Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value - End If - If (FONT_SIZE.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(19).Value = CType(FONT_SIZE.Value,Short) - Else - Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value - End If - If (FONT_FAMILY Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(20).Value = CType(FONT_FAMILY,String) - End If - If (FONT_COLOR.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(21).Value = CType(FONT_COLOR.Value,Long) - Else - Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value - End If - Me.Adapter.InsertCommand.Parameters(22).Value = CType(READ_ONLY,Boolean) - Me.Adapter.InsertCommand.Parameters(23).Value = CType(LOAD_IDX_VALUE,Boolean) - If (DEFAULT_VALUE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(24).Value = CType(DEFAULT_VALUE,String) - End If - Me.Adapter.InsertCommand.Parameters(25).Value = CType(MULTISELECT,Boolean) - Me.Adapter.InsertCommand.Parameters(26).Value = CType(VKT_ADD_ITEM,Boolean) - Me.Adapter.InsertCommand.Parameters(27).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) - If (REGEX_MATCH Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(28).Value = CType(REGEX_MATCH,String) - End If - If (REGEX_MESSAGE_DE Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX_MESSAGE_DE") + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing Else - Me.Adapter.InsertCommand.Parameters(29).Value = CType(REGEX_MESSAGE_DE,String) + Return CType(returnValue,Object) End If - If (REGEX_MESSAGE_EN Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX_MESSAGE_EN") - Else - Me.Adapter.InsertCommand.Parameters(30).Value = CType(REGEX_MESSAGE_EN,String) + End Function + + _ + Public Overloads Overridable Function CmdCheckInWork(ByVal AKTUELLE_ID As Integer) As Global.System.Nullable(Of Boolean) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(AKTUELLE_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open End If - If (IMAGE_CONTROL Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Boolean)() Else - Me.Adapter.InsertCommand.Parameters(31).Value = CType(IMAGE_CONTROL,Byte()) + Return New Global.System.Nullable(Of Boolean)(CType(returnValue,Boolean)) End If - If (SQL2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(32).Value = CType(SQL2,String) + End Function + + _ + Public Overloads Overridable Function CmdDelete(ByVal ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + command.Parameters(0).Value = CType(ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open End If - If (SQL_ENABLE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(33).Value = CType(SQL_ENABLE,String) + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdDeleteProfilData(ByVal PROFIL_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) + command.Parameters(0).Value = CType(PROFIL_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function CmdSetEdit(ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) + command.Parameters(0).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPM_PROFILETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPM_PROFILE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("PRIORITY", "PRIORITY") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") + tableMapping.ColumnMappings.Add("NO_OF_DOCUMENTS", "NO_OF_DOCUMENTS") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("FINAL_PROFILE", "FINAL_PROFILE") + tableMapping.ColumnMappings.Add("FINAL_TEXT", "FINAL_TEXT") + tableMapping.ColumnMappings.Add("MOVE2FOLDER", "MOVE2FOLDER") + tableMapping.ColumnMappings.Add("TYPE", "TYPE") + tableMapping.ColumnMappings.Add("WD_OBJECTTYPE", "WD_OBJECTTYPE") + tableMapping.ColumnMappings.Add("SORT_BY_LATEST", "SORT_BY_LATEST") + tableMapping.ColumnMappings.Add("PM_VEKTOR_INDEX", "PM_VEKTOR_INDEX") + tableMapping.ColumnMappings.Add("LOG_INDEX", "LOG_INDEX") + tableMapping.ColumnMappings.Add("SQL_VIEW", "SQL_VIEW") + tableMapping.ColumnMappings.Add("ANNOTATE_ALL_WORK_HISTORY_ENTRIES", "ANNOTATE_ALL_WORK_HISTORY_ENTRIES") + tableMapping.ColumnMappings.Add("ANNOTATE_WORK_HISTORY_ENTRY", "ANNOTATE_WORK_HISTORY_ENTRY") + tableMapping.ColumnMappings.Add("WORK_HISTORY_ENTRY", "WORK_HISTORY_ENTRY") + tableMapping.ColumnMappings.Add("DISPLAY_MODE", "DISPLAY_MODE") + tableMapping.ColumnMappings.Add("SQL_BTN_FINISH", "SQL_BTN_FINISH") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPM_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Origin"& _ + "al_NAME) AND ([TITLE] = @Original_TITLE) AND ([PRIORITY] = @Original_PRIORITY) A"& _ + "ND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Ori"& _ + "ginal_DESCRIPTION)) AND ([ACTIVE] = @Original_ACTIVE) AND ([WD_SEARCH] = @Origin"& _ + "al_WD_SEARCH) AND ([NO_OF_DOCUMENTS] = @Original_NO_OF_DOCUMENTS) AND ([ADDED_WH"& _ + "O] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNul"& _ + "l_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANG"& _ + "ED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED"& _ + "_WHEN] = @Original_CHANGED_WHEN)) AND ([FINAL_PROFILE] = @Original_FINAL_PROFILE"& _ + ") AND ((@IsNull_FINAL_TEXT = 1 AND [FINAL_TEXT] IS NULL) OR ([FINAL_TEXT] = @Ori"& _ + "ginal_FINAL_TEXT)) AND ((@IsNull_MOVE2FOLDER = 1 AND [MOVE2FOLDER] IS NULL) OR ("& _ + "[MOVE2FOLDER] = @Original_MOVE2FOLDER)) AND ([TYPE] = @Original_TYPE) AND ([WD_O"& _ + "BJECTTYPE] = @Original_WD_OBJECTTYPE) AND ([SORT_BY_LATEST] = @Original_SORT_BY_"& _ + "LATEST) AND ([PM_VEKTOR_INDEX] = @Original_PM_VEKTOR_INDEX) AND ([LOG_INDEX] = @"& _ + "Original_LOG_INDEX) AND ([ANNOTATE_ALL_WORK_HISTORY_ENTRIES] = @Original_ANNOTAT"& _ + "E_ALL_WORK_HISTORY_ENTRIES) AND ([ANNOTATE_WORK_HISTORY_ENTRY] = @Original_ANNOT"& _ + "ATE_WORK_HISTORY_ENTRY) AND ((@IsNull_WORK_HISTORY_ENTRY = 1 AND [WORK_HISTORY_E"& _ + "NTRY] IS NULL) OR ([WORK_HISTORY_ENTRY] = @Original_WORK_HISTORY_ENTRY)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRIORITY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FINAL_TEXT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MOVE2FOLDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, TITLE, PRIORITY, DESCRI"& _ + "PTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT,"& _ + " MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, "& _ + "ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME"& _ + ",@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@F"& _ + "INAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_V"& _ + "EKTOR_INDEX,@WORK_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@AN"& _ + "NOTATE_WORK_HISTORY_ENTRY,@DISPLAY_MODE,@SQL_BTN_FINISH); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _ + "NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WH"& _ + "O, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER"& _ + ", TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDEN"& _ + "TITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_VIEW", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, TITLE = @TITLE, PRIOR"& _ + "ITY = @PRIORITY, DESCRIPTION = @DESCRIPTION, ACTIVE = @ACTIVE, WD_SEARCH = @WD_S"& _ + "EARCH, NO_OF_DOCUMENTS = @NO_OF_DOCUMENTS, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WH"& _ + "O = @CHANGED_WHO, FINAL_PROFILE = @FINAL_PROFILE, FINAL_TEXT = @FINAL_TEXT, MOVE"& _ + "2FOLDER = @MOVE2FOLDER, TYPE = @TYPE, WD_OBJECTTYPE = @WD_OBJECTTYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " SORT_BY_LATEST = @SORT_BY_LATEST, PM_VEKTOR_INDEX = @PM_VEKTOR_"& _ + "INDEX, LOG_INDEX = @LOG_INDEX, WORK_HISTORY_ENTRY = @WORK_HISTORY_ENTRY, SQL_VIE"& _ + "W = @SQL_VIEW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @A"& _ + "NNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_H"& _ + "ISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_BTN_F"& _ + "INISH = @SQL_BTN_FINISH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ + "GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, AD"& _ + "DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2"& _ + "FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUI"& _ + "D)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_VIEW", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(8) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_"& _ + "DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINA"& _ + "L_TEXT, MOVE2FOLDER, TYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WD_OBJECTTYPE, SORT_BY_LAT"& _ + "EST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, AN"& _ + "NOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " SQL_BTN_FINISH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT COUNT(*) FROM TBPM_PROFILE" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "SELECT GUID FROM TBPM_PROFILE WHERE (FINAL_PROFILE = 1) AND (UPPER(NAME) = UPPER("& _ + "@name))" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "SELECT MAX(GUID) FROM TBPM_PROFILE" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "SELECT COUNT(GUID) FROM TBPM_PROFILE WHERE NAME = @NAME" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(6).Connection = Me.Connection + Me._commandCollection(6).CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LOG_INDEX = @LOG__INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION,"& _ + " ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ + "_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATE"& _ + "ST,LOG_INDEX FROM TBPM_PROFILE WHERE (GUID = @GUID)" + Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG__INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(7).Connection = Me.Connection + Me._commandCollection(7).CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NO_OF_DOCUMENTS = @NUMBER, CHANGED_"& _ + "WHO = @WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(8) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(8).Connection = Me.Connection + Me._commandCollection(8).CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PM_VEKTOR_INDEX = @PM_VEKTOR_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DES"& _ + "CRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ + ", CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SOR"& _ + "T_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUID)" + Me._commandCollection(8).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable = New DD_DMSLiteDataSet.TBPM_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPM_PROFILE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_GUID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_TITLE As String, _ + ByVal Original_PRIORITY As Integer, _ + ByVal Original_DESCRIPTION As String, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_WD_SEARCH As String, _ + ByVal Original_NO_OF_DOCUMENTS As Integer, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_FINAL_PROFILE As Boolean, _ + ByVal Original_FINAL_TEXT As String, _ + ByVal Original_MOVE2FOLDER As String, _ + ByVal Original_TYPE As Short, _ + ByVal Original_WD_OBJECTTYPE As String, _ + ByVal Original_SORT_BY_LATEST As Boolean, _ + ByVal Original_PM_VEKTOR_INDEX As String, _ + ByVal Original_LOG_INDEX As String, _ + ByVal Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ + ByVal Original_ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ + ByVal Original_WORK_HISTORY_ENTRY As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_NAME") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME,String) + End If + If (Original_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_TITLE,String) + End If + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PRIORITY,Integer) + If (Original_DESCRIPTION Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_DESCRIPTION,String) + End If + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ACTIVE,Boolean) + If (Original_WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_WD_SEARCH,String) + End If + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_NO_OF_DOCUMENTS,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_FINAL_PROFILE,Boolean) + If (Original_FINAL_TEXT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_FINAL_TEXT,String) + End If + If (Original_MOVE2FOLDER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_MOVE2FOLDER,String) + End If + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_TYPE,Short) + If (Original_WD_OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_WD_OBJECTTYPE") + Else + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_WD_OBJECTTYPE,String) + End If + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_SORT_BY_LATEST,Boolean) + If (Original_PM_VEKTOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PM_VEKTOR_INDEX") + Else + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_PM_VEKTOR_INDEX,String) + End If + If (Original_LOG_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LOG_INDEX") + Else + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_LOG_INDEX,String) + End If + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean) + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_ANNOTATE_WORK_HISTORY_ENTRY,Boolean) + If (Original_WORK_HISTORY_ENTRY Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_WORK_HISTORY_ENTRY,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal NAME As String, _ + ByVal TITLE As String, _ + ByVal PRIORITY As Integer, _ + ByVal DESCRIPTION As String, _ + ByVal ACTIVE As Boolean, _ + ByVal WD_SEARCH As String, _ + ByVal NO_OF_DOCUMENTS As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal FINAL_PROFILE As Boolean, _ + ByVal FINAL_TEXT As String, _ + ByVal MOVE2FOLDER As String, _ + ByVal TYPE As Short, _ + ByVal WD_OBJECTTYPE As String, _ + ByVal SORT_BY_LATEST As Boolean, _ + ByVal PM_VEKTOR_INDEX As String, _ + ByVal WORK_HISTORY_ENTRY As String, _ + ByVal SQL_VIEW As String, _ + ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ + ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ + ByVal DISPLAY_MODE As String, _ + ByVal SQL_BTN_FINISH As String) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(TITLE,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(PRIORITY,Integer) + If (DESCRIPTION Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DESCRIPTION,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_SEARCH") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(WD_SEARCH,String) + End If + Me.Adapter.InsertCommand.Parameters(6).Value = CType(NO_OF_DOCUMENTS,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(8).Value = CType(FINAL_PROFILE,Boolean) + If (FINAL_TEXT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(FINAL_TEXT,String) + End If + If (MOVE2FOLDER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(MOVE2FOLDER,String) + End If + Me.Adapter.InsertCommand.Parameters(11).Value = CType(TYPE,Short) + If (WD_OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_OBJECTTYPE") + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(WD_OBJECTTYPE,String) + End If + Me.Adapter.InsertCommand.Parameters(13).Value = CType(SORT_BY_LATEST,Boolean) + If (PM_VEKTOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("PM_VEKTOR_INDEX") + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(PM_VEKTOR_INDEX,String) + End If + If (WORK_HISTORY_ENTRY Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(WORK_HISTORY_ENTRY,String) + End If + If (SQL_VIEW Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_VIEW") + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(SQL_VIEW,String) + End If + Me.Adapter.InsertCommand.Parameters(17).Value = CType(ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean) + Me.Adapter.InsertCommand.Parameters(18).Value = CType(ANNOTATE_WORK_HISTORY_ENTRY,Boolean) + If (DISPLAY_MODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("DISPLAY_MODE") + Else + Me.Adapter.InsertCommand.Parameters(19).Value = CType(DISPLAY_MODE,String) + End If + If (SQL_BTN_FINISH Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_BTN_FINISH") + Else + Me.Adapter.InsertCommand.Parameters(20).Value = CType(SQL_BTN_FINISH,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME As String, _ + ByVal TITLE As String, _ + ByVal PRIORITY As Integer, _ + ByVal DESCRIPTION As String, _ + ByVal ACTIVE As Boolean, _ + ByVal WD_SEARCH As String, _ + ByVal NO_OF_DOCUMENTS As Integer, _ + ByVal CHANGED_WHO As String, _ + ByVal FINAL_PROFILE As Boolean, _ + ByVal FINAL_TEXT As String, _ + ByVal MOVE2FOLDER As String, _ + ByVal TYPE As Short, _ + ByVal WD_OBJECTTYPE As String, _ + ByVal SORT_BY_LATEST As Boolean, _ + ByVal PM_VEKTOR_INDEX As String, _ + ByVal LOG_INDEX As String, _ + ByVal WORK_HISTORY_ENTRY As String, _ + ByVal SQL_VIEW As String, _ + ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ + ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ + ByVal DISPLAY_MODE As String, _ + ByVal SQL_BTN_FINISH As String, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TITLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PRIORITY,Integer) + If (DESCRIPTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DESCRIPTION,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_SEARCH") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(WD_SEARCH,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NO_OF_DOCUMENTS,Integer) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(FINAL_PROFILE,Boolean) + If (FINAL_TEXT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(FINAL_TEXT,String) + End If + If (MOVE2FOLDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(MOVE2FOLDER,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TYPE,Short) + If (WD_OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_OBJECTTYPE") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(WD_OBJECTTYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SORT_BY_LATEST,Boolean) + If (PM_VEKTOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("PM_VEKTOR_INDEX") + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(PM_VEKTOR_INDEX,String) + End If + If (LOG_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("LOG_INDEX") + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(LOG_INDEX,String) + End If + If (WORK_HISTORY_ENTRY Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(WORK_HISTORY_ENTRY,String) + End If + If (SQL_VIEW Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_VIEW") + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SQL_VIEW,String) + End If + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(ANNOTATE_WORK_HISTORY_ENTRY,Boolean) + If (DISPLAY_MODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("DISPLAY_MODE") + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(DISPLAY_MODE,String) + End If + If (SQL_BTN_FINISH Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_BTN_FINISH") + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(SQL_BTN_FINISH,String) + End If + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function cmdAnzProfile() As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + + _ + Public Overloads Overridable Function cmdDelete(ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdFinalProfile(ByVal name As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + If (name Is Nothing) Then + Throw New Global.System.ArgumentNullException("name") + Else + command.Parameters(0).Value = CType(name,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + + _ + Public Overloads Overridable Function cmdMaxGuid() As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + + _ + Public Overloads Overridable Function cmdProfileExists(ByVal NAME As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + command.Parameters(0).Value = CType(NAME,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + + _ + Public Overloads Overridable Function cmdUpdatelogIndex(ByVal LOG__INDEX As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) + If (LOG__INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("LOG__INDEX") + Else + command.Parameters(0).Value = CType(LOG__INDEX,String) + End If + command.Parameters(1).Value = CType(Original_GUID,Integer) + command.Parameters(2).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdUpdateNo(ByVal NUMBER As Integer, ByVal WHO As String, ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7) + command.Parameters(0).Value = CType(NUMBER,Integer) + If (WHO Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(WHO,String) + End If + command.Parameters(2).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function CmdUpdateVKT_Index(ByVal PM_VEKTOR_INDEX As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(8) + If (PM_VEKTOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("PM_VEKTOR_INDEX") + Else + command.Parameters(0).Value = CType(PM_VEKTOR_INDEX,String) + End If + command.Parameters(1).Value = CType(Original_GUID,Integer) + command.Parameters(2).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWH_CHECK_PROFILE_CONTROLSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_CHECK_PROFILE_CONTROLS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("CTRL_TYPE", "CTRL_TYPE") + tableMapping.ColumnMappings.Add("INDEX_NAME", "INDEX_NAME") + tableMapping.ColumnMappings.Add("TYP", "TYP") + tableMapping.ColumnMappings.Add("VALIDATION", "VALIDATION") + tableMapping.ColumnMappings.Add("CHOICE_LIST", "CHOICE_LIST") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("SQL_UEBERPRUEFUNG", "SQL_UEBERPRUEFUNG") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, CTRL_TYPE, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CO"& _ + "NNECTION_ID, SQL_UEBERPRUEFUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (PROFIL_ID = @P_ID) AND (CTRL_TYPE <> 'LBL')" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@P_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable, ByVal P_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(P_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal P_ID As Integer) As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(P_ID,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable = New DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPM_PROFILE_CONTROLSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPM_PROFILE_CONTROLS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFIL_ID", "PROFIL_ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("CTRL_TYPE", "CTRL_TYPE") + tableMapping.ColumnMappings.Add("CTRL_TEXT", "CTRL_TEXT") + tableMapping.ColumnMappings.Add("X_LOC", "X_LOC") + tableMapping.ColumnMappings.Add("Y_LOC", "Y_LOC") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("INDEX_NAME", "INDEX_NAME") + tableMapping.ColumnMappings.Add("TYP", "TYP") + tableMapping.ColumnMappings.Add("VALIDATION", "VALIDATION") + tableMapping.ColumnMappings.Add("CHOICE_LIST", "CHOICE_LIST") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("SQL_UEBERPRUEFUNG", "SQL_UEBERPRUEFUNG") + tableMapping.ColumnMappings.Add("HEIGHT", "HEIGHT") + tableMapping.ColumnMappings.Add("WIDTH", "WIDTH") + tableMapping.ColumnMappings.Add("FONT_STYLE", "FONT_STYLE") + tableMapping.ColumnMappings.Add("FONT_SIZE", "FONT_SIZE") + tableMapping.ColumnMappings.Add("FONT_FAMILY", "FONT_FAMILY") + tableMapping.ColumnMappings.Add("FONT_COLOR", "FONT_COLOR") + tableMapping.ColumnMappings.Add("READ_ONLY", "READ_ONLY") + tableMapping.ColumnMappings.Add("LOAD_IDX_VALUE", "LOAD_IDX_VALUE") + tableMapping.ColumnMappings.Add("DEFAULT_VALUE", "DEFAULT_VALUE") + tableMapping.ColumnMappings.Add("MULTISELECT", "MULTISELECT") + tableMapping.ColumnMappings.Add("VKT_ADD_ITEM", "VKT_ADD_ITEM") + tableMapping.ColumnMappings.Add("VKT_PREVENT_MULTIPLE_VALUES", "VKT_PREVENT_MULTIPLE_VALUES") + tableMapping.ColumnMappings.Add("REGEX_MATCH", "REGEX_MATCH") + tableMapping.ColumnMappings.Add("REGEX_MESSAGE_DE", "REGEX_MESSAGE_DE") + tableMapping.ColumnMappings.Add("REGEX_MESSAGE_EN", "REGEX_MESSAGE_EN") + tableMapping.ColumnMappings.Add("IMAGE_CONTROL", "IMAGE_CONTROL") + tableMapping.ColumnMappings.Add("SQL2", "SQL2") + tableMapping.ColumnMappings.Add("SQL_ENABLE", "SQL_ENABLE") + tableMapping.ColumnMappings.Add("SET_CONTROL_DATA", "SET_CONTROL_DATA") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, NAME, CTR"& _ + "L_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ + "N, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FON"& _ + "T_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VK"& _ + "T_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" REGEX_MESSAGE"& _ + "_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_"& _ + "ID,@NAME,@CTRL_TYPE,@CTRL_TEXT,@X_LOC,@Y_LOC,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO"& _ + ",@CHANGED_WHEN,@INDEX_NAME,@TYP,@VALIDATION,@CHOICE_LIST,@CONNECTION_ID,@SQL_UEB"& _ + "ERPRUEFUNG,@HEIGHT,@WIDTH,@FONT_STYLE,@FONT_SIZE,@FONT_FAMILY,@FONT_COLOR,@READ_"& _ + "ONLY,@LOAD_IDX_VALUE,@DEFAULT_VALUE,@MULTISELECT,@VKT_ADD_ITEM,@VKT_PREVENT_MULT"& _ + "IPLE_VALUES,@REGEX_MATCH,@REGEX_MESSAGE_DE,@REGEX_MESSAGE_EN,@IMAGE_CONTROL,@SQL"& _ + "2,@SQL_ENABLE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_"& _ + "LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATI"& _ + "ON, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FO"& _ + "NT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULT"& _ + "ISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_D"& _ + "E, REGEX_MESSAGE_EN FROM TBPM_PROFILE_CONTROLS WHERE (GUID = SCOPE_IDENTITY()) O"& _ + "RDER BY Y_LOC, X_LOC" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 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("@CTRL_TYPE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_TEXT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEX_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_UEBERPRUEFUNG", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_UEBERPRUEFUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_STYLE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_STYLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_SIZE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_SIZE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_FAMILY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_FAMILY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_COLOR", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MATCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MESSAGE_DE", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MESSAGE_DE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MESSAGE_EN", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MESSAGE_EN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMAGE_CONTROL", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "IMAGE_CONTROL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL2", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ENABLE", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ENABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFIL_ID = @PROFIL_ID, NA"& _ + "ME = @NAME, CTRL_TYPE = @CTRL_TYPE, CTRL_TEXT = @CTRL_TEXT, X_LOC = @X_LOC, Y_LO"& _ + "C = @Y_LOC, CHANGED_WHO = @CHANGED_WHO, INDEX_NAME = @INDEX_NAME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TYP = @TYP, VALIDATION = @VALIDATION, CHOICE_LIST = @CHOICE_LIST, C"& _ + "ONNECTION_ID = @CONNECTION_ID, SQL_UEBERPRUEFUNG = @SQL_UEBERPRUEFUNG, HEIGHT = "& _ + "@HEIGHT, WIDTH = @WIDTH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FONT_STYLE = @FONT_STYLE, FO"& _ + "NT_SIZE = @FONT_SIZE, FONT_FAMILY = @FONT_FAMILY, FONT_COLOR = @FONT_COLOR, READ"& _ + "_ONLY = @READ_ONLY, LOAD_IDX_VALUE = @LOAD_IDX_VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " DEFAULT_VALUE = @DEFAULT_VALUE, MULTISELECT = @MULTISELECT, VKT_ADD_ITEM = @VKT"& _ + "_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES, REGEX_MAT"& _ + "CH = @REGEX_MATCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" REGEX_MESSAGE_DE = @REGEX_MESSAGE_"& _ + "DE, REGEX_MESSAGE_EN = @REGEX_MESSAGE_EN, IMAGE_CONTROL = @IMAGE_CONTROL, SQL2 ="& _ + " @SQL2, SQL_ENABLE = @SQL_ENABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ + "T GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WH"& _ + "EN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECT"& _ + "ION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FO"& _ + "NT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, V"& _ + "KT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN FROM"& _ + " TBPM_PROFILE_CONTROLS WHERE (GUID = @GUID) ORDER BY Y_LOC, X_LOC" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 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("@CTRL_TYPE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_TEXT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEX_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_UEBERPRUEFUNG", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_UEBERPRUEFUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_STYLE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_STYLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_SIZE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_SIZE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_FAMILY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_FAMILY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FONT_COLOR", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "FONT_COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MATCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MESSAGE_DE", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MESSAGE_DE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MESSAGE_EN", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MESSAGE_EN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IMAGE_CONTROL", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "IMAGE_CONTROL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL2", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ENABLE", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ENABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(10) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PROFIL_ID, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WH"& _ + "O, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LI"& _ + "ST, CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, "& _ + "FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAU"& _ + "LT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL"& _ + "2, SQL_ENABLE, SET_CONTROL_DATA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @guid)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X_LOC" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT COUNT(*) AS Expr1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (PROFIL_ID = @profilid) AND (NAME = @name)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@profilid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "SELECT CHOICE_LIST"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (G"& _ + "UID = @GUID)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "SELECT CONNECTION_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + "(GUID = @GUID)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "SELECT ISNULL(MAX(GUID), 0) AS Expr1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROL"& _ + "S"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @profilid) AND (NAME = @name)" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@profilid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(6).Connection = Me.Connection + Me._commandCollection(6).CommandText = "SELECT INDEX_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GU"& _ + "ID = @GUID)" + Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(7).Connection = Me.Connection + Me._commandCollection(7).CommandText = "SELECT SQL_UEBERPRUEFUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @Guid)" + Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Guid", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(8) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(8).Connection = Me.Connection + Me._commandCollection(8).CommandText = "INSERT INTO TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, NAME, CTR"& _ + "L_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, HEIGHT, WIDTH)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROF"& _ + "IL_ID,@NAME,@CTRL_TYPE,@CTRL_TEXT,@X_LOC,@Y_LOC,@ADDED_WHO,@HEIGHT,@Width)" + Me._commandCollection(8).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_TYPE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CTRL_TEXT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CTRL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@X_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "X_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Y_LOC", Global.System.Data.SqlDbType.Float, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "Y_LOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEIGHT", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "HEIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Width", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(9) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(9).Connection = Me.Connection + Me._commandCollection(9).CommandText = "UPDATE TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET INDEX_NAME = @INDEX_NAME,CH"& _ + "ANGED_WHO = @G_WER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID);" + Me._commandCollection(9).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(9).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEX_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEX_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(9).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@G_WER", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(9).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(10) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(10).Connection = Me.Connection + Me._commandCollection(10).CommandText = "SELECT dbo.FNPM_LANGUAGE_CONTROL_TEXT(NAME, @USER_LANGUAGE, CTRL_TYPE, CTR"& _ + "L_TEXT) AS CTRL_CAPTION_LANG, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, "& _ + "CHOICE_LIST, CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CTRL_TEXT, CTRL_TYPE, DEF"& _ + "AULT_VALUE, FONT_COLOR, FONT_FAMILY, FONT_SIZE, FONT_STYLE, GUID, HEIGHT, INDEX_"& _ + "NAME, LOAD_IDX_VALUE, MULTISELECT, NAME, PROFIL_ID, READ_ONLY, REGEX_MATCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, SQL_UEBERPRUEFUNG, TY"& _ + "P, VALIDATION, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, WIDTH, X_LOC, Y_LOC, I"& _ + "MAGE_CONTROL, SQL2, SQL_ENABLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SET_CONTROL_DATA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FRO"& _ + "M TBPM_PROFILE_CONTROLS AS T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @profil_id)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "ORDER BY Y_LOC, X_LOC" + Me._commandCollection(10).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(10).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(10).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable, ByVal guid As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(guid,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal guid As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(guid,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByProfil(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable, ByVal USER_LANGUAGE As String, ByVal profil_id As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(10) + If (USER_LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER_LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_LANGUAGE,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(profil_id,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByProfil(ByVal USER_LANGUAGE As String, ByVal profil_id As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(10) + If (USER_LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER_LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_LANGUAGE,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(profil_id,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPM_PROFILE_CONTROLS") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal PROFIL_ID As Integer, _ + ByVal NAME As String, _ + ByVal CTRL_TYPE As String, _ + ByVal CTRL_TEXT As String, _ + ByVal X_LOC As Double, _ + ByVal Y_LOC As Double, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal INDEX_NAME As String, _ + ByVal TYP As String, _ + ByVal VALIDATION As Boolean, _ + ByVal CHOICE_LIST As String, _ + ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ + ByVal SQL_UEBERPRUEFUNG As String, _ + ByVal HEIGHT As Short, _ + ByVal WIDTH As Short, _ + ByVal FONT_STYLE As Global.System.Nullable(Of Short), _ + ByVal FONT_SIZE As Global.System.Nullable(Of Short), _ + ByVal FONT_FAMILY As String, _ + ByVal FONT_COLOR As Global.System.Nullable(Of Long), _ + ByVal READ_ONLY As Boolean, _ + ByVal LOAD_IDX_VALUE As Boolean, _ + ByVal DEFAULT_VALUE As String, _ + ByVal MULTISELECT As Boolean, _ + ByVal VKT_ADD_ITEM As Boolean, _ + ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ + ByVal REGEX_MATCH As String, _ + ByVal REGEX_MESSAGE_DE As String, _ + ByVal REGEX_MESSAGE_EN As String, _ + ByVal IMAGE_CONTROL() As Byte, _ + ByVal SQL2 As String, _ + ByVal SQL_ENABLE As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + End If + If (CTRL_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("CTRL_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(CTRL_TYPE,String) + End If + If (CTRL_TEXT Is Nothing) Then + Throw New Global.System.ArgumentNullException("CTRL_TEXT") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CTRL_TEXT,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(X_LOC,Double) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(Y_LOC,Double) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (INDEX_NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(INDEX_NAME,String) + End If + If (TYP Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(TYP,String) + End If + Me.Adapter.InsertCommand.Parameters(12).Value = CType(VALIDATION,Boolean) + If (CHOICE_LIST Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(CHOICE_LIST,String) + End If + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(14).Value = CType(CONNECTION_ID.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (SQL_UEBERPRUEFUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(SQL_UEBERPRUEFUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(16).Value = CType(HEIGHT,Short) + Me.Adapter.InsertCommand.Parameters(17).Value = CType(WIDTH,Short) + If (FONT_STYLE.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(18).Value = CType(FONT_STYLE.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + End If + If (FONT_SIZE.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(19).Value = CType(FONT_SIZE.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (FONT_FAMILY Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(20).Value = CType(FONT_FAMILY,String) + End If + If (FONT_COLOR.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(21).Value = CType(FONT_COLOR.Value,Long) + Else + Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(22).Value = CType(READ_ONLY,Boolean) + Me.Adapter.InsertCommand.Parameters(23).Value = CType(LOAD_IDX_VALUE,Boolean) + If (DEFAULT_VALUE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(24).Value = CType(DEFAULT_VALUE,String) + End If + Me.Adapter.InsertCommand.Parameters(25).Value = CType(MULTISELECT,Boolean) + Me.Adapter.InsertCommand.Parameters(26).Value = CType(VKT_ADD_ITEM,Boolean) + Me.Adapter.InsertCommand.Parameters(27).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) + If (REGEX_MATCH Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(28).Value = CType(REGEX_MATCH,String) + End If + If (REGEX_MESSAGE_DE Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_MESSAGE_DE") + Else + Me.Adapter.InsertCommand.Parameters(29).Value = CType(REGEX_MESSAGE_DE,String) + End If + If (REGEX_MESSAGE_EN Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_MESSAGE_EN") + Else + Me.Adapter.InsertCommand.Parameters(30).Value = CType(REGEX_MESSAGE_EN,String) + End If + If (IMAGE_CONTROL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(31).Value = CType(IMAGE_CONTROL,Byte()) + End If + If (SQL2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(32).Value = CType(SQL2,String) + End If + If (SQL_ENABLE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(33).Value = CType(SQL_ENABLE,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal PROFIL_ID As Integer, _ + ByVal NAME As String, _ + ByVal CTRL_TYPE As String, _ + ByVal CTRL_TEXT As String, _ + ByVal X_LOC As Double, _ + ByVal Y_LOC As Double, _ + ByVal CHANGED_WHO As String, _ + ByVal INDEX_NAME As String, _ + ByVal TYP As String, _ + ByVal VALIDATION As Boolean, _ + ByVal CHOICE_LIST As String, _ + ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ + ByVal SQL_UEBERPRUEFUNG As String, _ + ByVal HEIGHT As Short, _ + ByVal WIDTH As Short, _ + ByVal FONT_STYLE As Global.System.Nullable(Of Short), _ + ByVal FONT_SIZE As Global.System.Nullable(Of Short), _ + ByVal FONT_FAMILY As String, _ + ByVal FONT_COLOR As Global.System.Nullable(Of Long), _ + ByVal READ_ONLY As Boolean, _ + ByVal LOAD_IDX_VALUE As Boolean, _ + ByVal DEFAULT_VALUE As String, _ + ByVal MULTISELECT As Boolean, _ + ByVal VKT_ADD_ITEM As Boolean, _ + ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ + ByVal REGEX_MATCH As String, _ + ByVal REGEX_MESSAGE_DE As String, _ + ByVal REGEX_MESSAGE_EN As String, _ + ByVal IMAGE_CONTROL() As Byte, _ + ByVal SQL2 As String, _ + ByVal SQL_ENABLE As String, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) + End If + If (CTRL_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("CTRL_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CTRL_TYPE,String) + End If + If (CTRL_TEXT Is Nothing) Then + Throw New Global.System.ArgumentNullException("CTRL_TEXT") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CTRL_TEXT,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(X_LOC,Double) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Y_LOC,Double) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + If (INDEX_NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(INDEX_NAME,String) + End If + If (TYP Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(TYP,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(VALIDATION,Boolean) + If (CHOICE_LIST Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHOICE_LIST,String) + End If + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CONNECTION_ID.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (SQL_UEBERPRUEFUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SQL_UEBERPRUEFUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(HEIGHT,Short) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(WIDTH,Short) + If (FONT_STYLE.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(FONT_STYLE.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + If (FONT_SIZE.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(FONT_SIZE.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + If (FONT_FAMILY Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(FONT_FAMILY,String) + End If + If (FONT_COLOR.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(FONT_COLOR.Value,Long) + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(READ_ONLY,Boolean) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(LOAD_IDX_VALUE,Boolean) + If (DEFAULT_VALUE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(DEFAULT_VALUE,String) + End If + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(MULTISELECT,Boolean) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(VKT_ADD_ITEM,Boolean) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) + If (REGEX_MATCH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(REGEX_MATCH,String) + End If + If (REGEX_MESSAGE_DE Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_MESSAGE_DE") + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(REGEX_MESSAGE_DE,String) + End If + If (REGEX_MESSAGE_EN Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_MESSAGE_EN") + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(REGEX_MESSAGE_EN,String) + End If + If (IMAGE_CONTROL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(IMAGE_CONTROL,Byte()) + End If + If (SQL2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(SQL2,String) + End If + If (SQL_ENABLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(SQL_ENABLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function cmdControlExists(ByVal profilid As Integer, ByVal name As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(profilid,Integer) + If (name Is Nothing) Then + Throw New Global.System.ArgumentNullException("name") + Else + command.Parameters(1).Value = CType(name,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + + _ + Public Overloads Overridable Function cmdDeleteProfil(ByVal PROFIL_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(PROFIL_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdGetChoiceListName(ByVal GUID As Integer) As String + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + command.Parameters(0).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,String) + End If + End Function + + _ + Public Overloads Overridable Function cmdgetConnectionID(ByVal GUID As Integer) As Global.System.Nullable(Of Short) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) + command.Parameters(0).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Short)() + Else + Return New Global.System.Nullable(Of Short)(CType(returnValue,Short)) + End If + End Function + + _ + Public Overloads Overridable Function cmdGetGUID(ByVal profilid As Integer, ByVal name As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) + command.Parameters(0).Value = CType(profilid,Integer) + If (name Is Nothing) Then + Throw New Global.System.ArgumentNullException("name") + Else + command.Parameters(1).Value = CType(name,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + + _ + Public Overloads Overridable Function cmdGetIndexname(ByVal GUID As Integer) As String + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) + command.Parameters(0).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,String) + End If + End Function + + _ + Public Overloads Overridable Function cmdGetSQL(ByVal Guid As Integer) As String + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7) + command.Parameters(0).Value = CType(Guid,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,String) + End If + End Function + + _ + Public Overloads Overridable Function cmdInsertAnlage(ByVal PROFIL_ID As Integer, ByVal NAME As String, ByVal CTRL_TYPE As String, ByVal CTRL_TEXT As String, ByVal X_LOC As Double, ByVal Y_LOC As Double, ByVal ADDED_WHO As String, ByVal HEIGHT As Short, ByVal Width As Short) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(8) + command.Parameters(0).Value = CType(PROFIL_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + command.Parameters(1).Value = CType(NAME,String) + End If + If (CTRL_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("CTRL_TYPE") + Else + command.Parameters(2).Value = CType(CTRL_TYPE,String) + End If + If (CTRL_TEXT Is Nothing) Then + Throw New Global.System.ArgumentNullException("CTRL_TEXT") + Else + command.Parameters(3).Value = CType(CTRL_TEXT,String) + End If + command.Parameters(4).Value = CType(X_LOC,Double) + command.Parameters(5).Value = CType(Y_LOC,Double) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + command.Parameters(6).Value = CType(ADDED_WHO,String) + End If + command.Parameters(7).Value = CType(HEIGHT,Short) + command.Parameters(8).Value = CType(Width,Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdUpdateIndexname(ByVal INDEX_NAME As String, ByVal G_WER As String, ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(9) + If (INDEX_NAME Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(INDEX_NAME,String) + End If + If (G_WER Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(G_WER,String) + End If + command.Parameters(2).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPM_CONTROL_TABLETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPM_CONTROL_TABLE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("CONTROL_ID", "CONTROL_ID") + tableMapping.ColumnMappings.Add("SPALTENNAME", "SPALTENNAME") + tableMapping.ColumnMappings.Add("SPALTEN_HEADER", "SPALTEN_HEADER") + tableMapping.ColumnMappings.Add("SPALTENBREITE", "SPALTENBREITE") + tableMapping.ColumnMappings.Add("VALIDATION", "VALIDATION") + tableMapping.ColumnMappings.Add("CHOICE_LIST", "CHOICE_LIST") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("READ_ONLY", "READ_ONLY") + tableMapping.ColumnMappings.Add("LOAD_IDX_VALUE", "LOAD_IDX_VALUE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("REGEX_MATCH", "REGEX_MATCH") + tableMapping.ColumnMappings.Add("REGEX_MESSAGE_EN", "REGEX_MESSAGE_EN") + tableMapping.ColumnMappings.Add("REGEX_MESSAGE_DE", "REGEX_MESSAGE_DE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @COLUMNID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMNID", 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 TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONTROL_ID, SPALTENNAME"& _ + ", SPALTEN_HEADER, SPALTENBREITE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONTROL_ID,@SPALTEN"& _ + "NAME,@SPALTEN_HEADER,@SPALTENBREITE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONTROL_ID, SPAL"& _ + "TENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, "& _ + "SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHAN"& _ + "GED_WHEN FROM TBPM_CONTROL_TABLE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTEN_HEADER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTEN_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENBREITE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENBREITE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_CONTROL_TABLE] SET [CONTROL_ID] = @CONTROL_ID, [SPALTENNAME] = @SPAL"& _ + "TENNAME, [SPALTEN_HEADER] = @SPALTEN_HEADER, [SPALTENBREITE] = @SPALTENBREITE, ["& _ + "VALIDATION] = @VALIDATION, [CHOICE_LIST] = @CHOICE_LIST, [CONNECTION_ID] = @CONN"& _ + "ECTION_ID, [SQL_COMMAND] = @SQL_COMMAND, [READ_ONLY] = @READ_ONLY, [LOAD_IDX_VAL"& _ + "UE] = @LOAD_IDX_VALUE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CH"& _ + "ANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Orig"& _ + "inal_GUID) AND ([CONTROL_ID] = @Original_CONTROL_ID) AND ([SPALTENNAME] = @Origi"& _ + "nal_SPALTENNAME) AND ([SPALTEN_HEADER] = @Original_SPALTEN_HEADER) AND ([SPALTEN"& _ + "BREITE] = @Original_SPALTENBREITE) AND ([VALIDATION] = @Original_VALIDATION) AND"& _ + " ((@IsNull_CHOICE_LIST = 1 AND [CHOICE_LIST] IS NULL) OR ([CHOICE_LIST] = @Origi"& _ + "nal_CHOICE_LIST)) AND ((@IsNull_CONNECTION_ID = 1 AND [CONNECTION_ID] IS NULL) O"& _ + "R ([CONNECTION_ID] = @Original_CONNECTION_ID)) AND ((@IsNull_SQL_COMMAND = 1 AND"& _ + " [SQL_COMMAND] IS NULL) OR ([SQL_COMMAND] = @Original_SQL_COMMAND)) AND ([READ_O"& _ + "NLY] = @Original_READ_ONLY) AND ([LOAD_IDX_VALUE] = @Original_LOAD_IDX_VALUE) AN"& _ + "D ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) "& _ + "AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Or"& _ + "iginal_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) "& _ + "OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONTROL_ID, SPALTE"& _ + "NNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQ"& _ + "L_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ + "D_WHEN FROM TBPM_CONTROL_TABLE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTEN_HEADER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTEN_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENBREITE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENBREITE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONTROL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SPALTENNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SPALTEN_HEADER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTEN_HEADER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SPALTENBREITE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENBREITE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALIDATION", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHOICE_LIST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CONNECTION_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_COMMAND", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_READ_ONLY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(5) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALID"& _ + "ATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED"& _ + "_WHO, ADDED_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, REGEX_MA"& _ + "TCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHE"& _ + "RE (CONTROL_ID = @CONTROL_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "UPDATE TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET SPALTENNAME = @SPALTENNAME, S"& _ + "PALTEN_HEADER = @SPALTEN_HEADER, SPALTENBREITE = @SPALTENBREITE, VALIDATION = @V"& _ + "ALIDATION, READ_ONLY = @READ_ONLY, LOAD_IDX_VALUE = @LOAD_IDX_VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " CHANGED_WHO = @CHANGED_WHO, REGEX_MATCH = @REGEX_MATCH, REGEX_ME"& _ + "SSAGE_EN = @REGEX_MESSAGE_EN, REGEX_MESSAGE_DE = @REGEX_MESSAGE_DE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @Original_GUID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTEN_HEADER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTEN_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENBREITE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENBREITE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MATCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MESSAGE_EN", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MESSAGE_EN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MESSAGE_DE", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MESSAGE_DE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "DELETE FROM TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (CONTROL_ID = @CONTROL_ID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "SELECT GUID, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALID"& _ + "ATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED"& _ + "_WHO, ADDED_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, REGEX_MA"& _ + "TCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_CONTROL_TABLE" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "SELECT GUID, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALID"& _ + "ATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED"& _ + "_WHO, ADDED_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, REGEX_MA"& _ + "TCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHE"& _ + "RE (GUID = @GUID)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "SELECT GUID FROM TBPM_CONTROL_TABLE where Control_ID = @control_id and Spaltennam"& _ + "e = @spaltenname" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@control_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@spaltenname", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable, ByVal CONTROL_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue End Function _ - Public Overloads Overridable Function Update( _ - ByVal PROFIL_ID As Integer, _ - ByVal NAME As String, _ - ByVal CTRL_TYPE As String, _ - ByVal CTRL_TEXT As String, _ - ByVal X_LOC As Double, _ - ByVal Y_LOC As Double, _ - ByVal CHANGED_WHO As String, _ - ByVal INDEX_NAME As String, _ - ByVal TYP As String, _ - ByVal VALIDATION As Boolean, _ - ByVal CHOICE_LIST As String, _ - ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ - ByVal SQL_UEBERPRUEFUNG As String, _ - ByVal HEIGHT As Short, _ - ByVal WIDTH As Short, _ - ByVal FONT_STYLE As Global.System.Nullable(Of Short), _ - ByVal FONT_SIZE As Global.System.Nullable(Of Short), _ - ByVal FONT_FAMILY As String, _ - ByVal FONT_COLOR As Global.System.Nullable(Of Long), _ - ByVal READ_ONLY As Boolean, _ - ByVal LOAD_IDX_VALUE As Boolean, _ - ByVal DEFAULT_VALUE As String, _ - ByVal MULTISELECT As Boolean, _ - ByVal VKT_ADD_ITEM As Boolean, _ - ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ - ByVal REGEX_MATCH As String, _ - ByVal REGEX_MESSAGE_DE As String, _ - ByVal REGEX_MESSAGE_EN As String, _ - ByVal IMAGE_CONTROL() As Byte, _ - ByVal SQL2 As String, _ - ByVal SQL_ENABLE As String, _ - ByVal Original_GUID As Integer, _ - ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) - End If - If (CTRL_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("CTRL_TYPE") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CTRL_TYPE,String) - End If - If (CTRL_TEXT Is Nothing) Then - Throw New Global.System.ArgumentNullException("CTRL_TEXT") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CTRL_TEXT,String) - End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(X_LOC,Double) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Y_LOC,Double) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) - End If - If (INDEX_NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(INDEX_NAME,String) - End If - If (TYP Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(TYP,String) - End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(VALIDATION,Boolean) - If (CHOICE_LIST Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHOICE_LIST,String) - End If - If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CONNECTION_ID.Value,Short) - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value - End If - If (SQL_UEBERPRUEFUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SQL_UEBERPRUEFUNG,String) - End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(HEIGHT,Short) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(WIDTH,Short) - If (FONT_STYLE.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(FONT_STYLE.Value,Short) - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value - End If - If (FONT_SIZE.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(FONT_SIZE.Value,Short) - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value - End If - If (FONT_FAMILY Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(FONT_FAMILY,String) - End If - If (FONT_COLOR.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(FONT_COLOR.Value,Long) - Else - Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(READ_ONLY,Boolean) - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(LOAD_IDX_VALUE,Boolean) - If (DEFAULT_VALUE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(DEFAULT_VALUE,String) - End If - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(MULTISELECT,Boolean) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(VKT_ADD_ITEM,Boolean) - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) - If (REGEX_MATCH Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(REGEX_MATCH,String) - End If - If (REGEX_MESSAGE_DE Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX_MESSAGE_DE") - Else - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(REGEX_MESSAGE_DE,String) - End If - If (REGEX_MESSAGE_EN Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX_MESSAGE_EN") - Else - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(REGEX_MESSAGE_EN,String) - End If - If (IMAGE_CONTROL Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(IMAGE_CONTROL,Byte()) - End If - If (SQL2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(SQL2,String) - End If - If (SQL_ENABLE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(SQL_ENABLE,String) + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ + Public Overloads Overridable Function GetData(ByVal CONTROL_ID As Integer) As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable = New DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillAll(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(3) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If - Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataAll() As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(3) + Dim dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable = New DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByGUID(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(4) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByGUID(ByVal GUID As Integer) As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(4) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable = New DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function _ - Public Overloads Overridable Function cmdControlExists(ByVal profilid As Integer, ByVal name As String) As Global.System.Nullable(Of Integer) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(profilid,Integer) - If (name Is Nothing) Then - Throw New Global.System.ArgumentNullException("name") - Else - command.Parameters(1).Value = CType(name,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() - Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) - End If + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPM_CONTROL_TABLE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) End Function _ - Public Overloads Overridable Function cmdDeleteProfil(ByVal PROFIL_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(PROFIL_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ + Public Overloads Overridable Function Delete(ByVal COLUMNID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(COLUMNID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open End If - Dim returnValue As Integer Try - returnValue = command.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close End If End Try - Return returnValue End Function _ - Public Overloads Overridable Function cmdGetChoiceListName(ByVal GUID As Integer) As String - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) - command.Parameters(0).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ + Public Overloads Overridable Function Insert(ByVal CONTROL_ID As Integer, ByVal SPALTENNAME As String, ByVal SPALTEN_HEADER As String, ByVal SPALTENBREITE As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) + If (SPALTENNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("SPALTENNAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SPALTENNAME,String) + End If + If (SPALTEN_HEADER Is Nothing) Then + Throw New Global.System.ArgumentNullException("SPALTEN_HEADER") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SPALTEN_HEADER,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(SPALTENBREITE,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.InsertCommand.Connection.Open End If - Dim returnValue As Object Try - returnValue = command.ExecuteScalar + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.InsertCommand.Connection.Close End If End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing - Else - Return CType(returnValue,String) - End If End Function _ - Public Overloads Overridable Function cmdgetConnectionID(ByVal GUID As Integer) As Global.System.Nullable(Of Short) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) - command.Parameters(0).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update( _ + ByVal CONTROL_ID As Integer, _ + ByVal SPALTENNAME As String, _ + ByVal SPALTEN_HEADER As String, _ + ByVal SPALTENBREITE As Integer, _ + ByVal VALIDATION As Boolean, _ + ByVal CHOICE_LIST As String, _ + ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ + ByVal SQL_COMMAND As String, _ + ByVal READ_ONLY As Boolean, _ + ByVal LOAD_IDX_VALUE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_CONTROL_ID As Integer, _ + ByVal Original_SPALTENNAME As String, _ + ByVal Original_SPALTEN_HEADER As String, _ + ByVal Original_SPALTENBREITE As Integer, _ + ByVal Original_VALIDATION As Boolean, _ + ByVal Original_CHOICE_LIST As String, _ + ByVal Original_CONNECTION_ID As Global.System.Nullable(Of Short), _ + ByVal Original_SQL_COMMAND As String, _ + ByVal Original_READ_ONLY As Boolean, _ + ByVal Original_LOAD_IDX_VALUE As Boolean, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) + If (SPALTENNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("SPALTENNAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SPALTENNAME,String) + End If + If (SPALTEN_HEADER Is Nothing) Then + Throw New Global.System.ArgumentNullException("SPALTEN_HEADER") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SPALTEN_HEADER,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SPALTENBREITE,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(VALIDATION,Boolean) + If (CHOICE_LIST Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHOICE_LIST,String) + End If + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CONNECTION_ID.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (SQL_COMMAND Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(READ_ONLY,Boolean) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(LOAD_IDX_VALUE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CONTROL_ID,Integer) + If (Original_SPALTENNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_SPALTENNAME") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SPALTENNAME,String) + End If + If (Original_SPALTEN_HEADER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_SPALTEN_HEADER") + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_SPALTEN_HEADER,String) + End If + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_SPALTENBREITE,Integer) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_VALIDATION,Boolean) + If (Original_CHOICE_LIST Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHOICE_LIST,String) + End If + If (Original_CONNECTION_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CONNECTION_ID.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Short)() + If (Original_SQL_COMMAND Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else - Return New Global.System.Nullable(Of Short)(CType(returnValue,Short)) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_SQL_COMMAND,String) End If - End Function - - _ - Public Overloads Overridable Function cmdGetGUID(ByVal profilid As Integer, ByVal name As String) As Global.System.Nullable(Of Integer) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) - command.Parameters(0).Value = CType(profilid,Integer) - If (name Is Nothing) Then - Throw New Global.System.ArgumentNullException("name") + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_READ_ONLY,Boolean) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_LOAD_IDX_VALUE,Boolean) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - command.Parameters(1).Value = CType(name,String) + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_ADDED_WHO,String) End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open End If - Dim returnValue As Object Try - returnValue = command.ExecuteScalar + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close End If End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() - Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) - End If End Function _ - Public Overloads Overridable Function cmdGetIndexname(ByVal GUID As Integer) As String - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) - command.Parameters(0).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing - Else - Return CType(returnValue,String) - End If + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update( _ + ByVal CONTROL_ID As Integer, _ + ByVal SPALTENNAME As String, _ + ByVal SPALTEN_HEADER As String, _ + ByVal SPALTENBREITE As Integer, _ + ByVal VALIDATION As Boolean, _ + ByVal CHOICE_LIST As String, _ + ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ + ByVal SQL_COMMAND As String, _ + ByVal READ_ONLY As Boolean, _ + ByVal LOAD_IDX_VALUE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_CONTROL_ID As Integer, _ + ByVal Original_SPALTENNAME As String, _ + ByVal Original_SPALTEN_HEADER As String, _ + ByVal Original_SPALTENBREITE As Integer, _ + ByVal Original_VALIDATION As Boolean, _ + ByVal Original_CHOICE_LIST As String, _ + ByVal Original_CONNECTION_ID As Global.System.Nullable(Of Short), _ + ByVal Original_SQL_COMMAND As String, _ + ByVal Original_READ_ONLY As Boolean, _ + ByVal Original_LOAD_IDX_VALUE As Boolean, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_CONTROL_ID, Original_SPALTENNAME, Original_SPALTEN_HEADER, Original_SPALTENBREITE, Original_VALIDATION, Original_CHOICE_LIST, Original_CONNECTION_ID, Original_SQL_COMMAND, Original_READ_ONLY, Original_LOAD_IDX_VALUE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function _ - Public Overloads Overridable Function cmdGetSQL(ByVal Guid As Integer) As String - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7) - command.Parameters(0).Value = CType(Guid,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Public Overloads Overridable Function cmdUpdate(ByVal SPALTENNAME As String, ByVal SPALTEN_HEADER As String, ByVal SPALTENBREITE As Integer, ByVal VALIDATION As Boolean, ByVal READ_ONLY As Boolean, ByVal LOAD_IDX_VALUE As Boolean, ByVal CHANGED_WHO As String, ByVal REGEX_MATCH As String, ByVal REGEX_MESSAGE_EN As String, ByVal REGEX_MESSAGE_DE As String, ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (SPALTENNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("SPALTENNAME") + Else + command.Parameters(0).Value = CType(SPALTENNAME,String) End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing + If (SPALTEN_HEADER Is Nothing) Then + Throw New Global.System.ArgumentNullException("SPALTEN_HEADER") Else - Return CType(returnValue,String) + command.Parameters(1).Value = CType(SPALTEN_HEADER,String) End If - End Function - - _ - Public Overloads Overridable Function cmdInsertAnlage(ByVal PROFIL_ID As Integer, ByVal NAME As String, ByVal CTRL_TYPE As String, ByVal CTRL_TEXT As String, ByVal X_LOC As Double, ByVal Y_LOC As Double, ByVal ADDED_WHO As String, ByVal HEIGHT As Short, ByVal Width As Short) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(8) - command.Parameters(0).Value = CType(PROFIL_ID,Integer) - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") + command.Parameters(2).Value = CType(SPALTENBREITE,Integer) + command.Parameters(3).Value = CType(VALIDATION,Boolean) + command.Parameters(4).Value = CType(READ_ONLY,Boolean) + command.Parameters(5).Value = CType(LOAD_IDX_VALUE,Boolean) + If (CHANGED_WHO Is Nothing) Then + command.Parameters(6).Value = Global.System.DBNull.Value Else - command.Parameters(1).Value = CType(NAME,String) + command.Parameters(6).Value = CType(CHANGED_WHO,String) End If - If (CTRL_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("CTRL_TYPE") + If (REGEX_MATCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_MATCH") Else - command.Parameters(2).Value = CType(CTRL_TYPE,String) + command.Parameters(7).Value = CType(REGEX_MATCH,String) End If - If (CTRL_TEXT Is Nothing) Then - Throw New Global.System.ArgumentNullException("CTRL_TEXT") + If (REGEX_MESSAGE_EN Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_MESSAGE_EN") Else - command.Parameters(3).Value = CType(CTRL_TEXT,String) + command.Parameters(8).Value = CType(REGEX_MESSAGE_EN,String) End If - command.Parameters(4).Value = CType(X_LOC,Double) - command.Parameters(5).Value = CType(Y_LOC,Double) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + If (REGEX_MESSAGE_DE Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_MESSAGE_DE") Else - command.Parameters(6).Value = CType(ADDED_WHO,String) + command.Parameters(9).Value = CType(REGEX_MESSAGE_DE,String) End If - command.Parameters(7).Value = CType(HEIGHT,Short) - command.Parameters(8).Value = CType(Width,Short) + command.Parameters(10).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -20158,61 +22045,57 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function cmdInsertCopy() As Object - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(9) + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ + Public Overloads Overridable Function DeleteColumnsByControlId(ByVal CONTROL_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(CONTROL_ID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If - Dim returnValue As Object + Dim returnValue As Integer Try - returnValue = command.ExecuteScalar + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing - Else - Return CType(returnValue,Object) - End If + Return returnValue End Function _ - Public Overloads Overridable Function cmdUpdateIndexname(ByVal INDEX_NAME As String, ByVal G_WER As String, ByVal Original_GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(10) - If (INDEX_NAME Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value - Else - command.Parameters(0).Value = CType(INDEX_NAME,String) - End If - If (G_WER Is Nothing) Then - command.Parameters(1).Value = Global.System.DBNull.Value + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function getColumnID(ByVal control_id As Integer, ByVal spaltenname As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) + command.Parameters(0).Value = CType(control_id,Integer) + If (spaltenname Is Nothing) Then + Throw New Global.System.ArgumentNullException("spaltenname") Else - command.Parameters(1).Value = CType(G_WER,String) + command.Parameters(1).Value = CType(spaltenname,String) End If - command.Parameters(2).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If - Dim returnValue As Integer + Dim returnValue As Object Try - returnValue = command.ExecuteNonQuery + returnValue = command.ExecuteScalar Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try - Return returnValue + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If End Function End Class @@ -20225,7 +22108,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPM_CONTROL_TABLETableAdapter + Partial Public Class TBDD_GROUPSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -20341,105 +22224,20 @@ Namespace DD_DMSLiteDataSetTableAdapters Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPM_CONTROL_TABLE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("CONTROL_ID", "CONTROL_ID") - tableMapping.ColumnMappings.Add("SPALTENNAME", "SPALTENNAME") - tableMapping.ColumnMappings.Add("SPALTEN_HEADER", "SPALTEN_HEADER") - tableMapping.ColumnMappings.Add("SPALTENBREITE", "SPALTENBREITE") - tableMapping.ColumnMappings.Add("VALIDATION", "VALIDATION") - tableMapping.ColumnMappings.Add("CHOICE_LIST", "CHOICE_LIST") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") - tableMapping.ColumnMappings.Add("READ_ONLY", "READ_ONLY") - tableMapping.ColumnMappings.Add("LOAD_IDX_VALUE", "LOAD_IDX_VALUE") + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_GROUPS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("ECM_FK_ID", "ECM_FK_ID") + tableMapping.ColumnMappings.Add("AD_SYNC", "AD_SYNC") + tableMapping.ColumnMappings.Add("INTERNAL", "INTERNAL") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("REGEX_MATCH", "REGEX_MATCH") - tableMapping.ColumnMappings.Add("REGEX_MESSAGE_EN", "REGEX_MESSAGE_EN") - tableMapping.ColumnMappings.Add("REGEX_MESSAGE_DE", "REGEX_MESSAGE_DE") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @COLUMNID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMNID", 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 TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONTROL_ID, SPALTENNAME"& _ - ", SPALTEN_HEADER, SPALTENBREITE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONTROL_ID,@SPALTEN"& _ - "NAME,@SPALTEN_HEADER,@SPALTENBREITE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONTROL_ID, SPAL"& _ - "TENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, "& _ - "SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHAN"& _ - "GED_WHEN FROM TBPM_CONTROL_TABLE WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTEN_HEADER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTEN_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENBREITE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENBREITE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_CONTROL_TABLE] SET [CONTROL_ID] = @CONTROL_ID, [SPALTENNAME] = @SPAL"& _ - "TENNAME, [SPALTEN_HEADER] = @SPALTEN_HEADER, [SPALTENBREITE] = @SPALTENBREITE, ["& _ - "VALIDATION] = @VALIDATION, [CHOICE_LIST] = @CHOICE_LIST, [CONNECTION_ID] = @CONN"& _ - "ECTION_ID, [SQL_COMMAND] = @SQL_COMMAND, [READ_ONLY] = @READ_ONLY, [LOAD_IDX_VAL"& _ - "UE] = @LOAD_IDX_VALUE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CH"& _ - "ANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Orig"& _ - "inal_GUID) AND ([CONTROL_ID] = @Original_CONTROL_ID) AND ([SPALTENNAME] = @Origi"& _ - "nal_SPALTENNAME) AND ([SPALTEN_HEADER] = @Original_SPALTEN_HEADER) AND ([SPALTEN"& _ - "BREITE] = @Original_SPALTENBREITE) AND ([VALIDATION] = @Original_VALIDATION) AND"& _ - " ((@IsNull_CHOICE_LIST = 1 AND [CHOICE_LIST] IS NULL) OR ([CHOICE_LIST] = @Origi"& _ - "nal_CHOICE_LIST)) AND ((@IsNull_CONNECTION_ID = 1 AND [CONNECTION_ID] IS NULL) O"& _ - "R ([CONNECTION_ID] = @Original_CONNECTION_ID)) AND ((@IsNull_SQL_COMMAND = 1 AND"& _ - " [SQL_COMMAND] IS NULL) OR ([SQL_COMMAND] = @Original_SQL_COMMAND)) AND ([READ_O"& _ - "NLY] = @Original_READ_ONLY) AND ([LOAD_IDX_VALUE] = @Original_LOAD_IDX_VALUE) AN"& _ - "D ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) "& _ - "AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Or"& _ - "iginal_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) "& _ - "OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONTROL_ID, SPALTE"& _ - "NNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQ"& _ - "L_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ - "D_WHEN FROM TBPM_CONTROL_TABLE WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTEN_HEADER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTEN_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENBREITE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENBREITE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONTROL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SPALTENNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SPALTEN_HEADER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTEN_HEADER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SPALTENBREITE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENBREITE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALIDATION", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHOICE_LIST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CONNECTION_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_COMMAND", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_READ_ONLY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(5) {} + 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, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALID"& _ - "ATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED"& _ - "_WHO, ADDED_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, REGEX_MA"& _ - "TCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHE"& _ - "RE (CONTROL_ID = @CONTROL_ID)" + Me._commandCollection(0).CommandText = "SELECT T1.GUID, T1.NAME, T1.ECM_FK_ID, T1.AD_SYNC, T1.INTERNAL, T1.ACTIVE,"& _ + " T1.COMMENT, T1.ADDED_WHO, T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + "TBDD_GROUPS T1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"LEFT JOIN TBDD_GROUPS_MODULES T ON T.GROUP_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (T.MODULE_ID ="&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBDD_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (SHORT_NAME = 'PM'))) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"AND (T.GROUP_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM "& _ + " TBPM_PROFILE_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (PROFIL_ID"& _ + " = @PROFILE_ID)))" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "UPDATE TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET SPALTENNAME = @SPALTENNAME, S"& _ - "PALTEN_HEADER = @SPALTEN_HEADER, SPALTENBREITE = @SPALTENBREITE, VALIDATION = @V"& _ - "ALIDATION, READ_ONLY = @READ_ONLY, LOAD_IDX_VALUE = @LOAD_IDX_VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " CHANGED_WHO = @CHANGED_WHO, REGEX_MATCH = @REGEX_MATCH, REGEX_ME"& _ - "SSAGE_EN = @REGEX_MESSAGE_EN, REGEX_MESSAGE_DE = @REGEX_MESSAGE_DE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (GUID = @Original_GUID)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTEN_HEADER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTEN_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENBREITE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENBREITE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MATCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MESSAGE_EN", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MESSAGE_EN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MESSAGE_DE", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MESSAGE_DE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "DELETE FROM TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (CONTROL_ID = @CONTROL_ID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "SELECT GUID, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALID"& _ - "ATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED"& _ - "_WHO, ADDED_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, REGEX_MA"& _ - "TCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_CONTROL_TABLE" - Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(4).Connection = Me.Connection - Me._commandCollection(4).CommandText = "SELECT GUID, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALID"& _ - "ATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED"& _ - "_WHO, ADDED_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, REGEX_MA"& _ - "TCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHE"& _ - "RE (GUID = @GUID)" - Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(5).Connection = Me.Connection - Me._commandCollection(5).CommandText = "SELECT GUID FROM TBPM_CONTROL_TABLE where Control_ID = @control_id and Spaltennam"& _ - "e = @spaltenname" - Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@control_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@spaltenname", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_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_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable, ByVal CONTROL_ID As Integer) As Integer + Public Overloads Overridable Function FillByProfileId_NotAssigned(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GROUPSDataTable, ByVal PROFILE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -20530,381 +22284,228 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal CONTROL_ID As Integer) As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable + Public Overloads Overridable Function GetDataByProfileId_NotAssigned(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.TBDD_GROUPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable = New DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillAll(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(3) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetDataAll() As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(3) - Dim dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable = New DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBDD_GROUPSDataTable = New DD_DMSLiteDataSet.TBDD_GROUPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPROFILE_GROUPTableAdapter + Inherits Global.System.ComponentModel.Component - _ - Public Overloads Overridable Function FillByGUID(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable, ByVal GUID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(4) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - _ - Public Overloads Overridable Function GetDataByGUID(ByVal GUID As Integer) As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(4) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable = New DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function + Private _connection As Global.System.Data.SqlClient.SqlConnection - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_CONTROL_TABLEDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPM_CONTROL_TABLE") - End Function + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function + Private _clearBeforeFill As Boolean _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub _ - Public Overloads Overridable Function Delete(ByVal COLUMNID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(COLUMNID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter End If - End Try - End Function + Return Me._adapter + End Get + End Property _ - Public Overloads Overridable Function Insert(ByVal CONTROL_ID As Integer, ByVal SPALTENNAME As String, ByVal SPALTEN_HEADER As String, ByVal SPALTENBREITE As Integer, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) - If (SPALTENNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("SPALTENNAME") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SPALTENNAME,String) - End If - If (SPALTEN_HEADER Is Nothing) Then - Throw New Global.System.ArgumentNullException("SPALTEN_HEADER") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SPALTEN_HEADER,String) - End If - Me.Adapter.InsertCommand.Parameters(3).Value = CType(SPALTENBREITE,Integer) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection End If - End Try - End Function + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property _ - Public Overloads Overridable Function Update( _ - ByVal CONTROL_ID As Integer, _ - ByVal SPALTENNAME As String, _ - ByVal SPALTEN_HEADER As String, _ - ByVal SPALTENBREITE As Integer, _ - ByVal VALIDATION As Boolean, _ - ByVal CHOICE_LIST As String, _ - ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ - ByVal SQL_COMMAND As String, _ - ByVal READ_ONLY As Boolean, _ - ByVal LOAD_IDX_VALUE As Boolean, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_CONTROL_ID As Integer, _ - ByVal Original_SPALTENNAME As String, _ - ByVal Original_SPALTEN_HEADER As String, _ - ByVal Original_SPALTENBREITE As Integer, _ - ByVal Original_VALIDATION As Boolean, _ - ByVal Original_CHOICE_LIST As String, _ - ByVal Original_CONNECTION_ID As Global.System.Nullable(Of Short), _ - ByVal Original_SQL_COMMAND As String, _ - ByVal Original_READ_ONLY As Boolean, _ - ByVal Original_LOAD_IDX_VALUE As Boolean, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) - If (SPALTENNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("SPALTENNAME") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SPALTENNAME,String) - End If - If (SPALTEN_HEADER Is Nothing) Then - Throw New Global.System.ArgumentNullException("SPALTEN_HEADER") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SPALTEN_HEADER,String) - End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SPALTENBREITE,Integer) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(VALIDATION,Boolean) - If (CHOICE_LIST Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHOICE_LIST,String) - End If - If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CONNECTION_ID.Value,Short) - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - End If - If (SQL_COMMAND Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SQL_COMMAND,String) - End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(READ_ONLY,Boolean) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(LOAD_IDX_VALUE,Boolean) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CONTROL_ID,Integer) - If (Original_SPALTENNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_SPALTENNAME") - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SPALTENNAME,String) - End If - If (Original_SPALTEN_HEADER Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_SPALTEN_HEADER") - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_SPALTEN_HEADER,String) - End If - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_SPALTENBREITE,Integer) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_VALIDATION,Boolean) - If (Original_CHOICE_LIST Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHOICE_LIST,String) - End If - If (Original_CONNECTION_ID.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CONNECTION_ID.Value,Short) - Else - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value - End If - If (Original_SQL_COMMAND Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_SQL_COMMAND,String) - End If - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_READ_ONLY,Boolean) - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_LOAD_IDX_VALUE,Boolean) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(34).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction End If - End Try + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPROFILE_GROUP" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT T1.GUID, T1.NAME, T1.ACTIVE, T1.COMMENT, T1.ADDED_WHO, T1.ADDED_WHE"& _ + "N, T1.CHANGED_WHO, T1.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_GROUP AS T INNE"& _ + "R JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_GROUPS AS T1 ON T.GROUP_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHER"& _ + "E (T.PROFIL_ID = @profil_id)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "DELETE FROM TBPM_PROFILE_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID AND GROUP_ID"& _ + " = @GROUP_ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE_GROUP WHERE PROFIL_ID = @PROFILE_ID" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "INSERT INTO TBPM_PROFILE_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, GROUP_ID, AD"& _ + "DED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@GROUP_ID,@WHO)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable, ByVal profil_id As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(profil_id,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue End Function _ - Public Overloads Overridable Function Update( _ - ByVal CONTROL_ID As Integer, _ - ByVal SPALTENNAME As String, _ - ByVal SPALTEN_HEADER As String, _ - ByVal SPALTENBREITE As Integer, _ - ByVal VALIDATION As Boolean, _ - ByVal CHOICE_LIST As String, _ - ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ - ByVal SQL_COMMAND As String, _ - ByVal READ_ONLY As Boolean, _ - ByVal LOAD_IDX_VALUE As Boolean, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_CONTROL_ID As Integer, _ - ByVal Original_SPALTENNAME As String, _ - ByVal Original_SPALTEN_HEADER As String, _ - ByVal Original_SPALTENBREITE As Integer, _ - ByVal Original_VALIDATION As Boolean, _ - ByVal Original_CHOICE_LIST As String, _ - ByVal Original_CONNECTION_ID As Global.System.Nullable(Of Short), _ - ByVal Original_SQL_COMMAND As String, _ - ByVal Original_READ_ONLY As Boolean, _ - ByVal Original_LOAD_IDX_VALUE As Boolean, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_CONTROL_ID, Original_SPALTENNAME, Original_SPALTEN_HEADER, Original_SPALTENBREITE, Original_VALIDATION, Original_CHOICE_LIST, Original_CONNECTION_ID, Original_SQL_COMMAND, Original_READ_ONLY, Original_LOAD_IDX_VALUE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ + Public Overloads Overridable Function GetData(ByVal profil_id As Integer) As DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(profil_id,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable = New DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function _ - Public Overloads Overridable Function cmdUpdate(ByVal SPALTENNAME As String, ByVal SPALTEN_HEADER As String, ByVal SPALTENBREITE As Integer, ByVal VALIDATION As Boolean, ByVal READ_ONLY As Boolean, ByVal LOAD_IDX_VALUE As Boolean, ByVal CHANGED_WHO As String, ByVal REGEX_MATCH As String, ByVal REGEX_MESSAGE_EN As String, ByVal REGEX_MESSAGE_DE As String, ByVal Original_GUID As Integer) As Integer + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ + Public Overloads Overridable Function CmdDelete(ByVal PROFIL_ID As Integer, ByVal GROUP_ID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - If (SPALTENNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("SPALTENNAME") - Else - command.Parameters(0).Value = CType(SPALTENNAME,String) - End If - If (SPALTEN_HEADER Is Nothing) Then - Throw New Global.System.ArgumentNullException("SPALTEN_HEADER") - Else - command.Parameters(1).Value = CType(SPALTEN_HEADER,String) - End If - command.Parameters(2).Value = CType(SPALTENBREITE,Integer) - command.Parameters(3).Value = CType(VALIDATION,Boolean) - command.Parameters(4).Value = CType(READ_ONLY,Boolean) - command.Parameters(5).Value = CType(LOAD_IDX_VALUE,Boolean) - If (CHANGED_WHO Is Nothing) Then - command.Parameters(6).Value = Global.System.DBNull.Value - Else - command.Parameters(6).Value = CType(CHANGED_WHO,String) - End If - If (REGEX_MATCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX_MATCH") - Else - command.Parameters(7).Value = CType(REGEX_MATCH,String) - End If - If (REGEX_MESSAGE_EN Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX_MESSAGE_EN") - Else - command.Parameters(8).Value = CType(REGEX_MESSAGE_EN,String) - End If - If (REGEX_MESSAGE_DE Is Nothing) Then - Throw New Global.System.ArgumentNullException("REGEX_MESSAGE_DE") - Else - command.Parameters(9).Value = CType(REGEX_MESSAGE_DE,String) - End If - command.Parameters(10).Value = CType(Original_GUID,Integer) + command.Parameters(0).Value = CType(PROFIL_ID,Integer) + command.Parameters(1).Value = CType(GROUP_ID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -20925,9 +22526,9 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ - Public Overloads Overridable Function DeleteColumnsByControlId(ByVal CONTROL_ID As Integer) As Integer + Public Overloads Overridable Function CmdDeleteAllForProfile(ByVal PROFILE_ID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(CONTROL_ID,Integer) + command.Parameters(0).Value = CType(PROFILE_ID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -20946,34 +22547,31 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function getColumnID(ByVal control_id As Integer, ByVal spaltenname As String) As Global.System.Nullable(Of Integer) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) - command.Parameters(0).Value = CType(control_id,Integer) - If (spaltenname Is Nothing) Then - Throw New Global.System.ArgumentNullException("spaltenname") + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, false)> _ + Public Overloads Overridable Function CmdInsert(ByVal PROFIL_ID As Integer, ByVal GROUP_ID As Integer, ByVal WHO As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + command.Parameters(0).Value = CType(PROFIL_ID,Integer) + command.Parameters(1).Value = CType(GROUP_ID,Integer) + If (WHO Is Nothing) Then + command.Parameters(2).Value = Global.System.DBNull.Value Else - command.Parameters(1).Value = CType(spaltenname,String) + command.Parameters(2).Value = CType(WHO,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If - Dim returnValue As Object + Dim returnValue As Integer Try - returnValue = command.ExecuteScalar + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() - Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) - End If + Return returnValue End Function End Class @@ -20986,7 +22584,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_GROUPSTableAdapter + Partial Public Class FNPM_GET_FREE_USER_FOR_PROFILETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -21103,18 +22701,16 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_GROUPS" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("ECM_FK_ID", "ECM_FK_ID") - tableMapping.ColumnMappings.Add("AD_SYNC", "AD_SYNC") - tableMapping.ColumnMappings.Add("INTERNAL", "INTERNAL") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.DataSetTable = "FNPM_GET_FREE_USER_FOR_PROFILE" + tableMapping.ColumnMappings.Add("SequentialOrder", "SequentialOrder") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("USER_NAME", "USER_NAME") + tableMapping.ColumnMappings.Add("USER_PRENAME", "USER_PRENAME") + tableMapping.ColumnMappings.Add("USER_SURNAME", "USER_SURNAME") + tableMapping.ColumnMappings.Add("USER_SHORTNAME", "USER_SHORTNAME") + tableMapping.ColumnMappings.Add("USER_EMAIL", "USER_EMAIL") + tableMapping.ColumnMappings.Add("USER_LANGUAGE", "USER_LANGUAGE") + tableMapping.ColumnMappings.Add("USER_COMMENT", "USER_COMMENT") Me._adapter.TableMappings.Add(tableMapping) End Sub @@ -21131,24 +22727,18 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT T1.GUID, T1.NAME, T1.ECM_FK_ID, T1.AD_SYNC, T1.INTERNAL, T1.ACTIVE,"& _ - " T1.COMMENT, T1.ADDED_WHO, T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - "TBDD_GROUPS T1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"LEFT JOIN TBDD_GROUPS_MODULES T ON T.GROUP_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (T.MODULE_ID ="&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBDD_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (SHORT_NAME = 'PM'))) "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"AND (T.GROUP_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " (SELECT GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM "& _ - " TBPM_PROFILE_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (PROFIL_ID"& _ - " = @PROFILE_ID)))" + Me._commandCollection(0).CommandText = "SELECT SequentialOrder, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, US"& _ + "ER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM dbo.FNPM_"& _ + "GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE_USER_FOR_PROFILE_1" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function FillByProfileId_NotAssigned(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GROUPSDataTable, ByVal PROFILE_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) If (Me.ClearBeforeFill = true) Then @@ -21162,10 +22752,10 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetDataByProfileId_NotAssigned(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.TBDD_GROUPSDataTable + Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBDD_GROUPSDataTable = New DD_DMSLiteDataSet.TBDD_GROUPSDataTable() + Dim dataTable As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable = New DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -21180,7 +22770,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPROFILE_GROUPTableAdapter + Partial Public Class TBDD_EMAIL_TEMPLATETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -21297,16 +22887,55 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPROFILE_GROUP" + tableMapping.DataSetTable = "TBDD_EMAIL_TEMPLATE" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("EMAIL_SUBJECT", "EMAIL_SUBJECT") + tableMapping.ColumnMappings.Add("EMAIL_BODY1", "EMAIL_BODY1") + tableMapping.ColumnMappings.Add("EMAIL_BODY2", "EMAIL_BODY2") + tableMapping.ColumnMappings.Add("EMAIL_BODY3", "EMAIL_BODY3") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, EMAIL_SUBJECT, "& _ + "EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@EMAIL_"& _ + "SUBJECT,@EMAIL_BODY1,@EMAIL_BODY2,@EMAIL_BODY3,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE"& _ + ", EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO, ADDED_WHEN, C"& _ + "HANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_TEMPLATE WHERE (GUID = SCOPE_IDENTITY()"& _ + ")" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY1", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY2", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY3", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, EMAIL_SUBJEC"& _ + "T = @EMAIL_SUBJECT, EMAIL_BODY1 = @EMAIL_BODY1, EMAIL_BODY2 = @EMAIL_BODY2, EMAI"& _ + "L_BODY3 = @EMAIL_BODY3, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origin"& _ + "al_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_B"& _ + "ODY3, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_TEMPLATE "& _ + "WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY1", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY2", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY3", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT T1.GUID, T1.NAME, T1.ACTIVE, T1.COMMENT, T1.ADDED_WHO, T1.ADDED_WHE"& _ - "N, T1.CHANGED_WHO, T1.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_GROUP AS T INNE"& _ - "R JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_GROUPS AS T1 ON T.GROUP_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHER"& _ - "E (T.PROFIL_ID = @profil_id)" + Me._commandCollection(0).CommandText = "SELECT TBDD_EMAIL_TEMPLATE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EMAIL_TEMPLATE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "DELETE FROM TBPM_PROFILE_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID AND GROUP_ID"& _ - " = @GROUP_ID)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE_GROUP WHERE PROFIL_ID = @PROFILE_ID" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "INSERT INTO TBPM_PROFILE_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, GROUP_ID, AD"& _ - "DED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@GROUP_ID,@WHO)" - Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable, ByVal profil_id As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(profil_id,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -21368,88 +22972,162 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal profil_id As Integer) As DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(profil_id,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable = New DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable() + Dim dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable = New DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_EMAIL_TEMPLATE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + _ - Public Overloads Overridable Function CmdDelete(ByVal PROFIL_ID As Integer, ByVal GROUP_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(PROFIL_ID,Integer) - command.Parameters(1).Value = CType(GROUP_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open End If - Dim returnValue As Integer Try - returnValue = command.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close End If End Try - Return returnValue End Function _ - Public Overloads Overridable Function CmdDeleteAllForProfile(ByVal PROFILE_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(PROFILE_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ + Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal ADDED_WHO As String) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EMAIL_SUBJECT,String) + End If + If (EMAIL_BODY1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY1") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(EMAIL_BODY1,String) + End If + If (EMAIL_BODY2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY2") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL_BODY2,String) + End If + If (EMAIL_BODY3 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY3") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL_BODY3,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.InsertCommand.Connection.Open End If - Dim returnValue As Integer Try - returnValue = command.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.InsertCommand.Connection.Close End If End Try - Return returnValue End Function _ - Public Overloads Overridable Function CmdInsert(ByVal PROFIL_ID As Integer, ByVal GROUP_ID As Integer, ByVal WHO As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) - command.Parameters(0).Value = CType(PROFIL_ID,Integer) - command.Parameters(1).Value = CType(GROUP_ID,Integer) - If (WHO Is Nothing) Then - command.Parameters(2).Value = Global.System.DBNull.Value + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") Else - command.Parameters(2).Value = CType(WHO,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + If (EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EMAIL_SUBJECT,String) + End If + If (EMAIL_BODY1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY1") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_BODY1,String) + End If + If (EMAIL_BODY2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY2") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_BODY2,String) + End If + If (EMAIL_BODY3 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY3") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_BODY3,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open End If - Dim returnValue As Integer Try - returnValue = command.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close End If End Try - Return returnValue End Function End Class @@ -21462,7 +23140,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class FNPM_GET_FREE_USER_FOR_PROFILETableAdapter + Partial Public Class TBDD_GUI_LANGUAGE_PHRASETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -21579,17 +23257,75 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "FNPM_GET_FREE_USER_FOR_PROFILE" - tableMapping.ColumnMappings.Add("SequentialOrder", "SequentialOrder") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") - tableMapping.ColumnMappings.Add("USER_NAME", "USER_NAME") - tableMapping.ColumnMappings.Add("USER_PRENAME", "USER_PRENAME") - tableMapping.ColumnMappings.Add("USER_SURNAME", "USER_SURNAME") - tableMapping.ColumnMappings.Add("USER_SHORTNAME", "USER_SHORTNAME") - tableMapping.ColumnMappings.Add("USER_EMAIL", "USER_EMAIL") - tableMapping.ColumnMappings.Add("USER_LANGUAGE", "USER_LANGUAGE") - tableMapping.ColumnMappings.Add("USER_COMMENT", "USER_COMMENT") + tableMapping.DataSetTable = "TBDD_GUI_LANGUAGE_PHRASE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("MODULE", "MODULE") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") + tableMapping.ColumnMappings.Add("CAPT_TYPE", "CAPT_TYPE") + tableMapping.ColumnMappings.Add("STRING1", "STRING1") + tableMapping.ColumnMappings.Add("STRING2", "STRING2") + tableMapping.ColumnMappings.Add("STRING3", "STRING3") + tableMapping.ColumnMappings.Add("STRING4", "STRING4") + tableMapping.ColumnMappings.Add("STRING5", "STRING5") + tableMapping.ColumnMappings.Add("STRING6", "STRING6") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("OBJ_NAME", "OBJ_NAME") + tableMapping.ColumnMappings.Add("INTERNAL", "INTERNAL") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (MODULE, TITLE, LA"& _ + "NGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING6, ADDED_W"& _ + "HO, OBJ_NAME, INTERNAL)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES ('PM',@TITLE,@LANGUAGE,@CAPT_TYPE,@STRING"& _ + "1,@STRING2,@STRING3,@STRING4,@STRING5,@STRING6,@ADDED_WHO, '@OBJ_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"@OBJ_NAME"& _ + "',@INTERNAL); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRI"& _ + "NG2, STRING3, STRING4, STRING5, STRING6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHA"& _ + "NGED_WHEN FROM TBDD_GUI_LANGUAGE_PHRASE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAPT_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING3", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING4", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING5", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING6", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, LANGUAG"& _ + "E = @LANGUAGE, CAPT_TYPE = @CAPT_TYPE, STRING1 = @STRING1, STRING2 = @STRING2, S"& _ + "TRING3 = @STRING3, STRING4 = @STRING4, STRING5 = @STRING5, STRING6 = @STRING6, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO, OBJ_NAME = @OBJ_NAME, INTE"& _ + "RNAL = @INTERNAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MODULE,"& _ + " TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING"& _ + "6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GUI_LANGUAGE_PHRAS"& _ + "E WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAPT_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING3", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING4", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING5", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING6", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJ_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Dim dataTable As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable = New DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable = New DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_GUI_LANGUAGE_PHRASE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal ADDED_WHO As String, ByVal INTERNAL As Boolean) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(LANGUAGE,String) + End If + If (CAPT_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAPT_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(CAPT_TYPE,String) + End If + If (STRING1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("STRING1") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(STRING1,String) + End If + If (STRING2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("STRING2") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(STRING2,String) + End If + If (STRING3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(STRING3,String) + End If + If (STRING4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(STRING4,String) + End If + If (STRING5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(STRING5,String) + End If + If (STRING6 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(STRING6,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(10).Value = CType(INTERNAL,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal CHANGED_WHO As String, ByVal OBJ_NAME As String, ByVal INTERNAL As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LANGUAGE,String) + End If + If (CAPT_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAPT_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CAPT_TYPE,String) + End If + If (STRING1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("STRING1") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(STRING1,String) + End If + If (STRING2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("STRING2") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(STRING2,String) + End If + If (STRING3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(STRING3,String) + End If + If (STRING4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(STRING4,String) + End If + If (STRING5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(STRING5,String) + End If + If (STRING6 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(STRING6,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHO,String) + End If + If (OBJ_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJ_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(OBJ_NAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(INTERNAL,Boolean) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try End Function End Class @@ -21648,7 +23580,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_EMAIL_TEMPLATETableAdapter + Partial Public Class VWPM_CHART_INVOICE_MONITORTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -21765,55 +23697,19 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_EMAIL_TEMPLATE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("TITLE", "TITLE") - tableMapping.ColumnMappings.Add("EMAIL_SUBJECT", "EMAIL_SUBJECT") - tableMapping.ColumnMappings.Add("EMAIL_BODY1", "EMAIL_BODY1") - tableMapping.ColumnMappings.Add("EMAIL_BODY2", "EMAIL_BODY2") - tableMapping.ColumnMappings.Add("EMAIL_BODY3", "EMAIL_BODY3") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.DataSetTable = "VWPM_CHART_INVOICE_MONITOR" + tableMapping.ColumnMappings.Add("Anzahl_AI", "Anzahl_AI") + tableMapping.ColumnMappings.Add("NettoSumme_AI", "NettoSumme_AI") + tableMapping.ColumnMappings.Add("Anzahl_PE", "Anzahl_PE") + tableMapping.ColumnMappings.Add("NettoSumme_PE", "NettoSumme_PE") + tableMapping.ColumnMappings.Add("Anzahl_FF", "Anzahl_FF") + tableMapping.ColumnMappings.Add("NettoSumme_FF", "NettoSumme_FF") + tableMapping.ColumnMappings.Add("Anzahl_FIF", "Anzahl_FIF") + tableMapping.ColumnMappings.Add("NettoSumme_FIF", "NettoSumme_FIF") + tableMapping.ColumnMappings.Add("Anzahl_ZK", "Anzahl_ZK") + tableMapping.ColumnMappings.Add("WFState", "WFState") + tableMapping.ColumnMappings.Add("NettoSumme_ZK", "NettoSumme_ZK") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, EMAIL_SUBJECT, "& _ - "EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@EMAIL_"& _ - "SUBJECT,@EMAIL_BODY1,@EMAIL_BODY2,@EMAIL_BODY3,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE"& _ - ", EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO, ADDED_WHEN, C"& _ - "HANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_TEMPLATE WHERE (GUID = SCOPE_IDENTITY()"& _ - ")" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY1", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY2", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY3", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, EMAIL_SUBJEC"& _ - "T = @EMAIL_SUBJECT, EMAIL_BODY1 = @EMAIL_BODY1, EMAIL_BODY2 = @EMAIL_BODY2, EMAI"& _ - "L_BODY3 = @EMAIL_BODY3, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origin"& _ - "al_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_B"& _ - "ODY3, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_TEMPLATE "& _ - "WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY1", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY2", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY3", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable = New DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_EMAIL_TEMPLATE") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal ADDED_WHO As String) As Integer - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) - End If - If (EMAIL_SUBJECT Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(EMAIL_SUBJECT,String) - End If - If (EMAIL_BODY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_BODY1") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(EMAIL_BODY1,String) - End If - If (EMAIL_BODY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_BODY2") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL_BODY2,String) - End If - If (EMAIL_BODY3 Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_BODY3") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL_BODY3,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) - End If - If (EMAIL_SUBJECT Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EMAIL_SUBJECT,String) - End If - If (EMAIL_BODY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_BODY1") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_BODY1,String) - End If - If (EMAIL_BODY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_BODY2") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_BODY2,String) - End If - If (EMAIL_BODY3 Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_BODY3") - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_BODY3,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITORDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITORDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITORDataTable = New DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITORDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function End Class @@ -22018,7 +23764,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_GUI_LANGUAGE_PHRASETableAdapter + Partial Public Class VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -22128,324 +23874,61 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._clearBeforeFill = value End Set End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_GUI_LANGUAGE_PHRASE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("MODULE", "MODULE") - tableMapping.ColumnMappings.Add("TITLE", "TITLE") - tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") - tableMapping.ColumnMappings.Add("CAPT_TYPE", "CAPT_TYPE") - tableMapping.ColumnMappings.Add("STRING1", "STRING1") - tableMapping.ColumnMappings.Add("STRING2", "STRING2") - tableMapping.ColumnMappings.Add("STRING3", "STRING3") - tableMapping.ColumnMappings.Add("STRING4", "STRING4") - tableMapping.ColumnMappings.Add("STRING5", "STRING5") - tableMapping.ColumnMappings.Add("STRING6", "STRING6") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("OBJ_NAME", "OBJ_NAME") - tableMapping.ColumnMappings.Add("INTERNAL", "INTERNAL") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (MODULE, TITLE, LA"& _ - "NGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING6, ADDED_W"& _ - "HO, OBJ_NAME, INTERNAL)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES ('PM',@TITLE,@LANGUAGE,@CAPT_TYPE,@STRING"& _ - "1,@STRING2,@STRING3,@STRING4,@STRING5,@STRING6,@ADDED_WHO, '@OBJ_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"@OBJ_NAME"& _ - "',@INTERNAL); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRI"& _ - "NG2, STRING3, STRING4, STRING5, STRING6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHA"& _ - "NGED_WHEN FROM TBDD_GUI_LANGUAGE_PHRASE WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAPT_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING3", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING4", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING5", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING6", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, LANGUAG"& _ - "E = @LANGUAGE, CAPT_TYPE = @CAPT_TYPE, STRING1 = @STRING1, STRING2 = @STRING2, S"& _ - "TRING3 = @STRING3, STRING4 = @STRING4, STRING5 = @STRING5, STRING6 = @STRING6, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO, OBJ_NAME = @OBJ_NAME, INTE"& _ - "RNAL = @INTERNAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MODULE,"& _ - " TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING"& _ - "6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GUI_LANGUAGE_PHRAS"& _ - "E WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAPT_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING3", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING4", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING5", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING6", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJ_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3"& _ - ", STRING4, STRING5, STRING6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, O"& _ - "BJ_NAME, INTERNAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODUL"& _ - "E = 'PM')" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable = New DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_GUI_LANGUAGE_PHRASE") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal ADDED_WHO As String, ByVal INTERNAL As Boolean) As Integer - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) - End If - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(LANGUAGE,String) - End If - If (CAPT_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("CAPT_TYPE") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(CAPT_TYPE,String) - End If - If (STRING1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("STRING1") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(STRING1,String) - End If - If (STRING2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("STRING2") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(STRING2,String) - End If - If (STRING3 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(STRING3,String) - End If - If (STRING4 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(STRING4,String) - End If - If (STRING5 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(STRING5,String) - End If - If (STRING6 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(STRING6,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.InsertCommand.Parameters(10).Value = CType(INTERNAL,Boolean) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPM_CHART_INVOICE_MONITOR_SERIES" + tableMapping.ColumnMappings.Add("Title", "Title") + tableMapping.ColumnMappings.Add("Anzahl", "Anzahl") + tableMapping.ColumnMappings.Add("NettoSumme", "NettoSumme") + tableMapping.ColumnMappings.Add("SEQ", "SEQ") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT Title, Anzahl, NettoSumme, SEQ"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPM_CHART_INVOICE_"& _ + "MONITOR_SERIES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQ" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIESDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue End Function _ - Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal CHANGED_WHO As String, ByVal OBJ_NAME As String, ByVal INTERNAL As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) - End If - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LANGUAGE,String) - End If - If (CAPT_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("CAPT_TYPE") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CAPT_TYPE,String) - End If - If (STRING1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("STRING1") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(STRING1,String) - End If - If (STRING2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("STRING2") - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(STRING2,String) - End If - If (STRING3 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(STRING3,String) - End If - If (STRING4 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(STRING4,String) - End If - If (STRING5 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(STRING5,String) - End If - If (STRING6 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(STRING6,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHO,String) - End If - If (OBJ_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJ_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(OBJ_NAME,String) - End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(INTERNAL,Boolean) - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIESDataTable = New DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function End Class @@ -22823,21 +24306,39 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(updatedRows)) + result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GUI_LANGUAGE_PHRASE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_EMAIL_TEMPLATETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_EMAIL_TEMPLATETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -22886,24 +24387,6 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_EMAIL_TEMPLATETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_EMAIL_TEMPLATETableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If - If (Not (Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GUI_LANGUAGE_PHRASE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If Return result End Function @@ -22938,19 +24421,35 @@ Namespace DD_DMSLiteDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(addedRows)) + result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GUI_LANGUAGE_PHRASE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(addedRows)) + result = (result + Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_EMAIL_TEMPLATETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_EMAIL_TEMPLATETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -22994,22 +24493,6 @@ Namespace DD_DMSLiteDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_EMAIL_TEMPLATETableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_EMAIL_TEMPLATETableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If - If (Not (Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GUI_LANGUAGE_PHRASE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If Return result End Function @@ -23020,22 +24503,6 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSLiteDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GUI_LANGUAGE_PHRASE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBDD_EMAIL_TEMPLATETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_EMAIL_TEMPLATETableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -23076,19 +24543,35 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(deletedRows)) + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBDD_EMAIL_TEMPLATETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_EMAIL_TEMPLATETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GUI_LANGUAGE_PHRASE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index bc7c174..9df6478 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -1102,25 +1102,6 @@ WHERE (GUID = @GUID) - - - - INSERT INTO TBPM_PROFILE - (NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, - LOG_INDEX, WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY) -SELECT NAME + @COPY_SUFFIX AS Expr1, TITLE + @COPY_SUFFIX AS Expr5, PRIORITY, DESCRIPTION, 0 AS Expr2, WD_SEARCH, 0 AS Expr3, @USER AS Expr4, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, - WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, - ANNOTATE_WORK_HISTORY_ENTRY -FROM TBPM_PROFILE AS TBPM_PROFILE_1 -WHERE (GUID = @GUID) - - - - - - - - @@ -1477,20 +1458,6 @@ VALUES (@PROFIL_ID,@NAME,@CTRL_TYPE,@CTRL_TEXT,@X_LOC,@Y_LOC,@ADDED_WHO,@ - - - - INSERT INTO TBPM_PROFILE_CONTROLS - (NAME, PROFIL_ID, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, READ_ONLY, - LOAD_IDX_VALUE, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR) -SELECT LOWER(CTRL_TYPE + CONVERT(VARCHAR(4),rank() OVER (ORDER BY CTRL_TYPE))),@NEW_PROFIL_ID, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, @User, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, - READ_ONLY, LOAD_IDX_VALUE, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR -FROM TBPM_PROFILE_CONTROLS AS TBPM_PROFILE_CONTROLS_1 -WHERE (PROFIL_ID = @Copy_profilId) - - - - @@ -2008,6 +1975,54 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI + + + + + + SELECT VWPM_CHART_INVOICE_MONITOR.* +FROM VWPM_CHART_INVOICE_MONITOR + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT Title, Anzahl, NettoSumme, SEQ +FROM VWPM_CHART_INVOICE_MONITOR_SERIES +ORDER BY SEQ + + + + + + + + + + + + + @@ -2016,7 +2031,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2076,7 +2091,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2172,7 +2187,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2237,7 +2252,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2267,7 +2282,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2290,7 +2305,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2364,7 +2379,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2413,7 +2428,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2428,7 +2443,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2550,7 +2565,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2623,7 +2638,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2674,7 +2689,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2812,7 +2827,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2890,7 +2905,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2931,7 +2946,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -2969,7 +2984,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -3026,7 +3041,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -3084,7 +3099,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - + @@ -3185,6 +3200,75 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -3266,11 +3350,11 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI - - - - - + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index 0d50fe5..a6a20be 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -4,29 +4,31 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + - + 549 @@ -38,7 +40,7 @@ - + 175 @@ -54,31 +56,31 @@ - + 603 - 500 + 498 - 947 - 500 + 948 + 498 - + - 1247 - 542 + 1248 + 540 1300 - 542 + 540 - + 141 diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index c44469f..68b5975 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -89,17 +89,22 @@ False + False + + + False + False @@ -117,6 +122,7 @@ + @@ -126,6 +132,8 @@ False + + False @@ -154,6 +162,23 @@ False ..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\Independentsoft.Msg.dll + + False + True + ..\..\..\..\Interop.WINDREAMLib.dll + + + ..\..\..\..\Interop.WMOBRWSLib.dll + True + + + ..\..\..\..\Interop.WMOSRCHLib.dll + True + + + ..\..\..\..\Interop.WMOTOOLLib.dll + True + ..\packages\NLog.4.5.11\lib\net45\NLog.dll @@ -343,6 +368,12 @@ Form + + frmInvDashboard.vb + + + Form + frmLicense.vb @@ -460,6 +491,12 @@ True Settings.settings + + XtraReport1.vb + + + Component + @@ -512,6 +549,9 @@ frmFormDesigner.vb + + frmInvDashboard.vb + frmLicense.vb @@ -582,6 +622,9 @@ Designer Resources.Designer.vb + + XtraReport1.vb + @@ -624,44 +667,6 @@ - - - {18E0EEE0-42A3-11D3-B322-00104B066E1A} - 1 - 0 - 0 - tlbimp - False - False - - - {25B51999-6DCA-11D4-B815-00104BB52DEA} - 1 - 0 - 0 - tlbimp - False - True - - - {BE4F1D13-88A8-11D4-B3FA-0001021F035F} - 1 - 0 - 0 - tlbimp - False - True - - - {A704B4C1-E1C1-11D2-B2A9-00104B066E1A} - 1 - 0 - 0 - tlbimp - False - True - - diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index ca672f2..f88afdb 100644 --- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb +++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb @@ -5,6 +5,18 @@ Imports DigitalData.Modules.Logging Module ModuleRuntimeVariables ' Diese Werte müssen später zur Laufzeit geladen werden + Public BASEDATA_DT_TBDD_CONNECTION As DataTable + Public BASEDATA_DT_CONFIG As DataTable + Public BASEDATA_DTGRID_GROUPS As DataTable + Public BASEDATA_DT_CHARTS As DataTable + Public BASEDATA_DT_GUI_LANGUAGE_PHRASES As DataTable + Public BASEDATA_DT_PROFILES_SEARCHES_DOC As DataTable + Public BASEDATA_DT_PROFILE_SEARCHES_DOC As DataTable + + Public BASEDATA_DT_PROFILES_SEARCHES_SQL As DataTable + Public BASEDATA_DT_PROFILE_SEARCHES_SQL As DataTable + Public BASEDATA_DT_VW_PROFILE_USER As DataTable + Public CURRENT_ProfilGUID As Integer Public CURRENT_ProfilName As String Public CURRENT_PROFILE_LOG_INDEX As String @@ -15,6 +27,8 @@ Module ModuleRuntimeVariables Public CURRENT_DOC_CREATION_DATE As String Public CURRENT_DOC_CREATION_TIME As String + Public CURRENT_CONN_ID As Integer + Public CURRENT_JUMP_DOC_GUID As Integer Public CURRENT_WMFILE As WMObject @@ -61,8 +75,7 @@ Module ModuleRuntimeVariables Public CURRENT_SQL_CON As Integer Public CURRENT_SQL_COMAMND As String Public CURRENT_DT_SQL_CONFIG_TABLE As DataTable - Public CURRENT_DT_TBDD_CONNECTION As DataTable - Public CURRENT_DT_CONFIG As DataTable + Public CURRENT_CLICKED_PROFILE_ID As Integer = 0 Public CURRENT_CLICKED_PROFILE_TITLE As String @@ -81,18 +94,17 @@ Module ModuleRuntimeVariables Public CURRENT_DT_FINAL_INDEXING As DataTable Public CURRENT_DT_PROFILES As DataTable Public CURRENT_DT_PROFILE As DataTable - Public CURRENT_DT_PROFILES_SEARCHES_DOC As DataTable - Public CURRENT_DT_PROFILE_SEARCHES_DOC As DataTable - Public CURRENT_DT_PROFILES_SEARCHES_SQL As DataTable - Public CURRENT_DT_PROFILE_SEARCHES_SQL As DataTable + + Public CURRENT_INDEX_ARRAY(100, 250) As String - Public CURRENT_DT_VW_PROFILE_USER As DataTable - Public CURRENT_DT_GUI_LANGUAGE_PHRASES As DataTable + Public DTVWCONTROLS_INDEX As DataTable Public DTVWCONTROL_INDEX As DataTable + Public DTCONTROLS_WITH_SQL As DataTable + Public CURRENT_CONTROL_ID As Integer Public errormessage As String diff --git a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb index 2fde2cf..1579df1 100644 --- a/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb +++ b/app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD_PM_WINDREAM/My Project/licenses.licx b/app/DD_PM_WINDREAM/My Project/licenses.licx index 19059ee..d6e41f5 100644 --- a/app/DD_PM_WINDREAM/My Project/licenses.licx +++ b/app/DD_PM_WINDREAM/My Project/licenses.licx @@ -1,13 +1,15 @@ -DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraPrinting.Preview.DocumentViewer, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraReports.UI.XtraReport, DevExpress.XtraReports.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_PM_WINDREAM/XtraReport1.Designer.vb b/app/DD_PM_WINDREAM/XtraReport1.Designer.vb new file mode 100644 index 0000000..3d7b5dc --- /dev/null +++ b/app/DD_PM_WINDREAM/XtraReport1.Designer.vb @@ -0,0 +1,430 @@ + _ +Partial Public Class XtraReport1 + Inherits DevExpress.XtraReports.UI.XtraReport + + 'XtraReport overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Required by the Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Designer + 'It can be modified using the Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SelectQuery1 As DevExpress.DataAccess.Sql.SelectQuery = New DevExpress.DataAccess.Sql.SelectQuery() + Dim Column1 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column() + Dim ColumnExpression1 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression() + Dim Table4 As DevExpress.DataAccess.Sql.Table = New DevExpress.DataAccess.Sql.Table() + Dim Column2 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column() + Dim ColumnExpression2 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression() + Dim Column3 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column() + Dim ColumnExpression3 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(XtraReport1)) + Me.SqlDataSource1 = New DevExpress.DataAccess.Sql.SqlDataSource(Me.components) + Me.Title = New DevExpress.XtraReports.UI.XRControlStyle() + Me.GroupCaption1 = New DevExpress.XtraReports.UI.XRControlStyle() + Me.GroupData1 = New DevExpress.XtraReports.UI.XRControlStyle() + Me.PageInfo = New DevExpress.XtraReports.UI.XRControlStyle() + Me.DetailData1VerticalFirstRow = New DevExpress.XtraReports.UI.XRControlStyle() + Me.DetailData1VerticalLastRow_Even = New DevExpress.XtraReports.UI.XRControlStyle() + Me.HeaderData1VerticalFirstRow = New DevExpress.XtraReports.UI.XRControlStyle() + Me.HeaderData1VerticalLastRow_Even = New DevExpress.XtraReports.UI.XRControlStyle() + Me.TopMargin = New DevExpress.XtraReports.UI.TopMarginBand() + Me.BottomMargin = New DevExpress.XtraReports.UI.BottomMarginBand() + Me.ReportHeader = New DevExpress.XtraReports.UI.ReportHeaderBand() + Me.GroupHeader1 = New DevExpress.XtraReports.UI.GroupHeaderBand() + Me.VerticalHeader = New DevExpress.XtraReports.UI.VerticalHeaderBand() + Me.VerticalDetail = New DevExpress.XtraReports.UI.VerticalDetailBand() + Me.pageInfo1 = New DevExpress.XtraReports.UI.XRPageInfo() + Me.pageInfo2 = New DevExpress.XtraReports.UI.XRPageInfo() + Me.label1 = New DevExpress.XtraReports.UI.XRLabel() + Me.table1 = New DevExpress.XtraReports.UI.XRTable() + Me.tableRow1 = New DevExpress.XtraReports.UI.XRTableRow() + Me.tableCell1 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell2 = New DevExpress.XtraReports.UI.XRTableCell() + Me.table2 = New DevExpress.XtraReports.UI.XRTable() + Me.tableRow2 = New DevExpress.XtraReports.UI.XRTableRow() + Me.tableRow3 = New DevExpress.XtraReports.UI.XRTableRow() + Me.tableCell3 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell4 = New DevExpress.XtraReports.UI.XRTableCell() + Me.table3 = New DevExpress.XtraReports.UI.XRTable() + Me.tableRow4 = New DevExpress.XtraReports.UI.XRTableRow() + Me.tableRow5 = New DevExpress.XtraReports.UI.XRTableRow() + Me.tableCell5 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell6 = New DevExpress.XtraReports.UI.XRTableCell() + CType(Me.table1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.table2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.table3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'SqlDataSource1 + ' + Me.SqlDataSource1.ConnectionName = "DD_ProcessManager.My.MySettings.ConnectionString" + Me.SqlDataSource1.Name = "SqlDataSource1" + ColumnExpression1.ColumnName = "Anzahl" + Table4.Name = "VWPM_CHART_INVOICE_MONITOR" + ColumnExpression1.Table = Table4 + Column1.Expression = ColumnExpression1 + ColumnExpression2.ColumnName = "WFState" + ColumnExpression2.Table = Table4 + Column2.Expression = ColumnExpression2 + ColumnExpression3.ColumnName = "NettoSumme" + ColumnExpression3.Table = Table4 + Column3.Expression = ColumnExpression3 + SelectQuery1.Columns.Add(Column1) + SelectQuery1.Columns.Add(Column2) + SelectQuery1.Columns.Add(Column3) + SelectQuery1.Name = "VWPM_CHART_INVOICE_MONITOR" + SelectQuery1.Tables.Add(Table4) + Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {SelectQuery1}) + Me.SqlDataSource1.ResultSchemaSerializable = resources.GetString("SqlDataSource1.ResultSchemaSerializable") + ' + 'Title + ' + Me.Title.BackColor = System.Drawing.Color.Transparent + Me.Title.BorderColor = System.Drawing.Color.Black + Me.Title.Borders = DevExpress.XtraPrinting.BorderSide.None + Me.Title.BorderWidth = 1.0! + Me.Title.Font = New System.Drawing.Font("Arial", 14.25!) + Me.Title.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(70, Byte), Integer), CType(CType(80, Byte), Integer)) + Me.Title.Name = "Title" + ' + 'GroupCaption1 + ' + Me.GroupCaption1.BackColor = System.Drawing.Color.FromArgb(CType(CType(23, Byte), Integer), CType(CType(104, Byte), Integer), CType(CType(196, Byte), Integer)) + Me.GroupCaption1.BorderColor = System.Drawing.Color.White + Me.GroupCaption1.Borders = DevExpress.XtraPrinting.BorderSide.Bottom + Me.GroupCaption1.BorderWidth = 2.0! + Me.GroupCaption1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold) + Me.GroupCaption1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(228, Byte), Integer), CType(CType(228, Byte), Integer), CType(CType(228, Byte), Integer)) + Me.GroupCaption1.Name = "GroupCaption1" + Me.GroupCaption1.Padding = New DevExpress.XtraPrinting.PaddingInfo(15, 5, 0, 0, 254.0!) + Me.GroupCaption1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + 'GroupData1 + ' + Me.GroupData1.BackColor = System.Drawing.Color.FromArgb(CType(CType(23, Byte), Integer), CType(CType(104, Byte), Integer), CType(CType(196, Byte), Integer)) + Me.GroupData1.BorderColor = System.Drawing.Color.White + Me.GroupData1.Borders = DevExpress.XtraPrinting.BorderSide.Bottom + Me.GroupData1.BorderWidth = 2.0! + Me.GroupData1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold) + Me.GroupData1.ForeColor = System.Drawing.Color.White + Me.GroupData1.Name = "GroupData1" + Me.GroupData1.Padding = New DevExpress.XtraPrinting.PaddingInfo(15, 5, 0, 0, 254.0!) + Me.GroupData1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + 'PageInfo + ' + Me.PageInfo.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold) + Me.PageInfo.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(70, Byte), Integer), CType(CType(80, Byte), Integer)) + Me.PageInfo.Name = "PageInfo" + Me.PageInfo.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!) + ' + 'DetailData1VerticalFirstRow + ' + Me.DetailData1VerticalFirstRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(248, Byte), Integer)) + Me.DetailData1VerticalFirstRow.BorderColor = System.Drawing.Color.White + Me.DetailData1VerticalFirstRow.Borders = CType((DevExpress.XtraPrinting.BorderSide.Top Or DevExpress.XtraPrinting.BorderSide.Right), DevExpress.XtraPrinting.BorderSide) + Me.DetailData1VerticalFirstRow.BorderWidth = 2.0! + Me.DetailData1VerticalFirstRow.Font = New System.Drawing.Font("Arial", 8.25!) + Me.DetailData1VerticalFirstRow.ForeColor = System.Drawing.Color.FromArgb(CType(CType(51, Byte), Integer), CType(CType(51, Byte), Integer), CType(CType(51, Byte), Integer)) + Me.DetailData1VerticalFirstRow.Name = "DetailData1VerticalFirstRow" + Me.DetailData1VerticalFirstRow.Padding = New DevExpress.XtraPrinting.PaddingInfo(15, 15, 0, 0, 254.0!) + Me.DetailData1VerticalFirstRow.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + 'DetailData1VerticalLastRow_Even + ' + Me.DetailData1VerticalLastRow_Even.BackColor = System.Drawing.Color.Transparent + Me.DetailData1VerticalLastRow_Even.BorderColor = System.Drawing.Color.White + Me.DetailData1VerticalLastRow_Even.Borders = CType((DevExpress.XtraPrinting.BorderSide.Right Or DevExpress.XtraPrinting.BorderSide.Bottom), DevExpress.XtraPrinting.BorderSide) + Me.DetailData1VerticalLastRow_Even.BorderWidth = 2.0! + Me.DetailData1VerticalLastRow_Even.Font = New System.Drawing.Font("Arial", 8.25!) + Me.DetailData1VerticalLastRow_Even.ForeColor = System.Drawing.Color.FromArgb(CType(CType(51, Byte), Integer), CType(CType(51, Byte), Integer), CType(CType(51, Byte), Integer)) + Me.DetailData1VerticalLastRow_Even.Name = "DetailData1VerticalLastRow_Even" + Me.DetailData1VerticalLastRow_Even.Padding = New DevExpress.XtraPrinting.PaddingInfo(15, 15, 0, 0, 254.0!) + Me.DetailData1VerticalLastRow_Even.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + 'HeaderData1VerticalFirstRow + ' + Me.HeaderData1VerticalFirstRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(37, Byte), Integer), CType(CType(129, Byte), Integer), CType(CType(216, Byte), Integer)) + Me.HeaderData1VerticalFirstRow.BorderColor = System.Drawing.Color.White + Me.HeaderData1VerticalFirstRow.Borders = CType((DevExpress.XtraPrinting.BorderSide.Top Or DevExpress.XtraPrinting.BorderSide.Right), DevExpress.XtraPrinting.BorderSide) + Me.HeaderData1VerticalFirstRow.BorderWidth = 2.0! + Me.HeaderData1VerticalFirstRow.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold) + Me.HeaderData1VerticalFirstRow.ForeColor = System.Drawing.Color.White + Me.HeaderData1VerticalFirstRow.Name = "HeaderData1VerticalFirstRow" + Me.HeaderData1VerticalFirstRow.Padding = New DevExpress.XtraPrinting.PaddingInfo(15, 15, 0, 0, 254.0!) + Me.HeaderData1VerticalFirstRow.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + 'HeaderData1VerticalLastRow_Even + ' + Me.HeaderData1VerticalLastRow_Even.BackColor = System.Drawing.Color.FromArgb(CType(CType(55, Byte), Integer), CType(CType(153, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.HeaderData1VerticalLastRow_Even.BorderColor = System.Drawing.Color.White + Me.HeaderData1VerticalLastRow_Even.Borders = CType((DevExpress.XtraPrinting.BorderSide.Right Or DevExpress.XtraPrinting.BorderSide.Bottom), DevExpress.XtraPrinting.BorderSide) + Me.HeaderData1VerticalLastRow_Even.BorderWidth = 2.0! + Me.HeaderData1VerticalLastRow_Even.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold) + Me.HeaderData1VerticalLastRow_Even.ForeColor = System.Drawing.Color.White + Me.HeaderData1VerticalLastRow_Even.Name = "HeaderData1VerticalLastRow_Even" + Me.HeaderData1VerticalLastRow_Even.Padding = New DevExpress.XtraPrinting.PaddingInfo(15, 15, 0, 0, 254.0!) + Me.HeaderData1VerticalLastRow_Even.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + 'TopMargin + ' + Me.TopMargin.Dpi = 254.0! + Me.TopMargin.HeightF = 254.0! + Me.TopMargin.Name = "TopMargin" + ' + 'BottomMargin + ' + Me.BottomMargin.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.pageInfo1, Me.pageInfo2}) + Me.BottomMargin.Dpi = 254.0! + Me.BottomMargin.HeightF = 91.86333! + Me.BottomMargin.Name = "BottomMargin" + ' + 'ReportHeader + ' + Me.ReportHeader.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.label1}) + Me.ReportHeader.Dpi = 254.0! + Me.ReportHeader.HeightF = 152.4! + Me.ReportHeader.Name = "ReportHeader" + ' + 'GroupHeader1 + ' + Me.GroupHeader1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.table1}) + Me.GroupHeader1.Dpi = 254.0! + Me.GroupHeader1.GroupFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("WFState", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}) + Me.GroupHeader1.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail + Me.GroupHeader1.HeightF = 68.58! + Me.GroupHeader1.Name = "GroupHeader1" + ' + 'VerticalHeader + ' + Me.VerticalHeader.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.table2}) + Me.VerticalHeader.Dpi = 254.0! + Me.VerticalHeader.HeightF = 142.24! + Me.VerticalHeader.Name = "VerticalHeader" + Me.VerticalHeader.RepeatEveryPage = True + Me.VerticalHeader.WidthF = 222.8771! + ' + 'VerticalDetail + ' + Me.VerticalDetail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.table3}) + Me.VerticalDetail.Dpi = 254.0! + Me.VerticalDetail.HeightF = 142.24! + Me.VerticalDetail.KeepTogether = True + Me.VerticalDetail.Name = "VerticalDetail" + Me.VerticalDetail.WidthF = 222.8771! + ' + 'pageInfo1 + ' + Me.pageInfo1.Dpi = 254.0! + Me.pageInfo1.LocationFloat = New DevExpress.Utils.PointFloat(16.0!, 16.0!) + Me.pageInfo1.Name = "pageInfo1" + Me.pageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime + Me.pageInfo1.SizeF = New System.Drawing.SizeF(1199.0!, 58.0!) + Me.pageInfo1.StyleName = "PageInfo" + ' + 'pageInfo2 + ' + Me.pageInfo2.Dpi = 254.0! + Me.pageInfo2.LocationFloat = New DevExpress.Utils.PointFloat(1247.0!, 16.0!) + Me.pageInfo2.Name = "pageInfo2" + Me.pageInfo2.SizeF = New System.Drawing.SizeF(1199.0!, 58.0!) + Me.pageInfo2.StyleName = "PageInfo" + Me.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight + Me.pageInfo2.TextFormatString = "Seite {0} von {1}" + ' + 'label1 + ' + Me.label1.Dpi = 254.0! + Me.label1.LocationFloat = New DevExpress.Utils.PointFloat(16.0!, 16.0!) + Me.label1.Name = "label1" + Me.label1.SizeF = New System.Drawing.SizeF(254.2506!, 61.45361!) + Me.label1.StyleName = "Title" + Me.label1.Text = "All Invoices" + ' + 'table1 + ' + Me.table1.Dpi = 254.0! + Me.table1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 5.08!) + Me.table1.Name = "table1" + Me.table1.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.tableRow1}) + Me.table1.SizeF = New System.Drawing.SizeF(2462.0!, 63.5!) + ' + 'tableRow1 + ' + Me.tableRow1.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell1, Me.tableCell2}) + Me.tableRow1.Dpi = 254.0! + Me.tableRow1.Name = "tableRow1" + Me.tableRow1.Weight = 1.0R + ' + 'tableCell1 + ' + Me.tableCell1.Dpi = 254.0! + Me.tableCell1.Name = "tableCell1" + Me.tableCell1.StyleName = "GroupCaption1" + Me.tableCell1.Text = "WFSTATE" + Me.tableCell1.Weight = 0.065250375036492184R + ' + 'tableCell2 + ' + Me.tableCell2.Dpi = 254.0! + Me.tableCell2.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[WFState]")}) + Me.tableCell2.Name = "tableCell2" + Me.tableCell2.StyleName = "GroupData1" + Me.tableCell2.Weight = 0.93474960017262387R + ' + 'table2 + ' + Me.table2.AnchorHorizontal = CType((DevExpress.XtraReports.UI.HorizontalAnchorStyles.Left Or DevExpress.XtraReports.UI.HorizontalAnchorStyles.Right), DevExpress.XtraReports.UI.HorizontalAnchorStyles) + Me.table2.Dpi = 254.0! + Me.table2.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) + Me.table2.Name = "table2" + Me.table2.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.tableRow2, Me.tableRow3}) + Me.table2.SizeF = New System.Drawing.SizeF(222.8771!, 142.24!) + ' + 'tableRow2 + ' + Me.tableRow2.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell3}) + Me.tableRow2.Dpi = 254.0! + Me.tableRow2.Name = "tableRow2" + Me.tableRow2.Weight = 0.5R + ' + 'tableRow3 + ' + Me.tableRow3.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell4}) + Me.tableRow3.Dpi = 254.0! + Me.tableRow3.Name = "tableRow3" + Me.tableRow3.Weight = 0.5R + ' + 'tableCell3 + ' + Me.tableCell3.Dpi = 254.0! + Me.tableCell3.Name = "tableCell3" + Me.tableCell3.StyleName = "HeaderData1VerticalFirstRow" + Me.tableCell3.Text = "Anzahl" + Me.tableCell3.Weight = 1.4176663672406411R + Me.tableCell3.WordWrap = False + ' + 'tableCell4 + ' + Me.tableCell4.Dpi = 254.0! + Me.tableCell4.Name = "tableCell4" + Me.tableCell4.StyleName = "HeaderData1VerticalLastRow_Even" + Me.tableCell4.Text = "Netto Summe" + Me.tableCell4.Weight = 1.0R + Me.tableCell4.WordWrap = False + ' + 'table3 + ' + Me.table3.AnchorHorizontal = CType((DevExpress.XtraReports.UI.HorizontalAnchorStyles.Left Or DevExpress.XtraReports.UI.HorizontalAnchorStyles.Right), DevExpress.XtraReports.UI.HorizontalAnchorStyles) + Me.table3.Dpi = 254.0! + Me.table3.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) + Me.table3.Name = "table3" + Me.table3.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.tableRow4, Me.tableRow5}) + Me.table3.SizeF = New System.Drawing.SizeF(222.8771!, 142.24!) + ' + 'tableRow4 + ' + Me.tableRow4.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell5}) + Me.tableRow4.Dpi = 254.0! + Me.tableRow4.Name = "tableRow4" + Me.tableRow4.Weight = 0.5R + ' + 'tableRow5 + ' + Me.tableRow5.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell6}) + Me.tableRow5.Dpi = 254.0! + Me.tableRow5.Name = "tableRow5" + Me.tableRow5.Weight = 0.5R + ' + 'tableCell5 + ' + Me.tableCell5.CanGrow = False + Me.tableCell5.Dpi = 254.0! + Me.tableCell5.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Anzahl]")}) + Me.tableCell5.Name = "tableCell5" + Me.tableCell5.StyleName = "DetailData1VerticalFirstRow" + Me.tableCell5.StylePriority.UseTextAlignment = False + Me.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight + Me.tableCell5.Weight = 0.53113348626699852R + Me.tableCell5.WordWrap = False + ' + 'tableCell6 + ' + Me.tableCell6.CanGrow = False + Me.tableCell6.Dpi = 254.0! + Me.tableCell6.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[NettoSumme]")}) + Me.tableCell6.Name = "tableCell6" + Me.tableCell6.StyleName = "DetailData1VerticalLastRow_Even" + Me.tableCell6.TextFormatString = "{0:0.00 €}" + Me.tableCell6.Weight = 0.53113348626699852R + Me.tableCell6.WordWrap = False + ' + 'XtraReport1 + ' + Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.TopMargin, Me.BottomMargin, Me.ReportHeader, Me.GroupHeader1, Me.VerticalHeader, Me.VerticalDetail}) + Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.SqlDataSource1}) + Me.DataMember = "VWPM_CHART_INVOICE_MONITOR" + Me.DataSource = Me.SqlDataSource1 + Me.Dpi = 254.0! + Me.Font = New System.Drawing.Font("Arial", 9.75!) + Me.Landscape = True + Me.Margins = New System.Drawing.Printing.Margins(254, 254, 254, 92) + Me.PageHeight = 2100 + Me.PageWidth = 2970 + Me.PaperKind = System.Drawing.Printing.PaperKind.A4 + Me.ReportUnit = DevExpress.XtraReports.UI.ReportUnit.TenthsOfAMillimeter + Me.SnapGridSize = 25.0! + Me.StyleSheet.AddRange(New DevExpress.XtraReports.UI.XRControlStyle() {Me.Title, Me.GroupCaption1, Me.GroupData1, Me.PageInfo, Me.DetailData1VerticalFirstRow, Me.DetailData1VerticalLastRow_Even, Me.HeaderData1VerticalFirstRow, Me.HeaderData1VerticalLastRow_Even}) + Me.Version = "19.2" + Me.VerticalContentSplitting = DevExpress.XtraPrinting.VerticalContentSplitting.Smart + CType(Me.table1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.table2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.table3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + + Friend WithEvents SqlDataSource1 As DevExpress.DataAccess.Sql.SqlDataSource + Friend WithEvents Title As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents GroupCaption1 As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents GroupData1 As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents PageInfo As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents DetailData1VerticalFirstRow As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents DetailData1VerticalLastRow_Even As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents HeaderData1VerticalFirstRow As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents HeaderData1VerticalLastRow_Even As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents TopMargin As DevExpress.XtraReports.UI.TopMarginBand + Friend WithEvents BottomMargin As DevExpress.XtraReports.UI.BottomMarginBand + Friend WithEvents pageInfo1 As DevExpress.XtraReports.UI.XRPageInfo + Friend WithEvents pageInfo2 As DevExpress.XtraReports.UI.XRPageInfo + Friend WithEvents ReportHeader As DevExpress.XtraReports.UI.ReportHeaderBand + Friend WithEvents label1 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents GroupHeader1 As DevExpress.XtraReports.UI.GroupHeaderBand + Friend WithEvents table1 As DevExpress.XtraReports.UI.XRTable + Friend WithEvents tableRow1 As DevExpress.XtraReports.UI.XRTableRow + Friend WithEvents tableCell1 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell2 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents VerticalHeader As DevExpress.XtraReports.UI.VerticalHeaderBand + Friend WithEvents table2 As DevExpress.XtraReports.UI.XRTable + Friend WithEvents tableRow2 As DevExpress.XtraReports.UI.XRTableRow + Friend WithEvents tableCell3 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableRow3 As DevExpress.XtraReports.UI.XRTableRow + Friend WithEvents tableCell4 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents VerticalDetail As DevExpress.XtraReports.UI.VerticalDetailBand + Friend WithEvents table3 As DevExpress.XtraReports.UI.XRTable + Friend WithEvents tableRow4 As DevExpress.XtraReports.UI.XRTableRow + Friend WithEvents tableCell5 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableRow5 As DevExpress.XtraReports.UI.XRTableRow + Friend WithEvents tableCell6 As DevExpress.XtraReports.UI.XRTableCell +End Class diff --git a/app/DD_PM_WINDREAM/XtraReport1.resx b/app/DD_PM_WINDREAM/XtraReport1.resx new file mode 100644 index 0000000..d4dd5d7 --- /dev/null +++ b/app/DD_PM_WINDREAM/XtraReport1.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlZXUE1fQ0hBUlRfSU5WT0lDRV9NT05JVE9SIj48RmllbGQgTmFtZT0iQW56YWhsIiBUeXBlPSJJbnQzMiIgLz48RmllbGQgTmFtZT0iV0ZTdGF0ZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJOZXR0b1N1bW1lIiBUeXBlPSJTdHJpbmciIC8+PC9WaWV3PjwvRGF0YVNldD4= + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/XtraReport1.vb b/app/DD_PM_WINDREAM/XtraReport1.vb new file mode 100644 index 0000000..5c5aea1 --- /dev/null +++ b/app/DD_PM_WINDREAM/XtraReport1.vb @@ -0,0 +1,3 @@ +Public Class XtraReport1 + +End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb index 0f51981..6d7bccb 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb @@ -103,6 +103,7 @@ Partial Class frmAdmin2 Me.CHANGED_WHENTextEdit = New DevExpress.XtraEditors.TextEdit() Me.OBJ_NAMETextEdit = New DevExpress.XtraEditors.TextEdit() Me.INTERNALCheckEdit = New DevExpress.XtraEditors.CheckEdit() + Me.STRING1TextEdit = New DevExpress.XtraEditors.MemoEdit() Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() @@ -142,7 +143,6 @@ Partial Class frmAdmin2 Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter() Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components) - Me.STRING1TextEdit = New DevExpress.XtraEditors.MemoEdit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() @@ -197,6 +197,7 @@ Partial Class frmAdmin2 CType(Me.CHANGED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.OBJ_NAMETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.INTERNALCheckEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -220,7 +221,6 @@ Partial Class frmAdmin2 Me.BindingNavigator2.SuspendLayout() CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 @@ -237,24 +237,21 @@ Partial Class frmAdmin2 ' resources.ApplyResources(Me.BbitemplateAdd, "BbitemplateAdd") Me.BbitemplateAdd.Id = 1 - Me.BbitemplateAdd.ImageOptions.Image = CType(resources.GetObject("BbitemplateAdd.ImageOptions.Image"), System.Drawing.Image) - Me.BbitemplateAdd.ImageOptions.LargeImage = CType(resources.GetObject("BbitemplateAdd.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BbitemplateAdd.ImageOptions.SvgImage = CType(resources.GetObject("BbitemplateAdd.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BbitemplateAdd.Name = "BbitemplateAdd" ' 'BbitemplateSave ' resources.ApplyResources(Me.BbitemplateSave, "BbitemplateSave") Me.BbitemplateSave.Id = 2 - Me.BbitemplateSave.ImageOptions.Image = CType(resources.GetObject("BbitemplateSave.ImageOptions.Image"), System.Drawing.Image) - Me.BbitemplateSave.ImageOptions.LargeImage = CType(resources.GetObject("BbitemplateSave.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BbitemplateSave.ImageOptions.SvgImage = CType(resources.GetObject("BbitemplateSave.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BbitemplateSave.Name = "BbitemplateSave" ' 'BbitemplateDelete ' resources.ApplyResources(Me.BbitemplateDelete, "BbitemplateDelete") Me.BbitemplateDelete.Id = 3 - Me.BbitemplateDelete.ImageOptions.Image = CType(resources.GetObject("BbitemplateDelete.ImageOptions.Image"), System.Drawing.Image) - Me.BbitemplateDelete.ImageOptions.LargeImage = CType(resources.GetObject("BbitemplateDelete.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BbitemplateDelete.ImageOptions.SvgImage = CType(resources.GetObject("BbitemplateDelete.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BbitemplateDelete.Name = "BbitemplateDelete" Me.BbitemplateDelete.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText ' @@ -264,8 +261,7 @@ Partial Class frmAdmin2 Me.BarButtonItem1.Id = 4 Me.BarButtonItem1.ImageOptions.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True] Me.BarButtonItem1.ImageOptions.AllowStubGlyph = DevExpress.Utils.DefaultBoolean.[True] - Me.BarButtonItem1.ImageOptions.Image = CType(resources.GetObject("BarButtonItem1.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem1.Name = "BarButtonItem1" Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText ' @@ -289,16 +285,14 @@ Partial Class frmAdmin2 ' resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3") Me.BarButtonItem3.Id = 7 - Me.BarButtonItem3.ImageOptions.Image = CType(resources.GetObject("BarButtonItem3.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem3.Name = "BarButtonItem3" ' 'BarButtonItem4 ' resources.ApplyResources(Me.BarButtonItem4, "BarButtonItem4") Me.BarButtonItem4.Id = 8 - Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem4.Name = "BarButtonItem4" Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText ' @@ -306,8 +300,7 @@ Partial Class frmAdmin2 ' resources.ApplyResources(Me.BarButtonItem5, "BarButtonItem5") Me.BarButtonItem5.Id = 9 - Me.BarButtonItem5.ImageOptions.Image = CType(resources.GetObject("BarButtonItem5.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem5.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem5.Name = "BarButtonItem5" Me.BarButtonItem5.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText ' @@ -315,8 +308,7 @@ Partial Class frmAdmin2 ' resources.ApplyResources(Me.BarButtonItem6, "BarButtonItem6") Me.BarButtonItem6.Id = 10 - Me.BarButtonItem6.ImageOptions.Image = CType(resources.GetObject("BarButtonItem6.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem6.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem6.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem6.Name = "BarButtonItem6" ' 'BarButtonItem7 @@ -928,6 +920,14 @@ Partial Class frmAdmin2 Me.INTERNALCheckEdit.Properties.GlyphAlignment = CType(resources.GetObject("INTERNALCheckEdit.Properties.GlyphAlignment"), DevExpress.Utils.HorzAlignment) Me.INTERNALCheckEdit.StyleController = Me.DataLayoutControl2 ' + 'STRING1TextEdit + ' + Me.STRING1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True)) + resources.ApplyResources(Me.STRING1TextEdit, "STRING1TextEdit") + Me.STRING1TextEdit.MenuManager = Me.RibbonControl1 + Me.STRING1TextEdit.Name = "STRING1TextEdit" + Me.STRING1TextEdit.StyleController = Me.DataLayoutControl2 + ' 'LayoutControlGroup2 ' Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] @@ -1237,14 +1237,6 @@ Partial Class frmAdmin2 ' Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.ClearBeforeFill = True ' - 'STRING1TextEdit - ' - Me.STRING1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True)) - resources.ApplyResources(Me.STRING1TextEdit, "STRING1TextEdit") - Me.STRING1TextEdit.MenuManager = Me.RibbonControl1 - Me.STRING1TextEdit.Name = "STRING1TextEdit" - Me.STRING1TextEdit.StyleController = Me.DataLayoutControl2 - ' 'frmAdmin2 ' resources.ApplyResources(Me, "$this") @@ -1313,6 +1305,7 @@ Partial Class frmAdmin2 CType(Me.CHANGED_WHENTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.OBJ_NAMETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.INTERNALCheckEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() @@ -1337,7 +1330,6 @@ Partial Class frmAdmin2 Me.BindingNavigator2.PerformLayout() CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() diff --git a/app/DD_PM_WINDREAM/frmAdmin2.resx b/app/DD_PM_WINDREAM/frmAdmin2.resx index 3dea621..ee577bf 100644 --- a/app/DD_PM_WINDREAM/frmAdmin2.resx +++ b/app/DD_PM_WINDREAM/frmAdmin2.resx @@ -120,110 +120,93 @@ Neue Vorlage - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAOdEVYdFRpdGxlAFRhc2s7TmV30ugvpgAAAMlJREFU - OE+dj8ENglAQRNGDDVmH0RgTi/DmwQrowQ7UBujAi6XowQbQrDMr87MY9IOHl8/83XlAcavmEYu5LEsL - MDtmlojF6ceZloIE8X2nuQQqCWa9MX6FC5qdJIjFVt4d94XgsrhWCxzG+9HPL+gS3M9b31GWQKV4DhJE - UcpBsAKHKNAsmVnA0NEdFiZgDR6gzgmMQwowOIEn2IC6YQl6C2aAS4Rl/oIX+gokuYBUJkMEZByenV6C - DC4A3usSZPkqGEhb8B9WvACfEYYn0zazQgAAAABJRU5ErkJggg== - - - + + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAOdEVYdFRpdGxlAFRhc2s7TmV30ugvpgAAAf9JREFU - WEft1LtKA0EUBuCNisELKIgiPoCIN/ACKj6AWERF7NRKtLHSQuwUCcE38BHsLASLWAsaG/UF7DXoA5iY - 9f+XOcvsMoYhmV0QLD5mdzbnnH82Ue/9ZtXk3rAX8n3fGWk6A9PquhNqMKjuR2BRXQdMjRolTYfhAw5g - Anzg0B0oA0MkGoC2gYMf1fqk1l3QP+fl8/lT8GO4ZxxSjzTthwXg8BPIAt/GM8xDH+gBgqHSRO4bDVAE - fuc8LQ0B97u0vSoUzwtnyxhS1QbWcwXGoTo5VQeMA3/9BeiGY3XP/SyatcIS2AYg7/PuMDhEfLCQALTH - D8KDWktq3UejHnjRGtsI3oBtgDHgXwFDjAKL5mAT3mASwrBsbMs2wBRwMK/5A6xAL4oHyrdbs7hmmDAA - 9m35hBrMqh8g7hraUPwK/Eoiz1VzGw0HoJzWIPJMNbfRVICgWDWIPDu6vIiQZrhuIbm3CmDaJBZJAwhO - xH19sFD7OfC5qvuM1DsLoA2L4/Av+CbpIfVJvIGMWmU4T15T65r0kHqXbyB8zdCuVjl5BVZAgiUSgMMF - h3NoFRgiMpykPok3QHzlPDmHr0NkOEm9ywCkh+DwDYgMFlLvOgAxRAl+HU5Sn0QA4j+d+F6E1DsL0ID/ - AM4CNOXvBnAp3l8YN9Nk3EyTcTNNxs30+N4PvvKeTNimaekAAAAASUVORK5CYII= + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0 + QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0 + LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N + Cjwvc3ZnPgs= Speichern - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAFhJREFUOE9j - +P//P0UYTEzOWr8XiP+DMJQPZqNjNLm9ID7MAFyKUMTQ5UB8+hgAw9jUYjUAH0ZXiyFICqa+ASA2MXjU - ADwGkIqRDdiOLkkE3g43gHz8nwEAvq7TCya3G6wAAAAASUVORK5CYII= - - - + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAQ1JREFUWEft - l9EJwzAMRLNZoF+Zpet0kM7RPQIZw9WJ2JyF5CbQOATy8cCVjqcjfx1SSqfiDnviDntS/Xg936PwERKB - OcO7JquTZ3CPfNMWWCic4eNW2GR12vnCN20BGwZ8PMoA3bMncmKeKQ/ghQUVE14G6J49kRPzTHkALyyo - mPAyQPfsiZyYZ8oDeGFBxYSXAbpnT+TEPFMewAsLKia8DNA9eyIn5pnyAF5YUDHhZVwiZ74HLlmgCfsi - J+9/ho+Ab94FWgUeAma7YB954dpdoBJvhX2M7O4Cd4G7wPUKTEIl3wL7yAvX7gKHwTdtgdmGD2Dmm7YA - PpX33+BfwD3xzarAGbjDnrjDfqThC1oLalOREus2AAAAAElFTkSuQmCC + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 + bGU+DQogIDxwYXRoIGQ9Ik0yNyw0aC0zdjEwSDhWNEg1QzQuNCw0LDQsNC40LDQsNXYyMmMwLDAuNiww + LjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjVDMjgsNC40LDI3LjYsNCwyNyw0eiBNMjQsMjRIOHYt + NiAgaDE2VjI0eiBNMTAsNHY4aDEwVjRIMTB6IE0xNCwxMGgtMlY2aDJWMTB6IiBjbGFzcz0iQmxhY2si + IC8+DQo8L3N2Zz4L Löschen - + - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy - cztSaWJib247TJaWsgAAAMJJREFUOE+Nk0sKAjEQRHM4YVZ6CS8gfhBGHK/pSRRXbRWkJOlOq4sHSf0Y - BlLMrNy3qzWYef4HZC/s8KzyCxi4+rAHmVvNsrOhcKqCSEfgqSz2Ms7OCCPQfPlIvQ2kIzgPy+QzUIN+ - ZAFpmXQDBAE/0tKVSXcRCI5GQpkEgSDsP5sso2wQEByVRRjpLgj48gGEH9t2vpYbLx35WRbQhiM0+DBa - I5QFPD8yU5zAowppWSCjkSeYJHJk58MZyPIBTmZW3tJAnMwmSptiAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy - cztSaWJib247TJaWsgAAAW5JREFUWEfFlk1KBDEUhGfmAg56JTcuHEGP4FFFFMVZz1VcxaomD57pek1e - hLj4FilSP9Dd0LtSyr8ixZlIcSZSnIkUL8+3f6LJOvhzixRr0BV4AXf13I3LuQev4OjzPVKEgeUfoIBv - kBpRM1hOLzM+gRyxEnDxALiaRiM7wpcbzNy3fb8OBi4+gTagd4Qq5/lBda0EgsvksRrboK0RqXIiRRiM - zIh0OZEiTJ6eEUPlRIowtmyNGC4nUoRZEY0YLidSRECEGuFJlRMpImSLaMRSDmRmhBQZsoF65jZgeTFV - ZoQUGRIQlRvLCJUZIUWEKKK3XWndI6SIgN5yPvPwE1XZLVKEubfc7gyPkCKMmXJjaIQUYSJR+Qn4Yk96 - hBRhGCk3UiNWAi7uwVs1+oCeckONeAfdPyTX4Ksas+WW4UecwU3bQ1YCwWXCEVydKicuhyOYIcuJFC0I - 8P/Qn7tosvK/5TOR4kykOBMpzqPsfgBphQ1j4i+mWAAAAABJRU5ErkJggg== + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD0DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4N + CiAgICA8Zz4NCiAgICAgIDxwYXRoIGQ9Ik0xOC44LDE2bDYuOS02LjljMC40LTAuNCwwLjQtMSwwLTEu + NGwtMS40LTEuNGMtMC40LTAuNC0xLTAuNC0xLjQsMEwxNiwxMy4yTDkuMSw2LjNjLTAuNC0wLjQtMS0w + LjQtMS40LDAgICAgTDYuMyw3LjdjLTAuNCwwLjQtMC40LDEsMCwxLjRsNi45LDYuOWwtNi45LDYuOWMt + MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks + Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44 + LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs= Neu laden - + - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENvbnZlcnQ7UmVwZWF0O0Fycm93 - O0V4Y2hhbmdldiNo0gAAAN9JREFUOE+NzrENglAQxnELCgZwCScwwRmYwo4BTCixYAVHoHEAHYEdaNjA - koTi+T/zzhy8I1r8Cu7u+3i7EMJPl+4WUCLZJQNPLHBL7JHa44wOA2ZoQVKyLjjhDhvwlF7BAU9ztGXz - BY05GtGiQB5nn3B5fRxRewW9Oax0Hnc2/EKvO3s0xcMXMp0rQlkMB0w6/x4QkhdIWP4if2O8KKhiWLgv - qG04ylGgxRhnokkKBAsb3vLEISlg+E/4jpNmFgWC5bpkxoAOZ+ztvVh8CI6+Jeudxx1qyXrucYf/C7s3 - +Cul5fQF3VsAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENvbnZlcnQ7UmVwZWF0O0Fycm93 - O0V4Y2hhbmdldiNo0gAAAgZJREFUWEfF1D8vBGEQx3EFBa3o8TKUIqG5wjvQ6BQaIlFR60WnuESjQqFS - Ee9CIZGo5ZoLsr4j+6zfzs66P8+F4pPszv7mmcnt3U0VRfGvwmKO/YvTDsJnkbCYg+HFKEuExRzlAtUS - ns83CrkYkhYIl/D5RiEXQ3SBxhI+X7vRYIsV7OIcj3hBH36oVy2h80ztJoWceWzjGp+IBgwj/GLWbizg - bOIG0YHj6Og8U7shoPbwiuigcYz0CRwiOmRc38M7x7dLOs/UbiyELfQQHfSGKxxgA8uYNXKG7+kweBon - uPdLVBeG8BIepFl1sa75iOux4Qu4Q1Ha0bxv3nEHmA8cYUazbaTPhi/iWYabS8375ks5IDnTzCBlT3rn - q264edK8b34qD1BrmhmEfPWnw7A5N9y8a943v8MvMJee09z4Hf+G/JoMTkb+BFbtGY32Trn8yQ9C/qwc - qkb6DjzDvkjfw43m25CbwRE+Up8Y+ldwB/sJVcON5iNk1tHVHvGAgf8D9ziB/XnUhpuU5Xq2tIwNHOAK - b6j1lHrYSv1J7YahaYnqnU/Qoc5KGgVDeJLDX7EXzTGNAuFJDr/Bpp+hwiJNOUt84hrbmI/OV2HR0DzM - En284BHn2MVKdF6bsJhwWGMJn8kVFpVfwj/PFRY9XcI/yxUWI2kJX88VFtvYElE9R1j8O8XUF4SD29A4 - djKoAAAAAElFTkSuQmCC + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlZnJlc2hfMV8iPg0KICAgIDxwYXRoIGQ9Ik0yNC41 + LDcuNUMyMi4zLDUuMywxOS4zLDQsMTYsNEMxMC4xLDQsNS4xLDguMyw0LjIsMTRoNC4xYzAuOS0zLjQs + NC02LDcuNy02YzIuMiwwLDQuMiwwLjksNS42LDIuNEwxOCwxNCAgIGg1LjdoNC4xSDI4VjRMMjQuNSw3 + LjV6IiBjbGFzcz0iR3JlZW4iIC8+DQogICAgPHBhdGggZD0iTTE2LjIsMjRjLTIuMiwwLTQuMi0wLjkt + NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz + LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj + bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m @@ -278,79 +261,68 @@ Speichern - + - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAFhJREFUOE9j - +P//P0UYTEzOWr8XiP+DMJQPZqNjNLm9ID7MAFyKUMTQ5UB8+hgAw9jUYjUAH0ZXiyFICqa+ASA2MXjU - ADwGkIqRDdiOLkkE3g43gHz8nwEAvq7TCya3G6wAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAQ1JREFUWEft - l9EJwzAMRLNZoF+Zpet0kM7RPQIZw9WJ2JyF5CbQOATy8cCVjqcjfx1SSqfiDnviDntS/Xg936PwERKB - OcO7JquTZ3CPfNMWWCic4eNW2GR12vnCN20BGwZ8PMoA3bMncmKeKQ/ghQUVE14G6J49kRPzTHkALyyo - mPAyQPfsiZyYZ8oDeGFBxYSXAbpnT+TEPFMewAsLKia8DNA9eyIn5pnyAF5YUDHhZVwiZ74HLlmgCfsi - J+9/ho+Ab94FWgUeAma7YB954dpdoBJvhX2M7O4Cd4G7wPUKTEIl3wL7yAvX7gKHwTdtgdmGD2Dmm7YA - PpX33+BfwD3xzarAGbjDnrjDfqThC1oLalOREus2AAAAAElFTkSuQmCC + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 + bGU+DQogIDxwYXRoIGQ9Ik0yNyw0aC0zdjEwSDhWNEg1QzQuNCw0LDQsNC40LDQsNXYyMmMwLDAuNiww + LjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjVDMjgsNC40LDI3LjYsNCwyNyw0eiBNMjQsMjRIOHYt + NiAgaDE2VjI0eiBNMTAsNHY4aDEwVjRIMTB6IE0xNCwxMGgtMlY2aDJWMTB6IiBjbGFzcz0iQmxhY2si + IC8+DQo8L3N2Zz4L Löschen - + - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy - cztSaWJib247TJaWsgAAAMJJREFUOE+Nk0sKAjEQRHM4YVZ6CS8gfhBGHK/pSRRXbRWkJOlOq4sHSf0Y - BlLMrNy3qzWYef4HZC/s8KzyCxi4+rAHmVvNsrOhcKqCSEfgqSz2Ms7OCCPQfPlIvQ2kIzgPy+QzUIN+ - ZAFpmXQDBAE/0tKVSXcRCI5GQpkEgSDsP5sso2wQEByVRRjpLgj48gGEH9t2vpYbLx35WRbQhiM0+DBa - I5QFPD8yU5zAowppWSCjkSeYJHJk58MZyPIBTmZW3tJAnMwmSptiAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy - cztSaWJib247TJaWsgAAAW5JREFUWEfFlk1KBDEUhGfmAg56JTcuHEGP4FFFFMVZz1VcxaomD57pek1e - hLj4FilSP9Dd0LtSyr8ixZlIcSZSnIkUL8+3f6LJOvhzixRr0BV4AXf13I3LuQev4OjzPVKEgeUfoIBv - kBpRM1hOLzM+gRyxEnDxALiaRiM7wpcbzNy3fb8OBi4+gTagd4Qq5/lBda0EgsvksRrboK0RqXIiRRiM - zIh0OZEiTJ6eEUPlRIowtmyNGC4nUoRZEY0YLidSRECEGuFJlRMpImSLaMRSDmRmhBQZsoF65jZgeTFV - ZoQUGRIQlRvLCJUZIUWEKKK3XWndI6SIgN5yPvPwE1XZLVKEubfc7gyPkCKMmXJjaIQUYSJR+Qn4Yk96 - hBRhGCk3UiNWAi7uwVs1+oCeckONeAfdPyTX4Ksas+WW4UecwU3bQ1YCwWXCEVydKicuhyOYIcuJFC0I - 8P/Qn7tosvK/5TOR4kykOBMpzqPsfgBphQ1j4i+mWAAAAABJRU5ErkJggg== + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD0DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4N + CiAgICA8Zz4NCiAgICAgIDxwYXRoIGQ9Ik0xOC44LDE2bDYuOS02LjljMC40LTAuNCwwLjQtMSwwLTEu + NGwtMS40LTEuNGMtMC40LTAuNC0xLTAuNC0xLjQsMEwxNiwxMy4yTDkuMSw2LjNjLTAuNC0wLjQtMS0w + LjQtMS40LDAgICAgTDYuMyw3LjdjLTAuNCwwLjQtMC40LDEsMCwxLjRsNi45LDYuOWwtNi45LDYuOWMt + MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks + Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44 + LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs= Neu laden - + - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENvbnZlcnQ7UmVwZWF0O0Fycm93 - O0V4Y2hhbmdldiNo0gAAAN9JREFUOE+NzrENglAQxnELCgZwCScwwRmYwo4BTCixYAVHoHEAHYEdaNjA - koTi+T/zzhy8I1r8Cu7u+3i7EMJPl+4WUCLZJQNPLHBL7JHa44wOA2ZoQVKyLjjhDhvwlF7BAU9ztGXz - BY05GtGiQB5nn3B5fRxRewW9Oax0Hnc2/EKvO3s0xcMXMp0rQlkMB0w6/x4QkhdIWP4if2O8KKhiWLgv - qG04ylGgxRhnokkKBAsb3vLEISlg+E/4jpNmFgWC5bpkxoAOZ+ztvVh8CI6+Jeudxx1qyXrucYf/C7s3 - +Cul5fQF3VsAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENvbnZlcnQ7UmVwZWF0O0Fycm93 - O0V4Y2hhbmdldiNo0gAAAgZJREFUWEfF1D8vBGEQx3EFBa3o8TKUIqG5wjvQ6BQaIlFR60WnuESjQqFS - Ee9CIZGo5ZoLsr4j+6zfzs66P8+F4pPszv7mmcnt3U0VRfGvwmKO/YvTDsJnkbCYg+HFKEuExRzlAtUS - ns83CrkYkhYIl/D5RiEXQ3SBxhI+X7vRYIsV7OIcj3hBH36oVy2h80ztJoWceWzjGp+IBgwj/GLWbizg - bOIG0YHj6Og8U7shoPbwiuigcYz0CRwiOmRc38M7x7dLOs/UbiyELfQQHfSGKxxgA8uYNXKG7+kweBon - uPdLVBeG8BIepFl1sa75iOux4Qu4Q1Ha0bxv3nEHmA8cYUazbaTPhi/iWYabS8375ks5IDnTzCBlT3rn - q264edK8b34qD1BrmhmEfPWnw7A5N9y8a943v8MvMJee09z4Hf+G/JoMTkb+BFbtGY32Trn8yQ9C/qwc - qkb6DjzDvkjfw43m25CbwRE+Up8Y+ldwB/sJVcON5iNk1tHVHvGAgf8D9ziB/XnUhpuU5Xq2tIwNHOAK - b6j1lHrYSv1J7YahaYnqnU/Qoc5KGgVDeJLDX7EXzTGNAuFJDr/Bpp+hwiJNOUt84hrbmI/OV2HR0DzM - En284BHn2MVKdF6bsJhwWGMJn8kVFpVfwj/PFRY9XcI/yxUWI2kJX88VFtvYElE9R1j8O8XUF4SD29A4 - djKoAAAAAElFTkSuQmCC + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlZnJlc2hfMV8iPg0KICAgIDxwYXRoIGQ9Ik0yNC41 + LDcuNUMyMi4zLDUuMywxOS4zLDQsMTYsNEMxMC4xLDQsNS4xLDguMyw0LjIsMTRoNC4xYzAuOS0zLjQs + NC02LDcuNy02YzIuMiwwLDQuMiwwLjksNS42LDIuNEwxOCwxNCAgIGg1LjdoNC4xSDI4VjRMMjQuNSw3 + LjV6IiBjbGFzcz0iR3JlZW4iIC8+DQogICAgPHBhdGggZD0iTTE2LjIsMjRjLTIuMiwwLTQuMi0wLjkt + NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz + LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj + bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= @@ -359,29 +331,22 @@ Neue Phrase - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAOdEVYdFRpdGxlAFRhc2s7TmV30ugvpgAAAMlJREFU - OE+dj8ENglAQRNGDDVmH0RgTi/DmwQrowQ7UBujAi6XowQbQrDMr87MY9IOHl8/83XlAcavmEYu5LEsL - MDtmlojF6ceZloIE8X2nuQQqCWa9MX6FC5qdJIjFVt4d94XgsrhWCxzG+9HPL+gS3M9b31GWQKV4DhJE - UcpBsAKHKNAsmVnA0NEdFiZgDR6gzgmMQwowOIEn2IC6YQl6C2aAS4Rl/oIX+gokuYBUJkMEZByenV6C - DC4A3usSZPkqGEhb8B9WvACfEYYn0zazQgAAAABJRU5ErkJggg== - - - + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAOdEVYdFRpdGxlAFRhc2s7TmV30ugvpgAAAf9JREFU - WEft1LtKA0EUBuCNisELKIgiPoCIN/ACKj6AWERF7NRKtLHSQuwUCcE38BHsLASLWAsaG/UF7DXoA5iY - 9f+XOcvsMoYhmV0QLD5mdzbnnH82Ue/9ZtXk3rAX8n3fGWk6A9PquhNqMKjuR2BRXQdMjRolTYfhAw5g - Anzg0B0oA0MkGoC2gYMf1fqk1l3QP+fl8/lT8GO4ZxxSjzTthwXg8BPIAt/GM8xDH+gBgqHSRO4bDVAE - fuc8LQ0B97u0vSoUzwtnyxhS1QbWcwXGoTo5VQeMA3/9BeiGY3XP/SyatcIS2AYg7/PuMDhEfLCQALTH - D8KDWktq3UejHnjRGtsI3oBtgDHgXwFDjAKL5mAT3mASwrBsbMs2wBRwMK/5A6xAL4oHyrdbs7hmmDAA - 9m35hBrMqh8g7hraUPwK/Eoiz1VzGw0HoJzWIPJMNbfRVICgWDWIPDu6vIiQZrhuIbm3CmDaJBZJAwhO - xH19sFD7OfC5qvuM1DsLoA2L4/Av+CbpIfVJvIGMWmU4T15T65r0kHqXbyB8zdCuVjl5BVZAgiUSgMMF - h3NoFRgiMpykPok3QHzlPDmHr0NkOEm9ywCkh+DwDYgMFlLvOgAxRAl+HU5Sn0QA4j+d+F6E1DsL0ID/ - AM4CNOXvBnAp3l8YN9Nk3EyTcTNNxs30+N4PvvKeTNimaekAAAAASUVORK5CYII= + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0 + QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0 + LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N + Cjwvc3ZnPgs= @@ -658,9 +623,6 @@ False - - Segoe UI, 9pt - 50, 23 @@ -1451,7 +1413,6 @@ Intern - Default @@ -1628,9 +1589,6 @@ False - - Segoe UI, 9pt - 50, 23 diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index a89cf38..446c06d 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -27,7 +27,6 @@ Partial Class frmAdministration Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministration)) Dim NAMELabel As System.Windows.Forms.Label Dim DESCRIPTIONLabel As System.Windows.Forms.Label - Dim PRIORITYLabel As System.Windows.Forms.Label Dim ADDED_WHOLabel As System.Windows.Forms.Label Dim ADDED_WHENLabel As System.Windows.Forms.Label Dim CHANGED_WHOLabel As System.Windows.Forms.Label @@ -82,8 +81,6 @@ Partial Class frmAdministration Me.cmbObjekttypen = New System.Windows.Forms.ComboBox() Me.FINAL_PROFILECheckBox = New System.Windows.Forms.CheckBox() Me.FINAL_TEXTTextBox = New System.Windows.Forms.TextBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.cmbType = New System.Windows.Forms.ComboBox() Me.TBPM_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.PRIORITYNumericUpDown = New System.Windows.Forms.NumericUpDown() Me.btnWMopenSuche = New System.Windows.Forms.Button() @@ -105,7 +102,8 @@ Partial Class frmAdministration Me.TabPage1 = New System.Windows.Forms.TabPage() Me.tabctrl_Profilkonfig = New System.Windows.Forms.TabControl() Me.TabPage5 = New System.Windows.Forms.TabPage() - Me.Label7 = New System.Windows.Forms.Label() + Me.lblPriority = New System.Windows.Forms.Label() + Me.lblSearch = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() Me.DISPLAY_MODEComboBox = New System.Windows.Forms.ComboBox() @@ -138,8 +136,6 @@ Partial Class frmAdministration Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox = New System.Windows.Forms.CheckBox() Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox = New System.Windows.Forms.CheckBox() Me.WORK_HISTORY_ENTRYTextBox = New System.Windows.Forms.TextBox() - Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.SQL_VIEWTextBox = New System.Windows.Forms.TextBox() Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn() @@ -192,6 +188,8 @@ Partial Class frmAdministration Me.BarButtonItem18 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem() Me.tsbStaticInfo = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem20 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem21 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -201,7 +199,6 @@ Partial Class frmAdministration GUIDLabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() DESCRIPTIONLabel = New System.Windows.Forms.Label() - PRIORITYLabel = New System.Windows.Forms.Label() ADDED_WHOLabel = New System.Windows.Forms.Label() ADDED_WHENLabel = New System.Windows.Forms.Label() CHANGED_WHOLabel = New System.Windows.Forms.Label() @@ -252,7 +249,6 @@ Partial Class frmAdministration CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage12.SuspendLayout() Me.GroupBox3.SuspendLayout() - Me.TabPage3.SuspendLayout() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage2.SuspendLayout() @@ -584,11 +580,6 @@ Partial Class frmAdministration resources.ApplyResources(DESCRIPTIONLabel, "DESCRIPTIONLabel") DESCRIPTIONLabel.Name = "DESCRIPTIONLabel" ' - 'PRIORITYLabel - ' - resources.ApplyResources(PRIORITYLabel, "PRIORITYLabel") - PRIORITYLabel.Name = "PRIORITYLabel" - ' 'ADDED_WHOLabel ' resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel") @@ -609,6 +600,7 @@ Partial Class frmAdministration ' resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + AddHandler CHANGED_WHENLabel.Click, AddressOf Me.CHANGED_WHENLabel_Click ' 'TITLELabel ' @@ -682,21 +674,6 @@ Partial Class frmAdministration resources.ApplyResources(Me.FINAL_TEXTTextBox, "FINAL_TEXTTextBox") Me.FINAL_TEXTTextBox.Name = "FINAL_TEXTTextBox" ' - 'Label1 - ' - resources.ApplyResources(Me.Label1, "Label1") - Me.Label1.Name = "Label1" - ' - 'cmbType - ' - Me.cmbType.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPM_PROFILEBindingSource, "TYPE", True)) - Me.cmbType.DataSource = Me.TBPM_TYPEBindingSource - Me.cmbType.DisplayMember = "BEZEICHNUNG" - resources.ApplyResources(Me.cmbType, "cmbType") - Me.cmbType.FormattingEnabled = True - Me.cmbType.Name = "cmbType" - Me.cmbType.ValueMember = "GUID" - ' 'TBPM_TYPEBindingSource ' Me.TBPM_TYPEBindingSource.DataMember = "TBPM_TYPE" @@ -833,11 +810,10 @@ Partial Class frmAdministration 'TabPage5 ' resources.ApplyResources(Me.TabPage5, "TabPage5") - Me.TabPage5.Controls.Add(Me.Label7) + Me.TabPage5.Controls.Add(Me.lblPriority) + Me.TabPage5.Controls.Add(Me.lblSearch) Me.TabPage5.Controls.Add(Me.Label4) - Me.TabPage5.Controls.Add(Me.Label1) Me.TabPage5.Controls.Add(Me.Label9) - Me.TabPage5.Controls.Add(Me.cmbType) Me.TabPage5.Controls.Add(Me.FINAL_TEXTTextBox) Me.TabPage5.Controls.Add(Me.FINAL_PROFILECheckBox) Me.TabPage5.Controls.Add(DISPLAY_MODELabel) @@ -849,7 +825,6 @@ Partial Class frmAdministration Me.TabPage5.Controls.Add(DESCRIPTIONLabel) Me.TabPage5.Controls.Add(Me.cmbObjekttypen) Me.TabPage5.Controls.Add(Me.WD_SEARCHTextBox) - Me.TabPage5.Controls.Add(PRIORITYLabel) Me.TabPage5.Controls.Add(ADDED_WHOLabel) Me.TabPage5.Controls.Add(Me.CHANGED_WHENTextBox) Me.TabPage5.Controls.Add(Me.ADDED_WHOTextBox) @@ -864,10 +839,15 @@ Partial Class frmAdministration Me.TabPage5.Name = "TabPage5" Me.TabPage5.UseVisualStyleBackColor = True ' - 'Label7 + 'lblPriority + ' + resources.ApplyResources(Me.lblPriority, "lblPriority") + Me.lblPriority.Name = "lblPriority" + ' + 'lblSearch ' - resources.ApplyResources(Me.Label7, "Label7") - Me.Label7.Name = "Label7" + resources.ApplyResources(Me.lblSearch, "lblSearch") + Me.lblSearch.Name = "lblSearch" ' 'Label4 ' @@ -897,8 +877,8 @@ Partial Class frmAdministration 'PM_VEKTOR_INDEXComboBox ' Me.PM_VEKTOR_INDEXComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "PM_VEKTOR_INDEX", True)) - Me.PM_VEKTOR_INDEXComboBox.FormattingEnabled = True resources.ApplyResources(Me.PM_VEKTOR_INDEXComboBox, "PM_VEKTOR_INDEXComboBox") + Me.PM_VEKTOR_INDEXComboBox.FormattingEnabled = True Me.PM_VEKTOR_INDEXComboBox.Name = "PM_VEKTOR_INDEXComboBox" ' 'TabPage6 @@ -912,7 +892,6 @@ Partial Class frmAdministration ' Me.TabControl2.Controls.Add(Me.TabPage11) Me.TabControl2.Controls.Add(Me.TabPage12) - Me.TabControl2.Controls.Add(Me.TabPage3) resources.ApplyResources(Me.TabControl2, "TabControl2") Me.TabControl2.Name = "TabControl2" Me.TabControl2.SelectedIndex = 0 @@ -1007,6 +986,7 @@ Partial Class frmAdministration ' 'colDESCRIPTION1 ' + resources.ApplyResources(Me.colDESCRIPTION1, "colDESCRIPTION1") Me.colDESCRIPTION1.FieldName = "DESCRIPTION" Me.colDESCRIPTION1.Name = "colDESCRIPTION1" ' @@ -1076,19 +1056,6 @@ Partial Class frmAdministration resources.ApplyResources(Me.WORK_HISTORY_ENTRYTextBox, "WORK_HISTORY_ENTRYTextBox") Me.WORK_HISTORY_ENTRYTextBox.Name = "WORK_HISTORY_ENTRYTextBox" ' - 'TabPage3 - ' - Me.TabPage3.Controls.Add(Me.SQL_VIEWTextBox) - resources.ApplyResources(Me.TabPage3, "TabPage3") - Me.TabPage3.Name = "TabPage3" - Me.TabPage3.UseVisualStyleBackColor = True - ' - 'SQL_VIEWTextBox - ' - resources.ApplyResources(Me.SQL_VIEWTextBox, "SQL_VIEWTextBox") - Me.SQL_VIEWTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "SQL_VIEW", True)) - Me.SQL_VIEWTextBox.Name = "SQL_VIEWTextBox" - ' 'GridControl1 ' Me.GridControl1.DataSource = Me.TBPM_PROFILEBindingSource @@ -1289,9 +1256,9 @@ Partial Class frmAdministration 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.tsbStaticInfo}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.tsbStaticInfo, Me.BarButtonItem20, Me.BarButtonItem21}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 21 + Me.RibbonControl1.MaxItemId = 23 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 @@ -1300,8 +1267,7 @@ Partial Class frmAdministration ' resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1") Me.BarButtonItem1.Id = 1 - Me.BarButtonItem1.ImageOptions.Image = CType(resources.GetObject("BarButtonItem1.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem1.Name = "BarButtonItem1" ' 'BarButtonItem2 @@ -1316,8 +1282,7 @@ Partial Class frmAdministration ' resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3") Me.BarButtonItem3.Id = 3 - Me.BarButtonItem3.ImageOptions.Image = CType(resources.GetObject("BarButtonItem3.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem3.Name = "BarButtonItem3" Me.BarButtonItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText ' @@ -1334,8 +1299,7 @@ Partial Class frmAdministration ' resources.ApplyResources(Me.BarButtonItem5, "BarButtonItem5") Me.BarButtonItem5.Id = 5 - Me.BarButtonItem5.ImageOptions.Image = CType(resources.GetObject("BarButtonItem5.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem5.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem5.Name = "BarButtonItem5" Me.BarButtonItem5.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText ' @@ -1343,8 +1307,7 @@ Partial Class frmAdministration ' resources.ApplyResources(Me.BarButtonItem6, "BarButtonItem6") Me.BarButtonItem6.Id = 6 - Me.BarButtonItem6.ImageOptions.Image = CType(resources.GetObject("BarButtonItem6.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem6.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem6.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem6.Name = "BarButtonItem6" Me.BarButtonItem6.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText ' @@ -1352,16 +1315,14 @@ Partial Class frmAdministration ' resources.ApplyResources(Me.BarButtonItem7, "BarButtonItem7") Me.BarButtonItem7.Id = 7 - Me.BarButtonItem7.ImageOptions.Image = CType(resources.GetObject("BarButtonItem7.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem7.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem7.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem7.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem7.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem7.Name = "BarButtonItem7" ' 'BarButtonItem8 ' resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8") Me.BarButtonItem8.Id = 8 - Me.BarButtonItem8.ImageOptions.Image = CType(resources.GetObject("BarButtonItem8.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem8.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem8.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem8.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem8.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem8.Name = "BarButtonItem8" ' 'BarButtonItem9 @@ -1376,8 +1337,7 @@ Partial Class frmAdministration ' resources.ApplyResources(Me.BarButtonItem10, "BarButtonItem10") Me.BarButtonItem10.Id = 10 - Me.BarButtonItem10.ImageOptions.Image = CType(resources.GetObject("BarButtonItem10.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem10.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem10.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem10.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem10.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem10.Name = "BarButtonItem10" ' 'BarButtonItem11 @@ -1416,32 +1376,29 @@ Partial Class frmAdministration ' resources.ApplyResources(Me.BarButtonItem15, "BarButtonItem15") Me.BarButtonItem15.Id = 15 - Me.BarButtonItem15.ImageOptions.Image = CType(resources.GetObject("BarButtonItem15.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem15.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem15.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem15.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem15.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem15.Name = "BarButtonItem15" ' 'BarButtonItem16 ' resources.ApplyResources(Me.BarButtonItem16, "BarButtonItem16") Me.BarButtonItem16.Id = 16 - Me.BarButtonItem16.ImageOptions.Image = CType(resources.GetObject("BarButtonItem16.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem16.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem16.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem16.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem16.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem16.Name = "BarButtonItem16" ' 'BarButtonItem17 ' resources.ApplyResources(Me.BarButtonItem17, "BarButtonItem17") Me.BarButtonItem17.Id = 17 - Me.BarButtonItem17.ImageOptions.Image = CType(resources.GetObject("BarButtonItem17.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem17.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem17.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem17.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem17.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem17.Name = "BarButtonItem17" + Me.BarButtonItem17.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText ' 'BarButtonItem18 ' resources.ApplyResources(Me.BarButtonItem18, "BarButtonItem18") Me.BarButtonItem18.Id = 18 - Me.BarButtonItem18.ImageOptions.Image = CType(resources.GetObject("BarButtonItem18.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem18.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem18.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem18.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem18.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem18.Name = "BarButtonItem18" ' 'BarButtonItem19 @@ -1460,6 +1417,22 @@ Partial Class frmAdministration Me.tsbStaticInfo.ItemAppearance.Normal.Options.UseBackColor = True Me.tsbStaticInfo.Name = "tsbStaticInfo" ' + 'BarButtonItem20 + ' + resources.ApplyResources(Me.BarButtonItem20, "BarButtonItem20") + Me.BarButtonItem20.Id = 21 + Me.BarButtonItem20.ImageOptions.Image = CType(resources.GetObject("BarButtonItem20.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem20.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem20.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem20.Name = "BarButtonItem20" + ' + 'BarButtonItem21 + ' + resources.ApplyResources(Me.BarButtonItem21, "BarButtonItem21") + Me.BarButtonItem21.Id = 22 + Me.BarButtonItem21.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem21.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem21.Name = "BarButtonItem21" + Me.BarButtonItem21.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3}) @@ -1468,21 +1441,22 @@ Partial Class frmAdministration ' 'RibbonPageGroup1 ' - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem7) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem8) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem7) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem5) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem6) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem21) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") ' 'RibbonPageGroup2 ' - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem15) - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem18) Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem15) Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem17) Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem19) Me.RibbonPageGroup2.Name = "RibbonPageGroup2" @@ -1490,9 +1464,10 @@ Partial Class frmAdministration ' 'RibbonPageGroup3 ' + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem20) Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem9) - Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem10) Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem11) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem10) Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem14) Me.RibbonPageGroup3.Name = "RibbonPageGroup3" resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3") @@ -1570,8 +1545,6 @@ Partial Class frmAdministration Me.TabPage12.PerformLayout() Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.PerformLayout() - Me.TabPage3.ResumeLayout(False) - Me.TabPage3.PerformLayout() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage2.ResumeLayout(False) @@ -1618,9 +1591,7 @@ Partial Class frmAdministration Friend WithEvents PRIORITYNumericUpDown As System.Windows.Forms.NumericUpDown Friend WithEvents TBPM_TYPEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_TYPETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter - Friend WithEvents cmbType As System.Windows.Forms.ComboBox Friend WithEvents FolderBrowserDialog1 As System.Windows.Forms.FolderBrowserDialog - Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents cmbObjekttypen As System.Windows.Forms.ComboBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents TabControl1 As System.Windows.Forms.TabControl @@ -1727,7 +1698,7 @@ Partial Class frmAdministration Friend WithEvents Label9 As Label Friend WithEvents ToolTip1 As ToolTip Friend WithEvents Label4 As Label - Friend WithEvents Label7 As Label + Friend WithEvents lblSearch As Label Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup @@ -1748,8 +1719,6 @@ Partial Class frmAdministration Friend WithEvents BarButtonItem12 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem13 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem14 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents TabPage3 As TabPage - Friend WithEvents SQL_VIEWTextBox As TextBox Friend WithEvents GroupBox3 As GroupBox Friend WithEvents MOVE2FOLDERTextBox As TextBox Friend WithEvents btnmovetoFolderDialog As Button @@ -1760,4 +1729,7 @@ Partial Class frmAdministration Friend WithEvents BarButtonItem18 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem19 As DevExpress.XtraBars.BarButtonItem Friend WithEvents tsbStaticInfo As DevExpress.XtraBars.BarStaticItem + Friend WithEvents BarButtonItem20 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem21 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents lblPriority As Label End Class diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index 69d1928..0fe74f4 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -264,6 +264,24 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Benutzer: + + + MiddleLeft + Label20 @@ -414,6 +432,24 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Benutzer: + + + MiddleLeft + Label19 @@ -483,69 +519,6 @@ 0 - - 206, 17 - - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Benutzer: - - - MiddleLeft - - - Label20 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 0 - - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Benutzer: - - - MiddleLeft - - - Label19 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel2 - - - 0 - Fill @@ -592,7 +565,7 @@ 58 - 979, 183 + 979, 159 3 @@ -609,6 +582,27 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Gruppen: + + + MiddleLeft + Label22 @@ -694,7 +688,7 @@ 58 - 979, 161 + 979, 185 0 @@ -711,6 +705,27 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Gruppen: + + + MiddleLeft + Label23 @@ -763,7 +778,7 @@ 979, 398 - 208 + 184 1 @@ -780,72 +795,6 @@ 0 - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Gruppen: - - - MiddleLeft - - - Label22 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel3 - - - 0 - - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Gruppen: - - - MiddleLeft - - - Label23 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel4 - - - 0 - False @@ -907,40 +856,7 @@ TabPage5 - 13 - - - False - - - True - - - Tahoma, 9.75pt - - - 564, 15 - - - 58, 16 - - - 16 - - - Priorität: - - - PRIORITYLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 16 + 12 False @@ -952,7 +868,7 @@ Tahoma, 9.75pt - 15, 265 + 16, 221 78, 16 @@ -973,7 +889,7 @@ TabPage5 - 17 + 15 False @@ -985,7 +901,7 @@ Tahoma, 9.75pt - 16, 294 + 447, 221 87, 16 @@ -1006,7 +922,7 @@ TabPage5 - 20 + 18 False @@ -1018,7 +934,7 @@ Tahoma, 9.75pt - 16, 323 + 15, 252 91, 16 @@ -1039,7 +955,7 @@ TabPage5 - 27 + 25 False @@ -1051,7 +967,7 @@ Tahoma, 9.75pt - 16, 352 + 447, 252 100, 16 @@ -1072,7 +988,7 @@ TabPage5 - 21 + 19 False @@ -1168,7 +1084,7 @@ TabPage5 - 7 + 6 727, 56 @@ -1210,7 +1126,7 @@ TabPage5 - 11 + 10 Tahoma, 9.75pt @@ -1234,7 +1150,7 @@ TabPage5 - 14 + 13 Tahoma, 9.75pt @@ -1261,7 +1177,7 @@ TabPage5 - 6 + 5 Tahoma, 9.75pt @@ -1285,73 +1201,16 @@ TabPage5 - 5 - - - True + 4 - + + 174, 56 + + Tahoma, 9.75pt - - 16, 221 - - - 59, 16 - - - 72 - - - Profiltyp: - - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 2 - - - 174, 56 - - - Tahoma, 9.75pt - - - 202, 218 - - - 345, 24 - - - 0 - - - cmbType - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 4 - - - 174, 56 - - - Tahoma, 9.75pt - - - 693, 12 + + 693, 12 55, 23 @@ -1369,7 +1228,7 @@ TabPage5 - 26 + 24 Tahoma, 9.75pt @@ -1405,7 +1264,7 @@ TabPage5 - 25 + 23 Tahoma, 9.75pt @@ -1432,7 +1291,7 @@ TabPage5 - 22 + 20 459, 33 @@ -1519,7 +1378,7 @@ TabPage5 - 12 + 11 Tahoma, 9.75pt @@ -1543,7 +1402,7 @@ TabPage5 - 15 + 14 976, 5 @@ -1573,10 +1432,10 @@ Tahoma, 9.75pt - 202, 262 + 202, 218 - 345, 23 + 235, 23 19 @@ -1591,16 +1450,16 @@ TabPage5 - 19 + 17 Tahoma, 9.75pt - 202, 291 + 554, 218 - 345, 23 + 194, 23 21 @@ -1615,16 +1474,16 @@ TabPage5 - 23 + 21 Tahoma, 9.75pt - 202, 320 + 202, 249 - 345, 23 + 235, 23 23 @@ -1639,16 +1498,16 @@ TabPage5 - 24 + 22 Tahoma, 9.75pt - 202, 349 + 553, 249 - 345, 23 + 194, 23 25 @@ -1663,7 +1522,7 @@ TabPage5 - 18 + 16 17, 56 @@ -1686,18 +1545,84 @@ True - - Label7 + + True + + + Tahoma, 9.75pt + + + 553, 14 + + + 53, 16 + + + 90 + + + Priorität + + + lblPriority - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabPage5 - + 0 + + True + + + Tahoma, 9.75pt + + + 16, 104 + + + 45, 16 + + + 89 + + + Label7 + + + lblSearch + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 1 + + + True + + + Tahoma, 9.75pt + + + 15, 161 + + + 130, 16 + + + 88 + + + Use Vektor for Index: + Label4 @@ -1708,7 +1633,25 @@ TabPage5 - 1 + 2 + + + True + + + Tahoma, 9.75pt + + + 16, 191 + + + 92, 16 + + + 87 + + + Index Logging: Label9 @@ -1722,6 +1665,27 @@ 3 + + Tahoma, 9.75pt + + + Overview and Detail + + + Overview + + + Detail + + + 202, 42 + + + 345, 24 + + + 85 + DISPLAY_MODEComboBox @@ -1732,7 +1696,19 @@ TabPage5 - 8 + 7 + + + Tahoma, 9.75pt + + + 202, 188 + + + 345, 24 + + + 83 cmbLOGIndex @@ -1744,7 +1720,19 @@ TabPage5 - 9 + 8 + + + Tahoma, 9.75pt + + + 202, 158 + + + 345, 24 + + + 81 PM_VEKTOR_INDEXComboBox @@ -1756,7 +1744,7 @@ TabPage5 - 10 + 9 Tahoma, 9.75pt, style=Bold @@ -1768,7 +1756,7 @@ 3, 3, 3, 3 - 970, 342 + 970, 345 0 @@ -1816,7 +1804,7 @@ 0 - 86 + 116 Fester Wert @@ -1828,17 +1816,11 @@ 2 - 73 + 241 SQL Befehl - - True - - - 1 - 150 @@ -1848,8 +1830,20 @@ Neue Werte erlauben + + Beschreibung + + + True + + + 1 + + + 246 + - 624, 293 + 624, 296 93 @@ -1876,7 +1870,7 @@ 624, 0 - 323, 293 + 323, 296 91 @@ -1897,7 +1891,7 @@ 3, 23 - 947, 293 + 947, 296 94 @@ -1954,7 +1948,7 @@ 3, 3, 3, 3 - 956, 307 + 956, 310 0 @@ -1977,6 +1971,18 @@ True + + Segoe UI, 9pt + + + 9, 21 + + + 862, 23 + + + 0 + MOVE2FOLDERTextBox @@ -1989,6 +1995,24 @@ 0 + + Segoe UI, 9.75pt, style=Bold + + + NoControl + + + 877, 19 + + + 29, 23 + + + 72 + + + ... + btnmovetoFolderDialog @@ -2110,7 +2134,7 @@ 3, 3, 3, 3 - 956, 307 + 956, 313 1 @@ -2130,66 +2154,6 @@ 1 - - Top, Bottom, Left, Right - - - Consolas, 9pt - - - 6, 9 - - - True - - - Both - - - 944, 292 - - - 9 - - - SQL_VIEWTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 956, 307 - - - 2 - - - SQL für Detailansicht Profil - - - TabPage3 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 2 - Fill @@ -2200,7 +2164,7 @@ 3, 3 - 964, 336 + 964, 339 92 @@ -2224,7 +2188,7 @@ 3, 3, 3, 3 - 970, 342 + 970, 345 1 @@ -2248,7 +2212,7 @@ 288, 62 - 978, 371 + 978, 374 79 @@ -2409,18 +2373,48 @@ 0 - - TabPage7 + + 4, 25 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 3, 3, 3, 3 - - TabControl3 + + 985, 404 - + + 0 + + + Benutzer + + + TabPage7 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl3 + + 0 + + 4, 25 + + + 3, 3, 3, 3 + + + 985, 404 + + + 1 + + + Gruppen + TabPage8 @@ -2458,368 +2452,89 @@ 0 - SplitContainerProfilzuordnung.Panel2 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerProfilzuordnung - - - 1 - - - 1266, 433 - - - 269 - - - 0 - - - SplitContainerProfilzuordnung - - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1272, 439 - - - 1 - - - Profil-Zuordnung - - - TabPage2 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 1 - - - Fill - - - 0, 0 - - - 1280, 468 - - - 3 - - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - pnlMain - - - 0 - - - True - - - Tahoma, 9.75pt - - - 16, 104 - - - 45, 16 - - - 89 - - - Label7 - - - Label7 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 0 - - - True - - - Tahoma, 9.75pt - - - 15, 161 - - - 130, 16 - - - 88 - - - Use Vektor for Index: - - - Label4 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 1 - - - True - - - Tahoma, 9.75pt - - - 16, 191 - - - 92, 16 - - - 87 - - - Index Logging: - - - Label9 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 3 - - - Tahoma, 9.75pt - - - Overview and Detail - - - Overview - - - Detail - - - 202, 42 - - - 345, 24 - - - 85 - - - DISPLAY_MODEComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 8 - - - Tahoma, 9.75pt - - - 202, 188 - - - 345, 24 - - - 83 - - - cmbLOGIndex - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 9 - - - 202, 158 - - - 345, 24 - - - 81 - - - PM_VEKTOR_INDEXComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 10 - - - 677, 212 - - - Segoe UI, 9pt - - - 9, 21 - - - 862, 23 - - - 0 - - - MOVE2FOLDERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 0 - - - Segoe UI, 9.75pt, style=Bold - - - NoControl - - - 877, 19 - - - 29, 23 - - - 72 - - - ... - - - btnmovetoFolderDialog + SplitContainerProfilzuordnung.Panel2 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GroupBox3 + + SplitContainerProfilzuordnung - + 1 - - 4, 25 - - - 3, 3, 3, 3 + + 1266, 433 - - 985, 404 + + 269 - + 0 - - Benutzer - - - TabPage7 + + SplitContainerProfilzuordnung - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabControl3 + + TabPage2 - + 0 - + 4, 25 - + 3, 3, 3, 3 - - 985, 404 + + 1272, 439 - + 1 - - Gruppen + + Profil-Zuordnung - - TabPage8 + + TabPage2 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabControl3 + + TabControl1 - + 1 + + Fill + + + 0, 0 + + + 1280, 468 + + + 3 + + + TabControl1 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlMain + + + 0 + 234, 95 @@ -2832,6 +2547,12 @@ 754, 95 + + 20, 20 + + + False + 0, 614 @@ -2856,12 +2577,6 @@ 1 - - 20, 20 - - - False - 17, 95 @@ -2928,29 +2643,26 @@ Aktualisieren - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA1dEVYdFRpdGxlAEFycm93O1JlY3VycmVuY2U7UmVm - cmVzaDtVcGRhdGU7UmVsb2FkO0V4Y2hhbmdlhrRdSAAAALlJREFUOE+lksENgzAMRVkEdQhOSJmnZyZg - pt56ZIwee2cJ93/LRiQ4kIpID4y//RXidCJyizD5D1uQUnJ6MIE3WA3GzFHzujkyGMELSAVqrJn5XRrQ - 3ZsX8AQPgzFz1D72Phhwi948eN40MoAv0GZCTQtqqzDQbe/ZDK6Imgk1LziIQE/5Cn1EzSAvDFbNgAfF - A8sMLOeTmDxfGviIzsbIUfeRAbfdepG0b2+g/2w0XeXM4A5hsh3pfngbEtI9NQFmAAAAAElFTkSuQmCC - - - + + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA1dEVYdFRpdGxlAEFycm93O1JlY3VycmVuY2U7UmVm - cmVzaDtVcGRhdGU7UmVsb2FkO0V4Y2hhbmdlhrRdSAAAAbFJREFUWEfFljFOw0AQRXMAJK6TwtwkJ6Ak - TWhyDk5BlQJuQscRqJDozH/W2poZj2MLm03xJO/4//mOd7PeXdu2NyUt1iQt1iQt1mRUaJrmGntxEq/i - Q3wXuKbGPTSZtyPmjQqZSTyIF/El2hnQoMWT9TrbPBcOieFR8AuzsGvgwWt7nYVilj/As/gRWcAS8NJj - CAeb58KhiIGnz8LfxZNgru8LXFPjXtTT42JrNs+FgwTA/MXX/imO4i56erhXNGit12E9rgFIACwia6Lh - IWoj0vQcisf2GLAe1wAk4HXG1X6MugzpLG/C9hiwHtcAJOC/bA3M6+Rrt0jXMyy4DOtxDdai5rPhYD2u - wVrUfDYcrMc1uAVpsSZukL2uBLeXr8UNkrAIc+w8a3GDEBbpwsF6ppCOXTFuzaeoc4MgtrCpdOFgPVNI - x5Zse7C57aPODYLB0m3FYtEDFG3citneR1o3CIYIDf/6MeLD1h1QoscNjAH4hG71OR4OJjYP3KAYoF9w - Wx5IFj/AsNoLWx7JXB64gQQxvGezQ6nNg1EhMxmY6/89ltcmLdYkLdYkLdaj3f0Cj5M+ApfcyL4AAAAA - SUVORK5CYII= + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlZnJlc2hfMV8iPg0KICAgIDxwYXRoIGQ9Ik0yNC41 + LDcuNUMyMi4zLDUuMywxOS4zLDQsMTYsNEMxMC4xLDQsNS4xLDguMyw0LjIsMTRoNC4xYzAuOS0zLjQs + NC02LDcuNy02YzIuMiwwLDQuMiwwLjksNS42LDIuNEwxOCwxNCAgIGg1LjdoNC4xSDI4VjRMMjQuNSw3 + LjV6IiBjbGFzcz0iR3JlZW4iIC8+DQogICAgPHBhdGggZD0iTTE2LjIsMjRjLTIuMiwwLTQuMi0wLjkt + NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz + LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj + bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= @@ -3023,64 +2735,21 @@ Profil kopieren - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAE1vZGVsO0NvcHk7Q29weU1vZGVs - O4ktWcsAAAJgSURBVDhPjdFdSFNhHMfx1XQvbhokvdx00X3ddlEEQRB0WzeRvYBFkESRWVgstZpz5ZL5 - Oo0CaysbFBlWSos2hroU1wsWmFA3WelyO9s82862s/36P4+4zqKLDnyQB5//9zx7jgpAgdFoVHc6g75u - 11t0ud6RIDqcQbQz96ZgJ7bb437ap1mZ+TtQ2uGcQj4PkudyTG6ZTG7emQTt0xcC9KwialKi1WoNg54Z - SJIEIZrgwkICkWgKMTGDdDaHG30BFihTBtSW3oDP2vcGLb0TJACLYwzNjgDM5FrPGG4NBBESREiZHCw9 - oyxgUAZKmx2jRcdWHp0du9Hux49fUaTSMpra/SxgVAY0VztZIA8xmeWWkjIXF2V+bJPNi2/zAhKSDFOb - lwXKlQFtfauXvzGWyCLKiFkISxmOvfWs+SW+zC0iTv+7YPWwQIUyoDvf4uHHZQMRuqwI/Y1RRExl6XfL - ePZ6BqFwHIlUBi98n6HX6ytproSwy1eVnWp8jqycRyiaJhIWBInelsHcyCBmG2oKPpj3I9C6owgLGE6a - hiiQwzwNRuJpGk4jHEti9nIN4HVxKdd1DBzaDAgPufi0ma954PjFp8jQZf2MLH/vu8OfcODKSMEJ+znU - 9W8p8n346J9Add0Tfttx9hUSEvaccWNCBOeeDmFf/SYsop8b/9rE18qArur0fd+R2sc4XPsI7qH3PNDw - aoGr7p7gA86PO7lLD7byddfejbDuXm9jgdVETyrIGrLhfwK0by3R8G+pRI9uW5UDSruOrSuy/WBlGx9m - zz8CKycyKpQrsLWW0D6V6jdzUIrq8TztCAAAAABJRU5ErkJggg== - - - + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAE1vZGVsO0NvcHk7Q29weU1vZGVs - O4ktWcsAAAhaSURBVFhHjZZ7UFXXFcYRFBB8v5LaiZM4k0wmbf/pdDqNiY1p0sRJ7WOSMa+mnbSxTmKT - ZqiCDqOgXtAQjALG2GhVCIhvMIhIEJAi4jM+iQooCvK478t987jw9Vv7nnMDgkz2zI99L/ec831r7bXX - PmEAhjBu3Dh9Ds87fKky7+vL4EwuI1fNlzhfRG7hRXxVcBE5nHMKvlVkZVev5X2j5V4yakvembAtubVh - nxN5ro6uFfowELlRmyNEfLjR3d0Lr68bTpcPZpsbza0OXKprw+mLzfhs23ED7x1DlIm6+vawjJ3VDzYw - cMh3uUljtEQsI9DXh95AP3oCfQp/V9BAp9sPk82DO/fs+E/+WfT3AxW1t5GaVZrC+yOJMvHp1sofbiAy - MjJciImJiZS09vOp3b2BID0BdGn4/N3weLthc3hpwIbMnBplwOPrRVlNI5I2FKVSLIpEEAloRAOjNMIj - IiJGC1FRUdEVtQ0IBALwd/coQUEi9/i6ggb42c5laGIG0r88oQz4uvuUidITN7Ei9eA6CkaTQSaGMxCe - mX2qMjOnFlm7apG56xQySHCuQcbOGmzaUYONnDfuOKkoO3kTbm8XbE4vbt21wpD1jTLQ09tPw2IigOKK - 64hLyh9i4n4DEnmEiA83pOAk0k6nDyarC3cZ7fmr91BxqhFHT9TB6nDj1h0rVqYXq+vFBMuEtSJGAigq - u4Z/Jn4lJvSaGNbAaIlYhkQgdPf2KXz+XkbKVDv96LBQrNmG9O3/U0JF5ddxuPQKbt+zIO2LMiSkFGKZ - YCjE0rVCAQr5eyazSOEYIlkY1sCYTUyvDCXcQwM9fSy2ILLeLk83LDYvbjdbkLKlXBlwc60Ly+qwp+g8 - GppMuHqzDRfqWnD+SovaktXnm3DqQpNuYPyIBmRdZejCauZa+rkEXdoyWDt9aGy2YtWGklDBiYmDR69g - d+EZtBntaDW7cK/Diea2Tpq14U6LDRk7qsXABCJNalgDkRu2Bw2IuBSRLi74BO59G+ug8Y4Fy1IPDyo4 - NwtubxG748FT7AtOWDo9MDs8XDIPLHYPi7ZKDEx8kIFwEpW+jevKf/h7gqJKmKI6nq4eOFx+NLDgPko6 - wCuHFlx+4Tlk76tWhWnl7rAwY9KsNnypDEwayUB0Gi/S0xoU5d5XwsTfQ3ppoAt32h2s+CNYvHw3FsXn - YdGyPLy3VMjF/iMXkbSpFB1mh8qWjYalWbETioHJIxpYv1VrJFq0IqgLy+zig5zEZOe+b7Hj8s12nLva - zGK7i+pzTag83YjqM7dYH8fQarSwXrxwuLvg5b1pW8vFwJSRDIxd90WlMiBi7oH4KE7cLEKZJQsWB3sC - d0S72Y0WKTYaqm+ysOisSEw7ipZ2M6/xsEt2qaVZ//lxMTCVyCE1rIGYlM0VNNB/n3BQVHAK3IqdjEpm - iU4EZJ2NPJDaTC42KjdWpB3B3VYTzCw+mzLQi9TNZWJgmmZAnbYDDUSQWENWOfpowEXxkKhHEyVOd3Du - lJk4dChipokOZsTOdU9IPcKzwcgMSSHyzOCSGjJLxcD0kQyMX83i6evrV4JKbKCIJuRwBWeJTB4exM8s - BJGsLTUUoOFuOw25YOFvXtZQMp9N4RlE2vGwBiYkfVbCLdWvCYuYJqh9toUEg1h0NHGzw89oA4hbfYj1 - 0Io2NiQTa8VDU9K4KPzQEAPaGE0mSvGIAT1CHRELivuDwiI2QNRkZ0ESWQIp1H+xR1xvaEaL0YF21oSL - ASR+WozY2NiZY8eOjZZ3jaDs90MMTFq+7mv1tvN9lJoIP5s7BYrpMDKj1cuG46dh7ndWvIUpd7o8KCz5 - ljuDNWDt5OuaE45OF4rLLyM6Ono2xSeGh4ePoZ5039AQA5PjDYeVAVk3hYhrwhKpitbmh5HiHewFFmK1 - 833w6CHcSl6ChiSyagnqVy7BzZXv43pZFs5lzMXZjc/idPozqP1kDmrWPY1Ro0bFUG9QFsTRFDk+e3gS - 6ikORSzCErGI2yjOyEXczIi/y9mOlvQE4EReiKasJFQteQb3yuMAx94Q7aXvoiTup2JgAvWk7kJDDEyV - 4pGjWMRE1KiEg6Ii3k7aKC6d0ETxnTwB3zKU4c01pXh9dSkWJh/Da0kl2BQ/F39dNxt/SZmNdwTDY3h7 - 7aO4kDwDBYufkMqbRCTroSEGpn2cfECdhLp4UNhHYQ2rh0ct15oHzX+LLmNjaQPOehAi83gj/piwCLlV - 78KK7BA7Kl7H7+JmKgN73nlMDEwmIQPqXYBM+2gVDbBtDhb1MeograTZ6ESHyY4/JRYj46wDm07bsbGW - L6Q1Nryx5hjeTH4UB+rnY3/Dy9hf/xL21f8WCxJj8eIHM5SB7FcfGZIB3cDUDxP3q74tncsrqEOIr2Na - WxbkDdhktuGV+AJ8Um3F+pNWpFZZYKiyKgMLV87C3hsvYs+NF5B/4zfYff15ZeC5v09D8eKHkf7CjAxq - jSNSA2onyB/ViN77966q91fsweIEsjwf/4jP52eZeezyyBX+FpeD3YdO4qWP92FNpRmrK8xIKjdh5XGz - MvDqikeQ99088hxy6+Yih4iBX/15MlJ/PT2LOlNIJBm0C+RLFJHqnE5+dB8zBzCL/GTekt1I/MaE5ceM - SDjWgfgSI+YtzsYf4n+MnGvPIvvaHOy6+rTi+Q/G42cLxm/mfdNINBG9QX1Avsg/ZV3EnY6Yup9YMv2p - 36fjyQVpePKV9Xhifgoef9mAWXM+3PbLtybjF2+QhZPw89cmKp6aP04i18VDqVdD78k/BA7dqBiRQpJs - PaQxQ/su88NEMiezfJ9I5J7B4jKGE3oQ2hiYLSnegRkbLnNyjVw7JO1hYWFh/wecxwMOH7dYDAAAAABJ - RU5ErkJggg== + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAADACAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQ29weSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 + bGU+DQogIDxwYXRoIGQ9Ik0yMSwwSDlDOC40LDAsOCwwLjQsOCwxdjVIM0MyLjQsNiwyLDYuNCwyLDd2 + MjJjMCwwLjYsMC40LDEsMSwxaDE4YzAuNiwwLDEtMC40LDEtMXYtNWg1YzAuNiwwLDEtMC40LDEtMVY3 + ICBMMjEsMHogTTIwLDI4SDRWOGg0aDJoNHY1YzAsMC42LDAuNCwxLDEsMWg1djR2NHYyVjI4eiBNMjYs + MTJ2MTBoLTR2LTlsLTctN2gtNVYyaDRoNnY0djFjMCwwLjYsMC40LDEsMSwxaDVWMTJ6IiBjbGFzcz0i + QmxhY2siIC8+DQo8L3N2Zz4L @@ -3129,145 +2798,90 @@ Profil löschen - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACV0RVh0VGl0 - bGUAUmVtb3ZlUGl2b3RGaWVsZDtEZWxldGU7UmVtb3ZlO3aMxpEAAAIdSURBVDhPhZJbSFRRGIUPRVMK - FZQGaghqDYWQNTVETTShSDAVQU1FMUGCTIRoF7KHsgt0Y6CLpRUm9iLUSzISBNGDJEfp8lBBJDSFUVIT - UhRS0Ntqf5s9Mk+24YPFv9ba55z5x3NnuiHwfuuGQUC7We5M6SNmjWyO+uNdVwRoZs77n+8FXsfW+9nO - lP6+HLCgmRmvEKbweROvYLBuTffnVJsm0rc00depP36/xq5d0NP6yDCgmeGRIWs6d+hyAa9SlF4Xbs+0 - NupH10n97E3p98A9jV46ZUEzwyNDlo7rejMMcwwld1evuP62OaHxq6363n1Gv9IdFjQzPDJkXYeuN83A - t8w1lPWEajpeJXfq67kmZS+2WNDM8Mi4LB269iD4nqLelaFnL5K7NHa8UZ+O7LWgmeGRcdnJMod1FPbU - LB963pRQNtWijwd368P+7RY0MzwyZF3HHrvnG9XL/KGGuL6dTmr0QFyZfVv0eGPUgmaGR4YsHdf1ApeD - 1f6THZv05dAeZRIxjcTr9LA2ohMVwZuAZoZHhiwdulxQcLZyyYNH9VG921arN7GI+teGdax8MT9YBaCZ - 4ZEhe75y6TBde4Gh+OjCRbf7wiHdXxXS4bIqVlVqmO8oZYZHpq08yI+5wGAv4DXs/6C5pKod0AZWxXcC - Ot/n8twq7TpmGmYbeNo8p3N7BnTOBx5IZ3IThPhXMQR0/p7zfd7I+Z73DxkXTSgd4+4eAAAAAElFTkSu - QmCC - - - + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACV0RVh0VGl0 - bGUAUmVtb3ZlUGl2b3RGaWVsZDtEZWxldGU7UmVtb3ZlO3aMxpEAAAQdSURBVFhHxZZvTJVlGMa1Te2L - a6svQXMOQlrmAEVRSTgbkn+mNNHAaVD+O2viIiiHiZmV9eJJm6fXofmntvyQSzZlq2mtjc2Za7NhWBYp - mYxEkGBYWevb3fN7es7Bw3nOe97zRa/t2u7nvu/rum99n/O+jBGRe0pr8m5yJLBjrOJ9hsR+kVTnZwHE - 4zrLAjshscklgy9dsgUQjP9habEzeGivQGJyppYIvnVeC2iTjiXFzsD+d+XfC22axOSomZ7RSEmXaAFt - 0r64yLnZHJJ/zn0mf508oElMjho9pjeClHW2Bbgs484vnOf07WuSv8+2yh/H35fhD9/UJCZHjR7VGzHT - w1PQcSfG2hbAaMLZ0sLQ9dBWufVpWIYObpehA43/U8W3Ptkjt8+0SK+7U849Vdik+u+HxOSo0ROnU154 - 4s0MZiVcQPHBU4GC8K8NQRlsbpRBd8sI1Xn4aEhutx2TnvAb0lYyJwSJyVGzafDCE28zw7qAfgSKExXT - WufNdLvq18hAuEEG3ntlhOo89NHb8udXH8u1Pds0icnZevHAC0/jnfARAP08FR9QTG8pzHc7a6vk5u56 - 6d9VGyXn3w+9LsMnXU1iWw9aPPAynp6XMIKYJY7NnuFeqlklfe9skhtvbYyScz9DFW01NGjxMF7R4cBr - ARCzxNFZeW5HsFJ6d7wg118LepIeetGgNR4xw0GyBUDMEkdm5O5rX7tcftu6Tnoa1lhJjR560Rht3HDg - ZwGAkJ/aQwfzcsLfBiuk59W10l232kpq9NCLxmjjhoOUFjiclxtqf+k5/by765+VqxsrrKRGD71o0BqP - OPhZAOH4D3Jyms7XrFa3uk66X66SX4LLpWv9Miup0UMvGrR4GK8YJFtAD2+eluN8s6FS+tXNvrapUq48 - XyaXq5d4kh560aDFAy/jGYXXAnr43senOV9Xl0tf4zq5umGZ/LxqkXSuXBAl5y9LizRtNTRo8cALT+Ot - kWgBPXx39hPOmZVlcqO+Srqql8pPK0rlx/KSKDmfnl8k2zOz90NiWw9aPPDCE28zw7qAfhU7WVOdtvJF - 0ltTIVfUv+bS08Xqj4qiKDl/Hpgr2zKy+allQGJytl488MITb2Ywy7YAm03YkfFY6IsFAbn8zHz5fnGh - XFw4N0rOrU8WyJbJUyIvGX5qMJ0cNZsGLzzxZoai99ewYVJW+MScmXKxtEA6SmZpEp+YnS+bJ2Xd+YbT - n2MTp1OjJ06nvPBUPf6/hnWPPOq25E+X7wL5msTkVG30G07fG5NL99Cl/jWsTct0j0/PFUhMztRibrRC - yrpEC4A7zdJefDgzDIlNbvTwCFLSeS0AImb8l/HcIHGi4RH41iVbACDgeXFpILHX8Ah86fwsALiYiCGx - XyTVxS1wr2hN3j3KmP8AEPJiSeQUIA4AAAAASUVORK5CYII= + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD0DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4N + CiAgICA8Zz4NCiAgICAgIDxwYXRoIGQ9Ik0xOC44LDE2bDYuOS02LjljMC40LTAuNCwwLjQtMSwwLTEu + NGwtMS40LTEuNGMtMC40LTAuNC0xLTAuNC0xLjQsMEwxNiwxMy4yTDkuMSw2LjNjLTAuNC0wLjQtMS0w + LjQtMS40LDAgICAgTDYuMyw3LjdjLTAuNCwwLjQtMC40LDEsMCwxLjRsNi45LDYuOWwtNi45LDYuOWMt + MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks + Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44 + LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs= Profil-Daten löschen - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAEdyaWQ7U3ByZWFkc2hlZXQ7Um93 - O0RlbGV0ZVJvdztOu1grAAACuklEQVQ4T33UW0iTYRgH8M1TmXbQwI6QXQwqSQK76iq60BS6KA1bllkW - ohXmKQXpoKYDkzZxnndwE71wqaksT1lm6ZxubWpOuzCiG8VTOl2uLfj3vJsuDOmBH9/zbu/z/8Y7vo9D - 5UG8yLb/2L6O9Z6EC4DDcKQNxj5FswmKpnHUbGj8DPmGl2OQMaoxSFWjqKgf/sBCXAFixSBd/1bb2y/r - nbPaejavRbIBmuJ4U+sMKKlxBqxZf8NCZCo9LGt2rJIVImvQw/zTDrPF5tjzQuII8HEFZNUakUkeKg3I - UBiQXvMJaXI9UmV6pEh1eCAZRnLVEO5XanGvfBBJZZrNAXHPe/F6ctEljQbUkwtQTzilVg+5eoaf18UC - fF0B1wU9aDUtQDo0A6l2Gil0tyrNNBqMcxiY+oHm/q/on1pE48gsmomi3cQC/Ik74XKuPusGn6HkK7md - pAvROZ2o655AS2UDdPHxaBeIUdc1jrrOcahzhdBERi20hJ2/7AjJF/fRLwEWzFbML1tRqtRgbsmKxWUL - tDExsGnf4LuoECPiMhiFxfhWJMCvjx14Fxo+TwFenJziXkeA2WLH8qoNyiYDlui6YrGiLzcfusgw2Kvy - oL8bD13iLdhKH0Nz4RwK9x8qoABPTsrTV+8zCjqQkd+B9Px2pOepkUbEigG0do1AEpsETcRZWIVZWCvK - RH/oGWT7BxTTsLfjDKh2kN1kzz/8yAFJUIjSdCMaK0mXsJpwEeP8KEh4weX0nQ/hOv6KrVB5yXmnSkbv - 3ITlUSJUp09AFXIcK9m3YbjGR9nhY0K2Z8thhsq7/shJ81xyHGqDeYhw8xCRCkXQUcwkREO+j7fE9mw5 - zFB5FuwNjJUF8GbDue4CWvuSnWFcd1G1X+DMk10H+WzPlsMMFTsg9uiyM2KPsds61rPP6BXA4f4Ba3pO - faKtBbEAAAAASUVORK5CYII= - + + Löscht die Workflowdaten des Profils bis zum Resync - + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAEdyaWQ7U3ByZWFkc2hlZXQ7Um93 - O0RlbGV0ZVJvdztOu1grAAAGvUlEQVRYR8WWeUxUVxTGsa6oFMS0NTWCMbWtbVqTtmkb+09NmtaYNtri - Xq2JCyrj2riAIi4o1gIq2yAoyiKLImJBBlwRmGFQRlywQjXauiDKPjAMw6Jfz7lvYY2xmtib/Djnnvve - /b6573HvswPwv9Jj8VViF3+8yC4+tciOWq8X4LXnQFwbnWyiILVOBqgpE/Uh+hL9noP+/wG+vjfBOqJ1 - NdA7Ijb7m7gUUyGtBOJTL+GQwrF24jqS0k5sikniaDsxRwsJE6IpRiUVmPZEZn5LOvwDhYmuBvruTyx4 - 9KDcjCdPnnbirOFWtxpzRn+zW62NOJV3U8SO3C+vQ2RC/mPS4dXgle5moH9U0gW0tT1FQ2MrzJYWlSMn - LotYp9QaKCcOp10WNc4FlmYxnpRW1LlONNnaEBFvZCV7okcDA/YlFqC17YkqzDdKE5KBhmbVAAvVUT+R - DXQQqaUak3C8iCL3qV7P17bASgbC4/JZaRDB70I3A/bK0lmb2tCoYGuFvvAO5a3tNZm8C7dh4bqV+laO - fE0rcuW6ha6xUI1pbmlDZnbJsw2sjCjACmYvY8TycIV8LNNKLA0zEFLUMKEGeIToVZYE52FJkB6LKS4O - IvbkYtHuXLjvziFyWWkw0aOBgfN2noOutBoZpTU4IZNO/a1HriK9pBppN5gqEf8gNh++iuN/ViH1ukxx - JVKuV2IT1VOuUU4kCypw5GoFZm87zUoORI8GBs31O4uDheXYlXMfgcx55h40tBqB2fdErkJ9rgfIeYA8 - zlFDKxiYfVfk/ueodu4uIo0PMXPLSVZ6nejZADuMulBON0vCyuQe9Bh4MiEiR6a9fhf+LCiLabhOkcX9 - KXK+N78M0zZlsZIjwXtBNwOD2SE7jSCUyHjFXlLzCGMZwhma0DO2COGGMuwlOCp40vVailrDA4TpH4io - pThlo+6ZBhzYoUQmpvpkERQ3MroOeSZNpKDDFG8d3FQyRPxpA8F9im4bMqivIAw4ET0aeP34yWK0tD6h - jailHWsLztK/Zz3ljFmO9bQfnM77S9ozlLq8T5zKLZXqHeB9IEV3hZWGED0acNypPQNbcxuq6mwqlbU2 - 7EswopJzuS/RRDtbvogSNlQQvBEZTHdoA2oiQ82opnu4zptRRLyBld4geDfsdCZwc9wReloYkITaJ5aE - 2oUraqSxvYcMNDn1qc7U1Ntox2xCUWQ0bq9ZhdtpJ1BbbxUm2MyZvBKkT3dbe8vDvapw3lxf0uRzoZdi - wGlb0ElYm1vF5B0Fw+P0qCTRihoWkgww2li9mjPmBhv+TkpCRXQYmovPo2SzJ24kp6DG3Egr0ojzEYfw - MMSfxnLw+EAoDHNm7SDdvoqBIVt3Z4n9nQXDaXIW0MbmIYxjTJ6UU1QIFeQiNFoix3gTV9wXwpqfCkvK - Ltj0ybiydgUyA7TQ74vD3V1+aDZlwHI0EJasGFz5ZU4t6dorBpw3B+roHGgVv+ax/Kse11gRFp0n+oJq - KyHVQw7m4hHlj0TNSsvdhOLEI7i8dD4aUkNgjvFFU3YCLi5bhNs7fGAzpqI+zlfU9TMmY8/oMatIt59i - YOjGgAxxmPBkPLEiGky/TvS5TsLCABF8QDEg9flxVddakPZbCAyzp6I2Zjuqwz1h0e1HY2YUasK9UK1d - hzMTx2P78JGrSXMgob4Dzt6/pwsDyi/iyJMHHaRnJkSoX8WQKMWgqByUc5/GyrlG42wix1iK3LBInJs8 - EZXBq1HuO59YIKLu6y+x3nmYJ+nxoaR+F3Bz8vRLfXStpIyWks51gt/qGrMNBw4XqLmAxyhG0fcDx2qG - 3nSOtfQi6gtvomB/DIzz56DMdxHurZ6ukj97GgLGfrae9PhQ6mTAfsb8nTM9PBMqNesPQ7M+CRqvJHgw - nolYQixeJ7M2AYtk3NfEq2wJzEBy+kXEeO1EzuwZeBi4BrcWTMSthTKU3/ddgvPT3OD33sfqKigGeGPg - Z8I7FW8Wb8q89QyGdWHEOpd3N5+a9AP+8XHHjVnjUUIkvuOKpDGjRc7c+fVnZE2cAB/X973oHvW/QPks - 50/y5/0s74pzmMsH5tKlM1H841e4NmkcEka5QNNn8EZN30E+CaNGonjyOMH1ud8j1PVDM93jpBjgxiZe - BnvvoSODUz/9BKYJnyPeZQSW93Pg580noOPS/o7e8SNdYfruCxwb+xHWObuGUX2QMMB/XhZqvIKOqx2G - B/s5udYuk8T5A4TrYkwzYIg3jdWtdHg7lPrOXBf3dp3sRZAbC/G7xMeu+gkuN2WMhTt9G3ab7FXTY/HV - Abt/AdNi8c+D1tVWAAAAAElFTkSuQmCC + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMoCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRGVsZXRlVGFibGUiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcg + MCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5CbGFja3tmaWxsOiM3MjcyNzI7 + fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5zdDB7b3BhY2l0eTow + LjU7fQo8L3N0eWxlPg0KICA8cGF0aCBkPSJNOCw4SDBWMmg4Vjh6IE0xOCwyaC04djZoOFYyeiBNMjgs + MmgtOHY2aDhWMnoiIGNsYXNzPSJCbHVlIiAvPg0KICA8ZyBjbGFzcz0ic3QwIj4NCiAgICA8cGF0aCBk + PSJNOCwxNkgwdi02aDhWMTZ6IE0xOCwxMGgtOHY2aDhWMTB6IE0yOCwxMGgtOHY2aDhWMTB6IE04LDE4 + SDB2Nmg4VjE4eiBNMTgsMThoLTh2Nmg4VjE4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQogIDxw + b2x5Z29uIHBvaW50cz0iMzIsMjAgMzAsMTggMjYsMjIgMjIsMTggMjAsMjAgMjQsMjQgMjAsMjggMjIs + MzAgMjYsMjYgMzAsMzAgMzIsMjggMjgsMjQgIiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw== Speichern - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAFhJREFUOE9j - +P//P0UYTEzOWr8XiP+DMJQPZqNjNLm9ID7MAFyKUMTQ5UB8+hgAw9jUYjUAH0ZXiyFICqa+ASA2MXjU - ADwGkIqRDdiOLkkE3g43gHz8nwEAvq7TCya3G6wAAAAASUVORK5CYII= - - - + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAQ1JREFUWEft - l9EJwzAMRLNZoF+Zpet0kM7RPQIZw9WJ2JyF5CbQOATy8cCVjqcjfx1SSqfiDnviDntS/Xg936PwERKB - OcO7JquTZ3CPfNMWWCic4eNW2GR12vnCN20BGwZ8PMoA3bMncmKeKQ/ghQUVE14G6J49kRPzTHkALyyo - mPAyQPfsiZyYZ8oDeGFBxYSXAbpnT+TEPFMewAsLKia8DNA9eyIn5pnyAF5YUDHhZVwiZ74HLlmgCfsi - J+9/ho+Ab94FWgUeAma7YB954dpdoBJvhX2M7O4Cd4G7wPUKTEIl3wL7yAvX7gKHwTdtgdmGD2Dmm7YA - PpX33+BfwD3xzarAGbjDnrjDfqThC1oLalOREus2AAAAAElFTkSuQmCC + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 + bGU+DQogIDxwYXRoIGQ9Ik0yNyw0aC0zdjEwSDhWNEg1QzQuNCw0LDQsNC40LDQsNXYyMmMwLDAuNiww + LjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjVDMjgsNC40LDI3LjYsNCwyNyw0eiBNMjQsMjRIOHYt + NiAgaDE2VjI0eiBNMTAsNHY4aDEwVjRIMTB6IE0xNCwxMGgtMlY2aDJWMTB6IiBjbGFzcz0iQmxhY2si + IC8+DQo8L3N2Zz4L Hinzufügen - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAEFkZDtQbHVzO0JhcnM7UmliYm9u - O5UGMy8AAABgSURBVDhP3YxRCoAwDEN3QS/lqbxdtNKUTDJEHAh+vNGl6WsAXmFDsqwbkphtx4bkR4Kc - bceGRAUjzofFp0wVFPEnWrzk1e0CJfMS6I7ME4w4Sp1Ad8SGhII4/kZwD9oOmV+r+RzWkL4AAAAASUVO - RK5CYII= - - - + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAEFkZDtQbHVzO0JhcnM7UmliYm9u - O5UGMy8AAACPSURBVFhH7c5RCoQwDEVRN+imXJW7i82HIOlFHhKiSD4Owp1p+xYzexXGShgrYayEsRJG - xbrtdhV/V2FU9IAe0AP+PSBeniW+46bg6HCG+I6bgqPDGeI7bgqODmeI77gpqJTLFRgVNGB8b13PnzAq - xoXfG/AERkUPoAHji/+9g1HRA7JgrISxEsZKGOvYcgB55Y6E3tOuXgAAAABJRU5ErkJggg== + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0 + QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0 + LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N + Cjwvc3ZnPgs= @@ -3344,31 +2958,28 @@ - File-Tabelle leeren + Alle Workflows leeren - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAvdEVYdFRpdGxlAERCO1NvdXJjZTtTdG9yO2RhdGFz - b3VyY2U7RGF0YWJhc2U7RGVsZXRlHRRPyAAAAMdJREFUOE+t07ENwjAQBVDXiIJFaBIpBXUKWIGCBskD - sAktSssiiJqakglcsMDxf8RJ5hQnh6B4khPf/SRnJYhISNcDLWALJ7jBM8Nr3uc+6/o+0oAKziAOrKts - QJcVeHQ2IJmCKenvAT9/QgPfDLGxARE2YI/xCNxXa1hxbQM4gweweQdLmEO479sIArU2cf2+FzWgNAMW - s1CxUZt7GlCaQf60IbUGlGZwMa/80cy9qRnMvAFjM3B9Qulncg+Rhn5nBowcYxtfxle+mpcSDwQAAAAA - SUVORK5CYII= - + + Löscht die Workflowdaten bis zum Resync - + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAvdEVYdFRpdGxlAERCO1NvdXJjZTtTdG9yO2RhdGFz - b3VyY2U7RGF0YWJhc2U7RGVsZXRlHRRPyAAAAalJREFUWEfVlbFKA0EURS0s7AQ7/0DEwsoPkEg64z/Y - WIoghoCBCDaWdv6JYGNhK5IuP6FNhBRCxnvCTEjeDJrsDFlSHFje3Hfvg903u+Gcq5VkcZUki6skKny9 - Xc2yLY7FpXgSL2IgPsWPh2dqnKFBSw+9Uy+bE4gKvuFA3Ip34SpCLx54RTmBqCBxS/RFyrQKeLVsTiAq - +IaUUQ59mxOIChIPTXMJhjYnEBUkHpnmEoxsTiAqIDbNJVhqgNpfQe0fYe1r2BanotRFhFfb5gSigsR8 - Ax+iJxqi6lVMLx54VV7Db/EqHsWFOBF7YkdsenimxhkatPTQG3zWaw3HprkEY5sTiAoSr/0aPouHGVa6 - hoRvDc4bTXHt/fbF3BpyhobnuXCQOGcNz3z4SDhx4z3vgj81f4ammRogZw2PZNrxAYHJEMCzOev8N8Cy - 3Pugrgki2IZ30aYGyP0b9vAhwATOMgmH1AAl1vCvIabhMBcOai7xN8waAHL+htmvILArDgWruPAa4kGA - CVz8I8xFxnlrmItMo4vInIch0hdRCTAWk6s4BWdonHMbvwRosIKKoCkYAAAAAElFTkSuQmCC + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMoCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRGVsZXRlVGFibGUiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcg + MCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5CbGFja3tmaWxsOiM3MjcyNzI7 + fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5zdDB7b3BhY2l0eTow + LjU7fQo8L3N0eWxlPg0KICA8cGF0aCBkPSJNOCw4SDBWMmg4Vjh6IE0xOCwyaC04djZoOFYyeiBNMjgs + MmgtOHY2aDhWMnoiIGNsYXNzPSJCbHVlIiAvPg0KICA8ZyBjbGFzcz0ic3QwIj4NCiAgICA8cGF0aCBk + PSJNOCwxNkgwdi02aDhWMTZ6IE0xOCwxMGgtOHY2aDhWMTB6IE0yOCwxMGgtOHY2aDhWMTB6IE04LDE4 + SDB2Nmg4VjE4eiBNMTgsMThoLTh2Nmg4VjE4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQogIDxw + b2x5Z29uIHBvaW50cz0iMzIsMjAgMzAsMTggMjYsMjIgMjIsMTggMjAsMjAgMjQsMjQgMjAsMjggMjIs + MzAgMjYsMjYgMzAsMzAgMzIsMjggMjgsMjQgIiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw== @@ -3639,199 +3250,190 @@ Aktualisieren - + - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA1dEVYdFRpdGxlAEFycm93O1JlY3VycmVuY2U7UmVm - cmVzaDtVcGRhdGU7UmVsb2FkO0V4Y2hhbmdlhrRdSAAAALlJREFUOE+lksENgzAMRVkEdQhOSJmnZyZg - pt56ZIwee2cJ93/LRiQ4kIpID4y//RXidCJyizD5D1uQUnJ6MIE3WA3GzFHzujkyGMELSAVqrJn5XRrQ - 3ZsX8AQPgzFz1D72Phhwi948eN40MoAv0GZCTQtqqzDQbe/ZDK6Imgk1LziIQE/5Cn1EzSAvDFbNgAfF - A8sMLOeTmDxfGviIzsbIUfeRAbfdepG0b2+g/2w0XeXM4A5hsh3pfngbEtI9NQFmAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA1dEVYdFRpdGxlAEFycm93O1JlY3VycmVuY2U7UmVm - cmVzaDtVcGRhdGU7UmVsb2FkO0V4Y2hhbmdlhrRdSAAAAbFJREFUWEfFljFOw0AQRXMAJK6TwtwkJ6Ak - TWhyDk5BlQJuQscRqJDozH/W2poZj2MLm03xJO/4//mOd7PeXdu2NyUt1iQt1iQt1mRUaJrmGntxEq/i - Q3wXuKbGPTSZtyPmjQqZSTyIF/El2hnQoMWT9TrbPBcOieFR8AuzsGvgwWt7nYVilj/As/gRWcAS8NJj - CAeb58KhiIGnz8LfxZNgru8LXFPjXtTT42JrNs+FgwTA/MXX/imO4i56erhXNGit12E9rgFIACwia6Lh - IWoj0vQcisf2GLAe1wAk4HXG1X6MugzpLG/C9hiwHtcAJOC/bA3M6+Rrt0jXMyy4DOtxDdai5rPhYD2u - wVrUfDYcrMc1uAVpsSZukL2uBLeXr8UNkrAIc+w8a3GDEBbpwsF6ppCOXTFuzaeoc4MgtrCpdOFgPVNI - x5Zse7C57aPODYLB0m3FYtEDFG3citneR1o3CIYIDf/6MeLD1h1QoscNjAH4hG71OR4OJjYP3KAYoF9w - Wx5IFj/AsNoLWx7JXB64gQQxvGezQ6nNg1EhMxmY6/89ltcmLdYkLdYkLdaj3f0Cj5M+ApfcyL4AAAAA - SUVORK5CYII= + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlZnJlc2hfMV8iPg0KICAgIDxwYXRoIGQ9Ik0yNC41 + LDcuNUMyMi4zLDUuMywxOS4zLDQsMTYsNEMxMC4xLDQsNS4xLDguMyw0LjIsMTRoNC4xYzAuOS0zLjQs + NC02LDcuNy02YzIuMiwwLDQuMiwwLjksNS42LDIuNEwxOCwxNCAgIGg1LjdoNC4xSDI4VjRMMjQuNSw3 + LjV6IiBjbGFzcz0iR3JlZW4iIC8+DQogICAgPHBhdGggZD0iTTE2LjIsMjRjLTIuMiwwLTQuMi0wLjkt + NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz + LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj + bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= Hinzufügen - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAEFkZDtQbHVzO0JhcnM7UmliYm9u - O5UGMy8AAABgSURBVDhP3YxRCoAwDEN3QS/lqbxdtNKUTDJEHAh+vNGl6WsAXmFDsqwbkphtx4bkR4Kc - bceGRAUjzofFp0wVFPEnWrzk1e0CJfMS6I7ME4w4Sp1Ad8SGhII4/kZwD9oOmV+r+RzWkL4AAAAASUVO - RK5CYII= - - - + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAEFkZDtQbHVzO0JhcnM7UmliYm9u - O5UGMy8AAACPSURBVFhH7c5RCoQwDEVRN+imXJW7i82HIOlFHhKiSD4Owp1p+xYzexXGShgrYayEsRJG - xbrtdhV/V2FU9IAe0AP+PSBeniW+46bg6HCG+I6bgqPDGeI7bgqODmeI77gpqJTLFRgVNGB8b13PnzAq - xoXfG/AERkUPoAHji/+9g1HRA7JgrISxEsZKGOvYcgB55Y6E3tOuXgAAAABJRU5ErkJggg== + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0 + QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0 + LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N + Cjwvc3ZnPgs= Löschen - + - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACV0RVh0VGl0 - bGUAUmVtb3ZlUGl2b3RGaWVsZDtEZWxldGU7UmVtb3ZlO3aMxpEAAAIdSURBVDhPhZJbSFRRGIUPRVMK - FZQGaghqDYWQNTVETTShSDAVQU1FMUGCTIRoF7KHsgt0Y6CLpRUm9iLUSzISBNGDJEfp8lBBJDSFUVIT - UhRS0Ntqf5s9Mk+24YPFv9ba55z5x3NnuiHwfuuGQUC7We5M6SNmjWyO+uNdVwRoZs77n+8FXsfW+9nO - lP6+HLCgmRmvEKbweROvYLBuTffnVJsm0rc00depP36/xq5d0NP6yDCgmeGRIWs6d+hyAa9SlF4Xbs+0 - NupH10n97E3p98A9jV46ZUEzwyNDlo7rejMMcwwld1evuP62OaHxq6363n1Gv9IdFjQzPDJkXYeuN83A - t8w1lPWEajpeJXfq67kmZS+2WNDM8Mi4LB269iD4nqLelaFnL5K7NHa8UZ+O7LWgmeGRcdnJMod1FPbU - LB963pRQNtWijwd368P+7RY0MzwyZF3HHrvnG9XL/KGGuL6dTmr0QFyZfVv0eGPUgmaGR4YsHdf1ApeD - 1f6THZv05dAeZRIxjcTr9LA2ohMVwZuAZoZHhiwdulxQcLZyyYNH9VG921arN7GI+teGdax8MT9YBaCZ - 4ZEhe75y6TBde4Gh+OjCRbf7wiHdXxXS4bIqVlVqmO8oZYZHpq08yI+5wGAv4DXs/6C5pKod0AZWxXcC - Ot/n8twq7TpmGmYbeNo8p3N7BnTOBx5IZ3IThPhXMQR0/p7zfd7I+Z73DxkXTSgd4+4eAAAAAElFTkSu - QmCC + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD0DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4N + CiAgICA8Zz4NCiAgICAgIDxwYXRoIGQ9Ik0xOC44LDE2bDYuOS02LjljMC40LTAuNCwwLjQtMSwwLTEu + NGwtMS40LTEuNGMtMC40LTAuNC0xLTAuNC0xLjQsMEwxNiwxMy4yTDkuMSw2LjNjLTAuNC0wLjQtMS0w + LjQtMS40LDAgICAgTDYuMyw3LjdjLTAuNCwwLjQtMC40LDEsMCwxLjRsNi45LDYuOWwtNi45LDYuOWMt + MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks + Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44 + LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs= - + + Speichern + + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACV0RVh0VGl0 - bGUAUmVtb3ZlUGl2b3RGaWVsZDtEZWxldGU7UmVtb3ZlO3aMxpEAAAQdSURBVFhHxZZvTJVlGMa1Te2L - a6svQXMOQlrmAEVRSTgbkn+mNNHAaVD+O2viIiiHiZmV9eJJm6fXofmntvyQSzZlq2mtjc2Za7NhWBYp - mYxEkGBYWevb3fN7es7Bw3nOe97zRa/t2u7nvu/rum99n/O+jBGRe0pr8m5yJLBjrOJ9hsR+kVTnZwHE - 4zrLAjshscklgy9dsgUQjP9habEzeGivQGJyppYIvnVeC2iTjiXFzsD+d+XfC22axOSomZ7RSEmXaAFt - 0r64yLnZHJJ/zn0mf508oElMjho9pjeClHW2Bbgs484vnOf07WuSv8+2yh/H35fhD9/UJCZHjR7VGzHT - w1PQcSfG2hbAaMLZ0sLQ9dBWufVpWIYObpehA43/U8W3Ptkjt8+0SK+7U849Vdik+u+HxOSo0ROnU154 - 4s0MZiVcQPHBU4GC8K8NQRlsbpRBd8sI1Xn4aEhutx2TnvAb0lYyJwSJyVGzafDCE28zw7qAfgSKExXT - WufNdLvq18hAuEEG3ntlhOo89NHb8udXH8u1Pds0icnZevHAC0/jnfARAP08FR9QTG8pzHc7a6vk5u56 - 6d9VGyXn3w+9LsMnXU1iWw9aPPAynp6XMIKYJY7NnuFeqlklfe9skhtvbYyScz9DFW01NGjxMF7R4cBr - ARCzxNFZeW5HsFJ6d7wg118LepIeetGgNR4xw0GyBUDMEkdm5O5rX7tcftu6Tnoa1lhJjR560Rht3HDg - ZwGAkJ/aQwfzcsLfBiuk59W10l232kpq9NCLxmjjhoOUFjiclxtqf+k5/by765+VqxsrrKRGD71o0BqP - OPhZAOH4D3Jyms7XrFa3uk66X66SX4LLpWv9Miup0UMvGrR4GK8YJFtAD2+eluN8s6FS+tXNvrapUq48 - XyaXq5d4kh560aDFAy/jGYXXAnr43senOV9Xl0tf4zq5umGZ/LxqkXSuXBAl5y9LizRtNTRo8cALT+Ot - kWgBPXx39hPOmZVlcqO+Srqql8pPK0rlx/KSKDmfnl8k2zOz90NiWw9aPPDCE28zw7qAfhU7WVOdtvJF - 0ltTIVfUv+bS08Xqj4qiKDl/Hpgr2zKy+allQGJytl488MITb2Ywy7YAm03YkfFY6IsFAbn8zHz5fnGh - XFw4N0rOrU8WyJbJUyIvGX5qMJ0cNZsGLzzxZoai99ewYVJW+MScmXKxtEA6SmZpEp+YnS+bJ2Xd+YbT - n2MTp1OjJ06nvPBUPf6/hnWPPOq25E+X7wL5msTkVG30G07fG5NL99Cl/jWsTct0j0/PFUhMztRibrRC - yrpEC4A7zdJefDgzDIlNbvTwCFLSeS0AImb8l/HcIHGi4RH41iVbACDgeXFpILHX8Ah86fwsALiYiCGx - XyTVxS1wr2hN3j3KmP8AEPJiSeQUIA4AAAAASUVORK5CYII= + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 + bGU+DQogIDxwYXRoIGQ9Ik0yNyw0aC0zdjEwSDhWNEg1QzQuNCw0LDQsNC40LDQsNXYyMmMwLDAuNiww + LjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjVDMjgsNC40LDI3LjYsNCwyNyw0eiBNMjQsMjRIOHYt + NiAgaDE2VjI0eiBNMTAsNHY4aDEwVjRIMTB6IE0xNCwxMGgtMlY2aDJWMTB6IiBjbGFzcz0iQmxhY2si + IC8+DQo8L3N2Zz4L - - Speichern + + Abbrechen - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAFhJREFUOE9j - +P//P0UYTEzOWr8XiP+DMJQPZqNjNLm9ID7MAFyKUMTQ5UB8+hgAw9jUYjUAH0ZXiyFICqa+ASA2MXjU - ADwGkIqRDdiOLkkE3g43gHz8nwEAvq7TCya3G6wAAAAASUVORK5CYII= + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy + cztSaWJib247TJaWsgAAAMxJREFUOE+lk8ENwjAQBCmFQvxOWUj8SRX0AeKVdiJRANxYbLQ5LpEQj1Hw + +nblO5tDay0zBGMwBfMHfqOxt6r3xTG4BM/gtQF71FC7CkC4BpWpgtoeogBSveCR1pWGpwfQlx/7HKDz + 3dPwDIgMR+I9QBMYZBbUqH5EYMIS4BS4wWHPaydErslFqEKyGeatgHxs8P5FD8gtVGaRQ3oLe0Pk2Lmd + ryHma5TBe6605RohP6RbWlfa8pDg76esEFK9nQx71HQzeID44e/cDm/PqEtwFbYenQAAAABJRU5ErkJg + gg== - + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAQ1JREFUWEft - l9EJwzAMRLNZoF+Zpet0kM7RPQIZw9WJ2JyF5CbQOATy8cCVjqcjfx1SSqfiDnviDntS/Xg936PwERKB - OcO7JquTZ3CPfNMWWCic4eNW2GR12vnCN20BGwZ8PMoA3bMncmKeKQ/ghQUVE14G6J49kRPzTHkALyyo - mPAyQPfsiZyYZ8oDeGFBxYSXAbpnT+TEPFMewAsLKia8DNA9eyIn5pnyAF5YUDHhZVwiZ74HLlmgCfsi - J+9/ho+Ab94FWgUeAma7YB954dpdoBJvhX2M7O4Cd4G7wPUKTEIl3wL7yAvX7gKHwTdtgdmGD2Dmm7YA - PpX33+BfwD3xzarAGbjDnrjDfqThC1oLalOREus2AAAAAElFTkSuQmCC + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy + cztSaWJib247TJaWsgAAAWZJREFUWEfNlzFSAzEMRXOCVBxnC6jocgYOwBmYocttaFNyBwq6dFwhrdHL + RDu75turZUJE8SYZW/r6sWXvZlNKSUUO3pLxyzAMS2yNnbE3DsbROF3gO2PMEUOs0hhZY+DOeDbejRKE + WHLIVZphA4/Gm6GKRCAXjR/aEQNPxqehhNeABloz/SUDJHwZSvA3oDUz0TPAkl3jl9egOW5HywBN09vz + DzFW04tB+9yYLQN0rkqEV4MYPtU8RGKoIQ1wdltHzYUdVSASA9TYKgNcICqBJZ0KO9MCdXGntR07ZYBb + TAXDi1GLw8MFNUeO0oK9MsBVqoKdlglFrzgclAHucxU8JWJiqTgclQEeKiq45t6oizrMqZya0780kL4F + 6U2YfgzTL6L0qxhSH0aQ/jiG1BcSJ/WVzCHhGiuBxqw4RAwAS9briSXIHZd9StQA0DR0buuIKogl59xw + ijUGnL/9a5aFHLwdZfMNDdjaS8JHZRQAAAAASUVORK5CYII= - - Abbrechen + + SQL Overview - + + öffnet den SQL Designer für den WorkflowOverview + + - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACN0RVh0VGl0 - bGUAQ2FuY2VsO1N0b3A7RXhpdDtCYXJzO1JpYmJvbjtMlpayAAADmklEQVQ4TyWTf1CTdRzHvwim2KS6 - 0k5iXWAbIg6GbG2gHmPGhMEs+CMsT70yE1BGx3F5kCReFE7uNAMu7og6MBFk/LCEOZ15WUkXw8aAcgsE - +SHC9mzABtuR3rvv8/C9ez33vs/n834/3+9zz5d4TK3Ec7uDeO9cJXQF/pZ7RGQrKqh6cKLQMl5c9ISF - 1X8XamsMHxwU05kgSoDHpCcLxhZCA/SsMYCy2qrNKx799BP/7Ldfw93eAM/tTngp7vZGzNRXYezkCb/5 - 2NFSOruWsooLoCtAK5fxho7nmcYryuC51Y757ouY66iHq6UGruYauNvqMPdTI+jLMHH2cwwcz/1FEyl8 - gQ1hA4LMHx7+ZrS8lBovwVKUj7pwEYyZmXA2noOz4RxuZmVxNUvhMS5o7Msy/HH4/cvUu5Z0ZmVKrbk5 - Txj9d7hXkIMG1TswdZvRnFOCbnUGDOkaTpu6ermeOf8juK7UwZqf97Q+NTWJmDI0tSNfnMTj2grU8aPw - wD4Fh2sJ9lEGLdrTHPepnnZ6MWyb4mamq8sxcroEhrR0Pbm5Rz1sP/ouRrT7cUPzFv7UnYd36T84532w - PWRgG2MwO+fDwuIy1zNq9mI4Lxu2I9m4oUp7SK4rVMv/ZKdg6O0dsB+iW969Gz26C5hx+zBDd/LYTWF8 - +L3iKxiUStw/kIbBjAQMZiXBoEhZJlflScuW1DcwoJZhaG8irkm2w3jqLN3yEh45FzHl8FKWcL1Uh2vx - 2zGQLod1jxT9KglYL2kSy8d6lSuFrthtaPu4DAP/OjA56wWz4AMz78f4jBf99lnoC06hKyYaljfj0KsQ - oylWNkVqheLvTTtksCjFuBQuhHPaiUnHIlwLfvRfqOZYCfHA8cjJzfyVFIOfEyWoFsR2kqLQiF0Xo+Ke - mnduw12lHLcOHIKfYXBPVwmjLJ4i4TRbY3t3k2XoS4zGD1vEyH/5NTX7IwVXviK8fCVyKyzJsehJlqJV - GAmTLI5+Fzl3ZlaztR6FFBZFDPSRUTizScBenvVswKqta9ZtqNy4ua8pQgDzLhE1JaA/RYK+hCjKFnrm - eAyqE9C3U4TmzQKc2RhhFa15lk+9gWSi4D02JDD+Gd6msuf4LVUbwtEuiMAd8evoldJAyq9Ud9BaNe19 - 9jz/x+jVwa9ST9C4dh8h7IMTKxeDd3DdS6oSXmhreUjYhC6ED11IGMrXh00W80Lb9ge/qKEzIZTAFd8+ - 8j91kUbX3K/WKgAAAABJRU5ErkJggg== + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAedEVYdFRpdGxlAEdyaWQ7Q2FyZDtDdXN0b21pemVH + cmlkO8HjGUYAAACuSURBVDhPzZIxDoMwDEWRegFuwBlQlC3qjHqV7sy9Qa8bqVLNf1FEM0BKytLhxfjL + 3zaBzsxOsSm2sCm2kI4QgpW0aH/S4AzpULdHSaFNohc359woovf+So5+pEEvk4lZ3MU7R3KVfW/AZIpf + GArI57XBHipibSZieoohR3L0MRWW0yFrrB8Fa2PATFMiOXqsNZi4MBX9vAHP1TsQl/V998iG+lc4ggzp + PyB+dOsWwxoaxlnf3YgAAAAASUVORK5CYII= - + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAedEVYdFRpdGxlAEdyaWQ7Q2FyZDtDdXN0b21pemVH + cmlkO8HjGUYAAAFASURBVFhH7ZU9TgMxEIVzjChKgZC2oYmiFaQEcQfOAzVH4V70qWnM+yI/ZMMo/Nja + FdIWn2SP3848r2e9q5TSrITBKQmDUxIGp6SajOOYztFTYxYDi4HKwBxUE7l7OkdPjVkMLAYqA3NQTSK3 + Jb/U3IljhnGlMb0MPIhrccga5jfClw9jYnAQa9fsZYDiFHoRe3EpnsVbhvGFuBVo0J5M9DLArpz4J6Dd + 9DTAq70XUbGIvWtWBlpQ0m1R4FU8iqsMY2Je3/q5z0mi3X0QaNg5HU6Tcc4uQEG0JcS8jnYnhlYDNBaf + GUlpNhdg12VxIOZ1a4//3sDsR2Aw0t6ELSgpF5ALfEffz1AJN6L9IvorSrYuEvMmOA7OmWYDxsRYs9Gv + V3ELJBSnXeU5TeYd74o4byv+GfVERQbh3/EQaVJKq3fN1wu3lMNUvgAAAABJRU5ErkJggg== + + + + SQL Profilansicht + + + Öffnet den SQL_Editor für die SQL Profilansicht + + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACN0RVh0VGl0 - bGUAQ2FuY2VsO1N0b3A7RXhpdDtCYXJzO1JpYmJvbjtMlpayAAALFUlEQVRYR5WXB1RVxxaGx/dSfEGM - xq50BUUEC1goAtJBwYZiiRpFDREJNkBApVgQE7FjJMYSg6KiXlBRNNJEqQIXROBSlM6lKqLI1bf+7DkX - iHkr67319lrfmrlzZvb/zz5zDgdWsz+Y2C0n9G+g8Wpqq0M4wYyiz3/jRYA/ex7gxyp2+rLnRIW/Nyv3 - 9WLl271Ymc9WVuq9hUm2bWaSrZ40naJmXxD7d+vzbl6wD38DRY/AP4h/Ep8Qn/4HfIzDr/N5fd7XP2Pv - 6wvZ+zrOU/a+poDJasRMVp3Hijw9aApF1d4A9qGlnKj4K2SIokdYEM302jyleIdvcOku/0dlu/xyKgL8 - PpTv9P0g8ffOlfh6P8732rwnYcN6A5r7GZ9PyI0I4vm94rKqXFa4cQNdoqgM3sk+NJcRZOIjKHp2/Kl4 - +7bFJCip/DEEzbFX0CFOxdtnmaB5RBneFKbjdU4yGq9HomJvIJ5t2yxJc3dbTms/JwQjMm6gSi4uq3zC - 8r9zo2GKil1+7H2jpJtSoaUQdp3g7ja6xH97ek34EXTkpeJ9fRE6i9LQkX4Xr1Nv4uXdi3h55ze0J91A - e0oM3oqTIKvOR3t2IirC9kPs4Z55dsH8cZSLV0SoRteLbNb1PIvlrVtLPynK/Lez9w3FvVBw8U/SPT2s - JTu2t7beE6HrRR5eP75NYpFy4i6g7TZx6zzaYs+iVXQGrddPoyX6FFqunsTL+IvoLE6DNCYK+R7urTFL - lzhQTl4NuYnSNJa9ejV1KSQ+2+jePGWy2kL+UxBP3fCdjWSXf1d7ViLeZP8uF7opp/XmObTFnCVI9MYv - JPwzWq9FkPBPaL58As0Xj6Hpt8NoPB+G9oRotD2MQ66Hu+y688JeE53FqSxzxUqux1jRZk/WVZnHu0LZ - Rd+sGFfos625PfMBXlGCFi5C8FaABFu4YDQXpR1fOUnC4Wi+dBxNkUfQeOEQGs/9iMYzByD9OUSoSmtS - LDJcXVuOWVvrkoZwOx4vXcY1GROvWc26yrN5l5fnszyPjY+lsVFUxig08+RXaGe9cLFuwSjaLRcVdtwj - fBCNZ3+A9HQoGiL2ouHkbtQdDyJjx1AdeRrJLkvTSaMfwQ8m3zBjWS5LeCOUPnntmuUlwbvQnixCY+RR - YWEPNREHEOc8F78aTMX9rxej4exBNP1KolTqehKMd5mP0xP0IHKwRmXYDtSfCEbd0QDUHt6B2oO+aKFz - kvX9Rlyyc+A3vy/BN8xYuvMi3vAfn2evXy9puh0F6YXDkJKA9FyYQE34PojsbXDNaxfuxDzE1fUeuDXX - AXWnQlD30z7EzLHF5bXuiBOl4IqnL6JMjFAR4oXaMD9U/+CD6tBtqD7gjdrIU4h3ml9GWv2J3ioIu79q - a28n3uJJTs9S4n2ojwgRaPh5P+4sdILINwipWWUoe96IotJ6XHPzxE1He9ycY0fiG5GUVoyisnqUPG+C - iIyKrC1QFeqFqpAtqNq9CS8CNwq5UletwrGphk6k2fNUCAY+i7ObfejZzm2o3O2JmqOBqKUScuqIy8ZG - qK9qQEV1C9rau9D2+h1KyhsEE5fXeSDxcTGKyVhz+zs0v+pEq7QFZ3QnomqPJ14EfY/nAe6o8P8W5d6u - yN26ERemmxwnTQWCv2EFF33jbR0eSXZ6osTVCcXfzkflnk2oObQDNYd3InHVMjzasROd72Rk4B1aXpEQ - tcXlUqTnVKC4ohFNLzsF+JwkLx/EzXeUC+9wQ+nWVXi2xglFaxxR6LMBUdNn8sPIb0OvgS/ireyaJd7r - ULjSDoVf26JwhR1K3JxR7u+G2vA9uLdoAdICAwUBQYx2ytvGj+jslOGhnx9i7a3xItQHpZtWoNh1npDr - 6XIbwhbFW1xx2cCkhTQHEvwcCC4UblvYyCQey1HgYo2CpdZ4uowvILiZVQ4o93ND3GwbJPv6Qdr2BlIS - lLa97aW+uQOJPr6IsTRD2Xa+EQdBkOfh+fJdLCFebIlidxdcmmwoI82vCP5XVDDQL3ampaxw9TyInWfR - RAvk02S+qGCJlTwBJbptaYob33rgqUQKaQsZaHmLBqKOqG3qwK0NmxBjaggxzS9YaoX8JfIcPF+eszny - Fpqh4Js5uKA7nRsY9BcDN4zMmnOW2CNvAU1cYEaTzckMsYgMLbLALXNDXKfH7/eUIhSUSlHXTKICHYJ4 - bdNbiIvrcdV1A64b6iOXC3IoV+4CU+TOm0mYIsvZGme19fkt6DXAz4DCJQOTx2lzrZBDE584mdBkDi2a - PxN3LY1xw+173E95hnzavVywA2/edqGDqGnsQHU3ec9qcW3tBsQYG1AuUzyZa4InjsbIdjQS8ibZmSFc - c2ImafaeAW7gX6f1ph29b2WObCdTZDvMQNYcQ2TPMaKFJG5qjDJJNcQl9YJYDYl3vOlCRlAA0gMDhH6V - tEOgsuE1aqukuKg/RVifNXsGMilfpt10ymmEWKPpCFXR/ok0//IUfL5XS9cpepoRMhwIm6nItJmGDLtp - yKKF8faWeHryBF51dFHp3wiCWcFBuGNjjjhrM8HIaxrjVeFz8o4ewc1ZJsL6TMqVYW2AdCt9pNlOx3nt - idg6TN2FNPl7gGvL34TEl2e09cvvG08RJqdb8nYKMqwMkLtsNuJIjJt429CArKBA3LWdhYKVjihY5Yg7 - 1qbICNyFNw31yDt2FCJTI+QstUcarU+zmIy0WZOQRvnipk7AYSVt/q03lOBvwj7s3Dh9auXvgj1q49dF - 6kxGqvkkPDKbiMfmBF9MhriJ+w6WiJ01Ew/mWCFvmYNgNIMQL7PHPXsLRBsbIs6K7jsd5jRLfSHHI1M9 - PJqphxQTPUSoa2PrYFV30uopfx/2i+ZkaoUq8BM54ISGbtYNPR2kGE9AqrEuUmlx6kxdPDKfjNzF9Diu - nIscZyukmZFJUy5AJqmfs5Ae1xWOyF1kTcKT8NBEvv6hkQ6SZ4xHlJYmQoeO4R8ef+6eR4SGHkuw4B+y - 8sO4ZrDSjHA1ndbYiVpImqotLE6ZoYOHhtQakjGj8ULSh0YTPoJf52N03VCb5vM12kiaPg6JBlq4Pk4D - YUNHty3oN8SUNPj3gHz3PMJVddj9GRMEKPhZ6Ld5iOrCcGVt2TXt0fh9iiYSp45FMpE4bRySiSQipbv9 - k7ECiZypWkgg7k3SwGVNVYQN1pC5Kg5fSrkHELzSfX4YqEYNxfFR2uzuZE0WR1D03Ir+7l8pLzo8XOtl - pIYabuuo4f5kDTyYMgYP9DUFEnoZgwQymSBcI6h/T08DN8er4LyKCkK/Un21WmEo//7ir17+OdZHNEGd - hfZXpS7FkRFjWSwNxOqo85/cQI8JxXn9Bk/bP0gjN3yEOqLUlRE7Vgm3KPE9XTVCHQ8mUoWIePodP0EN - cXRNpDUKkaqjcHSwCoL6K4tt+w4wolx854I455qWEtunqEJdirAhY5iIBq5rjWIizVF8qMcEvx38WR3i - 0X+k+76BapWHBqsiYoQSflMZSSIjET16OKI1hiNSZQQuKI/EqeGjcHCgMvYoKle5KQzj/3sNJxQJoeyc - K+oj2BX14WyvgjL9pPhxkAaLVh/Grml0Q32KHhP8sPATyx+bYcu+GOLorTjyRKCisjhYUaUkpL8KQhRp - p/2USgIUlMRbvxgR7tJ30FyaO4Lgu+bffnwjQr7LKkNYD3sVlGiI4sBAdXZggBoL5XypSi3B2/5CiT42 - wkvIK8ITDyH47kZ2w/v88eLvd37KueleYS72d/w/0WOEP6o8MS8pN8SFOLzPx/g1Pqdn/v8Ixv4AVZya - X9ttAMYAAAAASUVORK5CYII= + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFkEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iUGl2b3RfVGFibGVfT3B0aW9ucyIgc3R5bGU9ImVuYWJsZS1iYWNrZ3Jv + dW5kOm5ldyAwIDAgMzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDoj + MTE3N0Q3O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLnN0MHtvcGFjaXR5OjAuNTt9Cjwvc3R5bGU+ + DQogIDxnIGNsYXNzPSJzdDAiPg0KICAgIDxwYXRoIGQ9Ik0xMCwxMEg2VjZoNFYxMHogTTI0LDZIMTJ2 + NGgxMlY2eiBNMTAsMTJINnYxMmg0VjEyeiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCiAgPHBhdGgg + ZD0iTTE2LDI2SDRWNGgyMnYxMmMwLjcsMC4yLDEuNCwwLjUsMiwwLjhWM2MwLTAuNi0wLjQtMS0xLTFI + M0MyLjQsMiwyLDIuNCwyLDN2MjRjMCwwLjYsMC40LDEsMSwxaDEzLjggIEMxNi41LDI3LjQsMTYuMiwy + Ni43LDE2LDI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8cGF0aCBkPSJNMzIsMjV2LTJsLTIuMi0wLjRj + LTAuMi0wLjYtMC40LTEuMy0wLjgtMS44bDEuMy0xLjhsLTEuNC0xLjRsLTEuOCwxLjNjLTAuNS0wLjMt + MS4yLTAuNi0xLjgtMC43TDI1LDE2aC0yICBsLTAuNCwyLjJjLTAuNiwwLjItMS4zLDAuNC0xLjgsMC43 + bC0xLjgtMS4zbC0xLjQsMS40bDEuMywxLjhjLTAuMywwLjUtMC42LDEuMi0wLjgsMS44TDE2LDIzdjJs + Mi4yLDAuNGMwLjIsMC42LDAuNCwxLjMsMC44LDEuOCAgbC0xLjMsMS44bDEuNCwxLjRsMS44LTEuM2Mw + LjUsMC4zLDEuMiwwLjYsMS44LDAuN0wyMywzMmgybDAuNC0yLjJjMC42LTAuMiwxLjMtMC40LDEuOC0w + LjdsMS44LDEuM2wxLjQtMS40bC0xLjMtMS44ICBjMC4zLTAuNSwwLjYtMS4yLDAuOC0xLjhMMzIsMjV6 + IE0yNCwyNmMtMS4xLDAtMi0wLjktMi0yczAuOS0yLDItMmMxLjEsMCwyLDAuOSwyLDJTMjUuMSwyNiwy + NCwyNnoiIGNsYXNzPSJCbHVlIiAvPg0KPC9zdmc+Cw== 0, 0 + + Profil-Verwaltung + + + Finale Indexe + + + Grundeinstellungen + Menü Profil-Verwaltung @@ -3868,15 +3470,6 @@ 3 - - Profil-Verwaltung - - - Finale Indexe - - - Grundeinstellungen - RibbonPage2 @@ -4506,6 +4099,18 @@ DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarButtonItem20 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem21 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage1 diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index cc60b05..c5c43c8 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -50,11 +50,17 @@ Public Class frmAdministration End Try If IDB_ACTIVE = True Then IDBData.Init() - Label7.Text = "Datei-Suche (SQL):" + lblSearch.Text = "Datei-Suche (SQL):" btnWMopenSuche.Visible = False + SORT_BY_LATESTCheckBox.Visible = False + PRIORITYNumericUpDown.Visible = False + lblPriority.Visible = False Else - Label7.Text = "windream-Suche:" + lblSearch.Text = "windream-Suche:" btnWMopenSuche.Visible = True + SORT_BY_LATESTCheckBox.Visible = True + PRIORITYNumericUpDown.Visible = True + lblPriority.Visible = True End If ObjekttypenEintragen() Indexe_eintragen() @@ -429,7 +435,7 @@ Public Class frmAdministration Case 1 RibbonPageGroup1.Enabled = False - + RibbonPageGroup2.Enabled = False If PROFILGUIDTextBox.Text = String.Empty Then MsgBox("Kein Profil angelegt oder ausgeählt", MsgBoxStyle.Critical) Else @@ -915,10 +921,14 @@ Public Class frmAdministration End If propertyGrid.Refresh() - ElseIf e.ChangedItem.Label = "IndexName" Then - Dim type As Integer = FINALINDICES.GetIndexType(e.ChangedItem.Value, MyIndicies, MyIndicies_Types) - obj.VectorIndex = FINALINDICES.IsVectorIndex(type) - + Else + Dim lbl = e.ChangedItem.Label + If e.ChangedItem.Label = "Description" Then + obj.Description = e.ChangedItem.Value + ElseIf e.ChangedItem.Label = "IndexName" Then + Dim type As Integer = FINALINDICES.GetIndexType(e.ChangedItem.Value, MyIndicies, MyIndicies_Types) + obj.VectorIndex = FINALINDICES.IsVectorIndex(type) + End If propertyGrid.Refresh() End If End Sub @@ -964,32 +974,14 @@ Public Class frmAdministration 'wenn Speichern ja If result = MsgBoxResult.Yes Then Try - Dim copySuffix = "_COPY" - - While TBPM_PROFILETableAdapter.cmdProfileExists($"{NAMETextBox.Text}{copySuffix}") > 0 - copySuffix = copySuffix & "_COPY" - End While - - TBPM_PROFILETableAdapter.cmdInsert_Copy(copySuffix, USER_USERNAME, PROFILGUIDTextBox.Text) - Dim NewGUID As Integer = TBPM_PROFILETableAdapter.cmdMaxGuid - If NewGUID > 0 Then - Dim _sql = "INSERT INTO TBPM_PROFILE_CONTROLS " & - "(NAME, PROFIL_ID, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, READ_ONLY, " & - "LOAD_IDX_VALUE, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR) " & - "SELECT LOWER(CTRL_TYPE + CONVERT(VARCHAR(4),ROW_NUMBER() OVER (ORDER BY CTRL_TYPE))),@NEW_PROFIL_ID, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, '@User', INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, " & - "READ_ONLY, LOAD_IDX_VALUE, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR " & - "FROM TBPM_PROFILE_CONTROLS AS TBPM_PROFILE_CONTROLS_1 " & - "WHERE (PROFIL_ID = @Copy_profilId) " - _sql = _sql.Replace("@NEW_PROFIL_ID", NewGUID) - _sql = _sql.Replace("@User", USER_USERNAME) - _sql = _sql.Replace("@Copy_profilId", PROFILGUIDTextBox.Text) - - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CopyFinalIndex(NewGUID, USER_USERNAME, PROFILGUIDTextBox.Text) - 'TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertCopy(NewGUID, USER_USERNAME, PROFILGUIDTextBox.Text) - Execute_SQL(_sql) + Dim oEXECSQL As String = $"EXEC PRPM_COPY_PROFILE {PROFILGUIDTextBox.Text},'{USER_USERNAME}'" + If ClassDatabase.Execute_non_Query(oEXECSQL) = True Then MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich kopiert!", MsgBoxStyle.Information, "Erfolgsmeldung") Refresh_Profildaten() + Else + MsgBox("Error creating a profileCopy - Please check Your log!", MsgBoxStyle.Exclamation) End If + Catch ex As Exception LOGGER.Error(ex) MsgBox("Fehler bei Anlage Profilkopie:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:") @@ -1031,9 +1023,14 @@ Public Class frmAdministration End Sub Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick + Save_Profile + End Sub + Sub Save_Profile() Try Me.TBPM_PROFILEBindingSource.EndEdit() If DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges Is Nothing = False Then + CHANGED_WHOTextBox.Text = USER_USERNAME + Me.TBPM_PROFILEBindingSource.EndEdit() Me.TBPM_PROFILETableAdapter.Update(DD_DMSLiteDataSet.TBPM_PROFILE) tsbStaticInfo.Caption = $"ProfileData saved - {Now.ToLongTimeString}" @@ -1078,13 +1075,13 @@ Public Class frmAdministration Private Sub BarButtonItem13_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem13.ItemClick Try - Dim oSQL = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") + Dim oSQL = BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oSQL} Dim oResult = oForm.ShowDialog() If oResult = DialogResult.OK Then ClassDatabase.Execute_non_Query(String.Format("UPDATE TBPM_KONFIGURATION SET SQL_PROFILE_MAIN_VIEW = '{0}' WHERE GUID = 1", oForm.SQLCommand.Replace("'", "''"))) - CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") = oForm.SQLCommand + BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") = oForm.SQLCommand End If Catch ex As Exception MsgBox("Fehler beim Speichern: " & vbNewLine & vbNewLine & ex.Message) @@ -1144,6 +1141,7 @@ Public Class frmAdministration Dim preventDuplicates As Integer = IIf(obj.PreventDuplicates, 1, 0) Dim AllowAddNewValues As Integer = IIf(obj.AllowAddNewValues, 1, 0) Dim IF_VEKTOR_BEHAVIOUR As String = NotNull(obj.VectorBehaviour, String.Empty) + Dim oDescription As String = NotNull(obj.Description, String.Empty) If indexName = String.Empty Then MsgBox("We need an index!", MsgBoxStyle.Exclamation) @@ -1171,7 +1169,7 @@ Public Class frmAdministration End If Else Dim sql As String = $"UPDATE TBPM_PROFILE_FINAL_INDEXING - SET CONNECTION_ID = {connectionId}, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}', + SET CONNECTION_ID = {connectionId}, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}', DESCRIPTION = '{oDescription}', VALUE = '{value}', ACTIVE = {active}, ALLOW_NEW_VALUES = {AllowAddNewValues}, PREVENT_DUPLICATES = {preventDuplicates},IF_VEKTOR_BEHAVIOUR = '{IF_VEKTOR_BEHAVIOUR}' WHERE GUID = {guid}" @@ -1200,4 +1198,50 @@ Public Class frmAdministration Private Sub gridFinalIndex_MouseHover(sender As Object, e As EventArgs) Handles gridFinalIndex.MouseHover RibbonPageGroup2.Enabled = True End Sub + + Private Sub CHANGED_WHENLabel_Click(sender As Object, e As EventArgs) + + End Sub + + Private Sub BarButtonItem20_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem20.ItemClick + Try + Dim oSQL = BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") + CURRENT_DESIGN_TYPE = "SQL_OVERVIEW" + Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oSQL} + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + ClassDatabase.Execute_non_Query(String.Format("UPDATE TBPM_KONFIGURATION SET SQL_PROFILE_MAIN_VIEW = '{0}' WHERE GUID = 1", oForm.SQLCommand.Replace("'", "''"))) + BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") = oForm.SQLCommand + End If + Catch ex As Exception + MsgBox("Error in Saving SQL Overview: " & vbNewLine & vbNewLine & ex.Message) + LOGGER.Error(ex) + End Try + End Sub + + Private Sub BarButtonItem21_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem21.ItemClick + Try + profile_guid = PROFILGUIDTextBox.Text + CURRENT_ProfilGUID = PROFILGUIDTextBox.Text + CURRENT_DESIGN_TYPE = "SQL_PROFILE" + Dim oSQL = $"SELECT [SQL_VIEW] FROM TBPM_PROFILE WHERE GUID = {CURRENT_ProfilGUID}" + Dim oldSQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) + Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL} + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + If oldSQL <> oForm.SQLCommand Then + Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_VIEW = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}" + If ClassDatabase.Execute_non_Query(oUpdate) = True Then + tsbStaticInfo.Caption = $"Profile SQL saved - {Now.ToLongTimeString}" + End If + + End If + End If + Catch ex As Exception + MsgBox("Error in Saving Profile SQL: " & vbNewLine & vbNewLine & ex.Message) + LOGGER.Error(ex) + End Try + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmConnection.Designer.vb b/app/DD_PM_WINDREAM/frmConnection.Designer.vb index a086c1c..b8417e1 100644 --- a/app/DD_PM_WINDREAM/frmConnection.Designer.vb +++ b/app/DD_PM_WINDREAM/frmConnection.Designer.vb @@ -125,7 +125,7 @@ Partial Class frmConnection BEMERKUNGLabel.Name = "BEMERKUNGLabel" BEMERKUNGLabel.Size = New System.Drawing.Size(82, 16) BEMERKUNGLabel.TabIndex = 66 - BEMERKUNGLabel.Text = "Bermerkung:" + BEMERKUNGLabel.Text = "Bemerkung:" ' 'chkOR_ohne_TNS ' diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 935dffe..3c3f4ce 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -52,11 +52,12 @@ Public Class frmFormDesigner 'Windream Abfragen, sollten einmal beim Start des Formulars geladen werden Dim unsortedIndicies - Dim sortedIndicies + Dim sortedIndicies As List(Of String) If IDB_ACTIVE = False Then unsortedIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList() sortedIndicies = unsortedIndicies '.OrderBy(Function(index As String) index).ToList() + sortedIndicies = sortedIndicies.OrderBy(Function(index As String) index).ToList Else sortedIndicies = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE).ToList() End If @@ -1027,7 +1028,9 @@ Public Class frmFormDesigner CurrentControl.ForeColor = color Case "SQLCommand" UpdateSingleValue("SQL_UEBERPRUEFUNG", newValue) + UpdateSingleValue("CONNECTION_ID", CURRENT_CONN_ID) UpdateSingleValue("CHOICE_LIST", "") + Case "Enable_SQL" UpdateSingleValue("SQL_ENABLE", newValue) Case "Override_SQL" @@ -1037,6 +1040,7 @@ Public Class frmFormDesigner Case "ChoiceList" UpdateSingleValue("CHOICE_LIST", newValue) UpdateSingleValue("SQL_UEBERPRUEFUNG", "") + UpdateSingleValue("CONNECTION_ID", "NULL") Case "MultiSelect" UpdateSingleValue("MULTISELECT", IIf(newValue = True, 1, 0)) @@ -1082,9 +1086,9 @@ Public Class frmFormDesigner Catch ex As Exception LOGGER.Error(ex) - Dim msg = $"UpdateImage - Error while saving Control (Id: {CURRENT_CONTROL_ID}): {vbCrLf}{ex.Message}" - MsgBox(msg) - LOGGER.Info(msg) + Dim oMsg = $"UpdateImage - Error while saving Control (Id: {CURRENT_CONTROL_ID}): {vbCrLf}{ex.Message}" + MsgBox(oMsg) + LOGGER.Info(oMsg) Return False End Try End Function @@ -1115,9 +1119,9 @@ Public Class frmFormDesigner Catch ex As Exception LOGGER.Error(ex) - Dim msg = $"UpdateSingleValue - Fehler beim Speichern von Control (Id: {guid}, column: {columnName}): {vbCrLf}{ex.Message}" - MsgBox(msg) - LOGGER.Info(msg) + Dim oMsg = $"UpdateSingleValue - Fehler beim Speichern von Control (Id: {guid}, column: {columnName}): {vbCrLf}{ex.Message}" + MsgBox(oMsg) + LOGGER.Info(oMsg) Return False End Try End Function @@ -1134,8 +1138,8 @@ Public Class frmFormDesigner LoadControls() End If Catch ex As Exception - Dim msg = $"MenuItemAddColumn_Click - Fehler beim Hinzufügen von einer neuen Spalte: {vbCrLf}{ex.Message}" - MsgBox(msg) + Dim oMsg = $"MenuItemAddColumn_Click - Fehler beim Hinzufügen von einer neuen Spalte: {vbCrLf}{ex.Message}" + MsgBox(oMsg) LOGGER.Error(ex) End Try End Sub diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb b/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb new file mode 100644 index 0000000..27c9ff8 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmInvDashboard.Designer.vb @@ -0,0 +1,258 @@ + +Partial Class frmInvDashboard + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim TableColumnDefinition1 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableRowDefinition2 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TileViewItemElement1 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Dim TileViewItemElement2 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Dim TileViewItemElement3 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Me.colTitle = New DevExpress.XtraGrid.Columns.TileViewColumn() + Me.colAnzahl = New DevExpress.XtraGrid.Columns.TileViewColumn() + Me.colNettoSumme = New DevExpress.XtraGrid.Columns.TileViewColumn() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() + Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter() + Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView() + Me.Label1 = New System.Windows.Forms.Label() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'colTitle + ' + Me.colTitle.FieldName = "Title" + Me.colTitle.Name = "colTitle" + Me.colTitle.Visible = True + Me.colTitle.VisibleIndex = 0 + ' + 'colAnzahl + ' + Me.colAnzahl.FieldName = "Anzahl" + Me.colAnzahl.Name = "colAnzahl" + Me.colAnzahl.Visible = True + Me.colAnzahl.VisibleIndex = 1 + ' + 'colNettoSumme + ' + Me.colNettoSumme.DisplayFormat.FormatString = "c0" + Me.colNettoSumme.DisplayFormat.FormatType = DevExpress.Utils.FormatType.Numeric + Me.colNettoSumme.FieldName = "NettoSumme" + Me.colNettoSumme.Name = "colNettoSumme" + Me.colNettoSumme.Visible = True + Me.colNettoSumme.VisibleIndex = 2 + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 1 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.Size = New System.Drawing.Size(800, 146) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "RibbonPageGroup2" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 429) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 21) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'DD_DMSLiteDataSet + ' + Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" + Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource + ' + Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource.DataMember = "VWPM_CHART_INVOICE_MONITOR_SERIES" + Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' + 'VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter + ' + Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing + Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing + Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'GridControl1 + ' + Me.GridControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GridControl1.DataSource = Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource + Me.GridControl1.Location = New System.Drawing.Point(12, 168) + Me.GridControl1.MainView = Me.TileView1 + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(776, 112) + Me.GridControl1.TabIndex = 5 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1}) + ' + 'TileView1 + ' + Me.TileView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTitle, Me.colAnzahl, Me.colNettoSumme}) + Me.TileView1.GridControl = Me.GridControl1 + Me.TileView1.Name = "TileView1" + Me.TileView1.OptionsTiles.IndentBetweenItems = 7 + Me.TileView1.OptionsTiles.ItemPadding = New System.Windows.Forms.Padding(13) + Me.TileView1.OptionsTiles.ItemSize = New System.Drawing.Size(144, 86) + Me.TileView1.OptionsTiles.Padding = New System.Windows.Forms.Padding(5) + Me.TileView1.TileColumns.Add(TableColumnDefinition1) + Me.TileView1.TileRows.Add(TableRowDefinition1) + Me.TileView1.TileRows.Add(TableRowDefinition2) + Me.TileView1.TileRows.Add(TableRowDefinition3) + TileViewItemElement1.AnchorAlignment = DevExpress.Utils.AnchorAlignment.Left + TileViewItemElement1.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + TileViewItemElement1.Appearance.Normal.Options.UseFont = True + TileViewItemElement1.Column = Me.colTitle + TileViewItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement1.RowIndex = 2 + TileViewItemElement1.Text = "colTitle" + TileViewItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft + TileViewItemElement2.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + TileViewItemElement2.Appearance.Normal.ForeColor = System.Drawing.Color.DimGray + TileViewItemElement2.Appearance.Normal.Options.UseFont = True + TileViewItemElement2.Appearance.Normal.Options.UseForeColor = True + TileViewItemElement2.Column = Me.colAnzahl + TileViewItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement2.Text = "colAnzahl" + TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight + TileViewItemElement3.AnchorAlignment = DevExpress.Utils.AnchorAlignment.Left + TileViewItemElement3.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + TileViewItemElement3.Appearance.Normal.ForeColor = System.Drawing.Color.SteelBlue + TileViewItemElement3.Appearance.Normal.Options.UseFont = True + TileViewItemElement3.Appearance.Normal.Options.UseForeColor = True + TileViewItemElement3.Column = Me.colNettoSumme + TileViewItemElement3.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement3.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside + TileViewItemElement3.RowIndex = 1 + TileViewItemElement3.Text = "colNettoSumme" + TileViewItemElement3.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleLeft + Me.TileView1.TileTemplate.Add(TileViewItemElement1) + Me.TileView1.TileTemplate.Add(TileViewItemElement2) + Me.TileView1.TileTemplate.Add(TileViewItemElement3) + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(9, 149) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(160, 16) + Me.Label1.TabIndex = 8 + Me.Label1.Text = "Alle Belege - Verteilung" + ' + 'frmInvDashboard + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.GridControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmInvDashboard" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "frmInvDashboard" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents DD_DMSLiteDataSet As DD_DMSLiteDataSet + Friend WithEvents VWPM_CHART_INVOICE_MONITOR_SERIESBindingSource As BindingSource + Friend WithEvents VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter As DD_DMSLiteDataSetTableAdapters.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter + Friend WithEvents TableAdapterManager As DD_DMSLiteDataSetTableAdapters.TableAdapterManager + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents TileView1 As DevExpress.XtraGrid.Views.Tile.TileView + Friend WithEvents colAnzahl As DevExpress.XtraGrid.Columns.TileViewColumn + Friend WithEvents colNettoSumme As DevExpress.XtraGrid.Columns.TileViewColumn + Friend WithEvents colTitle As DevExpress.XtraGrid.Columns.TileViewColumn + Friend WithEvents Label1 As Label +End Class diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.resx b/app/DD_PM_WINDREAM/frmInvDashboard.resx new file mode 100644 index 0000000..d76d63a --- /dev/null +++ b/app/DD_PM_WINDREAM/frmInvDashboard.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 179, 17 + + + 545, 17 + + + 905, 17 + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.vb b/app/DD_PM_WINDREAM/frmInvDashboard.vb new file mode 100644 index 0000000..0d006cc --- /dev/null +++ b/app/DD_PM_WINDREAM/frmInvDashboard.vb @@ -0,0 +1,26 @@ +Imports DevExpress.XtraGrid.Views.Tile + +Public Class frmInvDashboard + Private Sub frmInvDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES". Sie können sie bei Bedarf verschieben oder entfernen. + Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES) + + End Sub + + Private Sub TileView1_ItemCustomize(sender As Object, e As DevExpress.XtraGrid.Views.Tile.TileViewItemCustomizeEventArgs) Handles TileView1.ItemCustomize + Dim oView As TileView = sender + Dim ovalue = oView.GetRowCellValue(e.RowHandle, "Title") + If ovalue = "Alle Rechnungen" Then + e.Item.AppearanceItem.Normal.BackColor = Color.Blue + 'e.Item.Elements(1).Text = "" + e.Item.Elements(0).Appearance.Normal.ForeColor = Color.White + e.Item.Elements(1).Appearance.Normal.ForeColor = Color.White + e.Item.Elements(2).Appearance.Normal.ForeColor = Color.White + 'Console.WriteLine("") + ElseIf ovalue = "Zeitkritisch" Then + e.Item.Elements(0).Appearance.Normal.ForeColor = Color.Red + e.Item.Elements(1).Appearance.Normal.ForeColor = Color.Red + e.Item.Elements(2).Appearance.Normal.ForeColor = Color.Red + End If + End Sub +End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index 9ed7969..1c2c45c 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -49,7 +49,6 @@ Partial Class frmMain Me.TBPM_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.Panel1 = New System.Windows.Forms.Panel() - Me.pnlDashboard = New System.Windows.Forms.Panel() Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl() Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.CMGroupStart = New System.Windows.Forms.ToolStripMenuItem() @@ -124,6 +123,73 @@ Partial Class frmMain Me.bwSync = New System.ComponentModel.BackgroundWorker() Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() Me.bwBasicData = New System.ComponentModel.BackgroundWorker() + Me.DocumentViewerBarManager1 = New DevExpress.XtraPrinting.Preview.DocumentViewerBarManager(Me.components) + Me.PrintPreviewStaticItem1 = New DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem() + Me.ProgressBarEditItem1 = New DevExpress.XtraPrinting.Preview.ProgressBarEditItem() + Me.RepositoryItemProgressBar2 = New DevExpress.XtraEditors.Repository.RepositoryItemProgressBar() + Me.PrintPreviewBarItem1 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.PrintPreviewStaticItem2 = New DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem() + Me.ZoomTrackBarEditItem1 = New DevExpress.XtraPrinting.Preview.ZoomTrackBarEditItem() + Me.RepositoryItemZoomTrackBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemZoomTrackBar() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.bbiDocumentMap = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiParameters = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiThumbnails = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiFind = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiHighlightEditingFields = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiCustomize = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiOpen = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiSave = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiPrint = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiPrintDirect = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiPageSetup = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiEditPageHF = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiScale = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiHandTool = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiMagnifier = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiZoomOut = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiZoom = New DevExpress.XtraPrinting.Preview.ZoomBarEditItem() + Me.PrintPreviewRepositoryItemComboBox1 = New DevExpress.XtraPrinting.Preview.PrintPreviewRepositoryItemComboBox() + Me.bbiZoomIn = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiShowFirstPage = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiShowPrevPage = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiShowNextPage = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiShowLastPage = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiMultiplePages = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiFillBackground = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiWatermark = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiExportFile = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiSendFile = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.bbiClosePreview = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.miFile = New DevExpress.XtraPrinting.Preview.PrintPreviewSubItem() + Me.miView = New DevExpress.XtraPrinting.Preview.PrintPreviewSubItem() + Me.miPageLayout = New DevExpress.XtraPrinting.Preview.PrintPreviewSubItem() + Me.miPageLayoutFacing = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.miPageLayoutContinuous = New DevExpress.XtraPrinting.Preview.PrintPreviewBarItem() + Me.miToolbars = New DevExpress.XtraBars.BarToolbarsListItem() + Me.miBackground = New DevExpress.XtraPrinting.Preview.PrintPreviewSubItem() + Me.PrintPreviewBarCheckItem1 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem2 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem3 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem4 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem5 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem6 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem7 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem8 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem9 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem10 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem11 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem12 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem13 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem14 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem15 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem16 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem17 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem18 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() + Me.PrintPreviewBarCheckItem19 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem() CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerDashboard.Panel1.SuspendLayout() Me.SplitContainerDashboard.Panel2.SuspendLayout() @@ -147,7 +213,6 @@ Partial Class frmMain CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() - Me.pnlDashboard.SuspendLayout() CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuGrid.SuspendLayout() CType(Me.GridView_Docs, System.ComponentModel.ISupportInitialize).BeginInit() @@ -163,6 +228,10 @@ Partial Class frmMain CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemProgressBar2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemZoomTrackBar1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PrintPreviewRepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'SplitContainerDashboard @@ -362,19 +431,13 @@ Partial Class frmMain ' 'Panel1 ' - Me.Panel1.Controls.Add(Me.pnlDashboard) + Me.Panel1.Controls.Add(Me.SplitContainerDashboard) Me.Panel1.Controls.Add(Me.GridControl_Docs) Me.Panel1.Controls.Add(Me.BindingNavigator1) Me.Panel1.Controls.Add(Me.NavBarControl1) resources.ApplyResources(Me.Panel1, "Panel1") Me.Panel1.Name = "Panel1" ' - 'pnlDashboard - ' - Me.pnlDashboard.Controls.Add(Me.SplitContainerDashboard) - resources.ApplyResources(Me.pnlDashboard, "pnlDashboard") - Me.pnlDashboard.Name = "pnlDashboard" - ' 'GridControl_Docs ' Me.GridControl_Docs.ContextMenuStrip = Me.ContextMenuGrid @@ -863,6 +926,581 @@ Partial Class frmMain Me.bwBasicData.WorkerReportsProgress = True Me.bwBasicData.WorkerSupportsCancellation = True ' + 'DocumentViewerBarManager1 + ' + Me.DocumentViewerBarManager1.DockControls.Add(Me.barDockControlTop) + Me.DocumentViewerBarManager1.DockControls.Add(Me.barDockControlBottom) + Me.DocumentViewerBarManager1.DockControls.Add(Me.barDockControlLeft) + Me.DocumentViewerBarManager1.DockControls.Add(Me.barDockControlRight) + Me.DocumentViewerBarManager1.Form = Me + Me.DocumentViewerBarManager1.ImageStream = CType(resources.GetObject("DocumentViewerBarManager1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer) + Me.DocumentViewerBarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.PrintPreviewStaticItem1, Me.ProgressBarEditItem1, Me.PrintPreviewBarItem1, Me.PrintPreviewStaticItem2, Me.ZoomTrackBarEditItem1, Me.bbiDocumentMap, Me.bbiParameters, Me.bbiThumbnails, Me.bbiFind, Me.bbiHighlightEditingFields, Me.bbiCustomize, Me.bbiOpen, Me.bbiSave, Me.bbiPrint, Me.bbiPrintDirect, Me.bbiPageSetup, Me.bbiEditPageHF, Me.bbiScale, Me.bbiHandTool, Me.bbiMagnifier, Me.bbiZoomOut, Me.bbiZoom, Me.bbiZoomIn, Me.bbiShowFirstPage, Me.bbiShowPrevPage, Me.bbiShowNextPage, Me.bbiShowLastPage, Me.bbiMultiplePages, Me.bbiFillBackground, Me.bbiWatermark, Me.bbiExportFile, Me.bbiSendFile, Me.bbiClosePreview, Me.miFile, Me.miView, Me.miBackground, Me.miPageLayout, Me.miPageLayoutFacing, Me.miPageLayoutContinuous, Me.miToolbars, Me.PrintPreviewBarCheckItem1, Me.PrintPreviewBarCheckItem2, Me.PrintPreviewBarCheckItem3, Me.PrintPreviewBarCheckItem4, Me.PrintPreviewBarCheckItem5, Me.PrintPreviewBarCheckItem6, Me.PrintPreviewBarCheckItem7, Me.PrintPreviewBarCheckItem8, Me.PrintPreviewBarCheckItem9, Me.PrintPreviewBarCheckItem10, Me.PrintPreviewBarCheckItem11, Me.PrintPreviewBarCheckItem12, Me.PrintPreviewBarCheckItem13, Me.PrintPreviewBarCheckItem14, Me.PrintPreviewBarCheckItem15, Me.PrintPreviewBarCheckItem16, Me.PrintPreviewBarCheckItem17, Me.PrintPreviewBarCheckItem18, Me.PrintPreviewBarCheckItem19}) + Me.DocumentViewerBarManager1.MaxItemId = 59 + Me.DocumentViewerBarManager1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar2, Me.RepositoryItemZoomTrackBar1, Me.PrintPreviewRepositoryItemComboBox1}) + Me.DocumentViewerBarManager1.TransparentEditorsMode = DevExpress.Utils.DefaultBoolean.[True] + ' + 'PrintPreviewStaticItem1 + ' + Me.PrintPreviewStaticItem1.Border = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + resources.ApplyResources(Me.PrintPreviewStaticItem1, "PrintPreviewStaticItem1") + Me.PrintPreviewStaticItem1.Id = 0 + Me.PrintPreviewStaticItem1.LeftIndent = 1 + Me.PrintPreviewStaticItem1.Name = "PrintPreviewStaticItem1" + Me.PrintPreviewStaticItem1.RightIndent = 1 + Me.PrintPreviewStaticItem1.Type = "PageOfPages" + ' + 'ProgressBarEditItem1 + ' + Me.ProgressBarEditItem1.Edit = Me.RepositoryItemProgressBar2 + Me.ProgressBarEditItem1.EditHeight = 12 + resources.ApplyResources(Me.ProgressBarEditItem1, "ProgressBarEditItem1") + Me.ProgressBarEditItem1.Id = 1 + Me.ProgressBarEditItem1.Name = "ProgressBarEditItem1" + Me.ProgressBarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'RepositoryItemProgressBar2 + ' + Me.RepositoryItemProgressBar2.Name = "RepositoryItemProgressBar2" + ' + 'PrintPreviewBarItem1 + ' + resources.ApplyResources(Me.PrintPreviewBarItem1, "PrintPreviewBarItem1") + Me.PrintPreviewBarItem1.Command = DevExpress.XtraPrinting.PrintingSystemCommand.StopPageBuilding + Me.PrintPreviewBarItem1.Enabled = False + Me.PrintPreviewBarItem1.Id = 2 + Me.PrintPreviewBarItem1.Name = "PrintPreviewBarItem1" + Me.PrintPreviewBarItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'PrintPreviewStaticItem2 + ' + Me.PrintPreviewStaticItem2.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right + Me.PrintPreviewStaticItem2.Border = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + resources.ApplyResources(Me.PrintPreviewStaticItem2, "PrintPreviewStaticItem2") + Me.PrintPreviewStaticItem2.Id = 3 + Me.PrintPreviewStaticItem2.Name = "PrintPreviewStaticItem2" + Me.PrintPreviewStaticItem2.TextAlignment = System.Drawing.StringAlignment.Far + Me.PrintPreviewStaticItem2.Type = "ZoomFactor" + ' + 'ZoomTrackBarEditItem1 + ' + Me.ZoomTrackBarEditItem1.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right + Me.ZoomTrackBarEditItem1.Edit = Me.RepositoryItemZoomTrackBar1 + Me.ZoomTrackBarEditItem1.EditValue = 90 + resources.ApplyResources(Me.ZoomTrackBarEditItem1, "ZoomTrackBarEditItem1") + Me.ZoomTrackBarEditItem1.Enabled = False + Me.ZoomTrackBarEditItem1.Id = 4 + Me.ZoomTrackBarEditItem1.Name = "ZoomTrackBarEditItem1" + Me.ZoomTrackBarEditItem1.Range = New Integer() {10, 500} + ' + 'RepositoryItemZoomTrackBar1 + ' + Me.RepositoryItemZoomTrackBar1.Alignment = DevExpress.Utils.VertAlignment.Center + Me.RepositoryItemZoomTrackBar1.AllowFocused = False + Me.RepositoryItemZoomTrackBar1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.RepositoryItemZoomTrackBar1.Maximum = 180 + Me.RepositoryItemZoomTrackBar1.Name = "RepositoryItemZoomTrackBar1" + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + resources.ApplyResources(Me.barDockControlTop, "barDockControlTop") + Me.barDockControlTop.Manager = Me.DocumentViewerBarManager1 + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + resources.ApplyResources(Me.barDockControlBottom, "barDockControlBottom") + Me.barDockControlBottom.Manager = Me.DocumentViewerBarManager1 + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + resources.ApplyResources(Me.barDockControlLeft, "barDockControlLeft") + Me.barDockControlLeft.Manager = Me.DocumentViewerBarManager1 + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + resources.ApplyResources(Me.barDockControlRight, "barDockControlRight") + Me.barDockControlRight.Manager = Me.DocumentViewerBarManager1 + ' + 'bbiDocumentMap + ' + Me.bbiDocumentMap.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check + resources.ApplyResources(Me.bbiDocumentMap, "bbiDocumentMap") + Me.bbiDocumentMap.Command = DevExpress.XtraPrinting.PrintingSystemCommand.DocumentMap + Me.bbiDocumentMap.Enabled = False + Me.bbiDocumentMap.Id = 5 + Me.bbiDocumentMap.Name = "bbiDocumentMap" + ' + 'bbiParameters + ' + Me.bbiParameters.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check + resources.ApplyResources(Me.bbiParameters, "bbiParameters") + Me.bbiParameters.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Parameters + Me.bbiParameters.Enabled = False + Me.bbiParameters.Id = 6 + Me.bbiParameters.Name = "bbiParameters" + ' + 'bbiThumbnails + ' + Me.bbiThumbnails.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check + resources.ApplyResources(Me.bbiThumbnails, "bbiThumbnails") + Me.bbiThumbnails.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Thumbnails + Me.bbiThumbnails.Enabled = False + Me.bbiThumbnails.Id = 7 + Me.bbiThumbnails.Name = "bbiThumbnails" + ' + 'bbiFind + ' + Me.bbiFind.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check + resources.ApplyResources(Me.bbiFind, "bbiFind") + Me.bbiFind.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Find + Me.bbiFind.Enabled = False + Me.bbiFind.Id = 8 + Me.bbiFind.Name = "bbiFind" + ' + 'bbiHighlightEditingFields + ' + Me.bbiHighlightEditingFields.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check + resources.ApplyResources(Me.bbiHighlightEditingFields, "bbiHighlightEditingFields") + Me.bbiHighlightEditingFields.Command = DevExpress.XtraPrinting.PrintingSystemCommand.HighlightEditingFields + Me.bbiHighlightEditingFields.Enabled = False + Me.bbiHighlightEditingFields.Id = 9 + Me.bbiHighlightEditingFields.Name = "bbiHighlightEditingFields" + ' + 'bbiCustomize + ' + resources.ApplyResources(Me.bbiCustomize, "bbiCustomize") + Me.bbiCustomize.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Customize + Me.bbiCustomize.Enabled = False + Me.bbiCustomize.Id = 10 + Me.bbiCustomize.Name = "bbiCustomize" + ' + 'bbiOpen + ' + resources.ApplyResources(Me.bbiOpen, "bbiOpen") + Me.bbiOpen.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Open + Me.bbiOpen.Enabled = False + Me.bbiOpen.Id = 11 + Me.bbiOpen.Name = "bbiOpen" + ' + 'bbiSave + ' + resources.ApplyResources(Me.bbiSave, "bbiSave") + Me.bbiSave.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Save + Me.bbiSave.Enabled = False + Me.bbiSave.Id = 12 + Me.bbiSave.Name = "bbiSave" + ' + 'bbiPrint + ' + resources.ApplyResources(Me.bbiPrint, "bbiPrint") + Me.bbiPrint.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Print + Me.bbiPrint.Enabled = False + Me.bbiPrint.Id = 13 + Me.bbiPrint.Name = "bbiPrint" + ' + 'bbiPrintDirect + ' + resources.ApplyResources(Me.bbiPrintDirect, "bbiPrintDirect") + Me.bbiPrintDirect.Command = DevExpress.XtraPrinting.PrintingSystemCommand.PrintDirect + Me.bbiPrintDirect.Enabled = False + Me.bbiPrintDirect.Id = 14 + Me.bbiPrintDirect.Name = "bbiPrintDirect" + ' + 'bbiPageSetup + ' + resources.ApplyResources(Me.bbiPageSetup, "bbiPageSetup") + Me.bbiPageSetup.Command = DevExpress.XtraPrinting.PrintingSystemCommand.PageSetup + Me.bbiPageSetup.Enabled = False + Me.bbiPageSetup.Id = 15 + Me.bbiPageSetup.Name = "bbiPageSetup" + ' + 'bbiEditPageHF + ' + resources.ApplyResources(Me.bbiEditPageHF, "bbiEditPageHF") + Me.bbiEditPageHF.Command = DevExpress.XtraPrinting.PrintingSystemCommand.EditPageHF + Me.bbiEditPageHF.Enabled = False + Me.bbiEditPageHF.Id = 16 + Me.bbiEditPageHF.Name = "bbiEditPageHF" + ' + 'bbiScale + ' + Me.bbiScale.ActAsDropDown = True + Me.bbiScale.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.DropDown + resources.ApplyResources(Me.bbiScale, "bbiScale") + Me.bbiScale.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Scale + Me.bbiScale.Enabled = False + Me.bbiScale.Id = 17 + Me.bbiScale.Name = "bbiScale" + ' + 'bbiHandTool + ' + Me.bbiHandTool.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check + resources.ApplyResources(Me.bbiHandTool, "bbiHandTool") + Me.bbiHandTool.Command = DevExpress.XtraPrinting.PrintingSystemCommand.HandTool + Me.bbiHandTool.Enabled = False + Me.bbiHandTool.Id = 18 + Me.bbiHandTool.Name = "bbiHandTool" + ' + 'bbiMagnifier + ' + Me.bbiMagnifier.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check + resources.ApplyResources(Me.bbiMagnifier, "bbiMagnifier") + Me.bbiMagnifier.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Magnifier + Me.bbiMagnifier.Enabled = False + Me.bbiMagnifier.Id = 19 + Me.bbiMagnifier.Name = "bbiMagnifier" + ' + 'bbiZoomOut + ' + resources.ApplyResources(Me.bbiZoomOut, "bbiZoomOut") + Me.bbiZoomOut.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ZoomOut + Me.bbiZoomOut.Enabled = False + Me.bbiZoomOut.Id = 20 + Me.bbiZoomOut.Name = "bbiZoomOut" + ' + 'bbiZoom + ' + resources.ApplyResources(Me.bbiZoom, "bbiZoom") + Me.bbiZoom.Edit = Me.PrintPreviewRepositoryItemComboBox1 + Me.bbiZoom.Enabled = False + Me.bbiZoom.Id = 21 + Me.bbiZoom.Name = "bbiZoom" + ' + 'PrintPreviewRepositoryItemComboBox1 + ' + Me.PrintPreviewRepositoryItemComboBox1.AutoComplete = False + Me.PrintPreviewRepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("PrintPreviewRepositoryItemComboBox1.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) + Me.PrintPreviewRepositoryItemComboBox1.DropDownRows = 11 + Me.PrintPreviewRepositoryItemComboBox1.Name = "PrintPreviewRepositoryItemComboBox1" + ' + 'bbiZoomIn + ' + resources.ApplyResources(Me.bbiZoomIn, "bbiZoomIn") + Me.bbiZoomIn.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ZoomIn + Me.bbiZoomIn.Enabled = False + Me.bbiZoomIn.Id = 22 + Me.bbiZoomIn.Name = "bbiZoomIn" + ' + 'bbiShowFirstPage + ' + resources.ApplyResources(Me.bbiShowFirstPage, "bbiShowFirstPage") + Me.bbiShowFirstPage.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ShowFirstPage + Me.bbiShowFirstPage.Enabled = False + Me.bbiShowFirstPage.Id = 23 + Me.bbiShowFirstPage.Name = "bbiShowFirstPage" + ' + 'bbiShowPrevPage + ' + resources.ApplyResources(Me.bbiShowPrevPage, "bbiShowPrevPage") + Me.bbiShowPrevPage.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ShowPrevPage + Me.bbiShowPrevPage.Enabled = False + Me.bbiShowPrevPage.Id = 24 + Me.bbiShowPrevPage.Name = "bbiShowPrevPage" + ' + 'bbiShowNextPage + ' + resources.ApplyResources(Me.bbiShowNextPage, "bbiShowNextPage") + Me.bbiShowNextPage.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ShowNextPage + Me.bbiShowNextPage.Enabled = False + Me.bbiShowNextPage.Id = 25 + Me.bbiShowNextPage.Name = "bbiShowNextPage" + ' + 'bbiShowLastPage + ' + resources.ApplyResources(Me.bbiShowLastPage, "bbiShowLastPage") + Me.bbiShowLastPage.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ShowLastPage + Me.bbiShowLastPage.Enabled = False + Me.bbiShowLastPage.Id = 26 + Me.bbiShowLastPage.Name = "bbiShowLastPage" + ' + 'bbiMultiplePages + ' + Me.bbiMultiplePages.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.DropDown + resources.ApplyResources(Me.bbiMultiplePages, "bbiMultiplePages") + Me.bbiMultiplePages.Command = DevExpress.XtraPrinting.PrintingSystemCommand.MultiplePages + Me.bbiMultiplePages.Enabled = False + Me.bbiMultiplePages.Id = 27 + Me.bbiMultiplePages.Name = "bbiMultiplePages" + ' + 'bbiFillBackground + ' + Me.bbiFillBackground.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.DropDown + resources.ApplyResources(Me.bbiFillBackground, "bbiFillBackground") + Me.bbiFillBackground.Command = DevExpress.XtraPrinting.PrintingSystemCommand.FillBackground + Me.bbiFillBackground.Enabled = False + Me.bbiFillBackground.Id = 28 + Me.bbiFillBackground.Name = "bbiFillBackground" + ' + 'bbiWatermark + ' + resources.ApplyResources(Me.bbiWatermark, "bbiWatermark") + Me.bbiWatermark.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Watermark + Me.bbiWatermark.Enabled = False + Me.bbiWatermark.Id = 29 + Me.bbiWatermark.Name = "bbiWatermark" + ' + 'bbiExportFile + ' + Me.bbiExportFile.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.DropDown + resources.ApplyResources(Me.bbiExportFile, "bbiExportFile") + Me.bbiExportFile.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportFile + Me.bbiExportFile.Enabled = False + Me.bbiExportFile.Id = 30 + Me.bbiExportFile.Name = "bbiExportFile" + ' + 'bbiSendFile + ' + Me.bbiSendFile.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.DropDown + resources.ApplyResources(Me.bbiSendFile, "bbiSendFile") + Me.bbiSendFile.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendFile + Me.bbiSendFile.Enabled = False + Me.bbiSendFile.Id = 31 + Me.bbiSendFile.Name = "bbiSendFile" + ' + 'bbiClosePreview + ' + resources.ApplyResources(Me.bbiClosePreview, "bbiClosePreview") + Me.bbiClosePreview.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ClosePreview + Me.bbiClosePreview.Enabled = False + Me.bbiClosePreview.Id = 32 + Me.bbiClosePreview.Name = "bbiClosePreview" + ' + 'miFile + ' + resources.ApplyResources(Me.miFile, "miFile") + Me.miFile.Command = DevExpress.XtraPrinting.PrintingSystemCommand.File + Me.miFile.Id = 33 + Me.miFile.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbiPageSetup), New DevExpress.XtraBars.LinkPersistInfo(Me.bbiPrint), New DevExpress.XtraBars.LinkPersistInfo(Me.bbiPrintDirect), New DevExpress.XtraBars.LinkPersistInfo(Me.bbiExportFile, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbiSendFile), New DevExpress.XtraBars.LinkPersistInfo(Me.bbiClosePreview, True)}) + Me.miFile.Name = "miFile" + ' + 'miView + ' + resources.ApplyResources(Me.miView, "miView") + Me.miView.Command = DevExpress.XtraPrinting.PrintingSystemCommand.View + Me.miView.Id = 34 + Me.miView.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.miPageLayout, True), New DevExpress.XtraBars.LinkPersistInfo(Me.miToolbars, True)}) + Me.miView.Name = "miView" + ' + 'miPageLayout + ' + resources.ApplyResources(Me.miPageLayout, "miPageLayout") + Me.miPageLayout.Command = DevExpress.XtraPrinting.PrintingSystemCommand.PageLayout + Me.miPageLayout.Id = 36 + Me.miPageLayout.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.miPageLayoutFacing), New DevExpress.XtraBars.LinkPersistInfo(Me.miPageLayoutContinuous)}) + Me.miPageLayout.Name = "miPageLayout" + ' + 'miPageLayoutFacing + ' + Me.miPageLayoutFacing.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check + resources.ApplyResources(Me.miPageLayoutFacing, "miPageLayoutFacing") + Me.miPageLayoutFacing.Command = DevExpress.XtraPrinting.PrintingSystemCommand.PageLayoutFacing + Me.miPageLayoutFacing.Enabled = False + Me.miPageLayoutFacing.GroupIndex = 100 + Me.miPageLayoutFacing.Id = 37 + Me.miPageLayoutFacing.Name = "miPageLayoutFacing" + ' + 'miPageLayoutContinuous + ' + Me.miPageLayoutContinuous.ButtonStyle = DevExpress.XtraBars.BarButtonStyle.Check + resources.ApplyResources(Me.miPageLayoutContinuous, "miPageLayoutContinuous") + Me.miPageLayoutContinuous.Command = DevExpress.XtraPrinting.PrintingSystemCommand.PageLayoutContinuous + Me.miPageLayoutContinuous.Enabled = False + Me.miPageLayoutContinuous.GroupIndex = 100 + Me.miPageLayoutContinuous.Id = 38 + Me.miPageLayoutContinuous.Name = "miPageLayoutContinuous" + ' + 'miToolbars + ' + resources.ApplyResources(Me.miToolbars, "miToolbars") + Me.miToolbars.Id = 39 + Me.miToolbars.Name = "miToolbars" + ' + 'miBackground + ' + resources.ApplyResources(Me.miBackground, "miBackground") + Me.miBackground.Command = DevExpress.XtraPrinting.PrintingSystemCommand.Background + Me.miBackground.Id = 35 + Me.miBackground.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbiFillBackground), New DevExpress.XtraBars.LinkPersistInfo(Me.bbiWatermark)}) + Me.miBackground.Name = "miBackground" + ' + 'PrintPreviewBarCheckItem1 + ' + Me.PrintPreviewBarCheckItem1.BindableChecked = True + resources.ApplyResources(Me.PrintPreviewBarCheckItem1, "PrintPreviewBarCheckItem1") + Me.PrintPreviewBarCheckItem1.Checked = True + Me.PrintPreviewBarCheckItem1.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportPdf + Me.PrintPreviewBarCheckItem1.Enabled = False + Me.PrintPreviewBarCheckItem1.GroupIndex = 2 + Me.PrintPreviewBarCheckItem1.Id = 40 + Me.PrintPreviewBarCheckItem1.Name = "PrintPreviewBarCheckItem1" + ' + 'PrintPreviewBarCheckItem2 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem2, "PrintPreviewBarCheckItem2") + Me.PrintPreviewBarCheckItem2.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportHtm + Me.PrintPreviewBarCheckItem2.Enabled = False + Me.PrintPreviewBarCheckItem2.GroupIndex = 2 + Me.PrintPreviewBarCheckItem2.Id = 41 + Me.PrintPreviewBarCheckItem2.Name = "PrintPreviewBarCheckItem2" + ' + 'PrintPreviewBarCheckItem3 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem3, "PrintPreviewBarCheckItem3") + Me.PrintPreviewBarCheckItem3.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportMht + Me.PrintPreviewBarCheckItem3.Enabled = False + Me.PrintPreviewBarCheckItem3.GroupIndex = 2 + Me.PrintPreviewBarCheckItem3.Id = 42 + Me.PrintPreviewBarCheckItem3.Name = "PrintPreviewBarCheckItem3" + ' + 'PrintPreviewBarCheckItem4 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem4, "PrintPreviewBarCheckItem4") + Me.PrintPreviewBarCheckItem4.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportRtf + Me.PrintPreviewBarCheckItem4.Enabled = False + Me.PrintPreviewBarCheckItem4.GroupIndex = 2 + Me.PrintPreviewBarCheckItem4.Id = 43 + Me.PrintPreviewBarCheckItem4.Name = "PrintPreviewBarCheckItem4" + ' + 'PrintPreviewBarCheckItem5 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem5, "PrintPreviewBarCheckItem5") + Me.PrintPreviewBarCheckItem5.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportDocx + Me.PrintPreviewBarCheckItem5.Enabled = False + Me.PrintPreviewBarCheckItem5.GroupIndex = 2 + Me.PrintPreviewBarCheckItem5.Id = 44 + Me.PrintPreviewBarCheckItem5.Name = "PrintPreviewBarCheckItem5" + ' + 'PrintPreviewBarCheckItem6 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem6, "PrintPreviewBarCheckItem6") + Me.PrintPreviewBarCheckItem6.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportXls + Me.PrintPreviewBarCheckItem6.Enabled = False + Me.PrintPreviewBarCheckItem6.GroupIndex = 2 + Me.PrintPreviewBarCheckItem6.Id = 45 + Me.PrintPreviewBarCheckItem6.Name = "PrintPreviewBarCheckItem6" + ' + 'PrintPreviewBarCheckItem7 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem7, "PrintPreviewBarCheckItem7") + Me.PrintPreviewBarCheckItem7.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportXlsx + Me.PrintPreviewBarCheckItem7.Enabled = False + Me.PrintPreviewBarCheckItem7.GroupIndex = 2 + Me.PrintPreviewBarCheckItem7.Id = 46 + Me.PrintPreviewBarCheckItem7.Name = "PrintPreviewBarCheckItem7" + ' + 'PrintPreviewBarCheckItem8 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem8, "PrintPreviewBarCheckItem8") + Me.PrintPreviewBarCheckItem8.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportCsv + Me.PrintPreviewBarCheckItem8.Enabled = False + Me.PrintPreviewBarCheckItem8.GroupIndex = 2 + Me.PrintPreviewBarCheckItem8.Id = 47 + Me.PrintPreviewBarCheckItem8.Name = "PrintPreviewBarCheckItem8" + ' + 'PrintPreviewBarCheckItem9 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem9, "PrintPreviewBarCheckItem9") + Me.PrintPreviewBarCheckItem9.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportTxt + Me.PrintPreviewBarCheckItem9.Enabled = False + Me.PrintPreviewBarCheckItem9.GroupIndex = 2 + Me.PrintPreviewBarCheckItem9.Id = 48 + Me.PrintPreviewBarCheckItem9.Name = "PrintPreviewBarCheckItem9" + ' + 'PrintPreviewBarCheckItem10 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem10, "PrintPreviewBarCheckItem10") + Me.PrintPreviewBarCheckItem10.Command = DevExpress.XtraPrinting.PrintingSystemCommand.ExportGraphic + Me.PrintPreviewBarCheckItem10.Enabled = False + Me.PrintPreviewBarCheckItem10.GroupIndex = 2 + Me.PrintPreviewBarCheckItem10.Id = 49 + Me.PrintPreviewBarCheckItem10.Name = "PrintPreviewBarCheckItem10" + ' + 'PrintPreviewBarCheckItem11 + ' + Me.PrintPreviewBarCheckItem11.BindableChecked = True + resources.ApplyResources(Me.PrintPreviewBarCheckItem11, "PrintPreviewBarCheckItem11") + Me.PrintPreviewBarCheckItem11.Checked = True + Me.PrintPreviewBarCheckItem11.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendPdf + Me.PrintPreviewBarCheckItem11.Enabled = False + Me.PrintPreviewBarCheckItem11.GroupIndex = 1 + Me.PrintPreviewBarCheckItem11.Id = 50 + Me.PrintPreviewBarCheckItem11.Name = "PrintPreviewBarCheckItem11" + ' + 'PrintPreviewBarCheckItem12 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem12, "PrintPreviewBarCheckItem12") + Me.PrintPreviewBarCheckItem12.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendMht + Me.PrintPreviewBarCheckItem12.Enabled = False + Me.PrintPreviewBarCheckItem12.GroupIndex = 1 + Me.PrintPreviewBarCheckItem12.Id = 51 + Me.PrintPreviewBarCheckItem12.Name = "PrintPreviewBarCheckItem12" + ' + 'PrintPreviewBarCheckItem13 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem13, "PrintPreviewBarCheckItem13") + Me.PrintPreviewBarCheckItem13.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendRtf + Me.PrintPreviewBarCheckItem13.Enabled = False + Me.PrintPreviewBarCheckItem13.GroupIndex = 1 + Me.PrintPreviewBarCheckItem13.Id = 52 + Me.PrintPreviewBarCheckItem13.Name = "PrintPreviewBarCheckItem13" + ' + 'PrintPreviewBarCheckItem14 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem14, "PrintPreviewBarCheckItem14") + Me.PrintPreviewBarCheckItem14.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendDocx + Me.PrintPreviewBarCheckItem14.Enabled = False + Me.PrintPreviewBarCheckItem14.GroupIndex = 1 + Me.PrintPreviewBarCheckItem14.Id = 53 + Me.PrintPreviewBarCheckItem14.Name = "PrintPreviewBarCheckItem14" + ' + 'PrintPreviewBarCheckItem15 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem15, "PrintPreviewBarCheckItem15") + Me.PrintPreviewBarCheckItem15.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendXls + Me.PrintPreviewBarCheckItem15.Enabled = False + Me.PrintPreviewBarCheckItem15.GroupIndex = 1 + Me.PrintPreviewBarCheckItem15.Id = 54 + Me.PrintPreviewBarCheckItem15.Name = "PrintPreviewBarCheckItem15" + ' + 'PrintPreviewBarCheckItem16 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem16, "PrintPreviewBarCheckItem16") + Me.PrintPreviewBarCheckItem16.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendXlsx + Me.PrintPreviewBarCheckItem16.Enabled = False + Me.PrintPreviewBarCheckItem16.GroupIndex = 1 + Me.PrintPreviewBarCheckItem16.Id = 55 + Me.PrintPreviewBarCheckItem16.Name = "PrintPreviewBarCheckItem16" + ' + 'PrintPreviewBarCheckItem17 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem17, "PrintPreviewBarCheckItem17") + Me.PrintPreviewBarCheckItem17.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendCsv + Me.PrintPreviewBarCheckItem17.Enabled = False + Me.PrintPreviewBarCheckItem17.GroupIndex = 1 + Me.PrintPreviewBarCheckItem17.Id = 56 + Me.PrintPreviewBarCheckItem17.Name = "PrintPreviewBarCheckItem17" + ' + 'PrintPreviewBarCheckItem18 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem18, "PrintPreviewBarCheckItem18") + Me.PrintPreviewBarCheckItem18.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendTxt + Me.PrintPreviewBarCheckItem18.Enabled = False + Me.PrintPreviewBarCheckItem18.GroupIndex = 1 + Me.PrintPreviewBarCheckItem18.Id = 57 + Me.PrintPreviewBarCheckItem18.Name = "PrintPreviewBarCheckItem18" + ' + 'PrintPreviewBarCheckItem19 + ' + resources.ApplyResources(Me.PrintPreviewBarCheckItem19, "PrintPreviewBarCheckItem19") + Me.PrintPreviewBarCheckItem19.Command = DevExpress.XtraPrinting.PrintingSystemCommand.SendGraphic + Me.PrintPreviewBarCheckItem19.Enabled = False + Me.PrintPreviewBarCheckItem19.GroupIndex = 1 + Me.PrintPreviewBarCheckItem19.Id = 58 + Me.PrintPreviewBarCheckItem19.Name = "PrintPreviewBarCheckItem19" + ' 'frmMain ' Me.Appearance.Options.UseFont = True @@ -871,6 +1509,10 @@ Partial Class frmMain Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) Me.IconOptions.Icon = CType(resources.GetObject("frmMain.IconOptions.Icon"), System.Drawing.Icon) Me.KeyPreview = True Me.Name = "frmMain" @@ -908,7 +1550,6 @@ Partial Class frmMain CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() - Me.pnlDashboard.ResumeLayout(False) CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).EndInit() Me.ContextMenuGrid.ResumeLayout(False) CType(Me.GridView_Docs, System.ComponentModel.ISupportInitialize).EndInit() @@ -925,6 +1566,10 @@ Partial Class frmMain CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemProgressBar2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemZoomTrackBar1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PrintPreviewRepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -1018,7 +1663,6 @@ Partial Class frmMain Friend WithEvents bwSync As System.ComponentModel.BackgroundWorker Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem Friend WithEvents RepositoryItemProgressBar1 As DevExpress.XtraEditors.Repository.RepositoryItemProgressBar - Friend WithEvents pnlDashboard As Panel Friend WithEvents ToolStripButton1 As ToolStripButton Friend WithEvents ToolStripButton2 As ToolStripButton Friend WithEvents ToolStripButton3 As ToolStripButton @@ -1029,4 +1673,71 @@ Partial Class frmMain Friend WithEvents ToolStripButton7 As ToolStripButton Friend WithEvents ToolStripButton8 As ToolStripButton Friend WithEvents bwBasicData As System.ComponentModel.BackgroundWorker + Friend WithEvents DocumentViewerBarManager1 As DevExpress.XtraPrinting.Preview.DocumentViewerBarManager + Friend WithEvents PrintPreviewStaticItem1 As DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem + Friend WithEvents ProgressBarEditItem1 As DevExpress.XtraPrinting.Preview.ProgressBarEditItem + Friend WithEvents RepositoryItemProgressBar2 As DevExpress.XtraEditors.Repository.RepositoryItemProgressBar + Friend WithEvents PrintPreviewBarItem1 As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents PrintPreviewStaticItem2 As DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem + Friend WithEvents ZoomTrackBarEditItem1 As DevExpress.XtraPrinting.Preview.ZoomTrackBarEditItem + Friend WithEvents RepositoryItemZoomTrackBar1 As DevExpress.XtraEditors.Repository.RepositoryItemZoomTrackBar + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents bbiDocumentMap As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiParameters As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiThumbnails As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiFind As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiHighlightEditingFields As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiCustomize As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiOpen As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiSave As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiPrint As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiPrintDirect As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiPageSetup As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiEditPageHF As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiScale As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiHandTool As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiMagnifier As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiZoomOut As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiZoom As DevExpress.XtraPrinting.Preview.ZoomBarEditItem + Friend WithEvents PrintPreviewRepositoryItemComboBox1 As DevExpress.XtraPrinting.Preview.PrintPreviewRepositoryItemComboBox + Friend WithEvents bbiZoomIn As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiShowFirstPage As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiShowPrevPage As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiShowNextPage As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiShowLastPage As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiMultiplePages As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiFillBackground As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiWatermark As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiExportFile As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiSendFile As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents bbiClosePreview As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents miFile As DevExpress.XtraPrinting.Preview.PrintPreviewSubItem + Friend WithEvents miView As DevExpress.XtraPrinting.Preview.PrintPreviewSubItem + Friend WithEvents miPageLayout As DevExpress.XtraPrinting.Preview.PrintPreviewSubItem + Friend WithEvents miPageLayoutFacing As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents miPageLayoutContinuous As DevExpress.XtraPrinting.Preview.PrintPreviewBarItem + Friend WithEvents miToolbars As DevExpress.XtraBars.BarToolbarsListItem + Friend WithEvents miBackground As DevExpress.XtraPrinting.Preview.PrintPreviewSubItem + Friend WithEvents PrintPreviewBarCheckItem1 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem2 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem3 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem4 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem5 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem6 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem7 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem8 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem9 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem10 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem11 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem12 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem13 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem14 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem15 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem16 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem17 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem18 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem + Friend WithEvents PrintPreviewBarCheckItem19 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem End Class diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index eb957c4..3095ac6 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -117,14 +117,11 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Fill - - 0, 0 + 913, 73 + Horizontal @@ -141,7 +138,7 @@ 0, 27 - 101, 139 + 101, 73 @@ -162,6 +159,24 @@ 662, 95 + + Magenta + + + 24, 24 + + + Export to pdf + + + Magenta + + + 24, 24 + + + Export png + 0, 0 @@ -205,7 +220,7 @@ 0, 27 - 209, 139 + 209, 73 1 @@ -225,6 +240,57 @@ 804, 95 + + Magenta + + + 24, 24 + + + Export to pdf + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 + LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 + Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk + aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY + 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES + OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj + 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx + JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h + o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i + UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM + f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN + XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt + UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI + M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK + BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 + w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW + F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN + HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ + p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH + fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn + tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC + LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz + 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l + LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i + XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ + 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj + kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A + AAAASUVORK5CYII= + + + + Magenta + + + 24, 24 + + + Export png + 0, 0 @@ -262,7 +328,7 @@ 1 - 314, 166 + 314, 100 101 @@ -307,7 +373,7 @@ 0, 27 - 101, 96 + 101, 47 1 @@ -327,6 +393,57 @@ 955, 95 + + Magenta + + + 24, 24 + + + Export to pdf + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 + LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 + Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk + aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY + 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES + OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj + 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx + JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h + o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i + UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM + f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN + XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt + UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI + M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK + BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 + w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW + F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN + HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ + p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH + fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn + tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC + LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz + 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l + LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i + XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ + 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj + kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A + AAAASUVORK5CYII= + + + + Magenta + + + 24, 24 + + + Export png + 0, 0 @@ -370,7 +487,7 @@ 0, 27 - 209, 96 + 209, 47 1 @@ -390,216 +507,6 @@ 1117, 95 - - 0, 0 - - - 209, 27 - - - 0 - - - ToolStrip3 - - - ToolStripBottomRight - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerBottom.Panel2 - - - 1 - - - SplitContainerBottom.Panel2 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerBottom - - - 1 - - - 314, 123 - - - 101 - - - 0 - - - SplitContainerBottom - - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerDashboard.Panel2 - - - 0 - - - SplitContainerDashboard.Panel2 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerDashboard - - - 1 - - - 314, 293 - - - 166 - - - 7 - - - SplitContainerDashboard - - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - pnlDashboard - - - 0 - - - Magenta - - - 24, 24 - - - Export to pdf - - - Magenta - - - 24, 24 - - - Export png - - - Magenta - - - 24, 24 - - - Export to pdf - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 - LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 - Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk - aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY - 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES - OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj - 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx - JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h - o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i - UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM - f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN - XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt - UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI - M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK - BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 - w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW - F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN - HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ - p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH - fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn - tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC - LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz - 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l - LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i - XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ - 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj - kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A - AAAASUVORK5CYII= - - - - Magenta - - - 24, 24 - - - Export png - - - Magenta - - - 24, 24 - - - Export to pdf - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0 - LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5 - Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk - aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY - 20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES - OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj - 5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx - JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h - o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i - UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM - f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN - XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt - UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI - M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK - BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7 - w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW - F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN - HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/ - p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH - fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn - tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC - LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz - 6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l - LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i - XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ - 8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj - kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A - AAAASUVORK5CYII= - - - - Magenta - - - 24, 24 - - - Export png - Magenta @@ -651,202 +558,163 @@ Export png - - 770, 17 - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w - LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 - ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAfQBBQH0AQUBEAEAARABAAT/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/0YAAQgEcgEICgABGgEc - AnQBHAEaKQABcgFVAVoCWwFaAVUBTwgAAXQBeQF6AuUBegF5AXQnAAJVAVoBWwLkAVsBWgJVBgABdAJ6 - BOUBegF5AVIlAAFPAVUCWgRbAVoCVQFPBAABUgFZAXoG5QF6AlIjAAEIAlUIWgJVAQgCAAEaAVIBWQF6 - BuUBWQFYAVIBGiIAAU8CVQdaA1UBTwIAAUwBUgpZAVIBTCIAAU8BNApVATQBLgIAAUwBUgFTCFkBUwFS - AUwiAAEtAzMHNAIzAS0CAAIrAjIGUwIyAisiAAFPAS0BMwhVATQCLQIAAUwCKwhTAVICKyIAAQgBLQFV - CJcBVQEtAQgCAAEaASsBUgh1AVIBKwEaIwABAgGXCJgBlwEtBAABKgF0CJoBdAErJQABTwEIARsFwgHx - AU8GAAFMARoBGwQaARsBGgFSJwABTwEIAfMC/wHzAQgBcggAAUwBGgT2ARoBdCkAAQgEcgEICgABGgR0 - ARplAAFCAU0BPgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/AQAE/wQAAfgBHwH4AR8EAAHw - AQ8B8AEPBAAB4AEHAeABBwQAAcABAwHAAQMEAAGAAQEBgAEBBAABgAEBAYABAQQAAYABAQGAAQEEAAGA - AQEBgAEBBAABgAEBAYABAQQAAYABAQGAAQEEAAHAAQMBwAEDBAAB4AEHAeABBwQAAfABDwHwAQ8EAAH4 - AR8B+AEfBAAE/wQACw== - - - - 17, 17 - - - 179, 17 - - - 391, 17 - - - 597, 17 - - - 17, 134 - - - pnlDashboard - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 0, 0 - - Panel1 + + 209, 27 - + 0 - - GridControl_Docs - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 1 - - - BindingNavigator1 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 2 - - - NavBarControl1 - - - DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Panel1 - - - 3 - - - Fill + + ToolStrip3 - - Tahoma, 9pt + + ToolStripBottomRight - - 0, 146 + + System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 1347, 360 + + SplitContainerBottom.Panel2 - - 4 + + 1 - - Panel1 + + SplitContainerBottom.Panel2 - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - $this + + SplitContainerBottom - - 3 + + 1 - - 986, 31 + + 314, 74 - - 314, 293 + + 101 - - 10 + + 0 - - pnlDashboard + + SplitContainerBottom - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Panel1 + + SplitContainerDashboard.Panel2 - + 0 - - 392, 95 - - - 270, 198 + + SplitContainerDashboard.Panel2 - - ContextMenuGrid + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerDashboard - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 1 - - 256, 30 + + 314, 178 - - 631, 241 + + 100 - - 8 + + 7 - + False - - GridControl_Docs + + SplitContainerDashboard - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + Panel1 - - 1 + + 0 + + + 770, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw + CAAAAk1TRnQBSQFMAgEBAgEAARwBBgEcAQYBEAEAARABAAT/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/0YAAQgEcgEICgABGgEc + AnQBHAEaKQABcgFVAVoCWwFaAVUBTwgAAXQBeQF6AuUBegF5AXQnAAJVAVoBWwLkAVsBWgJVBgABdAJ6 + BOUBegF5AVIlAAFPAVUCWgRbAVoCVQFPBAABUgFZAXoG5QF6AlIjAAEIAlUIWgJVAQgCAAEaAVIBWQF6 + BuUBWQFYAVIBGiIAAU8CVQdaA1UBTwIAAUwBUgpZAVIBTCIAAU8BNApVATQBLgIAAUwBUgFTCFkBUwFS + AUwiAAEtAzMHNAIzAS0CAAIrAjIGUwIyAisiAAFPAS0BMwhVATQCLQIAAUwCKwhTAVICKyIAAQgBLQFV + CJcBVQEtAQgCAAEaASsBUgh1AVIBKwEaIwABAgGXCJgBlwEtBAABKgF0CJoBdAErJQABTwEIARsFwgHx + AU8GAAFMARoBGwQaARsBGgFSJwABTwEIAfMC/wHzAQgBcggAAUwBGgT2ARoBdCkAAQgEcgEICgABGgR0 + ARplAAFCAU0BPgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/AQAE/wQAAfgBHwH4AR8EAAHw + AQ8B8AEPBAAB4AEHAeABBwQAAcABAwHAAQMEAAGAAQEBgAEBBAABgAEBAYABAQQAAYABAQGAAQEEAAGA + AQEBgAEBBAABgAEBAYABAQQAAYABAQGAAQEEAAHAAQMBwAEDBAAB4AEHAeABBwQAAfABDwHwAQ8EAAH4 + AR8B+AEfBAAE/wQACw== + + + 17, 17 + + + 179, 17 + + + 391, 17 + + + 597, 17 + + + 392, 95 + 269, 26 @@ -927,6 +795,39 @@ Layout speichern + + 270, 198 + + + ContextMenuGrid + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 256, 30 + + + 631, 241 + + + 8 + + + False + + + GridControl_Docs + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel1 + + + 1 + 17, 134 @@ -1133,6 +1034,12 @@ 541, 95 + + 219, 26 + + + Starte Validierung für Profil + 220, 30 @@ -1330,11 +1237,32 @@ 3 - - 219, 26 + + Fill - - Starte Validierung für Profil + + Tahoma, 9pt + + + 0, 146 + + + 1347, 360 + + + 4 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 908, 17 @@ -1342,6 +1270,18 @@ 519, 134 + + 234, 22 + + + Popup Erinnerung inaktivieren + + + 234, 22 + + + Monitor anzeigen + 235, 48 @@ -1523,18 +1463,6 @@ True - - 234, 22 - - - Popup Erinnerung inaktivieren - - - 234, 22 - - - Monitor anzeigen - 1023, 17 @@ -1858,6 +1786,18 @@ 0, 0 + + Allgemein + + + Funktionen + + + Verwaltung + + + Grundeinstellungen + Funktionen @@ -1894,36 +1834,111 @@ 5 - - Allgemein + + RibbonPage2 - - Funktionen + + 701, 134 + + + 853, 134 + + + 946, 134 + + + PDF Files (*.pdf*)|*.pdf - - Verwaltung + + 1083, 134 + + + 1203, 134 + + + Top - - Grundeinstellungen + + 0, 0 - - RibbonPage2 + + 1347, 0 + + + barDockControlTop + + + DevExpress.XtraBars.BarDockControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 9 + + + Bottom + + + 0, 527 + + + 1347, 0 + + + barDockControlBottom + + + DevExpress.XtraBars.BarDockControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 8 + + + Left + + + 0, 0 + + + 0, 527 + + + barDockControlLeft + + + DevExpress.XtraBars.BarDockControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 6 + + + Right + + + 1347, 0 + + + 0, 527 + + + barDockControlRight + + + DevExpress.XtraBars.BarDockControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 701, 134 - - - 853, 134 - - - 946, 134 - - - PDF Files (*.pdf*)|*.pdf + + $this + + + 7 - - 1083, 134 - True @@ -2588,10 +2603,723 @@ System.ComponentModel.BackgroundWorker, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DocumentViewerBarManager1 + + + DevExpress.XtraPrinting.Preview.DocumentViewerBarManager, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewStaticItem1 + + + DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ProgressBarEditItem1 + + + DevExpress.XtraPrinting.Preview.ProgressBarEditItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RepositoryItemProgressBar2 + + + DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarItem1 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewStaticItem2 + + + DevExpress.XtraPrinting.Preview.PrintPreviewStaticItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ZoomTrackBarEditItem1 + + + DevExpress.XtraPrinting.Preview.ZoomTrackBarEditItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RepositoryItemZoomTrackBar1 + + + DevExpress.XtraEditors.Repository.RepositoryItemZoomTrackBar, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiDocumentMap + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiParameters + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiThumbnails + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiFind + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiHighlightEditingFields + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiCustomize + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiOpen + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiSave + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiPrint + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiPrintDirect + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiPageSetup + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiEditPageHF + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiScale + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiHandTool + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiMagnifier + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiZoomOut + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiZoom + + + DevExpress.XtraPrinting.Preview.ZoomBarEditItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewRepositoryItemComboBox1 + + + DevExpress.XtraPrinting.Preview.PrintPreviewRepositoryItemComboBox, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiZoomIn + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiShowFirstPage + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiShowPrevPage + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiShowNextPage + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiShowLastPage + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiMultiplePages + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiFillBackground + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiWatermark + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiExportFile + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiSendFile + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + bbiClosePreview + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + miFile + + + DevExpress.XtraPrinting.Preview.PrintPreviewSubItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + miView + + + DevExpress.XtraPrinting.Preview.PrintPreviewSubItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + miPageLayout + + + DevExpress.XtraPrinting.Preview.PrintPreviewSubItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + miPageLayoutFacing + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + miPageLayoutContinuous + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + miToolbars + + + DevExpress.XtraBars.BarToolbarsListItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + miBackground + + + DevExpress.XtraPrinting.Preview.PrintPreviewSubItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem1 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem2 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem3 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem4 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem5 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem6 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem7 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem8 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem9 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem10 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem11 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem12 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem13 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem14 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem15 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem16 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem17 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem18 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + PrintPreviewBarCheckItem19 + + + DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmMain DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxOS4yLCBWZXJzaW9uPTE5LjIu + My4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE + ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL + + + + keine + + + 150 + + + Stoppen + + + Stoppen + + + 100% + + + 140 + + + Dokumentenübersicht + + + Dokumentenübersicht + + + Parameter + + + Parameter + + + Miniaturansicht + + + Miniaturansicht + + + Suchen + + + Suchen + + + Formularfelder + + + Formularfelder hervorheben + + + Anpassen + + + Anpassen + + + Öffnen + + + Ein Dokument öffnen + + + Speichern + + + Speichert das Dokument + + + &Drucken... + + + Drucken + + + D&rucken + + + Sofort drucken + + + Sei&teneinstellungen... + + + Seiteneinstellungen + + + Kopf- und Fußzeile + + + Kopf- und Fußzeile + + + Skalierung + + + Skalierung + + + Hand + + + Hand + + + Lupe + + + Lupe + + + Verkleinern + + + Verkleinern + + + Zoom + + + Combo + + + 70 + + + Zoom + + + Vergrößern + + + Vergrößern + + + Erste Seite + + + Erste Seite + + + Vorhergehende Seite + + + Vorhergehende Seite + + + Nächste Seite + + + Nächste Seite + + + Letzte Seite + + + Letzte Seite + + + Mehrere Seiten + + + Mehrere Seiten + + + &Farbe... + + + Hintergrund + + + &Wasserzeichen... + + + Wasserzeichen + + + Dokument exportieren... + + + Dokument exportieren... + + + Sende E-Mail... + + + Sende E-Mail... + + + B&eenden + + + Druckvorschau schließen + + + &Datei + + + &Ansicht + + + &Seiten Layout + + + Einzeln + + + Fortlaufend + + + Bars + + + &Hintergrund + + + PDF Dokument + + + PDF Dokument + + + HTML Dokument + + + HTML Dokument + + + MHT Dokument + + + MHT Dokument + + + Rich Text Dokument + + + Rich Text Dokument + + + Word 2007 Dokument + + + Word 2007 Dokument + + + Excel Dokument + + + Excel Dokument + + + Excel 2007 Dokument + + + Excel 2007 Dokument + + + CSV Dokument + + + CSV Dokument + + + Text Dokument + + + Text Dokument + + + Graphisches Dokument + + + Graphisches Dokument + + + PDF Dokument + + + PDF Dokument + + + MHT Dokument + + + MHT Dokument + + + Rich Text Dokument + + + Rich Text Dokument + + + Word 2007 Dokument + + + Word 2007 Dokument + + + Excel Dokument + + + Excel Dokument + + + Excel 2007 Dokument + + + Excel 2007 Dokument + + + CSV Dokument + + + CSV Dokument + + + Text Dokument + + + Text Dokument + + + Graphisches Dokument + + + Graphisches Dokument + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index c149d80..daf873e 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -30,7 +30,6 @@ Public Class frmMain Private NO_WORKFLOWITEMS As Boolean = False Private InResetlayout As Boolean = False Private RefreshHelper As RefreshHelper - Dim DT_CHARTS As DataTable Private formopenClose As Boolean = False Private formShown As Boolean = False 'Private _windream As New ClassWindream_allgemein @@ -38,7 +37,7 @@ Public Class frmMain Private CurrNavBarGroup As NavBarGroup - Private DTGRID_GROUPS As DataTable + Private DT_CHECKUSER_MODULE As DataTable Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing @@ -176,7 +175,7 @@ Public Class frmMain Try If SHOW_CHARTS = True Then - If DT_CHARTS.Rows.Count = 0 Then + If BASEDATA_DT_CHARTS.Rows.Count = 0 Then NavBarItemDashboard.Visible = False Else NavBarItemDashboard.Visible = True @@ -196,13 +195,16 @@ Public Class frmMain Try WINDREAM = New ClassPMWindream WINDREAM.Start_WMCC_andCo() - + If Not IsNothing(WINDREAM.oSession) Then + If WINDREAM.oSession.aLoggedin = False Then + MsgBox("You could not be logged in to windream. Please check the log.", MsgBoxStyle.Critical) + End If + Else + MsgBox("Login on windream was not possible. Please check the log.", MsgBoxStyle.Critical) + End If '_windreamPM = New ClassPMWindream '_windreamPM.Start_WMCC_andCo() - If WINDREAM.oSession.aLoggedin = False Then - MsgBox("Login on windream was not possible. Please check the log." & vbNewLine & "Application will close now!", MsgBoxStyle.Critical) - Me.Close() - End If + Catch ex As Exception LOGGER.Error(ex) MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") @@ -482,8 +484,8 @@ Public Class frmMain BindingNavigator1.Dock = DockStyle.Top GridControl_Docs.Visible = True GridControl_Docs.Dock = DockStyle.Fill - pnlDashboard.Visible = False - pnlDashboard.Dock = DockStyle.None + SplitContainerDashboard.Visible = False + SplitContainerDashboard.Dock = DockStyle.None End If End Sub @@ -499,24 +501,28 @@ Public Class frmMain GridControl_Docs.Visible = False Dim groupCount As Integer Dim charts As List(Of ChartControl) - pnlDashboard.Visible = True - Dim Groups As DataRowCollection = DT_CHARTS.Rows - groupCount = Groups.Count + SplitContainerDashboard.Visible = True + Dim oGroups As DataRowCollection = BASEDATA_DT_CHARTS.Rows + groupCount = oGroups.Count Configure_Split_Containers(groupCount) charts = New List(Of ChartControl) From {ChartTopLeft, ChartTopRight, ChartBottomLeft, ChartBottomRight} If groupCount > 1 Then - For Each gRow As DataRow In Groups - Dim oGroupIndex As Integer = Groups.IndexOf(gRow) + LOGGER.Debug($"ChartCreating...Found more than one charts [{groupCount}]") + For Each gRow As DataRow In oGroups + Dim oGroupIndex As Integer = oGroups.IndexOf(gRow) Dim oGroupID As String = gRow.Item("GROUP_ID") - Dim groupCharts = DT_CHARTS.Select(String.Format("GROUP_ID = '{0}'", oGroupID)) + Dim groupCharts = BASEDATA_DT_CHARTS.Select(String.Format("GROUP_ID = '{0}'", oGroupID)) Dim chart As ChartControl For Each cRow As DataRow In groupCharts Dim oChartType = cRow.Item("TYPE_CHART") + LOGGER.Debug($"oChartType [{oChartType}]") Dim oChartTitle = cRow.Item("TITLE") + LOGGER.Debug($"oChartTitle [{oChartTitle}]") Dim guid = cRow.Item("GUID") + LOGGER.Debug($"guid [{guid}]") Dim oChartValue = cRow.Item("VALUE") Dim oChartArgument = cRow.Item("ARGUMENT") Dim oSqlchart = cRow.Item("SQL_COMMAND") @@ -551,11 +557,11 @@ Public Class frmMain Next 'End Groups Else ' Create Charts - For Each cRow As DataRow In DT_CHARTS.Rows + For Each cRow As DataRow In BASEDATA_DT_CHARTS.Rows Dim chart As ChartControl - Dim chartIndex As Integer = DT_CHARTS.Rows.IndexOf(cRow) + Dim chartIndex As Integer = BASEDATA_DT_CHARTS.Rows.IndexOf(cRow) Dim oChartType = cRow.Item("TYPE_CHART") Dim oChartTitle = cRow.Item("TITLE") @@ -607,15 +613,19 @@ Public Class frmMain End Sub Private Function Create_Series(title As String, type As String) As Series Dim series As Series - + LOGGER.Debug($"In Create new series: type [{type}]") Select Case type Case "BAR" + LOGGER.Debug("Create new series: ViewType.Bar") series = New Series(title, ViewType.Bar) Case "LINE" + LOGGER.Debug("Create new series: ViewType.Line") series = New Series(title, ViewType.Line) Case "AREA" + LOGGER.Debug("Create new series: ViewType.Area") series = New Series(title, ViewType.Area) Case "PIE" + LOGGER.Debug("Create new series: ViewType.Pie") series = New Series(title, ViewType.Pie) series.Label.TextPattern = "{A}: {VP:p0}" Dim view As PieSeriesView = DirectCast(series.View, PieSeriesView) @@ -658,7 +668,7 @@ Public Class frmMain ' Show SplitContainerBottom SplitContainerDashboard.Panel2Collapsed = False End Select - pnlDashboard.Dock = DockStyle.Fill + SplitContainerDashboard.Dock = DockStyle.Fill End Sub Sub Load_single_Profile() @@ -981,7 +991,7 @@ Public Class frmMain Exit Sub End If - If CURRENT_DT_VW_PROFILE_USER.Rows.Count > 0 Then + If BASEDATA_DT_VW_PROFILE_USER.Rows.Count > 0 Then Dim oMessage As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("App.ReminderPipeline") NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info) End If @@ -1017,12 +1027,12 @@ Public Class frmMain End If - CURRENT_DT_PROFILE_SEARCHES_DOC.Clear() + BASEDATA_DT_PROFILE_SEARCHES_DOC.Clear() oExpression = $"PROFILE_ID = {CURRENT_ProfilGUID}" - CURRENT_DT_PROFILES_SEARCHES_DOC.Select(oExpression, "TAB_INDEX").CopyToDataTable(CURRENT_DT_PROFILE_SEARCHES_DOC, LoadOption.PreserveChanges) + BASEDATA_DT_PROFILES_SEARCHES_DOC.Select(oExpression, "TAB_INDEX").CopyToDataTable(BASEDATA_DT_PROFILE_SEARCHES_DOC, LoadOption.PreserveChanges) 'CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID)) - CURRENT_DT_PROFILE_SEARCHES_SQL.Clear() - CURRENT_DT_PROFILES_SEARCHES_SQL.Select(oExpression, "TAB_INDEX").CopyToDataTable(CURRENT_DT_PROFILE_SEARCHES_SQL, LoadOption.PreserveChanges) + BASEDATA_DT_PROFILE_SEARCHES_SQL.Clear() + BASEDATA_DT_PROFILES_SEARCHES_SQL.Select(oExpression, "TAB_INDEX").CopyToDataTable(BASEDATA_DT_PROFILE_SEARCHES_SQL, LoadOption.PreserveChanges) 'CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID)) frmValidator.Show() @@ -1093,6 +1103,14 @@ Public Class frmMain End Sub Private Sub Item_Scope(startedFrom As String) Try + If Application.OpenForms().OfType(Of frmValidator).Any Then + bsiMessage.Caption = "There is already an active workflow!" + LOGGER.Info("Item Scope - Workflow open! - Exit") + bsiMessage.ItemAppearance.Normal.BackColor = Color.Red + Exit Sub + End If + bsiMessage.Caption = "" + bsiMessage.ItemAppearance.Normal.BackColor = Color.Transparent Dim OItemScopeInfo = "No Item so far" 'GridView_Docs.EndSelection() CURRENT_JUMP_DOC_GUID = 0 @@ -1170,6 +1188,14 @@ Public Class frmMain Dim oFocusedDocID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DocID")) If IsNothing(oFocusedDocID) Then LOGGER.Warn("In hitInfo.InDataRow: DocID is nothing!!!") + bsiMessage.Caption = "Error getting DocID!" + bsiMessage.ItemAppearance.Normal.BackColor = Color.Red + Exit Sub + End If + If IsNothing(oFocusedDocGUID) Then + LOGGER.Warn("In hitInfo.InDataRow: oFocusedDocGUID is nothing!!!") + bsiMessage.Caption = "Error getting DocGUID!" + bsiMessage.ItemAppearance.Normal.BackColor = Color.Red Exit Sub End If LOGGER.Debug($"Item_Scope: GotDocID {oFocusedDocID} and DocGUID {oFocusedDocGUID}") @@ -1178,8 +1204,8 @@ Public Class frmMain LOGGER.Warn("In hitInfo.InDataRow: DOC_PATH is nothing!!!") Exit Sub End If - DOC_PATH = DOC_PATH.Replace("W:", "\\windream\objects") - DOC_PATH = DOC_PATH.Replace("K:", "\\windream\objects") + DOC_PATH = DOC_PATH.Replace("W:\", "\\windream\objects\") + DOC_PATH = DOC_PATH.Replace("K:\", "\\windream\objects\") 'Checking if table really contains one record with profile-id and docid expression = expression & " AND DocID = " & oFocusedDocID Dim TEMP_TABLE = CURR_DT_OVERVIEW @@ -1203,7 +1229,7 @@ Public Class frmMain Dim omsg As String = "Achtung: der gewählte Beleg ist durch einen anderen Benutzer bereits in Bearbeitung oder anderweitig gesperrt" Dim otitle = "Achtung:" If USER_LANGUAGE <> "de-DE" Then - omsg = "Attention: the chosen item is in work from another user or locked!" + omsg = "Attention: the item You chose is rather in work or locked from another user!" otitle = "Attention:" End If MsgBox(omsg, MsgBoxStyle.Exclamation, otitle) @@ -1363,7 +1389,7 @@ Public Class frmMain End Sub Sub Load_Grid_Overview() Dim oStopWatch As New RefreshHelper.SW("Load_Grid_Overview(LGO)") - pnlDashboard.Visible = False + SplitContainerDashboard.Visible = False Layout_Single_Profile() GRID_LOAD_TYPE = "OVERVIEW" CURRENT_CLICKED_PROFILE_ID = 0 @@ -1375,7 +1401,7 @@ Public Class frmMain Try bsiMessage.Caption = "" - If CURRENT_DT_VW_PROFILE_USER.Rows.Count = 0 Then + If BASEDATA_DT_VW_PROFILE_USER.Rows.Count = 0 Then LOGGER.Info("no profiles for user: '" & USER_USERNAME & "' configured!", False) NO_WORKFLOWITEMS = True bsiMessage.Caption = "Keine Profile für Ihren User hinterlegt" @@ -1387,7 +1413,7 @@ Public Class frmMain oStopWatch1.Done() 'ClassInit.InitBasics() Dim oStopWatch2 As New RefreshHelper.SW("LGO#build CURR_DT_OVERVIEW") - Dim oSQLOverview = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") + Dim oSQLOverview = BASEDATA_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW") If IsDBNull(oSQLOverview) Then bsiMessage.Caption = "No GROUP-CONFIG (SQL_PROFILE_MAIN_VIEW) in Baseconfig" oStopWatch.Done() @@ -1495,8 +1521,8 @@ Public Class frmMain 'GridView_Docs.OptionsView.ShowGroupedColumns = False GridView_Docs.OptionsView.ShowGroupPanel = False Dim oindex As Integer = 0 - If Not IsNothing(DTGRID_GROUPS) Then - For Each oGridGroup As DataRow In DTGRID_GROUPS.Rows + If Not IsNothing(BASEDATA_DTGRID_GROUPS) Then + For Each oGridGroup As DataRow In BASEDATA_DTGRID_GROUPS.Rows LOGGER.Debug($"Addig group [{oGridGroup.Item("GROUPNAME")}] for Grid...") GridView_Docs.Columns.Item(oGridGroup.Item("GROUPNAME")).GroupIndex = oindex oindex += 1 @@ -1581,6 +1607,7 @@ Public Class frmMain TimerRefresh.Enabled = False End If Layout_Dashboard() + frmInvDashboard.Show() End Sub Private Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click @@ -1730,30 +1757,34 @@ Public Class frmMain CURRENT_DT_PROFILE = CURRENT_DT_PROFILES.Clone() End If If pMode = "bwBasicData" Then bwBasicData.ReportProgress(40) - CURRENT_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX") + BASEDATA_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX") If pMode = "Load" Then - CURRENT_DT_PROFILE_SEARCHES_DOC = CURRENT_DT_PROFILES_SEARCHES_DOC.Clone() + BASEDATA_DT_PROFILE_SEARCHES_DOC = BASEDATA_DT_PROFILES_SEARCHES_DOC.Clone() End If If pMode = "bwBasicData" Then bwBasicData.ReportProgress(50) - CURRENT_DT_PROFILES_SEARCHES_SQL = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'SQL' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX") + BASEDATA_DT_PROFILES_SEARCHES_SQL = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'SQL' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX") If pMode = "Load" Then - CURRENT_DT_PROFILE_SEARCHES_SQL = CURRENT_DT_PROFILES_SEARCHES_SQL.Clone() + BASEDATA_DT_PROFILE_SEARCHES_SQL = BASEDATA_DT_PROFILES_SEARCHES_SQL.Clone() End If If pMode = "bwBasicData" Then bwBasicData.ReportProgress(60) - oSQL = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID) - CURRENT_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSQL) - If pMode = "bwBasicData" Then bwBasicData.ReportProgress(70) - DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1") - oSQL = "SELECT * FROM TBPM_CHART" - DT_CHARTS = ClassDatabase.Return_Datatable(oSQL) + 'oSQL = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID) + 'CURRENT_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSQL) + 'If pMode = "bwBasicData" Then bwBasicData.ReportProgress(70) + 'DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1") + 'oSQL = "SELECT * FROM TBPM_CHART" + 'DT_CHARTS = ClassDatabase.Return_Datatable(oSQL) oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX ORDER BY PROFIL_ID,Y_LOC, X_LOC" - DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable("oSQL") + DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable(oSQL) + If pMode = "bwBasicData" Then bwBasicData.ReportProgress(80) If pMode = "Load" Then DTVWCONTROL_INDEX = DTVWCONTROLS_INDEX.Clone() End If + oSQL = $"SELECT * FROM TBPM_PROFILE_CONTROLS WHERE LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND CTRL_TYPE <> 'BUTTON'" + DTCONTROLS_WITH_SQL = ClassDatabase.Return_Datatable(oSQL) + If pMode = "bwBasicData" Then bwBasicData.ReportProgress(85) If pMode = "bwBasicData" Then bwBasicData.ReportProgress(100) Catch ex As Exception - LOGGER.Warn($"Error laoding basic data Error [{ex.Message}]") + LOGGER.Warn($"Error in GetBaseData - Error: [{ex.Message}]") End Try oStopWatch.Done() End Sub diff --git a/app/DD_PM_WINDREAM/frmMassValidator.vb b/app/DD_PM_WINDREAM/frmMassValidator.vb index 6c86787..1b226dc 100644 --- a/app/DD_PM_WINDREAM/frmMassValidator.vb +++ b/app/DD_PM_WINDREAM/frmMassValidator.vb @@ -68,7 +68,7 @@ Public Class frmMassValidator End Try ' Try - Delimiter = CURRENT_DT_CONFIG.Rows(0).Item("VEKTOR_DELIMITER") + Delimiter = BASEDATA_DT_CONFIG.Rows(0).Item("VEKTOR_DELIMITER") If CURRENT_DT_PROFILE.Rows.Count = 0 Then LOGGER.Info(">> Profildaten konnten nicht geladen werden - Übergebenes Profil: : " & CURRENT_ProfilName, True) @@ -1324,7 +1324,7 @@ Public Class frmMassValidator Private Function CreateWMObject() As String CURRENT_WMFILE = Nothing LOGGER.Debug($"in GetWMDocFileString...'") - Dim oWMRELPATH As String = CURRENT_DT_CONFIG.Rows.Item(0).Item("WM_REL_PATH") + Dim oWMRELPATH As String = BASEDATA_DT_CONFIG.Rows.Item(0).Item("WM_REL_PATH") If oWMRELPATH.EndsWith("\") = False Then oWMRELPATH = oWMRELPATH & "\" End If diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb index b48fda6..7ee6de4 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb @@ -90,6 +90,7 @@ Public Class frmSQL_DESIGNER cmbIndexe.Visible = False lbIndexe.Visible = False btnAddIndex.Visible = False + End If Catch ex As Exception LOGGER.Error(ex) @@ -230,6 +231,8 @@ Public Class frmSQL_DESIGNER lblSaveFinalIndex.Text = "SQL für finalen Index wurde erfolgreich gespeichert! " & Now.ToString End If SQLCommand = SQL_COMMANDTextBox.Text + ConnectionID = cmbConnection.SelectedValue + CURRENT_CONN_ID = ConnectionID End Sub Private Sub btnAddControl_Click(sender As Object, e As EventArgs) Handles btnAddControl.Click diff --git a/app/DD_PM_WINDREAM/frmSplash.vb b/app/DD_PM_WINDREAM/frmSplash.vb index a7a71b4..53a1a00 100644 --- a/app/DD_PM_WINDREAM/frmSplash.vb +++ b/app/DD_PM_WINDREAM/frmSplash.vb @@ -76,23 +76,23 @@ Public NotInheritable Class frmSplash _ Private Sub bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) - Dim Init = New ClassInit() + Dim _Init As ClassInit = New ClassInit() bw.ReportProgress(CalcProgress(1), "Initialize Logging") - Init.InitLogger() + _Init.InitLogger() System.Threading.Thread.Sleep(600) bw.ReportProgress(CalcProgress(2), "Initialize User Settings") - Init.InitUserConfig() + _Init.InitUserConfig() System.Threading.Thread.Sleep(600) bw.ReportProgress(CalcProgress(3), "Initialize Database") - If Init.InitDatabase() = True Then + If _Init.InitDatabase() = True Then System.Threading.Thread.Sleep(600) bw.ReportProgress(CalcProgress(4), "Initialize UserConfiguration") - Init.InitBasics() - Init.InitUserLogin() - + _Init.InitBasics() + _Init.InitUserLogin() + _Init.InitBasics2() 'System.Threading.Thread.Sleep(600) 'bw.ReportProgress(CalcProgress(5), "Initialize windream-Settings") diff --git a/app/DD_PM_WINDREAM/frmValidator.Designer.vb b/app/DD_PM_WINDREAM/frmValidator.Designer.vb index dcb73b3..c3f5818 100644 --- a/app/DD_PM_WINDREAM/frmValidator.Designer.vb +++ b/app/DD_PM_WINDREAM/frmValidator.Designer.vb @@ -36,14 +36,8 @@ Partial Class frmValidator Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.TBDD_CONNECTIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() - Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() - Me.TBPM_PROFILE_FILESTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() Me.TBPM_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() - Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components) Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() @@ -93,13 +87,13 @@ Partial Class frmValidator Me.bbtniAnnotation = New DevExpress.XtraBars.BarButtonItem() Me.bsiInfo1 = New DevExpress.XtraBars.BarStaticItem() Me.bsiInfo2 = New DevExpress.XtraBars.BarStaticItem() + Me.BbtnItm = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.BbtnItm = New DevExpress.XtraBars.BarButtonItem() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() @@ -109,10 +103,7 @@ Partial Class frmValidator CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).BeginInit() @@ -197,56 +188,27 @@ Partial Class frmValidator 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Me.TBDD_CONNECTIONTableAdapter Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing - Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Me.TBPM_KONFIGURATIONTableAdapter Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Me.TBPM_PROFILE_FILESTableAdapter + Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILETableAdapter = Me.TBPM_PROFILETableAdapter Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' - 'TBDD_CONNECTIONTableAdapter - ' - Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True - ' - 'TBPM_KONFIGURATIONTableAdapter - ' - Me.TBPM_KONFIGURATIONTableAdapter.ClearBeforeFill = True - ' - 'TBPM_PROFILE_FILESTableAdapter - ' - Me.TBPM_PROFILE_FILESTableAdapter.ClearBeforeFill = True - ' 'TBPM_PROFILETableAdapter ' Me.TBPM_PROFILETableAdapter.ClearBeforeFill = True ' - 'TBDD_CONNECTIONBindingSource - ' - Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" - Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' - 'TBPM_PROFILE_FILESBindingSource - ' - Me.TBPM_PROFILE_FILESBindingSource.DataMember = "TBPM_PROFILE_FILES" - Me.TBPM_PROFILE_FILESBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' 'TBPM_PROFILEBindingSource ' Me.TBPM_PROFILEBindingSource.DataMember = "TBPM_PROFILE" Me.TBPM_PROFILEBindingSource.DataSource = Me.DD_DMSLiteDataSet ' - 'TBPM_KONFIGURATIONBindingSource - ' - Me.TBPM_KONFIGURATIONBindingSource.DataMember = "TBPM_KONFIGURATION" - Me.TBPM_KONFIGURATIONBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' 'BarManager1 ' Me.BarManager1.Controller = Me.BarAndDockingController3 @@ -621,6 +583,14 @@ Partial Class frmValidator Me.bsiInfo2.Name = "bsiInfo2" Me.bsiInfo2.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph ' + 'BbtnItm + ' + resources.ApplyResources(Me.BbtnItm, "BbtnItm") + Me.BbtnItm.Id = 16 + Me.BbtnItm.ImageOptions.Image = CType(resources.GetObject("BbtnItm.ImageOptions.Image"), System.Drawing.Image) + Me.BbtnItm.ImageOptions.LargeImage = CType(resources.GetObject("BbtnItm.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BbtnItm.Name = "BbtnItm" + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageGroup2}) @@ -671,14 +641,6 @@ Partial Class frmValidator Me.RibbonPage2.Name = "RibbonPage2" resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") ' - 'BbtnItm - ' - resources.ApplyResources(Me.BbtnItm, "BbtnItm") - Me.BbtnItm.Id = 16 - Me.BbtnItm.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image) - Me.BbtnItm.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image) - Me.BbtnItm.Name = "BbtnItm" - ' 'frmValidator ' Me.Appearance.Options.UseFont = True @@ -706,10 +668,7 @@ Partial Class frmValidator CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).EndInit() @@ -727,14 +686,8 @@ Partial Class frmValidator Friend WithEvents pnldesigner As System.Windows.Forms.Panel Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager - Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter - Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter - Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter Friend WithEvents TBPM_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter - Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents PdfBarController1 As DevExpress.XtraPdfViewer.Bars.PdfBarController Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager Friend WithEvents PdfFileOpenBarItem1 As DevExpress.XtraPdfViewer.Bars.PdfFileOpenBarItem diff --git a/app/DD_PM_WINDREAM/frmValidator.resx b/app/DD_PM_WINDREAM/frmValidator.resx index f0ab9c9..5d749d5 100644 --- a/app/DD_PM_WINDREAM/frmValidator.resx +++ b/app/DD_PM_WINDREAM/frmValidator.resx @@ -417,32 +417,14 @@ 770, 17 - - 17, 56 - - - 280, 95 - - - 500, 56 - - 952, 56 - - - 943, 17 - - - 255, 56 + 1155, 17 - 740, 56 - - - 17, 95 + 943, 17 - 17, 134 + 17, 56 Top @@ -888,24 +870,24 @@ Speichern - + - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAEnRFWHRUaXRsZQBTYXZlIFRv - O1NhdmXUq5lyAAAAiElEQVQ4T72PzQ2AIAxGWZBFHIBFPDACRxMvnpyt0oY2pUHwLx6eFPi+F3EA8Ar6 - zNOyZwApe5ob6DvsiEBCJwI+s3f/CZhrAgYDDfqCm3wswFmDgQ5jQUhRAwrq4PpYwIwEXPBqrvYjgS1a - fCUwrDnQk+C5PGEz5ZGEykj1yxYOFVgi5ZCiOwDrAold7eaipwAAAABJRU5ErkJggg== + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAFNhdmUgVG87U2F2ZdSrmXIAAACI + SURBVDhPvY/NDYAgDEZZkEUcgEU8MAJHEy+enK3ShjalQfAvHp4U+L4XcQDwCvrM07JnACl7mhvoO+yI + QEInAj6zd/8JmGsCBgMN+oKbfCzAWYOBDmNBSFEDCurg+ljAjARc8Gqu9iOBLVp8JTCsOdCT4Lk8YTPl + kYTKSPXLFg4VWCLlkKI7AOsCiV3t5qKnAAAAAElFTkSuQmCC - + - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAEnRFWHRUaXRsZQBTYXZlIFRv - O1NhdmXUq5lyAAABBklEQVRYR+2Xuw3CQBBE3ZklIidO6QEKoBECSiBEogv6QHITwLFj6dDssv6JswHp - gid779YzL3URQvgq7uGSuIdLoob99lQKFyEQOGf4bgi7j+ySO61AQ8sRLreBQ3j7DXdaAbsMuLxrB3g7 - 7j53ZoEskFLAw93nzr8UmMpbJneOEUgOd2aBPoHV7ngoUoAszubOTgEv6BM4mzsXE4hwH1DDDALIUXAf - UEMWyAI/JSBU8oEX2kcsugkbmpm1gPt27hOYwlnCIFDHYOFVYuDz2gpcTfAUPIk7vQNVjk4rUAnev8FY - PIkHvUfa8jcBuUgJS7jlYE4BYCVUOVCDLMxBlMBT9YUQiifIB8S/GJNB2gAAAABJRU5ErkJggg== + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAFNhdmUgVG87U2F2ZdSrmXIAAAEG + SURBVFhH7Ze7DcJAEETdmSUiJ07pAQqgEQJKIESiC/pAchPAsWPp0Oyy/omzAemCJ3vv1jMvdRFC+Cru + 4ZK4h0uihv32VAoXIRA4Z/huCLuP7JI7rUBDyxEut4FDePsNd1oBuwy4vGsHeDvuPndmgSyQUsDD3efO + vxSYylsmd44RSA53ZoE+gdXueChSgCzO5s5OAS/oEzibOxcTiHAfUMMMAshRcB9QQxbIAj8lIFTygRfa + Ryy6CRuambWA+3buE5jCWcIgUMdg4VVi4PPaClxN8BQ8iTu9A1WOTitQCd6/wVg8iQe9R9ryNwG5SAlL + uOVgTgFgJVQ5UIMszEGUwFP1hRCKJ8gHxL8Yk0HaAAAAAElFTkSuQmCC @@ -1199,54 +1181,18 @@ DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - TBDD_CONNECTIONTableAdapter - - - DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBPM_KONFIGURATIONTableAdapter - - - DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBPM_PROFILE_FILESTableAdapter - - - DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - TBPM_PROFILETableAdapter DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - TBDD_CONNECTIONBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBPM_PROFILE_FILESBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - TBPM_PROFILEBindingSource System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TBPM_KONFIGURATIONBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - BarManager1 @@ -1511,6 +1457,12 @@ DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BbtnItm + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage1 @@ -1541,12 +1493,6 @@ DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - BbtnItm - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - frmValidator @@ -1858,22 +1804,22 @@ BarButtonItem1 - 1053, 95 + 1361, 17 - 142, 134 + 142, 56 - 290, 134 + 290, 56 - 439, 134 + 439, 56 - 749, 134 + 749, 56 - 1054, 134 + 1054, 56 Datei diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 75a4d96..77ce34a 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -18,7 +18,7 @@ Public Class frmValidator Dim PROFIL_FINISH_SQL Dim PROFIL_LOGINDEX - Dim Delimiter As String + Private PMDelimiter As String Dim WD_Search As String Dim finalProfile As Boolean @@ -94,6 +94,7 @@ Public Class frmValidator 'End Function Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load + PMDelimiter = "~" Override = False ItemWorked = False SplitContainer1.Panel2Collapsed = True @@ -125,25 +126,19 @@ Public Class frmValidator End Try Try _step = 1 - TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING _step = 2 DTVWCONTROL_INDEX.Clear() - Dim oExpression = $"PROFILE_ID = {CURRENT_ProfilGUID}" + Dim oExpression = $"PROFIL_ID = {CURRENT_ProfilGUID}" DTVWCONTROLS_INDEX.Select(oExpression, "Y_LOC, X_LOC").CopyToDataTable(DTVWCONTROL_INDEX, LoadOption.PreserveChanges) 'Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC" 'DTVWCONTROL_INDEX = ClassDatabase.Return_Datatable(oSQL) 'VWPM_CONTROL_INDEXTableAdapter.Fill(DD_DMSLiteDataSet.VWPM_CONTROL_INDEX, CURRENT_ProfilName) _step = 3 - TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) - _step = 4 - LOGGER.Debug("Profile Data loaded") Catch ex As Exception LOGGER.Error(ex) @@ -154,9 +149,6 @@ Public Class frmValidator End Try Try - Delimiter = TBPM_KONFIGURATIONTableAdapter.cmdGetDelimiter - - If CURRENT_DT_PROFILE.Rows.Count = 0 Then LOGGER.Info(">> ProfileData could not be loaded - Profile: : " & CURRENT_ProfilName, True) MsgBox("ProfileData could not be loaded - Profile: " & CURRENT_ProfilName, MsgBoxStyle.Critical, "Attention:") @@ -192,7 +184,12 @@ Public Class frmValidator If text <> "" Then btnSave.Text = text Else - btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton") + Try + btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton") + Catch ex As Exception + LOGGER.Warn("Missing Config frmValidator.ValidationButton in TBDD_GUI_LANGUAGE_PHRASE") + End Try + End If Else btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton") @@ -324,22 +321,22 @@ Public Class frmValidator End Function Public Sub Load_Additional_Searches() - If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Or CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then + If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Or BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then Dim oDocResultCommand As String Dim oDatatableDocResult As DataTable Dim oDataResultCommand As String Dim oDatatableDataResult As DataTable - If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then + If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then 'Check whether DocData is there - Dim oConID = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID") - oDataResultCommand = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND") + Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID") + oDataResultCommand = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND") oDataResultCommand = clsPatterns.ReplaceAllValues(oDataResultCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) oDatatableDataResult = ClassDatabase.Return_Datatable(oDataResultCommand) End If - If CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then + If BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then 'Check whether DocData is there - Dim oConID = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID") - oDocResultCommand = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND") + Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID") + oDocResultCommand = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND") oDocResultCommand = clsPatterns.ReplaceAllValues(oDocResultCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) oDatatableDocResult = ClassDatabase.Return_Datatable(oDocResultCommand) End If @@ -347,7 +344,7 @@ Public Class frmValidator Dim oDataResultsExist As Boolean = False Dim oDocResultsExist As Boolean = False - If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then + If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then If Not IsNothing(oDatatableDataResult) Then If oDatatableDataResult.Rows.Count > 0 Then oDataResultsExist = True @@ -355,7 +352,7 @@ Public Class frmValidator End If End If - If CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then + If BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then If Not IsNothing(oDatatableDocResult) Then If oDatatableDocResult.Rows.Count > 0 Then oDocResultsExist = True @@ -378,23 +375,23 @@ Public Class frmValidator Else oPnl2Collapsed = True End If - _frmValidatorSearch.TabPreload(oPnl1Collapsed, oPnl2Collapsed, CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count, CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count, - CURRENT_DT_PROFILE_SEARCHES_SQL, CURRENT_DT_PROFILE_SEARCHES_DOC) + _frmValidatorSearch.TabPreload(oPnl1Collapsed, oPnl2Collapsed, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count, BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count, + BASEDATA_DT_PROFILE_SEARCHES_SQL, BASEDATA_DT_PROFILE_SEARCHES_DOC) If oDataResultsExist Then - _frmValidatorSearch._DTSQLSearches = CURRENT_DT_PROFILE_SEARCHES_SQL - Dim oConID = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID") - Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND") + _frmValidatorSearch._DTSQLSearches = BASEDATA_DT_PROFILE_SEARCHES_SQL + Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID") + Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND") oCommand = clsPatterns.ReplaceAllValues(oCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - _frmValidatorSearch.Refresh_Load_GridSQL(oConID, oCommand, 0, CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE")) + _frmValidatorSearch.Refresh_Load_GridSQL(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE")) End If If oDocResultsExist Then - _frmValidatorSearch._DTDocSearches = CURRENT_DT_PROFILE_SEARCHES_DOC - Dim oConID = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID") - Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND") + _frmValidatorSearch._DTDocSearches = BASEDATA_DT_PROFILE_SEARCHES_DOC + Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID") + Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND") oCommand = clsPatterns.ReplaceAllValues(oCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - _frmValidatorSearch.RefreshTabDoc(oConID, oCommand, 0, CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE")) + _frmValidatorSearch.RefreshTabDoc(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE")) End If Else LOGGER.Info("Not loading AdditionalSearches...!") @@ -409,9 +406,15 @@ Public Class frmValidator Try If TypeOf control Is Label Then Exit Sub LOGGER.Debug($"in LoadSQLData for ControlID [{controlId}]...") - Dim oSql As String = $"SELECT GUID,NAME, CONNECTION_ID, SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE GUID = {controlId} AND PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND CTRL_TYPE <> 'BUTTON'" - ' And SQL_UEBERPRUEFUNG Not Like '%#WMI#%' AND SQL_UEBERPRUEFUNG NOT LIKE '%#CTRL#%' - Dim oDTforControl As DataTable = ClassDatabase.Return_Datatable(oSql) + + Dim oDTforControl As DataTable = DTCONTROLS_WITH_SQL.Clone() + Dim oExpression = $"GUID = {controlId} AND PROFIL_ID = {CURRENT_ProfilGUID}" + DTCONTROLS_WITH_SQL.Select(oExpression).CopyToDataTable(oDTforControl, LoadOption.PreserveChanges) + + + 'Dim oSql As String = $"SELECT GUID,NAME, CONNECTION_ID, SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE GUID = {controlId} AND PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND CTRL_TYPE <> 'BUTTON'" + + 'Dim oDTforControl As DataTable = ClassDatabase.Return_Datatable(oSql) If IsNothing(oDTforControl) Then Exit Sub @@ -532,118 +535,118 @@ Public Class frmValidator clsLogger.Add("Error in LoadSQLData: " & ex.Message) End Try End Sub - Sub LoadSQLData2(control As Control, controlId As Integer) - Try - If TypeOf control Is Label Then Exit Sub - LOGGER.Debug($"in LoadSQLData2 for ControlID [{controlId}]...") - Dim oSql As String = $"SELECT GUID,NAME, CONNECTION_ID, SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE GUID = {controlId} AND PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND CTRL_TYPE <> 'BUTTON'" - ' And SQL_UEBERPRUEFUNG Not Like '%#WMI#%' AND SQL_UEBERPRUEFUNG NOT LIKE '%#CTRL#%' - Dim oDTforControl As DataTable = ClassDatabase.Return_Datatable(oSql) - - - If IsNothing(oDTforControl) Then Exit Sub - If oDTforControl.Rows.Count = 0 Then Exit Sub - - For Each row As DataRow In oDTforControl.Rows - Dim oControlName As String = row.Item("NAME") - Dim oControlID As String = row.Item("GUID") - If IsDBNull(row.Item("CONNECTION_ID")) Then - LOGGER.Info($"No CONNECTION_ID for SQL-Data - oGUID: {oControlID}") - Continue For - End If - If IsDBNull(row.Item("SQL_UEBERPRUEFUNG")) Then Continue For - - Dim oSqlStatement As String = row.Item("SQL_UEBERPRUEFUNG") - Dim oConnectionId As Integer = row.Item("CONNECTION_ID") - oSql = clsPatterns.ReplaceAllValues(oSqlStatement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - - If clsPatterns.HasComplexPatterns(oSqlStatement) Then - LOGGER.Warn($"Unexpected error LoadSQLData2 - sql Statement still has complex patterns! [{oSql}]") - Continue For - End If - 'sql = ClassPatterns.ReplaceInternalValues(sqlStatement) - oDTforControl = ClassDatabase.Return_Datatable_ConId(oSql, oConnectionId) - - If IsNothing(oDTforControl) Then - MsgBox($"SQL-Query for control {control.Name} is invalid.", MsgBoxStyle.OkOnly, ADDITIONAL_TITLE) - Exit Sub - End If - Dim oValue - - If TypeOf control Is TextBox Then - Try - Dim firstRow As DataRow = oDTforControl.Rows(0) - - Dim value = firstRow.Item(0) - - control.Text = value - oValue = value - Catch ex As Exception - LOGGER.Error(ex) - clsLogger.Add("Error in LoadSimpleData for TextBox: " & ex.Message) - End Try - ElseIf TypeOf control Is ComboBox Then - Try - Dim oMyComboBox As ComboBox = control - Dim oselectedIndex = oMyComboBox.SelectedIndex - LOGGER.Debug($"oMyComboBox {oMyComboBox.Name} - Saving selected index {oselectedIndex}") - Dim list As New List(Of String) - - For Each _row As DataRow In oDTforControl.Rows - list.Add(_row.Item(0)) - Next - - oMyComboBox.DataSource = list - oMyComboBox.SelectedIndex = oselectedIndex - - Catch ex As Exception - LOGGER.Error(ex) - clsLogger.Add("Error in LoadSimpleData for Combobox: " & ex.Message) - End Try - ElseIf TypeOf control Is LookupControl2 Then - Try - Dim lookup As LookupControl2 = control - - lookup.DataSource = oDTforControl - Catch ex As Exception - LOGGER.Error(ex) - clsLogger.Add("Error in LoadSimpleData for LookupControl2: " & ex.Message) - End Try - ElseIf TypeOf control Is GridControl Then - Try - Dim dataGridView As GridControl = control - Dim oDataSource As DataTable = dataGridView.DataSource - - If oDataSource Is Nothing OrElse oDataSource.Rows.Count = 0 Then - 'dataGridView.DataSource = dt - - Dim oDatatable As DataTable = oDTforControl.Clone() + 'Sub LoadSQLData2(control As Control, controlId As Integer) + ' Try + ' If TypeOf control Is Label Then Exit Sub + ' LOGGER.Debug($"in LoadSQLData2 for ControlID [{controlId}]...") + ' Dim oSql As String = $"SELECT GUID,NAME, CONNECTION_ID, SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE GUID = {controlId} AND PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND CTRL_TYPE <> 'BUTTON'" + ' ' And SQL_UEBERPRUEFUNG Not Like '%#WMI#%' AND SQL_UEBERPRUEFUNG NOT LIKE '%#CTRL#%' + ' Dim oDTforControl As DataTable = ClassDatabase.Return_Datatable(oSql) + + + ' If IsNothing(oDTforControl) Then Exit Sub + ' If oDTforControl.Rows.Count = 0 Then Exit Sub + + ' For Each row As DataRow In oDTforControl.Rows + ' Dim oControlName As String = row.Item("NAME") + ' Dim oControlID As String = row.Item("GUID") + ' If IsDBNull(row.Item("CONNECTION_ID")) Then + ' LOGGER.Info($"No CONNECTION_ID for SQL-Data - oGUID: {oControlID}") + ' Continue For + ' End If + ' If IsDBNull(row.Item("SQL_UEBERPRUEFUNG")) Then Continue For - For Each oColumn As DataColumn In oDatatable.Columns - If oDataSource.Columns(oColumn.ColumnName) Is Nothing Then - 'oDataSource.Columns.Add(oColumn) - oDataSource.Columns.Add(oColumn.ColumnName, oColumn.DataType) - End If - Next + ' Dim oSqlStatement As String = row.Item("SQL_UEBERPRUEFUNG") + ' Dim oConnectionId As Integer = row.Item("CONNECTION_ID") + ' oSql = clsPatterns.ReplaceAllValues(oSqlStatement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - For Each oRow As DataRow In oDTforControl.Rows - oDataSource.ImportRow(oRow) - Next + ' If clsPatterns.HasComplexPatterns(oSqlStatement) Then + ' LOGGER.Warn($"Unexpected error LoadSQLData2 - sql Statement still has complex patterns! [{oSql}]") + ' Continue For + ' End If + ' 'sql = ClassPatterns.ReplaceInternalValues(sqlStatement) + ' oDTforControl = ClassDatabase.Return_Datatable_ConId(oSql, oConnectionId) - dataGridView.DataSource = oDataSource - End If - Catch ex As Exception - LOGGER.Error(ex) - clsLogger.Add("Error in LoadSimpleData for DataGridView: " & ex.Message) - End Try - End If - Next - Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Error in LoadSQLData2: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) - clsLogger.Add("Error in LoadSQLData2: " & ex.Message) - End Try - End Sub + ' If IsNothing(oDTforControl) Then + ' MsgBox($"SQL-Query for control {control.Name} is invalid.", MsgBoxStyle.OkOnly, ADDITIONAL_TITLE) + ' Exit Sub + ' End If + ' Dim oValue + + ' If TypeOf control Is TextBox Then + ' Try + ' Dim firstRow As DataRow = oDTforControl.Rows(0) + + ' Dim value = firstRow.Item(0) + + ' control.Text = value + ' oValue = value + ' Catch ex As Exception + ' LOGGER.Error(ex) + ' clsLogger.Add("Error in LoadSimpleData for TextBox: " & ex.Message) + ' End Try + ' ElseIf TypeOf control Is ComboBox Then + ' Try + ' Dim oMyComboBox As ComboBox = control + ' Dim oselectedIndex = oMyComboBox.SelectedIndex + ' LOGGER.Debug($"oMyComboBox {oMyComboBox.Name} - Saving selected index {oselectedIndex}") + ' Dim list As New List(Of String) + + ' For Each _row As DataRow In oDTforControl.Rows + ' list.Add(_row.Item(0)) + ' Next + + ' oMyComboBox.DataSource = list + ' oMyComboBox.SelectedIndex = oselectedIndex + + ' Catch ex As Exception + ' LOGGER.Error(ex) + ' clsLogger.Add("Error in LoadSimpleData for Combobox: " & ex.Message) + ' End Try + ' ElseIf TypeOf control Is LookupControl2 Then + ' Try + ' Dim lookup As LookupControl2 = control + + ' lookup.DataSource = oDTforControl + ' Catch ex As Exception + ' LOGGER.Error(ex) + ' clsLogger.Add("Error in LoadSimpleData for LookupControl2: " & ex.Message) + ' End Try + ' ElseIf TypeOf control Is GridControl Then + ' Try + ' Dim dataGridView As GridControl = control + ' Dim oDataSource As DataTable = dataGridView.DataSource + + ' If oDataSource Is Nothing OrElse oDataSource.Rows.Count = 0 Then + ' 'dataGridView.DataSource = dt + + ' Dim oDatatable As DataTable = oDTforControl.Clone() + + ' For Each oColumn As DataColumn In oDatatable.Columns + ' If oDataSource.Columns(oColumn.ColumnName) Is Nothing Then + ' 'oDataSource.Columns.Add(oColumn) + ' oDataSource.Columns.Add(oColumn.ColumnName, oColumn.DataType) + ' End If + ' Next + + ' For Each oRow As DataRow In oDTforControl.Rows + ' oDataSource.ImportRow(oRow) + ' Next + + ' dataGridView.DataSource = oDataSource + ' End If + ' Catch ex As Exception + ' LOGGER.Error(ex) + ' clsLogger.Add("Error in LoadSimpleData for DataGridView: " & ex.Message) + ' End Try + ' End If + ' Next + ' Catch ex As Exception + ' LOGGER.Error(ex) + ' MsgBox("Error in LoadSQLData2: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) + ' clsLogger.Add("Error in LoadSQLData2: " & ex.Message) + ' End Try + 'End Sub Private Function PreventNulletc(myObject As Object) If IsDBNull(myObject) Then Return String.Empty @@ -732,40 +735,10 @@ Public Class frmValidator If oCONID > 0 And commandsql <> String.Empty Then LOGGER.Debug("ConID > 0 And commandsql <> String.Empty") Dim oConnectionString As String - TBDD_CONNECTIONTableAdapter.FillByID(DD_DMSLiteDataSet.TBDD_CONNECTION, oCONID) - Dim DTConnection As DataTable = DD_DMSLiteDataSet.TBDD_CONNECTION - - For Each drConnection As DataRow In DTConnection.Rows - Select Case drConnection.Item("SQL_PROVIDER").ToString.ToLower - Case "ms-sql" - If drConnection.Item("USERNAME") = "WINAUTH" Then - oConnectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog=" & drConnection.Item("DATENBANK") & ";Trusted_Connection=True;" - Else - oConnectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";" - End If - LOGGER.Debug("ConnString Sql-Server: " & oConnectionString) - Case "oracle" - Dim conn As New OracleConnectionStringBuilder - Dim connstr As String - If drConnection.Item("SERVER") <> "" And drConnection.Item("DATENBANK").GetType.ToString <> "system.dbnull" Then - connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & drConnection.Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & - drConnection.Item("DATENBANK") & ")));User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";" - Else - conn.DataSource = drConnection.Item("SERVER") - conn.UserID = drConnection.Item("USERNAME") - conn.Password = drConnection.Item("PASSWORD") - conn.PersistSecurityInfo = True - conn.ConnectionTimeout = 120 - connstr = conn.ConnectionString - End If - oConnectionString = connstr - Case Else - LOGGER.Info(" - ConnectionType nicht integriert") - MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!") - End Select - Next - If oConnectionString Is Nothing = False Then + oConnectionString = ClassDatabase.Get_ConnectionString(oCONID) + + If oConnectionString <> "" Then Try Dim sqlCnn As SqlClient.SqlConnection Dim sqlCmd As SqlClient.SqlCommand @@ -790,7 +763,7 @@ Public Class frmValidator sqlCmd = New SqlClient.SqlCommand(sql, sqlCnn) adapter.SelectCommand = sqlCmd adapter.Fill(NewDataset) - Dim msg As String + Dim oMsg As String For i = 0 To NewDataset.Tables(0).Rows.Count - 1 cmb.Items.Add(NewDataset.Tables(0).Rows(i).Item(0)) Next @@ -1771,7 +1744,7 @@ Public Class frmValidator Return True End If If check.ToString.Length > 0 And dr.Item("INDEX_NAME") <> "DD PM-ONLY FOR DISPLAY" Then - Dim cs As String = GetConnectionString(dr.Item("CONNECTION_ID")) + Dim cs As String = ClassDatabase.Get_ConnectionString(dr.Item("CONNECTION_ID")) If allgFunk.checkValue_Exists(dr.Item("SQL_UEBERPRUEFUNG"), "@Eingabe", control.Text, dr.Item("TYP"), cs, CURRENT_ProfilGUID) = True Then Return True Else @@ -1858,7 +1831,7 @@ Public Class frmValidator Private Function CreateWMObject() As String LOGGER.Debug($"in GetWMDocFileString...'") - Dim oWMRELPATH As String = CURRENT_DT_CONFIG.Rows.Item(0).Item("WM_REL_PATH") + Dim oWMRELPATH As String = BASEDATA_DT_CONFIG.Rows.Item(0).Item("WM_REL_PATH") If oWMRELPATH.EndsWith("\") = False Then oWMRELPATH = oWMRELPATH & "\" End If @@ -2032,7 +2005,7 @@ Public Class frmValidator 'Nun im Vektoprindex loggen das das Profil geladen wurde 'If PROFIL_VEKTORINDEX <> "" Then - ' Dim Profilstring = "DD-PM" & Delimiter & "Profil: '" & PROFIL_NAME & "'" & Delimiter & USER_NAME & Delimiter & Now.ToString + ' Dim Profilstring = "DD-PM" & PMDelimiter & "Profil: '" & PROFIL_NAME & "'" & PMDelimiter & USER_NAME & PMDelimiter & Now.ToString ' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then ' If LogErrorsOnly = False Then LOGGER.Info(" >> Profilname erfolgreich in Vektorfeld PM geschrieben") ' 'Else @@ -2044,7 +2017,7 @@ Public Class frmValidator 'End If 'Nun loggen das das Profil geladen wurde If PROFIL_LOGINDEX <> "" Then - Dim oLogString = $"PMProfile loaded: [{CURRENT_ProfilGUID}-{CURRENT_ProfilName}]{Delimiter}{USER_USERNAME}{Delimiter}{Now.ToString}" + Dim oLogString = $"PMProfile loaded: [{CURRENT_ProfilGUID}-{CURRENT_ProfilName}]{PMDelimiter}{USER_USERNAME}{PMDelimiter}{Now.ToString}" If IDB_ACTIVE = False Then WMIndexVectofield(oLogString, PROFIL_LOGINDEX) Else @@ -2370,7 +2343,7 @@ Public Class frmValidator For Each _string As Object In Sort_Arr.Reverse() Dim DDPM_String As String = _string.ToString() ' - Dim VektorArray() = Split(DDPM_String, Delimiter) + Dim VektorArray() = Split(DDPM_String, PMDelimiter) If VektorArray(1).ToString.ToLower = name.ToLower Then value = VektorArray(2) Exit For @@ -2640,7 +2613,7 @@ Public Class frmValidator If IDB_ACTIVE = False Then For Each Zeile As Object In oValueFromSource LOGGER.Debug($"vektorrow Value {Zeile.ToString}...") - oColValuesfromSource = Split(Zeile, Delimiter) + oColValuesfromSource = Split(Zeile, PMDelimiter) Select Case oDTColumnsPerDevExGrid.Rows.Count Case 1 @@ -2685,7 +2658,7 @@ Public Class frmValidator Next Else If omytype = "System.String" Then - oColValuesfromSource = Split(oValueFromSource.ToString, Delimiter) + oColValuesfromSource = Split(oValueFromSource.ToString, PMDelimiter) Select Case oColValuesfromSource.Length Case 2 oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1)}) @@ -2698,7 +2671,7 @@ Public Class frmValidator Dim oMyDatatable As DataTable = oValueFromSource For Each oRow As DataRow In oMyDatatable.Rows LOGGER.Debug($"IDB ROW Vector {oRow.Item(0).ToString}...") - oColValuesfromSource = Split(oRow.Item(0).ToString, Delimiter) + oColValuesfromSource = Split(oRow.Item(0).ToString, PMDelimiter) Select Case oColValuesfromSource.Length Case 1 @@ -3213,11 +3186,11 @@ Public Class frmValidator ItemWorked = False End If If Not IsNothing(oSQLCommand) Then - Dim dynamic_value = ClassDatabase.Execute_Scalar(oSQLCommand, CONNECTION_STRING, True) + Dim oResultfromSQL = ClassDatabase.Execute_Scalar(oSQLCommand, CONNECTION_STRING, True) - If Not IsNothing(dynamic_value) Then - LOGGER.Debug("DYNAMIC VALUE IS: " & dynamic_value.ToString) - oValue = dynamic_value + If Not IsNothing(oResultfromSQL) Then + LOGGER.Debug($"oResultfromSQL is [{oResultfromSQL.ToString}]") + oValue = oResultfromSQL Else LOGGER.Info("ATTENTION: DYNAMIC VALUE IS NOTHING!") End If @@ -3248,7 +3221,7 @@ Public Class frmValidator ' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME")) 'Hier muss nun separat as Vektorfeld indexiert werden If WMIndexVectofield(oValue, oFinalIndexRow.Item("INDEXNAME"), oFinalIndexRow.Item("PREVENT_DUPLICATES"), oFinalIndexRow.Item("ALLOW_NEW_VALUES")) = False Then - LOGGER.Debug("FINALER Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' WURDE ERFOLGREICH GESETZT") + LOGGER.Debug("Final Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' has beens et suxxessfully!") Else errormessage = "Error in final indexing:" & vbNewLine & idxerr_message My.Settings.Save() @@ -3516,7 +3489,7 @@ Public Class frmValidator Dim PM_String As String Try Dim Bezeichner As String = VKTBezeichner.Replace("[%VKT", "") - PM_String = "DD-PM" & Delimiter & Bezeichner & Delimiter & input & Delimiter & USER_USERNAME & Delimiter & Now.ToString + PM_String = "DD-PM" & PMDelimiter & Bezeichner & PMDelimiter & input & PMDelimiter & USER_USERNAME & PMDelimiter & Now.ToString Catch ex As Exception LOGGER.Error(ex) LOGGER.Info(">> error in Return_PM_VEKTOR: " & ex.Message, True) @@ -3529,9 +3502,9 @@ Public Class frmValidator Dim PM_String As String Try If old = "DDFINALINDEX" Then - PM_String = $"DD-PMLog-FINAL{Delimiter}{indexname}{Delimiter}{input}{Delimiter}{USER_USERNAME}{Delimiter}{Now.ToString}" + PM_String = $"DD-PMLog-FINAL{PMDelimiter}{indexname}{PMDelimiter}{input}{PMDelimiter}{USER_USERNAME}{PMDelimiter}{Now.ToString}" Else - PM_String = $"DD-PMLog-CHG{Delimiter}{indexname}{Delimiter}NEW: [{input}] - OLD: [{old}]{Delimiter}{USER_USERNAME}{Delimiter}{Now.ToString}" + PM_String = $"DD-PMLog-CHG{PMDelimiter}{indexname}{PMDelimiter}NEW: [{input}] - OLD: [{old}]{PMDelimiter}{USER_USERNAME}{PMDelimiter}{Now.ToString}" End If Catch ex As Exception @@ -4217,7 +4190,7 @@ Public Class frmValidator Case 0 str = row.Cells(i).Value Case Else - str = str & Delimiter & row.Cells(i).Value + str = str & PMDelimiter & row.Cells(i).Value End Select Next @@ -4298,7 +4271,7 @@ Public Class frmValidator oValueList.Add(item) Next - str = String.Join(Delimiter, oValueList.ToArray) + str = String.Join(PMDelimiter, oValueList.ToArray) 'Den Wert im Array speichern myVektorArr(ZeilenGrid) = str @@ -4431,36 +4404,7 @@ Public Class frmValidator Private Sub btnfinal_Click(sender As System.Object, e As System.EventArgs) Finish_WFStep() End Sub - Function GetConnectionString(id As Integer) - Try - Dim oConnectionString As String - Dim DTConnection As DataTable - DTConnection = DD_DMSLiteDataSet.TBDD_CONNECTION - Dim drConnection As DataRow - For Each drConnection In DTConnection.Rows - If drConnection.Item("GUID") = id Then - Select Case drConnection.Item("SQL_PROVIDER") - Case "SqlClient.SqlConnection" - oConnectionString = "%MSData Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";" - - Case "Oracle" - oConnectionString = "%ORProvider=OraOLEDB.Oracle;Data Source=" & drConnection.Item("SERVER") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";OLEDB.NET=True;" - ' connectionString = "%ORData Source=" & drConnection.Item("SERVER") & ";Persist Security Info=True;User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";Unicode=True" - Case Else - LOGGER.Info(" - ConnectionType '" & drConnection.Item("SQL_PROVIDER") & "' nicht integriert") - MsgBox("ConnectionType '" & drConnection.Item("SQL_PROVIDER") & "' nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!") - End Select - End If - Next - Return oConnectionString - Catch ex As Exception - LOGGER.Error(ex) - LOGGER.Info(" -Unexpected error in GetConnectionString - Fehler: " & vbNewLine & ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei GetConnectionString:") - Return "" - End Try - End Function Private Sub btnNavigatorfirst_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) If e.Button = Windows.Forms.MouseButtons.Left Then navStep = "first" @@ -4523,13 +4467,21 @@ Public Class frmValidator If result = MsgBoxResult.Yes Then ' Close_document_viewer() 'Aus der Tabelle löschen - TBPM_PROFILE_FILESTableAdapter.CmdDelete(CURRENT_DOC_GUID) + Dim oDelete = $"DELETE FROM TBPM_PROFILE_FILES WHERE (GUID = {CURRENT_DOC_GUID})" + If ClassDatabase.Execute_non_Query(oDelete) = True Then + + End If + Dim resul = allgFunk.Delete_xffres(WMDocPathWindows, _windream) If resul = Nothing Or resul = True Then - If Delete_File() = True Then - 'MsgBox("Die Datei wurde erfolgreich aus windream gelöscht!" & vbNewLine & "Es wird nun die nächste Datei angezeigt!", MsgBoxStyle.Information, "Erfolgsmeldung:") + Dim oDeleteResult As Boolean = False + If IDB_ACTIVE = False Then + oDeleteResult = Delete_WMFile() + End If + If oDeleteResult = True Then Load_Next_Document(False) End If + End If End If Catch ex As Exception @@ -4538,7 +4490,7 @@ Public Class frmValidator End Try End Sub - Private Function Delete_File() + Private Function Delete_WMFile() Try If CURRENT_WMFILE Is Nothing = False Then 'Close_document_viewer() @@ -4637,11 +4589,11 @@ Public Class frmValidator My.Settings.Save() End Sub Private Sub btnSave_MouseHover(sender As Object, e As EventArgs) Handles btnSave.MouseHover - Dim msg = "F2 für Speichern" + Dim oMsg = "F2 für Speichern" If USER_LANGUAGE <> "de-DE" Then - msg = "F2 for saving" + oMsg = "F2 for saving" End If - ToolTip1.Show(msg, btnSave) + ToolTip1.Show(oMsg, btnSave) End Sub Private Sub frmValidator_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown diff --git a/app/DD_PM_WINDREAM/frmValidatorSearch.vb b/app/DD_PM_WINDREAM/frmValidatorSearch.vb index dbae7d0..ae6b3f5 100644 --- a/app/DD_PM_WINDREAM/frmValidatorSearch.vb +++ b/app/DD_PM_WINDREAM/frmValidatorSearch.vb @@ -606,21 +606,21 @@ Public Class frmValidatorSearch End Sub Private Sub ToolStripButtonRefreshSearches_Click(sender As Object, e As EventArgs) Handles ToolStripButtonRefreshSearches.Click - If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then - _DTSQLSearches = CURRENT_DT_PROFILE_SEARCHES_SQL - Dim oConID = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID") - Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND") + If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then + _DTSQLSearches = BASEDATA_DT_PROFILE_SEARCHES_SQL + Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID") + Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND") oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) XtraTabControlSQL.SelectedTabPageIndex = 0 - Refresh_Load_GridSQL(oConID, oCommand, 0, CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE")) + Refresh_Load_GridSQL(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE")) End If - If CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then - _DTDocSearches = CURRENT_DT_PROFILE_SEARCHES_DOC - Dim oConID = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID") - Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND") + If BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then + _DTDocSearches = BASEDATA_DT_PROFILE_SEARCHES_DOC + Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID") + Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND") oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) XtraTabControlDocs.SelectedTabPageIndex = 0 - RefreshTabDoc(oConID, oCommand, 0, CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE")) + RefreshTabDoc(oConID, oCommand, 0, BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE")) End If End Sub @@ -633,10 +633,10 @@ Public Class frmValidatorSearch End Sub Sub ReLoad_Active_DocTab() Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex - Dim oConID = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("CONN_ID") - Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("SQL_COMMAND") + Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("CONN_ID") + Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("SQL_COMMAND") oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - RefreshTabDoc(oConID, oCommand, oTabIndex, CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("TAB_TITLE")) + RefreshTabDoc(oConID, oCommand, oTabIndex, BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("TAB_TITLE")) End Sub Private Sub LayoutZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LayoutZurücksetzenToolStripMenuItem.Click @@ -665,10 +665,10 @@ Public Class frmValidatorSearch End Sub Sub ReLoad_Active_SQLTab() Dim oTabIndex = XtraTabControlSQL.SelectedTabPageIndex - Dim oConID = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("CONN_ID") - Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("SQL_COMMAND") + Dim oConID = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("CONN_ID") + Dim oCommand = BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("SQL_COMMAND") oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - RefreshTabSQL(oConID, oCommand, oTabIndex, CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("TAB_TITLE")) + RefreshTabSQL(oConID, oCommand, oTabIndex, BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("TAB_TITLE")) End Sub Private Sub GridControlDocSearch1_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch1.DoubleClick From 6cf81ffafb19416c26653c0421f46f2e9ae1df1f Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 5 Mar 2020 14:05:51 +0100 Subject: [PATCH 26/26] change message --- app/DD_PM_WINDREAM/frmValidator.vb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 77ce34a..6a53430 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -1947,8 +1947,7 @@ Public Class frmValidator LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'") If CURRENT_DOC_GUID > 0 Then If GetWMDocPathWindows(0) = False Then - MsgBox("Could not access the file! Check the log!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) - Exit Sub + MsgBox("The file can not be diplayed!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) End If If IDB_ACTIVE = False Then If CreateWMObject() = False Then