diff --git a/.vs/Global_Indexer/DesignTimeBuild/.dtbcache b/.vs/Global_Indexer/DesignTimeBuild/.dtbcache new file mode 100644 index 0000000..5c6a9ff Binary files /dev/null and b/.vs/Global_Indexer/DesignTimeBuild/.dtbcache differ diff --git a/Global_Indexer/App.config b/Global_Indexer/App.config index 9c35da8..cffc3eb 100644 --- a/Global_Indexer/App.config +++ b/Global_Indexer/App.config @@ -10,7 +10,7 @@ diff --git a/Global_Indexer/ClassInit.vb b/Global_Indexer/ClassInit.vb index 976200d..0cd81f7 100644 --- a/Global_Indexer/ClassInit.vb +++ b/Global_Indexer/ClassInit.vb @@ -61,9 +61,9 @@ Public Class ClassInit Public Sub Init_Folderwatch() Try 'Die FolderWatch starten - Dim sql1 = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USERID + Dim sql1 = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USER_ID Dim folderwatch = ClassDatabase.Execute_Scalar(sql1, MyConnectionString, True) - sql1 = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & CURRENT_USERID + sql1 = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & CURRENT_USER_ID Dim folderwatch_SCAN = ClassDatabase.Execute_Scalar(sql1, MyConnectionString, True) If Not folderwatch Is Nothing Then CURRENT_FOLDERWATCH = folderwatch @@ -75,7 +75,7 @@ Public Class ClassInit FW_ISSTARTED = True ClassFolderWatcher.StartStop_FolderWatch() End If - + End If End If If Not folderwatch_SCAN Is Nothing Then @@ -96,9 +96,9 @@ Public Class ClassInit sql = sql.Replace("@user", Environment.UserName) ClassLogger.Add(">> Username: " & Environment.UserName, False) - CURRENT_USERID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) + CURRENT_USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) Try - Dim USERID = CInt(CURRENT_USERID) + Dim USERID = CInt(CURRENT_USER_ID) Catch ex As Exception ClassLogger.Add("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)", True) 'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") @@ -108,15 +108,14 @@ Public Class ClassInit Exit Sub End Try - sql = "SELECT SHORTNAME FROM TBDD_USER WHERE GUID = " & CURRENT_USERID + sql = "SELECT SHORTNAME FROM TBDD_USER WHERE GUID = " & CURRENT_USER_ID CURRENT_USER_SHORT = ClassDatabase.Execute_Scalar(sql, MyConnectionString) If IsNothing(CURRENT_USER_SHORT) Or IsDBNull(CURRENT_USER_SHORT) Then CURRENT_USER_SHORT = "" End If + Check_User_Exists_in_GIGroups() - sql = String.Format("SELECT MODULE_GI FROM TBDD_USER WHERE GUID = {0}", CURRENT_USERID) - - If ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) = False Then + If USER_IN_MODULE = False Then ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False) START_INCOMPLETE = True 'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") @@ -125,6 +124,9 @@ Public Class ClassInit Else 'Am System anmelden ClassLicence.Refresh_Licence() + + + Dim sql1 = "SELECT COUNT(T.GUID) FROM TBDD_DOKUMENTART T, TBDD_DOKUMENTART_MODULE T1 WHERE T.AKTIV = 1 AND T.GUID = T1.DOKART_ID AND T1.MODULE_ID = 1" DOCTYPE_COUNT_ACTUAL = ClassDatabase.Execute_Scalar(sql1, MyConnectionString, True) If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then @@ -135,7 +137,7 @@ Public Class ClassInit End If End If Try - USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & CURRENT_USERID, MyConnectionString, True) + USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & CURRENT_USER_ID, MyConnectionString, True) Catch ex As Exception ClassLogger.Add("LANGUAGE COULD NOT BE READ - " & ex.Message, True) USER_LANGUAGE = "de-DE" @@ -147,14 +149,11 @@ Public Class ClassInit sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName) sql = sql.Replace("@user", Environment.UserName) ClassDatabase.Execute_non_Query(sql) - sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USERID & " AND UPPER(MODULE) = UPPER('Global-Indexer')" + sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')" ClassDatabase.Execute_non_Query(sql, True) - sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & CURRENT_USERID & ",'Global-Indexer')" + sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & CURRENT_USER_ID & ",'Global-Indexer')" ClassDatabase.Execute_non_Query(sql) - sql = "SELECT GI_ADMIN FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))" - sql = sql.Replace("@user", Environment.UserName) - CURRENT_USER_IS_ADMIN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')" Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) @@ -178,9 +177,47 @@ Public Class ClassInit Catch ex As Exception ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True) + MsgBox(ex.Message, MsgBoxStyle.Critical) START_INCOMPLETE = True End Try End Sub - + Private Function Check_User_Exists_in_GIGroups() + Try + Dim sel = String.Format("select T1.* from TBDD_GROUPS T, TBDD_GROUPS_USER T1 WHERE T.GUID = T1.GROUP_ID AND T1.USER_ID = {0} AND UPPER(T.NAME) = 'GLOBIX_USER'", CURRENT_USER_ID) + Dim DT As DataTable = ClassDatabase.Return_Datatable(sel) + If Not IsNothing(DT) Then + If DT.Rows.Count = 1 Then + If LogErrorsOnly = False Then ClassLogger.Add(" >> User is in PM_USER-Group....", False) + USER_IN_MODULE = True + Else + If LogErrorsOnly = False Then ClassLogger.Add(" >> User is NOT in PM_USER-Group...." & sel, False) + sel = String.Format("select T.* from TBDD_USER_MODULES T WHERE T.USER_ID = {0} AND T.MODULE_ID = 2", CURRENT_USER_ID) + DT = ClassDatabase.Return_Datatable(sel) + If Not IsNothing(DT) Then + If DT.Rows.Count = 1 Then + If LogErrorsOnly = False Then ClassLogger.Add(" >> Singe User-relation defined for user....", False) + USER_IN_MODULE = True + CURRENT_USER_IS_ADMIN = DT.Rows(0).Item("IS_ADMIN") + End If + End If + End If + End If + sel = String.Format("select T1.* from TBDD_GROUPS T, TBDD_GROUPS_USER T1 WHERE T.GUID = T1.GROUP_ID AND T1.USER_ID = {0} AND UPPER(T.NAME) = 'GLOBIX_ADMINS'", CURRENT_USER_ID) + DT = ClassDatabase.Return_Datatable(sel) + + If Not IsNothing(DT) Then + If DT.Rows.Count = 1 Then + If LogErrorsOnly = False Then ClassLogger.Add(" >> User is in PM_ADMINS-Group....", False) + CURRENT_USER_IS_ADMIN = True + USER_IN_MODULE = True + Else + If LogErrorsOnly = False Then ClassLogger.Add(" >> User is NOT in PM_ADMINS-Group...." & sel, False) + End If + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Check_User_Exists_in_PMGroups:") + End Try + End Function End Class diff --git a/Global_Indexer/ModuleCURRENT.vb b/Global_Indexer/ModuleCURRENT.vb index f24a797..338429d 100644 --- a/Global_Indexer/ModuleCURRENT.vb +++ b/Global_Indexer/ModuleCURRENT.vb @@ -21,7 +21,8 @@ Public CURRENT_MESSAGESUBJECT As String Public CURRENT_ISATTACHMENT As Boolean = False - Public CURRENT_USERID + Public CURRENT_USER_ID + Public USER_IN_MODULE As Boolean = False Public CURRENT_USER_IS_ADMIN As Boolean = False Public CURRENT_USER_SHORT Public UserLoggedin As Integer = 0 diff --git a/Global_Indexer/My Project/Settings.Designer.vb b/Global_Indexer/My Project/Settings.Designer.vb index e9595cc..481a010 100644 --- a/Global_Indexer/My Project/Settings.Designer.vb +++ b/Global_Indexer/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -57,8 +57,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM_TEST;Persist Security Info="& _ + "True;User ID=sa;Password=dd")> _ Public ReadOnly Property DD_ECMConnectionString() As String Get Return CType(Me("DD_ECMConnectionString"),String) diff --git a/Global_Indexer/My Project/Settings.settings b/Global_Indexer/My Project/Settings.settings index 6401da3..1b11124 100644 --- a/Global_Indexer/My Project/Settings.settings +++ b/Global_Indexer/My Project/Settings.settings @@ -5,10 +5,10 @@ <?xml version="1.0" encoding="utf-16"?> <SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> + <ConnectionString>Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> <ProviderName>System.Data.SqlClient</ProviderName> </SerializableConnectionString> - Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd + Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd 526 diff --git a/Global_Indexer/MyDataset.Designer.vb b/Global_Indexer/MyDataset.Designer.vb index e6d30b9..5429c7e 100644 --- a/Global_Indexer/MyDataset.Designer.vb +++ b/Global_Indexer/MyDataset.Designer.vb @@ -116,7 +116,7 @@ Partial Public Class MyDataset 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 @@ -128,7 +128,7 @@ Partial Public Class MyDataset 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 @@ -247,7 +247,7 @@ Partial Public Class MyDataset End Sub _ Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable @@ -257,7 +257,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBDD_DOKUMENTART() As TBDD_DOKUMENTARTDataTable @@ -267,7 +267,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBDD_EINGANGSARTEN() As TBDD_EINGANGSARTENDataTable @@ -277,7 +277,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBDD_DOKART_MODULE() As TBDD_DOKART_MODULEDataTable @@ -287,7 +287,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBDD_MODULES() As TBDD_MODULESDataTable @@ -297,7 +297,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBDD_INDEX_MAN() As TBDD_INDEX_MANDataTable @@ -307,7 +307,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable @@ -317,7 +317,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWDDINDEX_MAN() As VWDDINDEX_MANDataTable @@ -327,7 +327,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWDDINDEX_AUTOM() As VWDDINDEX_AUTOMDataTable @@ -337,7 +337,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBDD_INDEX_AUTOM() As TBDD_INDEX_AUTOMDataTable @@ -347,7 +347,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBGI_CONFIGURATION() As TBGI_CONFIGURATIONDataTable @@ -357,7 +357,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBGI_OBJECTTYPE_EMAIL_INDEX() As TBGI_OBJECTTYPE_EMAIL_INDEXDataTable @@ -367,7 +367,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBDD_INDEX_MAN_POSTPROCESSING() As TBDD_INDEX_MAN_POSTPROCESSINGDataTable @@ -377,7 +377,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBWHDD_INDEX_MAN() As TBWHDD_INDEX_MANDataTable @@ -387,7 +387,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBDD_USER_GROUPS() As TBDD_USER_GROUPSDataTable @@ -397,7 +397,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBDD_GROUPS_USER() As TBDD_GROUPS_USERDataTable @@ -407,7 +407,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWGI_USER_GROUPS_RELATION() As VWGI_USER_GROUPS_RELATIONDataTable @@ -417,7 +417,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWGI_DOCTYPE_GROUP() As VWGI_DOCTYPE_GROUPDataTable @@ -427,7 +427,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBHOTKEY_PROFILE() As TBHOTKEY_PROFILEDataTable @@ -437,7 +437,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBHOTKEY_PATTERNS() As TBHOTKEY_PATTERNSDataTable @@ -447,7 +447,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBMYHOTKEYS() As TBMYHOTKEYSDataTable @@ -457,7 +457,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBHOTKEY_USER_PROFILE() As TBHOTKEY_USER_PROFILEDataTable @@ -467,7 +467,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBHOTKEY_PATTERNS_REWORK() As TBHOTKEY_PATTERNS_REWORKDataTable @@ -477,7 +477,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBHOTKEY_WINDOW_HOOK() As TBHOTKEY_WINDOW_HOOKDataTable @@ -487,7 +487,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBGI_FILES_USER() As TBGI_FILES_USERDataTable @@ -497,7 +497,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBGI_HISTORY() As TBGI_HISTORYDataTable @@ -507,7 +507,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBTempFiles2Index() As TBTempFiles2IndexDataTable @@ -517,7 +517,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBTEMP_INDEXRESULTS() As TBTEMP_INDEXRESULTSDataTable @@ -527,7 +527,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBAD_Users() As TBAD_UsersDataTable @@ -537,7 +537,7 @@ Partial Public Class MyDataset End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -550,7 +550,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -559,7 +559,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -568,7 +568,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -576,7 +576,7 @@ Partial Public Class MyDataset 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 MyDataset = CType(MyBase.Clone,MyDataset) cln.InitVars @@ -585,19 +585,19 @@ Partial Public Class MyDataset 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 @@ -705,7 +705,7 @@ Partial Public Class MyDataset 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)) @@ -714,13 +714,13 @@ Partial Public Class MyDataset 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.tableTBDD_USER = CType(MyBase.Tables("TBDD_USER"),TBDD_USERDataTable) If (initTable = true) Then @@ -914,7 +914,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "MyDataset" Me.Prefix = "" @@ -1012,181 +1012,181 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBDD_USER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBDD_DOKUMENTART() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBDD_EINGANGSARTEN() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBDD_DOKART_MODULE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBDD_MODULES() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBDD_INDEX_MAN() 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 ShouldSerializeVWDDINDEX_MAN() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWDDINDEX_AUTOM() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBDD_INDEX_AUTOM() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBGI_CONFIGURATION() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBGI_OBJECTTYPE_EMAIL_INDEX() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBDD_INDEX_MAN_POSTPROCESSING() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWHDD_INDEX_MAN() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBDD_USER_GROUPS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBDD_GROUPS_USER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWGI_USER_GROUPS_RELATION() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWGI_DOCTYPE_GROUP() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBHOTKEY_PROFILE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBHOTKEY_PATTERNS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBMYHOTKEYS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBHOTKEY_USER_PROFILE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBHOTKEY_PATTERNS_REWORK() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBHOTKEY_WINDOW_HOOK() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBGI_FILES_USER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBGI_HISTORY() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBTempFiles2Index() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBTEMP_INDEXRESULTS() 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 Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars @@ -1194,7 +1194,7 @@ Partial Public Class MyDataset 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 MyDataset = New MyDataset() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -1243,91 +1243,91 @@ Partial Public Class MyDataset Return type End Function - _ + _ Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent) - _ + _ Public Delegate Sub TBDD_DOKUMENTARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKUMENTARTRowChangeEvent) - _ + _ Public Delegate Sub TBDD_EINGANGSARTENRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EINGANGSARTENRowChangeEvent) - _ + _ Public Delegate Sub TBDD_DOKART_MODULERowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKART_MODULERowChangeEvent) - _ + _ Public Delegate Sub TBDD_MODULESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_MODULESRowChangeEvent) - _ + _ Public Delegate Sub TBDD_INDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_MANRowChangeEvent) - _ + _ Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) - _ + _ Public Delegate Sub VWDDINDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDDINDEX_MANRowChangeEvent) - _ + _ Public Delegate Sub VWDDINDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDDINDEX_AUTOMRowChangeEvent) - _ + _ Public Delegate Sub TBDD_INDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_AUTOMRowChangeEvent) - _ + _ Public Delegate Sub TBGI_CONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_CONFIGURATIONRowChangeEvent) - _ + _ Public Delegate Sub TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent) - _ + _ Public Delegate Sub TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent) - _ + _ Public Delegate Sub TBWHDD_INDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWHDD_INDEX_MANRowChangeEvent) - _ + _ Public Delegate Sub TBDD_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USER_GROUPSRowChangeEvent) - _ + _ Public Delegate Sub TBDD_GROUPS_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_USERRowChangeEvent) - _ + _ Public Delegate Sub VWGI_USER_GROUPS_RELATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGI_USER_GROUPS_RELATIONRowChangeEvent) - _ + _ Public Delegate Sub VWGI_DOCTYPE_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGI_DOCTYPE_GROUPRowChangeEvent) - _ + _ Public Delegate Sub TBHOTKEY_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PROFILERowChangeEvent) - _ + _ Public Delegate Sub TBHOTKEY_PATTERNSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PATTERNSRowChangeEvent) - _ + _ Public Delegate Sub TBMYHOTKEYSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMYHOTKEYSRowChangeEvent) - _ + _ Public Delegate Sub TBHOTKEY_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_USER_PROFILERowChangeEvent) - _ + _ Public Delegate Sub TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PATTERNS_REWORKRowChangeEvent) - _ + _ Public Delegate Sub TBHOTKEY_WINDOW_HOOKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_WINDOW_HOOKRowChangeEvent) - _ + _ Public Delegate Sub TBGI_FILES_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_FILES_USERRowChangeEvent) - _ + _ Public Delegate Sub TBGI_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_HISTORYRowChangeEvent) - _ + _ Public Delegate Sub TBTempFiles2IndexRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTempFiles2IndexRowChangeEvent) - _ + _ Public Delegate Sub TBTEMP_INDEXRESULTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTEMP_INDEXRESULTSRowChangeEvent) - _ + _ Public Delegate Sub TBAD_UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As TBAD_UsersRowChangeEvent) ''' @@ -1356,8 +1356,6 @@ Partial Public Class MyDataset Private columnLOG_OUT_WHEN As Global.System.Data.DataColumn - Private columnGI_ADMIN As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn @@ -1371,7 +1369,7 @@ Partial Public Class MyDataset 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 = "TBDD_USER" @@ -1381,7 +1379,7 @@ Partial Public Class MyDataset 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 @@ -1399,14 +1397,14 @@ Partial Public Class MyDataset 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 @@ -1414,7 +1412,7 @@ Partial Public Class MyDataset 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 @@ -1422,7 +1420,7 @@ Partial Public Class MyDataset 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 @@ -1430,7 +1428,7 @@ Partial Public Class MyDataset 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 @@ -1438,7 +1436,7 @@ Partial Public Class MyDataset 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 @@ -1446,7 +1444,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LOGGED_INColumn() As Global.System.Data.DataColumn Get Return Me.columnLOGGED_IN @@ -1454,7 +1452,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LOGGED_WHEREColumn() As Global.System.Data.DataColumn Get Return Me.columnLOGGED_WHERE @@ -1462,7 +1460,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LOG_IN_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnLOG_IN_WHEN @@ -1470,7 +1468,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LOG_OUT_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnLOG_OUT_WHEN @@ -1478,15 +1476,7 @@ Partial Public Class MyDataset End Property _ - Public ReadOnly Property GI_ADMINColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGI_ADMIN - End Get - 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 @@ -1494,7 +1484,7 @@ Partial Public Class MyDataset 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 @@ -1502,7 +1492,7 @@ Partial Public Class MyDataset 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 @@ -1510,7 +1500,7 @@ Partial Public Class MyDataset 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 @@ -1518,7 +1508,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORTNAME @@ -1526,7 +1516,7 @@ Partial Public Class MyDataset 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 @@ -1534,7 +1524,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -1543,49 +1533,49 @@ Partial Public Class MyDataset 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_USERRow Get Return CType(Me.Rows(index),TBDD_USERRow) End Get End Property - _ + _ Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler - _ + _ Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler - _ + _ Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler - _ + _ Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal LOGGED_WHERE As String, ByVal LOG_IN_WHEN As Date, ByVal LOG_OUT_WHEN As Date, ByVal GI_ADMIN As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SHORTNAME As String, ByVal LANGUAGE As String) As TBDD_USERRow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal LOGGED_WHERE As String, ByVal LOG_IN_WHEN As Date, ByVal LOG_OUT_WHEN As Date, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SHORTNAME As String, ByVal LANGUAGE As String) As TBDD_USERRow Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow) - Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHORTNAME, LANGUAGE} + Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHORTNAME, LANGUAGE} rowTBDD_USERRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_USERRow) Return rowTBDD_USERRow End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) cln.InitVars @@ -1593,13 +1583,13 @@ Partial Public Class MyDataset 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_USERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPRENAME = MyBase.Columns("PRENAME") @@ -1610,7 +1600,6 @@ Partial Public Class MyDataset Me.columnLOGGED_WHERE = MyBase.Columns("LOGGED_WHERE") Me.columnLOG_IN_WHEN = MyBase.Columns("LOG_IN_WHEN") Me.columnLOG_OUT_WHEN = MyBase.Columns("LOG_OUT_WHEN") - Me.columnGI_ADMIN = MyBase.Columns("GI_ADMIN") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") @@ -1620,7 +1609,7 @@ Partial Public Class MyDataset 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) @@ -1640,8 +1629,6 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnLOG_IN_WHEN) Me.columnLOG_OUT_WHEN = New Global.System.Data.DataColumn("LOG_OUT_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLOG_OUT_WHEN) - Me.columnGI_ADMIN = New Global.System.Data.DataColumn("GI_ADMIN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGI_ADMIN) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) @@ -1667,8 +1654,6 @@ Partial Public Class MyDataset Me.columnLOGGED_IN.AllowDBNull = false Me.columnLOGGED_IN.DefaultValue = CType(false,Boolean) Me.columnLOGGED_WHERE.MaxLength = 50 - Me.columnGI_ADMIN.AllowDBNull = false - Me.columnGI_ADMIN.DefaultValue = CType(false,Boolean) Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 @@ -1678,25 +1663,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBDD_USERRow() As TBDD_USERRow Return CType(Me.NewRow,TBDD_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_USERRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then @@ -1705,7 +1690,7 @@ Partial Public Class MyDataset 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_USERRowChangingEvent) Is Nothing) Then @@ -1714,7 +1699,7 @@ Partial Public Class MyDataset 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_USERRowDeletedEvent) Is Nothing) Then @@ -1723,7 +1708,7 @@ Partial Public Class MyDataset 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_USERRowDeletingEvent) Is Nothing) Then @@ -1732,13 +1717,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "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() @@ -1847,7 +1832,7 @@ Partial Public Class MyDataset Private columnDUPLICATE_HANDLING 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_DOKUMENTART" @@ -1857,7 +1842,7 @@ Partial Public Class MyDataset 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 @@ -1875,14 +1860,14 @@ Partial Public Class MyDataset 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 @@ -1890,7 +1875,7 @@ Partial Public Class MyDataset 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 @@ -1898,7 +1883,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EINGANGSART_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnEINGANGSART_ID @@ -1906,7 +1891,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnKURZNAME @@ -1914,7 +1899,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ZIEL_PFADColumn() As Global.System.Data.DataColumn Get Return Me.columnZIEL_PFAD @@ -1922,7 +1907,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBESCHREIBUNG @@ -1930,7 +1915,7 @@ Partial Public Class MyDataset 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 @@ -1938,7 +1923,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NAMENKONVENTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnNAMENKONVENTION @@ -1946,7 +1931,7 @@ Partial Public Class MyDataset 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 @@ -1954,7 +1939,7 @@ Partial Public Class MyDataset 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 @@ -1962,7 +1947,7 @@ Partial Public Class MyDataset 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 @@ -1970,7 +1955,7 @@ Partial Public Class MyDataset 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 @@ -1978,7 +1963,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property OBJEKTTYPColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJEKTTYP @@ -1986,7 +1971,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property WINDREAM_DIRECTColumn() As Global.System.Data.DataColumn Get Return Me.columnWINDREAM_DIRECT @@ -1994,7 +1979,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FOLDER_FOR_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnFOLDER_FOR_INDEX @@ -2002,7 +1987,7 @@ Partial Public Class MyDataset 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 @@ -2010,7 +1995,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DUPLICATE_HANDLINGColumn() As Global.System.Data.DataColumn Get Return Me.columnDUPLICATE_HANDLING @@ -2018,7 +2003,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -2027,33 +2012,33 @@ Partial Public Class MyDataset 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_DOKUMENTARTRow Get Return CType(Me.Rows(index),TBDD_DOKUMENTARTRow) End Get End Property - _ + _ Public Event TBDD_DOKUMENTARTRowChanging As TBDD_DOKUMENTARTRowChangeEventHandler - _ + _ Public Event TBDD_DOKUMENTARTRowChanged As TBDD_DOKUMENTARTRowChangeEventHandler - _ + _ Public Event TBDD_DOKUMENTARTRowDeleting As TBDD_DOKUMENTARTRowChangeEventHandler - _ + _ Public Event TBDD_DOKUMENTARTRowDeleted As TBDD_DOKUMENTARTRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBDD_DOKUMENTARTRow( _ ByVal BEZEICHNUNG As String, _ ByVal parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID As TBDD_EINGANGSARTENRow, _ @@ -2082,13 +2067,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_DOKUMENTARTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_DOKUMENTARTRow) 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_DOKUMENTARTDataTable = CType(MyBase.Clone,TBDD_DOKUMENTARTDataTable) cln.InitVars @@ -2096,13 +2081,13 @@ Partial Public Class MyDataset 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_DOKUMENTARTDataTable() 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") @@ -2124,7 +2109,7 @@ Partial Public Class MyDataset 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) @@ -2178,13 +2163,16 @@ Partial Public Class MyDataset Me.columnBESCHREIBUNG.MaxLength = 250 Me.columnAKTIV.AllowDBNull = false Me.columnAKTIV.DefaultValue = CType(false,Boolean) + Me.columnNAMENKONVENTION.AllowDBNull = false Me.columnNAMENKONVENTION.MaxLength = 500 Me.columnERSTELLTWER.AllowDBNull = false Me.columnERSTELLTWER.MaxLength = 50 Me.columnGEANDERTWER.MaxLength = 50 + Me.columnOBJEKTTYP.AllowDBNull = false Me.columnOBJEKTTYP.MaxLength = 50 Me.columnWINDREAM_DIRECT.AllowDBNull = false Me.columnWINDREAM_DIRECT.DefaultValue = CType(false,Boolean) + Me.columnFOLDER_FOR_INDEX.AllowDBNull = false Me.columnFOLDER_FOR_INDEX.DefaultValue = CType("",String) Me.columnFOLDER_FOR_INDEX.MaxLength = 500 Me.columnSEQUENCE.AllowDBNull = false @@ -2195,25 +2183,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow Return CType(Me.NewRow,TBDD_DOKUMENTARTRow) 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_DOKUMENTARTRow(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_DOKUMENTARTRow) 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_DOKUMENTARTRowChangedEvent) Is Nothing) Then @@ -2222,7 +2210,7 @@ Partial Public Class MyDataset 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_DOKUMENTARTRowChangingEvent) Is Nothing) Then @@ -2231,7 +2219,7 @@ Partial Public Class MyDataset 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_DOKUMENTARTRowDeletedEvent) Is Nothing) Then @@ -2240,7 +2228,7 @@ Partial Public Class MyDataset 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_DOKUMENTARTRowDeletingEvent) Is Nothing) Then @@ -2249,13 +2237,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) 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() @@ -2344,7 +2332,7 @@ Partial Public Class MyDataset 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_EINGANGSARTEN" @@ -2354,7 +2342,7 @@ Partial Public Class MyDataset 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 @@ -2372,14 +2360,14 @@ Partial Public Class MyDataset 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 @@ -2387,7 +2375,7 @@ Partial Public Class MyDataset 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 @@ -2395,7 +2383,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBESCHREIBUNG @@ -2403,7 +2391,7 @@ Partial Public Class MyDataset 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 @@ -2411,7 +2399,7 @@ Partial Public Class MyDataset 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 @@ -2419,7 +2407,7 @@ Partial Public Class MyDataset 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 @@ -2427,7 +2415,7 @@ Partial Public Class MyDataset 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 @@ -2435,7 +2423,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -2444,33 +2432,33 @@ Partial Public Class MyDataset 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_EINGANGSARTENRow Get Return CType(Me.Rows(index),TBDD_EINGANGSARTENRow) End Get End Property - _ + _ Public Event TBDD_EINGANGSARTENRowChanging As TBDD_EINGANGSARTENRowChangeEventHandler - _ + _ Public Event TBDD_EINGANGSARTENRowChanged As TBDD_EINGANGSARTENRowChangeEventHandler - _ + _ Public Event TBDD_EINGANGSARTENRowDeleting As TBDD_EINGANGSARTENRowChangeEventHandler - _ + _ Public Event TBDD_EINGANGSARTENRowDeleted As TBDD_EINGANGSARTENRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBDD_EINGANGSARTENRow(ByVal GUID As Byte, ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_EINGANGSARTENRow Dim rowTBDD_EINGANGSARTENRow As TBDD_EINGANGSARTENRow = CType(Me.NewRow,TBDD_EINGANGSARTENRow) Dim columnValuesArray() As Object = New Object() {GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} @@ -2480,13 +2468,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Byte) As TBDD_EINGANGSARTENRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EINGANGSARTENRow) 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_EINGANGSARTENDataTable = CType(MyBase.Clone,TBDD_EINGANGSARTENDataTable) cln.InitVars @@ -2494,13 +2482,13 @@ Partial Public Class MyDataset 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_EINGANGSARTENDataTable() 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") @@ -2512,7 +2500,7 @@ Partial Public Class MyDataset 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(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2541,25 +2529,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow Return CType(Me.NewRow,TBDD_EINGANGSARTENRow) 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_EINGANGSARTENRow(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_EINGANGSARTENRow) 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_EINGANGSARTENRowChangedEvent) Is Nothing) Then @@ -2568,7 +2556,7 @@ Partial Public Class MyDataset 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_EINGANGSARTENRowChangingEvent) Is Nothing) Then @@ -2577,7 +2565,7 @@ Partial Public Class MyDataset 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_EINGANGSARTENRowDeletedEvent) Is Nothing) Then @@ -2586,7 +2574,7 @@ Partial Public Class MyDataset 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_EINGANGSARTENRowDeletingEvent) Is Nothing) Then @@ -2595,13 +2583,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) 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() @@ -2680,7 +2668,7 @@ Partial Public Class MyDataset 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 = "TBDD_DOKART_MODULE" @@ -2690,7 +2678,7 @@ Partial Public Class MyDataset 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 @@ -2708,14 +2696,14 @@ Partial Public Class MyDataset 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 IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID @@ -2723,7 +2711,7 @@ Partial Public Class MyDataset 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 @@ -2731,7 +2719,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -2740,33 +2728,33 @@ Partial Public Class MyDataset 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_DOKART_MODULERow Get Return CType(Me.Rows(index),TBDD_DOKART_MODULERow) End Get End Property - _ + _ Public Event TBDD_DOKART_MODULERowChanging As TBDD_DOKART_MODULERowChangeEventHandler - _ + _ Public Event TBDD_DOKART_MODULERowChanged As TBDD_DOKART_MODULERowChangeEventHandler - _ + _ Public Event TBDD_DOKART_MODULERowDeleting As TBDD_DOKART_MODULERowChangeEventHandler - _ + _ Public Event TBDD_DOKART_MODULERowDeleted As TBDD_DOKART_MODULERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBDD_DOKART_MODULERow(ByVal row As TBDD_DOKART_MODULERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBDD_DOKART_MODULERow(ByVal NAME As String) As TBDD_DOKART_MODULERow Dim rowTBDD_DOKART_MODULERow As TBDD_DOKART_MODULERow = CType(Me.NewRow,TBDD_DOKART_MODULERow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME} @@ -2776,13 +2764,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByID(ByVal ID As Integer) As TBDD_DOKART_MODULERow Return CType(Me.Rows.Find(New Object() {ID}),TBDD_DOKART_MODULERow) 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_DOKART_MODULEDataTable = CType(MyBase.Clone,TBDD_DOKART_MODULEDataTable) cln.InitVars @@ -2790,20 +2778,20 @@ Partial Public Class MyDataset 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_DOKART_MODULEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnNAME = MyBase.Columns("NAME") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) @@ -2820,25 +2808,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBDD_DOKART_MODULERow() As TBDD_DOKART_MODULERow Return CType(Me.NewRow,TBDD_DOKART_MODULERow) 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_DOKART_MODULERow(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_DOKART_MODULERow) 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_DOKART_MODULERowChangedEvent) Is Nothing) Then @@ -2847,7 +2835,7 @@ Partial Public Class MyDataset 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_DOKART_MODULERowChangingEvent) Is Nothing) Then @@ -2856,7 +2844,7 @@ Partial Public Class MyDataset 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_DOKART_MODULERowDeletedEvent) Is Nothing) Then @@ -2865,7 +2853,7 @@ Partial Public Class MyDataset 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_DOKART_MODULERowDeletingEvent) Is Nothing) Then @@ -2874,13 +2862,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBDD_DOKART_MODULERow(ByVal row As TBDD_DOKART_MODULERow) 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() @@ -2959,7 +2947,7 @@ Partial Public Class MyDataset 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 = "TBDD_MODULES" @@ -2969,7 +2957,7 @@ Partial Public Class MyDataset 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 @@ -2987,14 +2975,14 @@ Partial Public Class MyDataset 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 @@ -3002,7 +2990,7 @@ Partial Public Class MyDataset 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 @@ -3010,7 +2998,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -3019,33 +3007,33 @@ Partial Public Class MyDataset 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_MODULESRow Get Return CType(Me.Rows(index),TBDD_MODULESRow) End Get End Property - _ + _ Public Event TBDD_MODULESRowChanging As TBDD_MODULESRowChangeEventHandler - _ + _ Public Event TBDD_MODULESRowChanged As TBDD_MODULESRowChangeEventHandler - _ + _ Public Event TBDD_MODULESRowDeleting As TBDD_MODULESRowChangeEventHandler - _ + _ Public Event TBDD_MODULESRowDeleted As TBDD_MODULESRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBDD_MODULESRow(ByVal NAME As String) As TBDD_MODULESRow Dim rowTBDD_MODULESRow As TBDD_MODULESRow = CType(Me.NewRow,TBDD_MODULESRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME} @@ -3055,13 +3043,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_MODULESRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_MODULESRow) 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_MODULESDataTable = CType(MyBase.Clone,TBDD_MODULESDataTable) cln.InitVars @@ -3069,20 +3057,20 @@ Partial Public Class MyDataset 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_MODULESDataTable() 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) @@ -3099,25 +3087,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBDD_MODULESRow() As TBDD_MODULESRow Return CType(Me.NewRow,TBDD_MODULESRow) 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_MODULESRow(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_MODULESRow) 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_MODULESRowChangedEvent) Is Nothing) Then @@ -3126,7 +3114,7 @@ Partial Public Class MyDataset 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_MODULESRowChangingEvent) Is Nothing) Then @@ -3135,7 +3123,7 @@ Partial Public Class MyDataset 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_MODULESRowDeletedEvent) Is Nothing) Then @@ -3144,7 +3132,7 @@ Partial Public Class MyDataset 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_MODULESRowDeletingEvent) Is Nothing) Then @@ -3153,13 +3141,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) 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() @@ -3272,7 +3260,7 @@ Partial Public Class MyDataset Private columnSAVE_VALUE 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_INDEX_MAN" @@ -3282,7 +3270,7 @@ Partial Public Class MyDataset 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 @@ -3300,14 +3288,14 @@ Partial Public Class MyDataset 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 @@ -3315,7 +3303,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DOK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOK_ID @@ -3323,7 +3311,7 @@ Partial Public Class MyDataset 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 @@ -3331,7 +3319,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property WD_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_INDEX @@ -3339,7 +3327,7 @@ Partial Public Class MyDataset 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 @@ -3347,7 +3335,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DATATYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnDATATYPE @@ -3355,7 +3343,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUGGESTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnSUGGESTION @@ -3363,7 +3351,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnDEFAULT_VALUE @@ -3371,7 +3359,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID @@ -3379,7 +3367,7 @@ Partial Public Class MyDataset 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 @@ -3387,7 +3375,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_RESULT @@ -3395,7 +3383,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SQL_CHECKColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_CHECK @@ -3403,7 +3391,7 @@ Partial Public Class MyDataset 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 @@ -3411,7 +3399,7 @@ Partial Public Class MyDataset 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 @@ -3419,7 +3407,7 @@ Partial Public Class MyDataset 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 @@ -3427,7 +3415,7 @@ Partial Public Class MyDataset 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 @@ -3435,7 +3423,7 @@ Partial Public Class MyDataset 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 @@ -3443,7 +3431,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property OPTIONALColumn() As Global.System.Data.DataColumn Get Return Me.columnOPTIONAL @@ -3451,7 +3439,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SAVE_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnSAVE_VALUE @@ -3459,7 +3447,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -3468,33 +3456,33 @@ Partial Public Class MyDataset 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_INDEX_MANRow Get Return CType(Me.Rows(index),TBDD_INDEX_MANRow) End Get End Property - _ + _ Public Event TBDD_INDEX_MANRowChanging As TBDD_INDEX_MANRowChangeEventHandler - _ + _ Public Event TBDD_INDEX_MANRowChanged As TBDD_INDEX_MANRowChangeEventHandler - _ + _ Public Event TBDD_INDEX_MANRowDeleting As TBDD_INDEX_MANRowChangeEventHandler - _ + _ Public Event TBDD_INDEX_MANRowDeleted As TBDD_INDEX_MANRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBDD_INDEX_MANRow(ByVal row As TBDD_INDEX_MANRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBDD_INDEX_MANRow( _ ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID As TBDD_DOKUMENTARTRow, _ ByVal NAME As String, _ @@ -3528,13 +3516,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_MANRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_MANRow) 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_INDEX_MANDataTable = CType(MyBase.Clone,TBDD_INDEX_MANDataTable) cln.InitVars @@ -3542,13 +3530,13 @@ Partial Public Class MyDataset 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_INDEX_MANDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnDOK_ID = MyBase.Columns("DOK_ID") @@ -3572,7 +3560,7 @@ Partial Public Class MyDataset 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) @@ -3652,25 +3640,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBDD_INDEX_MANRow() As TBDD_INDEX_MANRow Return CType(Me.NewRow,TBDD_INDEX_MANRow) 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_INDEX_MANRow(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_INDEX_MANRow) 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_INDEX_MANRowChangedEvent) Is Nothing) Then @@ -3679,7 +3667,7 @@ Partial Public Class MyDataset 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_INDEX_MANRowChangingEvent) Is Nothing) Then @@ -3688,7 +3676,7 @@ Partial Public Class MyDataset 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_INDEX_MANRowDeletedEvent) Is Nothing) Then @@ -3697,7 +3685,7 @@ Partial Public Class MyDataset 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_INDEX_MANRowDeletingEvent) Is Nothing) Then @@ -3706,13 +3694,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBDD_INDEX_MANRow(ByVal row As TBDD_INDEX_MANRow) 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() @@ -3813,7 +3801,7 @@ Partial Public Class MyDataset 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" @@ -3823,7 +3811,7 @@ Partial Public Class MyDataset 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 @@ -3841,14 +3829,14 @@ Partial Public Class MyDataset 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 @@ -3856,7 +3844,7 @@ Partial Public Class MyDataset 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 @@ -3864,7 +3852,7 @@ Partial Public Class MyDataset 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 @@ -3872,7 +3860,7 @@ Partial Public Class MyDataset 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 @@ -3880,7 +3868,7 @@ Partial Public Class MyDataset 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 @@ -3888,7 +3876,7 @@ Partial Public Class MyDataset 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 @@ -3896,7 +3884,7 @@ Partial Public Class MyDataset 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 @@ -3904,7 +3892,7 @@ Partial Public Class MyDataset 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 @@ -3912,7 +3900,7 @@ Partial Public Class MyDataset 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 @@ -3920,7 +3908,7 @@ Partial Public Class MyDataset 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 @@ -3928,7 +3916,7 @@ Partial Public Class MyDataset 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 @@ -3936,7 +3924,7 @@ Partial Public Class MyDataset 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 @@ -3944,7 +3932,7 @@ Partial Public Class MyDataset 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 @@ -3952,7 +3940,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -3961,33 +3949,33 @@ Partial Public Class MyDataset 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} @@ -3997,13 +3985,13 @@ Partial Public Class MyDataset 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 @@ -4011,13 +3999,13 @@ Partial Public Class MyDataset 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") @@ -4035,7 +4023,7 @@ Partial Public Class MyDataset 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) @@ -4083,25 +4071,25 @@ Partial Public Class MyDataset 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 @@ -4110,7 +4098,7 @@ Partial Public Class MyDataset 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 @@ -4119,7 +4107,7 @@ Partial Public Class MyDataset 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 @@ -4128,7 +4116,7 @@ Partial Public Class MyDataset 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 @@ -4137,13 +4125,13 @@ Partial Public Class MyDataset 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() @@ -4264,7 +4252,7 @@ Partial Public Class MyDataset Private columnSAVE_VALUE 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 = "VWDDINDEX_MAN" @@ -4274,7 +4262,7 @@ Partial Public Class MyDataset 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 @@ -4292,14 +4280,14 @@ Partial Public Class MyDataset 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 @@ -4307,7 +4295,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME @@ -4315,7 +4303,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property WD_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_INDEX @@ -4323,7 +4311,7 @@ Partial Public Class MyDataset 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 @@ -4331,7 +4319,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DATATYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnDATATYPE @@ -4339,7 +4327,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DOK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOK_ID @@ -4347,7 +4335,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DOKUMENTARTColumn() As Global.System.Data.DataColumn Get Return Me.columnDOKUMENTART @@ -4355,7 +4343,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnKURZNAME @@ -4363,7 +4351,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUGGESTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnSUGGESTION @@ -4371,7 +4359,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID @@ -4379,7 +4367,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CONNECTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION @@ -4387,7 +4375,7 @@ Partial Public Class MyDataset 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 @@ -4395,7 +4383,7 @@ Partial Public Class MyDataset 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 @@ -4403,7 +4391,7 @@ Partial Public Class MyDataset 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 @@ -4411,7 +4399,7 @@ Partial Public Class MyDataset 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 @@ -4419,7 +4407,7 @@ Partial Public Class MyDataset 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 @@ -4427,7 +4415,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_RESULT @@ -4435,7 +4423,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SQL_CHECKColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_CHECK @@ -4443,7 +4431,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IndexiertColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexiert @@ -4451,7 +4439,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IndexwertColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexwert @@ -4459,7 +4447,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property OPTIONALColumn() As Global.System.Data.DataColumn Get Return Me.columnOPTIONAL @@ -4467,7 +4455,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Indexwert_FileColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexwert_File @@ -4475,7 +4463,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SAVE_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnSAVE_VALUE @@ -4483,7 +4471,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -4492,33 +4480,33 @@ Partial Public Class MyDataset 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 VWDDINDEX_MANRow Get Return CType(Me.Rows(index),VWDDINDEX_MANRow) End Get End Property - _ + _ Public Event VWDDINDEX_MANRowChanging As VWDDINDEX_MANRowChangeEventHandler - _ + _ Public Event VWDDINDEX_MANRowChanged As VWDDINDEX_MANRowChangeEventHandler - _ + _ Public Event VWDDINDEX_MANRowDeleting As VWDDINDEX_MANRowChangeEventHandler - _ + _ Public Event VWDDINDEX_MANRowDeleted As VWDDINDEX_MANRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWDDINDEX_MANRow(ByVal row As VWDDINDEX_MANRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWDDINDEX_MANRow( _ ByVal GUID As Integer, _ ByVal INDEXNAME As String, _ @@ -4551,13 +4539,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As VWDDINDEX_MANRow Return CType(Me.Rows.Find(New Object() {GUID}),VWDDINDEX_MANRow) 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 VWDDINDEX_MANDataTable = CType(MyBase.Clone,VWDDINDEX_MANDataTable) cln.InitVars @@ -4565,13 +4553,13 @@ Partial Public Class MyDataset 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 VWDDINDEX_MANDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") @@ -4599,7 +4587,7 @@ Partial Public Class MyDataset 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) @@ -4686,25 +4674,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWDDINDEX_MANRow() As VWDDINDEX_MANRow Return CType(Me.NewRow,VWDDINDEX_MANRow) 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 VWDDINDEX_MANRow(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(VWDDINDEX_MANRow) 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.VWDDINDEX_MANRowChangedEvent) Is Nothing) Then @@ -4713,7 +4701,7 @@ Partial Public Class MyDataset 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.VWDDINDEX_MANRowChangingEvent) Is Nothing) Then @@ -4722,7 +4710,7 @@ Partial Public Class MyDataset 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.VWDDINDEX_MANRowDeletedEvent) Is Nothing) Then @@ -4731,7 +4719,7 @@ Partial Public Class MyDataset 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.VWDDINDEX_MANRowDeletingEvent) Is Nothing) Then @@ -4740,13 +4728,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWDDINDEX_MANRow(ByVal row As VWDDINDEX_MANRow) 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() @@ -4857,7 +4845,7 @@ Partial Public Class MyDataset Private columnSQL_ACTIVE 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 = "VWDDINDEX_AUTOM" @@ -4867,7 +4855,7 @@ Partial Public Class MyDataset 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 @@ -4885,14 +4873,14 @@ Partial Public Class MyDataset 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 @@ -4900,7 +4888,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME @@ -4908,7 +4896,7 @@ Partial Public Class MyDataset 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 @@ -4916,7 +4904,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOCTYPE_ID @@ -4924,7 +4912,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DOKUMENTARTColumn() As Global.System.Data.DataColumn Get Return Me.columnDOKUMENTART @@ -4932,7 +4920,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnKURZNAME @@ -4940,7 +4928,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID @@ -4948,7 +4936,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CONNECTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION @@ -4956,7 +4944,7 @@ Partial Public Class MyDataset 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 @@ -4964,7 +4952,7 @@ Partial Public Class MyDataset 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 @@ -4972,7 +4960,7 @@ Partial Public Class MyDataset 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 @@ -4980,7 +4968,7 @@ Partial Public Class MyDataset 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 @@ -4988,7 +4976,7 @@ Partial Public Class MyDataset 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 @@ -4996,7 +4984,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_RESULT @@ -5004,7 +4992,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IndexiertColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexiert @@ -5012,7 +5000,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IndexwertColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexwert @@ -5020,7 +5008,7 @@ Partial Public Class MyDataset 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 @@ -5028,7 +5016,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SQL_ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_ACTIVE @@ -5036,7 +5024,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -5045,33 +5033,33 @@ Partial Public Class MyDataset 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 VWDDINDEX_AUTOMRow Get Return CType(Me.Rows(index),VWDDINDEX_AUTOMRow) End Get End Property - _ + _ Public Event VWDDINDEX_AUTOMRowChanging As VWDDINDEX_AUTOMRowChangeEventHandler - _ + _ Public Event VWDDINDEX_AUTOMRowChanged As VWDDINDEX_AUTOMRowChangeEventHandler - _ + _ Public Event VWDDINDEX_AUTOMRowDeleting As VWDDINDEX_AUTOMRowChangeEventHandler - _ + _ Public Event VWDDINDEX_AUTOMRowDeleted As VWDDINDEX_AUTOMRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWDDINDEX_AUTOMRow(ByVal row As VWDDINDEX_AUTOMRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWDDINDEX_AUTOMRow( _ ByVal GUID As Integer, _ ByVal INDEXNAME As String, _ @@ -5099,13 +5087,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As VWDDINDEX_AUTOMRow Return CType(Me.Rows.Find(New Object() {GUID}),VWDDINDEX_AUTOMRow) 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 VWDDINDEX_AUTOMDataTable = CType(MyBase.Clone,VWDDINDEX_AUTOMDataTable) cln.InitVars @@ -5113,13 +5101,13 @@ Partial Public Class MyDataset 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 VWDDINDEX_AUTOMDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") @@ -5142,7 +5130,7 @@ Partial Public Class MyDataset 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) @@ -5207,25 +5195,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWDDINDEX_AUTOMRow() As VWDDINDEX_AUTOMRow Return CType(Me.NewRow,VWDDINDEX_AUTOMRow) 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 VWDDINDEX_AUTOMRow(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(VWDDINDEX_AUTOMRow) 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.VWDDINDEX_AUTOMRowChangedEvent) Is Nothing) Then @@ -5234,7 +5222,7 @@ Partial Public Class MyDataset 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.VWDDINDEX_AUTOMRowChangingEvent) Is Nothing) Then @@ -5243,7 +5231,7 @@ Partial Public Class MyDataset 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.VWDDINDEX_AUTOMRowDeletedEvent) Is Nothing) Then @@ -5252,7 +5240,7 @@ Partial Public Class MyDataset 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.VWDDINDEX_AUTOMRowDeletingEvent) Is Nothing) Then @@ -5261,13 +5249,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWDDINDEX_AUTOMRow(ByVal row As VWDDINDEX_AUTOMRow) 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() @@ -5368,7 +5356,7 @@ Partial Public Class MyDataset Private columnSQL_ACTIVE 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_INDEX_AUTOM" @@ -5378,7 +5366,7 @@ Partial Public Class MyDataset 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 @@ -5396,14 +5384,14 @@ Partial Public Class MyDataset 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 @@ -5411,7 +5399,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOCTYPE_ID @@ -5419,7 +5407,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME @@ -5427,7 +5415,7 @@ Partial Public Class MyDataset 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 @@ -5435,7 +5423,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONNECTION_ID @@ -5443,7 +5431,7 @@ Partial Public Class MyDataset 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 @@ -5451,7 +5439,7 @@ Partial Public Class MyDataset 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 @@ -5459,7 +5447,7 @@ Partial Public Class MyDataset 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 @@ -5467,7 +5455,7 @@ Partial Public Class MyDataset 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 @@ -5475,7 +5463,7 @@ Partial Public Class MyDataset 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 @@ -5483,7 +5471,7 @@ Partial Public Class MyDataset 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 @@ -5491,7 +5479,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_RESULT @@ -5499,7 +5487,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SQL_ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_ACTIVE @@ -5507,7 +5495,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -5516,33 +5504,33 @@ Partial Public Class MyDataset 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_INDEX_AUTOMRow Get Return CType(Me.Rows(index),TBDD_INDEX_AUTOMRow) End Get End Property - _ + _ Public Event TBDD_INDEX_AUTOMRowChanging As TBDD_INDEX_AUTOMRowChangeEventHandler - _ + _ Public Event TBDD_INDEX_AUTOMRowChanged As TBDD_INDEX_AUTOMRowChangeEventHandler - _ + _ Public Event TBDD_INDEX_AUTOMRowDeleting As TBDD_INDEX_AUTOMRowChangeEventHandler - _ + _ Public Event TBDD_INDEX_AUTOMRowDeleted As TBDD_INDEX_AUTOMRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean) As TBDD_INDEX_AUTOMRow Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE} @@ -5555,13 +5543,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_AUTOMRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_AUTOMRow) 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_INDEX_AUTOMDataTable = CType(MyBase.Clone,TBDD_INDEX_AUTOMDataTable) cln.InitVars @@ -5569,13 +5557,13 @@ Partial Public Class MyDataset 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_INDEX_AUTOMDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") @@ -5593,7 +5581,7 @@ Partial Public Class MyDataset 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) @@ -5645,25 +5633,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBDD_INDEX_AUTOMRow() As TBDD_INDEX_AUTOMRow Return CType(Me.NewRow,TBDD_INDEX_AUTOMRow) 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_INDEX_AUTOMRow(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_INDEX_AUTOMRow) 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_INDEX_AUTOMRowChangedEvent) Is Nothing) Then @@ -5672,7 +5660,7 @@ Partial Public Class MyDataset 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_INDEX_AUTOMRowChangingEvent) Is Nothing) Then @@ -5681,7 +5669,7 @@ Partial Public Class MyDataset 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_INDEX_AUTOMRowDeletedEvent) Is Nothing) Then @@ -5690,7 +5678,7 @@ Partial Public Class MyDataset 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_INDEX_AUTOMRowDeletingEvent) Is Nothing) Then @@ -5699,13 +5687,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) 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() @@ -5796,7 +5784,7 @@ Partial Public Class MyDataset 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 = "TBGI_CONFIGURATION" @@ -5806,7 +5794,7 @@ Partial Public Class MyDataset 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 @@ -5824,14 +5812,14 @@ Partial Public Class MyDataset 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 @@ -5839,7 +5827,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDX_EMAIL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_ID @@ -5847,7 +5835,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDX_EMAIL_FROMColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_FROM @@ -5855,7 +5843,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDX_EMAIL_TOColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_TO @@ -5863,7 +5851,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDX_EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_SUBJECT @@ -5871,7 +5859,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDX_EMAIL_DATE_INColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_DATE_IN @@ -5879,7 +5867,7 @@ Partial Public Class MyDataset 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 @@ -5887,7 +5875,7 @@ Partial Public Class MyDataset 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 @@ -5895,7 +5883,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -5904,33 +5892,33 @@ Partial Public Class MyDataset 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 TBGI_CONFIGURATIONRow Get Return CType(Me.Rows(index),TBGI_CONFIGURATIONRow) End Get End Property - _ + _ Public Event TBGI_CONFIGURATIONRowChanging As TBGI_CONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBGI_CONFIGURATIONRowChanged As TBGI_CONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBGI_CONFIGURATIONRowDeleting As TBGI_CONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBGI_CONFIGURATIONRowDeleted As TBGI_CONFIGURATIONRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBGI_CONFIGURATIONRow(ByVal row As TBGI_CONFIGURATIONRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBGI_CONFIGURATIONRow(ByVal GUID As Byte, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBGI_CONFIGURATIONRow Dim rowTBGI_CONFIGURATIONRow As TBGI_CONFIGURATIONRow = CType(Me.NewRow,TBGI_CONFIGURATIONRow) Dim columnValuesArray() As Object = New Object() {GUID, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, CHANGED_WHO, CHANGED_WHEN} @@ -5940,13 +5928,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Byte) As TBGI_CONFIGURATIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_CONFIGURATIONRow) 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 TBGI_CONFIGURATIONDataTable = CType(MyBase.Clone,TBGI_CONFIGURATIONDataTable) cln.InitVars @@ -5954,13 +5942,13 @@ Partial Public Class MyDataset 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 TBGI_CONFIGURATIONDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnIDX_EMAIL_ID = MyBase.Columns("IDX_EMAIL_ID") @@ -5973,7 +5961,7 @@ Partial Public Class MyDataset 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(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -6009,25 +5997,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBGI_CONFIGURATIONRow() As TBGI_CONFIGURATIONRow Return CType(Me.NewRow,TBGI_CONFIGURATIONRow) 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 TBGI_CONFIGURATIONRow(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(TBGI_CONFIGURATIONRow) 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.TBGI_CONFIGURATIONRowChangedEvent) Is Nothing) Then @@ -6036,7 +6024,7 @@ Partial Public Class MyDataset 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.TBGI_CONFIGURATIONRowChangingEvent) Is Nothing) Then @@ -6045,7 +6033,7 @@ Partial Public Class MyDataset 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.TBGI_CONFIGURATIONRowDeletedEvent) Is Nothing) Then @@ -6054,7 +6042,7 @@ Partial Public Class MyDataset 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.TBGI_CONFIGURATIONRowDeletingEvent) Is Nothing) Then @@ -6063,13 +6051,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBGI_CONFIGURATIONRow(ByVal row As TBGI_CONFIGURATIONRow) 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() @@ -6168,7 +6156,7 @@ Partial Public Class MyDataset Private columnIDX_CHECK_ATTACHMENT 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 = "TBGI_OBJECTTYPE_EMAIL_INDEX" @@ -6178,7 +6166,7 @@ Partial Public Class MyDataset 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 @@ -6196,14 +6184,14 @@ Partial Public Class MyDataset 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 @@ -6211,7 +6199,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property OBJECTTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJECTTYPE @@ -6219,7 +6207,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDX_EMAIL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_ID @@ -6227,7 +6215,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDX_EMAIL_FROMColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_FROM @@ -6235,7 +6223,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDX_EMAIL_TOColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_TO @@ -6243,7 +6231,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDX_EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_SUBJECT @@ -6251,7 +6239,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDX_EMAIL_DATE_INColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_EMAIL_DATE_IN @@ -6259,7 +6247,7 @@ Partial Public Class MyDataset 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 @@ -6267,7 +6255,7 @@ Partial Public Class MyDataset 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 @@ -6275,7 +6263,7 @@ Partial Public Class MyDataset 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 @@ -6283,7 +6271,7 @@ Partial Public Class MyDataset 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 @@ -6291,7 +6279,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDX_CHECK_ATTACHMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnIDX_CHECK_ATTACHMENT @@ -6299,7 +6287,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -6308,33 +6296,33 @@ Partial Public Class MyDataset 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 TBGI_OBJECTTYPE_EMAIL_INDEXRow Get Return CType(Me.Rows(index),TBGI_OBJECTTYPE_EMAIL_INDEXRow) End Get End Property - _ + _ Public Event TBGI_OBJECTTYPE_EMAIL_INDEXRowChanging As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler - _ + _ Public Event TBGI_OBJECTTYPE_EMAIL_INDEXRowChanged As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler - _ + _ Public Event TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleting As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler - _ + _ Public Event TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleted As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBGI_OBJECTTYPE_EMAIL_INDEXRow(ByVal row As TBGI_OBJECTTYPE_EMAIL_INDEXRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBGI_OBJECTTYPE_EMAIL_INDEXRow(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal IDX_CHECK_ATTACHMENT As String) As TBGI_OBJECTTYPE_EMAIL_INDEXRow Dim rowTBGI_OBJECTTYPE_EMAIL_INDEXRow As TBGI_OBJECTTYPE_EMAIL_INDEXRow = CType(Me.NewRow,TBGI_OBJECTTYPE_EMAIL_INDEXRow) Dim columnValuesArray() As Object = New Object() {Nothing, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDX_CHECK_ATTACHMENT} @@ -6344,13 +6332,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBGI_OBJECTTYPE_EMAIL_INDEXRow Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_OBJECTTYPE_EMAIL_INDEXRow) 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 TBGI_OBJECTTYPE_EMAIL_INDEXDataTable = CType(MyBase.Clone,TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) cln.InitVars @@ -6358,13 +6346,13 @@ Partial Public Class MyDataset 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 TBGI_OBJECTTYPE_EMAIL_INDEXDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnOBJECTTYPE = MyBase.Columns("OBJECTTYPE") @@ -6381,7 +6369,7 @@ Partial Public Class MyDataset 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) @@ -6433,25 +6421,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBGI_OBJECTTYPE_EMAIL_INDEXRow() As TBGI_OBJECTTYPE_EMAIL_INDEXRow Return CType(Me.NewRow,TBGI_OBJECTTYPE_EMAIL_INDEXRow) 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 TBGI_OBJECTTYPE_EMAIL_INDEXRow(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(TBGI_OBJECTTYPE_EMAIL_INDEXRow) 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.TBGI_OBJECTTYPE_EMAIL_INDEXRowChangedEvent) Is Nothing) Then @@ -6460,7 +6448,7 @@ Partial Public Class MyDataset 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.TBGI_OBJECTTYPE_EMAIL_INDEXRowChangingEvent) Is Nothing) Then @@ -6469,7 +6457,7 @@ Partial Public Class MyDataset 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.TBGI_OBJECTTYPE_EMAIL_INDEXRowDeletedEvent) Is Nothing) Then @@ -6478,7 +6466,7 @@ Partial Public Class MyDataset 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.TBGI_OBJECTTYPE_EMAIL_INDEXRowDeletingEvent) Is Nothing) Then @@ -6487,13 +6475,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBGI_OBJECTTYPE_EMAIL_INDEXRow(ByVal row As TBGI_OBJECTTYPE_EMAIL_INDEXRow) 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() @@ -6598,7 +6586,7 @@ Partial Public Class MyDataset Private columnVARIANT 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_INDEX_MAN_POSTPROCESSING" @@ -6608,7 +6596,7 @@ Partial Public Class MyDataset 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 @@ -6626,14 +6614,14 @@ Partial Public Class MyDataset 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 @@ -6641,7 +6629,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IDXMAN_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnIDXMAN_ID @@ -6649,7 +6637,7 @@ Partial Public Class MyDataset 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 @@ -6657,7 +6645,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE @@ -6665,7 +6653,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FUNCTION1Column() As Global.System.Data.DataColumn Get Return Me.columnFUNCTION1 @@ -6673,7 +6661,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FUNCTION2Column() As Global.System.Data.DataColumn Get Return Me.columnFUNCTION2 @@ -6681,7 +6669,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TEXT1Column() As Global.System.Data.DataColumn Get Return Me.columnTEXT1 @@ -6689,7 +6677,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TEXT2Column() As Global.System.Data.DataColumn Get Return Me.columnTEXT2 @@ -6697,7 +6685,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TEXT3Column() As Global.System.Data.DataColumn Get Return Me.columnTEXT3 @@ -6705,7 +6693,7 @@ Partial Public Class MyDataset 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 @@ -6713,7 +6701,7 @@ Partial Public Class MyDataset 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 @@ -6721,7 +6709,7 @@ Partial Public Class MyDataset 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 @@ -6729,7 +6717,7 @@ Partial Public Class MyDataset 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 @@ -6737,7 +6725,7 @@ Partial Public Class MyDataset 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 @@ -6745,7 +6733,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VARIANTColumn() As Global.System.Data.DataColumn Get Return Me.columnVARIANT @@ -6753,7 +6741,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -6762,33 +6750,33 @@ Partial Public Class MyDataset 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_INDEX_MAN_POSTPROCESSINGRow Get Return CType(Me.Rows(index),TBDD_INDEX_MAN_POSTPROCESSINGRow) End Get End Property - _ + _ Public Event TBDD_INDEX_MAN_POSTPROCESSINGRowChanging As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler - _ + _ Public Event TBDD_INDEX_MAN_POSTPROCESSINGRowChanged As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler - _ + _ Public Event TBDD_INDEX_MAN_POSTPROCESSINGRowDeleting As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler - _ + _ Public Event TBDD_INDEX_MAN_POSTPROCESSINGRowDeleted As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBDD_INDEX_MAN_POSTPROCESSINGRow(ByVal row As TBDD_INDEX_MAN_POSTPROCESSINGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBDD_INDEX_MAN_POSTPROCESSINGRow(ByVal parentTBDD_INDEX_MANRowByFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID As TBDD_INDEX_MANRow, ByVal COMMENT As String, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal TEXT3 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal _VARIANT As String) As TBDD_INDEX_MAN_POSTPROCESSINGRow Dim rowTBDD_INDEX_MAN_POSTPROCESSINGRow As TBDD_INDEX_MAN_POSTPROCESSINGRow = CType(Me.NewRow,TBDD_INDEX_MAN_POSTPROCESSINGRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, COMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, _VARIANT} @@ -6801,13 +6789,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_MAN_POSTPROCESSINGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_MAN_POSTPROCESSINGRow) 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_INDEX_MAN_POSTPROCESSINGDataTable = CType(MyBase.Clone,TBDD_INDEX_MAN_POSTPROCESSINGDataTable) cln.InitVars @@ -6815,13 +6803,13 @@ Partial Public Class MyDataset 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_INDEX_MAN_POSTPROCESSINGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnIDXMAN_ID = MyBase.Columns("IDXMAN_ID") @@ -6841,7 +6829,7 @@ Partial Public Class MyDataset 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) @@ -6899,25 +6887,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBDD_INDEX_MAN_POSTPROCESSINGRow() As TBDD_INDEX_MAN_POSTPROCESSINGRow Return CType(Me.NewRow,TBDD_INDEX_MAN_POSTPROCESSINGRow) 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_INDEX_MAN_POSTPROCESSINGRow(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_INDEX_MAN_POSTPROCESSINGRow) 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_INDEX_MAN_POSTPROCESSINGRowChangedEvent) Is Nothing) Then @@ -6926,7 +6914,7 @@ Partial Public Class MyDataset 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_INDEX_MAN_POSTPROCESSINGRowChangingEvent) Is Nothing) Then @@ -6935,7 +6923,7 @@ Partial Public Class MyDataset 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_INDEX_MAN_POSTPROCESSINGRowDeletedEvent) Is Nothing) Then @@ -6944,7 +6932,7 @@ Partial Public Class MyDataset 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_INDEX_MAN_POSTPROCESSINGRowDeletingEvent) Is Nothing) Then @@ -6953,13 +6941,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBDD_INDEX_MAN_POSTPROCESSINGRow(ByVal row As TBDD_INDEX_MAN_POSTPROCESSINGRow) 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() @@ -7038,7 +7026,7 @@ Partial Public Class MyDataset 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 = "TBWHDD_INDEX_MAN" @@ -7048,7 +7036,7 @@ Partial Public Class MyDataset 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 @@ -7066,14 +7054,14 @@ Partial Public Class MyDataset 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 @@ -7081,7 +7069,7 @@ Partial Public Class MyDataset 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 @@ -7089,7 +7077,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -7098,33 +7086,33 @@ Partial Public Class MyDataset 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 TBWHDD_INDEX_MANRow Get Return CType(Me.Rows(index),TBWHDD_INDEX_MANRow) End Get End Property - _ + _ Public Event TBWHDD_INDEX_MANRowChanging As TBWHDD_INDEX_MANRowChangeEventHandler - _ + _ Public Event TBWHDD_INDEX_MANRowChanged As TBWHDD_INDEX_MANRowChangeEventHandler - _ + _ Public Event TBWHDD_INDEX_MANRowDeleting As TBWHDD_INDEX_MANRowChangeEventHandler - _ + _ Public Event TBWHDD_INDEX_MANRowDeleted As TBWHDD_INDEX_MANRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWHDD_INDEX_MANRow(ByVal row As TBWHDD_INDEX_MANRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWHDD_INDEX_MANRow(ByVal NAME As String) As TBWHDD_INDEX_MANRow Dim rowTBWHDD_INDEX_MANRow As TBWHDD_INDEX_MANRow = CType(Me.NewRow,TBWHDD_INDEX_MANRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME} @@ -7134,13 +7122,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWHDD_INDEX_MANRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWHDD_INDEX_MANRow) 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 TBWHDD_INDEX_MANDataTable = CType(MyBase.Clone,TBWHDD_INDEX_MANDataTable) cln.InitVars @@ -7148,20 +7136,20 @@ Partial Public Class MyDataset 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 TBWHDD_INDEX_MANDataTable() 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) @@ -7179,25 +7167,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWHDD_INDEX_MANRow() As TBWHDD_INDEX_MANRow Return CType(Me.NewRow,TBWHDD_INDEX_MANRow) 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 TBWHDD_INDEX_MANRow(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(TBWHDD_INDEX_MANRow) 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.TBWHDD_INDEX_MANRowChangedEvent) Is Nothing) Then @@ -7206,7 +7194,7 @@ Partial Public Class MyDataset 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.TBWHDD_INDEX_MANRowChangingEvent) Is Nothing) Then @@ -7215,7 +7203,7 @@ Partial Public Class MyDataset 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.TBWHDD_INDEX_MANRowDeletedEvent) Is Nothing) Then @@ -7224,7 +7212,7 @@ Partial Public Class MyDataset 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.TBWHDD_INDEX_MANRowDeletingEvent) Is Nothing) Then @@ -7233,13 +7221,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWHDD_INDEX_MANRow(ByVal row As TBWHDD_INDEX_MANRow) 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() @@ -7326,7 +7314,7 @@ Partial Public Class MyDataset 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 = "TBDD_USER_GROUPS" @@ -7336,7 +7324,7 @@ Partial Public Class MyDataset 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 @@ -7354,14 +7342,14 @@ Partial Public Class MyDataset 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 @@ -7369,7 +7357,7 @@ Partial Public Class MyDataset 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 @@ -7377,7 +7365,7 @@ Partial Public Class MyDataset 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 @@ -7385,7 +7373,7 @@ Partial Public Class MyDataset 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 @@ -7393,7 +7381,7 @@ Partial Public Class MyDataset 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 @@ -7401,7 +7389,7 @@ Partial Public Class MyDataset 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 @@ -7409,7 +7397,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -7418,33 +7406,33 @@ Partial Public Class MyDataset 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_USER_GROUPSRow Get Return CType(Me.Rows(index),TBDD_USER_GROUPSRow) End Get End Property - _ + _ Public Event TBDD_USER_GROUPSRowChanging As TBDD_USER_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_USER_GROUPSRowChanged As TBDD_USER_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_USER_GROUPSRowDeleting As TBDD_USER_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_USER_GROUPSRowDeleted As TBDD_USER_GROUPSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_USER_GROUPSRow Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -7454,13 +7442,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_GROUPSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_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 TBDD_USER_GROUPSDataTable = CType(MyBase.Clone,TBDD_USER_GROUPSDataTable) cln.InitVars @@ -7468,13 +7456,13 @@ Partial Public Class MyDataset 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_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") @@ -7485,7 +7473,7 @@ Partial Public Class MyDataset 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) @@ -7511,25 +7499,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow Return CType(Me.NewRow,TBDD_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 TBDD_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(TBDD_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.TBDD_USER_GROUPSRowChangedEvent) Is Nothing) Then @@ -7538,7 +7526,7 @@ Partial Public Class MyDataset 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_USER_GROUPSRowChangingEvent) Is Nothing) Then @@ -7547,7 +7535,7 @@ Partial Public Class MyDataset 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_USER_GROUPSRowDeletedEvent) Is Nothing) Then @@ -7556,7 +7544,7 @@ Partial Public Class MyDataset 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_USER_GROUPSRowDeletingEvent) Is Nothing) Then @@ -7565,13 +7553,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBDD_USER_GROUPSRow(ByVal row As TBDD_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() @@ -7660,7 +7648,7 @@ Partial Public Class MyDataset 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 = "TBDD_GROUPS_USER" @@ -7670,7 +7658,7 @@ Partial Public Class MyDataset 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 @@ -7688,14 +7676,14 @@ Partial Public Class MyDataset 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 @@ -7703,7 +7691,7 @@ Partial Public Class MyDataset 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 @@ -7711,7 +7699,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP_ID @@ -7719,7 +7707,7 @@ Partial Public Class MyDataset 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 @@ -7727,7 +7715,7 @@ Partial Public Class MyDataset 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 @@ -7735,7 +7723,7 @@ Partial Public Class MyDataset 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 @@ -7743,7 +7731,7 @@ Partial Public Class MyDataset 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 @@ -7751,7 +7739,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -7760,33 +7748,33 @@ Partial Public Class MyDataset 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_GROUPS_USERRow Get Return CType(Me.Rows(index),TBDD_GROUPS_USERRow) End Get End Property - _ + _ Public Event TBDD_GROUPS_USERRowChanging As TBDD_GROUPS_USERRowChangeEventHandler - _ + _ Public Event TBDD_GROUPS_USERRowChanged As TBDD_GROUPS_USERRowChangeEventHandler - _ + _ Public Event TBDD_GROUPS_USERRowDeleting As TBDD_GROUPS_USERRowChangeEventHandler - _ + _ Public Event TBDD_GROUPS_USERRowDeleted As TBDD_GROUPS_USERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal ADDED_WHEN As Date, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPS_USERRow Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow,TBDD_GROUPS_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN} @@ -7802,13 +7790,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_USERRow) 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_GROUPS_USERDataTable = CType(MyBase.Clone,TBDD_GROUPS_USERDataTable) cln.InitVars @@ -7816,13 +7804,13 @@ Partial Public Class MyDataset 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_GROUPS_USERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnUSER_ID = MyBase.Columns("USER_ID") @@ -7834,7 +7822,7 @@ Partial Public Class MyDataset 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) @@ -7864,25 +7852,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBDD_GROUPS_USERRow() As TBDD_GROUPS_USERRow Return CType(Me.NewRow,TBDD_GROUPS_USERRow) 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_GROUPS_USERRow(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_GROUPS_USERRow) 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_GROUPS_USERRowChangedEvent) Is Nothing) Then @@ -7891,7 +7879,7 @@ Partial Public Class MyDataset 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_GROUPS_USERRowChangingEvent) Is Nothing) Then @@ -7900,7 +7888,7 @@ Partial Public Class MyDataset 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_GROUPS_USERRowDeletedEvent) Is Nothing) Then @@ -7909,7 +7897,7 @@ Partial Public Class MyDataset 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_GROUPS_USERRowDeletingEvent) Is Nothing) Then @@ -7918,13 +7906,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) 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() @@ -8017,7 +8005,7 @@ Partial Public Class MyDataset 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 = "VWGI_USER_GROUPS_RELATION" @@ -8027,7 +8015,7 @@ Partial Public Class MyDataset 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 @@ -8045,14 +8033,14 @@ Partial Public Class MyDataset 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 @@ -8060,7 +8048,7 @@ Partial Public Class MyDataset 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 @@ -8068,7 +8056,7 @@ Partial Public Class MyDataset 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 @@ -8076,7 +8064,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP_ID @@ -8084,7 +8072,7 @@ Partial Public Class MyDataset 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 @@ -8092,7 +8080,7 @@ Partial Public Class MyDataset 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 @@ -8100,7 +8088,7 @@ Partial Public Class MyDataset 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 @@ -8108,7 +8096,7 @@ Partial Public Class MyDataset 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 @@ -8116,7 +8104,7 @@ Partial Public Class MyDataset 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 @@ -8124,7 +8112,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -8133,33 +8121,33 @@ Partial Public Class MyDataset 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 VWGI_USER_GROUPS_RELATIONRow Get Return CType(Me.Rows(index),VWGI_USER_GROUPS_RELATIONRow) End Get End Property - _ + _ Public Event VWGI_USER_GROUPS_RELATIONRowChanging As VWGI_USER_GROUPS_RELATIONRowChangeEventHandler - _ + _ Public Event VWGI_USER_GROUPS_RELATIONRowChanged As VWGI_USER_GROUPS_RELATIONRowChangeEventHandler - _ + _ Public Event VWGI_USER_GROUPS_RELATIONRowDeleting As VWGI_USER_GROUPS_RELATIONRowChangeEventHandler - _ + _ Public Event VWGI_USER_GROUPS_RELATIONRowDeleted As VWGI_USER_GROUPS_RELATIONRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWGI_USER_GROUPS_RELATIONRow(ByVal row As VWGI_USER_GROUPS_RELATIONRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWGI_USER_GROUPS_RELATIONRow(ByVal GUID As Integer, ByVal USER_ID As Integer, ByVal USERNAME As String, ByVal GROUP_ID As Integer, ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWGI_USER_GROUPS_RELATIONRow Dim rowVWGI_USER_GROUPS_RELATIONRow As VWGI_USER_GROUPS_RELATIONRow = CType(Me.NewRow,VWGI_USER_GROUPS_RELATIONRow) Dim columnValuesArray() As Object = New Object() {GUID, USER_ID, USERNAME, GROUP_ID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -8169,13 +8157,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As VWGI_USER_GROUPS_RELATIONRow Return CType(Me.Rows.Find(New Object() {GUID}),VWGI_USER_GROUPS_RELATIONRow) 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 VWGI_USER_GROUPS_RELATIONDataTable = CType(MyBase.Clone,VWGI_USER_GROUPS_RELATIONDataTable) cln.InitVars @@ -8183,13 +8171,13 @@ Partial Public Class MyDataset 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 VWGI_USER_GROUPS_RELATIONDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnUSER_ID = MyBase.Columns("USER_ID") @@ -8203,7 +8191,7 @@ Partial Public Class MyDataset 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) @@ -8237,25 +8225,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWGI_USER_GROUPS_RELATIONRow() As VWGI_USER_GROUPS_RELATIONRow Return CType(Me.NewRow,VWGI_USER_GROUPS_RELATIONRow) 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 VWGI_USER_GROUPS_RELATIONRow(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(VWGI_USER_GROUPS_RELATIONRow) 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.VWGI_USER_GROUPS_RELATIONRowChangedEvent) Is Nothing) Then @@ -8264,7 +8252,7 @@ Partial Public Class MyDataset 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.VWGI_USER_GROUPS_RELATIONRowChangingEvent) Is Nothing) Then @@ -8273,7 +8261,7 @@ Partial Public Class MyDataset 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.VWGI_USER_GROUPS_RELATIONRowDeletedEvent) Is Nothing) Then @@ -8282,7 +8270,7 @@ Partial Public Class MyDataset 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.VWGI_USER_GROUPS_RELATIONRowDeletingEvent) Is Nothing) Then @@ -8291,13 +8279,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWGI_USER_GROUPS_RELATIONRow(ByVal row As VWGI_USER_GROUPS_RELATIONRow) 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() @@ -8388,7 +8376,7 @@ Partial Public Class MyDataset 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 = "VWGI_DOCTYPE_GROUP" @@ -8398,7 +8386,7 @@ Partial Public Class MyDataset 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 @@ -8416,14 +8404,14 @@ Partial Public Class MyDataset 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 @@ -8431,7 +8419,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnDOCTYPE_ID @@ -8439,7 +8427,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DOCTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnDOCTYPE @@ -8447,7 +8435,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP_ID @@ -8455,7 +8443,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GROUPColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP @@ -8463,7 +8451,7 @@ Partial Public Class MyDataset 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 @@ -8471,7 +8459,7 @@ Partial Public Class MyDataset 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 @@ -8479,7 +8467,7 @@ Partial Public Class MyDataset 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 @@ -8487,7 +8475,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -8496,33 +8484,33 @@ Partial Public Class MyDataset 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 VWGI_DOCTYPE_GROUPRow Get Return CType(Me.Rows(index),VWGI_DOCTYPE_GROUPRow) End Get End Property - _ + _ Public Event VWGI_DOCTYPE_GROUPRowChanging As VWGI_DOCTYPE_GROUPRowChangeEventHandler - _ + _ Public Event VWGI_DOCTYPE_GROUPRowChanged As VWGI_DOCTYPE_GROUPRowChangeEventHandler - _ + _ Public Event VWGI_DOCTYPE_GROUPRowDeleting As VWGI_DOCTYPE_GROUPRowChangeEventHandler - _ + _ Public Event VWGI_DOCTYPE_GROUPRowDeleted As VWGI_DOCTYPE_GROUPRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWGI_DOCTYPE_GROUPRow(ByVal row As VWGI_DOCTYPE_GROUPRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWGI_DOCTYPE_GROUPRow(ByVal GUID As Integer, ByVal DOCTYPE_ID As Integer, ByVal DOCTYPE As String, ByVal GROUP_ID As Integer, ByVal GROUP As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHEN As Date) As VWGI_DOCTYPE_GROUPRow Dim rowVWGI_DOCTYPE_GROUPRow As VWGI_DOCTYPE_GROUPRow = CType(Me.NewRow,VWGI_DOCTYPE_GROUPRow) Dim columnValuesArray() As Object = New Object() {GUID, DOCTYPE_ID, DOCTYPE, GROUP_ID, GROUP, ADDED_WHO, ADDED_WHEN, CHANGED_WHEN} @@ -8532,13 +8520,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As VWGI_DOCTYPE_GROUPRow Return CType(Me.Rows.Find(New Object() {GUID}),VWGI_DOCTYPE_GROUPRow) 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 VWGI_DOCTYPE_GROUPDataTable = CType(MyBase.Clone,VWGI_DOCTYPE_GROUPDataTable) cln.InitVars @@ -8546,13 +8534,13 @@ Partial Public Class MyDataset 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 VWGI_DOCTYPE_GROUPDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") @@ -8565,7 +8553,7 @@ Partial Public Class MyDataset 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) @@ -8596,25 +8584,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWGI_DOCTYPE_GROUPRow() As VWGI_DOCTYPE_GROUPRow Return CType(Me.NewRow,VWGI_DOCTYPE_GROUPRow) 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 VWGI_DOCTYPE_GROUPRow(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(VWGI_DOCTYPE_GROUPRow) 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.VWGI_DOCTYPE_GROUPRowChangedEvent) Is Nothing) Then @@ -8623,7 +8611,7 @@ Partial Public Class MyDataset 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.VWGI_DOCTYPE_GROUPRowChangingEvent) Is Nothing) Then @@ -8632,7 +8620,7 @@ Partial Public Class MyDataset 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.VWGI_DOCTYPE_GROUPRowDeletedEvent) Is Nothing) Then @@ -8641,7 +8629,7 @@ Partial Public Class MyDataset 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.VWGI_DOCTYPE_GROUPRowDeletingEvent) Is Nothing) Then @@ -8650,13 +8638,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWGI_DOCTYPE_GROUPRow(ByVal row As VWGI_DOCTYPE_GROUPRow) 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() @@ -8755,7 +8743,7 @@ Partial Public Class MyDataset Private columnString 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 = "TBHOTKEY_PROFILE" @@ -8765,7 +8753,7 @@ Partial Public Class MyDataset 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 @@ -8783,14 +8771,14 @@ Partial Public Class MyDataset 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 @@ -8798,7 +8786,7 @@ Partial Public Class MyDataset 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 @@ -8806,7 +8794,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property OBJECTTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJECTTYPE @@ -8814,7 +8802,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_SEARCH @@ -8822,7 +8810,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property HOTKEY1Column() As Global.System.Data.DataColumn Get Return Me.columnHOTKEY1 @@ -8830,7 +8818,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property HOTKEY2Column() As Global.System.Data.DataColumn Get Return Me.columnHOTKEY2 @@ -8838,7 +8826,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property WINDOW_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnWINDOW_NAME @@ -8846,7 +8834,7 @@ Partial Public Class MyDataset 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 @@ -8854,7 +8842,7 @@ Partial Public Class MyDataset 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 @@ -8862,7 +8850,7 @@ Partial Public Class MyDataset 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 @@ -8870,7 +8858,7 @@ Partial Public Class MyDataset 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 @@ -8878,7 +8866,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn Get Return Me.columnString @@ -8886,7 +8874,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -8895,33 +8883,33 @@ Partial Public Class MyDataset 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 TBHOTKEY_PROFILERow Get Return CType(Me.Rows(index),TBHOTKEY_PROFILERow) End Get End Property - _ + _ Public Event TBHOTKEY_PROFILERowChanging As TBHOTKEY_PROFILERowChangeEventHandler - _ + _ Public Event TBHOTKEY_PROFILERowChanged As TBHOTKEY_PROFILERowChangeEventHandler - _ + _ Public Event TBHOTKEY_PROFILERowDeleting As TBHOTKEY_PROFILERowChangeEventHandler - _ + _ Public Event TBHOTKEY_PROFILERowDeleted As TBHOTKEY_PROFILERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBHOTKEY_PROFILERow(ByVal row As TBHOTKEY_PROFILERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBHOTKEY_PROFILERow(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal _String As String) As TBHOTKEY_PROFILERow Dim rowTBHOTKEY_PROFILERow As TBHOTKEY_PROFILERow = CType(Me.NewRow,TBHOTKEY_PROFILERow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, _String} @@ -8931,13 +8919,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PROFILERow Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PROFILERow) 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 TBHOTKEY_PROFILEDataTable = CType(MyBase.Clone,TBHOTKEY_PROFILEDataTable) cln.InitVars @@ -8945,13 +8933,13 @@ Partial Public Class MyDataset 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 TBHOTKEY_PROFILEDataTable() 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") @@ -8968,7 +8956,7 @@ Partial Public Class MyDataset 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) @@ -9024,25 +9012,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow Return CType(Me.NewRow,TBHOTKEY_PROFILERow) 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 TBHOTKEY_PROFILERow(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(TBHOTKEY_PROFILERow) 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.TBHOTKEY_PROFILERowChangedEvent) Is Nothing) Then @@ -9051,7 +9039,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_PROFILERowChangingEvent) Is Nothing) Then @@ -9060,7 +9048,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_PROFILERowDeletedEvent) Is Nothing) Then @@ -9069,7 +9057,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_PROFILERowDeletingEvent) Is Nothing) Then @@ -9078,13 +9066,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBHOTKEY_PROFILERow(ByVal row As TBHOTKEY_PROFILERow) 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() @@ -9177,7 +9165,7 @@ Partial Public Class MyDataset Private columnSEQUENCE_NUMBER 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 = "TBHOTKEY_PATTERNS" @@ -9187,7 +9175,7 @@ Partial Public Class MyDataset 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 @@ -9205,14 +9193,14 @@ Partial Public Class MyDataset 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 @@ -9220,7 +9208,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnHKPROFILE_ID @@ -9228,7 +9216,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PATTERN_WDSEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnPATTERN_WDSEARCH @@ -9236,7 +9224,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property WINDOW_CONTROLColumn() As Global.System.Data.DataColumn Get Return Me.columnWINDOW_CONTROL @@ -9244,7 +9232,7 @@ Partial Public Class MyDataset 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 @@ -9252,7 +9240,7 @@ Partial Public Class MyDataset 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 @@ -9260,7 +9248,7 @@ Partial Public Class MyDataset 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 @@ -9268,7 +9256,7 @@ Partial Public Class MyDataset 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 @@ -9276,7 +9264,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SEQUENCE_NUMBERColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE_NUMBER @@ -9284,7 +9272,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -9293,33 +9281,33 @@ Partial Public Class MyDataset 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 TBHOTKEY_PATTERNSRow Get Return CType(Me.Rows(index),TBHOTKEY_PATTERNSRow) End Get End Property - _ + _ Public Event TBHOTKEY_PATTERNSRowChanging As TBHOTKEY_PATTERNSRowChangeEventHandler - _ + _ Public Event TBHOTKEY_PATTERNSRowChanged As TBHOTKEY_PATTERNSRowChangeEventHandler - _ + _ Public Event TBHOTKEY_PATTERNSRowDeleting As TBHOTKEY_PATTERNSRowChangeEventHandler - _ + _ Public Event TBHOTKEY_PATTERNSRowDeleted As TBHOTKEY_PATTERNSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBHOTKEY_PATTERNSRow(ByVal row As TBHOTKEY_PATTERNSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBHOTKEY_PATTERNSRow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_PATTERNS_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SEQUENCE_NUMBER As Integer) As TBHOTKEY_PATTERNSRow Dim rowTBHOTKEY_PATTERNSRow As TBHOTKEY_PATTERNSRow = CType(Me.NewRow,TBHOTKEY_PATTERNSRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SEQUENCE_NUMBER} @@ -9332,13 +9320,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PATTERNSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PATTERNSRow) 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 TBHOTKEY_PATTERNSDataTable = CType(MyBase.Clone,TBHOTKEY_PATTERNSDataTable) cln.InitVars @@ -9346,13 +9334,13 @@ Partial Public Class MyDataset 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 TBHOTKEY_PATTERNSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") @@ -9366,7 +9354,7 @@ Partial Public Class MyDataset 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) @@ -9405,25 +9393,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBHOTKEY_PATTERNSRow() As TBHOTKEY_PATTERNSRow Return CType(Me.NewRow,TBHOTKEY_PATTERNSRow) 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 TBHOTKEY_PATTERNSRow(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(TBHOTKEY_PATTERNSRow) 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.TBHOTKEY_PATTERNSRowChangedEvent) Is Nothing) Then @@ -9432,7 +9420,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_PATTERNSRowChangingEvent) Is Nothing) Then @@ -9441,7 +9429,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_PATTERNSRowDeletedEvent) Is Nothing) Then @@ -9450,7 +9438,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_PATTERNSRowDeletingEvent) Is Nothing) Then @@ -9459,13 +9447,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBHOTKEY_PATTERNSRow(ByVal row As TBHOTKEY_PATTERNSRow) 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() @@ -9544,7 +9532,7 @@ Partial Public Class MyDataset Private columnString 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 = "TBMYHOTKEYS" @@ -9554,7 +9542,7 @@ Partial Public Class MyDataset 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 @@ -9572,14 +9560,14 @@ Partial Public Class MyDataset 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 @@ -9587,7 +9575,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn Get Return Me.columnString @@ -9595,7 +9583,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -9604,33 +9592,33 @@ Partial Public Class MyDataset 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 TBMYHOTKEYSRow Get Return CType(Me.Rows(index),TBMYHOTKEYSRow) End Get End Property - _ + _ Public Event TBMYHOTKEYSRowChanging As TBMYHOTKEYSRowChangeEventHandler - _ + _ Public Event TBMYHOTKEYSRowChanged As TBMYHOTKEYSRowChangeEventHandler - _ + _ Public Event TBMYHOTKEYSRowDeleting As TBMYHOTKEYSRowChangeEventHandler - _ + _ Public Event TBMYHOTKEYSRowDeleted As TBMYHOTKEYSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBMYHOTKEYSRow(ByVal row As TBMYHOTKEYSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBMYHOTKEYSRow(ByVal _String As String) As TBMYHOTKEYSRow Dim rowTBMYHOTKEYSRow As TBMYHOTKEYSRow = CType(Me.NewRow,TBMYHOTKEYSRow) Dim columnValuesArray() As Object = New Object() {Nothing, _String} @@ -9640,13 +9628,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBMYHOTKEYSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBMYHOTKEYSRow) 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 TBMYHOTKEYSDataTable = CType(MyBase.Clone,TBMYHOTKEYSDataTable) cln.InitVars @@ -9654,20 +9642,20 @@ Partial Public Class MyDataset 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 TBMYHOTKEYSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnString = MyBase.Columns("String") 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) @@ -9688,25 +9676,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBMYHOTKEYSRow() As TBMYHOTKEYSRow Return CType(Me.NewRow,TBMYHOTKEYSRow) 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 TBMYHOTKEYSRow(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(TBMYHOTKEYSRow) 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.TBMYHOTKEYSRowChangedEvent) Is Nothing) Then @@ -9715,7 +9703,7 @@ Partial Public Class MyDataset 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.TBMYHOTKEYSRowChangingEvent) Is Nothing) Then @@ -9724,7 +9712,7 @@ Partial Public Class MyDataset 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.TBMYHOTKEYSRowDeletedEvent) Is Nothing) Then @@ -9733,7 +9721,7 @@ Partial Public Class MyDataset 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.TBMYHOTKEYSRowDeletingEvent) Is Nothing) Then @@ -9742,13 +9730,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBMYHOTKEYSRow(ByVal row As TBMYHOTKEYSRow) 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() @@ -9843,7 +9831,7 @@ Partial Public Class MyDataset 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 = "TBHOTKEY_USER_PROFILE" @@ -9853,7 +9841,7 @@ Partial Public Class MyDataset 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 @@ -9871,14 +9859,14 @@ Partial Public Class MyDataset 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 @@ -9886,7 +9874,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnHKPROFILE_ID @@ -9894,7 +9882,7 @@ Partial Public Class MyDataset 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 @@ -9902,7 +9890,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn Get Return Me.columnWD_SEARCH @@ -9910,7 +9898,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property HOTKEY1Column() As Global.System.Data.DataColumn Get Return Me.columnHOTKEY1 @@ -9918,7 +9906,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property HOTKEY2Column() As Global.System.Data.DataColumn Get Return Me.columnHOTKEY2 @@ -9926,7 +9914,7 @@ Partial Public Class MyDataset 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 @@ -9934,7 +9922,7 @@ Partial Public Class MyDataset 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 @@ -9942,7 +9930,7 @@ Partial Public Class MyDataset 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 @@ -9950,7 +9938,7 @@ Partial Public Class MyDataset 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 @@ -9958,7 +9946,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -9967,33 +9955,33 @@ Partial Public Class MyDataset 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 TBHOTKEY_USER_PROFILERow Get Return CType(Me.Rows(index),TBHOTKEY_USER_PROFILERow) End Get End Property - _ + _ Public Event TBHOTKEY_USER_PROFILERowChanging As TBHOTKEY_USER_PROFILERowChangeEventHandler - _ + _ Public Event TBHOTKEY_USER_PROFILERowChanged As TBHOTKEY_USER_PROFILERowChangeEventHandler - _ + _ Public Event TBHOTKEY_USER_PROFILERowDeleting As TBHOTKEY_USER_PROFILERowChangeEventHandler - _ + _ Public Event TBHOTKEY_USER_PROFILERowDeleted As TBHOTKEY_USER_PROFILERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBHOTKEY_USER_PROFILERow(ByVal row As TBHOTKEY_USER_PROFILERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBHOTKEY_USER_PROFILERow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_USER_PROFILE_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal parentTBDD_USERRowByFK_TBHOTKEY_USER_PROFILE_USER_ID As TBDD_USERRow, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_USER_PROFILERow Dim rowTBHOTKEY_USER_PROFILERow As TBHOTKEY_USER_PROFILERow = CType(Me.NewRow,TBHOTKEY_USER_PROFILERow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -10009,13 +9997,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_USER_PROFILERow Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_USER_PROFILERow) 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 TBHOTKEY_USER_PROFILEDataTable = CType(MyBase.Clone,TBHOTKEY_USER_PROFILEDataTable) cln.InitVars @@ -10023,13 +10011,13 @@ Partial Public Class MyDataset 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 TBHOTKEY_USER_PROFILEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") @@ -10044,7 +10032,7 @@ Partial Public Class MyDataset 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) @@ -10088,25 +10076,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBHOTKEY_USER_PROFILERow() As TBHOTKEY_USER_PROFILERow Return CType(Me.NewRow,TBHOTKEY_USER_PROFILERow) 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 TBHOTKEY_USER_PROFILERow(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(TBHOTKEY_USER_PROFILERow) 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.TBHOTKEY_USER_PROFILERowChangedEvent) Is Nothing) Then @@ -10115,7 +10103,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_USER_PROFILERowChangingEvent) Is Nothing) Then @@ -10124,7 +10112,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_USER_PROFILERowDeletedEvent) Is Nothing) Then @@ -10133,7 +10121,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_USER_PROFILERowDeletingEvent) Is Nothing) Then @@ -10142,13 +10130,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBHOTKEY_USER_PROFILERow(ByVal row As TBHOTKEY_USER_PROFILERow) 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() @@ -10247,7 +10235,7 @@ Partial Public Class MyDataset 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 = "TBHOTKEY_PATTERNS_REWORK" @@ -10257,7 +10245,7 @@ Partial Public Class MyDataset 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 @@ -10275,14 +10263,14 @@ Partial Public Class MyDataset 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 @@ -10290,7 +10278,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property HKPATTERN_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnHKPATTERN_ID @@ -10298,7 +10286,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE @@ -10306,7 +10294,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FUNCTION1Column() As Global.System.Data.DataColumn Get Return Me.columnFUNCTION1 @@ -10314,7 +10302,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FUNCTION2Column() As Global.System.Data.DataColumn Get Return Me.columnFUNCTION2 @@ -10322,7 +10310,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TEXT1Column() As Global.System.Data.DataColumn Get Return Me.columnTEXT1 @@ -10330,7 +10318,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TEXT2Column() As Global.System.Data.DataColumn Get Return Me.columnTEXT2 @@ -10338,7 +10326,7 @@ Partial Public Class MyDataset 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 @@ -10346,7 +10334,7 @@ Partial Public Class MyDataset 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 @@ -10354,7 +10342,7 @@ Partial Public Class MyDataset 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 @@ -10362,7 +10350,7 @@ Partial Public Class MyDataset 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 @@ -10370,7 +10358,7 @@ Partial Public Class MyDataset 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 @@ -10378,7 +10366,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -10387,33 +10375,33 @@ Partial Public Class MyDataset 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 TBHOTKEY_PATTERNS_REWORKRow Get Return CType(Me.Rows(index),TBHOTKEY_PATTERNS_REWORKRow) End Get End Property - _ + _ Public Event TBHOTKEY_PATTERNS_REWORKRowChanging As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - _ + _ Public Event TBHOTKEY_PATTERNS_REWORKRowChanged As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - _ + _ Public Event TBHOTKEY_PATTERNS_REWORKRowDeleting As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - _ + _ Public Event TBHOTKEY_PATTERNS_REWORKRowDeleted As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBHOTKEY_PATTERNS_REWORKRow(ByVal row As TBHOTKEY_PATTERNS_REWORKRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBHOTKEY_PATTERNS_REWORKRow(ByVal parentTBHOTKEY_PATTERNSRowByFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID As TBHOTKEY_PATTERNSRow, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_PATTERNS_REWORKRow Dim rowTBHOTKEY_PATTERNS_REWORKRow As TBHOTKEY_PATTERNS_REWORKRow = CType(Me.NewRow,TBHOTKEY_PATTERNS_REWORKRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -10426,13 +10414,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PATTERNS_REWORKRow Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PATTERNS_REWORKRow) 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 TBHOTKEY_PATTERNS_REWORKDataTable = CType(MyBase.Clone,TBHOTKEY_PATTERNS_REWORKDataTable) cln.InitVars @@ -10440,13 +10428,13 @@ Partial Public Class MyDataset 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 TBHOTKEY_PATTERNS_REWORKDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnHKPATTERN_ID = MyBase.Columns("HKPATTERN_ID") @@ -10463,7 +10451,7 @@ Partial Public Class MyDataset 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) @@ -10511,25 +10499,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBHOTKEY_PATTERNS_REWORKRow() As TBHOTKEY_PATTERNS_REWORKRow Return CType(Me.NewRow,TBHOTKEY_PATTERNS_REWORKRow) 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 TBHOTKEY_PATTERNS_REWORKRow(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(TBHOTKEY_PATTERNS_REWORKRow) 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.TBHOTKEY_PATTERNS_REWORKRowChangedEvent) Is Nothing) Then @@ -10538,7 +10526,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_PATTERNS_REWORKRowChangingEvent) Is Nothing) Then @@ -10547,7 +10535,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_PATTERNS_REWORKRowDeletedEvent) Is Nothing) Then @@ -10556,7 +10544,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_PATTERNS_REWORKRowDeletingEvent) Is Nothing) Then @@ -10565,13 +10553,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBHOTKEY_PATTERNS_REWORKRow(ByVal row As TBHOTKEY_PATTERNS_REWORKRow) 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() @@ -10662,7 +10650,7 @@ Partial Public Class MyDataset 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 = "TBHOTKEY_WINDOW_HOOK" @@ -10672,7 +10660,7 @@ Partial Public Class MyDataset 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 @@ -10690,14 +10678,14 @@ Partial Public Class MyDataset 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 @@ -10705,7 +10693,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnHKPROFILE_ID @@ -10713,7 +10701,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SEQUENCE_NUMBERColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE_NUMBER @@ -10721,7 +10709,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property CONTROL_VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnCONTROL_VALUE @@ -10729,7 +10717,7 @@ Partial Public Class MyDataset 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 @@ -10737,7 +10725,7 @@ Partial Public Class MyDataset 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 @@ -10745,7 +10733,7 @@ Partial Public Class MyDataset 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 @@ -10753,7 +10741,7 @@ Partial Public Class MyDataset 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 @@ -10761,7 +10749,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -10770,33 +10758,33 @@ Partial Public Class MyDataset 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 TBHOTKEY_WINDOW_HOOKRow Get Return CType(Me.Rows(index),TBHOTKEY_WINDOW_HOOKRow) End Get End Property - _ + _ Public Event TBHOTKEY_WINDOW_HOOKRowChanging As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler - _ + _ Public Event TBHOTKEY_WINDOW_HOOKRowChanged As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler - _ + _ Public Event TBHOTKEY_WINDOW_HOOKRowDeleting As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler - _ + _ Public Event TBHOTKEY_WINDOW_HOOKRowDeleted As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBHOTKEY_WINDOW_HOOKRow(ByVal row As TBHOTKEY_WINDOW_HOOKRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBHOTKEY_WINDOW_HOOKRow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_WINDOW_HOOKRow Dim rowTBHOTKEY_WINDOW_HOOKRow As TBHOTKEY_WINDOW_HOOKRow = CType(Me.NewRow,TBHOTKEY_WINDOW_HOOKRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -10809,13 +10797,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_WINDOW_HOOKRow Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_WINDOW_HOOKRow) 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 TBHOTKEY_WINDOW_HOOKDataTable = CType(MyBase.Clone,TBHOTKEY_WINDOW_HOOKDataTable) cln.InitVars @@ -10823,13 +10811,13 @@ Partial Public Class MyDataset 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 TBHOTKEY_WINDOW_HOOKDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") @@ -10842,7 +10830,7 @@ Partial Public Class MyDataset 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) @@ -10877,25 +10865,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBHOTKEY_WINDOW_HOOKRow() As TBHOTKEY_WINDOW_HOOKRow Return CType(Me.NewRow,TBHOTKEY_WINDOW_HOOKRow) 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 TBHOTKEY_WINDOW_HOOKRow(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(TBHOTKEY_WINDOW_HOOKRow) 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.TBHOTKEY_WINDOW_HOOKRowChangedEvent) Is Nothing) Then @@ -10904,7 +10892,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_WINDOW_HOOKRowChangingEvent) Is Nothing) Then @@ -10913,7 +10901,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_WINDOW_HOOKRowDeletedEvent) Is Nothing) Then @@ -10922,7 +10910,7 @@ Partial Public Class MyDataset 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.TBHOTKEY_WINDOW_HOOKRowDeletingEvent) Is Nothing) Then @@ -10931,13 +10919,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBHOTKEY_WINDOW_HOOKRow(ByVal row As TBHOTKEY_WINDOW_HOOKRow) 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() @@ -11028,7 +11016,7 @@ Partial Public Class MyDataset Private columnFILENAME_ONLY 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 = "TBGI_FILES_USER" @@ -11038,7 +11026,7 @@ Partial Public Class MyDataset 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 @@ -11056,14 +11044,14 @@ Partial Public Class MyDataset 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 @@ -11071,7 +11059,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FILENAME2WORKColumn() As Global.System.Data.DataColumn Get Return Me.columnFILENAME2WORK @@ -11079,7 +11067,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property _USER_WORKColumn() As Global.System.Data.DataColumn Get Return Me._columnUSER_WORK @@ -11087,7 +11075,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property WORKEDColumn() As Global.System.Data.DataColumn Get Return Me.columnWORKED @@ -11095,7 +11083,7 @@ Partial Public Class MyDataset 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 @@ -11103,7 +11091,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property HANDLE_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnHANDLE_TYPE @@ -11111,7 +11099,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DeleteColumn() As Global.System.Data.DataColumn Get Return Me.columnDelete @@ -11119,7 +11107,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FILENAME_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnFILENAME_ONLY @@ -11127,7 +11115,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -11136,33 +11124,33 @@ Partial Public Class MyDataset 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 TBGI_FILES_USERRow Get Return CType(Me.Rows(index),TBGI_FILES_USERRow) End Get End Property - _ + _ Public Event TBGI_FILES_USERRowChanging As TBGI_FILES_USERRowChangeEventHandler - _ + _ Public Event TBGI_FILES_USERRowChanged As TBGI_FILES_USERRowChangeEventHandler - _ + _ Public Event TBGI_FILES_USERRowDeleting As TBGI_FILES_USERRowChangeEventHandler - _ + _ Public Event TBGI_FILES_USERRowDeleted As TBGI_FILES_USERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBGI_FILES_USERRow(ByVal row As TBGI_FILES_USERRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBGI_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal _USER_WORK As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal HANDLE_TYPE As String, ByVal Delete As Boolean, ByVal FILENAME_ONLY As String) As TBGI_FILES_USERRow Dim rowTBGI_FILES_USERRow As TBGI_FILES_USERRow = CType(Me.NewRow,TBGI_FILES_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, _USER_WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, Delete, FILENAME_ONLY} @@ -11172,13 +11160,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBGI_FILES_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_FILES_USERRow) 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 TBGI_FILES_USERDataTable = CType(MyBase.Clone,TBGI_FILES_USERDataTable) cln.InitVars @@ -11186,13 +11174,13 @@ Partial Public Class MyDataset 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 TBGI_FILES_USERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFILENAME2WORK = MyBase.Columns("FILENAME2WORK") @@ -11205,7 +11193,7 @@ Partial Public Class MyDataset 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) @@ -11245,25 +11233,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBGI_FILES_USERRow() As TBGI_FILES_USERRow Return CType(Me.NewRow,TBGI_FILES_USERRow) 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 TBGI_FILES_USERRow(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(TBGI_FILES_USERRow) 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.TBGI_FILES_USERRowChangedEvent) Is Nothing) Then @@ -11272,7 +11260,7 @@ Partial Public Class MyDataset 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.TBGI_FILES_USERRowChangingEvent) Is Nothing) Then @@ -11281,7 +11269,7 @@ Partial Public Class MyDataset 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.TBGI_FILES_USERRowDeletedEvent) Is Nothing) Then @@ -11290,7 +11278,7 @@ Partial Public Class MyDataset 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.TBGI_FILES_USERRowDeletingEvent) Is Nothing) Then @@ -11299,13 +11287,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBGI_FILES_USERRow(ByVal row As TBGI_FILES_USERRow) 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() @@ -11388,7 +11376,7 @@ Partial Public Class MyDataset Private columnADDED_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 = "TBGI_HISTORY" @@ -11398,7 +11386,7 @@ Partial Public Class MyDataset 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 @@ -11416,14 +11404,14 @@ Partial Public Class MyDataset 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 @@ -11431,7 +11419,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FILENAME_ORIGINALColumn() As Global.System.Data.DataColumn Get Return Me.columnFILENAME_ORIGINAL @@ -11439,7 +11427,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FILENAME_NEWColumn() As Global.System.Data.DataColumn Get Return Me.columnFILENAME_NEW @@ -11447,7 +11435,7 @@ Partial Public Class MyDataset 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 @@ -11455,7 +11443,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -11464,33 +11452,33 @@ Partial Public Class MyDataset 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 TBGI_HISTORYRow Get Return CType(Me.Rows(index),TBGI_HISTORYRow) End Get End Property - _ + _ Public Event TBGI_HISTORYRowChanging As TBGI_HISTORYRowChangeEventHandler - _ + _ Public Event TBGI_HISTORYRowChanged As TBGI_HISTORYRowChangeEventHandler - _ + _ Public Event TBGI_HISTORYRowDeleting As TBGI_HISTORYRowChangeEventHandler - _ + _ Public Event TBGI_HISTORYRowDeleted As TBGI_HISTORYRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBGI_HISTORYRow(ByVal row As TBGI_HISTORYRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBGI_HISTORYRow(ByVal FILENAME_ORIGINAL As String, ByVal FILENAME_NEW As String, ByVal ADDED_WHEN As Date) As TBGI_HISTORYRow Dim rowTBGI_HISTORYRow As TBGI_HISTORYRow = CType(Me.NewRow,TBGI_HISTORYRow) Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME_ORIGINAL, FILENAME_NEW, ADDED_WHEN} @@ -11500,13 +11488,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBGI_HISTORYRow Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_HISTORYRow) 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 TBGI_HISTORYDataTable = CType(MyBase.Clone,TBGI_HISTORYDataTable) cln.InitVars @@ -11514,13 +11502,13 @@ Partial Public Class MyDataset 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 TBGI_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.columnFILENAME_ORIGINAL = MyBase.Columns("FILENAME_ORIGINAL") @@ -11529,7 +11517,7 @@ Partial Public Class MyDataset 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) @@ -11552,25 +11540,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBGI_HISTORYRow() As TBGI_HISTORYRow Return CType(Me.NewRow,TBGI_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 TBGI_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(TBGI_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.TBGI_HISTORYRowChangedEvent) Is Nothing) Then @@ -11579,7 +11567,7 @@ Partial Public Class MyDataset 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.TBGI_HISTORYRowChangingEvent) Is Nothing) Then @@ -11588,7 +11576,7 @@ Partial Public Class MyDataset 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.TBGI_HISTORYRowDeletedEvent) Is Nothing) Then @@ -11597,7 +11585,7 @@ Partial Public Class MyDataset 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.TBGI_HISTORYRowDeletingEvent) Is Nothing) Then @@ -11606,13 +11594,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBGI_HISTORYRow(ByVal row As TBGI_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() @@ -11691,7 +11679,7 @@ Partial Public Class MyDataset Private columnWorked 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 = "TBTempFiles2Index" @@ -11701,7 +11689,7 @@ Partial Public Class MyDataset 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 @@ -11719,14 +11707,14 @@ Partial Public Class MyDataset 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 FilestringColumn() As Global.System.Data.DataColumn Get Return Me.columnFilestring @@ -11734,7 +11722,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property WorkedColumn() As Global.System.Data.DataColumn Get Return Me.columnWorked @@ -11742,7 +11730,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -11751,33 +11739,33 @@ Partial Public Class MyDataset 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 TBTempFiles2IndexRow Get Return CType(Me.Rows(index),TBTempFiles2IndexRow) End Get End Property - _ + _ Public Event TBTempFiles2IndexRowChanging As TBTempFiles2IndexRowChangeEventHandler - _ + _ Public Event TBTempFiles2IndexRowChanged As TBTempFiles2IndexRowChangeEventHandler - _ + _ Public Event TBTempFiles2IndexRowDeleting As TBTempFiles2IndexRowChangeEventHandler - _ + _ Public Event TBTempFiles2IndexRowDeleted As TBTempFiles2IndexRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBTempFiles2IndexRow(ByVal row As TBTempFiles2IndexRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBTempFiles2IndexRow(ByVal Filestring As String, ByVal Worked As Boolean) As TBTempFiles2IndexRow Dim rowTBTempFiles2IndexRow As TBTempFiles2IndexRow = CType(Me.NewRow,TBTempFiles2IndexRow) Dim columnValuesArray() As Object = New Object() {Filestring, Worked} @@ -11787,7 +11775,7 @@ Partial Public Class MyDataset 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 TBTempFiles2IndexDataTable = CType(MyBase.Clone,TBTempFiles2IndexDataTable) cln.InitVars @@ -11795,20 +11783,20 @@ Partial Public Class MyDataset 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 TBTempFiles2IndexDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnFilestring = MyBase.Columns("Filestring") Me.columnWorked = MyBase.Columns("Worked") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnFilestring = New Global.System.Data.DataColumn("Filestring", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFilestring) @@ -11818,25 +11806,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBTempFiles2IndexRow() As TBTempFiles2IndexRow Return CType(Me.NewRow,TBTempFiles2IndexRow) 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 TBTempFiles2IndexRow(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(TBTempFiles2IndexRow) 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.TBTempFiles2IndexRowChangedEvent) Is Nothing) Then @@ -11845,7 +11833,7 @@ Partial Public Class MyDataset 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.TBTempFiles2IndexRowChangingEvent) Is Nothing) Then @@ -11854,7 +11842,7 @@ Partial Public Class MyDataset 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.TBTempFiles2IndexRowDeletedEvent) Is Nothing) Then @@ -11863,7 +11851,7 @@ Partial Public Class MyDataset 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.TBTempFiles2IndexRowDeletingEvent) Is Nothing) Then @@ -11872,13 +11860,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBTempFiles2IndexRow(ByVal row As TBTempFiles2IndexRow) 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() @@ -11959,7 +11947,7 @@ Partial Public Class MyDataset Private columnDokumentart 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 = "TBTEMP_INDEXRESULTS" @@ -11969,7 +11957,7 @@ Partial Public Class MyDataset 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 @@ -11987,14 +11975,14 @@ Partial Public Class MyDataset 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 IndexnameColumn() As Global.System.Data.DataColumn Get Return Me.columnIndexname @@ -12002,7 +11990,7 @@ Partial Public Class MyDataset 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 @@ -12010,7 +11998,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DokumentartColumn() As Global.System.Data.DataColumn Get Return Me.columnDokumentart @@ -12018,7 +12006,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -12027,33 +12015,33 @@ Partial Public Class MyDataset 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 TBTEMP_INDEXRESULTSRow Get Return CType(Me.Rows(index),TBTEMP_INDEXRESULTSRow) End Get End Property - _ + _ Public Event TBTEMP_INDEXRESULTSRowChanging As TBTEMP_INDEXRESULTSRowChangeEventHandler - _ + _ Public Event TBTEMP_INDEXRESULTSRowChanged As TBTEMP_INDEXRESULTSRowChangeEventHandler - _ + _ Public Event TBTEMP_INDEXRESULTSRowDeleting As TBTEMP_INDEXRESULTSRowChangeEventHandler - _ + _ Public Event TBTEMP_INDEXRESULTSRowDeleted As TBTEMP_INDEXRESULTSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBTEMP_INDEXRESULTSRow(ByVal Indexname As String, ByVal Value As String, ByVal Dokumentart As String) As TBTEMP_INDEXRESULTSRow Dim rowTBTEMP_INDEXRESULTSRow As TBTEMP_INDEXRESULTSRow = CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) Dim columnValuesArray() As Object = New Object() {Indexname, Value, Dokumentart} @@ -12063,7 +12051,7 @@ Partial Public Class MyDataset 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 TBTEMP_INDEXRESULTSDataTable = CType(MyBase.Clone,TBTEMP_INDEXRESULTSDataTable) cln.InitVars @@ -12071,13 +12059,13 @@ Partial Public Class MyDataset 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 TBTEMP_INDEXRESULTSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnIndexname = MyBase.Columns("Indexname") Me.columnValue = MyBase.Columns("Value") @@ -12085,7 +12073,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIndexname) @@ -12096,25 +12084,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBTEMP_INDEXRESULTSRow() As TBTEMP_INDEXRESULTSRow Return CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) 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 TBTEMP_INDEXRESULTSRow(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(TBTEMP_INDEXRESULTSRow) 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.TBTEMP_INDEXRESULTSRowChangedEvent) Is Nothing) Then @@ -12123,7 +12111,7 @@ Partial Public Class MyDataset 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.TBTEMP_INDEXRESULTSRowChangingEvent) Is Nothing) Then @@ -12132,7 +12120,7 @@ Partial Public Class MyDataset 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.TBTEMP_INDEXRESULTSRowDeletedEvent) Is Nothing) Then @@ -12141,7 +12129,7 @@ Partial Public Class MyDataset 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.TBTEMP_INDEXRESULTSRowDeletingEvent) Is Nothing) Then @@ -12150,13 +12138,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) 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() @@ -12243,7 +12231,7 @@ Partial Public Class MyDataset 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" @@ -12253,7 +12241,7 @@ Partial Public Class MyDataset 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 @@ -12271,14 +12259,14 @@ Partial Public Class MyDataset 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 @@ -12286,7 +12274,7 @@ Partial Public Class MyDataset 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 @@ -12294,7 +12282,7 @@ Partial Public Class MyDataset 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 @@ -12302,7 +12290,7 @@ Partial Public Class MyDataset 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 @@ -12310,7 +12298,7 @@ Partial Public Class MyDataset 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 @@ -12318,7 +12306,7 @@ Partial Public Class MyDataset 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 @@ -12326,7 +12314,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -12335,33 +12323,33 @@ Partial Public Class MyDataset 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} @@ -12371,7 +12359,7 @@ Partial Public Class MyDataset 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 @@ -12379,13 +12367,13 @@ Partial Public Class MyDataset 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") @@ -12396,7 +12384,7 @@ Partial Public Class MyDataset 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") @@ -12417,25 +12405,25 @@ Partial Public Class MyDataset 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 @@ -12444,7 +12432,7 @@ Partial Public Class MyDataset 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 @@ -12453,7 +12441,7 @@ Partial Public Class MyDataset 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 @@ -12462,7 +12450,7 @@ Partial Public Class MyDataset 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 @@ -12471,13 +12459,13 @@ Partial Public Class MyDataset 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() @@ -12552,14 +12540,14 @@ Partial Public Class MyDataset Private tableTBDD_USER As TBDD_USERDataTable _ + 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_USER = CType(Me.Table,TBDD_USERDataTable) 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.tableTBDD_USER.GUIDColumn),Integer) @@ -12570,7 +12558,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PRENAME() As String Get Try @@ -12585,7 +12573,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get Try @@ -12600,7 +12588,7 @@ Partial Public Class MyDataset 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.tableTBDD_USER.USERNAMEColumn),String) @@ -12611,7 +12599,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property EMAIL() As String Get Try @@ -12626,7 +12614,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LOGGED_IN() As Boolean Get Return CType(Me(Me.tableTBDD_USER.LOGGED_INColumn),Boolean) @@ -12637,7 +12625,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LOGGED_WHERE() As String Get Try @@ -12652,7 +12640,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LOG_IN_WHEN() As Date Get Try @@ -12667,7 +12655,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LOG_OUT_WHEN() As Date Get Try @@ -12682,18 +12670,7 @@ Partial Public Class MyDataset End Property _ - Public Property GI_ADMIN() As Boolean - Get - Return CType(Me(Me.tableTBDD_USER.GI_ADMINColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_USER.GI_ADMINColumn) = value - End Set - 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.tableTBDD_USER.ADDED_WHOColumn),String) @@ -12704,7 +12681,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -12719,7 +12696,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -12734,7 +12711,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -12749,7 +12726,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SHORTNAME() As String Get Try @@ -12764,7 +12741,7 @@ Partial Public Class MyDataset 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.tableTBDD_USER.LANGUAGEColumn),String) @@ -12775,127 +12752,127 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPRENAMENull() Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsEMAILNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetEMAILNull() Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsLOGGED_WHERENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.LOGGED_WHEREColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetLOGGED_WHERENull() Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsLOG_IN_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.LOG_IN_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetLOG_IN_WHENNull() Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsLOG_OUT_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.LOG_OUT_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetLOG_OUT_WHENNull() Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = 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.tableTBDD_USER.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSHORTNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSHORTNAMENull() Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID") Is Nothing) Then Return New TBDD_GROUPS_USERRow(-1) {} @@ -12905,7 +12882,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID") Is Nothing) Then Return New TBHOTKEY_USER_PROFILERow(-1) {} @@ -12924,14 +12901,14 @@ Partial Public Class MyDataset Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable _ + 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_DOKUMENTART = CType(Me.Table,TBDD_DOKUMENTARTDataTable) 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.tableTBDD_DOKUMENTART.GUIDColumn),Integer) @@ -12942,7 +12919,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String) @@ -12953,7 +12930,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property EINGANGSART_ID() As Byte Get Return CType(Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn),Byte) @@ -12964,7 +12941,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property KURZNAME() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn),String) @@ -12975,7 +12952,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ZIEL_PFAD() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn),String) @@ -12986,7 +12963,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESCHREIBUNG() As String Get Try @@ -13001,7 +12978,7 @@ Partial Public Class MyDataset 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_DOKUMENTART.AKTIVColumn),Boolean) @@ -13012,14 +12989,10 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAMENKONVENTION() As String Get - Try - Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAMENKONVENTION in Tabelle TBDD_DOKUMENTART ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = value @@ -13027,7 +13000,7 @@ Partial Public Class MyDataset 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_DOKUMENTART.ERSTELLTWERColumn),String) @@ -13038,7 +13011,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Try @@ -13053,7 +13026,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEANDERTWER() As String Get Try @@ -13068,7 +13041,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -13083,14 +13056,10 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property OBJEKTTYP() As String Get - Try - Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBJEKTTYP in Tabelle TBDD_DOKUMENTART ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = value @@ -13098,7 +13067,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property WINDREAM_DIRECT() As Boolean Get Return CType(Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn),Boolean) @@ -13109,14 +13078,10 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FOLDER_FOR_INDEX() As String Get - Try - Return CType(Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FOLDER_FOR_INDEX in Tabelle TBDD_DOKUMENTART ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn),String) End Get Set Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) = value @@ -13124,7 +13089,7 @@ Partial Public Class MyDataset 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.tableTBDD_DOKUMENTART.SEQUENCEColumn),Integer) @@ -13135,7 +13100,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DUPLICATE_HANDLING() As String Get Return CType(Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn),String) @@ -13146,7 +13111,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_EINGANGSARTENRow) @@ -13157,91 +13122,55 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBESCHREIBUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBESCHREIBUNGNull() Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsNAMENKONVENTIONNull() As Boolean - Return Me.IsNull(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) - End Function - - _ - Public Sub SetNAMENKONVENTIONNull() - Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = 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_DOKUMENTART.ERSTELLTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBDD_DOKUMENTART.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_DOKUMENTART.GEANDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBDD_DOKUMENTART.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_DOKUMENTART.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsOBJEKTTYPNull() As Boolean - Return Me.IsNull(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) - End Function - - _ - Public Sub SetOBJEKTTYPNull() - Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFOLDER_FOR_INDEXNull() As Boolean - Return Me.IsNull(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) - End Function - - _ - Public Sub SetFOLDER_FOR_INDEXNull() - Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) = Global.System.Convert.DBNull - End Sub - - _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow() If (Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID") Is Nothing) Then Return New TBDD_INDEX_AUTOMRow(-1) {} @@ -13251,7 +13180,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow() If (Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID") Is Nothing) Then Return New TBDD_INDEX_MANRow(-1) {} @@ -13270,14 +13199,14 @@ Partial Public Class MyDataset Private tableTBDD_EINGANGSARTEN As TBDD_EINGANGSARTENDataTable _ + 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_EINGANGSARTEN = CType(Me.Table,TBDD_EINGANGSARTENDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Byte Get Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn),Byte) @@ -13288,7 +13217,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn),String) @@ -13299,7 +13228,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESCHREIBUNG() As String Get Try @@ -13314,7 +13243,7 @@ Partial Public Class MyDataset 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_EINGANGSARTEN.ERSTELLTWERColumn),String) @@ -13325,7 +13254,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Try @@ -13340,7 +13269,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEANDERTWER() As String Get Try @@ -13355,7 +13284,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -13370,55 +13299,55 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBESCHREIBUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBESCHREIBUNGNull() Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = 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_EINGANGSARTEN.ERSTELLTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBDD_EINGANGSARTEN.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_EINGANGSARTEN.GEANDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBDD_EINGANGSARTEN.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_EINGANGSARTEN.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBDD_DOKUMENTARTRows() As TBDD_DOKUMENTARTRow() If (Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID") Is Nothing) Then Return New TBDD_DOKUMENTARTRow(-1) {} @@ -13437,14 +13366,14 @@ Partial Public Class MyDataset Private tableTBDD_DOKART_MODULE As TBDD_DOKART_MODULEDataTable _ + 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_DOKART_MODULE = CType(Me.Table,TBDD_DOKART_MODULEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ID() As Integer Get Return CType(Me(Me.tableTBDD_DOKART_MODULE.IDColumn),Integer) @@ -13455,7 +13384,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get Try @@ -13470,13 +13399,13 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_DOKART_MODULE.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn) = Global.System.Convert.DBNull End Sub @@ -13491,14 +13420,14 @@ Partial Public Class MyDataset Private tableTBDD_MODULES As TBDD_MODULESDataTable _ + 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_MODULES = CType(Me.Table,TBDD_MODULESDataTable) 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.tableTBDD_MODULES.GUIDColumn),Integer) @@ -13509,7 +13438,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get Try @@ -13524,13 +13453,13 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_MODULES.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBDD_MODULES.NAMEColumn) = Global.System.Convert.DBNull End Sub @@ -13545,14 +13474,14 @@ Partial Public Class MyDataset Private tableTBDD_INDEX_MAN As TBDD_INDEX_MANDataTable _ + 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_INDEX_MAN = CType(Me.Table,TBDD_INDEX_MANDataTable) 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.tableTBDD_INDEX_MAN.GUIDColumn),Integer) @@ -13563,7 +13492,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DOK_ID() As Integer Get Return CType(Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn),Integer) @@ -13574,7 +13503,7 @@ Partial Public Class MyDataset 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.tableTBDD_INDEX_MAN.NAMEColumn),String) @@ -13585,7 +13514,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property WD_INDEX() As String Get Try @@ -13600,7 +13529,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -13615,7 +13544,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DATATYPE() As String Get Try @@ -13630,7 +13559,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUGGESTION() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn),Boolean) @@ -13641,7 +13570,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DEFAULT_VALUE() As String Get Return CType(Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn),String) @@ -13652,7 +13581,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CONNECTION_ID() As Short Get Try @@ -13667,7 +13596,7 @@ Partial Public Class MyDataset 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.tableTBDD_INDEX_MAN.SEQUENCEColumn),Integer) @@ -13678,7 +13607,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_RESULT() As String Get Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn),String) @@ -13689,7 +13618,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_CHECK() As String Get Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn),String) @@ -13700,7 +13629,7 @@ Partial Public Class MyDataset 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.tableTBDD_INDEX_MAN.ACTIVEColumn),Boolean) @@ -13711,7 +13640,7 @@ Partial Public Class MyDataset 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.tableTBDD_INDEX_MAN.ADDED_WHOColumn),String) @@ -13722,7 +13651,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -13737,7 +13666,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -13752,7 +13681,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -13767,7 +13696,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _OPTIONAL() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn),Boolean) @@ -13778,7 +13707,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SAVE_VALUE() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn),Boolean) @@ -13789,7 +13718,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBDD_CONNECTIONRow() As TBDD_CONNECTIONRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_CID")),TBDD_CONNECTIONRow) @@ -13800,7 +13729,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_DOKUMENTARTRow) @@ -13811,91 +13740,91 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsWD_INDEXNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetWD_INDEXNull() Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDATATYPENull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDATATYPENull() Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCONNECTION_IDNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCONNECTION_IDNull() Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = 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.tableTBDD_INDEX_MAN.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_INDEX_MAN.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.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_INDEX_MAN.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.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBDD_INDEX_MAN_POSTPROCESSINGRows() As TBDD_INDEX_MAN_POSTPROCESSINGRow() If (Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID") Is Nothing) Then Return New TBDD_INDEX_MAN_POSTPROCESSINGRow(-1) {} @@ -13914,14 +13843,14 @@ Partial Public Class MyDataset 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) @@ -13932,7 +13861,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Try @@ -13947,7 +13876,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_PROVIDER() As String Get Try @@ -13962,7 +13891,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERVER() As String Get Try @@ -13977,7 +13906,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DATENBANK() As String Get Try @@ -13992,7 +13921,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property USERNAME() As String Get Try @@ -14007,7 +13936,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PASSWORD() As String Get Try @@ -14022,7 +13951,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEMERKUNG() As String Get Try @@ -14037,7 +13966,7 @@ Partial Public Class MyDataset 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) @@ -14048,7 +13977,7 @@ Partial Public Class MyDataset 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) @@ -14059,7 +13988,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Try @@ -14074,7 +14003,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEANDERTWER() As String Get Try @@ -14089,7 +14018,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -14104,127 +14033,127 @@ Partial Public Class MyDataset 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow() If (Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_CID") Is Nothing) Then Return New TBDD_INDEX_MANRow(-1) {} @@ -14243,14 +14172,14 @@ Partial Public Class MyDataset Private tableVWDDINDEX_MAN As VWDDINDEX_MANDataTable _ + 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.tableVWDDINDEX_MAN = CType(Me.Table,VWDDINDEX_MANDataTable) 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.tableVWDDINDEX_MAN.GUIDColumn),Integer) @@ -14261,7 +14190,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property INDEXNAME() As String Get Return CType(Me(Me.tableVWDDINDEX_MAN.INDEXNAMEColumn),String) @@ -14272,7 +14201,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property WD_INDEX() As String Get Try @@ -14287,7 +14216,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -14302,7 +14231,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DATATYPE() As String Get Try @@ -14317,7 +14246,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DOK_ID() As Integer Get Return CType(Me(Me.tableVWDDINDEX_MAN.DOK_IDColumn),Integer) @@ -14328,7 +14257,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DOKUMENTART() As String Get Return CType(Me(Me.tableVWDDINDEX_MAN.DOKUMENTARTColumn),String) @@ -14339,7 +14268,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property KURZNAME() As String Get Return CType(Me(Me.tableVWDDINDEX_MAN.KURZNAMEColumn),String) @@ -14350,7 +14279,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUGGESTION() As Boolean Get Return CType(Me(Me.tableVWDDINDEX_MAN.SUGGESTIONColumn),Boolean) @@ -14361,7 +14290,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CONNECTION_ID() As Short Get Try @@ -14376,7 +14305,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CONNECTION() As String Get Try @@ -14391,7 +14320,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_PROVIDER() As String Get Try @@ -14406,7 +14335,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERVER() As String Get Try @@ -14421,7 +14350,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DATENBANK() As String Get Try @@ -14436,7 +14365,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property USERNAME() As String Get Try @@ -14451,7 +14380,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PASSWORD() As String Get Try @@ -14466,7 +14395,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_RESULT() As String Get Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_RESULTColumn),String) @@ -14477,7 +14406,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_CHECK() As String Get Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_CHECKColumn),String) @@ -14488,7 +14417,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Indexiert() As Boolean Get Try @@ -14503,7 +14432,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Indexwert() As String Get Try @@ -14518,7 +14447,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _OPTIONAL() As Boolean Get Return CType(Me(Me.tableVWDDINDEX_MAN.OPTIONALColumn),Boolean) @@ -14529,7 +14458,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Indexwert_File() As String Get Try @@ -14544,7 +14473,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SAVE_VALUE() As Boolean Get Return CType(Me(Me.tableVWDDINDEX_MAN.SAVE_VALUEColumn),Boolean) @@ -14555,157 +14484,157 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsWD_INDEXNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetWD_INDEXNull() Me(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableVWDDINDEX_MAN.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDATATYPENull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.DATATYPEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDATATYPENull() Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCONNECTION_IDNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCONNECTION_IDNull() Me(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCONNECTIONNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCONNECTIONNull() Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) = 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.tableVWDDINDEX_MAN.SQL_PROVIDERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSQL_PROVIDERNull() Me(Me.tableVWDDINDEX_MAN.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.tableVWDDINDEX_MAN.SERVERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERVERNull() Me(Me.tableVWDDINDEX_MAN.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.tableVWDDINDEX_MAN.DATENBANKColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDATENBANKNull() Me(Me.tableVWDDINDEX_MAN.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.tableVWDDINDEX_MAN.USERNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetUSERNAMENull() Me(Me.tableVWDDINDEX_MAN.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.tableVWDDINDEX_MAN.PASSWORDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPASSWORDNull() Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIndexiertNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.IndexiertColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIndexiertNull() Me(Me.tableVWDDINDEX_MAN.IndexiertColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIndexwertNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.IndexwertColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIndexwertNull() Me(Me.tableVWDDINDEX_MAN.IndexwertColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIndexwert_FileNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIndexwert_FileNull() Me(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn) = Global.System.Convert.DBNull End Sub @@ -14720,14 +14649,14 @@ Partial Public Class MyDataset Private tableVWDDINDEX_AUTOM As VWDDINDEX_AUTOMDataTable _ + 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.tableVWDDINDEX_AUTOM = CType(Me.Table,VWDDINDEX_AUTOMDataTable) 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.tableVWDDINDEX_AUTOM.GUIDColumn),Integer) @@ -14738,7 +14667,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property INDEXNAME() As String Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.INDEXNAMEColumn),String) @@ -14749,7 +14678,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -14764,7 +14693,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DOCTYPE_ID() As Integer Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.DOCTYPE_IDColumn),Integer) @@ -14775,7 +14704,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DOKUMENTART() As String Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.DOKUMENTARTColumn),String) @@ -14786,7 +14715,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property KURZNAME() As String Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.KURZNAMEColumn),String) @@ -14797,7 +14726,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CONNECTION_ID() As Short Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.CONNECTION_IDColumn),Short) @@ -14808,7 +14737,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CONNECTION() As String Get Try @@ -14823,7 +14752,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_PROVIDER() As String Get Try @@ -14838,7 +14767,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERVER() As String Get Try @@ -14853,7 +14782,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DATENBANK() As String Get Try @@ -14868,7 +14797,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property USERNAME() As String Get Try @@ -14883,7 +14812,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PASSWORD() As String Get Try @@ -14898,7 +14827,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_RESULT() As String Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_RESULTColumn),String) @@ -14909,7 +14838,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Indexiert() As Boolean Get Try @@ -14924,7 +14853,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Indexwert() As String Get Try @@ -14939,7 +14868,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VALUE() As String Get Try @@ -14954,7 +14883,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_ACTIVE() As Boolean Get Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_ACTIVEColumn),Boolean) @@ -14965,121 +14894,121 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCONNECTIONNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCONNECTIONNull() Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) = 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.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSQL_PROVIDERNull() Me(Me.tableVWDDINDEX_AUTOM.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.tableVWDDINDEX_AUTOM.SERVERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERVERNull() Me(Me.tableVWDDINDEX_AUTOM.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.tableVWDDINDEX_AUTOM.DATENBANKColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDATENBANKNull() Me(Me.tableVWDDINDEX_AUTOM.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.tableVWDDINDEX_AUTOM.USERNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetUSERNAMENull() Me(Me.tableVWDDINDEX_AUTOM.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.tableVWDDINDEX_AUTOM.PASSWORDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPASSWORDNull() Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIndexiertNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIndexiertNull() Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIndexwertNull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIndexwertNull() Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsVALUENull() As Boolean Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.VALUEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetVALUENull() Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull End Sub @@ -15094,14 +15023,14 @@ Partial Public Class MyDataset Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable _ + 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_INDEX_AUTOM = CType(Me.Table,TBDD_INDEX_AUTOMDataTable) 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.tableTBDD_INDEX_AUTOM.GUIDColumn),Integer) @@ -15112,7 +15041,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DOCTYPE_ID() As Integer Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn),Integer) @@ -15123,7 +15052,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property INDEXNAME() As String Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn),String) @@ -15134,7 +15063,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VALUE() As String Get Try @@ -15149,7 +15078,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CONNECTION_ID() As Short Get Try @@ -15164,7 +15093,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -15179,7 +15108,7 @@ Partial Public Class MyDataset 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.tableTBDD_INDEX_AUTOM.ACTIVEColumn),Boolean) @@ -15190,7 +15119,7 @@ Partial Public Class MyDataset 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.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn),String) @@ -15201,7 +15130,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -15216,7 +15145,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -15231,7 +15160,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -15246,7 +15175,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_RESULT() As String Get Try @@ -15261,7 +15190,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn),Boolean) @@ -15272,7 +15201,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_DOKUMENTARTRow) @@ -15283,85 +15212,85 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsVALUENull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetVALUENull() Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCONNECTION_IDNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCONNECTION_IDNull() Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_INDEX_AUTOM.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.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_INDEX_AUTOM.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.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_INDEX_AUTOM.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.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSQL_RESULTNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSQL_RESULTNull() Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = Global.System.Convert.DBNull End Sub @@ -15376,14 +15305,14 @@ Partial Public Class MyDataset Private tableTBGI_CONFIGURATION As TBGI_CONFIGURATIONDataTable _ + 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.tableTBGI_CONFIGURATION = CType(Me.Table,TBGI_CONFIGURATIONDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Byte Get Return CType(Me(Me.tableTBGI_CONFIGURATION.GUIDColumn),Byte) @@ -15394,7 +15323,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IDX_EMAIL_ID() As String Get Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_IDColumn),String) @@ -15405,7 +15334,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IDX_EMAIL_FROM() As String Get Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_FROMColumn),String) @@ -15416,7 +15345,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IDX_EMAIL_TO() As String Get Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_TOColumn),String) @@ -15427,7 +15356,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IDX_EMAIL_SUBJECT() As String Get Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_SUBJECTColumn),String) @@ -15438,7 +15367,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IDX_EMAIL_DATE_IN() As String Get Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_DATE_INColumn),String) @@ -15449,7 +15378,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -15464,7 +15393,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -15479,25 +15408,25 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBGI_CONFIGURATION.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.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -15512,14 +15441,14 @@ Partial Public Class MyDataset Private tableTBGI_OBJECTTYPE_EMAIL_INDEX As TBGI_OBJECTTYPE_EMAIL_INDEXDataTable _ + 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.tableTBGI_OBJECTTYPE_EMAIL_INDEX = CType(Me.Table,TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) 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.tableTBGI_OBJECTTYPE_EMAIL_INDEX.GUIDColumn),Integer) @@ -15530,7 +15459,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property OBJECTTYPE() As String Get Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn),String) @@ -15541,7 +15470,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IDX_EMAIL_ID() As String Get Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_IDColumn),String) @@ -15552,7 +15481,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IDX_EMAIL_FROM() As String Get Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_FROMColumn),String) @@ -15563,7 +15492,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IDX_EMAIL_TO() As String Get Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_TOColumn),String) @@ -15574,7 +15503,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IDX_EMAIL_SUBJECT() As String Get Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_SUBJECTColumn),String) @@ -15585,7 +15514,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IDX_EMAIL_DATE_IN() As String Get Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_DATE_INColumn),String) @@ -15596,7 +15525,7 @@ Partial Public Class MyDataset 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.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn),String) @@ -15607,7 +15536,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -15623,7 +15552,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -15639,7 +15568,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -15655,7 +15584,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IDX_CHECK_ATTACHMENT() As String Get Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_CHECK_ATTACHMENTColumn),String) @@ -15666,37 +15595,37 @@ Partial Public Class MyDataset 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.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.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.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.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.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -15711,14 +15640,14 @@ Partial Public Class MyDataset Private tableTBDD_INDEX_MAN_POSTPROCESSING As TBDD_INDEX_MAN_POSTPROCESSINGDataTable _ + 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_INDEX_MAN_POSTPROCESSING = CType(Me.Table,TBDD_INDEX_MAN_POSTPROCESSINGDataTable) 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.tableTBDD_INDEX_MAN_POSTPROCESSING.GUIDColumn),Integer) @@ -15729,7 +15658,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IDXMAN_ID() As Integer Get Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn),Integer) @@ -15740,7 +15669,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -15755,7 +15684,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TYPE() As String Get Try @@ -15770,7 +15699,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FUNCTION1() As String Get Try @@ -15786,7 +15715,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FUNCTION2() As String Get Try @@ -15802,7 +15731,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TEXT1() As String Get Try @@ -15817,7 +15746,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TEXT2() As String Get Try @@ -15832,7 +15761,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TEXT3() As String Get Try @@ -15847,7 +15776,7 @@ Partial Public Class MyDataset 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.tableTBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn),Integer) @@ -15858,7 +15787,7 @@ Partial Public Class MyDataset 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.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn),String) @@ -15869,7 +15798,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -15885,7 +15814,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -15901,7 +15830,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -15917,7 +15846,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _VARIANT() As String Get Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.VARIANTColumn),String) @@ -15928,7 +15857,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBDD_INDEX_MANRow() As TBDD_INDEX_MANRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")),TBDD_INDEX_MANRow) @@ -15939,7 +15868,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBWHDD_INDEX_MANRow() As TBWHDD_INDEX_MANRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")),TBWHDD_INDEX_MANRow) @@ -15950,121 +15879,121 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsTYPENull() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetTYPENull() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsFUNCTION1Null() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetFUNCTION1Null() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsFUNCTION2Null() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetFUNCTION2Null() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsTEXT1Null() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetTEXT1Null() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsTEXT2Null() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetTEXT2Null() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsTEXT3Null() As Boolean Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetTEXT3Null() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) = 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.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.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.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.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.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -16079,14 +16008,14 @@ Partial Public Class MyDataset Private tableTBWHDD_INDEX_MAN As TBWHDD_INDEX_MANDataTable _ + 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.tableTBWHDD_INDEX_MAN = CType(Me.Table,TBWHDD_INDEX_MANDataTable) 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.tableTBWHDD_INDEX_MAN.GUIDColumn),Integer) @@ -16097,7 +16026,7 @@ Partial Public Class MyDataset 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.tableTBWHDD_INDEX_MAN.NAMEColumn),String) @@ -16108,7 +16037,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBDD_INDEX_MAN_POSTPROCESSINGRows() As TBDD_INDEX_MAN_POSTPROCESSINGRow() If (Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1") Is Nothing) Then Return New TBDD_INDEX_MAN_POSTPROCESSINGRow(-1) {} @@ -16127,14 +16056,14 @@ Partial Public Class MyDataset Private tableTBDD_USER_GROUPS As TBDD_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.tableTBDD_USER_GROUPS = CType(Me.Table,TBDD_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.tableTBDD_USER_GROUPS.GUIDColumn),Integer) @@ -16145,7 +16074,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get Try @@ -16160,7 +16089,7 @@ Partial Public Class MyDataset 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.tableTBDD_USER_GROUPS.ADDED_WHOColumn),String) @@ -16171,7 +16100,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -16186,7 +16115,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -16201,7 +16130,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -16216,55 +16145,55 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER_GROUPS.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = 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.tableTBDD_USER_GROUPS.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_USER_GROUPS.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.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_USER_GROUPS.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.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID") Is Nothing) Then Return New TBDD_GROUPS_USERRow(-1) {} @@ -16283,14 +16212,14 @@ Partial Public Class MyDataset Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable _ + 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_GROUPS_USER = CType(Me.Table,TBDD_GROUPS_USERDataTable) 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.tableTBDD_GROUPS_USER.GUIDColumn),Integer) @@ -16301,7 +16230,7 @@ Partial Public Class MyDataset 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.tableTBDD_GROUPS_USER.USER_IDColumn),Integer) @@ -16312,7 +16241,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GROUP_ID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn),Integer) @@ -16323,7 +16252,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -16338,7 +16267,7 @@ Partial Public Class MyDataset 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.tableTBDD_GROUPS_USER.ADDED_WHOColumn),String) @@ -16349,7 +16278,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -16364,7 +16293,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -16379,7 +16308,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_USER_GROUPSRow) @@ -16390,7 +16319,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBDD_USERRow() As TBDD_USERRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_USERRow) @@ -16401,37 +16330,37 @@ Partial Public Class MyDataset 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.tableTBDD_GROUPS_USER.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_GROUPS_USER.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.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_GROUPS_USER.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.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -16446,14 +16375,14 @@ Partial Public Class MyDataset Private tableVWGI_USER_GROUPS_RELATION As VWGI_USER_GROUPS_RELATIONDataTable _ + 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.tableVWGI_USER_GROUPS_RELATION = CType(Me.Table,VWGI_USER_GROUPS_RELATIONDataTable) 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.tableVWGI_USER_GROUPS_RELATION.GUIDColumn),Integer) @@ -16464,7 +16393,7 @@ Partial Public Class MyDataset 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.tableVWGI_USER_GROUPS_RELATION.USER_IDColumn),Integer) @@ -16475,7 +16404,7 @@ Partial Public Class MyDataset 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.tableVWGI_USER_GROUPS_RELATION.USERNAMEColumn),String) @@ -16486,7 +16415,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GROUP_ID() As Integer Get Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.GROUP_IDColumn),Integer) @@ -16497,7 +16426,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get Try @@ -16512,7 +16441,7 @@ Partial Public Class MyDataset 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.tableVWGI_USER_GROUPS_RELATION.ADDED_WHOColumn),String) @@ -16523,7 +16452,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -16538,7 +16467,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -16553,7 +16482,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -16569,49 +16498,49 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) = 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.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableVWGI_USER_GROUPS_RELATION.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.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableVWGI_USER_GROUPS_RELATION.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.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -16626,14 +16555,14 @@ Partial Public Class MyDataset Private tableVWGI_DOCTYPE_GROUP As VWGI_DOCTYPE_GROUPDataTable _ + 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.tableVWGI_DOCTYPE_GROUP = CType(Me.Table,VWGI_DOCTYPE_GROUPDataTable) 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.tableVWGI_DOCTYPE_GROUP.GUIDColumn),Integer) @@ -16644,7 +16573,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DOCTYPE_ID() As Integer Get Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.DOCTYPE_IDColumn),Integer) @@ -16655,7 +16584,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DOCTYPE() As String Get Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.DOCTYPEColumn),String) @@ -16666,7 +16595,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GROUP_ID() As Integer Get Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.GROUP_IDColumn),Integer) @@ -16677,7 +16606,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GROUP() As String Get Try @@ -16692,7 +16621,7 @@ Partial Public Class MyDataset 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.tableVWGI_DOCTYPE_GROUP.ADDED_WHOColumn),String) @@ -16703,7 +16632,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -16718,7 +16647,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -16733,37 +16662,37 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGROUPNull() As Boolean Return Me.IsNull(Me.tableVWGI_DOCTYPE_GROUP.GROUPColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGROUPNull() Me(Me.tableVWGI_DOCTYPE_GROUP.GROUPColumn) = 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.tableVWGI_DOCTYPE_GROUP.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableVWGI_DOCTYPE_GROUP.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.tableVWGI_DOCTYPE_GROUP.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableVWGI_DOCTYPE_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -16778,14 +16707,14 @@ Partial Public Class MyDataset Private tableTBHOTKEY_PROFILE As TBHOTKEY_PROFILEDataTable _ + 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.tableTBHOTKEY_PROFILE = CType(Me.Table,TBHOTKEY_PROFILEDataTable) 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.tableTBHOTKEY_PROFILE.GUIDColumn),Integer) @@ -16796,7 +16725,7 @@ Partial Public Class MyDataset 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.tableTBHOTKEY_PROFILE.NAMEColumn),String) @@ -16807,7 +16736,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property OBJECTTYPE() As String Get Return CType(Me(Me.tableTBHOTKEY_PROFILE.OBJECTTYPEColumn),String) @@ -16818,7 +16747,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property WD_SEARCH() As String Get Return CType(Me(Me.tableTBHOTKEY_PROFILE.WD_SEARCHColumn),String) @@ -16829,7 +16758,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property HOTKEY1() As String Get Return CType(Me(Me.tableTBHOTKEY_PROFILE.HOTKEY1Column),String) @@ -16840,7 +16769,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property HOTKEY2() As String Get Return CType(Me(Me.tableTBHOTKEY_PROFILE.HOTKEY2Column),String) @@ -16851,7 +16780,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property WINDOW_NAME() As String Get Return CType(Me(Me.tableTBHOTKEY_PROFILE.WINDOW_NAMEColumn),String) @@ -16862,7 +16791,7 @@ Partial Public Class MyDataset 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.tableTBHOTKEY_PROFILE.ADDED_WHOColumn),String) @@ -16873,7 +16802,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -16888,7 +16817,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -16903,7 +16832,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -16918,7 +16847,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _String() As String Get Try @@ -16933,55 +16862,55 @@ Partial Public Class MyDataset 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.tableTBHOTKEY_PROFILE.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBHOTKEY_PROFILE.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.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBHOTKEY_PROFILE.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.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function Is_StringNull() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.StringColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub Set_StringNull() Me(Me.tableTBHOTKEY_PROFILE.StringColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBHOTKEY_PATTERNSRows() As TBHOTKEY_PATTERNSRow() If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID") Is Nothing) Then Return New TBHOTKEY_PATTERNSRow(-1) {} @@ -16991,7 +16920,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID") Is Nothing) Then Return New TBHOTKEY_USER_PROFILERow(-1) {} @@ -17001,7 +16930,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBHOTKEY_WINDOW_HOOKRows() As TBHOTKEY_WINDOW_HOOKRow() If (Me.Table.ChildRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID") Is Nothing) Then Return New TBHOTKEY_WINDOW_HOOKRow(-1) {} @@ -17020,14 +16949,14 @@ Partial Public Class MyDataset Private tableTBHOTKEY_PATTERNS As TBHOTKEY_PATTERNSDataTable _ + 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.tableTBHOTKEY_PATTERNS = CType(Me.Table,TBHOTKEY_PATTERNSDataTable) 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.tableTBHOTKEY_PATTERNS.GUIDColumn),Integer) @@ -17038,7 +16967,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property HKPROFILE_ID() As Integer Get Return CType(Me(Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn),Integer) @@ -17049,7 +16978,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PATTERN_WDSEARCH() As String Get Return CType(Me(Me.tableTBHOTKEY_PATTERNS.PATTERN_WDSEARCHColumn),String) @@ -17060,7 +16989,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property WINDOW_CONTROL() As String Get Return CType(Me(Me.tableTBHOTKEY_PATTERNS.WINDOW_CONTROLColumn),String) @@ -17071,7 +17000,7 @@ Partial Public Class MyDataset 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.tableTBHOTKEY_PATTERNS.ADDED_WHOColumn),String) @@ -17082,7 +17011,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -17097,7 +17026,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -17112,7 +17041,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -17127,7 +17056,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SEQUENCE_NUMBER() As Integer Get Return CType(Me(Me.tableTBHOTKEY_PATTERNS.SEQUENCE_NUMBERColumn),Integer) @@ -17138,7 +17067,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")),TBHOTKEY_PROFILERow) @@ -17149,7 +17078,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBMYHOTKEYSRow() As TBMYHOTKEYSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")),TBMYHOTKEYSRow) @@ -17160,43 +17089,43 @@ Partial Public Class MyDataset 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.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBHOTKEY_PATTERNS.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.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBHOTKEY_PATTERNS.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.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBHOTKEY_PATTERNS_REWORKRows() As TBHOTKEY_PATTERNS_REWORKRow() If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID") Is Nothing) Then Return New TBHOTKEY_PATTERNS_REWORKRow(-1) {} @@ -17215,14 +17144,14 @@ Partial Public Class MyDataset Private tableTBMYHOTKEYS As TBMYHOTKEYSDataTable _ + 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.tableTBMYHOTKEYS = CType(Me.Table,TBMYHOTKEYSDataTable) 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.tableTBMYHOTKEYS.GUIDColumn),Integer) @@ -17233,7 +17162,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _String() As String Get Try @@ -17248,19 +17177,19 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function Is_StringNull() As Boolean Return Me.IsNull(Me.tableTBMYHOTKEYS.StringColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub Set_StringNull() Me(Me.tableTBMYHOTKEYS.StringColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBHOTKEY_PATTERNSRows() As TBHOTKEY_PATTERNSRow() If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1") Is Nothing) Then Return New TBHOTKEY_PATTERNSRow(-1) {} @@ -17270,7 +17199,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1") Is Nothing) Then Return New TBHOTKEY_USER_PROFILERow(-1) {} @@ -17289,14 +17218,14 @@ Partial Public Class MyDataset Private tableTBHOTKEY_USER_PROFILE As TBHOTKEY_USER_PROFILEDataTable _ + 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.tableTBHOTKEY_USER_PROFILE = CType(Me.Table,TBHOTKEY_USER_PROFILEDataTable) 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.tableTBHOTKEY_USER_PROFILE.GUIDColumn),Integer) @@ -17307,7 +17236,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property HKPROFILE_ID() As Integer Get Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn),Integer) @@ -17318,7 +17247,7 @@ Partial Public Class MyDataset 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.tableTBHOTKEY_USER_PROFILE.USER_IDColumn),Integer) @@ -17329,7 +17258,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property WD_SEARCH() As String Get Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.WD_SEARCHColumn),String) @@ -17340,7 +17269,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property HOTKEY1() As String Get Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY1Column),String) @@ -17351,7 +17280,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property HOTKEY2() As String Get Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY2Column),String) @@ -17362,7 +17291,7 @@ Partial Public Class MyDataset 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.tableTBHOTKEY_USER_PROFILE.ADDED_WHOColumn),String) @@ -17373,7 +17302,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -17388,7 +17317,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -17403,7 +17332,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -17418,7 +17347,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")),TBHOTKEY_PROFILERow) @@ -17429,7 +17358,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBMYHOTKEYSRow() As TBMYHOTKEYSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")),TBMYHOTKEYSRow) @@ -17440,7 +17369,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBDD_USERRow() As TBDD_USERRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")),TBDD_USERRow) @@ -17451,37 +17380,37 @@ Partial Public Class MyDataset 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.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBHOTKEY_USER_PROFILE.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.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBHOTKEY_USER_PROFILE.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.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -17496,14 +17425,14 @@ Partial Public Class MyDataset Private tableTBHOTKEY_PATTERNS_REWORK As TBHOTKEY_PATTERNS_REWORKDataTable _ + 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.tableTBHOTKEY_PATTERNS_REWORK = CType(Me.Table,TBHOTKEY_PATTERNS_REWORKDataTable) 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.tableTBHOTKEY_PATTERNS_REWORK.GUIDColumn),Integer) @@ -17514,7 +17443,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property HKPATTERN_ID() As Integer Get Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn),Integer) @@ -17525,7 +17454,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TYPE() As String Get Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TYPEColumn),String) @@ -17536,7 +17465,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FUNCTION1() As String Get Try @@ -17551,7 +17480,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FUNCTION2() As String Get Try @@ -17566,7 +17495,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TEXT1() As String Get Try @@ -17581,7 +17510,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TEXT2() As String Get Try @@ -17596,7 +17525,7 @@ Partial Public Class MyDataset 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.tableTBHOTKEY_PATTERNS_REWORK.SEQUENCEColumn),Integer) @@ -17607,7 +17536,7 @@ Partial Public Class MyDataset 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.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn),String) @@ -17618,7 +17547,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -17633,7 +17562,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -17648,7 +17577,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -17663,7 +17592,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBHOTKEY_PATTERNSRow() As TBHOTKEY_PATTERNSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")),TBHOTKEY_PATTERNSRow) @@ -17674,85 +17603,85 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsFUNCTION1Null() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetFUNCTION1Null() Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsFUNCTION2Null() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetFUNCTION2Null() Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsTEXT1Null() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetTEXT1Null() Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsTEXT2Null() As Boolean Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetTEXT2Null() Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) = 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.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBHOTKEY_PATTERNS_REWORK.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.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBHOTKEY_PATTERNS_REWORK.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.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -17767,14 +17696,14 @@ Partial Public Class MyDataset Private tableTBHOTKEY_WINDOW_HOOK As TBHOTKEY_WINDOW_HOOKDataTable _ + 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.tableTBHOTKEY_WINDOW_HOOK = CType(Me.Table,TBHOTKEY_WINDOW_HOOKDataTable) 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.tableTBHOTKEY_WINDOW_HOOK.GUIDColumn),Integer) @@ -17785,7 +17714,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property HKPROFILE_ID() As Integer Get Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.HKPROFILE_IDColumn),Integer) @@ -17796,7 +17725,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SEQUENCE_NUMBER() As Integer Get Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.SEQUENCE_NUMBERColumn),Integer) @@ -17807,7 +17736,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CONTROL_VALUE() As String Get Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CONTROL_VALUEColumn),String) @@ -17818,7 +17747,7 @@ Partial Public Class MyDataset 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.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHOColumn),String) @@ -17829,7 +17758,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -17844,7 +17773,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -17859,7 +17788,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -17874,7 +17803,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")),TBHOTKEY_PROFILERow) @@ -17885,37 +17814,37 @@ Partial Public Class MyDataset 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.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBHOTKEY_WINDOW_HOOK.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.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBHOTKEY_WINDOW_HOOK.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.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -17930,14 +17859,14 @@ Partial Public Class MyDataset Private tableTBGI_FILES_USER As TBGI_FILES_USERDataTable _ + 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.tableTBGI_FILES_USER = CType(Me.Table,TBGI_FILES_USERDataTable) 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.tableTBGI_FILES_USER.GUIDColumn),Integer) @@ -17948,7 +17877,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FILENAME2WORK() As String Get Return CType(Me(Me.tableTBGI_FILES_USER.FILENAME2WORKColumn),String) @@ -17959,7 +17888,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _USER_WORK() As String Get Return CType(Me(Me.tableTBGI_FILES_USER._USER_WORKColumn),String) @@ -17970,7 +17899,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property WORKED() As Boolean Get Return CType(Me(Me.tableTBGI_FILES_USER.WORKEDColumn),Boolean) @@ -17981,7 +17910,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBGI_FILES_USER.ADDED_WHENColumn),Date) @@ -17992,7 +17921,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property HANDLE_TYPE() As String Get Try @@ -18007,7 +17936,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Delete() As Boolean Get Try @@ -18022,7 +17951,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FILENAME_ONLY() As String Get Return CType(Me(Me.tableTBGI_FILES_USER.FILENAME_ONLYColumn),String) @@ -18033,25 +17962,25 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsHANDLE_TYPENull() As Boolean Return Me.IsNull(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetHANDLE_TYPENull() Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDeleteNull() As Boolean Return Me.IsNull(Me.tableTBGI_FILES_USER.DeleteColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDeleteNull() Me(Me.tableTBGI_FILES_USER.DeleteColumn) = Global.System.Convert.DBNull End Sub @@ -18066,14 +17995,14 @@ Partial Public Class MyDataset Private tableTBGI_HISTORY As TBGI_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.tableTBGI_HISTORY = CType(Me.Table,TBGI_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.tableTBGI_HISTORY.GUIDColumn),Integer) @@ -18084,7 +18013,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FILENAME_ORIGINAL() As String Get Try @@ -18099,7 +18028,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FILENAME_NEW() As String Get Try @@ -18114,7 +18043,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBGI_HISTORY.ADDED_WHENColumn),Date) @@ -18125,25 +18054,25 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsFILENAME_ORIGINALNull() As Boolean Return Me.IsNull(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetFILENAME_ORIGINALNull() Me(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsFILENAME_NEWNull() As Boolean Return Me.IsNull(Me.tableTBGI_HISTORY.FILENAME_NEWColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetFILENAME_NEWNull() Me(Me.tableTBGI_HISTORY.FILENAME_NEWColumn) = Global.System.Convert.DBNull End Sub @@ -18158,14 +18087,14 @@ Partial Public Class MyDataset Private tableTBTempFiles2Index As TBTempFiles2IndexDataTable _ + 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.tableTBTempFiles2Index = CType(Me.Table,TBTempFiles2IndexDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Filestring() As String Get Try @@ -18180,7 +18109,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Worked() As Boolean Get Try @@ -18195,25 +18124,25 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsFilestringNull() As Boolean Return Me.IsNull(Me.tableTBTempFiles2Index.FilestringColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetFilestringNull() Me(Me.tableTBTempFiles2Index.FilestringColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsWorkedNull() As Boolean Return Me.IsNull(Me.tableTBTempFiles2Index.WorkedColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetWorkedNull() Me(Me.tableTBTempFiles2Index.WorkedColumn) = Global.System.Convert.DBNull End Sub @@ -18228,14 +18157,14 @@ Partial Public Class MyDataset Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable _ + 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.tableTBTEMP_INDEXRESULTS = CType(Me.Table,TBTEMP_INDEXRESULTSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Indexname() As String Get Try @@ -18250,7 +18179,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Value() As String Get Try @@ -18265,7 +18194,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Dokumentart() As String Get Try @@ -18280,37 +18209,37 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIndexnameNull() As Boolean Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIndexnameNull() Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsValueNull() As Boolean Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetValueNull() Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDokumentartNull() As Boolean Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDokumentartNull() Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = Global.System.Convert.DBNull End Sub @@ -18325,14 +18254,14 @@ Partial Public Class MyDataset 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 @@ -18347,7 +18276,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Username() As String Get Try @@ -18362,7 +18291,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Prename() As String Get Try @@ -18377,7 +18306,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Surname() As String Get Try @@ -18392,7 +18321,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Email() As String Get Try @@ -18407,7 +18336,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ID() As Short Get Try @@ -18422,73 +18351,73 @@ Partial Public Class MyDataset 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 @@ -18497,7 +18426,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBDD_USERRowChangeEvent Inherits Global.System.EventArgs @@ -18506,7 +18435,7 @@ Partial Public Class MyDataset 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_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -18514,7 +18443,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBDD_USERRow Get Return Me.eventRow @@ -18522,7 +18451,7 @@ Partial Public Class MyDataset 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 @@ -18533,7 +18462,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBDD_DOKUMENTARTRowChangeEvent Inherits Global.System.EventArgs @@ -18542,7 +18471,7 @@ Partial Public Class MyDataset 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_DOKUMENTARTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -18550,7 +18479,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBDD_DOKUMENTARTRow Get Return Me.eventRow @@ -18558,7 +18487,7 @@ Partial Public Class MyDataset 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 @@ -18569,7 +18498,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBDD_EINGANGSARTENRowChangeEvent Inherits Global.System.EventArgs @@ -18578,7 +18507,7 @@ Partial Public Class MyDataset 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_EINGANGSARTENRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -18586,7 +18515,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBDD_EINGANGSARTENRow Get Return Me.eventRow @@ -18594,7 +18523,7 @@ Partial Public Class MyDataset 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 @@ -18605,7 +18534,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBDD_DOKART_MODULERowChangeEvent Inherits Global.System.EventArgs @@ -18614,7 +18543,7 @@ Partial Public Class MyDataset 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_DOKART_MODULERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -18622,7 +18551,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBDD_DOKART_MODULERow Get Return Me.eventRow @@ -18630,7 +18559,7 @@ Partial Public Class MyDataset 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 @@ -18641,7 +18570,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBDD_MODULESRowChangeEvent Inherits Global.System.EventArgs @@ -18650,7 +18579,7 @@ Partial Public Class MyDataset 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_MODULESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -18658,7 +18587,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBDD_MODULESRow Get Return Me.eventRow @@ -18666,7 +18595,7 @@ Partial Public Class MyDataset 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 @@ -18677,7 +18606,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBDD_INDEX_MANRowChangeEvent Inherits Global.System.EventArgs @@ -18686,7 +18615,7 @@ Partial Public Class MyDataset 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_INDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -18694,7 +18623,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBDD_INDEX_MANRow Get Return Me.eventRow @@ -18702,7 +18631,7 @@ Partial Public Class MyDataset 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 @@ -18713,7 +18642,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBDD_CONNECTIONRowChangeEvent Inherits Global.System.EventArgs @@ -18722,7 +18651,7 @@ Partial Public Class MyDataset 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 @@ -18730,7 +18659,7 @@ Partial Public Class MyDataset 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 @@ -18738,7 +18667,7 @@ Partial Public Class MyDataset 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 @@ -18749,7 +18678,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWDDINDEX_MANRowChangeEvent Inherits Global.System.EventArgs @@ -18758,7 +18687,7 @@ Partial Public Class MyDataset 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 VWDDINDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -18766,7 +18695,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWDDINDEX_MANRow Get Return Me.eventRow @@ -18774,7 +18703,7 @@ Partial Public Class MyDataset 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 @@ -18785,7 +18714,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWDDINDEX_AUTOMRowChangeEvent Inherits Global.System.EventArgs @@ -18794,7 +18723,7 @@ Partial Public Class MyDataset 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 VWDDINDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -18802,7 +18731,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWDDINDEX_AUTOMRow Get Return Me.eventRow @@ -18810,7 +18739,7 @@ Partial Public Class MyDataset 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 @@ -18821,7 +18750,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBDD_INDEX_AUTOMRowChangeEvent Inherits Global.System.EventArgs @@ -18830,7 +18759,7 @@ Partial Public Class MyDataset 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_INDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -18838,7 +18767,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBDD_INDEX_AUTOMRow Get Return Me.eventRow @@ -18846,7 +18775,7 @@ Partial Public Class MyDataset 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 @@ -18857,7 +18786,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBGI_CONFIGURATIONRowChangeEvent Inherits Global.System.EventArgs @@ -18866,7 +18795,7 @@ Partial Public Class MyDataset 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 TBGI_CONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -18874,7 +18803,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBGI_CONFIGURATIONRow Get Return Me.eventRow @@ -18882,7 +18811,7 @@ Partial Public Class MyDataset 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 @@ -18893,7 +18822,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent Inherits Global.System.EventArgs @@ -18902,7 +18831,7 @@ Partial Public Class MyDataset 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 TBGI_OBJECTTYPE_EMAIL_INDEXRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -18910,7 +18839,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBGI_OBJECTTYPE_EMAIL_INDEXRow Get Return Me.eventRow @@ -18918,7 +18847,7 @@ Partial Public Class MyDataset 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 @@ -18929,7 +18858,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent Inherits Global.System.EventArgs @@ -18938,7 +18867,7 @@ Partial Public Class MyDataset 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_INDEX_MAN_POSTPROCESSINGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -18946,7 +18875,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBDD_INDEX_MAN_POSTPROCESSINGRow Get Return Me.eventRow @@ -18954,7 +18883,7 @@ Partial Public Class MyDataset 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 @@ -18965,7 +18894,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWHDD_INDEX_MANRowChangeEvent Inherits Global.System.EventArgs @@ -18974,7 +18903,7 @@ Partial Public Class MyDataset 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 TBWHDD_INDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -18982,7 +18911,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWHDD_INDEX_MANRow Get Return Me.eventRow @@ -18990,7 +18919,7 @@ Partial Public Class MyDataset 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 @@ -19001,7 +18930,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBDD_USER_GROUPSRowChangeEvent Inherits Global.System.EventArgs @@ -19010,7 +18939,7 @@ Partial Public Class MyDataset 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_USER_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -19018,7 +18947,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBDD_USER_GROUPSRow Get Return Me.eventRow @@ -19026,7 +18955,7 @@ Partial Public Class MyDataset 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 @@ -19037,7 +18966,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBDD_GROUPS_USERRowChangeEvent Inherits Global.System.EventArgs @@ -19046,7 +18975,7 @@ Partial Public Class MyDataset 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_GROUPS_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -19054,7 +18983,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBDD_GROUPS_USERRow Get Return Me.eventRow @@ -19062,7 +18991,7 @@ Partial Public Class MyDataset 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 @@ -19073,7 +19002,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWGI_USER_GROUPS_RELATIONRowChangeEvent Inherits Global.System.EventArgs @@ -19082,7 +19011,7 @@ Partial Public Class MyDataset 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 VWGI_USER_GROUPS_RELATIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -19090,7 +19019,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWGI_USER_GROUPS_RELATIONRow Get Return Me.eventRow @@ -19098,7 +19027,7 @@ Partial Public Class MyDataset 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 @@ -19109,7 +19038,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWGI_DOCTYPE_GROUPRowChangeEvent Inherits Global.System.EventArgs @@ -19118,7 +19047,7 @@ Partial Public Class MyDataset 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 VWGI_DOCTYPE_GROUPRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -19126,7 +19055,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWGI_DOCTYPE_GROUPRow Get Return Me.eventRow @@ -19134,7 +19063,7 @@ Partial Public Class MyDataset 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 @@ -19145,7 +19074,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBHOTKEY_PROFILERowChangeEvent Inherits Global.System.EventArgs @@ -19154,7 +19083,7 @@ Partial Public Class MyDataset 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 TBHOTKEY_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -19162,7 +19091,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBHOTKEY_PROFILERow Get Return Me.eventRow @@ -19170,7 +19099,7 @@ Partial Public Class MyDataset 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 @@ -19181,7 +19110,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBHOTKEY_PATTERNSRowChangeEvent Inherits Global.System.EventArgs @@ -19190,7 +19119,7 @@ Partial Public Class MyDataset 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 TBHOTKEY_PATTERNSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -19198,7 +19127,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBHOTKEY_PATTERNSRow Get Return Me.eventRow @@ -19206,7 +19135,7 @@ Partial Public Class MyDataset 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 @@ -19217,7 +19146,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBMYHOTKEYSRowChangeEvent Inherits Global.System.EventArgs @@ -19226,7 +19155,7 @@ Partial Public Class MyDataset 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 TBMYHOTKEYSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -19234,7 +19163,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBMYHOTKEYSRow Get Return Me.eventRow @@ -19242,7 +19171,7 @@ Partial Public Class MyDataset 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 @@ -19253,7 +19182,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBHOTKEY_USER_PROFILERowChangeEvent Inherits Global.System.EventArgs @@ -19262,7 +19191,7 @@ Partial Public Class MyDataset 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 TBHOTKEY_USER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -19270,7 +19199,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBHOTKEY_USER_PROFILERow Get Return Me.eventRow @@ -19278,7 +19207,7 @@ Partial Public Class MyDataset 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 @@ -19289,7 +19218,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBHOTKEY_PATTERNS_REWORKRowChangeEvent Inherits Global.System.EventArgs @@ -19298,7 +19227,7 @@ Partial Public Class MyDataset 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 TBHOTKEY_PATTERNS_REWORKRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -19306,7 +19235,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBHOTKEY_PATTERNS_REWORKRow Get Return Me.eventRow @@ -19314,7 +19243,7 @@ Partial Public Class MyDataset 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 @@ -19325,7 +19254,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBHOTKEY_WINDOW_HOOKRowChangeEvent Inherits Global.System.EventArgs @@ -19334,7 +19263,7 @@ Partial Public Class MyDataset 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 TBHOTKEY_WINDOW_HOOKRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -19342,7 +19271,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBHOTKEY_WINDOW_HOOKRow Get Return Me.eventRow @@ -19350,7 +19279,7 @@ Partial Public Class MyDataset 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 @@ -19361,7 +19290,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBGI_FILES_USERRowChangeEvent Inherits Global.System.EventArgs @@ -19370,7 +19299,7 @@ Partial Public Class MyDataset 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 TBGI_FILES_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -19378,7 +19307,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBGI_FILES_USERRow Get Return Me.eventRow @@ -19386,7 +19315,7 @@ Partial Public Class MyDataset 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 @@ -19397,7 +19326,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBGI_HISTORYRowChangeEvent Inherits Global.System.EventArgs @@ -19406,7 +19335,7 @@ Partial Public Class MyDataset 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 TBGI_HISTORYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -19414,7 +19343,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBGI_HISTORYRow Get Return Me.eventRow @@ -19422,7 +19351,7 @@ Partial Public Class MyDataset 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 @@ -19433,7 +19362,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBTempFiles2IndexRowChangeEvent Inherits Global.System.EventArgs @@ -19442,7 +19371,7 @@ Partial Public Class MyDataset 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 TBTempFiles2IndexRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -19450,7 +19379,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBTempFiles2IndexRow Get Return Me.eventRow @@ -19458,7 +19387,7 @@ Partial Public Class MyDataset 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 @@ -19469,7 +19398,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBTEMP_INDEXRESULTSRowChangeEvent Inherits Global.System.EventArgs @@ -19478,7 +19407,7 @@ Partial Public Class MyDataset 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 TBTEMP_INDEXRESULTSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -19486,7 +19415,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBTEMP_INDEXRESULTSRow Get Return Me.eventRow @@ -19494,7 +19423,7 @@ Partial Public Class MyDataset 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 @@ -19505,7 +19434,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBAD_UsersRowChangeEvent Inherits Global.System.EventArgs @@ -19514,7 +19443,7 @@ Partial Public Class MyDataset 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 @@ -19522,7 +19451,7 @@ Partial Public Class MyDataset 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 @@ -19530,7 +19459,7 @@ Partial Public Class MyDataset 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 @@ -19564,14 +19493,14 @@ Namespace MyDatasetTableAdapters 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 @@ -19582,7 +19511,7 @@ Namespace MyDatasetTableAdapters 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 @@ -19612,7 +19541,7 @@ Namespace MyDatasetTableAdapters 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 @@ -19640,7 +19569,7 @@ Namespace MyDatasetTableAdapters 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 @@ -19651,7 +19580,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -19662,7 +19591,7 @@ Namespace MyDatasetTableAdapters 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() @@ -19677,7 +19606,6 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("LOGGED_WHERE", "LOGGED_WHERE") tableMapping.ColumnMappings.Add("LOG_IN_WHEN", "LOG_IN_WHEN") tableMapping.ColumnMappings.Add("LOG_OUT_WHEN", "LOG_OUT_WHEN") - tableMapping.ColumnMappings.Add("GI_ADMIN", "GI_ADMIN") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") @@ -19693,34 +19621,32 @@ Namespace MyDatasetTableAdapters Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _ - "GI_ADMIN, ADDED_WHO, MODULE_GI, LANGUAGE, SHORTNAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@N"& _ - "AME,@USERNAME,@EMAIL,@GI_ADMIN,@ADDED_WHO, 1,@LANGUAGE,@SHORTNAME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _ - "UID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_O"& _ - "UT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_US"& _ - "ER WHERE (GUID = SCOPE_IDENTITY())" + "ADDED_WHO, LANGUAGE, SHORTNAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,"& _ + "@ADDED_WHO,@LANGUAGE,@SHORTNAME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMA"& _ + "IL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADD"& _ + "ED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY()"& _ + ")" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GI_ADMIN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GI_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _ - "NAME = @USERNAME, EMAIL = @EMAIL, GI_ADMIN = @GI_ADMIN, CHANGED_WHO = @CHANGED_W"& _ - "HO, LANGUAGE = @LANGUAGE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SHORTNAME = @SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHE"& _ - "RE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMA"& _ - "IL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADD"& _ - "ED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID)" + "NAME = @USERNAME, EMAIL = @EMAIL, CHANGED_WHO = @CHANGED_WHO, LANGUAGE = @LANGUA"& _ + "GE, SHORTNAME = @SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ + "ID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OU"& _ + "T_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USE"& _ + "R WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GI_ADMIN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GI_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -19729,33 +19655,32 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _ - "IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ - "N, SHORTNAME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WH"& _ - "ERE (MODULE_GI = 1)" + "IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHORTNA"& _ + "ME, LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _ - "IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ - "N, LANGUAGE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER" + "IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, LANGUAG"& _ + "E, SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer @@ -19768,7 +19693,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBDD_USERDataTable @@ -19779,7 +19704,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByAll(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer @@ -19792,7 +19717,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByAll() As MyDataset.TBDD_USERDataTable @@ -19803,35 +19728,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_USER") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -19852,10 +19777,10 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal GI_ADMIN As Boolean, ByVal ADDED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String) As Integer + Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String) As Integer If (PRENAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else @@ -19876,21 +19801,20 @@ Namespace MyDatasetTableAdapters Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String) End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(GI_ADMIN,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) End If If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(LANGUAGE,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE,String) End If If (SHORTNAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(SHORTNAME,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SHORTNAME,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -19908,10 +19832,10 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal GI_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (PRENAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else @@ -19932,24 +19856,23 @@ Namespace MyDatasetTableAdapters Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String) End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GI_ADMIN,Boolean) If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) End If If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(LANGUAGE,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE,String) End If If (SHORTNAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SHORTNAME,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SHORTNAME,String) End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -19989,14 +19912,14 @@ Namespace MyDatasetTableAdapters 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 @@ -20007,7 +19930,7 @@ Namespace MyDatasetTableAdapters 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 @@ -20037,7 +19960,7 @@ Namespace MyDatasetTableAdapters 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 @@ -20065,7 +19988,7 @@ Namespace MyDatasetTableAdapters 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 @@ -20076,7 +19999,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -20087,7 +20010,7 @@ Namespace MyDatasetTableAdapters 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() @@ -20172,29 +20095,28 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_"& _ "PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW"& _ - "ER, GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" OBJEKTTYP, FOLDER_FOR_INDEX, SEQUE"& _ + "ER, GEAENDERTWANN, OBJEKTTYP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FOLDER_FOR_INDEX, SEQUE"& _ "NCE, DUPLICATE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BE"& _ "ZEICHNUNG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "UPDATE TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEANDERTWER = @GEANDERTWER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID "& _ - "= @Original_GUID)" + Me._commandCollection(1).CommandText = "UPDATE TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEANDERTWER = @GEANDERTWER, FOL"& _ + "DER_FOR_INDEX = @FOLDER_FOR_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -20203,16 +20125,18 @@ Namespace MyDatasetTableAdapters Me._commandCollection(2).Connection = Me.Connection Me._commandCollection(2).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_"& _ "PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW"& _ - "ER, GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" OBJEKTTYP, FOLDER_FOR_INDEX, SEQUE"& _ + "ER, GEAENDERTWANN, OBJEKTTYP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FOLDER_FOR_INDEX, SEQUE"& _ "NCE, DUPLICATE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"& _ - ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - "WHERE (MODULE_ID = 1)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BEZEICHNUNG" + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT T.DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBDD_DOKUMENTART_MODULE AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_MODULES AS T1 ON T.MODULE_ID = "& _ + "T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (T1.NAME = 'Global-Indexer'"& _ + ")))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BEZEICHNUNG" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer @@ -20225,7 +20149,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBDD_DOKUMENTARTDataTable @@ -20236,7 +20160,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByModuleGI(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer @@ -20249,7 +20173,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataBy1() As MyDataset.TBDD_DOKUMENTARTDataTable @@ -20260,35 +20184,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_DOKUMENTART") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -20309,7 +20233,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String) As Integer @@ -20378,7 +20302,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -20449,9 +20373,8 @@ Namespace MyDatasetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function cmdUpdateFolderIndex(ByVal GEANDERTWER As String, ByVal FOLDER_FOR_INDEX As String, ByVal Original_GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) If (GEANDERTWER Is Nothing) Then @@ -20460,7 +20383,7 @@ Namespace MyDatasetTableAdapters command.Parameters(0).Value = CType(GEANDERTWER,String) End If If (FOLDER_FOR_INDEX Is Nothing) Then - command.Parameters(1).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX") Else command.Parameters(1).Value = CType(FOLDER_FOR_INDEX,String) End If @@ -20505,14 +20428,14 @@ Namespace MyDatasetTableAdapters 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 @@ -20523,7 +20446,7 @@ Namespace MyDatasetTableAdapters 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 @@ -20553,7 +20476,7 @@ Namespace MyDatasetTableAdapters 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 @@ -20581,7 +20504,7 @@ Namespace MyDatasetTableAdapters 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 @@ -20592,7 +20515,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -20603,7 +20526,7 @@ Namespace MyDatasetTableAdapters 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() @@ -20647,14 +20570,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -20664,7 +20587,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_EINGANGSARTENDataTable) As Integer @@ -20677,7 +20600,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBDD_EINGANGSARTENDataTable @@ -20688,35 +20611,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_EINGANGSARTENDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_EINGANGSARTEN") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte) As Integer @@ -20737,7 +20660,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String) As Integer @@ -20772,7 +20695,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal GEANDERTWER As String, ByVal Original_GUID As Byte, ByVal GUID As Byte) As Integer @@ -20832,14 +20755,14 @@ Namespace MyDatasetTableAdapters 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 @@ -20850,7 +20773,7 @@ Namespace MyDatasetTableAdapters 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 @@ -20880,7 +20803,7 @@ Namespace MyDatasetTableAdapters 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 @@ -20908,7 +20831,7 @@ Namespace MyDatasetTableAdapters 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 @@ -20919,7 +20842,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -20930,7 +20853,7 @@ Namespace MyDatasetTableAdapters 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() @@ -20942,14 +20865,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -20970,7 +20893,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_DOKART_MODULEDataTable, ByVal DOKARTID As Integer) As Integer @@ -20984,7 +20907,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal DOKARTID As Integer) As MyDataset.TBDD_DOKART_MODULEDataTable @@ -20996,7 +20919,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdInsertDokartModule(ByVal DOKART_ID As Integer, ByVal MODUL_EID As Integer, ByVal WHO As String) As Integer @@ -21048,14 +20971,14 @@ Namespace MyDatasetTableAdapters 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 @@ -21066,7 +20989,7 @@ Namespace MyDatasetTableAdapters 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 @@ -21096,7 +21019,7 @@ Namespace MyDatasetTableAdapters 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 @@ -21124,7 +21047,7 @@ Namespace MyDatasetTableAdapters 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 @@ -21135,7 +21058,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -21146,7 +21069,7 @@ Namespace MyDatasetTableAdapters 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() @@ -21158,14 +21081,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -21175,7 +21098,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_MODULESDataTable) As Integer @@ -21188,7 +21111,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBDD_MODULESDataTable @@ -21222,14 +21145,14 @@ Namespace MyDatasetTableAdapters 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 @@ -21240,7 +21163,7 @@ Namespace MyDatasetTableAdapters 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 @@ -21270,7 +21193,7 @@ Namespace MyDatasetTableAdapters 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 @@ -21298,7 +21221,7 @@ Namespace MyDatasetTableAdapters 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 @@ -21309,7 +21232,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -21320,7 +21243,7 @@ Namespace MyDatasetTableAdapters 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() @@ -21411,14 +21334,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -21433,7 +21356,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_MANDataTable, ByVal DOK_ID As Integer) As Integer @@ -21447,7 +21370,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal DOK_ID As Integer) As MyDataset.TBDD_INDEX_MANDataTable @@ -21459,35 +21382,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_MANDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_INDEX_MAN") 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 @@ -21508,7 +21431,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal DOK_ID As Integer, ByVal NAME As String, ByVal WD_INDEX As String, ByVal COMMENT As String, ByVal DATATYPE As String, ByVal SUGGESTION As Boolean, ByVal DEFAULT_VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal SEQUENCE As Integer, ByVal SQL_RESULT As String, ByVal SQL_CHECK As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal _OPTIONAL As Boolean, ByVal SAVE_VALUE As Boolean) As Integer @@ -21579,7 +21502,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -21692,14 +21615,14 @@ Namespace MyDatasetTableAdapters 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 @@ -21710,7 +21633,7 @@ Namespace MyDatasetTableAdapters 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 @@ -21740,7 +21663,7 @@ Namespace MyDatasetTableAdapters 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 @@ -21768,7 +21691,7 @@ Namespace MyDatasetTableAdapters 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 @@ -21779,7 +21702,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -21790,7 +21713,7 @@ Namespace MyDatasetTableAdapters 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() @@ -21857,14 +21780,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -21874,7 +21797,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer @@ -21887,7 +21810,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBDD_CONNECTIONDataTable @@ -21898,35 +21821,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) 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 @@ -21947,7 +21870,7 @@ Namespace MyDatasetTableAdapters 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 @@ -22008,7 +21931,7 @@ Namespace MyDatasetTableAdapters 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 @@ -22094,14 +22017,14 @@ Namespace MyDatasetTableAdapters 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 @@ -22112,7 +22035,7 @@ Namespace MyDatasetTableAdapters 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 @@ -22142,7 +22065,7 @@ Namespace MyDatasetTableAdapters 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 @@ -22170,7 +22093,7 @@ Namespace MyDatasetTableAdapters 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 @@ -22181,7 +22104,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -22192,7 +22115,7 @@ Namespace MyDatasetTableAdapters 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() @@ -22222,14 +22145,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -22243,7 +22166,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWDDINDEX_MANDataTable, ByVal DokID As Integer) As Integer @@ -22257,7 +22180,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal DokID As Integer) As MyDataset.VWDDINDEX_MANDataTable @@ -22292,14 +22215,14 @@ Namespace MyDatasetTableAdapters 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 @@ -22310,7 +22233,7 @@ Namespace MyDatasetTableAdapters 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 @@ -22340,7 +22263,7 @@ Namespace MyDatasetTableAdapters 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 @@ -22368,7 +22291,7 @@ Namespace MyDatasetTableAdapters 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 @@ -22379,7 +22302,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -22390,7 +22313,7 @@ Namespace MyDatasetTableAdapters 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() @@ -22416,14 +22339,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -22437,7 +22360,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWDDINDEX_AUTOMDataTable, ByVal DOCTYPE As Integer) As Integer @@ -22451,7 +22374,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal DOCTYPE As Integer) As MyDataset.VWDDINDEX_AUTOMDataTable @@ -22486,14 +22409,14 @@ Namespace MyDatasetTableAdapters 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 @@ -22504,7 +22427,7 @@ Namespace MyDatasetTableAdapters 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 @@ -22534,7 +22457,7 @@ Namespace MyDatasetTableAdapters 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 @@ -22562,7 +22485,7 @@ Namespace MyDatasetTableAdapters 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 @@ -22573,7 +22496,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -22584,7 +22507,7 @@ Namespace MyDatasetTableAdapters 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() @@ -22651,14 +22574,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -22671,7 +22594,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable, ByVal DOCTYPE_ID As Integer) As Integer @@ -22685,7 +22608,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal DOCTYPE_ID As Integer) As MyDataset.TBDD_INDEX_AUTOMDataTable @@ -22697,35 +22620,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_INDEX_AUTOM") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -22746,7 +22669,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean) As Integer @@ -22799,7 +22722,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -22877,14 +22800,14 @@ Namespace MyDatasetTableAdapters 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 @@ -22895,7 +22818,7 @@ Namespace MyDatasetTableAdapters 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 @@ -22925,7 +22848,7 @@ Namespace MyDatasetTableAdapters 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 @@ -22953,7 +22876,7 @@ Namespace MyDatasetTableAdapters 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 @@ -22964,7 +22887,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -22975,7 +22898,7 @@ Namespace MyDatasetTableAdapters 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() @@ -23009,14 +22932,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -23028,7 +22951,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGI_CONFIGURATIONDataTable) As Integer @@ -23041,7 +22964,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBGI_CONFIGURATIONDataTable @@ -23052,35 +22975,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGI_CONFIGURATIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBGI_CONFIGURATION") 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 Update(ByVal GUID As Byte, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String) As Integer @@ -23154,14 +23077,14 @@ Namespace MyDatasetTableAdapters 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 @@ -23172,7 +23095,7 @@ Namespace MyDatasetTableAdapters 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 @@ -23202,7 +23125,7 @@ Namespace MyDatasetTableAdapters 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 @@ -23230,7 +23153,7 @@ Namespace MyDatasetTableAdapters 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 @@ -23241,7 +23164,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -23252,7 +23175,7 @@ Namespace MyDatasetTableAdapters 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() @@ -23320,14 +23243,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -23341,7 +23264,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable, ByVal Objecttype As String) As Integer @@ -23359,7 +23282,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal Objecttype As String) As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable @@ -23375,35 +23298,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBGI_OBJECTTYPE_EMAIL_INDEX") 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 @@ -23424,7 +23347,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal IDX_CHECK_ATTACHMENT As String) As Integer @@ -23489,7 +23412,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String, ByVal IDX_CHECK_ATTACHMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -23574,14 +23497,14 @@ Namespace MyDatasetTableAdapters 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 @@ -23592,7 +23515,7 @@ Namespace MyDatasetTableAdapters 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 @@ -23622,7 +23545,7 @@ Namespace MyDatasetTableAdapters 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 @@ -23650,7 +23573,7 @@ Namespace MyDatasetTableAdapters 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 @@ -23661,7 +23584,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -23672,7 +23595,7 @@ Namespace MyDatasetTableAdapters 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() @@ -23740,14 +23663,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -23769,7 +23692,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable, ByVal DOK_ID As Integer) As Integer @@ -23783,7 +23706,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal DOK_ID As Integer) As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable @@ -23795,28 +23718,28 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_INDEX_MAN_POSTPROCESSING") 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) @@ -23846,14 +23769,14 @@ Namespace MyDatasetTableAdapters 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 @@ -23864,7 +23787,7 @@ Namespace MyDatasetTableAdapters 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 @@ -23894,7 +23817,7 @@ Namespace MyDatasetTableAdapters 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 @@ -23922,7 +23845,7 @@ Namespace MyDatasetTableAdapters 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 @@ -23933,7 +23856,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -23944,7 +23867,7 @@ Namespace MyDatasetTableAdapters 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() @@ -23956,14 +23879,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -23975,7 +23898,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWHDD_INDEX_MANDataTable, ByVal DOK_ID As Integer) As Integer @@ -23989,7 +23912,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal DOK_ID As Integer) As MyDataset.TBWHDD_INDEX_MANDataTable @@ -24024,14 +23947,14 @@ Namespace MyDatasetTableAdapters 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 @@ -24042,7 +23965,7 @@ Namespace MyDatasetTableAdapters 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 @@ -24072,7 +23995,7 @@ Namespace MyDatasetTableAdapters 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 @@ -24100,7 +24023,7 @@ Namespace MyDatasetTableAdapters 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 @@ -24111,7 +24034,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -24122,7 +24045,7 @@ Namespace MyDatasetTableAdapters 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() @@ -24176,14 +24099,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -24194,7 +24117,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_USER_GROUPSDataTable) As Integer @@ -24207,7 +24130,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBDD_USER_GROUPSDataTable @@ -24218,35 +24141,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_USER_GROUPSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_USER_GROUPS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME 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 @@ -24300,7 +24223,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal ADDED_WHO As String) As Integer @@ -24330,7 +24253,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -24385,14 +24308,14 @@ Namespace MyDatasetTableAdapters 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 @@ -24403,7 +24326,7 @@ Namespace MyDatasetTableAdapters 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 @@ -24433,7 +24356,7 @@ Namespace MyDatasetTableAdapters 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 @@ -24461,7 +24384,7 @@ Namespace MyDatasetTableAdapters 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 @@ -24472,7 +24395,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -24483,7 +24406,7 @@ Namespace MyDatasetTableAdapters 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() @@ -24527,14 +24450,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -24554,7 +24477,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_GROUPS_USERDataTable, ByVal USER_ID As Integer) As Integer @@ -24568,7 +24491,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal USER_ID As Integer) As MyDataset.TBDD_GROUPS_USERDataTable @@ -24580,35 +24503,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_GROUPS_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_USER") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -24629,7 +24552,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer @@ -24656,7 +24579,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -24685,7 +24608,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdinsert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer @@ -24737,14 +24660,14 @@ Namespace MyDatasetTableAdapters 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 @@ -24755,7 +24678,7 @@ Namespace MyDatasetTableAdapters 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 @@ -24785,7 +24708,7 @@ Namespace MyDatasetTableAdapters 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 @@ -24813,7 +24736,7 @@ Namespace MyDatasetTableAdapters 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 @@ -24824,7 +24747,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -24835,7 +24758,7 @@ Namespace MyDatasetTableAdapters 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() @@ -24854,14 +24777,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -24873,7 +24796,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable, ByVal USER_ID As Integer) As Integer @@ -24887,7 +24810,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal USER_ID As Integer) As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable @@ -24922,14 +24845,14 @@ Namespace MyDatasetTableAdapters 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 @@ -24940,7 +24863,7 @@ Namespace MyDatasetTableAdapters 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 @@ -24970,7 +24893,7 @@ Namespace MyDatasetTableAdapters 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 @@ -24998,7 +24921,7 @@ Namespace MyDatasetTableAdapters 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 @@ -25009,7 +24932,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -25020,7 +24943,7 @@ Namespace MyDatasetTableAdapters 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() @@ -25038,14 +24961,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -25071,7 +24994,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGI_DOCTYPE_GROUPDataTable, ByVal DOCTYPE_ID As Integer) As Integer @@ -25085,7 +25008,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal DOCTYPE_ID As Integer) As MyDataset.VWGI_DOCTYPE_GROUPDataTable @@ -25097,7 +25020,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdDelete(ByVal ID As Integer) As Integer @@ -25120,7 +25043,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdInsert(ByVal DOCTYPE_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer @@ -25172,14 +25095,14 @@ Namespace MyDatasetTableAdapters 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 @@ -25190,7 +25113,7 @@ Namespace MyDatasetTableAdapters 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 @@ -25220,7 +25143,7 @@ Namespace MyDatasetTableAdapters 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 @@ -25248,7 +25171,7 @@ Namespace MyDatasetTableAdapters 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 @@ -25259,7 +25182,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -25270,7 +25193,7 @@ Namespace MyDatasetTableAdapters 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() @@ -25375,14 +25298,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -25418,7 +25341,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable) As Integer @@ -25431,7 +25354,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBHOTKEY_PROFILEDataTable @@ -25442,7 +25365,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByID(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable, ByVal HK_ID As Integer) As Integer @@ -25456,7 +25379,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByID(ByVal HK_ID As Integer) As MyDataset.TBHOTKEY_PROFILEDataTable @@ -25468,35 +25391,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBHOTKEY_PROFILE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_OBJECTTYPE As String, ByVal Original_WD_SEARCH As String, ByVal Original_HOTKEY1 As String, ByVal Original_HOTKEY2 As String, ByVal Original_WINDOW_NAME 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 @@ -25573,7 +25496,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal ADDED_WHO As String) As Integer @@ -25628,7 +25551,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -25778,7 +25701,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -25807,7 +25730,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdate(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer) As Integer @@ -25888,14 +25811,14 @@ Namespace MyDatasetTableAdapters 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 @@ -25906,7 +25829,7 @@ Namespace MyDatasetTableAdapters 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 @@ -25936,7 +25859,7 @@ Namespace MyDatasetTableAdapters 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 @@ -25964,7 +25887,7 @@ Namespace MyDatasetTableAdapters 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 @@ -25975,7 +25898,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -25986,7 +25909,7 @@ Namespace MyDatasetTableAdapters 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() @@ -26042,14 +25965,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -26062,7 +25985,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable, ByVal ID As Integer) As Integer @@ -26076,7 +25999,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal ID As Integer) As MyDataset.TBHOTKEY_PATTERNSDataTable @@ -26088,35 +26011,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBHOTKEY_PATTERNS") 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 @@ -26137,7 +26060,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal SEQUENCE_NUMBER As Integer) As Integer @@ -26174,7 +26097,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal HKPROFILE_ID As Integer, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal SEQUENCE_NUMBER As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -26246,14 +26169,14 @@ Namespace MyDatasetTableAdapters 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 @@ -26264,7 +26187,7 @@ Namespace MyDatasetTableAdapters 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 @@ -26294,7 +26217,7 @@ Namespace MyDatasetTableAdapters 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 @@ -26322,7 +26245,7 @@ Namespace MyDatasetTableAdapters 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 @@ -26333,7 +26256,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -26344,7 +26267,7 @@ Namespace MyDatasetTableAdapters 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() @@ -26356,14 +26279,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -26379,7 +26302,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBMYHOTKEYSDataTable, ByVal USERID As Integer) As Integer @@ -26393,7 +26316,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal USERID As Integer) As MyDataset.TBMYHOTKEYSDataTable @@ -26428,14 +26351,14 @@ Namespace MyDatasetTableAdapters 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 @@ -26446,7 +26369,7 @@ Namespace MyDatasetTableAdapters 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 @@ -26476,7 +26399,7 @@ Namespace MyDatasetTableAdapters 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 @@ -26504,7 +26427,7 @@ Namespace MyDatasetTableAdapters 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 @@ -26515,7 +26438,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -26526,7 +26449,7 @@ Namespace MyDatasetTableAdapters 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() @@ -26608,14 +26531,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -26644,7 +26567,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable, ByVal TBHOTKEY_USER_PROFILE_GUID As Integer) As Integer @@ -26658,7 +26581,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal TBHOTKEY_USER_PROFILE_GUID As Integer) As MyDataset.TBHOTKEY_USER_PROFILEDataTable @@ -26670,7 +26593,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByUser(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable, ByVal USER_ID As Integer) As Integer @@ -26684,7 +26607,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByUser(ByVal USER_ID As Integer) As MyDataset.TBHOTKEY_USER_PROFILEDataTable @@ -26696,35 +26619,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBHOTKEY_USER_PROFILE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -26745,7 +26668,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 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 @@ -26802,7 +26725,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -26924,7 +26847,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -26951,7 +26874,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdInsert(ByVal USER_ID As String, ByVal PROFILE_ID As Integer) As Integer @@ -27002,14 +26925,14 @@ Namespace MyDatasetTableAdapters 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 @@ -27020,7 +26943,7 @@ Namespace MyDatasetTableAdapters 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 @@ -27050,7 +26973,7 @@ Namespace MyDatasetTableAdapters 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 @@ -27078,7 +27001,7 @@ Namespace MyDatasetTableAdapters 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 @@ -27089,7 +27012,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -27100,7 +27023,7 @@ Namespace MyDatasetTableAdapters 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() @@ -27191,14 +27114,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -27211,7 +27134,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable, ByVal HKPATTERN_ID As Integer) As Integer @@ -27225,7 +27148,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal HKPATTERN_ID As Integer) As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable @@ -27237,35 +27160,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBHOTKEY_PATTERNS_REWORK") 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_HKPATTERN_ID As Integer, ByVal Original_TYPE As String, ByVal Original_FUNCTION1 As String, ByVal Original_FUNCTION2 As String, ByVal Original_TEXT1 As String, ByVal Original_TEXT2 As String, ByVal Original_SEQUENCE As Integer, 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 @@ -27347,7 +27270,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal HKPATTERN_ID As Integer, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String) As Integer @@ -27399,7 +27322,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal HKPATTERN_ID As Integer, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -27476,14 +27399,14 @@ Namespace MyDatasetTableAdapters 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 @@ -27494,7 +27417,7 @@ Namespace MyDatasetTableAdapters 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 @@ -27524,7 +27447,7 @@ Namespace MyDatasetTableAdapters 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 @@ -27552,7 +27475,7 @@ Namespace MyDatasetTableAdapters 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 @@ -27563,7 +27486,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -27574,7 +27497,7 @@ Namespace MyDatasetTableAdapters 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() @@ -27623,14 +27546,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -27643,7 +27566,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable, ByVal ID As Integer) As Integer @@ -27657,7 +27580,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal ID As Integer) As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable @@ -27669,35 +27592,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBHOTKEY_WINDOW_HOOK") 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 @@ -27718,7 +27641,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal ADDED_WHO As String) As Integer @@ -27750,7 +27673,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal HKPROFILE_ID As Integer, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -27807,14 +27730,14 @@ Namespace MyDatasetTableAdapters 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 @@ -27825,7 +27748,7 @@ Namespace MyDatasetTableAdapters 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 @@ -27855,7 +27778,7 @@ Namespace MyDatasetTableAdapters 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 @@ -27883,7 +27806,7 @@ Namespace MyDatasetTableAdapters 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 @@ -27894,7 +27817,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -27905,7 +27828,7 @@ Namespace MyDatasetTableAdapters 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() @@ -27922,14 +27845,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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() @@ -27942,7 +27865,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGI_FILES_USERDataTable, ByVal USERNAME As String) As Integer @@ -27960,7 +27883,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal USERNAME As String) As MyDataset.TBGI_FILES_USERDataTable @@ -27999,14 +27922,14 @@ Namespace MyDatasetTableAdapters 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 @@ -28017,7 +27940,7 @@ Namespace MyDatasetTableAdapters 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 @@ -28047,7 +27970,7 @@ Namespace MyDatasetTableAdapters 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 @@ -28075,7 +27998,7 @@ Namespace MyDatasetTableAdapters 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 @@ -28086,7 +28009,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -28097,7 +28020,7 @@ Namespace MyDatasetTableAdapters 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() @@ -28111,14 +28034,14 @@ Namespace MyDatasetTableAdapters 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.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString 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(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -28137,7 +28060,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function FillToday(ByVal dataTable As MyDataset.TBGI_HISTORYDataTable, ByVal User As String) As Integer @@ -28155,7 +28078,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal User As String) As MyDataset.TBGI_HISTORYDataTable @@ -28171,7 +28094,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByAll(ByVal dataTable As MyDataset.TBGI_HISTORYDataTable, ByVal User As String) As Integer @@ -28189,7 +28112,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByAll(ByVal User As String) As MyDataset.TBGI_HISTORYDataTable @@ -28255,7 +28178,7 @@ Namespace MyDatasetTableAdapters 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 @@ -28266,7 +28189,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28280,7 +28203,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28294,7 +28217,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28308,7 +28231,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28322,7 +28245,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28336,7 +28259,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28350,7 +28273,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28364,7 +28287,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28378,7 +28301,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28392,7 +28315,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28406,7 +28329,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28420,7 +28343,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28434,7 +28357,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28448,7 +28371,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28462,7 +28385,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28476,7 +28399,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -28490,7 +28413,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -28501,7 +28424,7 @@ Namespace MyDatasetTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get @@ -28580,7 +28503,7 @@ Namespace MyDatasetTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get @@ -28641,7 +28564,7 @@ Namespace MyDatasetTableAdapters '''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 MyDataset, 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._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then @@ -28795,7 +28718,7 @@ Namespace MyDatasetTableAdapters '''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 MyDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then @@ -28933,7 +28856,7 @@ Namespace MyDatasetTableAdapters '''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 MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBGI_CONFIGURATIONTableAdapter) Is Nothing) Then @@ -29071,7 +28994,7 @@ Namespace MyDatasetTableAdapters '''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 @@ -29097,7 +29020,7 @@ Namespace MyDatasetTableAdapters '''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 MyDataset) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -29502,13 +29425,13 @@ Namespace MyDatasetTableAdapters 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 @@ -29526,7 +29449,7 @@ Namespace MyDatasetTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -29537,7 +29460,7 @@ Namespace MyDatasetTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -29547,7 +29470,7 @@ Namespace MyDatasetTableAdapters 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 @@ -29559,7 +29482,7 @@ Namespace MyDatasetTableAdapters 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 @@ -29598,7 +29521,7 @@ Namespace MyDatasetTableAdapters 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/Global_Indexer/MyDataset.xsd b/Global_Indexer/MyDataset.xsd index 7d60d52..2fd3e8d 100644 --- a/Global_Indexer/MyDataset.xsd +++ b/Global_Indexer/MyDataset.xsd @@ -9,7 +9,7 @@ - + DELETE FROM TBDD_USER @@ -22,48 +22,43 @@ WHERE (GUID = @Original_GUID) INSERT INTO TBDD_USER - (PRENAME, NAME, USERNAME, EMAIL, GI_ADMIN, ADDED_WHO, MODULE_GI, LANGUAGE, SHORTNAME) -VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@GI_ADMIN,@ADDED_WHO, 1,@LANGUAGE,@SHORTNAME); + (PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO, LANGUAGE, SHORTNAME) +VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@ADDED_WHO,@LANGUAGE,@SHORTNAME); SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - + + + + + + + - SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHORTNAME, - LANGUAGE -FROM TBDD_USER -WHERE (MODULE_GI = 1) + SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHORTNAME, LANGUAGE +FROM TBDD_USER UPDATE TBDD_USER -SET PRENAME = @PRENAME, NAME = @NAME, USERNAME = @USERNAME, EMAIL = @EMAIL, GI_ADMIN = @GI_ADMIN, CHANGED_WHO = @CHANGED_WHO, LANGUAGE = @LANGUAGE, - SHORTNAME = @SHORTNAME -WHERE (GUID = @Original_GUID); +SET PRENAME = @PRENAME, NAME = @NAME, USERNAME = @USERNAME, EMAIL = @EMAIL, CHANGED_WHO = @CHANGED_WHO, LANGUAGE = @LANGUAGE, SHORTNAME = @SHORTNAME +WHERE (GUID = @Original_GUID); SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID) - - - - - - - - - - + + + + + + + + + @@ -79,7 +74,6 @@ SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHE - @@ -91,8 +85,7 @@ SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHE - SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, LANGUAGE, - SHORTNAME + SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, LANGUAGE, SHORTNAME FROM TBDD_USER @@ -102,7 +95,7 @@ FROM TBDD_USER - + DELETE FROM TBDD_DOKUMENTART @@ -113,40 +106,40 @@ WHERE (GUID = @Original_GUID) - + INSERT INTO TBDD_DOKUMENTART (BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING) VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING); SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - + + + + + + + + + + + + + - SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, - OBJEKTTYP, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING + SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP, + FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING FROM TBDD_DOKUMENTART ORDER BY SEQUENCE, BEZEICHNUNG - + UPDATE TBDD_DOKUMENTART SET BEZEICHNUNG = @BEZEICHNUNG, EINGANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BESCHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, NAMENKONVENTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WINDREAM_DIRECT = @WINDREAM_DIRECT, @@ -154,21 +147,21 @@ SET BEZEICHNUNG = @BEZEICHNUNG, EINGANGSART_ID = @EINGANGSART_ID, WHERE (GUID = @Original_GUID); SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKUMENTART WHERE (GUID = @GUID) - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + @@ -194,7 +187,19 @@ SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKT - + + + + UPDATE TBDD_DOKUMENTART +SET GEANDERTWER = @GEANDERTWER, FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX +WHERE (GUID = @Original_GUID) + + + + + + + UPDATE TBDD_DOKUMENTART @@ -203,7 +208,7 @@ SET GEANDERTWER = @GEANDERTWER, WHERE (GUID = @Original_GUID) - + @@ -212,13 +217,14 @@ WHERE (GUID = @Original_GUID) - SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, - OBJEKTTYP, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING + SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP, + FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING FROM TBDD_DOKUMENTART WHERE (GUID IN - (SELECT DOKART_ID - FROM TBDD_DOKUMENTART_MODULE - WHERE (MODULE_ID = 1))) + (SELECT T.DOKART_ID + FROM TBDD_DOKUMENTART_MODULE AS T INNER JOIN + TBDD_MODULES AS T1 ON T.MODULE_ID = T1.GUID + WHERE (T1.NAME = 'Global-Indexer'))) ORDER BY SEQUENCE, BEZEICHNUNG @@ -1758,7 +1764,6 @@ ORDER BY GUID DESC - @@ -1826,7 +1831,7 @@ ORDER BY GUID DESC - + @@ -1849,7 +1854,7 @@ ORDER BY GUID DESC - + @@ -1857,7 +1862,7 @@ ORDER BY GUID DESC - + diff --git a/Global_Indexer/MyDataset.xss b/Global_Indexer/MyDataset.xss index 0241f13..a77c7be 100644 --- a/Global_Indexer/MyDataset.xss +++ b/Global_Indexer/MyDataset.xss @@ -4,10 +4,10 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - + @@ -23,7 +23,7 @@ - + diff --git a/Global_Indexer/frmAdministration.Designer.vb b/Global_Indexer/frmAdministration.Designer.vb index edc3c14..b16bc9b 100644 --- a/Global_Indexer/frmAdministration.Designer.vb +++ b/Global_Indexer/frmAdministration.Designer.vb @@ -50,9 +50,6 @@ Partial Class frmAdministration Dim NAMELabel1 As System.Windows.Forms.Label Dim USERNAMELabel As System.Windows.Forms.Label Dim EMAILLabel As System.Windows.Forms.Label - Dim LOGGED_WHERELabel As System.Windows.Forms.Label - Dim LOG_IN_WHENLabel As System.Windows.Forms.Label - Dim LOG_OUT_WHENLabel As System.Windows.Forms.Label Dim ADDED_WHOLabel1 As System.Windows.Forms.Label Dim ADDED_WHENLabel1 As System.Windows.Forms.Label Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label @@ -333,11 +330,6 @@ Partial Class frmAdministration Me.NAMETextBox1 = New System.Windows.Forms.TextBox() Me.USERNAMETextBox = New System.Windows.Forms.TextBox() Me.EMAILTextBox = New System.Windows.Forms.TextBox() - Me.LOGGED_INCheckBox = New System.Windows.Forms.CheckBox() - Me.LOGGED_WHERETextBox = New System.Windows.Forms.TextBox() - Me.LOG_IN_WHENTextBox = New System.Windows.Forms.TextBox() - Me.LOG_OUT_WHENTextBox = New System.Windows.Forms.TextBox() - Me.GI_ADMINCheckBox = New System.Windows.Forms.CheckBox() Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox() Me.CHANGED_WHOTextBoxUser = New System.Windows.Forms.TextBox() @@ -426,9 +418,6 @@ Partial Class frmAdministration NAMELabel1 = New System.Windows.Forms.Label() USERNAMELabel = New System.Windows.Forms.Label() EMAILLabel = New System.Windows.Forms.Label() - LOGGED_WHERELabel = New System.Windows.Forms.Label() - LOG_IN_WHENLabel = New System.Windows.Forms.Label() - LOG_OUT_WHENLabel = New System.Windows.Forms.Label() ADDED_WHOLabel1 = New System.Windows.Forms.Label() ADDED_WHENLabel1 = New System.Windows.Forms.Label() CHANGED_WHOLabel1 = New System.Windows.Forms.Label() @@ -660,21 +649,6 @@ Partial Class frmAdministration resources.ApplyResources(EMAILLabel, "EMAILLabel") EMAILLabel.Name = "EMAILLabel" ' - 'LOGGED_WHERELabel - ' - resources.ApplyResources(LOGGED_WHERELabel, "LOGGED_WHERELabel") - LOGGED_WHERELabel.Name = "LOGGED_WHERELabel" - ' - 'LOG_IN_WHENLabel - ' - resources.ApplyResources(LOG_IN_WHENLabel, "LOG_IN_WHENLabel") - LOG_IN_WHENLabel.Name = "LOG_IN_WHENLabel" - ' - 'LOG_OUT_WHENLabel - ' - resources.ApplyResources(LOG_OUT_WHENLabel, "LOG_OUT_WHENLabel") - LOG_OUT_WHENLabel.Name = "LOG_OUT_WHENLabel" - ' 'ADDED_WHOLabel1 ' resources.ApplyResources(ADDED_WHOLabel1, "ADDED_WHOLabel1") @@ -2286,14 +2260,6 @@ Partial Class frmAdministration Me.XtraTabPage2.Controls.Add(Me.USERNAMETextBox) Me.XtraTabPage2.Controls.Add(EMAILLabel) Me.XtraTabPage2.Controls.Add(Me.EMAILTextBox) - Me.XtraTabPage2.Controls.Add(Me.LOGGED_INCheckBox) - Me.XtraTabPage2.Controls.Add(LOGGED_WHERELabel) - Me.XtraTabPage2.Controls.Add(Me.LOGGED_WHERETextBox) - Me.XtraTabPage2.Controls.Add(LOG_IN_WHENLabel) - Me.XtraTabPage2.Controls.Add(Me.LOG_IN_WHENTextBox) - Me.XtraTabPage2.Controls.Add(LOG_OUT_WHENLabel) - Me.XtraTabPage2.Controls.Add(Me.LOG_OUT_WHENTextBox) - Me.XtraTabPage2.Controls.Add(Me.GI_ADMINCheckBox) Me.XtraTabPage2.Controls.Add(ADDED_WHOLabel1) Me.XtraTabPage2.Controls.Add(Me.ADDED_WHOTextBox1) Me.XtraTabPage2.Controls.Add(ADDED_WHENLabel1) @@ -2659,41 +2625,6 @@ Partial Class frmAdministration resources.ApplyResources(Me.EMAILTextBox, "EMAILTextBox") Me.EMAILTextBox.Name = "EMAILTextBox" ' - 'LOGGED_INCheckBox - ' - Me.LOGGED_INCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_USERBindingSource, "LOGGED_IN", True)) - resources.ApplyResources(Me.LOGGED_INCheckBox, "LOGGED_INCheckBox") - Me.LOGGED_INCheckBox.Name = "LOGGED_INCheckBox" - Me.LOGGED_INCheckBox.UseVisualStyleBackColor = True - ' - 'LOGGED_WHERETextBox - ' - Me.LOGGED_WHERETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOGGED_WHERE", True)) - resources.ApplyResources(Me.LOGGED_WHERETextBox, "LOGGED_WHERETextBox") - Me.LOGGED_WHERETextBox.Name = "LOGGED_WHERETextBox" - Me.LOGGED_WHERETextBox.ReadOnly = True - ' - 'LOG_IN_WHENTextBox - ' - Me.LOG_IN_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOG_IN_WHEN", True)) - resources.ApplyResources(Me.LOG_IN_WHENTextBox, "LOG_IN_WHENTextBox") - Me.LOG_IN_WHENTextBox.Name = "LOG_IN_WHENTextBox" - Me.LOG_IN_WHENTextBox.ReadOnly = True - ' - 'LOG_OUT_WHENTextBox - ' - Me.LOG_OUT_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOG_OUT_WHEN", True)) - resources.ApplyResources(Me.LOG_OUT_WHENTextBox, "LOG_OUT_WHENTextBox") - Me.LOG_OUT_WHENTextBox.Name = "LOG_OUT_WHENTextBox" - Me.LOG_OUT_WHENTextBox.ReadOnly = True - ' - 'GI_ADMINCheckBox - ' - Me.GI_ADMINCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_USERBindingSource, "GI_ADMIN", True)) - resources.ApplyResources(Me.GI_ADMINCheckBox, "GI_ADMINCheckBox") - Me.GI_ADMINCheckBox.Name = "GI_ADMINCheckBox" - Me.GI_ADMINCheckBox.UseVisualStyleBackColor = True - ' 'ADDED_WHOTextBox1 ' Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "ADDED_WHO", True)) @@ -3299,11 +3230,6 @@ Partial Class frmAdministration Friend WithEvents NAMETextBox1 As System.Windows.Forms.TextBox Friend WithEvents USERNAMETextBox As System.Windows.Forms.TextBox Friend WithEvents EMAILTextBox As System.Windows.Forms.TextBox - Friend WithEvents LOGGED_INCheckBox As System.Windows.Forms.CheckBox - Friend WithEvents LOGGED_WHERETextBox As System.Windows.Forms.TextBox - Friend WithEvents LOG_IN_WHENTextBox As System.Windows.Forms.TextBox - Friend WithEvents LOG_OUT_WHENTextBox As System.Windows.Forms.TextBox - Friend WithEvents GI_ADMINCheckBox As System.Windows.Forms.CheckBox Friend WithEvents ADDED_WHOTextBox1 As System.Windows.Forms.TextBox Friend WithEvents ADDED_WHENTextBox1 As System.Windows.Forms.TextBox Friend WithEvents CHANGED_WHOTextBoxUser As System.Windows.Forms.TextBox diff --git a/Global_Indexer/frmAdministration.resx b/Global_Indexer/frmAdministration.resx index 98a1002..47afcdb 100644 --- a/Global_Indexer/frmAdministration.resx +++ b/Global_Indexer/frmAdministration.resx @@ -944,105 +944,6 @@ 15 - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 200, 221 - - - 58, 13 - - - 15 - - - logged wo: - - - LOGGED_WHERELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 18 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 362, 221 - - - 62, 13 - - - 17 - - - login wann: - - - LOG_IN_WHENLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 20 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 559, 221 - - - 69, 13 - - - 19 - - - logout wann: - - - LOG_OUT_WHENLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 22 - False @@ -1074,7 +975,7 @@ XtraTabPage2 - 25 + 17 False @@ -1107,7 +1008,7 @@ XtraTabPage2 - 27 + 19 False @@ -1140,7 +1041,7 @@ XtraTabPage2 - 29 + 21 False @@ -1173,7 +1074,7 @@ XtraTabPage2 - 31 + 23 False @@ -7443,138 +7344,6 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei 16 - - False - - - Segoe UI, 8.25pt, style=Italic - - - 90, 235 - - - 92, 24 - - - 14 - - - logged in? - - - LOGGED_INCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 17 - - - Segoe UI, 8.25pt, style=Italic - - - 203, 237 - - - 150, 22 - - - 16 - - - LOGGED_WHERETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 19 - - - Segoe UI, 8.25pt, style=Italic - - - 365, 237 - - - 190, 22 - - - 18 - - - LOG_IN_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 21 - - - Segoe UI, 8.25pt, style=Italic - - - 562, 237 - - - 210, 22 - - - 20 - - - LOG_OUT_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 23 - - - False - - - Segoe UI, 8.25pt - - - 562, 133 - - - 90, 24 - - - 22 - - - Admin? - - - GI_ADMINCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 24 - Segoe UI, 8.25pt, style=Italic @@ -7597,7 +7366,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPage2 - 26 + 18 Segoe UI, 8.25pt, style=Italic @@ -7621,7 +7390,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPage2 - 28 + 20 Segoe UI, 8.25pt, style=Italic @@ -7645,7 +7414,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPage2 - 30 + 22 Segoe UI, 8.25pt, style=Italic @@ -7669,7 +7438,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPage2 - 32 + 24 481, 95 @@ -7893,7 +7662,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei XtraTabPage2 - 33 + 25 3, 4, 3, 4 @@ -8595,7 +8364,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei True - 345 + 106 7, 17 diff --git a/Global_Indexer/frmAdministration.vb b/Global_Indexer/frmAdministration.vb index 030c48f..aa83ca3 100644 --- a/Global_Indexer/frmAdministration.vb +++ b/Global_Indexer/frmAdministration.vb @@ -457,7 +457,10 @@ Public Class frmAdministration Else Refresh_User(False) End If - Load_UserRelation(USER_GUIDTextBox.Text) + If USER_GUIDTextBox.Text <> "" Then + Load_UserRelation(USER_GUIDTextBox.Text) + End If + Load_UserGroups() Case 2 ObjektTypenListBoxEintragen() diff --git a/Global_Indexer/frmConfig_Basic.vb b/Global_Indexer/frmConfig_Basic.vb index add80e4..1c788b7 100644 --- a/Global_Indexer/frmConfig_Basic.vb +++ b/Global_Indexer/frmConfig_Basic.vb @@ -66,8 +66,8 @@ Public Class frmConfig_Basic sql = sql.Replace("@user", Environment.UserName) ClassLogger.Add(">> Username: " & Environment.UserName, False) - CURRENT_USERID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - If IsDBNull(CURRENT_USERID) Then + CURRENT_USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) + If IsDBNull(CURRENT_USER_ID) Then MsgBox("Attention: Your Username '" & Environment.UserName & "' is not configured for Global Indexer. this might result in unhandled exceptions!", MsgBoxStyle.Exclamation) ClassLogger.Add("User '" & Environment.UserName & "' not configured for Global Indexer! (DBNull - frmConfigBasic)", True) End If @@ -188,12 +188,12 @@ Public Class frmConfig_Basic Exit Sub End If reload = True - Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USERID, MyConnectionString) + Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USER_ID, MyConnectionString) If Not folderwatch Is Nothing Then CURRENT_FOLDERWATCH = folderwatch End If Me.txtFolderWatch.Text = CURRENT_FOLDERWATCH - Dim SCAN_folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & CURRENT_USERID, MyConnectionString) + Dim SCAN_folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & CURRENT_USER_ID, MyConnectionString) If Not SCAN_folderwatch Is Nothing Then CURRENT_SCAN_FOLDERWATCH = SCAN_folderwatch End If @@ -268,7 +268,7 @@ Public Class frmConfig_Basic Sub CheckFolder(mypath As String, FOLDER_TYPE As String) Try If mypath = "" Then - ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", True) + ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USER_ID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", True) If FOLDER_TYPE = "SCAN" Then CURRENT_SCAN_FOLDERWATCH = "" SaveConfigValue("FWSCAN_started", "False") @@ -297,15 +297,15 @@ Public Class frmConfig_Basic Exit Sub End Try - Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", MyConnectionString) + Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USER_ID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", MyConnectionString) Dim sql As String If folderwatch Is Nothing Then - sql = "INSERT INTO TBGI_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE, ADDED_WHO) VALUES (" & CURRENT_USERID & ",'" & mypath & "','" & FOLDER_TYPE & "','" & Environment.UserName & "')" + sql = "INSERT INTO TBGI_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE, ADDED_WHO) VALUES (" & CURRENT_USER_ID & ",'" & mypath & "','" & FOLDER_TYPE & "','" & Environment.UserName & "')" Else sql = "UPDATE TBGI_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', CHANGED_WHO = '" & Environment.UserName & "' where GUID = " & folderwatch End If If ClassDatabase.Execute_non_Query(sql) Then - folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", MyConnectionString) + folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USER_ID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", MyConnectionString) If FOLDER_TYPE = "SCAN" Then CURRENT_SCAN_FOLDERWATCH = folderwatch @@ -516,7 +516,7 @@ Public Class frmConfig_Basic lang = "en-US" End Select - Dim update As String = "UPDATE TBDD_USER SET [LANGUAGE] = '" & lang & "' WHERE GUID = " & CURRENT_USERID + Dim update As String = "UPDATE TBDD_USER SET [LANGUAGE] = '" & lang & "' WHERE GUID = " & CURRENT_USER_ID USER_LANGUAGE = lang If ClassDatabase.Execute_non_Query(update, True) = True Then diff --git a/Global_Indexer/frmHotkey_User.vb b/Global_Indexer/frmHotkey_User.vb index 49556cd..662189e 100644 --- a/Global_Indexer/frmHotkey_User.vb +++ b/Global_Indexer/frmHotkey_User.vb @@ -22,7 +22,7 @@ Me.lblmeinehotkeys.Text = "Meine (" & Environment.UserName & ") Hotkeys:" End If - LoadMyHotkeys(CURRENT_USERID) + LoadMyHotkeys(CURRENT_USER_ID) Catch ex As Exception MsgBox("Error in Load Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -41,8 +41,8 @@ Private Sub btnAddtomyHK_Click(sender As Object, e As EventArgs) Handles btnAddtomyHK.Click Try If ListBox1.SelectedIndex <> -1 Then - TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(CURRENT_USERID, ListBox1.SelectedValue) - LoadMyHotkeys(CURRENT_USERID) + TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(CURRENT_USER_ID, ListBox1.SelectedValue) + LoadMyHotkeys(CURRENT_USER_ID) End If Catch ex As Exception MsgBox("Error in Add MyHotkey: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) @@ -68,7 +68,7 @@ Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click If ListBoxMyHK.SelectedIndex <> -1 Then Me.TBHOTKEY_USER_PROFILETableAdapter.Delete(ListBoxMyHK.SelectedValue) - LoadMyHotkeys(CURRENT_USERID) + LoadMyHotkeys(CURRENT_USER_ID) Me.MyDataset.TBHOTKEY_USER_PROFILE.Clear() End If End Sub @@ -81,7 +81,7 @@ TBHOTKEY_USER_PROFILEBindingSource.EndEdit() TBHOTKEY_USER_PROFILETableAdapter.Update(MyDataset.TBHOTKEY_USER_PROFILE) Me.lblSave.Visible = True - LoadMyHotkeys(CURRENT_USERID) + LoadMyHotkeys(CURRENT_USER_ID) Else Me.lblSave.Visible = False End If diff --git a/Global_Indexer/frmIndex.designer.vb b/Global_Indexer/frmIndex.designer.vb index 0ceb4fe..01bc7e7 100644 --- a/Global_Indexer/frmIndex.designer.vb +++ b/Global_Indexer/frmIndex.designer.vb @@ -195,12 +195,12 @@ Partial Class frmIndex ' 'Panel2 ' - resources.ApplyResources(Me.Panel2, "Panel2") Me.Panel2.Controls.Add(Me.chkMultiIndexer) Me.Panel2.Controls.Add(Me.chkdelete_origin) Me.Panel2.Controls.Add(Me.Label2) Me.Panel2.Controls.Add(Me.txtIndexfilepath) Me.Panel2.Controls.Add(Me.btnOK) + resources.ApplyResources(Me.Panel2, "Panel2") Me.Panel2.Name = "Panel2" ' 'chkMultiIndexer diff --git a/Global_Indexer/frmIndex.resx b/Global_Indexer/frmIndex.resx index 2d592e8..b9d688c 100644 --- a/Global_Indexer/frmIndex.resx +++ b/Global_Indexer/frmIndex.resx @@ -125,18 +125,18 @@ 0, 0 - - Top, Bottom, Left, Right - True + + Fill + - 0, 110 + 0, 104 - 534, 237 + 536, 269 8 @@ -166,7 +166,7 @@ MiddleRight - 405, 76 + 409, 76 No @@ -202,7 +202,7 @@ MiddleLeft - 400, 40 + 399, 40 133, 30 @@ -361,7 +361,7 @@ 2, 3, 2, 3 - 536, 110 + 536, 104 4 @@ -378,9 +378,6 @@ 1 - - Bottom, Left, Right - True @@ -451,7 +448,7 @@ Verdana, 8.25pt - 2, 84 + 0, 62 2, 0, 2, 0 @@ -484,7 +481,7 @@ Verdana, 6.75pt - 2, 100 + 3, 78 2, 3, 2, 3 @@ -493,7 +490,7 @@ True - 530, 34 + 529, 34 1 @@ -520,19 +517,19 @@ MiddleLeft - 392, 6 + 379, 6 3, 4, 3, 4 - 138, 30 + 153, 30 0 - Datei Indexieren + Datei verarbeiten MiddleRight @@ -549,14 +546,17 @@ 4 + + Bottom + - 0, 353 + 0, 373 2, 3, 2, 3 - 534, 140 + 536, 120 7 diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index bdabb79..7a50476 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -1995,8 +1995,8 @@ Public Class frmIndex End Select anz += 1 - ylbl += 60 - y += 60 + ylbl += 50 + y += 50 'make y as height in fom Next Dim pnlHeight = y - 30 diff --git a/Global_Indexer/frmStart.vb b/Global_Indexer/frmStart.vb index dddfe6a..7f5d04b 100644 --- a/Global_Indexer/frmStart.vb +++ b/Global_Indexer/frmStart.vb @@ -182,7 +182,7 @@ Public Class frmStart HK1 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY1") HK2 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY2") 'Alle Profile raussuchen die die Tastaturkombination enthalten - SQL = "select * from TBHOTKEY_USER_PROFILE where UPPER(HOTKEY1) = UPPER('" & HK1 & "') AND UPPER(HOTKEY2) = UPPER('" & HK2 & "') AND USER_ID = " & CURRENT_USERID + SQL = "select * from TBHOTKEY_USER_PROFILE where UPPER(HOTKEY1) = UPPER('" & HK1 & "') AND UPPER(HOTKEY2) = UPPER('" & HK2 & "') AND USER_ID = " & CURRENT_USER_ID Dim DTHOTKEY_PROFILES As DataTable = ClassDatabase.Return_Datatable(SQL, True) Dim Result As String = "" If Not IsNothing(DTHOTKEY_PROFILES) Then @@ -375,7 +375,7 @@ Public Class frmStart If START_INCOMPLETE = False Then Dim sql = "UPDATE TBDD_USER SET LOGGED_IN = 0, LOGGED_WHERE = '' WHERE LOWER(USERNAME) = LOWER('" & Environment.UserName & "')" If ClassDatabase.Execute_non_Query(sql, True) = True Then - sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USERID & " AND UPPER(MODULE) = UPPER('Global-Indexer')" + sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')" If ClassDatabase.Execute_non_Query(sql, True) = True Then End If @@ -386,7 +386,7 @@ Public Class frmStart Catch ex As Exception MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - If CURRENT_USERID > 0 Then + If CURRENT_USER_ID > 0 Then Unregister_Hotkeys() End If 'TempDateien löschen @@ -556,13 +556,13 @@ Public Class frmStart End Sub Sub Unregister_Hotkeys() Try - Dim sql As String = "Select * from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & CURRENT_USERID + Dim sql As String = "Select * from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & CURRENT_USER_ID Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True) If Not IsNothing(DT) Then For Each row As DataRow In DT.Rows HotKey.RemoveHotKey(row.Item("HOTKEY_ID")) Next - sql = "delete from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & CURRENT_USERID + sql = "delete from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & CURRENT_USER_ID ClassDatabase.Execute_non_Query(sql, True) End If @@ -572,13 +572,13 @@ Public Class frmStart End Sub Sub Load_Hotkeys() Try - Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT HOTKEY1, HOTKEY2, ABS(CONVERT(INT, CONVERT(binary(4), NEWID()))) AS HOTKEY_ID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & CURRENT_USERID & " GROUP BY HOTKEY1, HOTKEY2", True) + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT HOTKEY1, HOTKEY2, ABS(CONVERT(INT, CONVERT(binary(4), NEWID()))) AS HOTKEY_ID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & CURRENT_USER_ID & " GROUP BY HOTKEY1, HOTKEY2", True) If DT.Rows.Count > 0 Then If LogErrorsOnly = False Then ClassLogger.Add(" >> " & DT.Rows.Count & " Hotkey-Profile", False) Dim i As Integer = 0 For Each row As DataRow In DT.Rows i += 1 - Dim sql As String = "INSERT INTO TBHOTKEYTEMP_USER_HOTKEYS (HOTKEY_ID,HOTKEY1,HOTKEY2,[USER_ID]) VALUES (" & row.Item("HOTKEY_ID") & ", '" & row.Item("HOTKEY1") & "', '" & row.Item("HOTKEY2") & "', " & CURRENT_USERID & ")" + Dim sql As String = "INSERT INTO TBHOTKEYTEMP_USER_HOTKEYS (HOTKEY_ID,HOTKEY1,HOTKEY2,[USER_ID]) VALUES (" & row.Item("HOTKEY_ID") & ", '" & row.Item("HOTKEY1") & "', '" & row.Item("HOTKEY2") & "', " & CURRENT_USER_ID & ")" ClassDatabase.Execute_non_Query(sql, True) Dim keyCode As Keys