diff --git a/.gitignore b/.gitignore index 1bc915c..60055c1 100644 --- a/.gitignore +++ b/.gitignore @@ -154,3 +154,4 @@ $RECYCLE.BIN/ # Mac desktop service store files .DS_Store +/app/.vs/DD-Record-Organizer/v15/Server/sqlite3 diff --git a/app/DD-Record-Organizer/ClassControlBuilder.vb b/app/DD-Record-Organizer/ClassControlBuilder.vb index 5c6c8eb..f67cd5a 100644 --- a/app/DD-Record-Organizer/ClassControlBuilder.vb +++ b/app/DD-Record-Organizer/ClassControlBuilder.vb @@ -270,13 +270,16 @@ Public Class ClassControlBuilder End If For Each row As DataRow In TableResult.Rows Dim sqlcommand As String = row.Item("SQL_COMMAND_2") - + Dim msg = String.Format(" >> Working on enabling control {0} - SQL: {1}", CONTROL_ID.ToString, sqlcommand) + If LogErrorsOnly = False Then ClassLogger.Add(msg, False) If IsNothing(sqlcommand) Then Continue For End If ' Versuchen, die RecordId zu ersetzen, falls eine existiert sqlcommand = sqlcommand.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID) + msg = String.Format(" >> sqlcommand-replaced1: {0}", sqlcommand) + If LogErrorsOnly = False Then ClassLogger.Add(msg, False) ' ControlId Platzhalter suchen und ersetzen Dim regex As New System.Text.RegularExpressions.Regex("(@(\d+)@)") Dim match As System.Text.RegularExpressions.Match = regex.Match(sqlcommand) @@ -291,14 +294,29 @@ Public Class ClassControlBuilder End Function).SingleOrDefault() ' Wir ersetzen den platzhalter im sql command mit dem übergebenen wert sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value) - If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId), False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: {0} for controlID {1}", sqlcommand, dependingControlId), False) ' Jetzt wird das SQL Command ausgeführt, es MUSS einen Boolschen Wert zurückgeben, True, False, 0, 1 Dim dt_result As DataTable = Nothing dt_result = ClassDatabase.Return_Datatable(sqlcommand) If dt_result.Rows.Count = 1 Then - Dim enabled As Boolean = CBool(dt_result.Rows(0).Item(0)) + Dim enabled As Boolean = True + + Try + enabled = CBool(dt_result.Rows(0).Item(0)) + Catch ex As Exception + msg = String.Format(">> Could not convert value of tablecontent to boolean!! SQL {0} # tablecontent: {1}" & vbNewLine, sqlcommand, dependingControlId) + ClassLogger.Add(msg) + End Try + + If enabled = False Then + msg = String.Format(" >> Control {0} will be disabled." & vbNewLine, dependingControlId.ToString) + If LogErrorsOnly = False Then ClassLogger.Add(msg, False) + Else + msg = String.Format(" >> Control {0} will be enabled." & vbNewLine, dependingControlId.ToString) + If LogErrorsOnly = False Then ClassLogger.Add(msg, False) + End If dependingControl.Enabled = enabled Else ClassLogger.Add(" >> Attention: RowCount for enabling control (" & dependingControlId.ToString & ") was '" & dt_result.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'", False) diff --git a/app/DD-Record-Organizer/ClassControlValues.vb b/app/DD-Record-Organizer/ClassControlValues.vb index a6d6117..c5553e8 100644 --- a/app/DD-Record-Organizer/ClassControlValues.vb +++ b/app/DD-Record-Organizer/ClassControlValues.vb @@ -483,8 +483,12 @@ Public Class ClassControlValues ' Durchlaufe alle Controls, die eine Abhängigheit haben For Each row As DataRow In dt.Rows + Dim msg = String.Format(" >> Working on Depending Control-ID: {0}", row.Item("GUID").ToString) + If LogErrorsOnly = False Then ClassLogger.Add(msg, False) Dim DependingControlId As Integer = row.Item("GUID") Dim DependingControlSQL As String = row.Item("SQL_COMMAND_2") + msg = String.Format(" >> SQL: {0}", DependingControlSQL) + If LogErrorsOnly = False Then ClassLogger.Add(msg, False) Dim DependingControl As Control = controls.OfType(Of Control)().Where(Function(c As Control) Return DirectCast(c.Tag, ClassControlMetadata).Id = DependingControlId End Function).SingleOrDefault() @@ -492,6 +496,8 @@ Public Class ClassControlValues Dim regex As New Regex("(@(\d+)@)") Dim match As Match = regex.Match(DependingControlSQL) + + If match.Success Then ' Wir suchen aus dem SQL Befehl die ControlId heraus, ' von dem das aktuelle Control abhängt @@ -512,30 +518,58 @@ Public Class ClassControlValues ' Jetzt lesen wir den Wert aus, der im SQL Command ersetzt werden soll Select Case otherControlType Case "CheckBox" + msg = String.Format(" >> CheckBox-CtrlID: {0}", otherControlId) + If LogErrorsOnly = False Then ClassLogger.Add(msg, False) value = DirectCast(otherControl, CheckBox).Checked Case "TextBox" + msg = String.Format(" >> TextBox-CtrlID: {0}", otherControlId) + If LogErrorsOnly = False Then ClassLogger.Add(msg, False) value = DirectCast(otherControl, TextBox).Text Case "CustomComboBox" + msg = String.Format(" >> CustomComboBox-CtrlID: {0}", otherControlId) + If LogErrorsOnly = False Then ClassLogger.Add(msg, False) value = DirectCast(otherControl, CustomComboBox).Text Case "DateEdit" + msg = String.Format(" >> DateEdit-CtrlID: {0}", otherControlId) + If LogErrorsOnly = False Then ClassLogger.Add(msg, False) value = DirectCast(otherControl, DevExpress.XtraEditors.DateEdit).EditValue End Select ' Jetzt ersetzen wir den Platzhalter im SQL Command DependingControlSQL = regex.Replace(DependingControlSQL, value) - + msg = String.Format(" >> DependingControlSQL: {0}", DependingControlSQL) + If LogErrorsOnly = False Then ClassLogger.Add(msg, False) Dim enableDT As DataTable = ClassDatabase.Return_Datatable(DependingControlSQL) - + If IsNothing(enableDT) Then + msg = String.Format(">> enableDT is nothing!! CHECK SQL {0}." & vbNewLine, DependingControlSQL) + ClassLogger.Add(msg) + Continue For + End If If enableDT.Rows.Count = 1 Then - Dim enabled As Boolean = CBool(enableDT.Rows(0).Item(0)) + Dim enabled As Boolean = True + Try + enabled = CBool(enableDT.Rows(0).Item(0)) + Catch ex As Exception + msg = String.Format(">> Could not convert value of tablecontent to boolean!! SQL {0} # tablecontent: {1}" & vbNewLine, DependingControlSQL, enableDT.Rows(0).Item(0).ToString) + ClassLogger.Add(msg) + End Try + DependingControl.Enabled = enabled + If enabled = False Then + msg = String.Format(" >> Control {0} will be disabled." & vbNewLine, DependingControlId.ToString) + If LogErrorsOnly = False Then ClassLogger.Add(msg, False) + Else + msg = String.Format(" >> Control {0} will be enabled." & vbNewLine, DependingControlId.ToString) + If LogErrorsOnly = False Then ClassLogger.Add(msg, False) + End If + Else ClassLogger.Add(" >> Attention in Enable_Depending_Controls: RowCount for enabling control was '" & enableDT.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & DependingControlSQL & "'") End If End If Next - SW.done + sw.done Catch ex As Exception ClassLogger.Add("Unexpected Error in Enable_Depending_Controls: " & ex.Message, True) MsgBox("Unexpected Error in Enable_Depending_Controls:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) diff --git a/app/DD-Record-Organizer/ClassDOC_SEARCH.vb b/app/DD-Record-Organizer/ClassDOC_SEARCH.vb index 796afd9..6c43e92 100644 --- a/app/DD-Record-Organizer/ClassDOC_SEARCH.vb +++ b/app/DD-Record-Organizer/ClassDOC_SEARCH.vb @@ -113,8 +113,9 @@ Public Class ClassDOC_SEARCH "(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND RECORD_ID = TRL.RECORD_ID AND CONFIG_ID = TRC.GUID) AS VALUE1," & vbNewLine & "(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND RECORD_ID = TRL.RECORD_ID AND CONFIG_ID = TRC1.GUID) AS VALUE2," & vbNewLine & "(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND RECORD_ID = TRL.RECORD_ID AND CONFIG_ID = TRC2.GUID) AS VALUE3," & vbNewLine & - "(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND RECORD_ID = TRL.RECORD_ID AND CONFIG_ID = TRC3.GUID) AS VALUE4" & vbNewLine & - "FROM " & vbNewLine & + "(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND RECORD_ID = TRL.RECORD_ID AND CONFIG_ID = TRC3.GUID) AS VALUE4," & vbNewLine & + "dwAccessRight AS ACCESS_RIGHT" & vbNewLine & + "FROM " & vbNewLine & "VWPMO_DOC_SEARCH T " & vbNewLine & "INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine & "INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine & @@ -215,7 +216,19 @@ Public Class ClassDOC_SEARCH End If End If - Return ClassDatabase.Return_Datatable(SQL_DOC_SEARCH, True) + Dim DTFILE_RESULT_ASYNC As DataTable + Try + Dim async As New ClassAsyncSQL(SQL_DOC_SEARCH) + async.bw.RunWorkerAsync() + While async.bw.IsBusy + Application.DoEvents() + End While + DTFILE_RESULT_ASYNC = async.dt + Catch ex As Exception + ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Async DTFILE_RESULT_ASYNC", ex.Message, ex.StackTrace) + End Try + + Return DTFILE_RESULT_ASYNC 'ClassDatabase.Return_Datatable(SQL_DOC_SEARCH, True) Catch ex As Exception ClassLogger.Add("Unexpected Error in GET_DOCSEARCH_DATATABLE: " & ex.Message, True) Return Nothing @@ -450,9 +463,9 @@ Public Class ClassDOC_SEARCH If ClassWDRights.Init = True Then If ClassWDRights.Doc_Renew_Rights(RESULT_DOCID, RESULT_DOC_PATH, True) Then If ClassWDRights.MSG_RESULT <> "" Then - Dim msg = "Achtung: einige Rechte konnten nicht gesetzt werden: " & vbNewLine & ClassWDRights.MSG_RESULT.MSG_RESULT + Dim msg = "Achtung: einige Rechte konnten nicht gesetzt werden: " & vbNewLine & ClassWDRights.MSG_RESULT If USER_LANGUAGE <> "de-DE" Then - msg = "Attention: some rights could not be set: " & vbNewLine & ClassWDRights.MSG_RESULT.MSG_RESULT + msg = "Attention: some rights could not be set: " & vbNewLine & ClassWDRights.MSG_RESULT End If ClassHelper.MSGBOX_Handler("INFO", "Information:", msg) End If diff --git a/app/DD-Record-Organizer/ClassFileResult.vb b/app/DD-Record-Organizer/ClassFileResult.vb index b54535c..e9e64ed 100644 --- a/app/DD-Record-Organizer/ClassFileResult.vb +++ b/app/DD-Record-Organizer/ClassFileResult.vb @@ -43,7 +43,7 @@ End Function Public Shared Function GET_DATATABLE_INDICES_PMO() Try - Dim sql = String.Format("SELECT * FROM TBPMO_INDEX_MAN WHERE ENTITY_ID = (SELECT CASE REDUNDANT_ENTITY WHEN 0 THEN GUID ELSE REDUNDANT_ENTITY END AS ENTITY_ID FROM TBPMO_FORM WHERE GUID = {0}) AND DOCTYPE_ID = {1}", CURRENT_ENTITY_ID, CURRENT_DOKARTID) + Dim sql = String.Format("SELECT * FROM TBPMO_INDEX_MAN WHERE ACTIVE = 1 AND ENTITY_ID = (SELECT CASE REDUNDANT_ENTITY WHEN 0 THEN GUID ELSE REDUNDANT_ENTITY END AS ENTITY_ID FROM TBPMO_FORM WHERE GUID = {0}) AND DOCTYPE_ID = {1}", CURRENT_ENTITY_ID, CURRENT_DOKARTID) Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True) If LogErrorsOnly = False Then ClassLogger.Add(" >> GET_DATATABLE_INDICES_PMO: " & sql, False) CURRENT_TBPMO_INDEX_MAN = DT diff --git a/app/DD-Record-Organizer/ClassWDRights.vb b/app/DD-Record-Organizer/ClassWDRights.vb index 659c811..5eeab25 100644 --- a/app/DD-Record-Organizer/ClassWDRights.vb +++ b/app/DD-Record-Organizer/ClassWDRights.vb @@ -75,6 +75,7 @@ Public Class ClassWDRights Try If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Working on rights for file: {0}", docpath), False) Dim DT_USER_RIGHT As DataTable + Dim DT_GROUP_RIGHT As DataTable Dim oSession Dim oWMObject As WINDREAMLib.WMObject Dim UserGroupRelation @@ -91,13 +92,18 @@ Public Class ClassWDRights If Not IsNothing(oSession) Then If LogErrorsOnly = False Then ClassLogger.Add(" >> Session created.", False) - Dim sql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0})", doc_id) - DT_USER_RIGHT = ClassDatabase.Return_Datatable(sql) + Dim sql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0}) where USER_OR_GROUP = 'USER'", doc_id) + DT_USER_RIGHT = clsDatabase.Return_Datatable(sql) + sql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0}) where USER_OR_GROUP = 'GROUP'", doc_id) + DT_GROUP_RIGHT = clsDatabase.Return_Datatable(sql) If IsNothing(DT_USER_RIGHT) Then Dim msg = "Error while receiving rights for DocID" - ClassLogger.Add(msg, True) + clsLogger.Add(msg, True) Return False + Else + If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >> Amount of Userrights: {0}", DT_USER_RIGHT.Rows.Count), False) End If + If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >> Amount of Grouprights: {0}", DT_GROUP_RIGHT.Rows.Count), False) Try 'Object definieren oWMObject = oSession.GetWMObjectByPath(0, docpath.Substring(2)) @@ -234,6 +240,58 @@ Public Class ClassWDRights ClassLogger.Add(ex.Message) End Try Next + + 'Für jede Gruppe das Recht einzeln hinzufügen + + For Each Group_Row As DataRow In DT_GROUP_RIGHT.Rows + Dim fileright 'Recht als Integer + Dim StringGroupRight + Dim _oGroup + Try + StringGroupRight = AD_DOMAIN & "\" & Group_Row.Item("USR_NAME") + fileright = Group_Row.Item("USR_RIGHT") + If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >> Working on right for group-right: {0}-{1}", StringGroupRight, fileright), False) + Try + ' User holen + _oGroup = oSession.GetWMObjectByName(WMEntityGroups, StringGroupRight) + + If LogErrorsOnly = False Then clsLogger.Add(" >> got Group...", False) + Catch ex As Exception + Dim msg = String.Format(">> Could not create windream-Usersession for group '{0}' - check whether group exists in windream!", StringGroupRight) + clsLogger.Add(msg, False) + MSG_RESULT &= msg & vbNewLine + Continue For + End Try + If Not IsNothing(_oGroup) Then + Try + AccessRights.Insert2(_oGroup, fileright) 'WMAccessRightAllRights) + If LogErrorsOnly = False Then clsLogger.Add(" >> Right was set...", False) + Catch ex As Exception + Dim msg = String.Format(">> Could not set right for docID: {0} group {1} - AccessRights.Insert2: {2}", doc_id, StringGroupRight, ex.Message) + clsLogger.Add(msg, True) + Continue For + End Try + End If + + Catch ex As Exception + Dim _right + Select Case fileright + Case WMAccessRightRead + _right = "READ" + Case WMAccessRightWrite + _right = "WRITE" + Case WMAccessRightAdmin + _right = "ADMIN" + Case WMAccessRightAllRights + _right = "ALL RIGHTS" + Case WMAccessRightReadWrite + _right = "READ WRITE" + End Select + MSG_RESULT &= String.Format("Error while working on RightChange2:" & vbNewLine & "Fileright: {0}" & vbNewLine & "Group: {1} " & vbNewLine & "File: {2}", _right, StringGroupRight, docpath) & vbNewLine + clsLogger.Add(ex.Message) + End Try + Next + Try 'Speichern nicht vergessen oWMObject.Save() diff --git a/app/DD-Record-Organizer/ClassWindreamDocGrid.vb b/app/DD-Record-Organizer/ClassWindreamDocGrid.vb index 4cce9f4..1916561 100644 --- a/app/DD-Record-Organizer/ClassWindreamDocGrid.vb +++ b/app/DD-Record-Organizer/ClassWindreamDocGrid.vb @@ -12,6 +12,7 @@ Public Class ClassWindreamDocGrid 'Public Shared RESULT_OBJECTTYPE As String Public Shared SELECTED_INWORK As Boolean Public Shared SELECTED_DOC_ID As Integer + Public Shared SELECTED_DOC_RIGHT As Integer 'Public Shared RESULT_DISPLAYNAME As String Public Shared RESULT_CONFIG_IDS As Hashtable Private Shared DATE_COLUMNS As New List(Of String) @@ -35,6 +36,7 @@ Public Class ClassWindreamDocGrid table.Columns.Add("OBJECTTYPE", GetType(System.String)) table.Columns.Add("INWORK", GetType(System.Boolean)) table.Columns.Add("DISPLAYNAME", GetType(System.String)) + table.Columns.Add("ACCESS_RIGHT", GetType(Integer)) DT_RESULTFILES = table Return True Catch ex As Exception @@ -49,7 +51,7 @@ Public Class ClassWindreamDocGrid If Init_Table() = True Then SELECTED_DOC_ID = 0 Console.WriteLine("gridView.SelectedRowsCount: " & gridView.SelectedRowsCount.ToString) - If gridView.SelectedRowsCount > 1 Then + If gridView.SelectedRowsCount >= 1 Then DT_RESULTFILES.Clear() For Each row In gridView.GetSelectedRows Dim newRow As DataRow = DT_RESULTFILES.NewRow() @@ -62,6 +64,12 @@ Public Class ClassWindreamDocGrid newRow("DOC_ID") = 0 SELECTED_DOC_ID = 0 End Try + Try + SELECTED_DOC_RIGHT = gridView.GetRowCellValue(row, "ACCESS_RIGHT") + newRow("ACCESS_RIGHT") = gridView.GetRowCellValue(row, SELECTED_DOC_RIGHT) + Catch ex As Exception + newRow("ACCESS_RIGHT") = 1 + End Try Try SELECTED_DOC_PATH = gridView.GetRowCellValue(row, "FULLPATH") newRow("DOC_PATH") = gridView.GetRowCellValue(row, "FULLPATH") @@ -178,53 +186,73 @@ Public Class ClassWindreamDocGrid ' Neues Dataset für Master- und Detail-Tabelle erstellen Dim ds As New DataSet() + Dim DT_DETAILS_SQL - '"FROM TBPMO_DOC_VALUES T INNER JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND T1.LANGUAGE = '{1}' AND T.RECORD_ID = {2} ORDER BY T.DocID, T1.SEQUENCE", CURRENT_ENTITY_ID, USER_LANGUAGE, RECORD_ID) - Dim DT_DETAILS_SQL = String.Format("SELECT T.[GUID],T.[DocID],T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE,T.CHANGED_WHEN,T.CHANGED_WHO " & + Select Case CURRENT_SEARCH_TYPE + Case "NODE_DOWN" + DT_DETAILS_SQL = String.Format("SELECT T.[GUID],T.[DocID],T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE,T.CHANGED_WHEN,T.CHANGED_WHO " & + "FROM TBPMO_DOC_VALUES T INNER JOIN TBPMO_STRUCTURE_NODES_USER_TEMP TTEMP ON T.RECORD_ID = TTEMP.RECORD_ID RIGHT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND LANGUAGE = '{1}' AND T1.CONFIG_COLUMNS = 1", CURRENT_ENTITY_ID, USER_LANGUAGE) + + Case Else + DT_DETAILS_SQL = String.Format("SELECT T.[GUID],T.[DocID],T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE,T.CHANGED_WHEN,T.CHANGED_WHO " & "FROM TBPMO_DOC_VALUES T RIGHT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND LANGUAGE = '{1}' AND T1.CONFIG_COLUMNS = 1 AND T.RECORD_ID = {2}", CURRENT_ENTITY_ID, USER_LANGUAGE, RECORD_ID) + + End Select + '"FROM TBPMO_DOC_VALUES T INNER JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND T1.LANGUAGE = '{1}' AND T.RECORD_ID = {2} ORDER BY T.DocID, T1.SEQUENCE", CURRENT_ENTITY_ID, USER_LANGUAGE, RECORD_ID) + Dim DT_DETAILS As DataTable = ClassDatabase.Return_Datatable(DT_DETAILS_SQL, True) + Try + ' Werte für Konfigurierte Spalten aus TBPMO_DOC_VALUES auslesen und Zellenweise einfügen + For Each row As DataRow In DT_RESULT.Rows + For Each col As DataColumn In DT_RESULT.Columns + Dim colName As String = col.ColumnName + Dim docId As Integer = row.Item("DocID") + Dim configId As Integer = RESULT_CONFIG_IDS.Item(col.ColumnName) - ' Werte für Konfigurierte Spalten aus TBPMO_DOC_VALUES auslesen und Zellenweise einfügen - For Each row As DataRow In DT_RESULT.Rows - For Each col As DataColumn In DT_RESULT.Columns - Dim colName As String = col.ColumnName - Dim docId As Integer = row.Item("DocID") - Dim configId As Integer = RESULT_CONFIG_IDS.Item(col.ColumnName) + If configId <> 0 Then + Dim value As String = "" - If configId <> 0 Then - Dim value As String = "" + Try + value = ClassDatabase.Execute_Scalar(String.Format("SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = {0} AND DocID = {1}", configId, docId)) + Catch ex As Exception + ClassLogger.Add(String.Format(">> Attention: Could not get Value from TBPMO_DOC_VALUES for ConfigId[{0}], DocId[{1}]: ", configId, docId) & ex.Message, False) + End Try - Try - value = ClassDatabase.Execute_Scalar(String.Format("SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = {0} AND DocID = {1}", configId, docId)) - Catch ex As Exception - ClassLogger.Add(String.Format(">> Attention: Could not get Value from TBPMO_DOC_VALUES for ConfigId[{0}], DocId[{1}]: ", configId, docId) & ex.Message, False) - End Try - - row.Item(colName) = value - End If + row.Item(colName) = value + End If + Next Next - Next + Catch ex As Exception + ClassLogger.Add(">> Attention: Could not load values from TBPMO_DOC_VALUES: " & ex.Message, False) + End Try + If LogErrorsOnly = False Then ClassLogger.Add(" >> Values loaded...", False) + Try + ' Tabellen zum DataSet hinzufügen + ds.Tables.Add(DT_RESULT) + ds.Tables.Add(DT_DETAILS) + If LogErrorsOnly = False Then ClassLogger.Add(" >> tables added to ds.Tables...", False) + Catch ex As Exception + ClassLogger.Add(">> Attention: Could not Add tables to ds.Tables: " & ex.Message, False) + End Try - ' Tabellen zum DataSet hinzufügen - ds.Tables.Add(DT_RESULT) - ds.Tables.Add(DT_DETAILS) - - Dim resultTable As DataTable = ds.Tables(0) - Dim detailsTable As DataTable = ds.Tables(1) - - ' Relation `docIdDetails` erstellen - Dim parentColumn As DataColumn = resultTable.Columns("docId") - Dim childColumn As DataColumn = detailsTable.Columns("docId") - - ' Unique Constraint für DT_RESULT auf Spalte `docId` erstellen - Dim uniqueConstraint As UniqueConstraint = New UniqueConstraint(parentColumn) - resultTable.Constraints.Add(uniqueConstraint) Try + Dim resultTable As DataTable = ds.Tables(0) + Dim detailsTable As DataTable = ds.Tables(1) + + ' Relation `docIdDetails` erstellen + Dim parentColumn As DataColumn = resultTable.Columns("docId") + Dim childColumn As DataColumn = detailsTable.Columns("docId") + + ' Unique Constraint für DT_RESULT auf Spalte `docId` erstellen + Dim uniqueConstraint As UniqueConstraint = New UniqueConstraint(parentColumn) + resultTable.Constraints.Add(uniqueConstraint) + ' Parameter `createConstraints` auf false setzen, um erstellung eines unsinnigen ' `foreignKeyConstraints` zu verhindern ds.Relations.Add("docIdDetails", parentColumn, childColumn, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> relationdocIdDetails created...", False) Catch ex As Exception ClassLogger.Add(">> Could not set master-detail Relation DocSearch: " & ex.Message, False) End Try diff --git a/app/DD-Record-Organizer/DD-Record-Organizer.vbproj b/app/DD-Record-Organizer/DD-Record-Organizer.vbproj index c692f09..b9d0cce 100644 --- a/app/DD-Record-Organizer/DD-Record-Organizer.vbproj +++ b/app/DD-Record-Organizer/DD-Record-Organizer.vbproj @@ -394,28 +394,28 @@ Form - - frmWD_ChangeDoctype.vb + + frmWM_ChangeDoctype.vb - + Form - - frmWD_CreateVersion.vb + + frmWM_CreateVersion.vb - + Form - - frmWD_FulltextChoice.vb + + frmWM_FulltextChoice.vb - + Form - - frmWD_Import_Doc_Record.vb + + frmWM_Import_Doc_Record.vb - + Form @@ -431,10 +431,10 @@ Form - - frmWD_Resultlist_Config.vb + + frmWM_Resultlist_Config.vb - + Form @@ -571,10 +571,10 @@ Form - - frmWD_ObjecttypeConfig.vb + + frmWM_ObjecttypeConfig.vb - + Form @@ -630,10 +630,10 @@ Form - - frmWD_Dokumentart_Konfig.vb + + frmWM_Dokumentart_Konfig.vb - + Form @@ -691,16 +691,16 @@ Form - - frmWD_EntityImport.vb + + frmWM_EntityImport.vb - + Form - - frmWD_IndexFile.vb + + frmWM_IndexFile.vb - + Form @@ -715,10 +715,10 @@ Form - - frmwindreamView_Config.vb + + frmWMView_Config.vb - + Form @@ -840,26 +840,26 @@ frmViewsUser.vb - - frmWD_ChangeDoctype.vb + + frmWM_ChangeDoctype.vb - - frmWD_ChangeDoctype.vb + + frmWM_ChangeDoctype.vb - - frmWD_CreateVersion.vb + + frmWM_CreateVersion.vb - - frmWD_CreateVersion.vb + + frmWM_CreateVersion.vb - - frmWD_FulltextChoice.vb + + frmWM_FulltextChoice.vb - - frmWD_FulltextChoice.vb + + frmWM_FulltextChoice.vb - - frmWD_Import_Doc_Record.vb + + frmWM_Import_Doc_Record.vb frmRecordView.vb @@ -870,11 +870,11 @@ frmDocLink_to_Record.vb - - frmWD_Resultlist_Config.vb + + frmWM_Resultlist_Config.vb - - frmWD_Resultlist_Config.vb + + frmWM_Resultlist_Config.vb Designer @@ -933,8 +933,8 @@ frmDD_EMAIL_ACCOUNT.vb Designer - - frmWD_Dokumentart_Konfig.vb + + frmWM_Dokumentart_Konfig.vb frmDoctype_NameConvention.vb @@ -989,8 +989,8 @@ frmNewKombiForm.vb - - frmWD_ObjecttypeConfig.vb + + frmWM_ObjecttypeConfig.vb frmQuickStart_Images.vb @@ -998,8 +998,8 @@ frmQuickStart_Images.vb - - frmWD_ObjecttypeConfig.vb + + frmWM_ObjecttypeConfig.vb frmRecord_Changes.vb @@ -1054,8 +1054,8 @@ frmCustomAppointment.vb - - frmWD_Dokumentart_Konfig.vb + + frmWM_Dokumentart_Konfig.vb frmEntities.vb @@ -1086,17 +1086,17 @@ frmUserKonfig.vb - - frmWD_EntityImport.vb + + frmWM_EntityImport.vb - - frmWD_EntityImport.vb + + frmWM_EntityImport.vb - - frmWD_IndexFile.vb + + frmWM_IndexFile.vb - - frmWD_IndexFile.vb + + frmWM_IndexFile.vb Designer @@ -1108,11 +1108,11 @@ frmFollowUp.vb - - frmwindreamView_Config.vb + + frmWMView_Config.vb - - frmwindreamView_Config.vb + + frmWMView_Config.vb VbMyResourcesResXFileCodeGenerator diff --git a/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb b/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb index 245ab12..6100087 100644 --- a/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb +++ b/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb @@ -51963,9 +51963,9 @@ Namespace DD_DMSDataSetTableAdapters 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, ENTITY_ID, TYPE_NODE, NODE_IMAGE, CREATE_RECORD, ADDED_WHO, A"& _ - "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN, NAME, COMMENT, PARENT_NODE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBPMO_STRUCTURE_NODES_CONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (ENTITY_ID = @ENTITY_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"OR"& _ + Me._commandCollection(0).CommandText = "SELECT GUID, ENTITY_ID, TYPE_NODE, NODE_IMAGE, CREATE_RECORD, ADDED_WHO, A" & + "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN, NAME, COMMENT, PARENT_NODE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & + " TBPMO_STRUCTURE_NODES_CONFIGURATION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE ENTITY_ID in (SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @ENTITY_ID)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "OR" & "DER BY ENTITY_ID, TYPE_NODE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) diff --git a/app/DD-Record-Organizer/DD_DMSDataSet.xsd b/app/DD-Record-Organizer/DD_DMSDataSet.xsd index ee4abf8..dbdf21d 100644 --- a/app/DD-Record-Organizer/DD_DMSDataSet.xsd +++ b/app/DD-Record-Organizer/DD_DMSDataSet.xsd @@ -3124,63 +3124,45 @@ SELECT GUID, ID, PATTERN, FORMAT_RULE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG - + - + DELETE FROM TBPMO_STRUCTURE_NODES_CONFIGURATION WHERE (GUID = @Original_GUID) - + - - - INSERT INTO TBPMO_STRUCTURE_NODES_CONFIGURATION - (ENTITY_ID, TYPE_NODE, NODE_IMAGE, CREATE_RECORD, ADDED_WHO, NAME, COMMENT, PARENT_NODE) -VALUES (@ENTITY_ID,@TYPE_NODE,@NODE_IMAGE,@CREATE_RECORD,@ADDED_WHO,@NAME,@COMMENT,@PARENT_NODE); -SELECT GUID, ENTITY_ID, TYPE_NODE, NODE_IMAGE, CREATE_RECORD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_STRUCTURE_NODES_CONFIGURATION WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - + SELECT GUID, ENTITY_ID, TYPE_NODE, NODE_IMAGE, CREATE_RECORD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, NAME, COMMENT, PARENT_NODE FROM TBPMO_STRUCTURE_NODES_CONFIGURATION -WHERE (ENTITY_ID = @ENTITY_ID) +WHERE (ENTITY_ID in (SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE CONSTRUCT_ID = @CONSTRUCT_ID )) ORDER BY ENTITY_ID, TYPE_NODE - + - + UPDATE TBPMO_STRUCTURE_NODES_CONFIGURATION -SET ENTITY_ID = @ENTITY_ID, TYPE_NODE = @TYPE_NODE, NODE_IMAGE = @NODE_IMAGE, CREATE_RECORD = @CREATE_RECORD, CHANGED_WHO = @CHANGED_WHO, NAME = @NAME, - COMMENT = @COMMENT, PARENT_NODE = @PARENT_NODE -WHERE (GUID = @Original_GUID); -SELECT GUID, ENTITY_ID, TYPE_NODE, NODE_IMAGE, CREATE_RECORD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_STRUCTURE_NODES_CONFIGURATION WHERE (GUID = @GUID) +SET ENTITY_ID = @ENTITY_ID, TYPE_NODE = @TYPE_NODE, NODE_IMAGE = @NODE_IMAGE, CREATE_RECORD = @CREATE_RECORD, CHANGED_WHO = @CHANGED_WHO, NAME = @NAME, COMMENT = @COMMENT, + PARENT_NODE = @PARENT_NODE +WHERE (GUID = @Original_GUID); +SELECT GUID, ENTITY_ID, TYPE_NODE, NODE_IMAGE, CREATE_RECORD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, NAME, COMMENT, PARENT_NODE FROM TBPMO_STRUCTURE_NODES_CONFIGURATION WHERE (GUID = @GUID) ORDER BY ENTITY_ID, TYPE_NODE - - - - - - - - - - + + + + + + + + + + @@ -3570,7 +3552,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -3611,7 +3593,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -3689,7 +3671,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -3784,7 +3766,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -3807,7 +3789,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -3852,7 +3834,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -3890,7 +3872,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -3925,7 +3907,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -3969,7 +3951,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -3990,7 +3972,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4027,7 +4009,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4072,7 +4054,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4139,7 +4121,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4176,7 +4158,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4232,7 +4214,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4271,7 +4253,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4395,7 +4377,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4493,7 +4475,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4523,7 +4505,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4560,7 +4542,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4597,7 +4579,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4629,7 +4611,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4649,7 +4631,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4695,7 +4677,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4739,7 +4721,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4896,7 +4878,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4921,7 +4903,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4956,7 +4938,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -4985,7 +4967,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5045,7 +5027,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5118,7 +5100,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5183,7 +5165,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5277,7 +5259,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5316,7 +5298,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5334,7 +5316,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5380,7 +5362,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5394,7 +5376,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5446,7 +5428,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5490,7 +5472,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5522,7 +5504,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5604,7 +5586,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5656,7 +5638,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5747,7 +5729,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5778,7 +5760,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5816,7 +5798,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5858,7 +5840,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5872,7 +5854,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5901,7 +5883,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5939,7 +5921,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5957,7 +5939,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -5995,7 +5977,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - + @@ -6246,27 +6228,27 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app/DD-Record-Organizer/DD_DMSDataSet.xss b/app/DD-Record-Organizer/DD_DMSDataSet.xss index ace9b66..8ed21c5 100644 --- a/app/DD-Record-Organizer/DD_DMSDataSet.xss +++ b/app/DD-Record-Organizer/DD_DMSDataSet.xss @@ -4,13 +4,13 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - + - + @@ -28,35 +28,35 @@ - - + + - + - + - + - + - + - - - + + + @@ -67,11 +67,11 @@ 437 - 341 + 340 - 492 - 341 + 493 + 340 @@ -338,12 +338,12 @@ 391 - 205 + 251 391 - 205 - 361 + 251 + 348 @@ -367,7 +367,7 @@ - + 961 diff --git a/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb b/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb index dd7a4fd..c9011ea 100644 --- a/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb +++ b/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb @@ -66,7 +66,7 @@ Partial Public Class DD_ECMAdmin Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -78,7 +78,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 @@ -161,7 +161,7 @@ Partial Public Class DD_ECMAdmin End Sub _ Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR() As TBPMO_FORM_CONSTRUCTORDataTable @@ -171,7 +171,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR_DETAIL() As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable @@ -181,7 +181,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable @@ -191,7 +191,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property VWTEMPQUICKVIEW() As VWTEMPQUICKVIEWDataTable @@ -201,7 +201,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property TBWH_ENTITIES() As TBWH_ENTITIESDataTable @@ -211,7 +211,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property TBWH_USER_GROUPS() As TBWH_USER_GROUPSDataTable @@ -221,7 +221,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property TBPMO_SAP_FUBA() As TBPMO_SAP_FUBADataTable @@ -231,7 +231,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property USER_RIGHTS() As USER_RIGHTSDataTable @@ -241,7 +241,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property TBPMO_DOCSEARCH_RESULTLIST_CONFIG() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable @@ -251,7 +251,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property VWDD_LOGIN_USER_HISTORY() As VWDD_LOGIN_USER_HISTORYDataTable @@ -261,7 +261,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID() As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable @@ -271,7 +271,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property TBPMO_LOG_ESSENTIALS() As TBPMO_LOG_ESSENTIALSDataTable @@ -281,7 +281,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property TBPMO_DOCRESULT_DROPDOWN_ITEMS() As TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable @@ -291,7 +291,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property DT_VORSCHAU() As DT_VORSCHAUDataTable @@ -301,7 +301,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property TBAD_Users() As TBAD_UsersDataTable @@ -311,7 +311,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property TBWH_Users1() As TBWH_Users1DataTable @@ -321,7 +321,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property TBWH_Users2() As TBWH_Users2DataTable @@ -331,7 +331,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -344,7 +344,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -353,7 +353,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -362,7 +362,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -370,7 +370,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As DD_ECMAdmin = CType(MyBase.Clone,DD_ECMAdmin) cln.InitVars @@ -379,19 +379,19 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 @@ -463,7 +463,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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)) @@ -472,13 +472,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBPMO_FORM_CONSTRUCTOR = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR"),TBPMO_FORM_CONSTRUCTORDataTable) If (initTable = true) Then @@ -587,7 +587,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "DD_ECMAdmin" Me.Prefix = "" @@ -635,109 +635,109 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR_DETAIL() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBDD_CONNECTION() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWTEMPQUICKVIEW() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_ENTITIES() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_USER_GROUPS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBPMO_SAP_FUBA() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeUSER_RIGHTS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBPMO_DOCSEARCH_RESULTLIST_CONFIG() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWDD_LOGIN_USER_HISTORY() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBPMO_LOG_ESSENTIALS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBPMO_DOCRESULT_DROPDOWN_ITEMS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeDT_VORSCHAU() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBAD_Users() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_Users1() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_Users2() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 @@ -745,7 +745,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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_ECMAdmin = New DD_ECMAdmin() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -794,55 +794,55 @@ Partial Public Class DD_ECMAdmin Return type End Function - _ + _ Public Delegate Sub TBPMO_FORM_CONSTRUCTORRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTORRowChangeEvent) - _ + _ Public Delegate Sub TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent) - _ + _ Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) - _ + _ Public Delegate Sub VWTEMPQUICKVIEWRowChangeEventHandler(ByVal sender As Object, ByVal e As VWTEMPQUICKVIEWRowChangeEvent) - _ + _ Public Delegate Sub TBWH_ENTITIESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_ENTITIESRowChangeEvent) - _ + _ Public Delegate Sub TBWH_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_USER_GROUPSRowChangeEvent) - _ + _ Public Delegate Sub TBPMO_SAP_FUBARowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_SAP_FUBARowChangeEvent) - _ + _ Public Delegate Sub USER_RIGHTSRowChangeEventHandler(ByVal sender As Object, ByVal e As USER_RIGHTSRowChangeEvent) - _ + _ Public Delegate Sub TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent) - _ + _ Public Delegate Sub VWDD_LOGIN_USER_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDD_LOGIN_USER_HISTORYRowChangeEvent) - _ + _ Public Delegate Sub TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent) - _ + _ Public Delegate Sub TBPMO_LOG_ESSENTIALSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_LOG_ESSENTIALSRowChangeEvent) - _ + _ Public Delegate Sub TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent) - _ + _ Public Delegate Sub DT_VORSCHAURowChangeEventHandler(ByVal sender As Object, ByVal e As DT_VORSCHAURowChangeEvent) - _ + _ Public Delegate Sub TBAD_UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As TBAD_UsersRowChangeEvent) - _ + _ Public Delegate Sub TBWH_Users1RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_Users1RowChangeEvent) - _ + _ Public Delegate Sub TBWH_Users2RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_Users2RowChangeEvent) ''' @@ -874,7 +874,7 @@ Partial Public Class DD_ECMAdmin Private columnLANGUAGE As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPMO_FORM_CONSTRUCTOR" @@ -884,7 +884,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -902,14 +902,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -917,7 +917,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_TITLE @@ -925,7 +925,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SEQUENCE_MENUColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE_MENU @@ -933,7 +933,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -941,7 +941,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -949,7 +949,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -957,7 +957,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -965,7 +965,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MENU_IMGColumn() As Global.System.Data.DataColumn Get Return Me.columnMENU_IMG @@ -973,7 +973,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SHORT_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORT_TITLE @@ -981,7 +981,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANGUAGE @@ -989,7 +989,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -998,33 +998,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTORRow Get Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTORRow) End Get End Property - _ + _ Public Event TBPMO_FORM_CONSTRUCTORRowChanging As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler - _ + _ Public Event TBPMO_FORM_CONSTRUCTORRowChanged As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler - _ + _ Public Event TBPMO_FORM_CONSTRUCTORRowDeleting As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler - _ + _ Public Event TBPMO_FORM_CONSTRUCTORRowDeleted As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As TBPMO_FORM_CONSTRUCTORRow Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE} @@ -1034,13 +1034,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTORRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTORRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTORDataTable) cln.InitVars @@ -1048,13 +1048,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FORM_CONSTRUCTORDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") @@ -1069,7 +1069,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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) @@ -1106,25 +1106,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_FORM_CONSTRUCTORRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_FORM_CONSTRUCTORRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangedEvent) Is Nothing) Then @@ -1133,7 +1133,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangingEvent) Is Nothing) Then @@ -1142,7 +1142,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletedEvent) Is Nothing) Then @@ -1151,7 +1151,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletingEvent) Is Nothing) Then @@ -1160,13 +1160,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -1293,7 +1293,7 @@ Partial Public Class DD_ECMAdmin Private columnADD_RECORDS As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPMO_FORM_CONSTRUCTOR_DETAIL" @@ -1303,7 +1303,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1321,14 +1321,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1336,7 +1336,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CONSTRUCT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONSTRUCT_ID @@ -1344,7 +1344,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_ID @@ -1352,7 +1352,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPARENT_ID @@ -1360,7 +1360,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LEVEL1_SELECTColumn() As Global.System.Data.DataColumn Get Return Me.columnLEVEL1_SELECT @@ -1368,7 +1368,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE @@ -1376,7 +1376,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SQL_SELECT_EBENE1Column() As Global.System.Data.DataColumn Get Return Me.columnSQL_SELECT_EBENE1 @@ -1384,7 +1384,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SQL_SELECT_EBENE2Column() As Global.System.Data.DataColumn Get Return Me.columnSQL_SELECT_EBENE2 @@ -1392,7 +1392,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -1400,7 +1400,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -1408,7 +1408,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -1416,7 +1416,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -1424,7 +1424,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property COLUMN_NAME1Column() As Global.System.Data.DataColumn Get Return Me.columnCOLUMN_NAME1 @@ -1432,7 +1432,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property COLUMN_NAME2Column() As Global.System.Data.DataColumn Get Return Me.columnCOLUMN_NAME2 @@ -1440,7 +1440,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property WINDREAM_SEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnWINDREAM_SEARCH @@ -1448,7 +1448,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SEARCH_PATTERN1Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN1 @@ -1456,7 +1456,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SEARCH_PATTERN2Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN2 @@ -1464,7 +1464,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SEARCH_PATTERN3Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN3 @@ -1472,7 +1472,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SEARCH_PATTERN4Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN4 @@ -1480,7 +1480,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SEARCH_PATTERN5Column() As Global.System.Data.DataColumn Get Return Me.columnSEARCH_PATTERN5 @@ -1488,7 +1488,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LOAD_DIRECTColumn() As Global.System.Data.DataColumn Get Return Me.columnLOAD_DIRECT @@ -1496,7 +1496,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SQL_QUICK_VIEWColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_QUICK_VIEW @@ -1504,7 +1504,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CONTROL_DOCTYPE_MATCHColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTROL_DOCTYPE_MATCH @@ -1512,7 +1512,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SQL_RIGHT_READ_AND_VIEW_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY @@ -1520,7 +1520,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SQL_RIGHT_WINDREAM_VIEWColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_RIGHT_WINDREAM_VIEW @@ -1528,7 +1528,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADD_RECORDSColumn() As Global.System.Data.DataColumn Get Return Me.columnADD_RECORDS @@ -1536,7 +1536,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -1545,33 +1545,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow Get Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Get End Property - _ + _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler - _ + _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler - _ + _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler - _ + _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBPMO_FORM_CONSTRUCTOR_DETAILRow( _ ByVal parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As TBPMO_FORM_CONSTRUCTORRow, _ ByVal FORM_ID As Integer, _ @@ -1609,13 +1609,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) cln.InitVars @@ -1623,13 +1623,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnCONSTRUCT_ID = MyBase.Columns("CONSTRUCT_ID") @@ -1660,7 +1660,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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) @@ -1752,25 +1752,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBPMO_FORM_CONSTRUCTOR_DETAILRow() As TBPMO_FORM_CONSTRUCTOR_DETAILRow Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangedEvent) Is Nothing) Then @@ -1779,7 +1779,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangingEvent) Is Nothing) Then @@ -1788,7 +1788,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletedEvent) Is Nothing) Then @@ -1797,7 +1797,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletingEvent) Is Nothing) Then @@ -1806,13 +1806,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -1913,7 +1913,7 @@ Partial Public Class DD_ECMAdmin Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_CONNECTION" @@ -1923,7 +1923,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1941,14 +1941,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1956,7 +1956,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -1964,7 +1964,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_PROVIDER @@ -1972,7 +1972,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get Return Me.columnSERVER @@ -1980,7 +1980,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get Return Me.columnDATENBANK @@ -1988,7 +1988,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME @@ -1996,7 +1996,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get Return Me.columnPASSWORD @@ -2004,7 +2004,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEMERKUNG @@ -2012,7 +2012,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV @@ -2020,7 +2020,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER @@ -2028,7 +2028,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN @@ -2036,7 +2036,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER @@ -2044,7 +2044,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -2052,7 +2052,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -2061,33 +2061,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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) 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} @@ -2097,13 +2097,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) cln.InitVars @@ -2111,13 +2111,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -2135,7 +2135,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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) @@ -2183,25 +2183,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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 @@ -2210,7 +2210,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 @@ -2219,7 +2219,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 @@ -2228,7 +2228,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 @@ -2237,13 +2237,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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() @@ -2328,7 +2328,7 @@ Partial Public Class DD_ECMAdmin Private columnAktenzustand As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWTEMPQUICKVIEW" @@ -2338,7 +2338,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2356,14 +2356,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property _Record_IDColumn() As Global.System.Data.DataColumn Get Return Me._columnRecord_ID @@ -2371,7 +2371,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property AktenzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnAktenzeichen @@ -2379,7 +2379,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property _Wiedergabe_der_Marke__Bild_Column() As Global.System.Data.DataColumn Get Return Me._columnWiedergabe_der_Marke__Bild_ @@ -2387,7 +2387,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Tag_der_Eintragung_im_RegisterColumn() As Global.System.Data.DataColumn Get Return Me.columnTag_der_Eintragung_im_Register @@ -2395,7 +2395,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property AktenzustandColumn() As Global.System.Data.DataColumn Get Return Me.columnAktenzustand @@ -2403,7 +2403,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -2412,33 +2412,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWTEMPQUICKVIEWRow Get Return CType(Me.Rows(index),VWTEMPQUICKVIEWRow) End Get End Property - _ + _ Public Event VWTEMPQUICKVIEWRowChanging As VWTEMPQUICKVIEWRowChangeEventHandler - _ + _ Public Event VWTEMPQUICKVIEWRowChanged As VWTEMPQUICKVIEWRowChangeEventHandler - _ + _ Public Event VWTEMPQUICKVIEWRowDeleting As VWTEMPQUICKVIEWRowChangeEventHandler - _ + _ Public Event VWTEMPQUICKVIEWRowDeleted As VWTEMPQUICKVIEWRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWTEMPQUICKVIEWRow(ByVal row As VWTEMPQUICKVIEWRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWTEMPQUICKVIEWRow(ByVal _Record_ID As Integer, ByVal Aktenzeichen As String, ByVal _Wiedergabe_der_Marke__Bild_() As Byte, ByVal Tag_der_Eintragung_im_Register As String, ByVal Aktenzustand As String) As VWTEMPQUICKVIEWRow Dim rowVWTEMPQUICKVIEWRow As VWTEMPQUICKVIEWRow = CType(Me.NewRow,VWTEMPQUICKVIEWRow) Dim columnValuesArray() As Object = New Object() {_Record_ID, Aktenzeichen, _Wiedergabe_der_Marke__Bild_, Tag_der_Eintragung_im_Register, Aktenzustand} @@ -2448,13 +2448,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindBy_Record_ID(ByVal _Record_ID As Integer) As VWTEMPQUICKVIEWRow Return CType(Me.Rows.Find(New Object() {_Record_ID}),VWTEMPQUICKVIEWRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWTEMPQUICKVIEWDataTable = CType(MyBase.Clone,VWTEMPQUICKVIEWDataTable) cln.InitVars @@ -2462,13 +2462,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWTEMPQUICKVIEWDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me._columnRecord_ID = MyBase.Columns("Record-ID") Me.columnAktenzeichen = MyBase.Columns("Aktenzeichen") @@ -2478,7 +2478,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me._columnRecord_ID = New Global.System.Data.DataColumn("Record-ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) Me._columnRecord_ID.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnRecord_ID") @@ -2507,25 +2507,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWTEMPQUICKVIEWRow() As VWTEMPQUICKVIEWRow Return CType(Me.NewRow,VWTEMPQUICKVIEWRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWTEMPQUICKVIEWRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWTEMPQUICKVIEWRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWTEMPQUICKVIEWRowChangedEvent) Is Nothing) Then @@ -2534,7 +2534,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWTEMPQUICKVIEWRowChangingEvent) Is Nothing) Then @@ -2543,7 +2543,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWTEMPQUICKVIEWRowDeletedEvent) Is Nothing) Then @@ -2552,7 +2552,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWTEMPQUICKVIEWRowDeletingEvent) Is Nothing) Then @@ -2561,13 +2561,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWTEMPQUICKVIEWRow(ByVal row As VWTEMPQUICKVIEWRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -2648,7 +2648,7 @@ Partial Public Class DD_ECMAdmin Private columnCAPTION As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_ENTITIES" @@ -2658,7 +2658,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2676,14 +2676,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2691,7 +2691,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_TITLE @@ -2699,7 +2699,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CAPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnCAPTION @@ -2707,7 +2707,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -2716,33 +2716,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_ENTITIESRow Get Return CType(Me.Rows(index),TBWH_ENTITIESRow) End Get End Property - _ + _ Public Event TBWH_ENTITIESRowChanging As TBWH_ENTITIESRowChangeEventHandler - _ + _ Public Event TBWH_ENTITIESRowChanged As TBWH_ENTITIESRowChangeEventHandler - _ + _ Public Event TBWH_ENTITIESRowDeleting As TBWH_ENTITIESRowChangeEventHandler - _ + _ Public Event TBWH_ENTITIESRowDeleted As TBWH_ENTITIESRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_ENTITIESRow(ByVal row As TBWH_ENTITIESRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_ENTITIESRow(ByVal FORM_TITLE As String, ByVal CAPTION As String) As TBWH_ENTITIESRow Dim rowTBWH_ENTITIESRow As TBWH_ENTITIESRow = CType(Me.NewRow,TBWH_ENTITIESRow) Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, CAPTION} @@ -2752,13 +2752,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_ENTITIESRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_ENTITIESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_ENTITIESDataTable = CType(MyBase.Clone,TBWH_ENTITIESDataTable) cln.InitVars @@ -2766,13 +2766,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_ENTITIESDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") @@ -2780,7 +2780,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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) @@ -2802,25 +2802,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_ENTITIESRow() As TBWH_ENTITIESRow Return CType(Me.NewRow,TBWH_ENTITIESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_ENTITIESRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_ENTITIESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_ENTITIESRowChangedEvent) Is Nothing) Then @@ -2829,7 +2829,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_ENTITIESRowChangingEvent) Is Nothing) Then @@ -2838,7 +2838,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_ENTITIESRowDeletedEvent) Is Nothing) Then @@ -2847,7 +2847,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_ENTITIESRowDeletingEvent) Is Nothing) Then @@ -2856,13 +2856,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_ENTITIESRow(ByVal row As TBWH_ENTITIESRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -2941,7 +2941,7 @@ Partial Public Class DD_ECMAdmin Private columnNAME As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_USER_GROUPS" @@ -2951,7 +2951,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2969,14 +2969,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2984,7 +2984,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -2992,7 +2992,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -3001,33 +3001,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_USER_GROUPSRow Get Return CType(Me.Rows(index),TBWH_USER_GROUPSRow) End Get End Property - _ + _ Public Event TBWH_USER_GROUPSRowChanging As TBWH_USER_GROUPSRowChangeEventHandler - _ + _ Public Event TBWH_USER_GROUPSRowChanged As TBWH_USER_GROUPSRowChangeEventHandler - _ + _ Public Event TBWH_USER_GROUPSRowDeleting As TBWH_USER_GROUPSRowChangeEventHandler - _ + _ Public Event TBWH_USER_GROUPSRowDeleted As TBWH_USER_GROUPSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_USER_GROUPSRow(ByVal row As TBWH_USER_GROUPSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_USER_GROUPSRow(ByVal NAME As String) As TBWH_USER_GROUPSRow Dim rowTBWH_USER_GROUPSRow As TBWH_USER_GROUPSRow = CType(Me.NewRow,TBWH_USER_GROUPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME} @@ -3037,13 +3037,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_USER_GROUPSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_USER_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_USER_GROUPSDataTable = CType(MyBase.Clone,TBWH_USER_GROUPSDataTable) cln.InitVars @@ -3051,20 +3051,20 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_USER_GROUPSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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) @@ -3081,25 +3081,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_USER_GROUPSRow() As TBWH_USER_GROUPSRow Return CType(Me.NewRow,TBWH_USER_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_USER_GROUPSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_USER_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_USER_GROUPSRowChangedEvent) Is Nothing) Then @@ -3108,7 +3108,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_USER_GROUPSRowChangingEvent) Is Nothing) Then @@ -3117,7 +3117,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_USER_GROUPSRowDeletedEvent) Is Nothing) Then @@ -3126,7 +3126,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_USER_GROUPSRowDeletingEvent) Is Nothing) Then @@ -3135,13 +3135,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_USER_GROUPSRow(ByVal row As TBWH_USER_GROUPSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -3254,7 +3254,7 @@ Partial Public Class DD_ECMAdmin Private columnFuBa_SplitCharacter As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPMO_SAP_FUBA" @@ -3264,7 +3264,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3282,14 +3282,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3297,7 +3297,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -3305,7 +3305,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -3313,7 +3313,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TableNameColumn() As Global.System.Data.DataColumn Get Return Me.columnTableName @@ -3321,7 +3321,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property HostColumn() As Global.System.Data.DataColumn Get Return Me.columnHost @@ -3329,7 +3329,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SystemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnSystemNumber @@ -3337,7 +3337,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property UserNameColumn() As Global.System.Data.DataColumn Get Return Me.columnUserName @@ -3345,7 +3345,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PasswordColumn() As Global.System.Data.DataColumn Get Return Me.columnPassword @@ -3353,7 +3353,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ClientColumn() As Global.System.Data.DataColumn Get Return Me.columnClient @@ -3361,7 +3361,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LanguageColumn() As Global.System.Data.DataColumn Get Return Me.columnLanguage @@ -3369,7 +3369,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TempTableNameColumn() As Global.System.Data.DataColumn Get Return Me.columnTempTableName @@ -3377,7 +3377,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -3385,7 +3385,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -3393,7 +3393,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -3401,7 +3401,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -3409,7 +3409,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -3417,7 +3417,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property WHERE_CLAUSEColumn() As Global.System.Data.DataColumn Get Return Me.columnWHERE_CLAUSE @@ -3425,7 +3425,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MethodColumn() As Global.System.Data.DataColumn Get Return Me.columnMethod @@ -3433,7 +3433,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FuBa_SplitCharacterColumn() As Global.System.Data.DataColumn Get Return Me.columnFuBa_SplitCharacter @@ -3441,7 +3441,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -3450,33 +3450,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_SAP_FUBARow Get Return CType(Me.Rows(index),TBPMO_SAP_FUBARow) End Get End Property - _ + _ Public Event TBPMO_SAP_FUBARowChanging As TBPMO_SAP_FUBARowChangeEventHandler - _ + _ Public Event TBPMO_SAP_FUBARowChanged As TBPMO_SAP_FUBARowChangeEventHandler - _ + _ Public Event TBPMO_SAP_FUBARowDeleting As TBPMO_SAP_FUBARowChangeEventHandler - _ + _ Public Event TBPMO_SAP_FUBARowDeleted As TBPMO_SAP_FUBARowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBPMO_SAP_FUBARow(ByVal row As TBPMO_SAP_FUBARow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBPMO_SAP_FUBARow( _ ByVal NAME As String, _ ByVal COMMENT As String, _ @@ -3504,13 +3504,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_SAP_FUBARow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_SAP_FUBARow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_SAP_FUBADataTable = CType(MyBase.Clone,TBPMO_SAP_FUBADataTable) cln.InitVars @@ -3518,13 +3518,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_SAP_FUBADataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -3548,7 +3548,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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) @@ -3627,25 +3627,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBPMO_SAP_FUBARow() As TBPMO_SAP_FUBARow Return CType(Me.NewRow,TBPMO_SAP_FUBARow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_SAP_FUBARow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_SAP_FUBARow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_SAP_FUBARowChangedEvent) Is Nothing) Then @@ -3654,7 +3654,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_SAP_FUBARowChangingEvent) Is Nothing) Then @@ -3663,7 +3663,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_SAP_FUBARowDeletedEvent) Is Nothing) Then @@ -3672,7 +3672,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_SAP_FUBARowDeletingEvent) Is Nothing) Then @@ -3681,13 +3681,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBPMO_SAP_FUBARow(ByVal row As TBPMO_SAP_FUBARow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -3790,7 +3790,7 @@ Partial Public Class DD_ECMAdmin Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "USER_RIGHTS" @@ -3800,7 +3800,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3818,14 +3818,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3833,7 +3833,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnFORM_TITLE @@ -3841,7 +3841,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME @@ -3849,7 +3849,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -3857,7 +3857,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME @@ -3865,7 +3865,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EDIT_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnEDIT_REC @@ -3873,7 +3873,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADD_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnADD_REC @@ -3881,7 +3881,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DELETE_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETE_REC @@ -3889,7 +3889,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADD_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnADD_DOC @@ -3897,7 +3897,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property READ_ONLY_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnREAD_ONLY_DOC @@ -3905,7 +3905,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DELETE_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETE_DOC @@ -3913,7 +3913,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FILES_VISIBLEColumn() As Global.System.Data.DataColumn Get Return Me.columnFILES_VISIBLE @@ -3921,7 +3921,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -3929,7 +3929,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -3937,7 +3937,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -3946,33 +3946,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As USER_RIGHTSRow Get Return CType(Me.Rows(index),USER_RIGHTSRow) End Get End Property - _ + _ Public Event USER_RIGHTSRowChanging As USER_RIGHTSRowChangeEventHandler - _ + _ Public Event USER_RIGHTSRowChanged As USER_RIGHTSRowChangeEventHandler - _ + _ Public Event USER_RIGHTSRowDeleting As USER_RIGHTSRowChangeEventHandler - _ + _ Public Event USER_RIGHTSRowDeleted As USER_RIGHTSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddUSER_RIGHTSRow(ByVal row As USER_RIGHTSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddUSER_RIGHTSRow(ByVal FORM_TITLE As String, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal READ_ONLY_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal FILES_VISIBLE As Boolean, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHEN As Date) As USER_RIGHTSRow Dim rowUSER_RIGHTSRow As USER_RIGHTSRow = CType(Me.NewRow,USER_RIGHTSRow) Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, USERNAME, NAME, PRENAME, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ONLY_DOC, DELETE_DOC, FILES_VISIBLE, ADDED_WHEN, CHANGED_WHEN} @@ -3982,13 +3982,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As USER_RIGHTSRow Return CType(Me.Rows.Find(New Object() {GUID}),USER_RIGHTSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As USER_RIGHTSDataTable = CType(MyBase.Clone,USER_RIGHTSDataTable) cln.InitVars @@ -3996,13 +3996,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New USER_RIGHTSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") @@ -4021,7 +4021,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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) @@ -4074,25 +4074,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewUSER_RIGHTSRow() As USER_RIGHTSRow Return CType(Me.NewRow,USER_RIGHTSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New USER_RIGHTSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(USER_RIGHTSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.USER_RIGHTSRowChangedEvent) Is Nothing) Then @@ -4101,7 +4101,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.USER_RIGHTSRowChangingEvent) Is Nothing) Then @@ -4110,7 +4110,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.USER_RIGHTSRowDeletedEvent) Is Nothing) Then @@ -4119,7 +4119,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.USER_RIGHTSRowDeletingEvent) Is Nothing) Then @@ -4128,13 +4128,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveUSER_RIGHTSRow(ByVal row As USER_RIGHTSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -4239,7 +4239,7 @@ Partial Public Class DD_ECMAdmin Private columnSEQUENCE As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG" @@ -4249,7 +4249,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -4267,14 +4267,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -4282,7 +4282,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnENTITY_ID @@ -4290,7 +4290,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANGUAGE @@ -4298,7 +4298,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property COLUMN_VIEWColumn() As Global.System.Data.DataColumn Get Return Me.columnCOLUMN_VIEW @@ -4306,7 +4306,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property HEADER_CAPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnHEADER_CAPTION @@ -4314,7 +4314,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn Get Return Me.columnWIDTH @@ -4322,7 +4322,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE_ID @@ -4330,7 +4330,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -4338,7 +4338,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -4346,7 +4346,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -4354,7 +4354,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -4362,7 +4362,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VISIBLEColumn() As Global.System.Data.DataColumn Get Return Me.columnVISIBLE @@ -4370,7 +4370,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EDITABLEColumn() As Global.System.Data.DataColumn Get Return Me.columnEDITABLE @@ -4378,7 +4378,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CONFIG_COLUMNSColumn() As Global.System.Data.DataColumn Get Return Me.columnCONFIG_COLUMNS @@ -4386,7 +4386,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE @@ -4394,7 +4394,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -4403,33 +4403,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Get Return CType(Me.Rows(index),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) End Get End Property - _ + _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler - _ + _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler - _ + _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler - _ + _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal VISIBLE As Boolean, ByVal EDITABLE As Boolean, ByVal CONFIG_COLUMNS As Boolean, ByVal SEQUENCE As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Dim rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow = CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) Dim columnValuesArray() As Object = New Object() {Nothing, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMNS, SEQUENCE} @@ -4439,13 +4439,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable = CType(MyBase.Clone,TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) cln.InitVars @@ -4453,13 +4453,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") @@ -4479,7 +4479,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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) @@ -4537,25 +4537,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Return CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangedEvent) Is Nothing) Then @@ -4564,7 +4564,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangingEvent) Is Nothing) Then @@ -4573,7 +4573,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeletedEvent) Is Nothing) Then @@ -4582,7 +4582,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeletingEvent) Is Nothing) Then @@ -4591,13 +4591,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -4696,7 +4696,7 @@ Partial Public Class DD_ECMAdmin Private columnMACHINE_NAME As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWDD_LOGIN_USER_HISTORY" @@ -4706,7 +4706,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -4724,14 +4724,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -4739,7 +4739,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MODULEColumn() As Global.System.Data.DataColumn Get Return Me.columnMODULE @@ -4747,7 +4747,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME @@ -4755,7 +4755,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -4763,7 +4763,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME @@ -4771,7 +4771,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_ID @@ -4779,7 +4779,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CLIENT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCLIENT_ID @@ -4787,7 +4787,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CLIENT_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnCLIENT_NAME @@ -4795,7 +4795,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LOGINColumn() As Global.System.Data.DataColumn Get Return Me.columnLOGIN @@ -4803,7 +4803,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LOGOUTColumn() As Global.System.Data.DataColumn Get Return Me.columnLOGOUT @@ -4811,7 +4811,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VERSION_CLIENTColumn() As Global.System.Data.DataColumn Get Return Me.columnVERSION_CLIENT @@ -4819,7 +4819,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MACHINE_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnMACHINE_NAME @@ -4827,7 +4827,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -4836,33 +4836,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWDD_LOGIN_USER_HISTORYRow Get Return CType(Me.Rows(index),VWDD_LOGIN_USER_HISTORYRow) End Get End Property - _ + _ Public Event VWDD_LOGIN_USER_HISTORYRowChanging As VWDD_LOGIN_USER_HISTORYRowChangeEventHandler - _ + _ Public Event VWDD_LOGIN_USER_HISTORYRowChanged As VWDD_LOGIN_USER_HISTORYRowChangeEventHandler - _ + _ Public Event VWDD_LOGIN_USER_HISTORYRowDeleting As VWDD_LOGIN_USER_HISTORYRowChangeEventHandler - _ + _ Public Event VWDD_LOGIN_USER_HISTORYRowDeleted As VWDD_LOGIN_USER_HISTORYRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWDD_LOGIN_USER_HISTORYRow(ByVal row As VWDD_LOGIN_USER_HISTORYRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWDD_LOGIN_USER_HISTORYRow(ByVal GUID As Integer, ByVal _MODULE As String, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String, ByVal USER_ID As Integer, ByVal CLIENT_ID As Integer, ByVal CLIENT_NAME As String, ByVal LOGIN As Date, ByVal LOGOUT As Date, ByVal VERSION_CLIENT As String, ByVal MACHINE_NAME As String) As VWDD_LOGIN_USER_HISTORYRow Dim rowVWDD_LOGIN_USER_HISTORYRow As VWDD_LOGIN_USER_HISTORYRow = CType(Me.NewRow,VWDD_LOGIN_USER_HISTORYRow) Dim columnValuesArray() As Object = New Object() {GUID, _MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_NAME, LOGIN, LOGOUT, VERSION_CLIENT, MACHINE_NAME} @@ -4872,7 +4872,7 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWDD_LOGIN_USER_HISTORYDataTable = CType(MyBase.Clone,VWDD_LOGIN_USER_HISTORYDataTable) cln.InitVars @@ -4880,13 +4880,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWDD_LOGIN_USER_HISTORYDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnMODULE = MyBase.Columns("MODULE") @@ -4903,7 +4903,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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) @@ -4949,25 +4949,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWDD_LOGIN_USER_HISTORYRow() As VWDD_LOGIN_USER_HISTORYRow Return CType(Me.NewRow,VWDD_LOGIN_USER_HISTORYRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWDD_LOGIN_USER_HISTORYRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWDD_LOGIN_USER_HISTORYRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWDD_LOGIN_USER_HISTORYRowChangedEvent) Is Nothing) Then @@ -4976,7 +4976,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWDD_LOGIN_USER_HISTORYRowChangingEvent) Is Nothing) Then @@ -4985,7 +4985,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWDD_LOGIN_USER_HISTORYRowDeletedEvent) Is Nothing) Then @@ -4994,7 +4994,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWDD_LOGIN_USER_HISTORYRowDeletingEvent) Is Nothing) Then @@ -5003,13 +5003,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWDD_LOGIN_USER_HISTORYRow(ByVal row As VWDD_LOGIN_USER_HISTORYRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -5088,7 +5088,7 @@ Partial Public Class DD_ECMAdmin Private columnID As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" @@ -5098,7 +5098,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -5116,14 +5116,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn Get Return Me.columnName @@ -5131,7 +5131,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID @@ -5139,7 +5139,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -5148,33 +5148,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow Get Return CType(Me.Rows(index),TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow) End Get End Property - _ + _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanging As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler - _ + _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanged As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler - _ + _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleting As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler - _ + _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleted As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow(ByVal Name As String, ByVal ID As Byte) As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow Dim rowTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow = CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow) Dim columnValuesArray() As Object = New Object() {Name, ID} @@ -5184,7 +5184,7 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable = CType(MyBase.Clone,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) cln.InitVars @@ -5192,20 +5192,20 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnName = MyBase.Columns("Name") Me.columnID = MyBase.Columns("ID") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName) @@ -5217,25 +5217,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow() As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow Return CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangedEvent) Is Nothing) Then @@ -5244,7 +5244,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangingEvent) Is Nothing) Then @@ -5253,7 +5253,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeletedEvent) Is Nothing) Then @@ -5262,7 +5262,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeletingEvent) Is Nothing) Then @@ -5271,13 +5271,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -5366,7 +5366,7 @@ Partial Public Class DD_ECMAdmin Private columnSelection As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPMO_LOG_ESSENTIALS" @@ -5376,7 +5376,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -5394,14 +5394,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -5409,7 +5409,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property REFERENCE_KEYColumn() As Global.System.Data.DataColumn Get Return Me.columnREFERENCE_KEY @@ -5417,7 +5417,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property REFERENCE_STRINGColumn() As Global.System.Data.DataColumn Get Return Me.columnREFERENCE_STRING @@ -5425,7 +5425,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -5433,7 +5433,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -5441,7 +5441,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -5449,7 +5449,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SelectionColumn() As Global.System.Data.DataColumn Get Return Me.columnSelection @@ -5457,7 +5457,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -5466,33 +5466,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_LOG_ESSENTIALSRow Get Return CType(Me.Rows(index),TBPMO_LOG_ESSENTIALSRow) End Get End Property - _ + _ Public Event TBPMO_LOG_ESSENTIALSRowChanging As TBPMO_LOG_ESSENTIALSRowChangeEventHandler - _ + _ Public Event TBPMO_LOG_ESSENTIALSRowChanged As TBPMO_LOG_ESSENTIALSRowChangeEventHandler - _ + _ Public Event TBPMO_LOG_ESSENTIALSRowDeleting As TBPMO_LOG_ESSENTIALSRowChangeEventHandler - _ + _ Public Event TBPMO_LOG_ESSENTIALSRowDeleted As TBPMO_LOG_ESSENTIALSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBPMO_LOG_ESSENTIALSRow(ByVal row As TBPMO_LOG_ESSENTIALSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBPMO_LOG_ESSENTIALSRow(ByVal REFERENCE_KEY As Integer, ByVal REFERENCE_STRING As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal Selection As Boolean) As TBPMO_LOG_ESSENTIALSRow Dim rowTBPMO_LOG_ESSENTIALSRow As TBPMO_LOG_ESSENTIALSRow = CType(Me.NewRow,TBPMO_LOG_ESSENTIALSRow) Dim columnValuesArray() As Object = New Object() {Nothing, REFERENCE_KEY, REFERENCE_STRING, COMMENT, ADDED_WHO, ADDED_WHEN, Selection} @@ -5502,13 +5502,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_LOG_ESSENTIALSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_LOG_ESSENTIALSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_LOG_ESSENTIALSDataTable = CType(MyBase.Clone,TBPMO_LOG_ESSENTIALSDataTable) cln.InitVars @@ -5516,13 +5516,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_LOG_ESSENTIALSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnREFERENCE_KEY = MyBase.Columns("REFERENCE_KEY") @@ -5534,7 +5534,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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) @@ -5567,25 +5567,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBPMO_LOG_ESSENTIALSRow() As TBPMO_LOG_ESSENTIALSRow Return CType(Me.NewRow,TBPMO_LOG_ESSENTIALSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_LOG_ESSENTIALSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_LOG_ESSENTIALSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_LOG_ESSENTIALSRowChangedEvent) Is Nothing) Then @@ -5594,7 +5594,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_LOG_ESSENTIALSRowChangingEvent) Is Nothing) Then @@ -5603,7 +5603,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_LOG_ESSENTIALSRowDeletedEvent) Is Nothing) Then @@ -5612,7 +5612,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_LOG_ESSENTIALSRowDeletingEvent) Is Nothing) Then @@ -5621,13 +5621,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBPMO_LOG_ESSENTIALSRow(ByVal row As TBPMO_LOG_ESSENTIALSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -5722,7 +5722,7 @@ Partial Public Class DD_ECMAdmin Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPMO_DOCRESULT_DROPDOWN_ITEMS" @@ -5732,7 +5732,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -5750,14 +5750,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -5765,7 +5765,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CONFIG_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONFIG_ID @@ -5773,7 +5773,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnVALUE @@ -5781,7 +5781,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE @@ -5789,7 +5789,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DEFAULTColumn() As Global.System.Data.DataColumn Get Return Me.columnDEFAULT @@ -5797,7 +5797,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn Get Return Me.columnCOLOR @@ -5805,7 +5805,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -5813,7 +5813,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -5821,7 +5821,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -5829,7 +5829,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -5837,7 +5837,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -5846,33 +5846,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow Get Return CType(Me.Rows(index),TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) End Get End Property - _ + _ Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanging As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler - _ + _ Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanged As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler - _ + _ Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleting As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler - _ + _ Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleted As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBPMO_DOCRESULT_DROPDOWN_ITEMSRow(ByVal row As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBPMO_DOCRESULT_DROPDOWN_ITEMSRow(ByVal parentTBPMO_DOCSEARCH_RESULTLIST_CONFIGRowByFK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow, ByVal VALUE As String, ByVal SEQUENCE As Byte, ByVal _DEFAULT As Boolean, ByVal COLOR As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow Dim rowTBPMO_DOCRESULT_DROPDOWN_ITEMSRow As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow = CType(Me.NewRow,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, VALUE, SEQUENCE, _DEFAULT, COLOR, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -5885,13 +5885,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable = CType(MyBase.Clone,TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable) cln.InitVars @@ -5899,13 +5899,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnCONFIG_ID = MyBase.Columns("CONFIG_ID") @@ -5920,7 +5920,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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) @@ -5965,25 +5965,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBPMO_DOCRESULT_DROPDOWN_ITEMSRow() As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow Return CType(Me.NewRow,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_DOCRESULT_DROPDOWN_ITEMSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangedEvent) Is Nothing) Then @@ -5992,7 +5992,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangingEvent) Is Nothing) Then @@ -6001,7 +6001,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeletedEvent) Is Nothing) Then @@ -6010,7 +6010,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeletingEvent) Is Nothing) Then @@ -6019,13 +6019,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBPMO_DOCRESULT_DROPDOWN_ITEMSRow(ByVal row As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -6102,7 +6102,7 @@ Partial Public Class DD_ECMAdmin Private columnVALUE As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "DT_VORSCHAU" @@ -6112,7 +6112,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -6130,14 +6130,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnVALUE @@ -6145,7 +6145,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -6154,33 +6154,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As DT_VORSCHAURow Get Return CType(Me.Rows(index),DT_VORSCHAURow) End Get End Property - _ + _ Public Event DT_VORSCHAURowChanging As DT_VORSCHAURowChangeEventHandler - _ + _ Public Event DT_VORSCHAURowChanged As DT_VORSCHAURowChangeEventHandler - _ + _ Public Event DT_VORSCHAURowDeleting As DT_VORSCHAURowChangeEventHandler - _ + _ Public Event DT_VORSCHAURowDeleted As DT_VORSCHAURowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddDT_VORSCHAURow(ByVal VALUE As String) As DT_VORSCHAURow Dim rowDT_VORSCHAURow As DT_VORSCHAURow = CType(Me.NewRow,DT_VORSCHAURow) Dim columnValuesArray() As Object = New Object() {VALUE} @@ -6190,7 +6190,7 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As DT_VORSCHAUDataTable = CType(MyBase.Clone,DT_VORSCHAUDataTable) cln.InitVars @@ -6198,44 +6198,44 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New DT_VORSCHAUDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnVALUE = MyBase.Columns("VALUE") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVALUE) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewDT_VORSCHAURow() As DT_VORSCHAURow Return CType(Me.NewRow,DT_VORSCHAURow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New DT_VORSCHAURow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(DT_VORSCHAURow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.DT_VORSCHAURowChangedEvent) Is Nothing) Then @@ -6244,7 +6244,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.DT_VORSCHAURowChangingEvent) Is Nothing) Then @@ -6253,7 +6253,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.DT_VORSCHAURowDeletedEvent) Is Nothing) Then @@ -6262,7 +6262,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.DT_VORSCHAURowDeletingEvent) Is Nothing) Then @@ -6271,13 +6271,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -6364,7 +6364,7 @@ Partial Public Class DD_ECMAdmin Private columnID As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBAD_Users" @@ -6374,7 +6374,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -6392,14 +6392,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn Get Return Me.columnSelect @@ -6407,7 +6407,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get Return Me.columnUsername @@ -6415,7 +6415,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get Return Me.columnPrename @@ -6423,7 +6423,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get Return Me.columnSurname @@ -6431,7 +6431,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail @@ -6439,7 +6439,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID @@ -6447,7 +6447,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -6456,33 +6456,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow Get Return CType(Me.Rows(index),TBAD_UsersRow) End Get End Property - _ + _ Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler - _ + _ Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler - _ + _ Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler - _ + _ Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBAD_UsersRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBAD_UsersRow Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow,TBAD_UsersRow) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} @@ -6492,7 +6492,7 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone,TBAD_UsersDataTable) cln.InitVars @@ -6500,13 +6500,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBAD_UsersDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") @@ -6517,7 +6517,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") @@ -6538,25 +6538,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBAD_UsersRow() As TBAD_UsersRow Return CType(Me.NewRow,TBAD_UsersRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBAD_UsersRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBAD_UsersRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBAD_UsersRowChangedEvent) Is Nothing) Then @@ -6565,7 +6565,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBAD_UsersRowChangingEvent) Is Nothing) Then @@ -6574,7 +6574,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBAD_UsersRowDeletedEvent) Is Nothing) Then @@ -6583,7 +6583,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBAD_UsersRowDeletingEvent) Is Nothing) Then @@ -6592,13 +6592,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -6685,7 +6685,7 @@ Partial Public Class DD_ECMAdmin Private columnID As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_Users1" @@ -6695,7 +6695,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -6713,14 +6713,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn Get Return Me.columnSelect @@ -6728,7 +6728,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get Return Me.columnUsername @@ -6736,7 +6736,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get Return Me.columnPrename @@ -6744,7 +6744,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get Return Me.columnSurname @@ -6752,7 +6752,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail @@ -6760,7 +6760,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID @@ -6768,7 +6768,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -6777,33 +6777,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_Users1Row Get Return CType(Me.Rows(index),TBWH_Users1Row) End Get End Property - _ + _ Public Event TBWH_Users1RowChanging As TBWH_Users1RowChangeEventHandler - _ + _ Public Event TBWH_Users1RowChanged As TBWH_Users1RowChangeEventHandler - _ + _ Public Event TBWH_Users1RowDeleting As TBWH_Users1RowChangeEventHandler - _ + _ Public Event TBWH_Users1RowDeleted As TBWH_Users1RowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_Users1Row(ByVal row As TBWH_Users1Row) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_Users1Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users1Row Dim rowTBWH_Users1Row As TBWH_Users1Row = CType(Me.NewRow,TBWH_Users1Row) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} @@ -6813,7 +6813,7 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_Users1DataTable = CType(MyBase.Clone,TBWH_Users1DataTable) cln.InitVars @@ -6821,13 +6821,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_Users1DataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") @@ -6838,7 +6838,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") @@ -6859,25 +6859,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_Users1Row() As TBWH_Users1Row Return CType(Me.NewRow,TBWH_Users1Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_Users1Row(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_Users1Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_Users1RowChangedEvent) Is Nothing) Then @@ -6886,7 +6886,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_Users1RowChangingEvent) Is Nothing) Then @@ -6895,7 +6895,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_Users1RowDeletedEvent) Is Nothing) Then @@ -6904,7 +6904,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_Users1RowDeletingEvent) Is Nothing) Then @@ -6913,13 +6913,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_Users1Row(ByVal row As TBWH_Users1Row) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -7006,7 +7006,7 @@ Partial Public Class DD_ECMAdmin Private columnID As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_Users2" @@ -7016,7 +7016,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -7034,14 +7034,14 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn Get Return Me.columnSelect @@ -7049,7 +7049,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get Return Me.columnUsername @@ -7057,7 +7057,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get Return Me.columnPrename @@ -7065,7 +7065,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get Return Me.columnSurname @@ -7073,7 +7073,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail @@ -7081,7 +7081,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID @@ -7089,7 +7089,7 @@ Partial Public Class DD_ECMAdmin End Property _ Public ReadOnly Property Count() As Integer Get @@ -7098,33 +7098,33 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_Users2Row Get Return CType(Me.Rows(index),TBWH_Users2Row) End Get End Property - _ + _ Public Event TBWH_Users2RowChanging As TBWH_Users2RowChangeEventHandler - _ + _ Public Event TBWH_Users2RowChanged As TBWH_Users2RowChangeEventHandler - _ + _ Public Event TBWH_Users2RowDeleting As TBWH_Users2RowChangeEventHandler - _ + _ Public Event TBWH_Users2RowDeleted As TBWH_Users2RowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_Users2Row(ByVal row As TBWH_Users2Row) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_Users2Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users2Row Dim rowTBWH_Users2Row As TBWH_Users2Row = CType(Me.NewRow,TBWH_Users2Row) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} @@ -7134,7 +7134,7 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_Users2DataTable = CType(MyBase.Clone,TBWH_Users2DataTable) cln.InitVars @@ -7142,13 +7142,13 @@ Partial Public Class DD_ECMAdmin End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_Users2DataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") @@ -7159,7 +7159,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") @@ -7180,25 +7180,25 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_Users2Row() As TBWH_Users2Row Return CType(Me.NewRow,TBWH_Users2Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_Users2Row(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_Users2Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_Users2RowChangedEvent) Is Nothing) Then @@ -7207,7 +7207,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_Users2RowChangingEvent) Is Nothing) Then @@ -7216,7 +7216,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_Users2RowDeletedEvent) Is Nothing) Then @@ -7225,7 +7225,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_Users2RowDeletingEvent) Is Nothing) Then @@ -7234,13 +7234,13 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_Users2Row(ByVal row As TBWH_Users2Row) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -7315,14 +7315,14 @@ Partial Public Class DD_ECMAdmin Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table,TBPMO_FORM_CONSTRUCTORDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn),Integer) @@ -7333,7 +7333,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FORM_TITLE() As String Get Try @@ -7348,7 +7348,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SEQUENCE_MENU() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn),Integer) @@ -7359,7 +7359,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -7374,7 +7374,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -7389,7 +7389,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -7404,7 +7404,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -7419,7 +7419,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MENU_IMG() As Byte() Get Try @@ -7434,7 +7434,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SHORT_TITLE() As String Get Try @@ -7449,7 +7449,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LANGUAGE() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn),String) @@ -7460,91 +7460,91 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsFORM_TITLENull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetFORM_TITLENull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMENU_IMGNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMENU_IMGNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSHORT_TITLENull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSHORT_TITLENull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") Is Nothing) Then Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} @@ -7563,14 +7563,14 @@ Partial Public Class DD_ECMAdmin Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(Me.Table,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn),Integer) @@ -7581,7 +7581,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CONSTRUCT_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn),Integer) @@ -7592,7 +7592,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FORM_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn),Integer) @@ -7603,7 +7603,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PARENT_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn),Integer) @@ -7614,7 +7614,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LEVEL1_SELECT() As Boolean Get Try @@ -7630,7 +7630,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SEQUENCE() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn),Integer) @@ -7641,7 +7641,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_SELECT_EBENE1() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column),String) @@ -7652,7 +7652,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_SELECT_EBENE2() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column),String) @@ -7663,7 +7663,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -7679,7 +7679,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -7695,7 +7695,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -7711,7 +7711,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -7727,7 +7727,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property COLUMN_NAME1() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column),String) @@ -7738,7 +7738,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property COLUMN_NAME2() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column),String) @@ -7749,7 +7749,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property WINDREAM_SEARCH() As String Get Try @@ -7765,7 +7765,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SEARCH_PATTERN1() As String Get Try @@ -7781,7 +7781,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SEARCH_PATTERN2() As String Get Try @@ -7797,7 +7797,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SEARCH_PATTERN3() As String Get Try @@ -7813,7 +7813,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SEARCH_PATTERN4() As String Get Try @@ -7829,7 +7829,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SEARCH_PATTERN5() As String Get Try @@ -7845,7 +7845,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LOAD_DIRECT() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn),Boolean) @@ -7856,7 +7856,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_QUICK_VIEW() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn),String) @@ -7867,7 +7867,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CONTROL_DOCTYPE_MATCH() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn),Integer) @@ -7878,7 +7878,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_RIGHT_READ_AND_VIEW_ONLY() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_READ_AND_VIEW_ONLYColumn),String) @@ -7889,7 +7889,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_RIGHT_WINDREAM_VIEW() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_WINDREAM_VIEWColumn),String) @@ -7900,7 +7900,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADD_RECORDS() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADD_RECORDSColumn),Boolean) @@ -7911,7 +7911,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")),TBPMO_FORM_CONSTRUCTORRow) @@ -7922,133 +7922,133 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsLEVEL1_SELECTNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetLEVEL1_SELECTNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsWINDREAM_SEARCHNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetWINDREAM_SEARCHNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSEARCH_PATTERN1Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSEARCH_PATTERN1Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSEARCH_PATTERN2Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSEARCH_PATTERN2Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSEARCH_PATTERN3Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSEARCH_PATTERN3Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSEARCH_PATTERN4Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSEARCH_PATTERN4Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSEARCH_PATTERN5Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSEARCH_PATTERN5Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = Global.System.Convert.DBNull End Sub @@ -8063,14 +8063,14 @@ Partial Public Class DD_ECMAdmin Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _ Public Property GUID() As Short Get Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) @@ -8081,7 +8081,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Try @@ -8096,7 +8096,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_PROVIDER() As String Get Try @@ -8111,7 +8111,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERVER() As String Get Try @@ -8126,7 +8126,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DATENBANK() As String Get Try @@ -8141,7 +8141,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property USERNAME() As String Get Try @@ -8156,7 +8156,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PASSWORD() As String Get Try @@ -8171,7 +8171,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEMERKUNG() As String Get Try @@ -8186,7 +8186,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) @@ -8197,7 +8197,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) @@ -8208,7 +8208,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Try @@ -8223,7 +8223,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEANDERTWER() As String Get Try @@ -8238,7 +8238,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -8253,121 +8253,121 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub @@ -8382,14 +8382,14 @@ Partial Public Class DD_ECMAdmin Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWTEMPQUICKVIEW = CType(Me.Table,VWTEMPQUICKVIEWDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _Record_ID() As Integer Get Return CType(Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn),Integer) @@ -8400,7 +8400,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Aktenzeichen() As String Get Try @@ -8415,7 +8415,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _Wiedergabe_der_Marke__Bild_() As Byte() Get Try @@ -8431,7 +8431,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Tag_der_Eintragung_im_Register() As String Get Try @@ -8447,7 +8447,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Aktenzustand() As String Get Try @@ -8462,49 +8462,49 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsAktenzeichenNull() As Boolean Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetAktenzeichenNull() Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function Is_Wiedergabe_der_Marke__Bild_Null() As Boolean Return Me.IsNull(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub Set_Wiedergabe_der_Marke__Bild_Null() Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsTag_der_Eintragung_im_RegisterNull() As Boolean Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetTag_der_Eintragung_im_RegisterNull() Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsAktenzustandNull() As Boolean Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetAktenzustandNull() Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = Global.System.Convert.DBNull End Sub @@ -8519,14 +8519,14 @@ Partial Public Class DD_ECMAdmin Private tableTBWH_ENTITIES As TBWH_ENTITIESDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_ENTITIES = CType(Me.Table,TBWH_ENTITIESDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_ENTITIES.GUIDColumn),Integer) @@ -8537,7 +8537,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FORM_TITLE() As String Get Return CType(Me(Me.tableTBWH_ENTITIES.FORM_TITLEColumn),String) @@ -8548,7 +8548,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CAPTION() As String Get Try @@ -8563,13 +8563,13 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCAPTIONNull() As Boolean Return Me.IsNull(Me.tableTBWH_ENTITIES.CAPTIONColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCAPTIONNull() Me(Me.tableTBWH_ENTITIES.CAPTIONColumn) = Global.System.Convert.DBNull End Sub @@ -8584,14 +8584,14 @@ Partial Public Class DD_ECMAdmin Private tableTBWH_USER_GROUPS As TBWH_USER_GROUPSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_USER_GROUPS = CType(Me.Table,TBWH_USER_GROUPSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_USER_GROUPS.GUIDColumn),Integer) @@ -8602,7 +8602,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get Try @@ -8617,13 +8617,13 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBWH_USER_GROUPS.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBWH_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub @@ -8638,14 +8638,14 @@ Partial Public Class DD_ECMAdmin Private tableTBPMO_SAP_FUBA As TBPMO_SAP_FUBADataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_SAP_FUBA = CType(Me.Table,TBPMO_SAP_FUBADataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.GUIDColumn),Integer) @@ -8656,7 +8656,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.NAMEColumn),String) @@ -8667,7 +8667,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -8682,7 +8682,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TableName() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.TableNameColumn),String) @@ -8693,7 +8693,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Host() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.HostColumn),String) @@ -8704,7 +8704,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SystemNumber() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.SystemNumberColumn),String) @@ -8715,7 +8715,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property UserName() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.UserNameColumn),String) @@ -8726,7 +8726,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Password() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.PasswordColumn),String) @@ -8737,7 +8737,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Client() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.ClientColumn),String) @@ -8748,7 +8748,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Language() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.LanguageColumn),String) @@ -8759,7 +8759,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TempTableName() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.TempTableNameColumn),String) @@ -8770,7 +8770,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.ACTIVEColumn),Boolean) @@ -8781,7 +8781,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHOColumn),String) @@ -8792,7 +8792,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -8807,7 +8807,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -8822,7 +8822,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -8837,7 +8837,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property WHERE_CLAUSE() As String Get Try @@ -8852,7 +8852,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Method() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.MethodColumn),String) @@ -8863,7 +8863,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FuBa_SplitCharacter() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.FuBa_SplitCharacterColumn),String) @@ -8874,61 +8874,61 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsWHERE_CLAUSENull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetWHERE_CLAUSENull() Me(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) = Global.System.Convert.DBNull End Sub @@ -8943,14 +8943,14 @@ Partial Public Class DD_ECMAdmin Private tableUSER_RIGHTS As USER_RIGHTSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableUSER_RIGHTS = CType(Me.Table,USER_RIGHTSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableUSER_RIGHTS.GUIDColumn),Integer) @@ -8961,7 +8961,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FORM_TITLE() As String Get Try @@ -8976,7 +8976,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property USERNAME() As String Get Return CType(Me(Me.tableUSER_RIGHTS.USERNAMEColumn),String) @@ -8987,7 +8987,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get Try @@ -9002,7 +9002,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PRENAME() As String Get Try @@ -9017,7 +9017,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property EDIT_REC() As Boolean Get Return CType(Me(Me.tableUSER_RIGHTS.EDIT_RECColumn),Boolean) @@ -9028,7 +9028,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADD_REC() As Boolean Get Return CType(Me(Me.tableUSER_RIGHTS.ADD_RECColumn),Boolean) @@ -9039,7 +9039,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DELETE_REC() As Boolean Get Return CType(Me(Me.tableUSER_RIGHTS.DELETE_RECColumn),Boolean) @@ -9050,7 +9050,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADD_DOC() As Boolean Get Return CType(Me(Me.tableUSER_RIGHTS.ADD_DOCColumn),Boolean) @@ -9061,7 +9061,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property READ_ONLY_DOC() As Boolean Get Return CType(Me(Me.tableUSER_RIGHTS.READ_ONLY_DOCColumn),Boolean) @@ -9072,7 +9072,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DELETE_DOC() As Boolean Get Return CType(Me(Me.tableUSER_RIGHTS.DELETE_DOCColumn),Boolean) @@ -9083,7 +9083,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FILES_VISIBLE() As Boolean Get Return CType(Me(Me.tableUSER_RIGHTS.FILES_VISIBLEColumn),Boolean) @@ -9094,7 +9094,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -9109,7 +9109,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -9124,61 +9124,61 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsFORM_TITLENull() As Boolean Return Me.IsNull(Me.tableUSER_RIGHTS.FORM_TITLEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetFORM_TITLENull() Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableUSER_RIGHTS.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableUSER_RIGHTS.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableUSER_RIGHTS.PRENAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPRENAMENull() Me(Me.tableUSER_RIGHTS.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableUSER_RIGHTS.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -9193,14 +9193,14 @@ Partial Public Class DD_ECMAdmin Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = CType(Me.Table,TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn),Integer) @@ -9211,7 +9211,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ENTITY_ID() As Integer Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn),Integer) @@ -9222,7 +9222,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LANGUAGE() As String Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn),String) @@ -9233,7 +9233,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property COLUMN_VIEW() As String Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn),String) @@ -9244,7 +9244,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property HEADER_CAPTION() As String Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn),String) @@ -9255,7 +9255,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property WIDTH() As Integer Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn),Integer) @@ -9266,7 +9266,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TYPE_ID() As Byte Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn),Byte) @@ -9277,7 +9277,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn),String) @@ -9288,7 +9288,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -9304,7 +9304,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -9320,7 +9320,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -9336,7 +9336,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VISIBLE() As Boolean Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn),Boolean) @@ -9347,7 +9347,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property EDITABLE() As Boolean Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.EDITABLEColumn),Boolean) @@ -9358,7 +9358,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CONFIG_COLUMNS() As Boolean Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CONFIG_COLUMNSColumn),Boolean) @@ -9369,7 +9369,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SEQUENCE() As Integer Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.SEQUENCEColumn),Integer) @@ -9380,43 +9380,43 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBPMO_DOCRESULT_DROPDOWN_ITEMSRows() As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow() If (Me.Table.ChildRelations("FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID") Is Nothing) Then Return New TBPMO_DOCRESULT_DROPDOWN_ITEMSRow(-1) {} @@ -9435,14 +9435,14 @@ Partial Public Class DD_ECMAdmin Private tableVWDD_LOGIN_USER_HISTORY As VWDD_LOGIN_USER_HISTORYDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWDD_LOGIN_USER_HISTORY = CType(Me.Table,VWDD_LOGIN_USER_HISTORYDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.GUIDColumn),Integer) @@ -9453,7 +9453,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _MODULE() As String Get Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.MODULEColumn),String) @@ -9464,7 +9464,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property USERNAME() As String Get Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.USERNAMEColumn),String) @@ -9475,7 +9475,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get Try @@ -9490,7 +9490,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PRENAME() As String Get Try @@ -9505,7 +9505,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property USER_ID() As Integer Get Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.USER_IDColumn),Integer) @@ -9516,7 +9516,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CLIENT_ID() As Integer Get Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.CLIENT_IDColumn),Integer) @@ -9527,7 +9527,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CLIENT_NAME() As String Get Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.CLIENT_NAMEColumn),String) @@ -9538,7 +9538,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LOGIN() As Date Get Try @@ -9553,7 +9553,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LOGOUT() As Date Get Try @@ -9568,7 +9568,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VERSION_CLIENT() As String Get Try @@ -9584,7 +9584,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MACHINE_NAME() As String Get Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.MACHINE_NAMEColumn),String) @@ -9595,61 +9595,61 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableVWDD_LOGIN_USER_HISTORY.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.PRENAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPRENAMENull() Me(Me.tableVWDD_LOGIN_USER_HISTORY.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsLOGINNull() As Boolean Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.LOGINColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetLOGINNull() Me(Me.tableVWDD_LOGIN_USER_HISTORY.LOGINColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsLOGOUTNull() As Boolean Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.LOGOUTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetLOGOUTNull() Me(Me.tableVWDD_LOGIN_USER_HISTORY.LOGOUTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsVERSION_CLIENTNull() As Boolean Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.VERSION_CLIENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetVERSION_CLIENTNull() Me(Me.tableVWDD_LOGIN_USER_HISTORY.VERSION_CLIENTColumn) = Global.System.Convert.DBNull End Sub @@ -9664,14 +9664,14 @@ Partial Public Class DD_ECMAdmin Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID = CType(Me.Table,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Name() As String Get Try @@ -9687,7 +9687,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ID() As Byte Get Try @@ -9703,25 +9703,25 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsNameNull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.NameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetNameNull() Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.NameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIDNull() Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.IDColumn) = Global.System.Convert.DBNull End Sub @@ -9736,14 +9736,14 @@ Partial Public Class DD_ECMAdmin Private tableTBPMO_LOG_ESSENTIALS As TBPMO_LOG_ESSENTIALSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_LOG_ESSENTIALS = CType(Me.Table,TBPMO_LOG_ESSENTIALSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.GUIDColumn),Integer) @@ -9754,7 +9754,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property REFERENCE_KEY() As Integer Get Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.REFERENCE_KEYColumn),Integer) @@ -9765,7 +9765,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property REFERENCE_STRING() As String Get Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.REFERENCE_STRINGColumn),String) @@ -9776,7 +9776,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property COMMENT() As String Get Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.COMMENTColumn),String) @@ -9787,7 +9787,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHOColumn),String) @@ -9798,7 +9798,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -9813,7 +9813,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Selection() As Boolean Get Try @@ -9828,25 +9828,25 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSelectionNull() As Boolean Return Me.IsNull(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSelectionNull() Me(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn) = Global.System.Convert.DBNull End Sub @@ -9861,14 +9861,14 @@ Partial Public Class DD_ECMAdmin Private tableTBPMO_DOCRESULT_DROPDOWN_ITEMS As TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS = CType(Me.Table,TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.GUIDColumn),Integer) @@ -9879,7 +9879,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CONFIG_ID() As Integer Get Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CONFIG_IDColumn),Integer) @@ -9890,7 +9890,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VALUE() As String Get Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.VALUEColumn),String) @@ -9901,7 +9901,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SEQUENCE() As Byte Get Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.SEQUENCEColumn),Byte) @@ -9912,7 +9912,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _DEFAULT() As Boolean Get Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.DEFAULTColumn),Boolean) @@ -9923,7 +9923,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property COLOR() As String Get Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.COLORColumn),String) @@ -9934,7 +9934,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHOColumn),String) @@ -9945,7 +9945,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -9961,7 +9961,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -9977,7 +9977,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -9993,7 +9993,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID")),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) @@ -10004,37 +10004,37 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -10049,14 +10049,14 @@ Partial Public Class DD_ECMAdmin Private tableDT_VORSCHAU As DT_VORSCHAUDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableDT_VORSCHAU = CType(Me.Table,DT_VORSCHAUDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VALUE() As String Get Try @@ -10071,13 +10071,13 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsVALUENull() As Boolean Return Me.IsNull(Me.tableDT_VORSCHAU.VALUEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetVALUENull() Me(Me.tableDT_VORSCHAU.VALUEColumn) = Global.System.Convert.DBNull End Sub @@ -10092,14 +10092,14 @@ Partial Public Class DD_ECMAdmin Private tableTBAD_Users As TBAD_UsersDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBAD_Users = CType(Me.Table,TBAD_UsersDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _Select() As Boolean Get Try @@ -10114,7 +10114,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Username() As String Get Try @@ -10129,7 +10129,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Prename() As String Get Try @@ -10144,7 +10144,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Surname() As String Get Try @@ -10159,7 +10159,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Email() As String Get Try @@ -10174,7 +10174,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ID() As Short Get Try @@ -10189,73 +10189,73 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.SelectColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub Set_SelectNull() Me(Me.tableTBAD_Users.SelectColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.UsernameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetUsernameNull() Me(Me.tableTBAD_Users.UsernameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.PrenameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPrenameNull() Me(Me.tableTBAD_Users.PrenameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.SurnameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSurnameNull() Me(Me.tableTBAD_Users.SurnameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.EmailColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetEmailNull() Me(Me.tableTBAD_Users.EmailColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIDNull() Me(Me.tableTBAD_Users.IDColumn) = Global.System.Convert.DBNull End Sub @@ -10270,14 +10270,14 @@ Partial Public Class DD_ECMAdmin Private tableTBWH_Users1 As TBWH_Users1DataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_Users1 = CType(Me.Table,TBWH_Users1DataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _Select() As Boolean Get Try @@ -10292,7 +10292,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Username() As String Get Try @@ -10307,7 +10307,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Prename() As String Get Try @@ -10322,7 +10322,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Surname() As String Get Try @@ -10337,7 +10337,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Email() As String Get Try @@ -10352,7 +10352,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ID() As Short Get Try @@ -10367,73 +10367,73 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.SelectColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub Set_SelectNull() Me(Me.tableTBWH_Users1.SelectColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.UsernameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetUsernameNull() Me(Me.tableTBWH_Users1.UsernameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.PrenameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPrenameNull() Me(Me.tableTBWH_Users1.PrenameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.SurnameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSurnameNull() Me(Me.tableTBWH_Users1.SurnameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.EmailColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetEmailNull() Me(Me.tableTBWH_Users1.EmailColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIDNull() Me(Me.tableTBWH_Users1.IDColumn) = Global.System.Convert.DBNull End Sub @@ -10448,14 +10448,14 @@ Partial Public Class DD_ECMAdmin Private tableTBWH_Users2 As TBWH_Users2DataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_Users2 = CType(Me.Table,TBWH_Users2DataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _Select() As Boolean Get Try @@ -10470,7 +10470,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Username() As String Get Try @@ -10485,7 +10485,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Prename() As String Get Try @@ -10500,7 +10500,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Surname() As String Get Try @@ -10515,7 +10515,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Email() As String Get Try @@ -10530,7 +10530,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ID() As Short Get Try @@ -10545,73 +10545,73 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.SelectColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub Set_SelectNull() Me(Me.tableTBWH_Users2.SelectColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.UsernameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetUsernameNull() Me(Me.tableTBWH_Users2.UsernameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.PrenameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPrenameNull() Me(Me.tableTBWH_Users2.PrenameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.SurnameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSurnameNull() Me(Me.tableTBWH_Users2.SurnameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.EmailColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetEmailNull() Me(Me.tableTBWH_Users2.EmailColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIDNull() Me(Me.tableTBWH_Users2.IDColumn) = Global.System.Convert.DBNull End Sub @@ -10620,7 +10620,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class TBPMO_FORM_CONSTRUCTORRowChangeEvent Inherits Global.System.EventArgs @@ -10629,7 +10629,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTORRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -10637,7 +10637,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTORRow Get Return Me.eventRow @@ -10645,7 +10645,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -10656,7 +10656,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent Inherits Global.System.EventArgs @@ -10665,7 +10665,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -10673,7 +10673,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTOR_DETAILRow Get Return Me.eventRow @@ -10681,7 +10681,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -10692,7 +10692,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class TBDD_CONNECTIONRowChangeEvent Inherits Global.System.EventArgs @@ -10701,7 +10701,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -10709,7 +10709,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBDD_CONNECTIONRow Get Return Me.eventRow @@ -10717,7 +10717,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -10728,7 +10728,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class VWTEMPQUICKVIEWRowChangeEvent Inherits Global.System.EventArgs @@ -10737,7 +10737,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWTEMPQUICKVIEWRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -10745,7 +10745,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWTEMPQUICKVIEWRow Get Return Me.eventRow @@ -10753,7 +10753,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -10764,7 +10764,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class TBWH_ENTITIESRowChangeEvent Inherits Global.System.EventArgs @@ -10773,7 +10773,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_ENTITIESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -10781,7 +10781,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_ENTITIESRow Get Return Me.eventRow @@ -10789,7 +10789,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -10800,7 +10800,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class TBWH_USER_GROUPSRowChangeEvent Inherits Global.System.EventArgs @@ -10809,7 +10809,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_USER_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -10817,7 +10817,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_USER_GROUPSRow Get Return Me.eventRow @@ -10825,7 +10825,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -10836,7 +10836,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class TBPMO_SAP_FUBARowChangeEvent Inherits Global.System.EventArgs @@ -10845,7 +10845,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBPMO_SAP_FUBARow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -10853,7 +10853,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBPMO_SAP_FUBARow Get Return Me.eventRow @@ -10861,7 +10861,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -10872,7 +10872,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class USER_RIGHTSRowChangeEvent Inherits Global.System.EventArgs @@ -10881,7 +10881,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As USER_RIGHTSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -10889,7 +10889,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As USER_RIGHTSRow Get Return Me.eventRow @@ -10897,7 +10897,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -10908,7 +10908,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent Inherits Global.System.EventArgs @@ -10917,7 +10917,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -10925,7 +10925,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Get Return Me.eventRow @@ -10933,7 +10933,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -10944,7 +10944,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class VWDD_LOGIN_USER_HISTORYRowChangeEvent Inherits Global.System.EventArgs @@ -10953,7 +10953,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWDD_LOGIN_USER_HISTORYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -10961,7 +10961,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWDD_LOGIN_USER_HISTORYRow Get Return Me.eventRow @@ -10969,7 +10969,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -10980,7 +10980,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent Inherits Global.System.EventArgs @@ -10989,7 +10989,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -10997,7 +10997,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow Get Return Me.eventRow @@ -11005,7 +11005,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -11016,7 +11016,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class TBPMO_LOG_ESSENTIALSRowChangeEvent Inherits Global.System.EventArgs @@ -11025,7 +11025,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBPMO_LOG_ESSENTIALSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -11033,7 +11033,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBPMO_LOG_ESSENTIALSRow Get Return Me.eventRow @@ -11041,7 +11041,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -11052,7 +11052,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent Inherits Global.System.EventArgs @@ -11061,7 +11061,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -11069,7 +11069,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow Get Return Me.eventRow @@ -11077,7 +11077,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -11088,7 +11088,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class DT_VORSCHAURowChangeEvent Inherits Global.System.EventArgs @@ -11097,7 +11097,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As DT_VORSCHAURow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -11105,7 +11105,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As DT_VORSCHAURow Get Return Me.eventRow @@ -11113,7 +11113,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -11124,7 +11124,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class TBAD_UsersRowChangeEvent Inherits Global.System.EventArgs @@ -11133,7 +11133,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBAD_UsersRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -11141,7 +11141,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBAD_UsersRow Get Return Me.eventRow @@ -11149,7 +11149,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -11160,7 +11160,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class TBWH_Users1RowChangeEvent Inherits Global.System.EventArgs @@ -11169,7 +11169,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_Users1Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -11177,7 +11177,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_Users1Row Get Return Me.eventRow @@ -11185,7 +11185,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -11196,7 +11196,7 @@ Partial Public Class DD_ECMAdmin ''' '''Row event argument class ''' - _ + _ Public Class TBWH_Users2RowChangeEvent Inherits Global.System.EventArgs @@ -11205,7 +11205,7 @@ Partial Public Class DD_ECMAdmin Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_Users2Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -11213,7 +11213,7 @@ Partial Public Class DD_ECMAdmin End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_Users2Row Get Return Me.eventRow @@ -11221,7 +11221,7 @@ Partial Public Class DD_ECMAdmin End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -11255,14 +11255,14 @@ Namespace DD_ECMAdminTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -11273,7 +11273,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -11303,7 +11303,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -11331,7 +11331,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -11342,7 +11342,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -11353,7 +11353,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -11409,14 +11409,14 @@ Namespace DD_ECMAdminTableAdapters End Sub _ + 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_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -11431,7 +11431,7 @@ Namespace DD_ECMAdminTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As Integer @@ -11450,7 +11450,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable @@ -11467,35 +11467,35 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -11516,7 +11516,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As Integer @@ -11562,7 +11562,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -11633,14 +11633,14 @@ Namespace DD_ECMAdminTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -11651,7 +11651,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -11681,7 +11681,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -11709,7 +11709,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -11720,7 +11720,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -11731,7 +11731,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -11851,14 +11851,14 @@ Namespace DD_ECMAdminTableAdapters End Sub _ + 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_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -11875,7 +11875,7 @@ Namespace DD_ECMAdminTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer @@ -11889,7 +11889,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable @@ -11901,35 +11901,35 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer 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 @@ -11950,7 +11950,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Insert( _ @@ -12060,7 +12060,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -12205,14 +12205,14 @@ Namespace DD_ECMAdminTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -12223,7 +12223,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -12253,7 +12253,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -12281,7 +12281,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -12292,7 +12292,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -12303,7 +12303,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -12370,14 +12370,14 @@ Namespace DD_ECMAdminTableAdapters End Sub _ + 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_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -12387,7 +12387,7 @@ Namespace DD_ECMAdminTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer @@ -12400,7 +12400,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBDD_CONNECTIONDataTable @@ -12411,35 +12411,35 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer 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 @@ -12460,7 +12460,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer @@ -12521,7 +12521,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer @@ -12607,14 +12607,14 @@ Namespace DD_ECMAdminTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -12625,7 +12625,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -12655,7 +12655,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -12683,7 +12683,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -12694,7 +12694,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -12705,7 +12705,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -12720,14 +12720,14 @@ Namespace DD_ECMAdminTableAdapters End Sub _ + 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_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -12738,7 +12738,7 @@ Namespace DD_ECMAdminTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable) As Integer @@ -12751,7 +12751,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable @@ -12785,14 +12785,14 @@ Namespace DD_ECMAdminTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -12803,7 +12803,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -12833,7 +12833,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -12861,7 +12861,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -12872,7 +12872,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -12883,7 +12883,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -12896,14 +12896,14 @@ Namespace DD_ECMAdminTableAdapters End Sub _ + 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_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -12925,7 +12925,7 @@ Namespace DD_ECMAdminTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_ENTITIESDataTable, ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As Integer @@ -12945,7 +12945,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As DD_ECMAdmin.TBWH_ENTITIESDataTable @@ -12986,14 +12986,14 @@ Namespace DD_ECMAdminTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -13004,7 +13004,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -13034,7 +13034,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -13062,7 +13062,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -13073,7 +13073,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -13084,7 +13084,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -13096,14 +13096,14 @@ Namespace DD_ECMAdminTableAdapters End Sub _ + 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_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -13113,7 +13113,7 @@ Namespace DD_ECMAdminTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable) As Integer @@ -13126,7 +13126,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBWH_USER_GROUPSDataTable @@ -13160,14 +13160,14 @@ Namespace DD_ECMAdminTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -13178,7 +13178,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -13208,7 +13208,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -13236,7 +13236,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -13247,7 +13247,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -13258,7 +13258,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -13347,14 +13347,14 @@ Namespace DD_ECMAdminTableAdapters End Sub _ + 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_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -13367,7 +13367,7 @@ Namespace DD_ECMAdminTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer @@ -13380,7 +13380,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_SAP_FUBADataTable @@ -13391,35 +13391,35 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_SAP_FUBA") 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 @@ -13440,7 +13440,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal TableName As String, ByVal Host As String, ByVal SystemNumber As String, ByVal UserName As String, ByVal Password As String, ByVal Client As String, ByVal Language As String, ByVal TempTableName As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal WHERE_CLAUSE As String, ByVal Method As String, ByVal FuBa_SplitCharacter As String) As Integer @@ -13531,7 +13531,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -13664,14 +13664,14 @@ Namespace DD_ECMAdminTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -13682,7 +13682,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -13712,7 +13712,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -13740,7 +13740,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -13751,7 +13751,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -13762,7 +13762,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -13786,14 +13786,14 @@ Namespace DD_ECMAdminTableAdapters End Sub _ + 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_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -13812,7 +13812,7 @@ Namespace DD_ECMAdminTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.USER_RIGHTSDataTable, ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As Integer @@ -13831,7 +13831,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As DD_ECMAdmin.USER_RIGHTSDataTable @@ -13871,14 +13871,14 @@ Namespace DD_ECMAdminTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -13889,7 +13889,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -13919,7 +13919,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -13947,7 +13947,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -13958,7 +13958,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -13969,7 +13969,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -14106,14 +14106,14 @@ Namespace DD_ECMAdminTableAdapters End Sub _ + 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_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -14124,7 +14124,7 @@ Namespace DD_ECMAdminTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer @@ -14137,7 +14137,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable @@ -14148,35 +14148,35 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_DOCSEARCH_RESULTLIST_CONFIG") 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_ENTITY_ID As Integer, ByVal Original_LANGUAGE As String, ByVal Original_COLUMN_VIEW As String, ByVal Original_HEADER_CAPTION As String, ByVal Original_WIDTH As Integer, ByVal Original_TYPE_ID As Byte, 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_VISIBLE As Boolean, ByVal Original_EDITABLE As Boolean, ByVal Original_CONFIG_COLUMNS As Boolean, ByVal Original_SEQUENCE As Integer) As Integer @@ -14245,7 +14245,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal VISIBLE As Boolean, ByVal EDITABLE As Boolean, ByVal CONFIG_COLUMNS As Boolean, ByVal SEQUENCE As Integer) As Integer @@ -14307,7 +14307,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -14449,7 +14449,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -14509,14 +14509,14 @@ Namespace DD_ECMAdminTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -14527,7 +14527,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -14557,7 +14557,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -14585,7 +14585,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -14596,7 +14596,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -14607,7 +14607,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -14629,14 +14629,14 @@ Namespace DD_ECMAdminTableAdapters End Sub _ + 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_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -14648,7 +14648,7 @@ Namespace DD_ECMAdminTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable) As Integer @@ -14661,7 +14661,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable @@ -14695,14 +14695,14 @@ Namespace DD_ECMAdminTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -14713,7 +14713,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -14743,7 +14743,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -14771,7 +14771,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -14782,7 +14782,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -14793,7 +14793,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -14805,14 +14805,14 @@ Namespace DD_ECMAdminTableAdapters End Sub _ + 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_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -14825,7 +14825,7 @@ Namespace DD_ECMAdminTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) As Integer @@ -14838,7 +14838,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable @@ -14872,14 +14872,14 @@ Namespace DD_ECMAdminTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -14890,7 +14890,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -14920,7 +14920,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -14948,7 +14948,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -14959,7 +14959,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -14970,7 +14970,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -15020,14 +15020,14 @@ Namespace DD_ECMAdminTableAdapters End Sub _ + 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_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -15039,7 +15039,7 @@ Namespace DD_ECMAdminTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable) As Integer @@ -15052,7 +15052,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable @@ -15063,35 +15063,35 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_LOG_ESSENTIALS") 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 @@ -15112,7 +15112,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal REFERENCE_KEY As Integer, ByVal REFERENCE_STRING As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -15153,7 +15153,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal REFERENCE_KEY As Integer, ByVal REFERENCE_STRING As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -15196,7 +15196,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal REFERENCE_KEY As Integer, ByVal REFERENCE_STRING As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer) As Integer @@ -15227,14 +15227,14 @@ Namespace DD_ECMAdminTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -15245,7 +15245,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -15275,7 +15275,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -15303,7 +15303,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -15314,7 +15314,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -15325,7 +15325,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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() @@ -15426,14 +15426,14 @@ Namespace DD_ECMAdminTableAdapters End Sub _ + 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_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -15446,7 +15446,7 @@ Namespace DD_ECMAdminTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable, ByVal CONFIG_ID As Integer) As Integer @@ -15460,7 +15460,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal CONFIG_ID As Integer) As DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable @@ -15472,35 +15472,35 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_DOCRESULT_DROPDOWN_ITEMS") 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_CONFIG_ID As Integer, ByVal Original_VALUE As String, ByVal Original_SEQUENCE As Byte, ByVal Original_DEFAULT As Boolean, ByVal Original_COLOR As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -15560,7 +15560,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal CONFIG_ID As Integer, ByVal VALUE As String, ByVal SEQUENCE As Byte, ByVal _DEFAULT As Boolean, ByVal COLOR As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -15613,7 +15613,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -15727,7 +15727,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -15786,7 +15786,7 @@ Namespace DD_ECMAdminTableAdapters Private _connection As Global.System.Data.IDbConnection _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder @@ -15797,7 +15797,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ @@ -15811,7 +15811,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ @@ -15825,7 +15825,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ @@ -15839,7 +15839,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ @@ -15853,7 +15853,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ @@ -15867,7 +15867,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ @@ -15881,7 +15881,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ @@ -15895,7 +15895,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -15906,7 +15906,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get @@ -15949,7 +15949,7 @@ Namespace DD_ECMAdminTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get @@ -15983,7 +15983,7 @@ Namespace DD_ECMAdminTableAdapters '''Update rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As DD_ECMAdmin, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then @@ -16056,7 +16056,7 @@ Namespace DD_ECMAdminTableAdapters '''Insert rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As DD_ECMAdmin, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then @@ -16122,7 +16122,7 @@ Namespace DD_ECMAdminTableAdapters '''Delete rows in bottom-up order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DD_ECMAdmin, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then @@ -16188,7 +16188,7 @@ Namespace DD_ECMAdminTableAdapters '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 @@ -16214,7 +16214,7 @@ Namespace DD_ECMAdminTableAdapters '''Update all changes to the dataset. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As DD_ECMAdmin) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -16457,13 +16457,13 @@ Namespace DD_ECMAdminTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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 @@ -16481,7 +16481,7 @@ Namespace DD_ECMAdminTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -16492,7 +16492,7 @@ Namespace DD_ECMAdminTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -16502,7 +16502,7 @@ Namespace DD_ECMAdminTableAdapters Private _childFirst As Integer _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation @@ -16514,7 +16514,7 @@ Namespace DD_ECMAdminTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 @@ -16553,7 +16553,7 @@ Namespace DD_ECMAdminTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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-Record-Organizer/DD_ECMAdmin.xsd b/app/DD-Record-Organizer/DD_ECMAdmin.xsd index 8751738..b49778a 100644 --- a/app/DD-Record-Organizer/DD_ECMAdmin.xsd +++ b/app/DD-Record-Organizer/DD_ECMAdmin.xsd @@ -830,7 +830,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -876,7 +876,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -998,7 +998,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -1071,14 +1071,14 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + - + @@ -1107,7 +1107,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -1119,7 +1119,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -1140,7 +1140,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -1154,7 +1154,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -1166,7 +1166,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -1178,7 +1178,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -1293,7 +1293,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -1337,7 +1337,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -1388,7 +1388,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -1448,7 +1448,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -1462,7 +1462,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -1493,7 +1493,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - + @@ -1582,8 +1582,8 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN - - + + \ No newline at end of file diff --git a/app/DD-Record-Organizer/ModuleHelperMethods.vb b/app/DD-Record-Organizer/ModuleHelperMethods.vb index 5f9c855..9a4cf05 100644 --- a/app/DD-Record-Organizer/ModuleHelperMethods.vb +++ b/app/DD-Record-Organizer/ModuleHelperMethods.vb @@ -301,8 +301,8 @@ Module ModuleHelperMethods frm.Show() End Sub Public Sub OpenDokumentartt() - Dim frm As New frmWD_Dokumentart_Konfig - frm = frmWD_Dokumentart_Konfig.Instance() + Dim frm As New frmWM_Dokumentart_Konfig + frm = frmWM_Dokumentart_Konfig.Instance() frm.MdiParent = MAIN_FORM Dim activeChild As Form = MAIN_FORM.ActiveMdiChild @@ -349,8 +349,8 @@ Module ModuleHelperMethods frm.Show() End Sub Public Sub OpenObjecttypeConfig() - Dim frm As New frmWD_ObjecttypeConfig - frm = frmWD_ObjecttypeConfig.Instance() + Dim frm As New frmWM_ObjecttypeConfig + frm = frmWM_ObjecttypeConfig.Instance() frm.MdiParent = MAIN_FORM Dim activeChild As Form = MAIN_FORM.ActiveMdiChild @@ -382,7 +382,7 @@ Module ModuleHelperMethods End Sub Public Sub OpenWindream_Files() - Dim frm As New frmWD_Import_Doc_Record + Dim frm As New frmWM_Import_Doc_Record frm.MdiParent = MAIN_FORM Dim activeChild As Form = MAIN_FORM.ActiveMdiChild diff --git a/app/DD-Record-Organizer/frmConfig_Basic.Designer.vb b/app/DD-Record-Organizer/frmConfig_Basic.Designer.vb index e89eff2..5db4635 100644 --- a/app/DD-Record-Organizer/frmConfig_Basic.Designer.vb +++ b/app/DD-Record-Organizer/frmConfig_Basic.Designer.vb @@ -23,7 +23,7 @@ Partial Class frmConfig_Basic Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic)) - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.lblLinkedServer = New System.Windows.Forms.Label() @@ -76,6 +76,13 @@ Partial Class frmConfig_Basic Me.btncheckWDFolderexists = New System.Windows.Forms.Button() Me.txtwdFolder = New System.Windows.Forms.TextBox() Me.Label12 = New System.Windows.Forms.Label() + Me.Button6 = New System.Windows.Forms.Button() + Me.txtObjectExists = New System.Windows.Forms.TextBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.rbUser = New System.Windows.Forms.RadioButton() + Me.rbGruppe = New System.Windows.Forms.RadioButton() + Me.RadioButton3 = New System.Windows.Forms.RadioButton() + Me.Button7 = New System.Windows.Forms.Button() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() Me.TabPage2.SuspendLayout() @@ -86,6 +93,7 @@ Partial Class frmConfig_Basic Me.TabPage3.SuspendLayout() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage4.SuspendLayout() + Me.GroupBox2.SuspendLayout() Me.SuspendLayout() ' 'TabControl1 @@ -391,8 +399,8 @@ Partial Class frmConfig_Basic ' 'DataGridView1 ' - DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua - Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 resources.ApplyResources(Me.DataGridView1, "DataGridView1") Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.Name = "DataGridView1" @@ -429,6 +437,7 @@ Partial Class frmConfig_Basic ' 'TabPage4 ' + Me.TabPage4.Controls.Add(Me.GroupBox2) Me.TabPage4.Controls.Add(Me.btncheckWDFolderexists) Me.TabPage4.Controls.Add(Me.txtwdFolder) Me.TabPage4.Controls.Add(Me.Label12) @@ -452,6 +461,56 @@ Partial Class frmConfig_Basic resources.ApplyResources(Me.Label12, "Label12") Me.Label12.Name = "Label12" ' + 'Button6 + ' + resources.ApplyResources(Me.Button6, "Button6") + Me.Button6.Name = "Button6" + Me.Button6.UseVisualStyleBackColor = True + ' + 'txtObjectExists + ' + resources.ApplyResources(Me.txtObjectExists, "txtObjectExists") + Me.txtObjectExists.Name = "txtObjectExists" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Button7) + Me.GroupBox2.Controls.Add(Me.RadioButton3) + Me.GroupBox2.Controls.Add(Me.rbGruppe) + Me.GroupBox2.Controls.Add(Me.rbUser) + Me.GroupBox2.Controls.Add(Me.txtObjectExists) + Me.GroupBox2.Controls.Add(Me.Button6) + resources.ApplyResources(Me.GroupBox2, "GroupBox2") + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.TabStop = False + ' + 'rbUser + ' + resources.ApplyResources(Me.rbUser, "rbUser") + Me.rbUser.Name = "rbUser" + Me.rbUser.TabStop = True + Me.rbUser.UseVisualStyleBackColor = True + ' + 'rbGruppe + ' + resources.ApplyResources(Me.rbGruppe, "rbGruppe") + Me.rbGruppe.Name = "rbGruppe" + Me.rbGruppe.TabStop = True + Me.rbGruppe.UseVisualStyleBackColor = True + ' + 'RadioButton3 + ' + resources.ApplyResources(Me.RadioButton3, "RadioButton3") + Me.RadioButton3.Name = "RadioButton3" + Me.RadioButton3.TabStop = True + Me.RadioButton3.UseVisualStyleBackColor = True + ' + 'Button7 + ' + resources.ApplyResources(Me.Button7, "Button7") + Me.Button7.Name = "Button7" + Me.Button7.UseVisualStyleBackColor = True + ' 'frmConfig_Basic ' resources.ApplyResources(Me, "$this") @@ -476,6 +535,8 @@ Partial Class frmConfig_Basic CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage4.ResumeLayout(False) Me.TabPage4.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() Me.ResumeLayout(False) End Sub @@ -531,4 +592,11 @@ Partial Class frmConfig_Basic Friend WithEvents GroupBox1 As GroupBox Friend WithEvents Button5 As Button Friend WithEvents cmbDesign As ComboBox + Friend WithEvents GroupBox2 As GroupBox + Friend WithEvents RadioButton3 As RadioButton + Friend WithEvents rbGruppe As RadioButton + Friend WithEvents rbUser As RadioButton + Friend WithEvents txtObjectExists As TextBox + Friend WithEvents Button6 As Button + Friend WithEvents Button7 As Button End Class diff --git a/app/DD-Record-Organizer/frmConfig_Basic.resx b/app/DD-Record-Organizer/frmConfig_Basic.resx index 7f64141..c90d543 100644 --- a/app/DD-Record-Organizer/frmConfig_Basic.resx +++ b/app/DD-Record-Organizer/frmConfig_Basic.resx @@ -117,891 +117,15 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - lblLinkedServer - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 0 - - - txtLinkedServer - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 1 - - - btndeleteProxy - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 2 - - - rbConn_Proxy - - - System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 3 - - - rbConnDefault - - - System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 4 - - - chkbxUserAut - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 5 - - - Label5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 6 - - - cmbDatenbank - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 7 - - - Label4 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 8 - - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 9 - - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 10 - - - Label3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 11 - - - txtActualConnection - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 12 - - - txtServer - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 13 - - - txtUser - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 14 - - - txtPasswort - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 15 - - - BtnConnect - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 16 - - - - 4, 22 - - - - 3, 3, 3, 3 - - - 687, 259 - - - 0 - - - Datenbank-Verbindung - - - TabPage1 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 0 - - - MiddleLeft - - - NoControl - - - 363, 13 - - - 133, 23 - - - 14 - - - Create Log-Email - - - MiddleRight - - - Button4 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 0 - - - Label11 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox5 - - - 0 - - - Label10 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox5 - - - 1 - - - txtTask_Popup - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox5 - - - 2 - - - 14, 127 - - - 304, 53 - - - 13 - - - Tasks-Einstellungen - - - GroupBox5 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 1 - - - Button5 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 0 - - - cmbDesign - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 1 - - - 363, 71 - - - 300, 50 - - - 12 - - - Aktuelles Design: - - - GroupBox1 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 2 - - - NoControl - - - 149, 19 - - - 134, 23 - - - 47 - - - Sprache jetzt wechseln - - - Button3 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox4 - - - 0 - - - de-DE - - - en-US - - - 9, 21 - - - 134, 21 - - - 46 - - - cmbLanguage - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox4 - - - 1 - - - 14, 71 - - - 304, 50 - - - 12 - - - Aktuelle Sprache: - - - GroupBox4 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 3 - - - Label7 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 0 - - - cmbConstructor - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 1 - - - CheckBox1 - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 2 - - - 14, 186 - - - 665, 61 - - - 11 - - - Formularaufrufe: - - - GroupBox3 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 4 - - - True - - - NoControl - - - 14, 17 - - - 105, 17 - - - 7 - - - Log Errors Only - - - chkLogErrorsOnly - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 5 - - - MiddleLeft - - - NoControl - - - 363, 42 - - - 133, 23 - - - 6 - - - Open Log-Folder - - - MiddleRight - - - Button1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 6 - - - MiddleLeft - - - NoControl - - - 502, 42 - - - 161, 23 - - - 2 - - - Open AppFolder User - - - MiddleRight - - - btnApplicationFolder - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 7 - - - True - - - Segoe UI, 9.75pt - - - NoControl - - - 138, 15 - - - 200, 17 - - - 1 - - - Link zu Support-Tool Digital Data - - - LinkLabel1 - - - System.Windows.Forms.LinkLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 8 - - - 4, 22 - - - 3, 3, 3, 3 - - - 687, 259 - - - 1 - - - Weitere Einstellungen - - - TabPage2 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 1 - - - chkSubfolder - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 0 - - - Label9 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 1 - - - DataGridView1 - - - System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 2 - - - btnSaveExclusionFiles - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 3 - - - Button2 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 4 - - - txtScanFolderWatch - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 5 - - - Label8 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 6 - - - btnstartstop2 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 7 - - - 4, 22 - - - 3, 3, 3, 3 - - - 687, 259 - - - 2 - - - Hot Folder - Scan - - - TabPage3 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 2 - - - btncheckWDFolderexists - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 0 - - - txtwdFolder - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 1 - - - Label12 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 2 - - - 4, 22 - - - 3, 3, 3, 3 - - - 687, 259 - - - 3 - - - Weiteres - - - TabPage4 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 3 - - - Fill - - - 0, 0 - - - 695, 285 - - - 0 - - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 0 - True + NoControl + 6, 168 @@ -1477,6 +601,66 @@ 16 + + 4, 22 + + + 3, 3, 3, 3 + + + 687, 259 + + + 0 + + + Datenbank-Verbindung + + + TabPage1 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 0 + + + MiddleLeft + + + NoControl + + + 363, 13 + + + 133, 23 + + + 14 + + + Create Log-Email + + + MiddleRight + + + Button4 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 0 + True @@ -1558,6 +742,30 @@ 2 + + 14, 127 + + + 304, 53 + + + 13 + + + Tasks-Einstellungen + + + GroupBox5 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 1 + NoControl @@ -1627,6 +835,108 @@ 1 + + 363, 71 + + + 300, 50 + + + 12 + + + Aktuelles Design: + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 2 + + + NoControl + + + 149, 19 + + + 134, 23 + + + 47 + + + Sprache jetzt wechseln + + + Button3 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox4 + + + 0 + + + de-DE + + + en-US + + + 9, 21 + + + 134, 21 + + + 46 + + + cmbLanguage + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox4 + + + 1 + + + 14, 71 + + + 304, 50 + + + 12 + + + Aktuelle Sprache: + + + GroupBox4 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 3 + True @@ -1709,6 +1019,186 @@ 2 + + 14, 186 + + + 665, 61 + + + 11 + + + Formularaufrufe: + + + GroupBox3 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 4 + + + True + + + NoControl + + + 14, 17 + + + 105, 17 + + + 7 + + + Log Errors Only + + + chkLogErrorsOnly + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 5 + + + MiddleLeft + + + NoControl + + + 363, 42 + + + 133, 23 + + + 6 + + + Open Log-Folder + + + MiddleRight + + + Button1 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 6 + + + MiddleLeft + + + NoControl + + + 502, 42 + + + 161, 23 + + + 2 + + + Open AppFolder User + + + MiddleRight + + + btnApplicationFolder + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 7 + + + True + + + Segoe UI, 9.75pt + + + NoControl + + + 138, 15 + + + 200, 17 + + + 1 + + + Link zu Support-Tool Digital Data + + + LinkLabel1 + + + System.Windows.Forms.LinkLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 8 + + + 4, 22 + + + 3, 3, 3, 3 + + + 687, 259 + + + 1 + + + Weitere Einstellungen + + + TabPage2 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 1 + True @@ -1937,6 +1427,219 @@ 7 + + 4, 22 + + + 3, 3, 3, 3 + + + 687, 259 + + + 2 + + + Hot Folder - Scan + + + TabPage3 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 2 + + + NoControl + + + 320, 71 + + + 75, 23 + + + 9 + + + GetObject + + + Button7 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 0 + + + True + + + NoControl + + + 217, 24 + + + 97, 17 + + + 8 + + + RadioButton3 + + + RadioButton3 + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 1 + + + True + + + NoControl + + + 109, 21 + + + 64, 17 + + + 7 + + + Gruppe + + + rbGruppe + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 2 + + + True + + + 6, 21 + + + 48, 17 + + + 6 + + + User + + + rbUser + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 3 + + + 6, 47 + + + 308, 22 + + + 4 + + + txtObjectExists + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 4 + + + NoControl + + + 320, 45 + + + 75, 23 + + + 5 + + + Check + + + Button6 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 5 + + + 22, 47 + + + 438, 100 + + + 6 + + + Check WMObject exists: + + + GroupBox2 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage4 + + + 0 + 466, 19 @@ -1959,7 +1662,7 @@ TabPage4 - 0 + 1 22, 19 @@ -1980,7 +1683,7 @@ TabPage4 - 1 + 2 True @@ -2007,7 +1710,58 @@ TabPage4 - 2 + 3 + + + 4, 22 + + + 3, 3, 3, 3 + + + 687, 259 + + + 3 + + + Weiteres + + + TabPage4 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 3 + + + Fill + + + 0, 0 + + + 695, 285 + + + 0 + + + TabControl1 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 0 True diff --git a/app/DD-Record-Organizer/frmConfig_Basic.vb b/app/DD-Record-Organizer/frmConfig_Basic.vb index a9935b3..75341f7 100644 --- a/app/DD-Record-Organizer/frmConfig_Basic.vb +++ b/app/DD-Record-Organizer/frmConfig_Basic.vb @@ -530,4 +530,28 @@ Public Class frmConfig_Basic Private Sub cmbLanguage_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbLanguage.SelectedIndexChanged End Sub + + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click + Dim exists + If rbUser.Checked Then + exists = clsWD_GET.WM_USER_EXISTS(txtObjectExists.Text) + ElseIf rbGruppe.Checked Then + exists = clsWD_GET.WM_GROUP_EXISTS(txtObjectExists.Text) + End If + If exists = True Then + MsgBox("Object exists in windream!") + Else + MsgBox("Object is not existing in windream!", MsgBoxStyle.Critical) + End If + End Sub + + Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click + Dim group + If rbGruppe.Checked Then + group = clsWD_GET.GET_WM_GROUP_OBJECT(txtObjectExists.Text) + If Not IsNothing(group) Then + MsgBox("GROUP.NAME: " & group.aname) + End If + End If + End Sub End Class \ No newline at end of file diff --git a/app/DD-Record-Organizer/frmConstructorDesigner.resx b/app/DD-Record-Organizer/frmConstructorDesigner.resx index 71e4daa..6c2df1d 100644 --- a/app/DD-Record-Organizer/frmConstructorDesigner.resx +++ b/app/DD-Record-Organizer/frmConstructorDesigner.resx @@ -1099,7 +1099,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS - CQAAAk1TRnQBSQFMAgEBAgEAARwBDQEcAQ0BEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CQAAAk1TRnQBSQFMAgEBAgEAASwBDQEsAQ0BEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -1148,7 +1148,7 @@ 1 - 292, 352 + 292, 349 1 @@ -1715,7 +1715,7 @@ 20 - 1094, 280 + 1086, 274 Allgemein und Rechte pro Datensatz @@ -1733,7 +1733,7 @@ 1 - 1096, 305 + 1092, 302 35 @@ -2184,7 +2184,7 @@ 13 - 1090, 277 + 1086, 274 Quick-View Konfiguration @@ -2355,7 +2355,7 @@ 190 - 393, 179 + 393, 173 99 @@ -2553,7 +2553,7 @@ 167 - 377, 179 + 377, 173 98 @@ -2669,7 +2669,7 @@ 8 - 946, 215 + 938, 209 Supervisor @@ -2687,7 +2687,7 @@ 0 - 948, 240 + 944, 237 83 @@ -2870,7 +2870,7 @@ 409, 47 - 253, 20 + 253, 4 95 @@ -2921,7 +2921,7 @@ 6 - 942, 212 + 938, 209 Supervisor-Controls: @@ -3014,7 +3014,7 @@ 4 - 1090, 277 + 1086, 274 Datei-Suche/Rechte (Supervisor) @@ -3575,7 +3575,7 @@ 0, 0 - 1090, 277 + 1086, 274 0 @@ -3593,7 +3593,7 @@ 0 - 1090, 277 + 1086, 274 Einschränkungen Datensätze User @@ -3786,7 +3786,7 @@ Mandanten hinzu 5 - 1090, 277 + 1086, 274 Zuordnung Entität-Client @@ -3828,10 +3828,10 @@ Mandanten hinzu False - 292, 330 + 292, 327 - 1096, 22 + 1092, 22 35 @@ -3875,7 +3875,7 @@ Mandanten hinzu 292, 0 - 1096, 25 + 1092, 25 34 @@ -3896,7 +3896,7 @@ Mandanten hinzu 2 - 1388, 352 + 1384, 349 Entitäten-Übersicht diff --git a/app/DD-Record-Organizer/frmConstructor_Main.Designer.vb b/app/DD-Record-Organizer/frmConstructor_Main.Designer.vb index 8d83a39..bad43bd 100644 --- a/app/DD-Record-Organizer/frmConstructor_Main.Designer.vb +++ b/app/DD-Record-Organizer/frmConstructor_Main.Designer.vb @@ -207,8 +207,8 @@ Partial Class frmConstructor_Main Me.tsslblStatus = New System.Windows.Forms.ToolStripStatusLabel() Me.tsslblRecord = New System.Windows.Forms.ToolStripStatusLabel() Me.tslblDocIDMain = New System.Windows.Forms.ToolStripStatusLabel() - Me.tsslblWorkflowstate = New System.Windows.Forms.ToolStripStatusLabel() Me.progressLoadEntity = New System.Windows.Forms.ToolStripProgressBar() + Me.tsslblWorkflowstate = New System.Windows.Forms.ToolStripStatusLabel() Me.labelLoadEntity = New System.Windows.Forms.ToolStripStatusLabel() Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components) @@ -1415,7 +1415,7 @@ Partial Class frmConstructor_Main 'StatusStrip_Main ' Me.StatusStrip_Main.ContextMenuStrip = Me.ContextMenuStripClipboard - Me.StatusStrip_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslblStatus, Me.tsslblRecord, Me.tslblDocIDMain, Me.tsslblWorkflowstate, Me.progressLoadEntity, Me.labelLoadEntity}) + Me.StatusStrip_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslblStatus, Me.tsslblRecord, Me.tslblDocIDMain, Me.progressLoadEntity, Me.tsslblWorkflowstate, Me.labelLoadEntity}) resources.ApplyResources(Me.StatusStrip_Main, "StatusStrip_Main") Me.StatusStrip_Main.Name = "StatusStrip_Main" ' @@ -1450,17 +1450,17 @@ Partial Class frmConstructor_Main Me.tslblDocIDMain.Name = "tslblDocIDMain" resources.ApplyResources(Me.tslblDocIDMain, "tslblDocIDMain") ' - 'tsslblWorkflowstate - ' - Me.tsslblWorkflowstate.Name = "tsslblWorkflowstate" - resources.ApplyResources(Me.tsslblWorkflowstate, "tsslblWorkflowstate") - ' 'progressLoadEntity ' Me.progressLoadEntity.Name = "progressLoadEntity" resources.ApplyResources(Me.progressLoadEntity, "progressLoadEntity") Me.progressLoadEntity.Style = System.Windows.Forms.ProgressBarStyle.Marquee ' + 'tsslblWorkflowstate + ' + Me.tsslblWorkflowstate.Name = "tsslblWorkflowstate" + resources.ApplyResources(Me.tsslblWorkflowstate, "tsslblWorkflowstate") + ' 'labelLoadEntity ' Me.labelLoadEntity.Name = "labelLoadEntity" diff --git a/app/DD-Record-Organizer/frmConstructor_Main.resx b/app/DD-Record-Organizer/frmConstructor_Main.resx index 97cd5bd..4efc968 100644 --- a/app/DD-Record-Organizer/frmConstructor_Main.resx +++ b/app/DD-Record-Organizer/frmConstructor_Main.resx @@ -168,17 +168,17 @@ Auswertung anzeigen - 313, 22 + 233, 22 - Entitätssuche - diesem Knoten untergeordnet + Diesem Knoten untergeordnet False - 313, 22 + 233, 22 Enitätssuche - "alle Dateien" @@ -247,7 +247,7 @@ - 313, 22 + 233, 22 Volltextsuche @@ -2471,6 +2471,9 @@ DocID: + + 100, 18 + 120, 19 @@ -2480,9 +2483,6 @@ False - - 100, 18 - 123, 19 @@ -2582,7 +2582,7 @@ True - 140 + 125 6, 13 @@ -3861,18 +3861,18 @@ System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - tsslblWorkflowstate - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - progressLoadEntity System.Windows.Forms.ToolStripProgressBar, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + tsslblWorkflowstate + + + System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + labelLoadEntity diff --git a/app/DD-Record-Organizer/frmConstructor_Main.vb b/app/DD-Record-Organizer/frmConstructor_Main.vb index b485607..2e20dea 100644 --- a/app/DD-Record-Organizer/frmConstructor_Main.vb +++ b/app/DD-Record-Organizer/frmConstructor_Main.vb @@ -3587,7 +3587,8 @@ Public Class frmConstructor_Main Me.Cursor = Cursors.WaitCursor Dim sw As New SW("RUN_WDSEARCH_GRID") Try - + progressLoadEntity.Visible = True + labelLoadEntity.Text = "Documents loading..." If CURRENT_SEARCH_TYPE = "NODE_DOWN" Then Dim node As TreeNode = TreeViewMain.SelectedNode Dim NODE_GUID = ClassNodeNavigation.Return_NODEID_forTag(node.Tag) @@ -3595,9 +3596,20 @@ Public Class frmConstructor_Main "EXEC @return_value = [dbo].[PRPMO_NODES_GET_CHILD_RECORDS] @USER_ID = {0}, @NODE_ID = {1} " & vbNewLine & "SELECT 'Return Value' = @return_value", USER_GUID, NODE_GUID) Me.Cursor = Cursors.WaitCursor - Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) - If Not IsNothing(DT) Then - Dim result = DT.Rows(0).Item(0) + Dim DT_ASYNC As DataTable + Try + Dim async As New ClassAsyncSQL(sql) + async.bw.RunWorkerAsync() + While async.bw.IsBusy + Application.DoEvents() + End While + DT_ASYNC = async.dt + Catch ex As Exception + ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Async DT_ASYNC", ex.Message, ex.StackTrace) + End Try + + If Not IsNothing(DT_ASYNC) Then + Dim result = DT_ASYNC.Rows(0).Item(0) If result <> 0 Then ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Getting SubNodes-Structure", "Check the logfile") End If @@ -3742,6 +3754,8 @@ Public Class frmConstructor_Main ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Run WD-Search Database: ", ex.Message) End Try sw.Done() + progressLoadEntity.Visible = False + labelLoadEntity.Visible = False Cursor = Cursors.Default End Sub Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs) @@ -4259,7 +4273,7 @@ Public Class frmConstructor_Main ClassHelper.Create_USER_FILE_TABLE() If Not IsNothing(CURRENT_TBPMO_FILES_USER) Then If CURRENT_TBPMO_FILES_USER.Rows.Count > 0 Then - frmWD_IndexFile.ShowDialog() + frmWM_IndexFile.ShowDialog() End If End If @@ -4356,7 +4370,7 @@ Public Class frmConstructor_Main CURRENT_RECORD_ID = RECORD_ID CURRENT_ENTITY_ID = ENTITY_ID CURRENT_FORMVIEW_ID = FORMVIEW_ID - frmWD_IndexFile.ShowDialog() + frmWM_IndexFile.ShowDialog() 'sql = String.Format("SELECT * FROM TBPMO_FILES_USER WHERE (UPPER(USER_WORK) = UPPER('{0}')) AND WORKED = 0", USER_USERNAME) 'CURRENT_TBPMO_FILES_USER = ClassDatabase.Return_Datatable(sql, True) 'If CURRENT_TBPMO_FILES_USER.Rows.Count > 0 Then @@ -4523,7 +4537,7 @@ Public Class frmConstructor_Main FOLLOW_UPisActive = False TabFollowUp.PageVisible = False End If - sw.done + sw.Done() Catch ex As Exception ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Check Follow Up: ", ex.Message) windream_Docshow = False @@ -4627,7 +4641,7 @@ Public Class frmConstructor_Main End If CURRENT_ENTITYSTRING = _ENTITYSTRING CURRENT_ENTITY_ID = ENTITY_ID - frmWD_EntityImport.ShowDialog() + frmWM_EntityImport.ShowDialog() End Sub Private Sub FormDesignerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles FormDesignerToolStripMenuItem.Click Try @@ -5071,17 +5085,20 @@ Public Class frmConstructor_Main End Sub Private Sub grvwGrid_ColumnFilterChanged(sender As Object, e As EventArgs) Handles grvwGrid.ColumnFilterChanged SET_ROWCOUNT_STRING() + End Sub + Sub SET_ROWCOUNT_STRING() - If NODE_NAVIGATION = True Then Exit Sub Dim sw As New SW("SET_ROWCOUNT_STRING") - Dim selnode As TreeNode = TreeViewMain.SelectedNode - Dim origtext As String = selnode.Text - If origtext.Contains(" (") Then - Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1) - selnode.Text = String.Format("{0} ({1})", existingstring, grvwGrid.RowCount) - Else - selnode.Text = String.Format("{0} ({1})", selnode.Text, grvwGrid.RowCount) + If NODE_NAVIGATION = False Then + Dim selnode As TreeNode = TreeViewMain.SelectedNode + Dim origtext As String = selnode.Text + If origtext.Contains(" (") Then + Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1) + selnode.Text = String.Format("{0} ({1})", existingstring, grvwGrid.RowCount) + Else + selnode.Text = String.Format("{0} ({1})", selnode.Text, grvwGrid.RowCount) + End If End If Dim msg = "Anzahl Datensätze: " If USER_LANGUAGE <> "de-DE" Then @@ -6375,7 +6392,7 @@ Public Class frmConstructor_Main Private Sub DateiVersionierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiVersionierenToolStripMenuItem.Click Refresh_Selected_Table() - frmWD_CreateVersion.ShowDialog() + frmWM_CreateVersion.ShowDialog() RUN_WDSEARCH_GRID() End Sub Sub Refresh_Selected_Table() @@ -6407,7 +6424,7 @@ Public Class frmConstructor_Main Private Sub DokumentartÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentartÄndernToolStripMenuItem.Click CURRENT_FORMVIEW_ID = FORMVIEW_ID Refresh_Selected_Table() - frmWD_ChangeDoctype.ShowDialog() + frmWM_ChangeDoctype.ShowDialog() RUN_WDSEARCH_GRID() End Sub Private Sub NeuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuToolStripMenuItem.Click @@ -6727,7 +6744,7 @@ Public Class frmConstructor_Main Else CURRENT_NAVIGATION_TYPE = "DEFAULT" End If - frmWD_FulltextChoice.ShowDialog() + frmWM_FulltextChoice.ShowDialog() If CURRENT_FULLTEXT_PATTERN <> "" Then RUN_WDSEARCH_GRID() End If diff --git a/app/DD-Record-Organizer/frmDocLink_to_Record.resx b/app/DD-Record-Organizer/frmDocLink_to_Record.resx index 4c218e1..02208f7 100644 --- a/app/DD-Record-Organizer/frmDocLink_to_Record.resx +++ b/app/DD-Record-Organizer/frmDocLink_to_Record.resx @@ -181,7 +181,7 @@ dgEntityRecords - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a SplitContainerControl1.Panel2 @@ -205,7 +205,7 @@ SplitContainerControl1 - DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a $this @@ -214,10 +214,10 @@ 0 - 157, 14 + 121, 14 - 177, 21 + 213, 21 0 @@ -244,13 +244,13 @@ 9, 17 - 142, 13 + 106, 13 1 - 1. Konstruktor auswählen: + 1. Sicht auswählen: Label1 @@ -921,7 +921,7 @@ grvwGrid - DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a frmDocLink_to_Record diff --git a/app/DD-Record-Organizer/frmDoctype_NameConvention.vb b/app/DD-Record-Organizer/frmDoctype_NameConvention.vb index 84d6587..34e0404 100644 --- a/app/DD-Record-Organizer/frmDoctype_NameConvention.vb +++ b/app/DD-Record-Organizer/frmDoctype_NameConvention.vb @@ -47,11 +47,11 @@ Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString - Dim autoIIndex = "SELECT GUID, CASE WHEN INDEXNAME = '(ONLY for Nameconvention)' THEN 'NC_' + COMMENT ELSE INDEXNAME END as INDEXNAME FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & frmWD_Dokumentart_Konfig.akt_DokartID + Dim autoIIndex = "SELECT GUID, CASE WHEN INDEXNAME = '(ONLY for Nameconvention)' THEN 'NC_' + COMMENT ELSE INDEXNAME END as INDEXNAME FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & frmWM_Dokumentart_Konfig.akt_DokartID Dim DTAUTOINDEX As DataTable = ClassDatabase.Return_Datatable(autoIIndex) 'Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_INDEX_AUTOM, frmDokumentart_Konfig.akt_DokartID) - DT_ENTITIES = ClassDatabase.Return_Datatable("select T.GUID, T.FORMVIEW_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T.FORMVIEW_ID), 1) AS 'FORM_TITLE' FROM TBPMO_WD_FORMVIEW_DOKTYPES T, TBPMO_FORM_VIEW T1 WHERE T.FORMVIEW_ID = T1.GUID AND T1.SCREEN_ID = 1 AND T.DOCTYPE_ID = " & frmWD_Dokumentart_Konfig.akt_DokartID & " ORDER BY T1.FORM_TITLE", True) + DT_ENTITIES = ClassDatabase.Return_Datatable("select T.GUID, T.FORMVIEW_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T.FORMVIEW_ID), 1) AS 'FORM_TITLE' FROM TBPMO_WD_FORMVIEW_DOKTYPES T, TBPMO_FORM_VIEW T1 WHERE T.FORMVIEW_ID = T1.GUID AND T1.SCREEN_ID = 1 AND T.DOCTYPE_ID = " & frmWM_Dokumentart_Konfig.akt_DokartID & " ORDER BY T1.FORM_TITLE", True) cmbEntity.DataSource = DT_ENTITIES cmbEntity.DisplayMember = DT_ENTITIES.Columns(2).ColumnName cmbEntity.ValueMember = DT_ENTITIES.Columns(0).ColumnName diff --git a/app/DD-Record-Organizer/frmMain.vb b/app/DD-Record-Organizer/frmMain.vb index b472787..4c7af15 100644 --- a/app/DD-Record-Organizer/frmMain.vb +++ b/app/DD-Record-Organizer/frmMain.vb @@ -860,7 +860,7 @@ Public Class frmMain End Sub Private Sub BarButtonItem9_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem9.ItemClick - Dim frm As New frmWD_Resultlist_Config() + Dim frm As New frmWM_Resultlist_Config() frm.MdiParent = MAIN_FORM frm.Show() End Sub diff --git a/app/DD-Record-Organizer/frmRecordView.vb b/app/DD-Record-Organizer/frmRecordView.vb index df86b6a..0d72c87 100644 --- a/app/DD-Record-Organizer/frmRecordView.vb +++ b/app/DD-Record-Organizer/frmRecordView.vb @@ -608,7 +608,7 @@ Public Class frmRecordView CURRENT_ENTITY_ID = ENTITY_ID CURRENT_FORMVIEW_ID = FORMVIEW_ID If CURRENT_TBPMO_FILES_USER.Rows.Count = 1 Then - frmWD_IndexFile.ShowDialog() + frmWM_IndexFile.ShowDialog() Else If LogErrorsOnly = False Then ClassLogger.Add(" >> File was deleted or worked meanwhile!") End If diff --git a/app/DD-Record-Organizer/frmStructureNodeConfig.Designer.vb b/app/DD-Record-Organizer/frmStructureNodeConfig.Designer.vb index 30aea08..cf67946 100644 --- a/app/DD-Record-Organizer/frmStructureNodeConfig.Designer.vb +++ b/app/DD-Record-Organizer/frmStructureNodeConfig.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmStructureNodeConfig 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 @@ -20,7 +20,7 @@ Partial Class frmStructureNodeConfig '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 GUIDLabel As System.Windows.Forms.Label @@ -32,8 +32,8 @@ Partial Class frmStructureNodeConfig Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim NAMELabel As System.Windows.Forms.Label Dim COMMENTLabel As System.Windows.Forms.Label - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStructureNodeConfig)) Dim Label1 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStructureNodeConfig)) Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -71,6 +71,10 @@ Partial Class frmStructureNodeConfig Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.TBWH_ENTITYTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBWH_ENTITYTableAdapter() Me.cmbEntity = New System.Windows.Forms.ComboBox() + Me.DD_ECMAdmin = New DD_Record_Organizer.DD_ECMAdmin() + Me.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() + Me.TableAdapterManager1 = New DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager() GUIDLabel = New System.Windows.Forms.Label() ENTITY_IDLabel = New System.Windows.Forms.Label() TYPE_NODELabel = New System.Windows.Forms.Label() @@ -89,6 +93,8 @@ Partial Class frmStructureNodeConfig Me.GroupBox3.SuspendLayout() CType(Me.pbBackground, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'GUIDLabel @@ -115,7 +121,7 @@ Partial Class frmStructureNodeConfig TYPE_NODELabel.AutoSize = True TYPE_NODELabel.Location = New System.Drawing.Point(656, 135) TYPE_NODELabel.Name = "TYPE_NODELabel" - TYPE_NODELabel.Size = New System.Drawing.Size(93, 13) + TYPE_NODELabel.Size = New System.Drawing.Size(92, 13) TYPE_NODELabel.TabIndex = 5 TYPE_NODELabel.Text = "Node Type/Level:" ' @@ -177,6 +183,15 @@ Partial Class frmStructureNodeConfig COMMENTLabel.TabIndex = 88 COMMENTLabel.Text = "Comment:" ' + 'Label1 + ' + Label1.AutoSize = True + Label1.Location = New System.Drawing.Point(327, 28) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(35, 13) + Label1.TabIndex = 91 + Label1.Text = "Sicht:" + ' 'TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator ' Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem @@ -494,6 +509,7 @@ Partial Class frmStructureNodeConfig Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_APPOINTMENTSTableAdapter = Nothing Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing @@ -507,6 +523,7 @@ Partial Class frmStructureNodeConfig Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RIGHT_GROUPTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RIGHT_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter = Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing @@ -527,29 +544,46 @@ Partial Class frmStructureNodeConfig ' 'cmbEntity ' - Me.cmbEntity.DataSource = Me.TBWH_ENTITYBindingSource + Me.cmbEntity.DataSource = Me.TBPMO_FORM_CONSTRUCTORBindingSource Me.cmbEntity.DisplayMember = "FORM_TITLE" Me.cmbEntity.FormattingEnabled = True Me.cmbEntity.Location = New System.Drawing.Point(330, 44) Me.cmbEntity.Name = "cmbEntity" Me.cmbEntity.Size = New System.Drawing.Size(229, 21) Me.cmbEntity.TabIndex = 92 - Me.cmbEntity.ValueMember = "FORM_ID" + Me.cmbEntity.ValueMember = "GUID" ' - 'Label1 + 'DD_ECMAdmin ' - Label1.AutoSize = True - Label1.Location = New System.Drawing.Point(327, 28) - Label1.Name = "Label1" - Label1.Size = New System.Drawing.Size(39, 13) - Label1.TabIndex = 91 - Label1.Text = "Entity:" + Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin" + Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBPMO_FORM_CONSTRUCTORBindingSource + ' + Me.TBPMO_FORM_CONSTRUCTORBindingSource.DataMember = "TBPMO_FORM_CONSTRUCTOR" + Me.TBPMO_FORM_CONSTRUCTORBindingSource.DataSource = Me.DD_ECMAdmin + ' + 'TBPMO_FORM_CONSTRUCTORTableAdapter + ' + Me.TBPMO_FORM_CONSTRUCTORTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager1 + ' + Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager1.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager1.TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter = Nothing + Me.TableAdapterManager1.TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = Nothing + Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing + Me.TableAdapterManager1.TBPMO_FORM_CONSTRUCTORTableAdapter = Me.TBPMO_FORM_CONSTRUCTORTableAdapter + Me.TableAdapterManager1.TBPMO_LOG_ESSENTIALSTableAdapter = Nothing + Me.TableAdapterManager1.TBPMO_SAP_FUBATableAdapter = Nothing + Me.TableAdapterManager1.UpdateOrder = DD_Record_Organizer.DD_ECMAdminTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'frmStructureNodeConfig ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(972, 320) + Me.ClientSize = New System.Drawing.Size(972, 325) Me.Controls.Add(Me.cmbEntity) Me.Controls.Add(Label1) Me.Controls.Add(Me.TreeView1) @@ -590,6 +624,8 @@ Partial Class frmStructureNodeConfig Me.GroupBox3.ResumeLayout(False) CType(Me.pbBackground, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWH_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -631,4 +667,8 @@ Partial Class frmStructureNodeConfig Friend WithEvents COMMENTTextBox As System.Windows.Forms.TextBox Friend WithEvents TreeView1 As System.Windows.Forms.TreeView Friend WithEvents cmbEntity As System.Windows.Forms.ComboBox + Friend WithEvents DD_ECMAdmin As DD_ECMAdmin + Friend WithEvents TBPMO_FORM_CONSTRUCTORBindingSource As BindingSource + Friend WithEvents TBPMO_FORM_CONSTRUCTORTableAdapter As DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter + Friend WithEvents TableAdapterManager1 As DD_ECMAdminTableAdapters.TableAdapterManager End Class diff --git a/app/DD-Record-Organizer/frmStructureNodeConfig.resx b/app/DD-Record-Organizer/frmStructureNodeConfig.resx index 0f1b5a8..211c9de 100644 --- a/app/DD-Record-Organizer/frmStructureNodeConfig.resx +++ b/app/DD-Record-Organizer/frmStructureNodeConfig.resx @@ -144,6 +144,9 @@ False + + False + 17, 56 @@ -246,8 +249,20 @@ 772, 56 - - False + + 17, 95 + + + 974, 56 + + + 318, 95 + + + 614, 95 + + + 192 diff --git a/app/DD-Record-Organizer/frmStructureNodeConfig.vb b/app/DD-Record-Organizer/frmStructureNodeConfig.vb index c9b6488..33c8108 100644 --- a/app/DD-Record-Organizer/frmStructureNodeConfig.vb +++ b/app/DD-Record-Organizer/frmStructureNodeConfig.vb @@ -320,6 +320,8 @@ Me.TBWH_ENTITYTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBWH_ENTITYTableAdapter.Fill(Me.DD_DMSDataSet.TBWH_ENTITY, USER_LANGUAGE) Me.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR, USER_LANGUAGE, CURRENT_SCREEN_ID) Catch ex As Exception MsgBox("Error in Loading Configuration:" & vbNewLine & ex.Message) End Try @@ -371,7 +373,7 @@ Catch ex As Exception MsgBox("Error in Deleting NodeImage:" & vbNewLine & ex.Message) End Try - + End Sub Private Sub TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource.CurrentChanged diff --git a/app/DD-Record-Organizer/frmUserKonfig.resx b/app/DD-Record-Organizer/frmUserKonfig.resx index eee7311..ec032aa 100644 --- a/app/DD-Record-Organizer/frmUserKonfig.resx +++ b/app/DD-Record-Organizer/frmUserKonfig.resx @@ -1637,6 +1637,1275 @@ True + + TabControl1 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 0 + + + 1132, 319 + + + User-/Gruppenzuordnung + + + XtraTabPage1 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 0 + + + 1138, 347 + + + 30 + + + 793, 56 + + + GridControl2 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TabGruppendefinition + + + 0 + + + COMMENTTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + + 2 + + + GUIDTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + + 4 + + + NAMETextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + + 6 + + + ADDED_WHOTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + + 8 + + + ADDED_WHENTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + + 10 + + + CHANGED_WHOTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + + 12 + + + CHANGED_WHENTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + + 14 + + + BindingNavigator1 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + + 15 + + + 1132, 319 + + + Gruppendefinition + + + TabGruppendefinition + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 1 + + + True + + + True + + + Top, Bottom, Left + + + 17, 134 + + + 822, 95 + + + 631, 17 + + + Cyan + + + Fuchsia + + + Selection + + + True + + + 0 + + + 54 + + + True + + + 1 + + + 107 + + + True + + + 2 + + + 102 + + + 284, 269 + + + 89 + + + GridControlUsersinClient + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TabPage6 + + + 0 + + + Top, Bottom, Left + + + 223, 134 + + + 187, 19 + + + Cyan + + + Fuchsia + + + Selection + + + True + + + 0 + + + 54 + + + True + + + 1 + + + 107 + + + True + + + 2 + + + 102 + + + 284, 269 + + + 88 + + + GridControlUser2Mandanten + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TabPage6 + + + 1 + + + MiddleLeft + + + NoControl + + + 921, 17 + + + 150, 46 + + + 17 + + + Benutzer aus Mandantenzuordnung entfernen + + + MiddleRight + + + btndeleteUserfromClient + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage6 + + + 2 + + + True + + + NoControl + + + 628, 1 + + + 77, 13 + + + 16 + + + User zu Client: + + + lblUser2Client + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage6 + + + 3 + + + MiddleLeft + + + NoControl + + + 477, 17 + + + 148, 46 + + + 14 + + + Ausgewählte User zu +Mandant hinzufügen + + + MiddleRight + + + btnsaddUser2Client + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage6 + + + 4 + + + True + + + NoControl + + + 184, 4 + + + 94, 13 + + + 13 + + + User zur Auswahl: + + + Label16 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage6 + + + 5 + + + True + + + NoControl + + + 7, 4 + + + 65, 13 + + + 11 + + + Mandanten: + + + Label17 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage6 + + + 6 + + + 264, 95 + + + 7, 20 + + + 171, 21 + + + 10 + + + cmbClientsforUser + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage6 + + + 7 + + + 4, 22 + + + 3, 3, 3, 3 + + + 1124, 293 + + + 1 + + + User zu Mandant hinzufügen + + + TabPage6 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl3 + + + 0 + + + 668, 95 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + True + + + 23, 22 + + + Neu hinzufügen + + + 74, 22 + + + of {0} Clients + + + Die Gesamtanzahl der Elemente. + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + True + + + 23, 22 + + + Löschen + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + True + + + 23, 22 + + + Erste verschieben + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + True + + + 23, 22 + + + Vorherige verschieben + + + 6, 25 + + + Position + + + False + + + 50, 23 + + + 0 + + + Aktuelle Position + + + 6, 25 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + True + + + 23, 22 + + + Nächste verschieben + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + True + + + 23, 22 + + + Letzte verschieben + + + 6, 25 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 23, 22 + + + Daten speichern + + + Magenta + + + 23, 22 + + + ToolStripButton1 + + + 3, 3 + + + 1118, 25 + + + 2 + + + BindingNavigator2 + + + BindingNavigator2 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 0 + + + True + + + NoControl + + + 514, 117 + + + 66, 13 + + + 37 + + + Data saved! + + + False + + + Label7 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 1 + + + Tahoma, 8.25pt, style=Italic + + + 10, 53 + + + 54, 21 + + + 3 + + + GUIDTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 2 + + + 74, 53 + + + 254, 21 + + + 4 + + + CLIENT_NAMETextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 4 + + + Top, Left, Right + + + 264, 95 + + + 826, 37 + + + 292, 108 + + + 36 + + + ListBox2 + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 5 + + + 334, 53 + + + 177, 21 + + + 6 + + + SHORTNAMETextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 8 + + + Tahoma, 8.25pt, style=Italic + + + 672, 93 + + + 148, 21 + + + 16 + + + CHANGED_WHENTextBox2 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 9 + + + 74, 93 + + + 437, 21 + + + 8 + + + COMMENTTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 12 + + + Tahoma, 8.25pt, style=Italic + + + 517, 93 + + + 146, 21 + + + 14 + + + CHANGED_WHOTextBox2 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 13 + + + Tahoma, 8.25pt, style=Italic + + + 517, 53 + + + 146, 21 + + + 10 + + + ADDED_WHOTextBox2 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 16 + + + Tahoma, 8.25pt, style=Italic + + + 672, 53 + + + 148, 21 + + + 12 + + + ADDED_WHENTextBox2 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 18 + + + 4, 22 + + + 3, 3, 3, 3 + + + 1124, 293 + + + 0 + + + Mandantendefinition + + + TabPage5 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl3 + + + 1 + + + Fill + + + 0, 0 + + + 1132, 319 + + + 38 + + + TabControl3 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 0 + + + 1132, 319 + + + Mandantenzuordnung/-definition + + + XtraTabPage2 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 2 + + + btnUpdatePath + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage3 + + + 0 + + + btnopenfolder + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage3 + + + 1 + + + txtPath + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage3 + + + 2 + + + Label8 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage3 + + + 3 + + + Label6 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage3 + + + 4 + + + GridControl3 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabPage3 + + + 5 + + + 1132, 319 + + + Update Konfiguration User + + + XtraTabPage3 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 3 + + + XtraTabControl1 + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 14 + + + TabPage1 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 0 + + + TabPage2 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 1 + + + Fill + + + 0, 0 + + + 1132, 319 + + + 6 + + + TabControl1 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 0 + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 0 + + + btnRemoveUserFromGroup + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 1 + + + cmbGroup + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 2 + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 3 + + + btnAddUserToGroup + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 4 + + + lbGroups + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 5 + + + 4, 22 + + + 3, 3, 3, 3 + + + 1124, 293 + + + 0 + + + User zu Gruppe + + + TabPage1 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 0 + True @@ -1715,6 +2984,9 @@ 2 + + 929, 17 + True @@ -1776,7 +3048,7 @@ 140, 40 - 236, 186 + 236, 173 3 @@ -1793,45 +3065,135 @@ 5 - - 4, 22 - - - 3, 3, 3, 3 - - - 1128, 296 - - - 0 - - - User zu Gruppe - - - TabPage1 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 0 - True + + GridControlWH_Users1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TabPage2 + + + 0 + + + GridControlUsers2Group + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TabPage2 + + + 1 + + + btndeleteUserfromGroup + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 2 + + + lblUserforGroup + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 3 + + + btnaddSelectedUser2Group + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 4 + + + Label4 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 5 + + + Label3 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 6 + + + cmbGroups_Group2User + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 7 + + + 4, 22 + + + 3, 3, 3, 3 + + + 1128, 296 + + + 1 + + + Gruppe zu Usern + + + TabPage2 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 1 + Top, Bottom, Left - - 17, 134 - - - 822, 95 - 667, 19 @@ -1889,6 +3251,9 @@ 0 + + 822, 95 + Top, Bottom, Left @@ -2130,81 +3495,6 @@ matchen 7 - - 4, 22 - - - 3, 3, 3, 3 - - - 1128, 296 - - - 1 - - - Gruppe zu Usern - - - TabPage2 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 1 - - - Fill - - - 0, 0 - - - 1136, 322 - - - 6 - - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 0 - - - 1136, 322 - - - User-/Gruppenzuordnung - - - XtraTabPage1 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl1 - - - 0 - - - 1138, 347 - - - 30 - Top, Bottom, Left @@ -2597,870 +3887,6 @@ matchen 15 - - 1132, 319 - - - Gruppendefinition - - - TabGruppendefinition - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl1 - - - 1 - - - True - - - True - - - Top, Bottom, Left - - - 631, 17 - - - Cyan - - - Fuchsia - - - Selection - - - True - - - 0 - - - 54 - - - True - - - 1 - - - 107 - - - True - - - 2 - - - 102 - - - 284, 272 - - - 89 - - - GridControlUsersinClient - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TabPage6 - - - 0 - - - Top, Bottom, Left - - - 223, 134 - - - 187, 19 - - - Cyan - - - Fuchsia - - - Selection - - - True - - - 0 - - - 54 - - - True - - - 1 - - - 107 - - - True - - - 2 - - - 102 - - - 284, 272 - - - 88 - - - GridControlUser2Mandanten - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TabPage6 - - - 1 - - - MiddleLeft - - - NoControl - - - 921, 17 - - - 150, 46 - - - 17 - - - Benutzer aus Gruppe entfernen - - - MiddleRight - - - btndeleteUserfromClient - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 2 - - - True - - - NoControl - - - 628, 1 - - - 77, 13 - - - 16 - - - User zu Client: - - - lblUser2Client - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 3 - - - MiddleLeft - - - NoControl - - - 477, 17 - - - 148, 46 - - - 14 - - - Ausgewählte User zu -Mandant hinzufügen - - - MiddleRight - - - btnsaddUser2Client - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 4 - - - True - - - NoControl - - - 184, 4 - - - 94, 13 - - - 13 - - - User zur Auswahl: - - - Label16 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 5 - - - True - - - NoControl - - - 7, 4 - - - 65, 13 - - - 11 - - - Mandanten: - - - Label17 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 6 - - - 264, 95 - - - 7, 20 - - - 171, 21 - - - 10 - - - cmbClientsforUser - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 7 - - - 4, 22 - - - 3, 3, 3, 3 - - - 1128, 296 - - - 1 - - - User zu Mandant hinzufügen - - - TabPage6 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl3 - - - 0 - - - 668, 95 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC - pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ - Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ - /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA - zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ - IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E - rkJggg== - - - - True - - - 23, 22 - - - Neu hinzufügen - - - 74, 22 - - - of {0} Clients - - - Die Gesamtanzahl der Elemente. - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Löschen - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Erste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - True - - - 23, 22 - - - Vorherige verschieben - - - 6, 25 - - - Position - - - False - - - 50, 23 - - - 0 - - - Aktuelle Position - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Nächste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - True - - - 23, 22 - - - Letzte verschieben - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo - dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= - - - - 23, 22 - - - Daten speichern - - - Magenta - - - 23, 22 - - - ToolStripButton1 - - - 3, 3 - - - 1122, 25 - - - 2 - - - BindingNavigator2 - - - BindingNavigator2 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 0 - - - True - - - NoControl - - - 514, 117 - - - 66, 13 - - - 37 - - - Data saved! - - - False - - - Label7 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 1 - - - Tahoma, 8.25pt, style=Italic - - - 10, 53 - - - 54, 21 - - - 3 - - - GUIDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 2 - - - 74, 53 - - - 254, 21 - - - 4 - - - CLIENT_NAMETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 4 - - - Top, Left, Right - - - 826, 37 - - - 296, 108 - - - 36 - - - ListBox2 - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 5 - - - 334, 53 - - - 177, 21 - - - 6 - - - SHORTNAMETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 8 - - - Tahoma, 8.25pt, style=Italic - - - 672, 93 - - - 148, 21 - - - 16 - - - CHANGED_WHENTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 9 - - - 74, 93 - - - 437, 21 - - - 8 - - - COMMENTTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 12 - - - Tahoma, 8.25pt, style=Italic - - - 517, 93 - - - 146, 21 - - - 14 - - - CHANGED_WHOTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 13 - - - Tahoma, 8.25pt, style=Italic - - - 517, 53 - - - 146, 21 - - - 10 - - - ADDED_WHOTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 16 - - - Tahoma, 8.25pt, style=Italic - - - 672, 53 - - - 148, 21 - - - 12 - - - ADDED_WHENTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 18 - - - 4, 22 - - - 3, 3, 3, 3 - - - 1128, 296 - - - 0 - - - Mandantendefinition - - - TabPage5 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl3 - - - 1 - - - Fill - - - 0, 0 - - - 1132, 319 - - - 38 - - - TabControl3 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 0 - - - 1132, 319 - - - Mandantendefinition - - - XtraTabPage2 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl1 - - - 2 - MiddleLeft @@ -3605,27 +4031,6 @@ Mandant hinzufügen 429, 134 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAKBJREFUOE+1kMsNwyAMhjMSM3BnCwbpiSnYgkF6YY+kF19pf4SRxaMkUYv0ycaP - TySbPET0/KBKnrTWGeSlpjCDfHgwWHggSgHXQBnvD5rW2hRjzINSgBp6SwEvee+H+VLgnKvDLeh1AhRa - QgjJGFMXkaM2mq3Pbhv8zfKfSHhnKlgxFCBK2bc7x98KrtAJ7jAVHPsrM7sz/xOcpQruQ+kNkdaQ553c - 5g4AAAAASUVORK5CYII= - - - - 172, 22 - - - Alle auswählen - - - 172, 22 - - - Auswahl aufheben - 173, 48 @@ -3692,35 +4097,26 @@ Mandant hinzufügen 5 - - 1132, 319 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAKBJREFUOE+1kMsNwyAMhjMSM3BnCwbpiSnYgkF6YY+kF19pf4SRxaMkUYv0ycaP + TySbPET0/KBKnrTWGeSlpjCDfHgwWHggSgHXQBnvD5rW2hRjzINSgBp6SwEvee+H+VLgnKvDLeh1AhRa + QgjJGFMXkaM2mq3Pbhv8zfKfSHhnKlgxFCBK2bc7x98KrtAJ7jAVHPsrM7sz/xOcpQruQ+kNkdaQ553c + 5g4AAAAASUVORK5CYII= + - - Update Konfiguration User + + 172, 22 - - XtraTabPage3 + + Alle auswählen - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 172, 22 - - XtraTabControl1 - - - 3 - - - XtraTabControl1 - - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - $this - - - 14 + + Auswahl aufheben 259, 56 diff --git a/app/DD-Record-Organizer/frmwindreamView_Config.Designer.vb b/app/DD-Record-Organizer/frmWMView_Config.Designer.vb similarity index 96% rename from app/DD-Record-Organizer/frmwindreamView_Config.Designer.vb rename to app/DD-Record-Organizer/frmWMView_Config.Designer.vb index 911469c..58f94dc 100644 --- a/app/DD-Record-Organizer/frmwindreamView_Config.Designer.vb +++ b/app/DD-Record-Organizer/frmWMView_Config.Designer.vb @@ -1,5 +1,5 @@  _ -Partial Class frmwindreamView_Config +Partial Class frmWMView_Config Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -22,7 +22,7 @@ Partial Class frmwindreamView_Config 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmwindreamView_Config)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWMView_Config)) Me.CheckBoxWD_ShowDocs = New System.Windows.Forms.CheckBox() Me.SuspendLayout() ' diff --git a/app/DD-Record-Organizer/frmwindreamView_Config.en-US.resx b/app/DD-Record-Organizer/frmWMView_Config.en-US.resx similarity index 100% rename from app/DD-Record-Organizer/frmwindreamView_Config.en-US.resx rename to app/DD-Record-Organizer/frmWMView_Config.en-US.resx diff --git a/app/DD-Record-Organizer/frmwindreamView_Config.resx b/app/DD-Record-Organizer/frmWMView_Config.resx similarity index 100% rename from app/DD-Record-Organizer/frmwindreamView_Config.resx rename to app/DD-Record-Organizer/frmWMView_Config.resx diff --git a/app/DD-Record-Organizer/frmwindreamView_Config.vb b/app/DD-Record-Organizer/frmWMView_Config.vb similarity index 89% rename from app/DD-Record-Organizer/frmwindreamView_Config.vb rename to app/DD-Record-Organizer/frmWMView_Config.vb index b6916f2..a034a97 100644 --- a/app/DD-Record-Organizer/frmwindreamView_Config.vb +++ b/app/DD-Record-Organizer/frmWMView_Config.vb @@ -1,4 +1,4 @@ -Public Class frmwindreamView_Config +Public Class frmWMView_Config Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxWD_ShowDocs.CheckedChanged WD_ShowDocs = CheckBoxWD_ShowDocs.Checked diff --git a/app/DD-Record-Organizer/frmWD_ChangeDoctype.Designer.vb b/app/DD-Record-Organizer/frmWM_ChangeDoctype.Designer.vb similarity index 98% rename from app/DD-Record-Organizer/frmWD_ChangeDoctype.Designer.vb rename to app/DD-Record-Organizer/frmWM_ChangeDoctype.Designer.vb index 199d89e..66907d5 100644 --- a/app/DD-Record-Organizer/frmWD_ChangeDoctype.Designer.vb +++ b/app/DD-Record-Organizer/frmWM_ChangeDoctype.Designer.vb @@ -1,5 +1,5 @@  _ -Partial Class frmWD_ChangeDoctype +Partial Class frmWM_ChangeDoctype Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -22,7 +22,7 @@ Partial Class frmWD_ChangeDoctype 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_ChangeDoctype)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWM_ChangeDoctype)) Me.OK_Button = New System.Windows.Forms.Button() Me.Cancel_Button = New System.Windows.Forms.Button() Me.cmbDokumentart = New System.Windows.Forms.ComboBox() diff --git a/app/DD-Record-Organizer/frmWD_ChangeDoctype.en-US.resx b/app/DD-Record-Organizer/frmWM_ChangeDoctype.en-US.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_ChangeDoctype.en-US.resx rename to app/DD-Record-Organizer/frmWM_ChangeDoctype.en-US.resx diff --git a/app/DD-Record-Organizer/frmWD_ChangeDoctype.resx b/app/DD-Record-Organizer/frmWM_ChangeDoctype.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_ChangeDoctype.resx rename to app/DD-Record-Organizer/frmWM_ChangeDoctype.resx diff --git a/app/DD-Record-Organizer/frmWD_ChangeDoctype.vb b/app/DD-Record-Organizer/frmWM_ChangeDoctype.vb similarity index 99% rename from app/DD-Record-Organizer/frmWD_ChangeDoctype.vb rename to app/DD-Record-Organizer/frmWM_ChangeDoctype.vb index 60d54e9..6e8a3d5 100644 --- a/app/DD-Record-Organizer/frmWD_ChangeDoctype.vb +++ b/app/DD-Record-Organizer/frmWM_ChangeDoctype.vb @@ -2,7 +2,7 @@ Imports DD_LIB_Standards Imports System.Data.SqlClient -Public Class frmWD_ChangeDoctype +Public Class frmWM_ChangeDoctype Private formloaded As Boolean = False Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click Dim NewDoctype As String @@ -270,7 +270,7 @@ Public Class frmWD_ChangeDoctype Sub Get_NextComboBoxResults(cmb As ComboBox) Try Dim indexname = cmb.Name.Replace("cmb", "") - Dim sql = "SELECT GUID,NAME,SQL_RESULT FROM TBPMO_INDEX_MAN where SUGGESTION = 1 AND SQL_RESULT like '%@" & indexname & "%' and DOCTYPE_ID = " & CURRENT_DOKARTID & " ORDER BY SEQUENCE" + Dim sql = "SELECT GUID,NAME,SQL_RESULT FROM TBPMO_INDEX_MAN where ACTIVE = 1 AND SUGGESTION = 1 AND SQL_RESULT like '%@" & indexname & "%' and DOCTYPE_ID = " & CURRENT_DOKARTID & " ORDER BY SEQUENCE" Dim DT As DataTable = clsDatabase.Return_Datatable(sql, True) If Not IsNothing(DT) Then If DT.Rows.Count > 0 Then diff --git a/app/DD-Record-Organizer/frmWD_CreateVersion.designer.vb b/app/DD-Record-Organizer/frmWM_CreateVersion.designer.vb similarity index 97% rename from app/DD-Record-Organizer/frmWD_CreateVersion.designer.vb rename to app/DD-Record-Organizer/frmWM_CreateVersion.designer.vb index ccad5e2..f607959 100644 --- a/app/DD-Record-Organizer/frmWD_CreateVersion.designer.vb +++ b/app/DD-Record-Organizer/frmWM_CreateVersion.designer.vb @@ -1,5 +1,5 @@  _ -Partial Class frmWD_CreateVersion +Partial Class frmWM_CreateVersion Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -22,7 +22,7 @@ Partial Class frmWD_CreateVersion 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_CreateVersion)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWM_CreateVersion)) Me.Label1 = New System.Windows.Forms.Label() Me.txtComment = New System.Windows.Forms.TextBox() Me.btnOK = New System.Windows.Forms.Button() diff --git a/app/DD-Record-Organizer/frmWD_CreateVersion.en-US.resx b/app/DD-Record-Organizer/frmWM_CreateVersion.en-US.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_CreateVersion.en-US.resx rename to app/DD-Record-Organizer/frmWM_CreateVersion.en-US.resx diff --git a/app/DD-Record-Organizer/frmWD_CreateVersion.resx b/app/DD-Record-Organizer/frmWM_CreateVersion.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_CreateVersion.resx rename to app/DD-Record-Organizer/frmWM_CreateVersion.resx diff --git a/app/DD-Record-Organizer/frmWD_CreateVersion.vb b/app/DD-Record-Organizer/frmWM_CreateVersion.vb similarity index 97% rename from app/DD-Record-Organizer/frmWD_CreateVersion.vb rename to app/DD-Record-Organizer/frmWM_CreateVersion.vb index e825d14..6614755 100644 --- a/app/DD-Record-Organizer/frmWD_CreateVersion.vb +++ b/app/DD-Record-Organizer/frmWM_CreateVersion.vb @@ -1,5 +1,5 @@ Imports DD_LIB_Standards -Public Class frmWD_CreateVersion +Public Class frmWM_CreateVersion Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click Me.Close() diff --git a/app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.Designer.vb b/app/DD-Record-Organizer/frmWM_Dokumentart_Konfig.Designer.vb similarity index 99% rename from app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.Designer.vb rename to app/DD-Record-Organizer/frmWM_Dokumentart_Konfig.Designer.vb index 7d73a5d..4992647 100644 --- a/app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.Designer.vb +++ b/app/DD-Record-Organizer/frmWM_Dokumentart_Konfig.Designer.vb @@ -1,5 +1,5 @@  _ -Partial Class frmWD_Dokumentart_Konfig +Partial Class frmWM_Dokumentart_Konfig Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -24,7 +24,7 @@ Partial Class frmWD_Dokumentart_Konfig 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(frmWD_Dokumentart_Konfig)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWM_Dokumentart_Konfig)) Dim BEZEICHNUNGLabel As System.Windows.Forms.Label Dim KURZNAMELabel As System.Windows.Forms.Label Dim ZIEL_PFADLabel As System.Windows.Forms.Label diff --git a/app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.en-US.resx b/app/DD-Record-Organizer/frmWM_Dokumentart_Konfig.en-US.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.en-US.resx rename to app/DD-Record-Organizer/frmWM_Dokumentart_Konfig.en-US.resx diff --git a/app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.resx b/app/DD-Record-Organizer/frmWM_Dokumentart_Konfig.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.resx rename to app/DD-Record-Organizer/frmWM_Dokumentart_Konfig.resx diff --git a/app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.vb b/app/DD-Record-Organizer/frmWM_Dokumentart_Konfig.vb similarity index 99% rename from app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.vb rename to app/DD-Record-Organizer/frmWM_Dokumentart_Konfig.vb index 86a7906..948ca90 100644 --- a/app/DD-Record-Organizer/frmWD_Dokumentart_Konfig.vb +++ b/app/DD-Record-Organizer/frmWM_Dokumentart_Konfig.vb @@ -1,12 +1,12 @@ Imports DD_LIB_Standards -Public Class frmWD_Dokumentart_Konfig - Private Shared _Instance As frmWD_Dokumentart_Konfig = Nothing +Public Class frmWM_Dokumentart_Konfig + Private Shared _Instance As frmWM_Dokumentart_Konfig = Nothing Private insert As Boolean = False Public Shared akt_DokartID As Integer Private IsInsert As Boolean = False - Public Shared Function Instance() As frmWD_Dokumentart_Konfig + Public Shared Function Instance() As frmWM_Dokumentart_Konfig If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then - _Instance = New frmWD_Dokumentart_Konfig + _Instance = New frmWM_Dokumentart_Konfig End If _Instance.BringToFront() Return _Instance diff --git a/app/DD-Record-Organizer/frmWD_EntityImport.Designer.vb b/app/DD-Record-Organizer/frmWM_EntityImport.Designer.vb similarity index 99% rename from app/DD-Record-Organizer/frmWD_EntityImport.Designer.vb rename to app/DD-Record-Organizer/frmWM_EntityImport.Designer.vb index e7e1a2c..359ba32 100644 --- a/app/DD-Record-Organizer/frmWD_EntityImport.Designer.vb +++ b/app/DD-Record-Organizer/frmWM_EntityImport.Designer.vb @@ -1,5 +1,5 @@  _ -Partial Class frmWD_EntityImport +Partial Class frmWM_EntityImport Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -22,7 +22,7 @@ Partial Class frmWD_EntityImport 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_EntityImport)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWM_EntityImport)) Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.txtEntityString = New System.Windows.Forms.TextBox() diff --git a/app/DD-Record-Organizer/frmWD_EntityImport.en-US.resx b/app/DD-Record-Organizer/frmWM_EntityImport.en-US.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_EntityImport.en-US.resx rename to app/DD-Record-Organizer/frmWM_EntityImport.en-US.resx diff --git a/app/DD-Record-Organizer/frmWD_EntityImport.resx b/app/DD-Record-Organizer/frmWM_EntityImport.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_EntityImport.resx rename to app/DD-Record-Organizer/frmWM_EntityImport.resx diff --git a/app/DD-Record-Organizer/frmWD_EntityImport.vb b/app/DD-Record-Organizer/frmWM_EntityImport.vb similarity index 99% rename from app/DD-Record-Organizer/frmWD_EntityImport.vb rename to app/DD-Record-Organizer/frmWM_EntityImport.vb index bafbccf..eedadaa 100644 --- a/app/DD-Record-Organizer/frmWD_EntityImport.vb +++ b/app/DD-Record-Organizer/frmWM_EntityImport.vb @@ -1,6 +1,6 @@ Imports System.IO Imports DD_LIB_Standards -Public Class frmWD_EntityImport +Public Class frmWM_EntityImport Private LOCAL_IMPORTFILE As String Private LOCAL_NEWFILESTRING As String Private LOCAL_TARGET_PATH As String diff --git a/app/DD-Record-Organizer/frmWD_FulltextChoice.Designer.vb b/app/DD-Record-Organizer/frmWM_FulltextChoice.Designer.vb similarity index 97% rename from app/DD-Record-Organizer/frmWD_FulltextChoice.Designer.vb rename to app/DD-Record-Organizer/frmWM_FulltextChoice.Designer.vb index c0b84f6..88d7d0b 100644 --- a/app/DD-Record-Organizer/frmWD_FulltextChoice.Designer.vb +++ b/app/DD-Record-Organizer/frmWM_FulltextChoice.Designer.vb @@ -1,5 +1,5 @@  _ -Partial Class frmWD_FulltextChoice +Partial Class frmWM_FulltextChoice Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -22,7 +22,7 @@ Partial Class frmWD_FulltextChoice 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_FulltextChoice)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWM_FulltextChoice)) Me.Label1 = New System.Windows.Forms.Label() Me.txtFulltextPattern = New System.Windows.Forms.TextBox() Me.chkSubnode = New System.Windows.Forms.CheckBox() diff --git a/app/DD-Record-Organizer/frmWD_FulltextChoice.en-US.resx b/app/DD-Record-Organizer/frmWM_FulltextChoice.en-US.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_FulltextChoice.en-US.resx rename to app/DD-Record-Organizer/frmWM_FulltextChoice.en-US.resx diff --git a/app/DD-Record-Organizer/frmWD_FulltextChoice.resx b/app/DD-Record-Organizer/frmWM_FulltextChoice.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_FulltextChoice.resx rename to app/DD-Record-Organizer/frmWM_FulltextChoice.resx diff --git a/app/DD-Record-Organizer/frmWD_FulltextChoice.vb b/app/DD-Record-Organizer/frmWM_FulltextChoice.vb similarity index 97% rename from app/DD-Record-Organizer/frmWD_FulltextChoice.vb rename to app/DD-Record-Organizer/frmWM_FulltextChoice.vb index 4124df4..8648bd5 100644 --- a/app/DD-Record-Organizer/frmWD_FulltextChoice.vb +++ b/app/DD-Record-Organizer/frmWM_FulltextChoice.vb @@ -1,4 +1,4 @@ -Public Class frmWD_FulltextChoice +Public Class frmWM_FulltextChoice Private Sub frmWD_FulltextChoice_Load(sender As Object, e As EventArgs) Handles Me.Load If CURRENT_NAVIGATION_TYPE = "NODE" Then diff --git a/app/DD-Record-Organizer/frmWD_Import_Doc_Record.Designer.vb b/app/DD-Record-Organizer/frmWM_Import_Doc_Record.Designer.vb similarity index 99% rename from app/DD-Record-Organizer/frmWD_Import_Doc_Record.Designer.vb rename to app/DD-Record-Organizer/frmWM_Import_Doc_Record.Designer.vb index 62603a0..76a0b80 100644 --- a/app/DD-Record-Organizer/frmWD_Import_Doc_Record.Designer.vb +++ b/app/DD-Record-Organizer/frmWM_Import_Doc_Record.Designer.vb @@ -1,5 +1,5 @@  _ -Partial Class frmWD_Import_Doc_Record +Partial Class frmWM_Import_Doc_Record Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -44,7 +44,7 @@ Partial Class frmWD_Import_Doc_Record Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label Dim IDX_FILE_WORKEDLabel As System.Windows.Forms.Label - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_Import_Doc_Record)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWM_Import_Doc_Record)) Dim SQL_PARENT_RECORDLabel As System.Windows.Forms.Label Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() diff --git a/app/DD-Record-Organizer/frmWD_Import_Doc_Record.resx b/app/DD-Record-Organizer/frmWM_Import_Doc_Record.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_Import_Doc_Record.resx rename to app/DD-Record-Organizer/frmWM_Import_Doc_Record.resx diff --git a/app/DD-Record-Organizer/frmWD_Import_Doc_Record.vb b/app/DD-Record-Organizer/frmWM_Import_Doc_Record.vb similarity index 99% rename from app/DD-Record-Organizer/frmWD_Import_Doc_Record.vb rename to app/DD-Record-Organizer/frmWM_Import_Doc_Record.vb index 87869d6..598a551 100644 --- a/app/DD-Record-Organizer/frmWD_Import_Doc_Record.vb +++ b/app/DD-Record-Organizer/frmWM_Import_Doc_Record.vb @@ -2,7 +2,7 @@ Imports WINDREAMLib Imports DD_LIB_Standards -Public Class frmWD_Import_Doc_Record +Public Class frmWM_Import_Doc_Record Private bwsearch As New BackgroundWorker Private windreamSucheErgebnisse As WMObjects Private aktivesDokument As WMObject diff --git a/app/DD-Record-Organizer/frmWD_IndexFile.Designer.vb b/app/DD-Record-Organizer/frmWM_IndexFile.Designer.vb similarity index 99% rename from app/DD-Record-Organizer/frmWD_IndexFile.Designer.vb rename to app/DD-Record-Organizer/frmWM_IndexFile.Designer.vb index a495bc3..d5e71e4 100644 --- a/app/DD-Record-Organizer/frmWD_IndexFile.Designer.vb +++ b/app/DD-Record-Organizer/frmWM_IndexFile.Designer.vb @@ -1,5 +1,5 @@  _ -Partial Class frmWD_IndexFile +Partial Class frmWM_IndexFile Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -24,7 +24,7 @@ Partial Class frmWD_IndexFile Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim OBJECT_TYPELabel As System.Windows.Forms.Label - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_IndexFile)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWM_IndexFile)) Dim FW_DOCTYPE_IDLabel As System.Windows.Forms.Label Dim PATHLabel As System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label() @@ -220,7 +220,7 @@ Partial Class frmWD_IndexFile resources.ApplyResources(Me.txtSubfolder, "txtSubfolder") Me.txtSubfolder.Name = "txtSubfolder" ' - 'frmWD_IndexFile + 'frmWM_IndexFile ' resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font @@ -238,7 +238,7 @@ Partial Class frmWD_IndexFile Me.Controls.Add(Me.Label1) Me.MaximizeBox = False Me.MinimizeBox = False - Me.Name = "frmWD_IndexFile" + Me.Name = "frmWM_IndexFile" CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() diff --git a/app/DD-Record-Organizer/frmWD_IndexFile.en-US.resx b/app/DD-Record-Organizer/frmWM_IndexFile.en-US.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_IndexFile.en-US.resx rename to app/DD-Record-Organizer/frmWM_IndexFile.en-US.resx diff --git a/app/DD-Record-Organizer/frmWD_IndexFile.resx b/app/DD-Record-Organizer/frmWM_IndexFile.resx similarity index 98% rename from app/DD-Record-Organizer/frmWD_IndexFile.resx rename to app/DD-Record-Organizer/frmWM_IndexFile.resx index 10169f3..880f644 100644 --- a/app/DD-Record-Organizer/frmWD_IndexFile.resx +++ b/app/DD-Record-Organizer/frmWM_IndexFile.resx @@ -294,9 +294,6 @@ 8 - - 891, 17 - Segoe UI Semibold, 9.75pt, style=Bold @@ -309,6 +306,9 @@ 3 + + 891, 17 + Auswahl der Dokumentart - Wird für nächste Eingabe gespeichert @@ -349,7 +349,7 @@ 4 - Datei indexieren + Datei importieren MiddleRight @@ -390,57 +390,6 @@ 5 - - PATHTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 1 - - - DOCTYPE_IDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 3 - - - Segoe UI, 9pt, style=Italic - - - 15, 117 - - - 560, 80 - - - 7 - - - Gewählte Indexierungsdaten - Automatik: - - - GroupBox1 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 5 - Top, Left, Right @@ -489,6 +438,33 @@ 3 + + Segoe UI, 9pt, style=Italic + + + 15, 117 + + + 560, 80 + + + 7 + + + Gewählte Indexierungsdaten - Automatik: + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 5 + Bottom, Left @@ -510,9 +486,6 @@ Lösche Ursprungsdatei - - 891, 17 - Die gedroppte Datei wird nach Ablage in windream gelöscht - Wird für nächste Eingabe gespeichert @@ -1161,7 +1134,7 @@ DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWDDINDEX_AUTOMTableAdapter, DD_DMSDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - frmWD_IndexFile + frmWM_IndexFile System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 diff --git a/app/DD-Record-Organizer/frmWD_IndexFile.vb b/app/DD-Record-Organizer/frmWM_IndexFile.vb similarity index 99% rename from app/DD-Record-Organizer/frmWD_IndexFile.vb rename to app/DD-Record-Organizer/frmWM_IndexFile.vb index fd3da0d..d4cdcef 100644 --- a/app/DD-Record-Organizer/frmWD_IndexFile.vb +++ b/app/DD-Record-Organizer/frmWM_IndexFile.vb @@ -5,7 +5,7 @@ Imports System.Data.SqlClient Imports Oracle.ManagedDataAccess.Client Imports DD_LIB_Standards -Public Class frmWD_IndexFile +Public Class frmWM_IndexFile Dim droptype As String Dim aktFiledropped As String Dim MULTIFILES As Integer = 0 @@ -33,7 +33,9 @@ Public Class frmWD_IndexFile End Class Function WORK_FILE(ImportFilePath As String, VerzeichnisZiel As String, vDokart_ID As Integer, vDokart As String, multiindex As Boolean) + Dim swWORK_FILE As New SW("WORK_FILE: " & DOCTYPE_IDTextBox.Text) Try + CURRENT_DOKARTSTRING = vDokart Dim err As Boolean = False '################################################################# @@ -41,6 +43,7 @@ Public Class frmWD_IndexFile '################################################################# Dim sw As New SW("GetUse Nameconvention ID: " & DOCTYPE_IDTextBox.Text) If ClassImport_Windream.Name_Generieren(DOCTYPE_IDTextBox.Text) = False Then + swWORK_FILE.Done() Return False End If sw.Done() @@ -55,6 +58,7 @@ Public Class frmWD_IndexFile result = MessageBox.Show(msg, "File alredy exists:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If result = MsgBoxResult.Yes Then If clsWD_SET.Delete_WDFile(CURRENT_NEWFILENAME.Substring(2)) = False Then + swWORK_FILE Return False End If Else @@ -126,6 +130,7 @@ Public Class frmWD_IndexFile err = True ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in WorkFile-indexing Doctype '" & indexname & "') - Check logfile!") sw.Done() + swWORK_FILE.Done() Return False End If @@ -135,6 +140,7 @@ Public Class frmWD_IndexFile err = True ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in WorkFile-indexing AddiRelation '" & indexname & "') - Check logfile!") sw.Done() + swWORK_FILE.Done() Return False End If @@ -211,6 +217,7 @@ Public Class frmWD_IndexFile 'ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String Next If err = True Then + swWORK_FILE.Done() Return False End If @@ -219,7 +226,9 @@ Public Class frmWD_IndexFile 'Return False End If Else + swWORK_FILE.Done() MsgBox("Attention in Work-File:" & vbNewLine & "No indices were defined (0)!", MsgBoxStyle.Critical) + Return False End If 'Nun alles aufrüumen und die neue DocID holen @@ -310,15 +319,18 @@ Public Class frmWD_IndexFile End If Else MsgBox("An unexpected error occured while indexing file. Please check the log!", MsgBoxStyle.Exclamation) + swWORK_FILE.Done() Return False End If - + swWORK_FILE.Done() Return True Else + swWORK_FILE.Done() Return False End If Catch ex As Exception MsgBox("Unexpected error in Work-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + swWORK_FILE.Done() Return False End Try @@ -747,7 +759,7 @@ Public Class frmWD_IndexFile Sub Get_NextComboBoxResults(cmb As ComboBox) Try Dim indexname = cmb.Name.Replace("cmb", "") - Dim sql = "SELECT GUID,NAME,SQL_RESULT FROM TBPMO_INDEX_MAN where SUGGESTION = 1 AND SQL_RESULT like '%@" & indexname & "%' and DOCTYPE_ID = " & CURRENT_DOKARTID & " ORDER BY SEQUENCE" + Dim sql = "SELECT GUID,NAME,SQL_RESULT FROM TBPMO_INDEX_MAN where ACTIVE = 1 AND SUGGESTION = 1 AND SQL_RESULT like '%@" & indexname & "%' and DOCTYPE_ID = " & CURRENT_DOKARTID & " ORDER BY SEQUENCE" Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) If Not IsNothing(DT) Then If DT.Rows.Count > 0 Then diff --git a/app/DD-Record-Organizer/frmWD_ObjecttypeConfig.Designer.vb b/app/DD-Record-Organizer/frmWM_ObjecttypeConfig.Designer.vb similarity index 99% rename from app/DD-Record-Organizer/frmWD_ObjecttypeConfig.Designer.vb rename to app/DD-Record-Organizer/frmWM_ObjecttypeConfig.Designer.vb index eb42d3d..ad898a4 100644 --- a/app/DD-Record-Organizer/frmWD_ObjecttypeConfig.Designer.vb +++ b/app/DD-Record-Organizer/frmWM_ObjecttypeConfig.Designer.vb @@ -1,5 +1,5 @@  _ -Partial Class frmWD_ObjecttypeConfig +Partial Class frmWM_ObjecttypeConfig Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -24,7 +24,7 @@ Partial Class frmWD_ObjecttypeConfig 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(frmWD_ObjecttypeConfig)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWM_ObjecttypeConfig)) Dim OBJECT_TYPELabel As System.Windows.Forms.Label Dim ADDED_WHOLabel As System.Windows.Forms.Label Dim ADDED_WHENLabel As System.Windows.Forms.Label diff --git a/app/DD-Record-Organizer/frmWD_ObjecttypeConfig.en-US.resx b/app/DD-Record-Organizer/frmWM_ObjecttypeConfig.en-US.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_ObjecttypeConfig.en-US.resx rename to app/DD-Record-Organizer/frmWM_ObjecttypeConfig.en-US.resx diff --git a/app/DD-Record-Organizer/frmWD_ObjecttypeConfig.resx b/app/DD-Record-Organizer/frmWM_ObjecttypeConfig.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_ObjecttypeConfig.resx rename to app/DD-Record-Organizer/frmWM_ObjecttypeConfig.resx diff --git a/app/DD-Record-Organizer/frmWD_ObjecttypeConfig.vb b/app/DD-Record-Organizer/frmWM_ObjecttypeConfig.vb similarity index 95% rename from app/DD-Record-Organizer/frmWD_ObjecttypeConfig.vb rename to app/DD-Record-Organizer/frmWM_ObjecttypeConfig.vb index 5fac549..c81a364 100644 --- a/app/DD-Record-Organizer/frmWD_ObjecttypeConfig.vb +++ b/app/DD-Record-Organizer/frmWM_ObjecttypeConfig.vb @@ -3,12 +3,12 @@ Imports DevExpress.Data.Helpers Imports DevExpress.XtraEditors Imports DevExpress.XtraEditors.Controls -Public Class frmWD_ObjecttypeConfig - Private Shared _Instance As frmWD_ObjecttypeConfig = Nothing +Public Class frmWM_ObjecttypeConfig + Private Shared _Instance As frmWM_ObjecttypeConfig = Nothing - Public Shared Function Instance() As frmWD_ObjecttypeConfig + Public Shared Function Instance() As frmWM_ObjecttypeConfig If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then - _Instance = New frmWD_ObjecttypeConfig + _Instance = New frmWM_ObjecttypeConfig End If _Instance.BringToFront() Return _Instance diff --git a/app/DD-Record-Organizer/frmWD_Resultlist_Config.Designer.vb b/app/DD-Record-Organizer/frmWM_Resultlist_Config.Designer.vb similarity index 99% rename from app/DD-Record-Organizer/frmWD_Resultlist_Config.Designer.vb rename to app/DD-Record-Organizer/frmWM_Resultlist_Config.Designer.vb index 90e98b1..ddb7d78 100644 --- a/app/DD-Record-Organizer/frmWD_Resultlist_Config.Designer.vb +++ b/app/DD-Record-Organizer/frmWM_Resultlist_Config.Designer.vb @@ -1,5 +1,5 @@  _ -Partial Class frmWD_Resultlist_Config +Partial Class frmWM_Resultlist_Config Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -23,7 +23,7 @@ Partial Class frmWD_Resultlist_Config _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_Resultlist_Config)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWM_Resultlist_Config)) Dim ENTITY_IDLabel As System.Windows.Forms.Label Dim SEQUENCELabel As System.Windows.Forms.Label Dim CHANGED_WHENLabel As System.Windows.Forms.Label diff --git a/app/DD-Record-Organizer/frmWD_Resultlist_Config.en-US.resx b/app/DD-Record-Organizer/frmWM_Resultlist_Config.en-US.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_Resultlist_Config.en-US.resx rename to app/DD-Record-Organizer/frmWM_Resultlist_Config.en-US.resx diff --git a/app/DD-Record-Organizer/frmWD_Resultlist_Config.resx b/app/DD-Record-Organizer/frmWM_Resultlist_Config.resx similarity index 100% rename from app/DD-Record-Organizer/frmWD_Resultlist_Config.resx rename to app/DD-Record-Organizer/frmWM_Resultlist_Config.resx diff --git a/app/DD-Record-Organizer/frmWD_Resultlist_Config.vb b/app/DD-Record-Organizer/frmWM_Resultlist_Config.vb similarity index 99% rename from app/DD-Record-Organizer/frmWD_Resultlist_Config.vb rename to app/DD-Record-Organizer/frmWM_Resultlist_Config.vb index c05baff..b85d3b9 100644 --- a/app/DD-Record-Organizer/frmWD_Resultlist_Config.vb +++ b/app/DD-Record-Organizer/frmWM_Resultlist_Config.vb @@ -1,6 +1,6 @@ Imports DevExpress.XtraEditors.Repository -Public Class frmWD_Resultlist_Config +Public Class frmWM_Resultlist_Config Private Sub frmWD_Resultlist_Config_Load(sender As Object, e As EventArgs) Handles MyBase.Load