diff --git a/app/DD-Record-Organizer/ClassControlCommands.vb b/app/DD-Record-Organizer/ClassControlCommands.vb
index ce6be79..ac2c954 100644
--- a/app/DD-Record-Organizer/ClassControlCommands.vb
+++ b/app/DD-Record-Organizer/ClassControlCommands.vb
@@ -196,9 +196,9 @@
End Function
Public Shared Function UpdateControl(control As Control, properties As Object)
- ' Try
- ' Nach Typ den Update Befehl anpassen
- Dim type As String = control.GetType.Name
+ Try
+ ' Nach Typ den Update Befehl anpassen
+ Dim type As String = control.GetType.Name
Dim SQL As String
Dim NAME As String
@@ -355,11 +355,11 @@
Else
Throw New Exception()
End If
- 'Catch ex As Exception
- ' ClassLogger.Add("Unexpected Error in UpdateControl: " & ex.Message, True)
- ' MsgBox("Unexpected Error in UpdateControl:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
- ' Return False
- 'End Try
+ Catch ex As Exception
+ ClassLogger.Add("Unexpected Error in UpdateControl: " & ex.Message, True)
+ MsgBox("Unexpected Error in UpdateControl:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
+ Return False
+ End Try
End Function
Public Shared Function UpdateControlScreen(control As Control, properties As Object)
diff --git a/app/DD-Record-Organizer/ClassControlLoader.vb b/app/DD-Record-Organizer/ClassControlLoader.vb
index d9292c6..bb63ecf 100644
--- a/app/DD-Record-Organizer/ClassControlLoader.vb
+++ b/app/DD-Record-Organizer/ClassControlLoader.vb
@@ -255,11 +255,11 @@
End If
End If
- End If
+ End If
Catch ex As Exception
MsgBox("Unexpected Error in LoadValueMain:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
- ClassLogger.Add("Unexpected Error in LoadValueMain: " & ex.Message, True)
- ClassLogger.Add(String.Format("ControlID: {0}" & vbNewLine & "recordid: {1}" & vbNewLine & "parentRecordId: {2}" & vbNewLine & "value: {3}" & vbNewLine & "entity_ID: {4}" & vbNewLine & "VARIABLE_VALUE: {5}", ControlId, recordId, parentRecordId, value, entity_ID, VARIABLE_VALUE), False)
+ ClassLogger.Add("Unexpected Error in LoadValueMain: " & ex.Message, True)
+ ClassLogger.Add(String.Format("ControlID: {0}" & vbNewLine & "recordid: {1}" & vbNewLine & "parentRecordId: {2}" & vbNewLine & "value: {3}" & vbNewLine & "entity_ID: {4}" & vbNewLine & "VARIABLE_VALUE: {5}", ControlId, recordId, parentRecordId, value, entity_ID, VARIABLE_VALUE), False)
End Try
End Sub
diff --git a/app/DD-Record-Organizer/ClassDOC_SEARCH.vb b/app/DD-Record-Organizer/ClassDOC_SEARCH.vb
index 3e86e10..2d783a8 100644
--- a/app/DD-Record-Organizer/ClassDOC_SEARCH.vb
+++ b/app/DD-Record-Organizer/ClassDOC_SEARCH.vb
@@ -302,8 +302,12 @@ Public Class ClassDOC_SEARCH
Width = 200
End If
'Die Spalte definieren
- DTGrid.Columns.Add(ColumnName)
- ColCount += 1
+ Try
+ DTGrid.Columns.Add(ColumnName)
+ ColCount += 1
+ Catch ex As Exception
+ ClassLogger.Add(String.Format("Unexpected Error in DTGrid.Columns.Add({0}) - CONSTR_DET_ID: {1} ", ColumnName, CURRENT_CONSTRUCTOR_DETAIL_ID) & ex.Message)
+ End Try
Next
'Jetzt das Array zusammenbauen um die Spaltenwerte zu erhalten
For Each rw As DataRow In DT_WINDREAM_RESULTLIST.Rows
@@ -311,6 +315,7 @@ Public Class ClassDOC_SEARCH
Next
End If
Catch ex As Exception
+ ClassLogger.Add("Unexpected Error in Construct Datatable: " & ex.Message)
MsgBox("Unexpected Error in Construct Datatable for GridResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
elapsed = sw.Elapsed.TotalSeconds
@@ -412,6 +417,7 @@ Public Class ClassDOC_SEARCH
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run Get_DOC_RESULTTABLE took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception
MsgBox("Unexpected Error in Get_DOC_RESULTTABLE: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+ ClassLogger.Add("Unexpected Error in Get_DOC_RESULTTABLE: " & ex.Message)
Return Nothing
End Try
End Function
diff --git a/app/DD-Record-Organizer/ClassNodeNavigation.vb b/app/DD-Record-Organizer/ClassNodeNavigation.vb
index 665bf59..f26435b 100644
--- a/app/DD-Record-Organizer/ClassNodeNavigation.vb
+++ b/app/DD-Record-Organizer/ClassNodeNavigation.vb
@@ -48,7 +48,7 @@
Dim expression As String
expression = "PARENT_GUID = 0"
Dim MAIN_NODES() As DataRow
- ' Use the Select method to find all rows matching the filter.
+ 'Use the Select method to find all rows matching the filter.
MAIN_NODES = DT_TREEVIEW_NODES.Select(expression, "SEQUENCE, NODE_CAPTION")
' For each row create a Node
For i = 0 To MAIN_NODES.GetUpperBound(0)
@@ -68,7 +68,7 @@
Next
MAIN_NODE.ImageIndex = index
MAIN_NODE.SelectedImageIndex = index
- CheckSubNodes(DT_TREEVIEW_NODES, MAIN_NODES(i)("GUID"), TREEVIEW_IMAGELIST, MAIN_NODE)
+ MAIN_NODE = CheckSubNodes(DT_TREEVIEW_NODES, MAIN_NODES(i)("GUID"), TREEVIEW_IMAGELIST, MAIN_NODE, MAIN_NODES(i)("EXPAND_NODE"))
'Add the node
mytrv.Nodes.Add(MAIN_NODE)
@@ -81,7 +81,7 @@
Return Nothing
End Try
End Function
- Private Shared Function CheckSubNodes(DT_TREEVIEW_NODES As DataTable, PARENT_GUID As Integer, TREEVIEW_IMAGELIST As ImageList, MY_NODE As TreeNode)
+ Private Shared Function CheckSubNodes(DT_TREEVIEW_NODES As DataTable, PARENT_GUID As Integer, TREEVIEW_IMAGELIST As ImageList, MY_NODE As TreeNode, EXPAND As Boolean)
Dim ENTITY_ID As Integer
Dim expression As String
expression = "PARENT_GUID = " & PARENT_GUID.ToString
@@ -106,10 +106,15 @@
Next
SUB_NODE.ImageIndex = index
SUB_NODE.SelectedImageIndex = index
- CheckSubNodes(DT_TREEVIEW_NODES, SUB_NODE_ROW(i)("GUID"), TREEVIEW_IMAGELIST, SUB_NODE)
+
+ CheckSubNodes(DT_TREEVIEW_NODES, SUB_NODE_ROW(i)("GUID"), TREEVIEW_IMAGELIST, SUB_NODE, SUB_NODE_ROW(i)("EXPAND_NODE"))
'Add the node
MY_NODE.Nodes.Add(SUB_NODE)
+ 'If EXPAND = True Then
+ ' MY_NODE.ExpandAll()
+ 'End If
Next
+
Return MY_NODE
End Function
Public Shared Function CreateTreeViewNodesNew(DT_TREEVIEW_PER_CONTROLS As DataTable, TREEVIEW_IMAGELIST As ImageList)
diff --git a/app/DD-Record-Organizer/ClassUpdate.vb b/app/DD-Record-Organizer/ClassUpdate.vb
new file mode 100644
index 0000000..5490af2
--- /dev/null
+++ b/app/DD-Record-Organizer/ClassUpdate.vb
@@ -0,0 +1,342 @@
+Imports System.IO
+Imports DD_LIB_Standards
+Public Class ClassUpdate
+ Public Shared MyServer_UpdatePath As String
+
+ Public Shared VERSION_SERVER = "1.0.0.0"
+ Public Shared VERSION_USER = "1.0.0.0"
+ Public Shared FORCE_UPDATE As Boolean = False
+ Public Shared UPDATE_ID As Integer
+ Public Shared ALL_USERS As Boolean = False
+ Public Shared VERSIONS_FOR_FORCE_UPDATE As String = ""
+ Public Shared FOLDER_TEMP As String
+
+ Public Shared MY_INSTALL_PATH As String
+ Public Shared DT_UPDATE_ITEMS As DataTable
+ Public Shared DT_UPDATE As DataTable
+ Public Shared ERROR_WHILE_UPDATING As Boolean = False
+
+ Public Shared UPDATE_NECESSARY As Boolean = False
+ Public Shared UPDATE_CANCELLED As Boolean = False
+ Public Shared UPDATE_ERROR As Boolean = False
+
+ Private Shared RecExe_found As Boolean = False
+ Public Shared Function Init()
+ Try
+ If InitInstallPath() = False Then
+
+ End If
+ Dim sql = String.Format("SELECT * FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')")
+ Dim KONFIG_DT As DataTable = clsDatabase.Return_Datatable(sql, False)
+ If KONFIG_DT.Rows.Count = 1 Then
+ MyServer_UpdatePath = KONFIG_DT.Rows(0).Item("VERSION_UPATE_PATH")
+ End If
+ sql = String.Format("SELECT * FROM TBDD_VERSION_UPDATE WHERE GUID = (SELECT MAX(GUID) FROM TBDD_VERSION_UPDATE WHERE UPPER(MODULE_NAME) = UPPER('{0}'))", "Record-Organizer")
+ DT_UPDATE = clsDatabase.Return_Datatable(sql, False)
+ If Not IsNothing(DT_UPDATE) Then
+ If DT_UPDATE.Rows.Count = 1 Then
+ UPDATE_ID = DT_UPDATE.Rows(0).Item("GUID")
+ VERSION_SERVER = DT_UPDATE.Rows(0).Item("VERSION_NO")
+ FORCE_UPDATE = DT_UPDATE.Rows(0).Item("FORCE_UPD")
+ VERSIONS_FOR_FORCE_UPDATE = DT_UPDATE.Rows(0).Item("VERSION_FORCE_UPD")
+ ALL_USERS = DT_UPDATE.Rows(0).Item("ALL_USERS")
+ sql = String.Format("SELECT * FROM TBDD_VERSION_ITEMS WHERE UPDATE_ID = {0} AND [INFO1] IS NOT NULL ORDER BY GUID", UPDATE_ID)
+ DT_UPDATE_ITEMS = clsDatabase.Return_Datatable(sql)
+ Else
+ ClassLogger.Add(">> No Updates Configured!", False)
+ End If
+ End If
+ Return True
+ Catch ex As Exception
+ ClassLogger.Add("Unexpected Error in ClassUpdate - Init: " & ex.Message, True)
+ Return False
+ End Try
+
+ End Function
+ Private Shared Function InitInstallPath()
+ Try
+ Dim readValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Digital Data\Record Organizer", "Path", Nothing)
+ If Not IsNothing(readValue) Then
+ MY_INSTALL_PATH = readValue
+ Return True
+ Else
+ MY_INSTALL_PATH = ""
+ For Each s In Directory.GetLogicalDrives()
+ If RecExe_found = False Then
+ DirSearch(s)
+ End If
+ Next
+ If RecExe_found = False Then
+ MsgBox("Could not find the path for RecordOrganizer - Please check your installation!", MsgBoxStyle.Critical)
+ Return False
+ End If
+ End If
+ Catch ex As Exception
+ ClassLogger.Add("Unexpected Error in InitInstallPath: " & ex.Message, True)
+ Return False
+ End Try
+ End Function
+ Private Shared Sub DirSearch(ByVal sDir As String)
+ Dim d As String
+ Dim f As String
+ Try
+ For Each d In Directory.GetDirectories(sDir)
+ If d.Contains("$Recycle") = False Or d.Contains("System Volume") = False Then
+ If RecExe_found = False Then
+ For Each f In Directory.GetFiles(d, "DD-Record-Organizer.exe")
+ RecExe_found = True
+ MY_INSTALL_PATH = Path.GetDirectoryName(f)
+ Exit Sub
+ Next
+ End If
+ If RecExe_found = False Then
+ DirSearch(d)
+ End If
+ End If
+ Next
+ Catch excpt As System.Exception
+ ClassLogger.Add("Unexpected Error in DirSearch: " & excpt.Message, True)
+ MY_INSTALL_PATH = ""
+ End Try
+ End Sub
+ Public Shared Function InitUser(Optional _User As String = "")
+ Try
+ Dim sql = ""
+ USER_USERNAME = Environment.UserName
+ sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", USER_USERNAME)
+ Dim USER_DT As DataTable = clsDatabase.Return_Datatable(sql, True)
+ If USER_DT.Rows.Count = 0 Then
+ ClassLogger.Add(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
+ 'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
+ 'Me.Close()
+ Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
+ MsgBox(msg, MsgBoxStyle.Exclamation)
+ Return False
+ Else
+ USER_GUID = USER_DT.Rows(0).Item("GUID")
+ USER_LANGUAGE = USER_DT.Rows(0).Item("LANGUAGE")
+ sql = String.Format("SELECT UPDATE_PATH FROM TBDD_VERSION_USER_UPDATE_PATH WHERE USER_ID = {0} AND UPPER(MODULE_NAME) = UPPER('{1}')", USER_GUID, "Record-Organizer")
+ Dim USER_UPDATE_PATH = clsDatabase.Execute_Scalar(sql)
+ If Not IsNothing(USER_UPDATE_PATH) Then
+ If USER_UPDATE_PATH <> String.Empty Then
+ MyServer_UpdatePath = USER_UPDATE_PATH
+ End If
+ Else
+ MyServer_UpdatePath = String.Empty
+ End If
+ sql = String.Format("SELECT CASE VERSION_CLIENT WHEN '' THEN '{3}' ELSE VERSION_CLIENT END AS VERSION_CLIENT FROM VWDD_LOGIN_USER_HISTORY WHERE GUID = (select MAX(GUID) from VWDD_LOGIN_USER_HISTORY where USER_ID = {0} AND VERSION_CLIENT <> '' AND UPPER(MACHINE_NAME) = UPPER('{1}') AND UPPER(MODULE) = UPPER('{2}'))", USER_GUID, Environment.MachineName, "Record-Organizer", VERSION_SERVER)
+ VERSION_USER = clsDatabase.Execute_Scalar(sql)
+ If IsNothing(VERSION_USER) Then
+ sql = String.Format("SELECT CASE VERSION_CLIENT WHEN '' THEN '{2}' ELSE VERSION_CLIENT END AS VERSION_CLIENT FROM VWDD_LOGIN_USER_HISTORY WHERE GUID = (select MAX(GUID) from VWDD_LOGIN_USER_HISTORY where USER_ID = {0} AND VERSION_CLIENT <> '' AND UPPER(MODULE) = UPPER('{1}'))", USER_GUID, "Record-Organizer", VERSION_SERVER)
+ VERSION_USER = clsDatabase.Execute_Scalar(sql)
+ If IsNothing(VERSION_USER) Then
+ VERSION_USER = "1.0.0.0"
+ End If
+ End If
+ VERSION_USER = CInt(VERSION_USER.ToString.Replace(".", ""))
+ VERSION_SERVER = CInt(VERSION_SERVER.ToString.Replace(".", ""))
+ Return True
+ End If
+ Catch ex As Exception
+ ClassLogger.Add("Unexpected Error in InitUser_Update_Spec: " & ex.Message, True)
+ Return False
+ End Try
+
+ End Function
+ Public Shared Sub RUN_UPDATE()
+
+ If (VERSION_USER = VERSION_SERVER) Or VERSION_SERVER = 1000 Or VERSION_USER = 1000 Then
+ Exit Sub
+ End If
+ UPDATE_NECESSARY = True
+ If FORCE_UPDATE = False Then
+
+ If VERSIONS_FOR_FORCE_UPDATE.Contains(VERSION_USER) Then
+ ClassLogger.Add(String.Format("VersionChecker: ForceUpdate for User as Version '{0}' is used!", VERSION_USER), False)
+ ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("VersionChecker: ForceUpdate for User as Version '{0}' is used!", VERSION_USER))
+ FORCE_UPDATE = True
+ End If
+ End If
+ If FORCE_UPDATE = False Then
+
+ If ALL_USERS = False Then
+ Dim sql = String.Format("SELECT COUNT(GUID) FROM TBDD_VERSION_USER_UPDATE WHERE USER_ID = {0} AND UPDATE_ID = {1}", USER_GUID, UPDATE_ID)
+ If clsDatabase.Execute_Scalar(sql) = 0 Then
+ ClassLogger.Add(String.Format("VersionChecker: User is not part of update-group - UPDATE-ID: {0}", UPDATE_ID), False)
+ ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("VersionChecker: User is not part of update-group - UPDATE-ID: {0}", UPDATE_ID))
+ Exit Sub
+ End If
+ End If
+
+ Dim msg = "Auf dem Server liegt ein Update für ein ADDI-AddOn bereit!" & vbNewLine & "Wollen Sie das Update nun durchführen? Die Dauer ist abhängig von Ihrer Netzwerkverbindung!"
+ If USER_LANGUAGE <> "de-DE" Then
+ msg = "There is a new release available for an ADDI-AddOn!" & vbNewLine & "Would You like to install the update now? This might take some time (minute(s))!"
+ End If
+ Dim result As MsgBoxResult
+ result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+ If result = MsgBoxResult.No Then
+ UPDATE_CANCELLED = True
+ Exit Sub
+ End If
+ End If
+
+ If MyServer_UpdatePath <> String.Empty Then
+ If Directory.Exists(MyServer_UpdatePath) Then
+ GetTempFolderGuid()
+ If FOLDER_TEMP <> String.Empty Then
+
+ ' Make a reference to a directory.
+ Dim di As New DirectoryInfo(MyServer_UpdatePath)
+ ' Get a reference to each file in that directory.
+ Dim fiArr As FileInfo() = di.GetFiles()
+ ' Display the names of the files.
+ 'Dim fri As FileInfo
+ Dim error_while_copying = False
+ For Each Upd_item As DataRow In DT_UPDATE_ITEMS.Rows
+ If error_while_copying = True Then
+ Exit For
+ End If
+ Dim updatefile2copy = Path.Combine(MyServer_UpdatePath, Upd_item.Item("ITEM_INFO"))
+
+ Dim tempfilename = Path.Combine(FOLDER_TEMP, Upd_item.Item("ITEM_INFO"))
+
+ If File.Exists(updatefile2copy) Then
+ Try
+ System.IO.File.Copy(updatefile2copy, tempfilename)
+ Catch ex As Exception
+ ClassLogger.Add(String.Format("Error while copying file {0} to {1}: " & ex.Message, updatefile2copy, tempfilename))
+ error_while_copying = True
+ UPDATE_ERROR = True
+ End Try
+ Else
+ ClassLogger.Add(String.Format("UpdateFile {0} is not existing or accessible", updatefile2copy))
+ End If
+ Next
+
+ If error_while_copying = False Then
+ Replace_Files()
+
+ End If
+
+ Try
+ 'Delete the tempfolder and all data
+ System.IO.Directory.Delete(FOLDER_TEMP, True)
+ Catch ex As Exception
+
+ End Try
+ Else
+ ClassLogger.Add(String.Format("The temporaryFolder could not be created!"))
+ End If
+ Else
+ ClassLogger.Add(String.Format("The Updatepath '{0}'is not accessible or does not exist", MyServer_UpdatePath))
+ End If
+ Else
+ ClassLogger.Add(String.Format("NO ACTION: the Updatepath is empty"))
+ End If
+
+ End Sub
+ Private Shared Function GetTempFolderGuid() As String
+ Try
+ Dim folder As String = Path.Combine(Path.GetTempPath, Guid.NewGuid.ToString)
+ If Not Directory.Exists(folder) Then
+ Directory.CreateDirectory(folder)
+ End If
+ FOLDER_TEMP = folder
+ Catch ex As Exception
+ ClassLogger.Add(String.Format("Error while Creating tempfolder: " & ex.Message))
+ End Try
+
+ End Function
+ Private Shared Sub Replace_Files()
+ Try
+
+ 'Jede Datei im tempfolder wird replaced
+ Dim di As New DirectoryInfo(FOLDER_TEMP)
+ ' Get a reference to each file in that directory.
+ Dim fiArr As FileInfo() = di.GetFiles()
+ ' Display the names of the files.
+ ' Dim fri As FileInfo
+ Dim error_while_replacing = False
+ For Each Upd_item As DataRow In DT_UPDATE_ITEMS.Rows
+ Dim BackUpOfFileToReplace As String = MY_INSTALL_PATH & "\" & Upd_item.Item("INFO1") & Upd_item.Item("ITEM_INFO") & ".bac"
+ Dim sourcefile = Path.Combine(FOLDER_TEMP, Upd_item.Item("ITEM_INFO"))
+ Dim targetfile
+ If IsDBNull(Upd_item.Item("INFO1")) Then
+ targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("ITEM_INFO"))
+ Else
+ If Upd_item.Item("INFO1") <> String.Empty Then
+ targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("INFO1"), Upd_item.Item("ITEM_INFO"))
+ Else
+ targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("ITEM_INFO"))
+ End If
+ End If
+
+ Try
+ ' Replace the file.
+ If File.Exists(targetfile) Then
+ If File_Rename(targetfile, BackUpOfFileToReplace) = True Then
+ If MoveFile(sourcefile, targetfile) = True Then
+ File_Delete(BackUpOfFileToReplace)
+ Else
+ 'Verschieben hat nicht geklappt also die Backupdatei wieder umbenennen!
+ File_Rename(BackUpOfFileToReplace, targetfile)
+ End If
+ End If
+ Else
+ MoveFile(sourcefile, targetfile)
+ End If
+
+
+ Catch ex As Exception
+ ClassLogger.Add(String.Format("Error while copying file {0} to {1}: " & ex.Message, sourcefile, targetfile))
+ error_while_replacing = True
+ UPDATE_ERROR = True
+ End Try
+
+ Next
+
+ Catch ex As Exception
+ ClassLogger.Add(String.Format("Unexpected Error in Replace_Files: {0}", ex.Message))
+ UPDATE_ERROR = True
+ End Try
+ End Sub
+ Private Shared Function File_Rename(targetfile As String, Renamefilestring As String)
+ Try
+
+ Renamefilestring = Renamefilestring.Replace("\\", "\")
+ If File.Exists(Renamefilestring) Then
+
+ If File_Delete(Renamefilestring) = False Then
+ Return False
+ End If
+ End If
+
+ Rename(targetfile, Renamefilestring)
+ Return True
+ Catch ex As Exception
+ ClassLogger.Add(String.Format("Unexpected Error in File_Rename: " & "targetfile '{0}'" & "Renamefilestring '{1}'" & "ERROR: {2}", targetfile, Renamefilestring, ex.Message))
+ UPDATE_ERROR = True
+ Return False
+ End Try
+ End Function
+ Private Shared Function File_Delete(deletefile As String)
+ Try
+ File.Delete(deletefile)
+ Return True
+ Catch ex As Exception
+ ClassLogger.Add(String.Format("Unexpected Error in File_Delete: " & vbNewLine & "deletefile '{0}'" & vbNewLine & "ERROR: {2}", deletefile, ex.Message))
+ UPDATE_ERROR = True
+ Return False
+ End Try
+ End Function
+ Private Shared Function MoveFile(sourcefile As String, targetfile As String)
+ Try
+ File.Move(sourcefile, targetfile)
+ Return True
+ Catch ex As Exception
+ ClassLogger.Add(String.Format("Unexpected Error in MoveFile: sourcefile '{0}', targetfile '{1}' - ERROR: {2}", sourcefile, targetfile, ex.Message))
+ UPDATE_ERROR = True
+ Return False
+ End Try
+ End Function
+End Class
diff --git a/app/DD-Record-Organizer/DD-Record-Organizer.vbproj b/app/DD-Record-Organizer/DD-Record-Organizer.vbproj
index 662dbd1..6267967 100644
--- a/app/DD-Record-Organizer/DD-Record-Organizer.vbproj
+++ b/app/DD-Record-Organizer/DD-Record-Organizer.vbproj
@@ -296,6 +296,7 @@
+
@@ -857,6 +858,9 @@
frmStructureNodeConfig.vb
+
+ frmTreeSearchResult.vb
+
frmTreeSearchResult.vb
@@ -944,6 +948,7 @@
frmConstructorDesigner.vb
+ Designer
frmCustomAppointment.vb
@@ -953,6 +958,7 @@
frmDD_EMAIL_ACCOUNT.vb
+ Designer
frmWD_Dokumentart_Konfig.vb
@@ -1027,6 +1033,7 @@
frmRecord_Changes.vb
+ Designer
frmScanFiles.vb
diff --git a/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb b/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb
index 3682ff7..245ab12 100644
--- a/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb
+++ b/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb
@@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
'
' Dieser Code wurde von einem Tool generiert.
-' Laufzeitversion:4.0.30319.36366
+' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
@@ -11410,6 +11410,7 @@ Partial Public Class DD_DMSDataSet
Me.columnGUID.Unique = true
Me.columnFORM_TITLE.MaxLength = 50
Me.columnSEQUENCE_MENU.AllowDBNull = false
+ Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnADDED_WHEN.AllowDBNull = false
Me.columnCHANGED_WHO.MaxLength = 50
@@ -11558,8 +11559,6 @@ Partial Public Class DD_DMSDataSet
Private columnOBJECT_TYPE As Global.System.Data.DataColumn
- Private columnIDXNAME_ENTITYID As Global.System.Data.DataColumn
-
Private columnADDED_WHO As Global.System.Data.DataColumn
Private columnADDED_WHEN As Global.System.Data.DataColumn
@@ -11568,10 +11567,6 @@ Partial Public Class DD_DMSDataSet
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
- Private columnIDXNAME_PARENTID As Global.System.Data.DataColumn
-
- Private columnIDXNAME_RECORDID As Global.System.Data.DataColumn
-
Private columnIDXNAME_DOCTYPE As Global.System.Data.DataColumn
Private columnIDXNAME_RELATION As Global.System.Data.DataColumn
@@ -11627,14 +11622,6 @@ Partial Public Class DD_DMSDataSet
End Get
End Property
- _
- Public ReadOnly Property IDXNAME_ENTITYIDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnIDXNAME_ENTITYID
- End Get
- End Property
-
_
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
@@ -11667,22 +11654,6 @@ Partial Public Class DD_DMSDataSet
End Get
End Property
- _
- Public ReadOnly Property IDXNAME_PARENTIDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnIDXNAME_PARENTID
- End Get
- End Property
-
- _
- Public ReadOnly Property IDXNAME_RECORDIDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnIDXNAME_RECORDID
- End Get
- End Property
-
_
Public ReadOnly Property IDXNAME_DOCTYPEColumn() As Global.System.Data.DataColumn
@@ -11736,9 +11707,9 @@ Partial Public Class DD_DMSDataSet
_
- Public Overloads Function AddTBPMO_WD_OBJECTTYPERow(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal IDXNAME_PARENTID As String, ByVal IDXNAME_RECORDID As String, ByVal IDXNAME_DOCTYPE As String, ByVal IDXNAME_RELATION As String) As TBPMO_WD_OBJECTTYPERow
+ Public Overloads Function AddTBPMO_WD_OBJECTTYPERow(ByVal OBJECT_TYPE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal IDXNAME_DOCTYPE As String, ByVal IDXNAME_RELATION As String) As TBPMO_WD_OBJECTTYPERow
Dim rowTBPMO_WD_OBJECTTYPERow As TBPMO_WD_OBJECTTYPERow = CType(Me.NewRow,TBPMO_WD_OBJECTTYPERow)
- Dim columnValuesArray() As Object = New Object() {Nothing, OBJECT_TYPE, IDXNAME_ENTITYID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDXNAME_PARENTID, IDXNAME_RECORDID, IDXNAME_DOCTYPE, IDXNAME_RELATION}
+ Dim columnValuesArray() As Object = New Object() {Nothing, OBJECT_TYPE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDXNAME_DOCTYPE, IDXNAME_RELATION}
rowTBPMO_WD_OBJECTTYPERow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBPMO_WD_OBJECTTYPERow)
Return rowTBPMO_WD_OBJECTTYPERow
@@ -11769,13 +11740,10 @@ Partial Public Class DD_DMSDataSet
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnOBJECT_TYPE = MyBase.Columns("OBJECT_TYPE")
- Me.columnIDXNAME_ENTITYID = MyBase.Columns("IDXNAME_ENTITYID")
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
- Me.columnIDXNAME_PARENTID = MyBase.Columns("IDXNAME_PARENTID")
- Me.columnIDXNAME_RECORDID = MyBase.Columns("IDXNAME_RECORDID")
Me.columnIDXNAME_DOCTYPE = MyBase.Columns("IDXNAME_DOCTYPE")
Me.columnIDXNAME_RELATION = MyBase.Columns("IDXNAME_RELATION")
End Sub
@@ -11787,8 +11755,6 @@ Partial Public Class DD_DMSDataSet
MyBase.Columns.Add(Me.columnGUID)
Me.columnOBJECT_TYPE = New Global.System.Data.DataColumn("OBJECT_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnOBJECT_TYPE)
- Me.columnIDXNAME_ENTITYID = New Global.System.Data.DataColumn("IDXNAME_ENTITYID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnIDXNAME_ENTITYID)
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)
@@ -11797,10 +11763,6 @@ Partial Public Class DD_DMSDataSet
MyBase.Columns.Add(Me.columnCHANGED_WHO)
Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
- Me.columnIDXNAME_PARENTID = New Global.System.Data.DataColumn("IDXNAME_PARENTID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnIDXNAME_PARENTID)
- Me.columnIDXNAME_RECORDID = New Global.System.Data.DataColumn("IDXNAME_RECORDID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnIDXNAME_RECORDID)
Me.columnIDXNAME_DOCTYPE = New Global.System.Data.DataColumn("IDXNAME_DOCTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnIDXNAME_DOCTYPE)
Me.columnIDXNAME_RELATION = New Global.System.Data.DataColumn("IDXNAME_RELATION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
@@ -11812,15 +11774,11 @@ Partial Public Class DD_DMSDataSet
Me.columnGUID.Unique = true
Me.columnOBJECT_TYPE.AllowDBNull = false
Me.columnOBJECT_TYPE.MaxLength = 100
- Me.columnIDXNAME_ENTITYID.AllowDBNull = false
- Me.columnIDXNAME_ENTITYID.MaxLength = 100
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
- Me.columnIDXNAME_PARENTID.AllowDBNull = false
- Me.columnIDXNAME_PARENTID.MaxLength = 100
- Me.columnIDXNAME_RECORDID.MaxLength = 100
Me.columnIDXNAME_DOCTYPE.MaxLength = 100
+ Me.columnIDXNAME_RELATION.AllowDBNull = false
Me.columnIDXNAME_RELATION.MaxLength = 100
End Sub
@@ -14678,18 +14636,6 @@ Partial Public Class DD_DMSDataSet
Private columnCOLUMN_NAME2 As Global.System.Data.DataColumn
- Private columnWINDREAM_SEARCH As Global.System.Data.DataColumn
-
- Private columnSEARCH_PATTERN1 As Global.System.Data.DataColumn
-
- Private columnSEARCH_PATTERN2 As Global.System.Data.DataColumn
-
- Private columnSEARCH_PATTERN3 As Global.System.Data.DataColumn
-
- Private columnSEARCH_PATTERN4 As Global.System.Data.DataColumn
-
- Private columnSEARCH_PATTERN5 As Global.System.Data.DataColumn
-
Private columnLOAD_DIRECT As Global.System.Data.DataColumn
Private columnSQL_QUICK_VIEW As Global.System.Data.DataColumn
@@ -14843,54 +14789,6 @@ Partial Public Class DD_DMSDataSet
End Get
End Property
- _
- Public ReadOnly Property WINDREAM_SEARCHColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnWINDREAM_SEARCH
- End Get
- End Property
-
- _
- Public ReadOnly Property SEARCH_PATTERN1Column() As Global.System.Data.DataColumn
- Get
- Return Me.columnSEARCH_PATTERN1
- End Get
- End Property
-
- _
- Public ReadOnly Property SEARCH_PATTERN2Column() As Global.System.Data.DataColumn
- Get
- Return Me.columnSEARCH_PATTERN2
- End Get
- End Property
-
- _
- Public ReadOnly Property SEARCH_PATTERN3Column() As Global.System.Data.DataColumn
- Get
- Return Me.columnSEARCH_PATTERN3
- End Get
- End Property
-
- _
- Public ReadOnly Property SEARCH_PATTERN4Column() As Global.System.Data.DataColumn
- Get
- Return Me.columnSEARCH_PATTERN4
- End Get
- End Property
-
- _
- Public ReadOnly Property SEARCH_PATTERN5Column() As Global.System.Data.DataColumn
- Get
- Return Me.columnSEARCH_PATTERN5
- End Get
- End Property
-
_
Public ReadOnly Property LOAD_DIRECTColumn() As Global.System.Data.DataColumn
@@ -14966,17 +14864,11 @@ Partial Public Class DD_DMSDataSet
ByVal CHANGED_WHEN As Date, _
ByVal COLUMN_NAME1 As String, _
ByVal COLUMN_NAME2 As String, _
- ByVal WINDREAM_SEARCH As String, _
- ByVal SEARCH_PATTERN1 As String, _
- ByVal SEARCH_PATTERN2 As String, _
- ByVal SEARCH_PATTERN3 As String, _
- ByVal SEARCH_PATTERN4 As String, _
- ByVal SEARCH_PATTERN5 As String, _
ByVal LOAD_DIRECT As Boolean, _
ByVal SQL_QUICK_VIEW As String, _
ByVal CONTROL_DOCTYPE_MATCH As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow
Dim rowTBPMO_FORM_CONSTRUCTOR_DETAILRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow)
- Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, LOAD_DIRECT, SQL_QUICK_VIEW, CONTROL_DOCTYPE_MATCH}
+ Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, LOAD_DIRECT, SQL_QUICK_VIEW, CONTROL_DOCTYPE_MATCH}
If (Not (parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) Is Nothing) Then
columnValuesArray(1) = parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID(0)
End If
@@ -15025,12 +14917,6 @@ Partial Public Class DD_DMSDataSet
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnCOLUMN_NAME1 = MyBase.Columns("COLUMN_NAME1")
Me.columnCOLUMN_NAME2 = MyBase.Columns("COLUMN_NAME2")
- Me.columnWINDREAM_SEARCH = MyBase.Columns("WINDREAM_SEARCH")
- Me.columnSEARCH_PATTERN1 = MyBase.Columns("SEARCH_PATTERN1")
- Me.columnSEARCH_PATTERN2 = MyBase.Columns("SEARCH_PATTERN2")
- Me.columnSEARCH_PATTERN3 = MyBase.Columns("SEARCH_PATTERN3")
- Me.columnSEARCH_PATTERN4 = MyBase.Columns("SEARCH_PATTERN4")
- Me.columnSEARCH_PATTERN5 = MyBase.Columns("SEARCH_PATTERN5")
Me.columnLOAD_DIRECT = MyBase.Columns("LOAD_DIRECT")
Me.columnSQL_QUICK_VIEW = MyBase.Columns("SQL_QUICK_VIEW")
Me.columnCONTROL_DOCTYPE_MATCH = MyBase.Columns("CONTROL_DOCTYPE_MATCH")
@@ -15067,18 +14953,6 @@ Partial Public Class DD_DMSDataSet
MyBase.Columns.Add(Me.columnCOLUMN_NAME1)
Me.columnCOLUMN_NAME2 = New Global.System.Data.DataColumn("COLUMN_NAME2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOLUMN_NAME2)
- Me.columnWINDREAM_SEARCH = New Global.System.Data.DataColumn("WINDREAM_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnWINDREAM_SEARCH)
- Me.columnSEARCH_PATTERN1 = New Global.System.Data.DataColumn("SEARCH_PATTERN1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnSEARCH_PATTERN1)
- Me.columnSEARCH_PATTERN2 = New Global.System.Data.DataColumn("SEARCH_PATTERN2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnSEARCH_PATTERN2)
- Me.columnSEARCH_PATTERN3 = New Global.System.Data.DataColumn("SEARCH_PATTERN3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnSEARCH_PATTERN3)
- Me.columnSEARCH_PATTERN4 = New Global.System.Data.DataColumn("SEARCH_PATTERN4", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnSEARCH_PATTERN4)
- Me.columnSEARCH_PATTERN5 = New Global.System.Data.DataColumn("SEARCH_PATTERN5", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnSEARCH_PATTERN5)
Me.columnLOAD_DIRECT = New Global.System.Data.DataColumn("LOAD_DIRECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLOAD_DIRECT)
Me.columnSQL_QUICK_VIEW = New Global.System.Data.DataColumn("SQL_QUICK_VIEW", GetType(String), Nothing, Global.System.Data.MappingType.Element)
@@ -15094,8 +14968,8 @@ Partial Public Class DD_DMSDataSet
Me.columnFORM_ID.AllowDBNull = false
Me.columnPARENT_ID.AllowDBNull = false
Me.columnPARENT_ID.DefaultValue = CType(0,Integer)
- Me.columnLEVEL1_SELECT.AllowDBNull = false
Me.columnSEQUENCE.AllowDBNull = false
+ Me.columnSQL_SELECT_EBENE1.AllowDBNull = false
Me.columnSQL_SELECT_EBENE1.MaxLength = 4000
Me.columnSQL_SELECT_EBENE2.AllowDBNull = false
Me.columnSQL_SELECT_EBENE2.MaxLength = 4000
@@ -15105,12 +14979,6 @@ Partial Public Class DD_DMSDataSet
Me.columnCOLUMN_NAME1.MaxLength = 100
Me.columnCOLUMN_NAME2.AllowDBNull = false
Me.columnCOLUMN_NAME2.MaxLength = 100
- Me.columnWINDREAM_SEARCH.MaxLength = 300
- Me.columnSEARCH_PATTERN1.MaxLength = 50
- Me.columnSEARCH_PATTERN2.MaxLength = 50
- Me.columnSEARCH_PATTERN3.MaxLength = 50
- Me.columnSEARCH_PATTERN4.MaxLength = 50
- Me.columnSEARCH_PATTERN5.MaxLength = 50
Me.columnLOAD_DIRECT.AllowDBNull = false
Me.columnSQL_QUICK_VIEW.AllowDBNull = false
Me.columnSQL_QUICK_VIEW.MaxLength = 2147483647
@@ -28182,11 +28050,7 @@ Partial Public Class DD_DMSDataSet
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property ADDED_WHO() As String
Get
- Try
- Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e)
- End Try
+ Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn),String)
End Get
Set
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value
@@ -28287,18 +28151,6 @@ Partial Public Class DD_DMSDataSet
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull
End Sub
- _
- Public Function IsADDED_WHONull() As Boolean
- Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn)
- End Function
-
- _
- Public Sub SetADDED_WHONull()
- Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = Global.System.Convert.DBNull
- End Sub
-
_
Public Function IsCHANGED_WHONull() As Boolean
@@ -28395,17 +28247,6 @@ Partial Public Class DD_DMSDataSet
End Set
End Property
- _
- Public Property IDXNAME_ENTITYID() As String
- Get
- Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_ENTITYIDColumn),String)
- End Get
- Set
- Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_ENTITYIDColumn) = value
- End Set
- End Property
-
_
Public Property ADDED_WHO() As String
@@ -28462,32 +28303,6 @@ Partial Public Class DD_DMSDataSet
End Set
End Property
- _
- Public Property IDXNAME_PARENTID() As String
- Get
- Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_PARENTIDColumn),String)
- End Get
- Set
- Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_PARENTIDColumn) = value
- End Set
- End Property
-
- _
- Public Property IDXNAME_RECORDID() As String
- Get
- Try
- Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RECORDIDColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IDXNAME_RECORDID in Tabelle TBPMO_WD_OBJECTTYPE ist DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RECORDIDColumn) = value
- End Set
- End Property
-
_
Public Property IDXNAME_DOCTYPE() As String
@@ -28507,11 +28322,7 @@ Partial Public Class DD_DMSDataSet
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property IDXNAME_RELATION() As String
Get
- Try
- Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RELATIONColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IDXNAME_RELATION in Tabelle TBPMO_WD_OBJECTTYPE ist DBNull.", e)
- End Try
+ Return CType(Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RELATIONColumn),String)
End Get
Set
Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RELATIONColumn) = value
@@ -28554,18 +28365,6 @@ Partial Public Class DD_DMSDataSet
Me(Me.tableTBPMO_WD_OBJECTTYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
- _
- Public Function IsIDXNAME_RECORDIDNull() As Boolean
- Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RECORDIDColumn)
- End Function
-
- _
- Public Sub SetIDXNAME_RECORDIDNull()
- Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RECORDIDColumn) = Global.System.Convert.DBNull
- End Sub
-
_
Public Function IsIDXNAME_DOCTYPENull() As Boolean
@@ -28577,18 +28376,6 @@ Partial Public Class DD_DMSDataSet
Public Sub SetIDXNAME_DOCTYPENull()
Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_DOCTYPEColumn) = Global.System.Convert.DBNull
End Sub
-
- _
- Public Function IsIDXNAME_RELATIONNull() As Boolean
- Return Me.IsNull(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RELATIONColumn)
- End Function
-
- _
- Public Sub SetIDXNAME_RELATIONNull()
- Me(Me.tableTBPMO_WD_OBJECTTYPE.IDXNAME_RELATIONColumn) = Global.System.Convert.DBNull
- End Sub
End Class
'''
@@ -30100,7 +29887,12 @@ Partial Public Class DD_DMSDataSet
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property LEVEL1_SELECT() As Boolean
Get
- Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn),Boolean)
+ Try
+ Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn),Boolean)
+ Catch e As Global.System.InvalidCastException
+ Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LEVEL1_SELECT in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DB"& _
+ "Null.", e)
+ End Try
End Get
Set
Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) = value
@@ -30122,12 +29914,7 @@ Partial Public Class DD_DMSDataSet
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property SQL_SELECT_EBENE1() As String
Get
- Try
- Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_SELECT_EBENE1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL is"& _
- "t DBNull.", e)
- End Try
+ Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column),String)
End Get
Set
Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = value
@@ -30231,102 +30018,6 @@ Partial Public Class DD_DMSDataSet
End Set
End Property
- _
- Public Property WINDREAM_SEARCH() As String
- Get
- Try
- Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WINDREAM_SEARCH in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _
- "DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = value
- End Set
- End Property
-
- _
- Public Property SEARCH_PATTERN1() As String
- Get
- Try
- Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _
- "DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = value
- End Set
- End Property
-
- _
- Public Property SEARCH_PATTERN2() As String
- Get
- Try
- Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN2 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _
- "DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = value
- End Set
- End Property
-
- _
- Public Property SEARCH_PATTERN3() As String
- Get
- Try
- Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN3 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _
- "DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = value
- End Set
- End Property
-
- _
- Public Property SEARCH_PATTERN4() As String
- Get
- Try
- Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN4 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _
- "DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = value
- End Set
- End Property
-
- _
- Public Property SEARCH_PATTERN5() As String
- Get
- Try
- Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column),String)
- Catch e As Global.System.InvalidCastException
- Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN5 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _
- "DBNull.", e)
- End Try
- End Get
- Set
- Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = value
- End Set
- End Property
-
_
Public Property LOAD_DIRECT() As Boolean
@@ -30384,14 +30075,14 @@ Partial Public Class DD_DMSDataSet
_
- Public Function IsSQL_SELECT_EBENE1Null() As Boolean
- Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column)
+ Public Function IsLEVEL1_SELECTNull() As Boolean
+ Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn)
End Function
_
- Public Sub SetSQL_SELECT_EBENE1Null()
- Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = Global.System.Convert.DBNull
+ Public Sub SetLEVEL1_SELECTNull()
+ Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) = Global.System.Convert.DBNull
End Sub
_
- Public Function IsWINDREAM_SEARCHNull() As Boolean
- Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn)
- End Function
-
- _
- Public Sub SetWINDREAM_SEARCHNull()
- Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = Global.System.Convert.DBNull
- End Sub
-
- _
- Public Function IsSEARCH_PATTERN1Null() As Boolean
- Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column)
- End Function
-
- _
- Public Sub SetSEARCH_PATTERN1Null()
- Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = Global.System.Convert.DBNull
- End Sub
-
- _
- Public Function IsSEARCH_PATTERN2Null() As Boolean
- Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column)
- End Function
-
- _
- Public Sub SetSEARCH_PATTERN2Null()
- Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = Global.System.Convert.DBNull
- End Sub
-
- _
- Public Function IsSEARCH_PATTERN3Null() As Boolean
- Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column)
- End Function
-
- _
- Public Sub SetSEARCH_PATTERN3Null()
- Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = Global.System.Convert.DBNull
- End Sub
-
- _
- Public Function IsSEARCH_PATTERN4Null() As Boolean
- Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column)
- End Function
-
- _
- Public Sub SetSEARCH_PATTERN4Null()
- Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = Global.System.Convert.DBNull
- End Sub
-
- _
- Public Function IsSEARCH_PATTERN5Null() As Boolean
- Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column)
- End Function
-
- _
- Public Sub SetSEARCH_PATTERN5Null()
- Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = Global.System.Convert.DBNull
- End Sub
End Class
'''
@@ -44428,24 +44047,17 @@ Namespace DD_DMSDataSetTableAdapters
Me._commandCollection(0).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'CONSTR_MENUE' + CONVER"& _
"T(VARCHAR(5), GUID), @SCREEN_ID) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_"& _
"WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, MENU_IMG, SHORT_TITL"& _
- "E, LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
- " (SELECT DISTINCT CONSTRUCT_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
- " FROM TBPMO_CLIENT_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
- "WHERE (CLIENT_ID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
- " (SELECT CLIENT_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
- " FROM TBDD_CLIENT_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
- " WHERE (USER_ID = @USER_ID)))))"
+ "E, LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub
_
- Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer, ByVal USER_ID As Integer) As Integer
+ Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (LANGUAGE Is Nothing) Then
Throw New Global.System.ArgumentNullException("LANGUAGE")
@@ -44453,7 +44065,6 @@ Namespace DD_DMSDataSetTableAdapters
Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String)
End If
Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID,Integer)
- Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID,Integer)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
@@ -44465,7 +44076,7 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
- Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer, ByVal USER_ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable
+ Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (LANGUAGE Is Nothing) Then
Throw New Global.System.ArgumentNullException("LANGUAGE")
@@ -44473,7 +44084,6 @@ Namespace DD_DMSDataSetTableAdapters
Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String)
End If
Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID,Integer)
- Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID,Integer)
Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
@@ -44747,13 +44357,10 @@ Namespace DD_DMSDataSetTableAdapters
tableMapping.DataSetTable = "TBPMO_WD_OBJECTTYPE"
tableMapping.ColumnMappings.Add("GUID", "GUID")
tableMapping.ColumnMappings.Add("OBJECT_TYPE", "OBJECT_TYPE")
- tableMapping.ColumnMappings.Add("IDXNAME_ENTITYID", "IDXNAME_ENTITYID")
tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO")
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
- tableMapping.ColumnMappings.Add("IDXNAME_PARENTID", "IDXNAME_PARENTID")
- tableMapping.ColumnMappings.Add("IDXNAME_RECORDID", "IDXNAME_RECORDID")
tableMapping.ColumnMappings.Add("IDXNAME_DOCTYPE", "IDXNAME_DOCTYPE")
tableMapping.ColumnMappings.Add("IDXNAME_RELATION", "IDXNAME_RELATION")
Me._adapter.TableMappings.Add(tableMapping)
@@ -44764,35 +44371,26 @@ Namespace DD_DMSDataSetTableAdapters
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection
- Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECT_TYPE, IDXNAME_E"& _
- "NTITYID, IDXNAME_PARENTID, ADDED_WHO, IDXNAME_DOCTYPE, IDXNAME_RECORDID, IDXNAME"& _
- "_RELATION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@OBJECT_TYPE,@IDXNAME_ENTITYID,@IDXNAME_PARENTID,@ADD"& _
- "ED_WHO,@IDXNAME_DOCTYPE,@IDXNAME_RECORDID,@IDXNAME_RELATION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, O"& _
- "BJECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_W"& _
- "HO, CHANGED_WHEN FROM TBPMO_WD_OBJECTTYPE WHERE (GUID = SCOPE_IDENTITY())"
+ Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECT_TYPE, ADDED_WHO"& _
+ ", IDXNAME_DOCTYPE, IDXNAME_RELATION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@OBJECT_TYPE,@ADDED_WHO,@ID"& _
+ "XNAME_DOCTYPE,@IDXNAME_RELATION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECT_TYPE, IDXNAME_ENTITYI"& _
+ "D, IDXNAME_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO"& _
+ "_WD_OBJECTTYPE WHERE (GUID = SCOPE_IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_ENTITYID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_ENTITYID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_PARENTID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_PARENTID", 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("@IDXNAME_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_RECORDID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_RECORDID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_RELATION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_RELATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET OBJECT_TYPE = @OBJECT_TYPE, "& _
- "IDXNAME_ENTITYID = @IDXNAME_ENTITYID, IDXNAME_PARENTID = @IDXNAME_PARENTID, CHAN"& _
- "GED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDXNAME_RECORDID = @IDXNAME_R"& _
- "ECORDID, IDXNAME_DOCTYPE = @IDXNAME_DOCTYPE, IDXNAME_RELATION = @IDXNAME_RELATIO"& _
- "N"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECT_TYPE, IDXNAME_E"& _
- "NTITYID, IDXNAME_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM"& _
- " TBPMO_WD_OBJECTTYPE WHERE (GUID = @GUID)"
+ "CHANGED_WHO = @CHANGED_WHO, IDXNAME_DOCTYPE = @IDXNAME_DOCTYPE, IDXNAME_RELATION"& _
+ " = @IDXNAME_RELATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OB"& _
+ "JECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_WH"& _
+ "O, CHANGED_WHEN FROM TBPMO_WD_OBJECTTYPE WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_ENTITYID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_ENTITYID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_PARENTID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_PARENTID", 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("@IDXNAME_RECORDID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_RECORDID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_RELATION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_RELATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
@@ -44812,9 +44410,8 @@ Namespace DD_DMSDataSetTableAdapters
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
- Me._commandCollection(0).CommandText = "SELECT GUID, OBJECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, A"& _
- "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDXNAME_RECORDID, IDXNAME_DOCTYPE, IDXNAME"& _
- "_RELATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_OBJECTTYPE"
+ Me._commandCollection(0).CommandText = "SELECT GUID, OBJECT_TYPE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _
+ ", IDXNAME_RELATION, IDXNAME_DOCTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_OBJECTTYPE"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
@@ -44895,41 +44492,26 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
- Public Overloads Overridable Function Insert(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal IDXNAME_PARENTID As String, ByVal ADDED_WHO As String, ByVal IDXNAME_DOCTYPE As String, ByVal IDXNAME_RECORDID As String, ByVal IDXNAME_RELATION As String) As Integer
+ Public Overloads Overridable Function Insert(ByVal OBJECT_TYPE As String, ByVal ADDED_WHO As String, ByVal IDXNAME_DOCTYPE As String, ByVal IDXNAME_RELATION As String) As Integer
If (OBJECT_TYPE Is Nothing) Then
Throw New Global.System.ArgumentNullException("OBJECT_TYPE")
Else
Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECT_TYPE,String)
End If
- If (IDXNAME_ENTITYID Is Nothing) Then
- Throw New Global.System.ArgumentNullException("IDXNAME_ENTITYID")
- Else
- Me.Adapter.InsertCommand.Parameters(1).Value = CType(IDXNAME_ENTITYID,String)
- End If
- If (IDXNAME_PARENTID Is Nothing) Then
- Throw New Global.System.ArgumentNullException("IDXNAME_PARENTID")
- Else
- Me.Adapter.InsertCommand.Parameters(2).Value = CType(IDXNAME_PARENTID,String)
- End If
If (ADDED_WHO Is Nothing) Then
Throw New Global.System.ArgumentNullException("ADDED_WHO")
Else
- Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String)
+ Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String)
End If
If (IDXNAME_DOCTYPE Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
+ Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
Else
- Me.Adapter.InsertCommand.Parameters(4).Value = CType(IDXNAME_DOCTYPE,String)
- End If
- If (IDXNAME_RECORDID Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(5).Value = CType(IDXNAME_RECORDID,String)
+ Me.Adapter.InsertCommand.Parameters(2).Value = CType(IDXNAME_DOCTYPE,String)
End If
If (IDXNAME_RELATION Is Nothing) Then
Throw New Global.System.ArgumentNullException("IDXNAME_RELATION")
Else
- Me.Adapter.InsertCommand.Parameters(6).Value = CType(IDXNAME_RELATION,String)
+ Me.Adapter.InsertCommand.Parameters(3).Value = CType(IDXNAME_RELATION,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) _
@@ -44950,44 +44532,29 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
- Public Overloads Overridable Function Update(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal IDXNAME_PARENTID As String, ByVal CHANGED_WHO As String, ByVal IDXNAME_RECORDID As String, ByVal IDXNAME_DOCTYPE As String, ByVal IDXNAME_RELATION As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
+ Public Overloads Overridable Function Update(ByVal OBJECT_TYPE As String, ByVal CHANGED_WHO As String, ByVal IDXNAME_DOCTYPE As String, ByVal IDXNAME_RELATION As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
If (OBJECT_TYPE Is Nothing) Then
Throw New Global.System.ArgumentNullException("OBJECT_TYPE")
Else
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECT_TYPE,String)
End If
- If (IDXNAME_ENTITYID Is Nothing) Then
- Throw New Global.System.ArgumentNullException("IDXNAME_ENTITYID")
- Else
- Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDXNAME_ENTITYID,String)
- End If
- If (IDXNAME_PARENTID Is Nothing) Then
- Throw New Global.System.ArgumentNullException("IDXNAME_PARENTID")
- Else
- Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDXNAME_PARENTID,String)
- End If
If (CHANGED_WHO Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
+ Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
Else
- Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String)
- End If
- If (IDXNAME_RECORDID Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IDXNAME_RECORDID,String)
+ Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String)
End If
If (IDXNAME_DOCTYPE Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
+ Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
Else
- Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IDXNAME_DOCTYPE,String)
+ Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDXNAME_DOCTYPE,String)
End If
If (IDXNAME_RELATION Is Nothing) Then
Throw New Global.System.ArgumentNullException("IDXNAME_RELATION")
Else
- Me.Adapter.UpdateCommand.Parameters(6).Value = CType(IDXNAME_RELATION,String)
+ Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IDXNAME_RELATION,String)
End If
- Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer)
- Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer)
+ Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer)
+ Me.Adapter.UpdateCommand.Parameters(5).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
@@ -47664,12 +47231,6 @@ Namespace DD_DMSDataSetTableAdapters
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
tableMapping.ColumnMappings.Add("COLUMN_NAME1", "COLUMN_NAME1")
tableMapping.ColumnMappings.Add("COLUMN_NAME2", "COLUMN_NAME2")
- tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH")
- tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1")
- tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2")
- tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3")
- tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4")
- tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5")
tableMapping.ColumnMappings.Add("LOAD_DIRECT", "LOAD_DIRECT")
tableMapping.ColumnMappings.Add("SQL_QUICK_VIEW", "SQL_QUICK_VIEW")
tableMapping.ColumnMappings.Add("CONTROL_DOCTYPE_MATCH", "CONTROL_DOCTYPE_MATCH")
@@ -47683,17 +47244,14 @@ Namespace DD_DMSDataSetTableAdapters
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONSTRUCT_ID"& _
", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE"& _
- "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
- " SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEAR"& _
- "CH_PATTERN5, CONTROL_DOCTYPE_MATCH)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONSTRUCT_ID,@FORM_ID,@PARE"& _
- "NT_ID,@LEVEL1_SELECT,@SEQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,"& _
- "@COLUMN_NAME1,@COLUMN_NAME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@"& _
- "SEARCH_PATTERN3,@SEARCH_PATTERN4,@SEARCH_PATTERN5,@CONTROL_DOCTYPE_MATCH); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _
- "LECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT"& _
- "_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, CO"& _
- "LUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEA"& _
- "RCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAI"& _
- "L WHERE (GUID = SCOPE_IDENTITY())"
+ "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, CONTROL_DOCTYPE_MATCH)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _
+ " (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQUENCE,@SQL_SELECT_EBENE1"& _
+ ",@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAME2,@CONTROL_DOCTYPE_MATC"& _
+ "H); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE,"& _
+ " SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG"& _
+ "ED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PA"& _
+ "TTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTR"& _
+ "UCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -47705,30 +47263,21 @@ Namespace DD_DMSDataSetTableAdapters
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONSTRUCT_ID = @CO"& _
"NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_"& _
- "SELECT, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_SELECT_EBENE1 = @SQ"& _
- "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_"& _
- "WHO, COLUMN_NAME1 = @COLUMN_NAME1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME2 = @CO"& _
- "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER"& _
- "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTER"& _
- "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE"& _
- "ARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_QUICK_"& _
- "VIEW = @SQL_QUICK_VIEW, CONTROL_DOCTYPE_MATCH = @CONTROL_DOCTYPE_MATCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
- " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID,"& _
- " LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED"& _
- "_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, S"& _
- "EARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTER"& _
- "N5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID)"
+ "SELECT, SEQUENCE = @SEQUENCE, SQL_SELECT_EBENE1 = @SQL_SELECT_EBENE1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
+ " SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_"& _
+ "WHO, COLUMN_NAME1 = @COLUMN_NAME1, COLUMN_NAME2 = @COLUMN_NAME2, LOAD_DIRECT = @"& _
+ "LOAD_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_QUICK_VIEW = @SQL_QUICK_VIEW, CONTRO"& _
+ "L_DOCTYPE_MATCH = @CONTROL_DOCTYPE_MATCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "& _
+ " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL"& _
+ "_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_W"& _
+ "HEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTER"& _
+ "N2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTO"& _
+ "R_DETAIL WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -47740,14 +47289,8 @@ Namespace DD_DMSDataSetTableAdapters
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
- Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_QUICK_VIEW", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_QUICK_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+ Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_QUICK_VIEW", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_QUICK_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
@@ -47768,20 +47311,18 @@ Namespace DD_DMSDataSetTableAdapters
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQ"& _
"L_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_"& _
- "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SE"& _
- "ARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN"& _
- "5, LOAD_DIRECT, SQL_QUICK_VIEW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONTROL_DOCTYPE_MATCH"& _
- ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)"
+ "WHEN, COLUMN_NAME1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME2, LOAD_DIRECT, SQL_QU"& _
+ "ICK_VIEW, CONTROL_DOCTYPE_MATCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
+ "WHERE (GUID = @ID)"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(1).Connection = Me.Connection
Me._commandCollection(1).CommandText = "SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, COLUMN_NAME1, COL"& _
- "UMN_NAME2, CONSTRUCT_ID, FORM_ID, GUID, LEVEL1_SELECT, PARENT_ID, SEARCH_PATTERN"& _
- "1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4,"& _
- " SEARCH_PATTERN5, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, WINDREAM_SEARC"& _
- "H, LOAD_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_QUICK_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO"& _
- "_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)"
+ "UMN_NAME2, CONSTRUCT_ID, FORM_ID, GUID, LEVEL1_SELECT, PARENT_ID, SEQUENCE, SQL_"& _
+ "SELECT_EBENE1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_SELECT_EBENE2, LOAD_DIRECT, SQL_QU"& _
+ "ICK_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @I"& _
+ "D)"
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub
@@ -47891,31 +47432,18 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
- Public Overloads Overridable Function Insert( _
- ByVal CONSTRUCT_ID As Integer, _
- ByVal FORM_ID As Integer, _
- ByVal PARENT_ID As Integer, _
- ByVal LEVEL1_SELECT As Boolean, _
- ByVal SEQUENCE As Integer, _
- ByVal SQL_SELECT_EBENE1 As String, _
- ByVal SQL_SELECT_EBENE2 As String, _
- ByVal ADDED_WHO As String, _
- ByVal COLUMN_NAME1 As String, _
- ByVal COLUMN_NAME2 As String, _
- ByVal WINDREAM_SEARCH As String, _
- ByVal SEARCH_PATTERN1 As String, _
- ByVal SEARCH_PATTERN2 As String, _
- ByVal SEARCH_PATTERN3 As String, _
- ByVal SEARCH_PATTERN4 As String, _
- ByVal SEARCH_PATTERN5 As String, _
- ByVal CONTROL_DOCTYPE_MATCH As Integer) As Integer
+ Public Overloads Overridable Function Insert(ByVal CONSTRUCT_ID As Integer, ByVal FORM_ID As Integer, ByVal PARENT_ID As Integer, ByVal LEVEL1_SELECT As Global.System.Nullable(Of Boolean), ByVal SEQUENCE As Integer, ByVal SQL_SELECT_EBENE1 As String, ByVal SQL_SELECT_EBENE2 As String, ByVal ADDED_WHO As String, ByVal COLUMN_NAME1 As String, ByVal COLUMN_NAME2 As String, ByVal CONTROL_DOCTYPE_MATCH As Integer) As Integer
Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer)
Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer)
Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID,Integer)
- Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean)
+ If (LEVEL1_SELECT.HasValue = true) Then
+ Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT.Value,Boolean)
+ Else
+ Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
+ End If
Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE,Integer)
If (SQL_SELECT_EBENE1 Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
+ Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE1")
Else
Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String)
End If
@@ -47939,37 +47467,7 @@ Namespace DD_DMSDataSetTableAdapters
Else
Me.Adapter.InsertCommand.Parameters(9).Value = CType(COLUMN_NAME2,String)
End If
- If (WINDREAM_SEARCH Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(10).Value = CType(WINDREAM_SEARCH,String)
- End If
- If (SEARCH_PATTERN1 Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEARCH_PATTERN1,String)
- End If
- If (SEARCH_PATTERN2 Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEARCH_PATTERN2,String)
- End If
- If (SEARCH_PATTERN3 Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(13).Value = CType(SEARCH_PATTERN3,String)
- End If
- If (SEARCH_PATTERN4 Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN4,String)
- End If
- If (SEARCH_PATTERN5 Is Nothing) Then
- Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String)
- End If
- Me.Adapter.InsertCommand.Parameters(16).Value = CType(CONTROL_DOCTYPE_MATCH,Integer)
+ Me.Adapter.InsertCommand.Parameters(10).Value = CType(CONTROL_DOCTYPE_MATCH,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
@@ -47989,35 +47487,18 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
- Public Overloads Overridable Function Update( _
- ByVal CONSTRUCT_ID As Integer, _
- ByVal FORM_ID As Integer, _
- ByVal PARENT_ID As Integer, _
- ByVal LEVEL1_SELECT As Boolean, _
- ByVal SEQUENCE As Integer, _
- ByVal SQL_SELECT_EBENE1 As String, _
- ByVal SQL_SELECT_EBENE2 As String, _
- ByVal CHANGED_WHO As String, _
- ByVal COLUMN_NAME1 As String, _
- ByVal COLUMN_NAME2 As String, _
- ByVal WINDREAM_SEARCH As String, _
- ByVal SEARCH_PATTERN1 As String, _
- ByVal SEARCH_PATTERN2 As String, _
- ByVal SEARCH_PATTERN3 As String, _
- ByVal SEARCH_PATTERN4 As String, _
- ByVal SEARCH_PATTERN5 As String, _
- ByVal LOAD_DIRECT As Boolean, _
- ByVal SQL_QUICK_VIEW As String, _
- ByVal CONTROL_DOCTYPE_MATCH As Integer, _
- ByVal Original_GUID As Integer, _
- ByVal GUID As Integer) As Integer
+ Public Overloads Overridable Function Update(ByVal CONSTRUCT_ID As Integer, ByVal FORM_ID As Integer, ByVal PARENT_ID As Integer, ByVal LEVEL1_SELECT As Global.System.Nullable(Of Boolean), ByVal SEQUENCE As Integer, ByVal SQL_SELECT_EBENE1 As String, ByVal SQL_SELECT_EBENE2 As String, ByVal CHANGED_WHO As String, ByVal COLUMN_NAME1 As String, ByVal COLUMN_NAME2 As String, ByVal LOAD_DIRECT As Boolean, ByVal SQL_QUICK_VIEW As String, ByVal CONTROL_DOCTYPE_MATCH As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer)
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer)
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID,Integer)
- Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean)
+ If (LEVEL1_SELECT.HasValue = true) Then
+ Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT.Value,Boolean)
+ Else
+ Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
+ End If
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE,Integer)
If (SQL_SELECT_EBENE1 Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
+ Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE1")
Else
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String)
End If
@@ -48041,45 +47522,15 @@ Namespace DD_DMSDataSetTableAdapters
Else
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(COLUMN_NAME2,String)
End If
- If (WINDREAM_SEARCH Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(10).Value = CType(WINDREAM_SEARCH,String)
- End If
- If (SEARCH_PATTERN1 Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEARCH_PATTERN1,String)
- End If
- If (SEARCH_PATTERN2 Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEARCH_PATTERN2,String)
- End If
- If (SEARCH_PATTERN3 Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SEARCH_PATTERN3,String)
- End If
- If (SEARCH_PATTERN4 Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN4,String)
- End If
- If (SEARCH_PATTERN5 Is Nothing) Then
- Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
- Else
- Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String)
- End If
- Me.Adapter.UpdateCommand.Parameters(16).Value = CType(LOAD_DIRECT,Boolean)
+ Me.Adapter.UpdateCommand.Parameters(10).Value = CType(LOAD_DIRECT,Boolean)
If (SQL_QUICK_VIEW Is Nothing) Then
Throw New Global.System.ArgumentNullException("SQL_QUICK_VIEW")
Else
- Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SQL_QUICK_VIEW,String)
+ Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SQL_QUICK_VIEW,String)
End If
- Me.Adapter.UpdateCommand.Parameters(18).Value = CType(CONTROL_DOCTYPE_MATCH,Integer)
- Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_GUID,Integer)
- Me.Adapter.UpdateCommand.Parameters(20).Value = CType(GUID,Integer)
+ Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CONTROL_DOCTYPE_MATCH,Integer)
+ Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer)
+ Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
diff --git a/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vbold b/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vbold
new file mode 100644
index 0000000..3682ff7
--- /dev/null
+++ b/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vbold
@@ -0,0 +1,57493 @@
+'------------------------------------------------------------------------------
+'
+' Dieser Code wurde von einem Tool generiert.
+' Laufzeitversion:4.0.30319.36366
+'
+' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+' der Code erneut generiert wird.
+'
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+
+
+'''
+'''Represents a strongly typed in-memory cache of data.
+'''
+ _
+Partial Public Class DD_DMSDataSet
+ Inherits Global.System.Data.DataSet
+
+ Private tableTBPMO_FORM As TBPMO_FORMDataTable
+
+ Private tableVWPMO_CONTROL_SCREEN As VWPMO_CONTROL_SCREENDataTable
+
+ Private tableTBPMO_FORM_VIEW As TBPMO_FORM_VIEWDataTable
+
+ Private tableTBPMO_RECORD As TBPMO_RECORDDataTable
+
+ Private tableVWPMO_DOKUMENTTYPES As VWPMO_DOKUMENTTYPESDataTable
+
+ Private tableTBPMO_WD_FVIEW_DT_INDEX As TBPMO_WD_FVIEW_DT_INDEXDataTable
+
+ Private tableTBPMO_WORKFLOW_TASK As TBPMO_WORKFLOW_TASKDataTable
+
+ Private tableTBPMO_WORKFLOW_TASK_STATE As TBPMO_WORKFLOW_TASK_STATEDataTable
+
+ Private tableVWPMO_GUI_ENTITY As VWPMO_GUI_ENTITYDataTable
+
+ Private tableTBPMO_WORKFLOW As TBPMO_WORKFLOWDataTable
+
+ Private tableVWPMO_WF_OVERVIEW_AUTHORITY As VWPMO_WF_OVERVIEW_AUTHORITYDataTable
+
+ Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable
+
+ Private tableTBDD_EINGANGSARTEN As TBDD_EINGANGSARTENDataTable
+
+ Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable
+
+ Private tableTBPMO_WD_FORMVIEW_DOKTYPES As TBPMO_WD_FORMVIEW_DOKTYPESDataTable
+
+ Private tableTBPMO_KONFIGURATION As TBPMO_KONFIGURATIONDataTable
+
+ Private tableTBDD_USER As TBDD_USERDataTable
+
+ Private tableTBPMO_FORM_TYPE As TBPMO_FORM_TYPEDataTable
+
+ Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable
+
+ Private tableVWPMO_USERS_GROUPS As VWPMO_USERS_GROUPSDataTable
+
+ Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable
+
+ Private tableTBWH_DOKART_MODULE As TBWH_DOKART_MODULEDataTable
+
+ Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable
+
+ Private tableTBPMO_WD_OBJECTTYPE As TBPMO_WD_OBJECTTYPEDataTable
+
+ Private tableTBPMO_FOLLOW_UP_EMAIL As TBPMO_FOLLOW_UP_EMAILDataTable
+
+ Private tableTBPMO_FOLLUPEMAIL_USER As TBPMO_FOLLUPEMAIL_USERDataTable
+
+ Private tableTBPMO_RECORD_LOG_CONFIG As TBPMO_RECORD_LOG_CONFIGDataTable
+
+ Private tableVWPMO_RECORD_CHANGES As VWPMO_RECORD_CHANGESDataTable
+
+ Private tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable
+
+ Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable
+
+ Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable
+
+ Private tableVWDDINDEX_AUTOM As VWDDINDEX_AUTOMDataTable
+
+ Private tableTBPMO_TEMPLATE As TBPMO_TEMPLATEDataTable
+
+ Private tableTBPMO_TEMPLATE_ENTITY As TBPMO_TEMPLATE_ENTITYDataTable
+
+ Private tableTBPMO_TEMPLATE_PATTERN As TBPMO_TEMPLATE_PATTERNDataTable
+
+ Private tableTBTEMP_QUICKDISPLAY As TBTEMP_QUICKDISPLAYDataTable
+
+ Private tableTBPMO_LANGUAGE_OBJECT As TBPMO_LANGUAGE_OBJECTDataTable
+
+ Private tableTBDD_CLIENT As TBDD_CLIENTDataTable
+
+ Private tableTBPMO_CONSTRUCTOR_USER_SQL As TBPMO_CONSTRUCTOR_USER_SQLDataTable
+
+ Private tableTBPMO_WD_IMPORT_PROFILE As TBPMO_WD_IMPORT_PROFILEDataTable
+
+ Private tableTBPMO_WD_IMPORT_PROFILE_IDX As TBPMO_WD_IMPORT_PROFILE_IDXDataTable
+
+ Private tableVWPMO_WF_ACTIVE As VWPMO_WF_ACTIVEDataTable
+
+ Private tableTBPMO_RIGHT_GROUP As TBPMO_RIGHT_GROUPDataTable
+
+ Private tableTBPMO_WD_NAMECONVENTION_FORMAT As TBPMO_WD_NAMECONVENTION_FORMATDataTable
+
+ Private tableTBPMO_STRUCTURE_NODES_CONFIGURATION As TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable
+
+ Private tableTBWH_ENTITY As TBWH_ENTITYDataTable
+
+ Private tableTBPMO_WORKFLOW_TASK_HISTORY As TBPMO_WORKFLOW_TASK_HISTORYDataTable
+
+ Private tableVWPMO_RIGHTS_2B_WORKED As VWPMO_RIGHTS_2B_WORKEDDataTable
+
+ Private tableTBPMO_RIGHT_USER As TBPMO_RIGHT_USERDataTable
+
+ Private tableTBPMO_RECORD_VARIANT As TBPMO_RECORD_VARIANTDataTable
+
+ Private tableTBPMO_APPOINTMENTS As TBPMO_APPOINTMENTSDataTable
+
+ Private relationFK_TBPMO_FORM_VIEW_FORM_ID As Global.System.Data.DataRelation
+
+ Private relationFK_TBDD_DOKUMENTART_EINGID As Global.System.Data.DataRelation
+
+ Private relationFK_TBDD_INDEX_AUTOM_DOCID As Global.System.Data.DataRelation
+
+ Private relationFK_TBDD_INDEX_AUTOM_DOCID1 As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_FORM_FORM_TYPE_ID As Global.System.Data.DataRelation
+
+ Private relationFK_TBDD_GROUPS_USER_GROUP_ID As Global.System.Data.DataRelation
+
+ Private relationFK_TBDD_GROUPS_USER_USER_ID As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_WD_IMPORT_PROFILE_IDX_1 As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_RIGHT_GROUP_ENTITY_ID As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_RIGHT_GROUP_GROUP_ID As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_FORM_VIEW_FORM_ID1 As Global.System.Data.DataRelation
+
+ Private relationFK_TBPMO_RECORD_VARIANT_RECORD_ID As Global.System.Data.DataRelation
+
+ Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
+
+ _
+ Public Sub New()
+ MyBase.New
+ Me.BeginInit
+ Me.InitClass
+ Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
+ AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
+ AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
+ Me.EndInit
+ End Sub
+
+ _
+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+ MyBase.New(info, context, false)
+ If (Me.IsBinarySerialized(info, context) = true) Then
+ Me.InitVars(false)
+ Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
+ AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
+ AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
+ Return
+ End If
+ Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
+ If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
+ Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
+ ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
+ If (Not (ds.Tables("TBPMO_FORM")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_FORMDataTable(ds.Tables("TBPMO_FORM")))
+ End If
+ If (Not (ds.Tables("VWPMO_CONTROL_SCREEN")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_CONTROL_SCREENDataTable(ds.Tables("VWPMO_CONTROL_SCREEN")))
+ End If
+ If (Not (ds.Tables("TBPMO_FORM_VIEW")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_FORM_VIEWDataTable(ds.Tables("TBPMO_FORM_VIEW")))
+ End If
+ If (Not (ds.Tables("TBPMO_RECORD")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_RECORDDataTable(ds.Tables("TBPMO_RECORD")))
+ End If
+ If (Not (ds.Tables("VWPMO_DOKUMENTTYPES")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_DOKUMENTTYPESDataTable(ds.Tables("VWPMO_DOKUMENTTYPES")))
+ End If
+ If (Not (ds.Tables("TBPMO_WD_FVIEW_DT_INDEX")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WD_FVIEW_DT_INDEXDataTable(ds.Tables("TBPMO_WD_FVIEW_DT_INDEX")))
+ End If
+ If (Not (ds.Tables("TBPMO_WORKFLOW_TASK")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WORKFLOW_TASKDataTable(ds.Tables("TBPMO_WORKFLOW_TASK")))
+ End If
+ If (Not (ds.Tables("TBPMO_WORKFLOW_TASK_STATE")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WORKFLOW_TASK_STATEDataTable(ds.Tables("TBPMO_WORKFLOW_TASK_STATE")))
+ End If
+ If (Not (ds.Tables("VWPMO_GUI_ENTITY")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_GUI_ENTITYDataTable(ds.Tables("VWPMO_GUI_ENTITY")))
+ End If
+ If (Not (ds.Tables("TBPMO_WORKFLOW")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WORKFLOWDataTable(ds.Tables("TBPMO_WORKFLOW")))
+ End If
+ If (Not (ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_WF_OVERVIEW_AUTHORITYDataTable(ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY")))
+ End If
+ If (Not (ds.Tables("TBDD_DOKUMENTART")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART")))
+ End If
+ If (Not (ds.Tables("TBDD_EINGANGSARTEN")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_EINGANGSARTENDataTable(ds.Tables("TBDD_EINGANGSARTEN")))
+ End If
+ If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM")))
+ End If
+ If (Not (ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WD_FORMVIEW_DOKTYPESDataTable(ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES")))
+ End If
+ If (Not (ds.Tables("TBPMO_KONFIGURATION")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_KONFIGURATIONDataTable(ds.Tables("TBPMO_KONFIGURATION")))
+ End If
+ If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER")))
+ End If
+ If (Not (ds.Tables("TBPMO_FORM_TYPE")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_FORM_TYPEDataTable(ds.Tables("TBPMO_FORM_TYPE")))
+ End If
+ If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS")))
+ End If
+ If (Not (ds.Tables("VWPMO_USERS_GROUPS")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_USERS_GROUPSDataTable(ds.Tables("VWPMO_USERS_GROUPS")))
+ End If
+ If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER")))
+ End If
+ If (Not (ds.Tables("TBWH_DOKART_MODULE")) Is Nothing) Then
+ MyBase.Tables.Add(New TBWH_DOKART_MODULEDataTable(ds.Tables("TBWH_DOKART_MODULE")))
+ End If
+ If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR")))
+ End If
+ If (Not (ds.Tables("TBPMO_WD_OBJECTTYPE")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WD_OBJECTTYPEDataTable(ds.Tables("TBPMO_WD_OBJECTTYPE")))
+ End If
+ If (Not (ds.Tables("TBPMO_FOLLOW_UP_EMAIL")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_FOLLOW_UP_EMAILDataTable(ds.Tables("TBPMO_FOLLOW_UP_EMAIL")))
+ End If
+ If (Not (ds.Tables("TBPMO_FOLLUPEMAIL_USER")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_FOLLUPEMAIL_USERDataTable(ds.Tables("TBPMO_FOLLUPEMAIL_USER")))
+ End If
+ If (Not (ds.Tables("TBPMO_RECORD_LOG_CONFIG")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_RECORD_LOG_CONFIGDataTable(ds.Tables("TBPMO_RECORD_LOG_CONFIG")))
+ End If
+ If (Not (ds.Tables("VWPMO_RECORD_CHANGES")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_RECORD_CHANGESDataTable(ds.Tables("VWPMO_RECORD_CHANGES")))
+ End If
+ If (Not (ds.Tables("TBDD_EMAIL_ACCOUNT")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_EMAIL_ACCOUNTDataTable(ds.Tables("TBDD_EMAIL_ACCOUNT")))
+ End If
+ If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION")))
+ End If
+ If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")))
+ End If
+ If (Not (ds.Tables("VWDDINDEX_AUTOM")) Is Nothing) Then
+ MyBase.Tables.Add(New VWDDINDEX_AUTOMDataTable(ds.Tables("VWDDINDEX_AUTOM")))
+ End If
+ If (Not (ds.Tables("TBPMO_TEMPLATE")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_TEMPLATEDataTable(ds.Tables("TBPMO_TEMPLATE")))
+ End If
+ If (Not (ds.Tables("TBPMO_TEMPLATE_ENTITY")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_TEMPLATE_ENTITYDataTable(ds.Tables("TBPMO_TEMPLATE_ENTITY")))
+ End If
+ If (Not (ds.Tables("TBPMO_TEMPLATE_PATTERN")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_TEMPLATE_PATTERNDataTable(ds.Tables("TBPMO_TEMPLATE_PATTERN")))
+ End If
+ If (Not (ds.Tables("TBTEMP_QUICKDISPLAY")) Is Nothing) Then
+ MyBase.Tables.Add(New TBTEMP_QUICKDISPLAYDataTable(ds.Tables("TBTEMP_QUICKDISPLAY")))
+ End If
+ If (Not (ds.Tables("TBPMO_LANGUAGE_OBJECT")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_LANGUAGE_OBJECTDataTable(ds.Tables("TBPMO_LANGUAGE_OBJECT")))
+ End If
+ If (Not (ds.Tables("TBDD_CLIENT")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_CLIENTDataTable(ds.Tables("TBDD_CLIENT")))
+ End If
+ If (Not (ds.Tables("TBPMO_CONSTRUCTOR_USER_SQL")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_CONSTRUCTOR_USER_SQLDataTable(ds.Tables("TBPMO_CONSTRUCTOR_USER_SQL")))
+ End If
+ If (Not (ds.Tables("TBPMO_WD_IMPORT_PROFILE")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WD_IMPORT_PROFILEDataTable(ds.Tables("TBPMO_WD_IMPORT_PROFILE")))
+ End If
+ If (Not (ds.Tables("TBPMO_WD_IMPORT_PROFILE_IDX")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WD_IMPORT_PROFILE_IDXDataTable(ds.Tables("TBPMO_WD_IMPORT_PROFILE_IDX")))
+ End If
+ If (Not (ds.Tables("VWPMO_WF_ACTIVE")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_WF_ACTIVEDataTable(ds.Tables("VWPMO_WF_ACTIVE")))
+ End If
+ If (Not (ds.Tables("TBPMO_RIGHT_GROUP")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_RIGHT_GROUPDataTable(ds.Tables("TBPMO_RIGHT_GROUP")))
+ End If
+ If (Not (ds.Tables("TBPMO_WD_NAMECONVENTION_FORMAT")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WD_NAMECONVENTION_FORMATDataTable(ds.Tables("TBPMO_WD_NAMECONVENTION_FORMAT")))
+ End If
+ If (Not (ds.Tables("TBPMO_STRUCTURE_NODES_CONFIGURATION")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable(ds.Tables("TBPMO_STRUCTURE_NODES_CONFIGURATION")))
+ End If
+ If (Not (ds.Tables("TBWH_ENTITY")) Is Nothing) Then
+ MyBase.Tables.Add(New TBWH_ENTITYDataTable(ds.Tables("TBWH_ENTITY")))
+ End If
+ If (Not (ds.Tables("TBPMO_WORKFLOW_TASK_HISTORY")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WORKFLOW_TASK_HISTORYDataTable(ds.Tables("TBPMO_WORKFLOW_TASK_HISTORY")))
+ End If
+ If (Not (ds.Tables("VWPMO_RIGHTS_2B_WORKED")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_RIGHTS_2B_WORKEDDataTable(ds.Tables("VWPMO_RIGHTS_2B_WORKED")))
+ End If
+ If (Not (ds.Tables("TBPMO_RIGHT_USER")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_RIGHT_USERDataTable(ds.Tables("TBPMO_RIGHT_USER")))
+ End If
+ If (Not (ds.Tables("TBPMO_RECORD_VARIANT")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_RECORD_VARIANTDataTable(ds.Tables("TBPMO_RECORD_VARIANT")))
+ End If
+ If (Not (ds.Tables("TBPMO_APPOINTMENTS")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_APPOINTMENTSDataTable(ds.Tables("TBPMO_APPOINTMENTS")))
+ End If
+ Me.DataSetName = ds.DataSetName
+ Me.Prefix = ds.Prefix
+ Me.Namespace = ds.Namespace
+ Me.Locale = ds.Locale
+ Me.CaseSensitive = ds.CaseSensitive
+ Me.EnforceConstraints = ds.EnforceConstraints
+ Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
+ Me.InitVars
+ Else
+ Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
+ End If
+ Me.GetSerializationData(info, context)
+ Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
+ AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
+ AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
+ End Sub
+
+ _
+ Public ReadOnly Property TBPMO_FORM() As TBPMO_FORMDataTable
+ Get
+ Return Me.tableTBPMO_FORM
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property VWPMO_CONTROL_SCREEN() As VWPMO_CONTROL_SCREENDataTable
+ Get
+ Return Me.tableVWPMO_CONTROL_SCREEN
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_FORM_VIEW() As TBPMO_FORM_VIEWDataTable
+ Get
+ Return Me.tableTBPMO_FORM_VIEW
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_RECORD() As TBPMO_RECORDDataTable
+ Get
+ Return Me.tableTBPMO_RECORD
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property VWPMO_DOKUMENTTYPES() As VWPMO_DOKUMENTTYPESDataTable
+ Get
+ Return Me.tableVWPMO_DOKUMENTTYPES
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_WD_FVIEW_DT_INDEX() As TBPMO_WD_FVIEW_DT_INDEXDataTable
+ Get
+ Return Me.tableTBPMO_WD_FVIEW_DT_INDEX
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_WORKFLOW_TASK() As TBPMO_WORKFLOW_TASKDataTable
+ Get
+ Return Me.tableTBPMO_WORKFLOW_TASK
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_WORKFLOW_TASK_STATE() As TBPMO_WORKFLOW_TASK_STATEDataTable
+ Get
+ Return Me.tableTBPMO_WORKFLOW_TASK_STATE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property VWPMO_GUI_ENTITY() As VWPMO_GUI_ENTITYDataTable
+ Get
+ Return Me.tableVWPMO_GUI_ENTITY
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_WORKFLOW() As TBPMO_WORKFLOWDataTable
+ Get
+ Return Me.tableTBPMO_WORKFLOW
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property VWPMO_WF_OVERVIEW_AUTHORITY() As VWPMO_WF_OVERVIEW_AUTHORITYDataTable
+ Get
+ Return Me.tableVWPMO_WF_OVERVIEW_AUTHORITY
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBDD_DOKUMENTART() As TBDD_DOKUMENTARTDataTable
+ Get
+ Return Me.tableTBDD_DOKUMENTART
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBDD_EINGANGSARTEN() As TBDD_EINGANGSARTENDataTable
+ Get
+ Return Me.tableTBDD_EINGANGSARTEN
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBDD_INDEX_AUTOM() As TBDD_INDEX_AUTOMDataTable
+ Get
+ Return Me.tableTBDD_INDEX_AUTOM
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_WD_FORMVIEW_DOKTYPES() As TBPMO_WD_FORMVIEW_DOKTYPESDataTable
+ Get
+ Return Me.tableTBPMO_WD_FORMVIEW_DOKTYPES
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_KONFIGURATION() As TBPMO_KONFIGURATIONDataTable
+ Get
+ Return Me.tableTBPMO_KONFIGURATION
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable
+ Get
+ Return Me.tableTBDD_USER
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_FORM_TYPE() As TBPMO_FORM_TYPEDataTable
+ Get
+ Return Me.tableTBPMO_FORM_TYPE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBDD_USER_GROUPS() As TBDD_USER_GROUPSDataTable
+ Get
+ Return Me.tableTBDD_USER_GROUPS
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property VWPMO_USERS_GROUPS() As VWPMO_USERS_GROUPSDataTable
+ Get
+ Return Me.tableVWPMO_USERS_GROUPS
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBDD_GROUPS_USER() As TBDD_GROUPS_USERDataTable
+ Get
+ Return Me.tableTBDD_GROUPS_USER
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBWH_DOKART_MODULE() As TBWH_DOKART_MODULEDataTable
+ Get
+ Return Me.tableTBWH_DOKART_MODULE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR() As TBPMO_FORM_CONSTRUCTORDataTable
+ Get
+ Return Me.tableTBPMO_FORM_CONSTRUCTOR
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_WD_OBJECTTYPE() As TBPMO_WD_OBJECTTYPEDataTable
+ Get
+ Return Me.tableTBPMO_WD_OBJECTTYPE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_FOLLOW_UP_EMAIL() As TBPMO_FOLLOW_UP_EMAILDataTable
+ Get
+ Return Me.tableTBPMO_FOLLOW_UP_EMAIL
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_FOLLUPEMAIL_USER() As TBPMO_FOLLUPEMAIL_USERDataTable
+ Get
+ Return Me.tableTBPMO_FOLLUPEMAIL_USER
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_RECORD_LOG_CONFIG() As TBPMO_RECORD_LOG_CONFIGDataTable
+ Get
+ Return Me.tableTBPMO_RECORD_LOG_CONFIG
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property VWPMO_RECORD_CHANGES() As VWPMO_RECORD_CHANGESDataTable
+ Get
+ Return Me.tableVWPMO_RECORD_CHANGES
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBDD_EMAIL_ACCOUNT() As TBDD_EMAIL_ACCOUNTDataTable
+ Get
+ Return Me.tableTBDD_EMAIL_ACCOUNT
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable
+ Get
+ Return Me.tableTBDD_CONNECTION
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR_DETAIL() As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable
+ Get
+ Return Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property VWDDINDEX_AUTOM() As VWDDINDEX_AUTOMDataTable
+ Get
+ Return Me.tableVWDDINDEX_AUTOM
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_TEMPLATE() As TBPMO_TEMPLATEDataTable
+ Get
+ Return Me.tableTBPMO_TEMPLATE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_TEMPLATE_ENTITY() As TBPMO_TEMPLATE_ENTITYDataTable
+ Get
+ Return Me.tableTBPMO_TEMPLATE_ENTITY
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_TEMPLATE_PATTERN() As TBPMO_TEMPLATE_PATTERNDataTable
+ Get
+ Return Me.tableTBPMO_TEMPLATE_PATTERN
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBTEMP_QUICKDISPLAY() As TBTEMP_QUICKDISPLAYDataTable
+ Get
+ Return Me.tableTBTEMP_QUICKDISPLAY
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_LANGUAGE_OBJECT() As TBPMO_LANGUAGE_OBJECTDataTable
+ Get
+ Return Me.tableTBPMO_LANGUAGE_OBJECT
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBDD_CLIENT() As TBDD_CLIENTDataTable
+ Get
+ Return Me.tableTBDD_CLIENT
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_CONSTRUCTOR_USER_SQL() As TBPMO_CONSTRUCTOR_USER_SQLDataTable
+ Get
+ Return Me.tableTBPMO_CONSTRUCTOR_USER_SQL
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_WD_IMPORT_PROFILE() As TBPMO_WD_IMPORT_PROFILEDataTable
+ Get
+ Return Me.tableTBPMO_WD_IMPORT_PROFILE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_WD_IMPORT_PROFILE_IDX() As TBPMO_WD_IMPORT_PROFILE_IDXDataTable
+ Get
+ Return Me.tableTBPMO_WD_IMPORT_PROFILE_IDX
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property VWPMO_WF_ACTIVE() As VWPMO_WF_ACTIVEDataTable
+ Get
+ Return Me.tableVWPMO_WF_ACTIVE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_RIGHT_GROUP() As TBPMO_RIGHT_GROUPDataTable
+ Get
+ Return Me.tableTBPMO_RIGHT_GROUP
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_WD_NAMECONVENTION_FORMAT() As TBPMO_WD_NAMECONVENTION_FORMATDataTable
+ Get
+ Return Me.tableTBPMO_WD_NAMECONVENTION_FORMAT
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_STRUCTURE_NODES_CONFIGURATION() As TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable
+ Get
+ Return Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBWH_ENTITY() As TBWH_ENTITYDataTable
+ Get
+ Return Me.tableTBWH_ENTITY
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_WORKFLOW_TASK_HISTORY() As TBPMO_WORKFLOW_TASK_HISTORYDataTable
+ Get
+ Return Me.tableTBPMO_WORKFLOW_TASK_HISTORY
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property VWPMO_RIGHTS_2B_WORKED() As VWPMO_RIGHTS_2B_WORKEDDataTable
+ Get
+ Return Me.tableVWPMO_RIGHTS_2B_WORKED
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_RIGHT_USER() As TBPMO_RIGHT_USERDataTable
+ Get
+ Return Me.tableTBPMO_RIGHT_USER
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_RECORD_VARIANT() As TBPMO_RECORD_VARIANTDataTable
+ Get
+ Return Me.tableTBPMO_RECORD_VARIANT
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBPMO_APPOINTMENTS() As TBPMO_APPOINTMENTSDataTable
+ Get
+ Return Me.tableTBPMO_APPOINTMENTS
+ End Get
+ End Property
+
+ _
+ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
+ Get
+ Return Me._schemaSerializationMode
+ End Get
+ Set
+ Me._schemaSerializationMode = value
+ End Set
+ End Property
+
+ _
+ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
+ Get
+ Return MyBase.Tables
+ End Get
+ End Property
+
+ _
+ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
+ Get
+ Return MyBase.Relations
+ End Get
+ End Property
+
+ _
+ Protected Overrides Sub InitializeDerivedDataSet()
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
+ End Sub
+
+ _
+ Public Overrides Function Clone() As Global.System.Data.DataSet
+ Dim cln As DD_DMSDataSet = CType(MyBase.Clone,DD_DMSDataSet)
+ cln.InitVars
+ cln.SchemaSerializationMode = Me.SchemaSerializationMode
+ Return cln
+ End Function
+
+ _
+ Protected Overrides Function ShouldSerializeTables() As Boolean
+ Return false
+ End Function
+
+ _
+ Protected Overrides Function ShouldSerializeRelations() As Boolean
+ Return false
+ End Function
+
+ _
+ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
+ If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
+ Me.Reset
+ Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
+ ds.ReadXml(reader)
+ If (Not (ds.Tables("TBPMO_FORM")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_FORMDataTable(ds.Tables("TBPMO_FORM")))
+ End If
+ If (Not (ds.Tables("VWPMO_CONTROL_SCREEN")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_CONTROL_SCREENDataTable(ds.Tables("VWPMO_CONTROL_SCREEN")))
+ End If
+ If (Not (ds.Tables("TBPMO_FORM_VIEW")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_FORM_VIEWDataTable(ds.Tables("TBPMO_FORM_VIEW")))
+ End If
+ If (Not (ds.Tables("TBPMO_RECORD")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_RECORDDataTable(ds.Tables("TBPMO_RECORD")))
+ End If
+ If (Not (ds.Tables("VWPMO_DOKUMENTTYPES")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_DOKUMENTTYPESDataTable(ds.Tables("VWPMO_DOKUMENTTYPES")))
+ End If
+ If (Not (ds.Tables("TBPMO_WD_FVIEW_DT_INDEX")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WD_FVIEW_DT_INDEXDataTable(ds.Tables("TBPMO_WD_FVIEW_DT_INDEX")))
+ End If
+ If (Not (ds.Tables("TBPMO_WORKFLOW_TASK")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WORKFLOW_TASKDataTable(ds.Tables("TBPMO_WORKFLOW_TASK")))
+ End If
+ If (Not (ds.Tables("TBPMO_WORKFLOW_TASK_STATE")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WORKFLOW_TASK_STATEDataTable(ds.Tables("TBPMO_WORKFLOW_TASK_STATE")))
+ End If
+ If (Not (ds.Tables("VWPMO_GUI_ENTITY")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_GUI_ENTITYDataTable(ds.Tables("VWPMO_GUI_ENTITY")))
+ End If
+ If (Not (ds.Tables("TBPMO_WORKFLOW")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WORKFLOWDataTable(ds.Tables("TBPMO_WORKFLOW")))
+ End If
+ If (Not (ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_WF_OVERVIEW_AUTHORITYDataTable(ds.Tables("VWPMO_WF_OVERVIEW_AUTHORITY")))
+ End If
+ If (Not (ds.Tables("TBDD_DOKUMENTART")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART")))
+ End If
+ If (Not (ds.Tables("TBDD_EINGANGSARTEN")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_EINGANGSARTENDataTable(ds.Tables("TBDD_EINGANGSARTEN")))
+ End If
+ If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM")))
+ End If
+ If (Not (ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WD_FORMVIEW_DOKTYPESDataTable(ds.Tables("TBPMO_WD_FORMVIEW_DOKTYPES")))
+ End If
+ If (Not (ds.Tables("TBPMO_KONFIGURATION")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_KONFIGURATIONDataTable(ds.Tables("TBPMO_KONFIGURATION")))
+ End If
+ If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER")))
+ End If
+ If (Not (ds.Tables("TBPMO_FORM_TYPE")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_FORM_TYPEDataTable(ds.Tables("TBPMO_FORM_TYPE")))
+ End If
+ If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS")))
+ End If
+ If (Not (ds.Tables("VWPMO_USERS_GROUPS")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_USERS_GROUPSDataTable(ds.Tables("VWPMO_USERS_GROUPS")))
+ End If
+ If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER")))
+ End If
+ If (Not (ds.Tables("TBWH_DOKART_MODULE")) Is Nothing) Then
+ MyBase.Tables.Add(New TBWH_DOKART_MODULEDataTable(ds.Tables("TBWH_DOKART_MODULE")))
+ End If
+ If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR")))
+ End If
+ If (Not (ds.Tables("TBPMO_WD_OBJECTTYPE")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WD_OBJECTTYPEDataTable(ds.Tables("TBPMO_WD_OBJECTTYPE")))
+ End If
+ If (Not (ds.Tables("TBPMO_FOLLOW_UP_EMAIL")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_FOLLOW_UP_EMAILDataTable(ds.Tables("TBPMO_FOLLOW_UP_EMAIL")))
+ End If
+ If (Not (ds.Tables("TBPMO_FOLLUPEMAIL_USER")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_FOLLUPEMAIL_USERDataTable(ds.Tables("TBPMO_FOLLUPEMAIL_USER")))
+ End If
+ If (Not (ds.Tables("TBPMO_RECORD_LOG_CONFIG")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_RECORD_LOG_CONFIGDataTable(ds.Tables("TBPMO_RECORD_LOG_CONFIG")))
+ End If
+ If (Not (ds.Tables("VWPMO_RECORD_CHANGES")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_RECORD_CHANGESDataTable(ds.Tables("VWPMO_RECORD_CHANGES")))
+ End If
+ If (Not (ds.Tables("TBDD_EMAIL_ACCOUNT")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_EMAIL_ACCOUNTDataTable(ds.Tables("TBDD_EMAIL_ACCOUNT")))
+ End If
+ If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION")))
+ End If
+ If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")))
+ End If
+ If (Not (ds.Tables("VWDDINDEX_AUTOM")) Is Nothing) Then
+ MyBase.Tables.Add(New VWDDINDEX_AUTOMDataTable(ds.Tables("VWDDINDEX_AUTOM")))
+ End If
+ If (Not (ds.Tables("TBPMO_TEMPLATE")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_TEMPLATEDataTable(ds.Tables("TBPMO_TEMPLATE")))
+ End If
+ If (Not (ds.Tables("TBPMO_TEMPLATE_ENTITY")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_TEMPLATE_ENTITYDataTable(ds.Tables("TBPMO_TEMPLATE_ENTITY")))
+ End If
+ If (Not (ds.Tables("TBPMO_TEMPLATE_PATTERN")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_TEMPLATE_PATTERNDataTable(ds.Tables("TBPMO_TEMPLATE_PATTERN")))
+ End If
+ If (Not (ds.Tables("TBTEMP_QUICKDISPLAY")) Is Nothing) Then
+ MyBase.Tables.Add(New TBTEMP_QUICKDISPLAYDataTable(ds.Tables("TBTEMP_QUICKDISPLAY")))
+ End If
+ If (Not (ds.Tables("TBPMO_LANGUAGE_OBJECT")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_LANGUAGE_OBJECTDataTable(ds.Tables("TBPMO_LANGUAGE_OBJECT")))
+ End If
+ If (Not (ds.Tables("TBDD_CLIENT")) Is Nothing) Then
+ MyBase.Tables.Add(New TBDD_CLIENTDataTable(ds.Tables("TBDD_CLIENT")))
+ End If
+ If (Not (ds.Tables("TBPMO_CONSTRUCTOR_USER_SQL")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_CONSTRUCTOR_USER_SQLDataTable(ds.Tables("TBPMO_CONSTRUCTOR_USER_SQL")))
+ End If
+ If (Not (ds.Tables("TBPMO_WD_IMPORT_PROFILE")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WD_IMPORT_PROFILEDataTable(ds.Tables("TBPMO_WD_IMPORT_PROFILE")))
+ End If
+ If (Not (ds.Tables("TBPMO_WD_IMPORT_PROFILE_IDX")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WD_IMPORT_PROFILE_IDXDataTable(ds.Tables("TBPMO_WD_IMPORT_PROFILE_IDX")))
+ End If
+ If (Not (ds.Tables("VWPMO_WF_ACTIVE")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_WF_ACTIVEDataTable(ds.Tables("VWPMO_WF_ACTIVE")))
+ End If
+ If (Not (ds.Tables("TBPMO_RIGHT_GROUP")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_RIGHT_GROUPDataTable(ds.Tables("TBPMO_RIGHT_GROUP")))
+ End If
+ If (Not (ds.Tables("TBPMO_WD_NAMECONVENTION_FORMAT")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WD_NAMECONVENTION_FORMATDataTable(ds.Tables("TBPMO_WD_NAMECONVENTION_FORMAT")))
+ End If
+ If (Not (ds.Tables("TBPMO_STRUCTURE_NODES_CONFIGURATION")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable(ds.Tables("TBPMO_STRUCTURE_NODES_CONFIGURATION")))
+ End If
+ If (Not (ds.Tables("TBWH_ENTITY")) Is Nothing) Then
+ MyBase.Tables.Add(New TBWH_ENTITYDataTable(ds.Tables("TBWH_ENTITY")))
+ End If
+ If (Not (ds.Tables("TBPMO_WORKFLOW_TASK_HISTORY")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_WORKFLOW_TASK_HISTORYDataTable(ds.Tables("TBPMO_WORKFLOW_TASK_HISTORY")))
+ End If
+ If (Not (ds.Tables("VWPMO_RIGHTS_2B_WORKED")) Is Nothing) Then
+ MyBase.Tables.Add(New VWPMO_RIGHTS_2B_WORKEDDataTable(ds.Tables("VWPMO_RIGHTS_2B_WORKED")))
+ End If
+ If (Not (ds.Tables("TBPMO_RIGHT_USER")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_RIGHT_USERDataTable(ds.Tables("TBPMO_RIGHT_USER")))
+ End If
+ If (Not (ds.Tables("TBPMO_RECORD_VARIANT")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_RECORD_VARIANTDataTable(ds.Tables("TBPMO_RECORD_VARIANT")))
+ End If
+ If (Not (ds.Tables("TBPMO_APPOINTMENTS")) Is Nothing) Then
+ MyBase.Tables.Add(New TBPMO_APPOINTMENTSDataTable(ds.Tables("TBPMO_APPOINTMENTS")))
+ End If
+ Me.DataSetName = ds.DataSetName
+ Me.Prefix = ds.Prefix
+ Me.Namespace = ds.Namespace
+ Me.Locale = ds.Locale
+ Me.CaseSensitive = ds.CaseSensitive
+ Me.EnforceConstraints = ds.EnforceConstraints
+ Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
+ Me.InitVars
+ Else
+ Me.ReadXml(reader)
+ Me.InitVars
+ End If
+ End Sub
+
+ _
+ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
+ Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
+ stream.Position = 0
+ Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
+ End Function
+
+ _
+ Friend Overloads Sub InitVars()
+ Me.InitVars(true)
+ End Sub
+
+ _
+ Friend Overloads Sub InitVars(ByVal initTable As Boolean)
+ Me.tableTBPMO_FORM = CType(MyBase.Tables("TBPMO_FORM"),TBPMO_FORMDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_FORM) Is Nothing) Then
+ Me.tableTBPMO_FORM.InitVars
+ End If
+ End If
+ Me.tableVWPMO_CONTROL_SCREEN = CType(MyBase.Tables("VWPMO_CONTROL_SCREEN"),VWPMO_CONTROL_SCREENDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableVWPMO_CONTROL_SCREEN) Is Nothing) Then
+ Me.tableVWPMO_CONTROL_SCREEN.InitVars
+ End If
+ End If
+ Me.tableTBPMO_FORM_VIEW = CType(MyBase.Tables("TBPMO_FORM_VIEW"),TBPMO_FORM_VIEWDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_FORM_VIEW) Is Nothing) Then
+ Me.tableTBPMO_FORM_VIEW.InitVars
+ End If
+ End If
+ Me.tableTBPMO_RECORD = CType(MyBase.Tables("TBPMO_RECORD"),TBPMO_RECORDDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_RECORD) Is Nothing) Then
+ Me.tableTBPMO_RECORD.InitVars
+ End If
+ End If
+ Me.tableVWPMO_DOKUMENTTYPES = CType(MyBase.Tables("VWPMO_DOKUMENTTYPES"),VWPMO_DOKUMENTTYPESDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableVWPMO_DOKUMENTTYPES) Is Nothing) Then
+ Me.tableVWPMO_DOKUMENTTYPES.InitVars
+ End If
+ End If
+ Me.tableTBPMO_WD_FVIEW_DT_INDEX = CType(MyBase.Tables("TBPMO_WD_FVIEW_DT_INDEX"),TBPMO_WD_FVIEW_DT_INDEXDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_WD_FVIEW_DT_INDEX) Is Nothing) Then
+ Me.tableTBPMO_WD_FVIEW_DT_INDEX.InitVars
+ End If
+ End If
+ Me.tableTBPMO_WORKFLOW_TASK = CType(MyBase.Tables("TBPMO_WORKFLOW_TASK"),TBPMO_WORKFLOW_TASKDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_WORKFLOW_TASK) Is Nothing) Then
+ Me.tableTBPMO_WORKFLOW_TASK.InitVars
+ End If
+ End If
+ Me.tableTBPMO_WORKFLOW_TASK_STATE = CType(MyBase.Tables("TBPMO_WORKFLOW_TASK_STATE"),TBPMO_WORKFLOW_TASK_STATEDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_WORKFLOW_TASK_STATE) Is Nothing) Then
+ Me.tableTBPMO_WORKFLOW_TASK_STATE.InitVars
+ End If
+ End If
+ Me.tableVWPMO_GUI_ENTITY = CType(MyBase.Tables("VWPMO_GUI_ENTITY"),VWPMO_GUI_ENTITYDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableVWPMO_GUI_ENTITY) Is Nothing) Then
+ Me.tableVWPMO_GUI_ENTITY.InitVars
+ End If
+ End If
+ Me.tableTBPMO_WORKFLOW = CType(MyBase.Tables("TBPMO_WORKFLOW"),TBPMO_WORKFLOWDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_WORKFLOW) Is Nothing) Then
+ Me.tableTBPMO_WORKFLOW.InitVars
+ End If
+ End If
+ Me.tableVWPMO_WF_OVERVIEW_AUTHORITY = CType(MyBase.Tables("VWPMO_WF_OVERVIEW_AUTHORITY"),VWPMO_WF_OVERVIEW_AUTHORITYDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableVWPMO_WF_OVERVIEW_AUTHORITY) Is Nothing) Then
+ Me.tableVWPMO_WF_OVERVIEW_AUTHORITY.InitVars
+ End If
+ End If
+ Me.tableTBDD_DOKUMENTART = CType(MyBase.Tables("TBDD_DOKUMENTART"),TBDD_DOKUMENTARTDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBDD_DOKUMENTART) Is Nothing) Then
+ Me.tableTBDD_DOKUMENTART.InitVars
+ End If
+ End If
+ Me.tableTBDD_EINGANGSARTEN = CType(MyBase.Tables("TBDD_EINGANGSARTEN"),TBDD_EINGANGSARTENDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBDD_EINGANGSARTEN) Is Nothing) Then
+ Me.tableTBDD_EINGANGSARTEN.InitVars
+ End If
+ End If
+ Me.tableTBDD_INDEX_AUTOM = CType(MyBase.Tables("TBDD_INDEX_AUTOM"),TBDD_INDEX_AUTOMDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBDD_INDEX_AUTOM) Is Nothing) Then
+ Me.tableTBDD_INDEX_AUTOM.InitVars
+ End If
+ End If
+ Me.tableTBPMO_WD_FORMVIEW_DOKTYPES = CType(MyBase.Tables("TBPMO_WD_FORMVIEW_DOKTYPES"),TBPMO_WD_FORMVIEW_DOKTYPESDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_WD_FORMVIEW_DOKTYPES) Is Nothing) Then
+ Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.InitVars
+ End If
+ End If
+ Me.tableTBPMO_KONFIGURATION = CType(MyBase.Tables("TBPMO_KONFIGURATION"),TBPMO_KONFIGURATIONDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_KONFIGURATION) Is Nothing) Then
+ Me.tableTBPMO_KONFIGURATION.InitVars
+ End If
+ End If
+ Me.tableTBDD_USER = CType(MyBase.Tables("TBDD_USER"),TBDD_USERDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBDD_USER) Is Nothing) Then
+ Me.tableTBDD_USER.InitVars
+ End If
+ End If
+ Me.tableTBPMO_FORM_TYPE = CType(MyBase.Tables("TBPMO_FORM_TYPE"),TBPMO_FORM_TYPEDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_FORM_TYPE) Is Nothing) Then
+ Me.tableTBPMO_FORM_TYPE.InitVars
+ End If
+ End If
+ Me.tableTBDD_USER_GROUPS = CType(MyBase.Tables("TBDD_USER_GROUPS"),TBDD_USER_GROUPSDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBDD_USER_GROUPS) Is Nothing) Then
+ Me.tableTBDD_USER_GROUPS.InitVars
+ End If
+ End If
+ Me.tableVWPMO_USERS_GROUPS = CType(MyBase.Tables("VWPMO_USERS_GROUPS"),VWPMO_USERS_GROUPSDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableVWPMO_USERS_GROUPS) Is Nothing) Then
+ Me.tableVWPMO_USERS_GROUPS.InitVars
+ End If
+ End If
+ Me.tableTBDD_GROUPS_USER = CType(MyBase.Tables("TBDD_GROUPS_USER"),TBDD_GROUPS_USERDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBDD_GROUPS_USER) Is Nothing) Then
+ Me.tableTBDD_GROUPS_USER.InitVars
+ End If
+ End If
+ Me.tableTBWH_DOKART_MODULE = CType(MyBase.Tables("TBWH_DOKART_MODULE"),TBWH_DOKART_MODULEDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBWH_DOKART_MODULE) Is Nothing) Then
+ Me.tableTBWH_DOKART_MODULE.InitVars
+ End If
+ End If
+ Me.tableTBPMO_FORM_CONSTRUCTOR = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR"),TBPMO_FORM_CONSTRUCTORDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR) Is Nothing) Then
+ Me.tableTBPMO_FORM_CONSTRUCTOR.InitVars
+ End If
+ End If
+ Me.tableTBPMO_WD_OBJECTTYPE = CType(MyBase.Tables("TBPMO_WD_OBJECTTYPE"),TBPMO_WD_OBJECTTYPEDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_WD_OBJECTTYPE) Is Nothing) Then
+ Me.tableTBPMO_WD_OBJECTTYPE.InitVars
+ End If
+ End If
+ Me.tableTBPMO_FOLLOW_UP_EMAIL = CType(MyBase.Tables("TBPMO_FOLLOW_UP_EMAIL"),TBPMO_FOLLOW_UP_EMAILDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_FOLLOW_UP_EMAIL) Is Nothing) Then
+ Me.tableTBPMO_FOLLOW_UP_EMAIL.InitVars
+ End If
+ End If
+ Me.tableTBPMO_FOLLUPEMAIL_USER = CType(MyBase.Tables("TBPMO_FOLLUPEMAIL_USER"),TBPMO_FOLLUPEMAIL_USERDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_FOLLUPEMAIL_USER) Is Nothing) Then
+ Me.tableTBPMO_FOLLUPEMAIL_USER.InitVars
+ End If
+ End If
+ Me.tableTBPMO_RECORD_LOG_CONFIG = CType(MyBase.Tables("TBPMO_RECORD_LOG_CONFIG"),TBPMO_RECORD_LOG_CONFIGDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_RECORD_LOG_CONFIG) Is Nothing) Then
+ Me.tableTBPMO_RECORD_LOG_CONFIG.InitVars
+ End If
+ End If
+ Me.tableVWPMO_RECORD_CHANGES = CType(MyBase.Tables("VWPMO_RECORD_CHANGES"),VWPMO_RECORD_CHANGESDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableVWPMO_RECORD_CHANGES) Is Nothing) Then
+ Me.tableVWPMO_RECORD_CHANGES.InitVars
+ End If
+ End If
+ Me.tableTBDD_EMAIL_ACCOUNT = CType(MyBase.Tables("TBDD_EMAIL_ACCOUNT"),TBDD_EMAIL_ACCOUNTDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBDD_EMAIL_ACCOUNT) Is Nothing) Then
+ Me.tableTBDD_EMAIL_ACCOUNT.InitVars
+ End If
+ End If
+ Me.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"),TBDD_CONNECTIONDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBDD_CONNECTION) Is Nothing) Then
+ Me.tableTBDD_CONNECTION.InitVars
+ End If
+ End If
+ Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"),TBPMO_FORM_CONSTRUCTOR_DETAILDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) Is Nothing) Then
+ Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.InitVars
+ End If
+ End If
+ Me.tableVWDDINDEX_AUTOM = CType(MyBase.Tables("VWDDINDEX_AUTOM"),VWDDINDEX_AUTOMDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableVWDDINDEX_AUTOM) Is Nothing) Then
+ Me.tableVWDDINDEX_AUTOM.InitVars
+ End If
+ End If
+ Me.tableTBPMO_TEMPLATE = CType(MyBase.Tables("TBPMO_TEMPLATE"),TBPMO_TEMPLATEDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_TEMPLATE) Is Nothing) Then
+ Me.tableTBPMO_TEMPLATE.InitVars
+ End If
+ End If
+ Me.tableTBPMO_TEMPLATE_ENTITY = CType(MyBase.Tables("TBPMO_TEMPLATE_ENTITY"),TBPMO_TEMPLATE_ENTITYDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_TEMPLATE_ENTITY) Is Nothing) Then
+ Me.tableTBPMO_TEMPLATE_ENTITY.InitVars
+ End If
+ End If
+ Me.tableTBPMO_TEMPLATE_PATTERN = CType(MyBase.Tables("TBPMO_TEMPLATE_PATTERN"),TBPMO_TEMPLATE_PATTERNDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_TEMPLATE_PATTERN) Is Nothing) Then
+ Me.tableTBPMO_TEMPLATE_PATTERN.InitVars
+ End If
+ End If
+ Me.tableTBTEMP_QUICKDISPLAY = CType(MyBase.Tables("TBTEMP_QUICKDISPLAY"),TBTEMP_QUICKDISPLAYDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBTEMP_QUICKDISPLAY) Is Nothing) Then
+ Me.tableTBTEMP_QUICKDISPLAY.InitVars
+ End If
+ End If
+ Me.tableTBPMO_LANGUAGE_OBJECT = CType(MyBase.Tables("TBPMO_LANGUAGE_OBJECT"),TBPMO_LANGUAGE_OBJECTDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_LANGUAGE_OBJECT) Is Nothing) Then
+ Me.tableTBPMO_LANGUAGE_OBJECT.InitVars
+ End If
+ End If
+ Me.tableTBDD_CLIENT = CType(MyBase.Tables("TBDD_CLIENT"),TBDD_CLIENTDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBDD_CLIENT) Is Nothing) Then
+ Me.tableTBDD_CLIENT.InitVars
+ End If
+ End If
+ Me.tableTBPMO_CONSTRUCTOR_USER_SQL = CType(MyBase.Tables("TBPMO_CONSTRUCTOR_USER_SQL"),TBPMO_CONSTRUCTOR_USER_SQLDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_CONSTRUCTOR_USER_SQL) Is Nothing) Then
+ Me.tableTBPMO_CONSTRUCTOR_USER_SQL.InitVars
+ End If
+ End If
+ Me.tableTBPMO_WD_IMPORT_PROFILE = CType(MyBase.Tables("TBPMO_WD_IMPORT_PROFILE"),TBPMO_WD_IMPORT_PROFILEDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_WD_IMPORT_PROFILE) Is Nothing) Then
+ Me.tableTBPMO_WD_IMPORT_PROFILE.InitVars
+ End If
+ End If
+ Me.tableTBPMO_WD_IMPORT_PROFILE_IDX = CType(MyBase.Tables("TBPMO_WD_IMPORT_PROFILE_IDX"),TBPMO_WD_IMPORT_PROFILE_IDXDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_WD_IMPORT_PROFILE_IDX) Is Nothing) Then
+ Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.InitVars
+ End If
+ End If
+ Me.tableVWPMO_WF_ACTIVE = CType(MyBase.Tables("VWPMO_WF_ACTIVE"),VWPMO_WF_ACTIVEDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableVWPMO_WF_ACTIVE) Is Nothing) Then
+ Me.tableVWPMO_WF_ACTIVE.InitVars
+ End If
+ End If
+ Me.tableTBPMO_RIGHT_GROUP = CType(MyBase.Tables("TBPMO_RIGHT_GROUP"),TBPMO_RIGHT_GROUPDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_RIGHT_GROUP) Is Nothing) Then
+ Me.tableTBPMO_RIGHT_GROUP.InitVars
+ End If
+ End If
+ Me.tableTBPMO_WD_NAMECONVENTION_FORMAT = CType(MyBase.Tables("TBPMO_WD_NAMECONVENTION_FORMAT"),TBPMO_WD_NAMECONVENTION_FORMATDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_WD_NAMECONVENTION_FORMAT) Is Nothing) Then
+ Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.InitVars
+ End If
+ End If
+ Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION = CType(MyBase.Tables("TBPMO_STRUCTURE_NODES_CONFIGURATION"),TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION) Is Nothing) Then
+ Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.InitVars
+ End If
+ End If
+ Me.tableTBWH_ENTITY = CType(MyBase.Tables("TBWH_ENTITY"),TBWH_ENTITYDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBWH_ENTITY) Is Nothing) Then
+ Me.tableTBWH_ENTITY.InitVars
+ End If
+ End If
+ Me.tableTBPMO_WORKFLOW_TASK_HISTORY = CType(MyBase.Tables("TBPMO_WORKFLOW_TASK_HISTORY"),TBPMO_WORKFLOW_TASK_HISTORYDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_WORKFLOW_TASK_HISTORY) Is Nothing) Then
+ Me.tableTBPMO_WORKFLOW_TASK_HISTORY.InitVars
+ End If
+ End If
+ Me.tableVWPMO_RIGHTS_2B_WORKED = CType(MyBase.Tables("VWPMO_RIGHTS_2B_WORKED"),VWPMO_RIGHTS_2B_WORKEDDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableVWPMO_RIGHTS_2B_WORKED) Is Nothing) Then
+ Me.tableVWPMO_RIGHTS_2B_WORKED.InitVars
+ End If
+ End If
+ Me.tableTBPMO_RIGHT_USER = CType(MyBase.Tables("TBPMO_RIGHT_USER"),TBPMO_RIGHT_USERDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_RIGHT_USER) Is Nothing) Then
+ Me.tableTBPMO_RIGHT_USER.InitVars
+ End If
+ End If
+ Me.tableTBPMO_RECORD_VARIANT = CType(MyBase.Tables("TBPMO_RECORD_VARIANT"),TBPMO_RECORD_VARIANTDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_RECORD_VARIANT) Is Nothing) Then
+ Me.tableTBPMO_RECORD_VARIANT.InitVars
+ End If
+ End If
+ Me.tableTBPMO_APPOINTMENTS = CType(MyBase.Tables("TBPMO_APPOINTMENTS"),TBPMO_APPOINTMENTSDataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBPMO_APPOINTMENTS) Is Nothing) Then
+ Me.tableTBPMO_APPOINTMENTS.InitVars
+ End If
+ End If
+ Me.relationFK_TBPMO_FORM_VIEW_FORM_ID = Me.Relations("FK_TBPMO_FORM_VIEW_FORM_ID")
+ Me.relationFK_TBDD_DOKUMENTART_EINGID = Me.Relations("FK_TBDD_DOKUMENTART_EINGID")
+ Me.relationFK_TBDD_INDEX_AUTOM_DOCID = Me.Relations("FK_TBDD_INDEX_AUTOM_DOCID")
+ Me.relationFK_TBDD_INDEX_AUTOM_DOCID1 = Me.Relations("FK_TBDD_INDEX_AUTOM_DOCID1")
+ Me.relationFK_TBPMO_FORM_FORM_TYPE_ID = Me.Relations("FK_TBPMO_FORM_FORM_TYPE_ID")
+ Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = Me.Relations("FK_TBDD_GROUPS_USER_GROUP_ID")
+ Me.relationFK_TBDD_GROUPS_USER_USER_ID = Me.Relations("FK_TBDD_GROUPS_USER_USER_ID")
+ Me.relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID = Me.Relations("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID")
+ Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = Me.Relations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")
+ Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID = Me.Relations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID")
+ Me.relationFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID = Me.Relations("FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID")
+ Me.relationFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID = Me.Relations("FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID")
+ Me.relationFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID = Me.Relations("FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID")
+ Me.relationFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID = Me.Relations("FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID")
+ Me.relationFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID = Me.Relations("FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID")
+ Me.relationFK_TBPMO_WD_IMPORT_PROFILE_IDX_1 = Me.Relations("FK_TBPMO_WD_IMPORT_PROFILE_IDX_1")
+ Me.relationFK_TBPMO_RIGHT_GROUP_ENTITY_ID = Me.Relations("FK_TBPMO_RIGHT_GROUP_ENTITY_ID")
+ Me.relationFK_TBPMO_RIGHT_GROUP_GROUP_ID = Me.Relations("FK_TBPMO_RIGHT_GROUP_GROUP_ID")
+ Me.relationFK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID = Me.Relations("FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID")
+ Me.relationFK_TBPMO_FORM_VIEW_FORM_ID1 = Me.Relations("FK_TBPMO_FORM_VIEW_FORM_ID1")
+ Me.relationFK_TBPMO_RECORD_VARIANT_RECORD_ID = Me.Relations("FK_TBPMO_RECORD_VARIANT_RECORD_ID")
+ End Sub
+
+ _
+ Private Sub InitClass()
+ Me.DataSetName = "DD_DMSDataSet"
+ Me.Prefix = ""
+ Me.Namespace = "http://tempuri.org/DD_DMSDataSet.xsd"
+ Me.EnforceConstraints = true
+ Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
+ Me.tableTBPMO_FORM = New TBPMO_FORMDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_FORM)
+ Me.tableVWPMO_CONTROL_SCREEN = New VWPMO_CONTROL_SCREENDataTable()
+ MyBase.Tables.Add(Me.tableVWPMO_CONTROL_SCREEN)
+ Me.tableTBPMO_FORM_VIEW = New TBPMO_FORM_VIEWDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_FORM_VIEW)
+ Me.tableTBPMO_RECORD = New TBPMO_RECORDDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_RECORD)
+ Me.tableVWPMO_DOKUMENTTYPES = New VWPMO_DOKUMENTTYPESDataTable()
+ MyBase.Tables.Add(Me.tableVWPMO_DOKUMENTTYPES)
+ Me.tableTBPMO_WD_FVIEW_DT_INDEX = New TBPMO_WD_FVIEW_DT_INDEXDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_WD_FVIEW_DT_INDEX)
+ Me.tableTBPMO_WORKFLOW_TASK = New TBPMO_WORKFLOW_TASKDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW_TASK)
+ Me.tableTBPMO_WORKFLOW_TASK_STATE = New TBPMO_WORKFLOW_TASK_STATEDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW_TASK_STATE)
+ Me.tableVWPMO_GUI_ENTITY = New VWPMO_GUI_ENTITYDataTable()
+ MyBase.Tables.Add(Me.tableVWPMO_GUI_ENTITY)
+ Me.tableTBPMO_WORKFLOW = New TBPMO_WORKFLOWDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW)
+ Me.tableVWPMO_WF_OVERVIEW_AUTHORITY = New VWPMO_WF_OVERVIEW_AUTHORITYDataTable()
+ MyBase.Tables.Add(Me.tableVWPMO_WF_OVERVIEW_AUTHORITY)
+ Me.tableTBDD_DOKUMENTART = New TBDD_DOKUMENTARTDataTable()
+ MyBase.Tables.Add(Me.tableTBDD_DOKUMENTART)
+ Me.tableTBDD_EINGANGSARTEN = New TBDD_EINGANGSARTENDataTable()
+ MyBase.Tables.Add(Me.tableTBDD_EINGANGSARTEN)
+ Me.tableTBDD_INDEX_AUTOM = New TBDD_INDEX_AUTOMDataTable()
+ MyBase.Tables.Add(Me.tableTBDD_INDEX_AUTOM)
+ Me.tableTBPMO_WD_FORMVIEW_DOKTYPES = New TBPMO_WD_FORMVIEW_DOKTYPESDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_WD_FORMVIEW_DOKTYPES)
+ Me.tableTBPMO_KONFIGURATION = New TBPMO_KONFIGURATIONDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_KONFIGURATION)
+ Me.tableTBDD_USER = New TBDD_USERDataTable()
+ MyBase.Tables.Add(Me.tableTBDD_USER)
+ Me.tableTBPMO_FORM_TYPE = New TBPMO_FORM_TYPEDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_FORM_TYPE)
+ Me.tableTBDD_USER_GROUPS = New TBDD_USER_GROUPSDataTable()
+ MyBase.Tables.Add(Me.tableTBDD_USER_GROUPS)
+ Me.tableVWPMO_USERS_GROUPS = New VWPMO_USERS_GROUPSDataTable()
+ MyBase.Tables.Add(Me.tableVWPMO_USERS_GROUPS)
+ Me.tableTBDD_GROUPS_USER = New TBDD_GROUPS_USERDataTable()
+ MyBase.Tables.Add(Me.tableTBDD_GROUPS_USER)
+ Me.tableTBWH_DOKART_MODULE = New TBWH_DOKART_MODULEDataTable()
+ MyBase.Tables.Add(Me.tableTBWH_DOKART_MODULE)
+ Me.tableTBPMO_FORM_CONSTRUCTOR = New TBPMO_FORM_CONSTRUCTORDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR)
+ Me.tableTBPMO_WD_OBJECTTYPE = New TBPMO_WD_OBJECTTYPEDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_WD_OBJECTTYPE)
+ Me.tableTBPMO_FOLLOW_UP_EMAIL = New TBPMO_FOLLOW_UP_EMAILDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_FOLLOW_UP_EMAIL)
+ Me.tableTBPMO_FOLLUPEMAIL_USER = New TBPMO_FOLLUPEMAIL_USERDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_FOLLUPEMAIL_USER)
+ Me.tableTBPMO_RECORD_LOG_CONFIG = New TBPMO_RECORD_LOG_CONFIGDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_RECORD_LOG_CONFIG)
+ Me.tableVWPMO_RECORD_CHANGES = New VWPMO_RECORD_CHANGESDataTable()
+ MyBase.Tables.Add(Me.tableVWPMO_RECORD_CHANGES)
+ Me.tableTBDD_EMAIL_ACCOUNT = New TBDD_EMAIL_ACCOUNTDataTable()
+ MyBase.Tables.Add(Me.tableTBDD_EMAIL_ACCOUNT)
+ Me.tableTBDD_CONNECTION = New TBDD_CONNECTIONDataTable()
+ MyBase.Tables.Add(Me.tableTBDD_CONNECTION)
+ Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL)
+ Me.tableVWDDINDEX_AUTOM = New VWDDINDEX_AUTOMDataTable()
+ MyBase.Tables.Add(Me.tableVWDDINDEX_AUTOM)
+ Me.tableTBPMO_TEMPLATE = New TBPMO_TEMPLATEDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_TEMPLATE)
+ Me.tableTBPMO_TEMPLATE_ENTITY = New TBPMO_TEMPLATE_ENTITYDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_TEMPLATE_ENTITY)
+ Me.tableTBPMO_TEMPLATE_PATTERN = New TBPMO_TEMPLATE_PATTERNDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_TEMPLATE_PATTERN)
+ Me.tableTBTEMP_QUICKDISPLAY = New TBTEMP_QUICKDISPLAYDataTable()
+ MyBase.Tables.Add(Me.tableTBTEMP_QUICKDISPLAY)
+ Me.tableTBPMO_LANGUAGE_OBJECT = New TBPMO_LANGUAGE_OBJECTDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_LANGUAGE_OBJECT)
+ Me.tableTBDD_CLIENT = New TBDD_CLIENTDataTable()
+ MyBase.Tables.Add(Me.tableTBDD_CLIENT)
+ Me.tableTBPMO_CONSTRUCTOR_USER_SQL = New TBPMO_CONSTRUCTOR_USER_SQLDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_CONSTRUCTOR_USER_SQL)
+ Me.tableTBPMO_WD_IMPORT_PROFILE = New TBPMO_WD_IMPORT_PROFILEDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_WD_IMPORT_PROFILE)
+ Me.tableTBPMO_WD_IMPORT_PROFILE_IDX = New TBPMO_WD_IMPORT_PROFILE_IDXDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_WD_IMPORT_PROFILE_IDX)
+ Me.tableVWPMO_WF_ACTIVE = New VWPMO_WF_ACTIVEDataTable()
+ MyBase.Tables.Add(Me.tableVWPMO_WF_ACTIVE)
+ Me.tableTBPMO_RIGHT_GROUP = New TBPMO_RIGHT_GROUPDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_RIGHT_GROUP)
+ Me.tableTBPMO_WD_NAMECONVENTION_FORMAT = New TBPMO_WD_NAMECONVENTION_FORMATDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT)
+ Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION = New TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION)
+ Me.tableTBWH_ENTITY = New TBWH_ENTITYDataTable()
+ MyBase.Tables.Add(Me.tableTBWH_ENTITY)
+ Me.tableTBPMO_WORKFLOW_TASK_HISTORY = New TBPMO_WORKFLOW_TASK_HISTORYDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_WORKFLOW_TASK_HISTORY)
+ Me.tableVWPMO_RIGHTS_2B_WORKED = New VWPMO_RIGHTS_2B_WORKEDDataTable()
+ MyBase.Tables.Add(Me.tableVWPMO_RIGHTS_2B_WORKED)
+ Me.tableTBPMO_RIGHT_USER = New TBPMO_RIGHT_USERDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_RIGHT_USER)
+ Me.tableTBPMO_RECORD_VARIANT = New TBPMO_RECORD_VARIANTDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_RECORD_VARIANT)
+ Me.tableTBPMO_APPOINTMENTS = New TBPMO_APPOINTMENTSDataTable()
+ MyBase.Tables.Add(Me.tableTBPMO_APPOINTMENTS)
+ Me.relationFK_TBPMO_FORM_VIEW_FORM_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_VIEW_FORM_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_VIEW.FORM_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_FORM_VIEW_FORM_ID)
+ Me.relationFK_TBDD_DOKUMENTART_EINGID = New Global.System.Data.DataRelation("FK_TBDD_DOKUMENTART_EINGID", New Global.System.Data.DataColumn() {Me.tableTBDD_EINGANGSARTEN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBDD_DOKUMENTART_EINGID)
+ Me.relationFK_TBDD_INDEX_AUTOM_DOCID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_AUTOM_DOCID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBDD_INDEX_AUTOM_DOCID)
+ Me.relationFK_TBDD_INDEX_AUTOM_DOCID1 = New Global.System.Data.DataRelation("FK_TBDD_INDEX_AUTOM_DOCID1", New Global.System.Data.DataColumn() {Me.tableTBPMO_WD_FORMVIEW_DOKTYPES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBDD_INDEX_AUTOM_DOCID1)
+ Me.relationFK_TBPMO_FORM_FORM_TYPE_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_FORM_TYPE_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_TYPE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.FORM_TYPE_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_FORM_FORM_TYPE_ID)
+ Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_GROUP_ID)
+ Me.relationFK_TBDD_GROUPS_USER_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.USER_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_USER_ID)
+ Me.relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID = New Global.System.Data.DataRelation("FK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FOLLUPEMAIL_USER.FOLLOW_UP_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID)
+ Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID)
+ Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID)
+ Me.relationFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID = New Global.System.Data.DataRelation("FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_TEMPLATE_ENTITY.ENTITY_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID)
+ Me.relationFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID = New Global.System.Data.DataRelation("FK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_TEMPLATE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_TEMPLATE_ENTITY.TEMPLATE_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID)
+ Me.relationFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID = New Global.System.Data.DataRelation("FK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_TEMPLATE_ENTITY.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_TEMPLATE_PATTERN.TEMPLATE_ENT_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID)
+ Me.relationFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID = New Global.System.Data.DataRelation("FK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID", New Global.System.Data.DataColumn() {Me.tableTBTEMP_QUICKDISPLAY.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DATE_CTRL_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID)
+ Me.relationFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID = New Global.System.Data.DataRelation("FK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID", New Global.System.Data.DataColumn() {Me.tableTBTEMP_QUICKDISPLAY.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FOLLOW_UP_EMAIL.DEPENDENT_DONE_CTRL_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID)
+ Me.relationFK_TBPMO_WD_IMPORT_PROFILE_IDX_1 = New Global.System.Data.DataRelation("FK_TBPMO_WD_IMPORT_PROFILE_IDX_1", New Global.System.Data.DataColumn() {Me.tableTBPMO_WD_IMPORT_PROFILE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_WD_IMPORT_PROFILE_IDX.PROFILE_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_WD_IMPORT_PROFILE_IDX_1)
+ Me.relationFK_TBPMO_RIGHT_GROUP_ENTITY_ID = New Global.System.Data.DataRelation("FK_TBPMO_RIGHT_GROUP_ENTITY_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_RIGHT_GROUP.ENTITY_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_RIGHT_GROUP_ENTITY_ID)
+ Me.relationFK_TBPMO_RIGHT_GROUP_GROUP_ID = New Global.System.Data.DataRelation("FK_TBPMO_RIGHT_GROUP_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_RIGHT_GROUP.GROUP_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_RIGHT_GROUP_GROUP_ID)
+ Me.relationFK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID = New Global.System.Data.DataRelation("FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_STRUCTURE_NODES_CONFIGURATION.ENTITY_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID)
+ Me.relationFK_TBPMO_FORM_VIEW_FORM_ID1 = New Global.System.Data.DataRelation("FK_TBPMO_FORM_VIEW_FORM_ID1", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBWH_ENTITY.FORM_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_FORM_VIEW_FORM_ID1)
+ Me.relationFK_TBPMO_RECORD_VARIANT_RECORD_ID = New Global.System.Data.DataRelation("FK_TBPMO_RECORD_VARIANT_RECORD_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_RECORD.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_RECORD_VARIANT.RECORD_IDColumn}, false)
+ Me.Relations.Add(Me.relationFK_TBPMO_RECORD_VARIANT_RECORD_ID)
+ End Sub
+
+ _
+ Private Function ShouldSerializeTBPMO_FORM() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeVWPMO_CONTROL_SCREEN() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_FORM_VIEW() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_RECORD() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeVWPMO_DOKUMENTTYPES() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_WD_FVIEW_DT_INDEX() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_WORKFLOW_TASK() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_WORKFLOW_TASK_STATE() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeVWPMO_GUI_ENTITY() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_WORKFLOW() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeVWPMO_WF_OVERVIEW_AUTHORITY() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBDD_DOKUMENTART() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBDD_EINGANGSARTEN() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBDD_INDEX_AUTOM() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_WD_FORMVIEW_DOKTYPES() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_KONFIGURATION() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBDD_USER() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_FORM_TYPE() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBDD_USER_GROUPS() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeVWPMO_USERS_GROUPS() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBDD_GROUPS_USER() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBWH_DOKART_MODULE() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_WD_OBJECTTYPE() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_FOLLOW_UP_EMAIL() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_FOLLUPEMAIL_USER() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_RECORD_LOG_CONFIG() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeVWPMO_RECORD_CHANGES() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBDD_EMAIL_ACCOUNT() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBDD_CONNECTION() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR_DETAIL() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeVWDDINDEX_AUTOM() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_TEMPLATE() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_TEMPLATE_ENTITY() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_TEMPLATE_PATTERN() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBTEMP_QUICKDISPLAY() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_LANGUAGE_OBJECT() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBDD_CLIENT() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_CONSTRUCTOR_USER_SQL() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_WD_IMPORT_PROFILE() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_WD_IMPORT_PROFILE_IDX() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeVWPMO_WF_ACTIVE() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_RIGHT_GROUP() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_WD_NAMECONVENTION_FORMAT() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_STRUCTURE_NODES_CONFIGURATION() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBWH_ENTITY() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_WORKFLOW_TASK_HISTORY() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeVWPMO_RIGHTS_2B_WORKED() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_RIGHT_USER() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_RECORD_VARIANT() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBPMO_APPOINTMENTS() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
+ If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
+ Me.InitVars
+ End If
+ End Sub
+
+ _
+ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+ Dim ds As DD_DMSDataSet = New DD_DMSDataSet()
+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+ Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any.Namespace = ds.Namespace
+ sequence.Items.Add(any)
+ type.Particle = sequence
+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+ If xs.Contains(dsSchema.TargetNamespace) Then
+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Try
+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+ dsSchema.Write(s1)
+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+ Do While schemas.MoveNext
+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
+ s2.SetLength(0)
+ schema.Write(s2)
+ If (s1.Length = s2.Length) Then
+ s1.Position = 0
+ s2.Position = 0
+
+ Do While ((s1.Position <> s1.Length) _
+ AndAlso (s1.ReadByte = s2.ReadByte))
+
+
+ Loop
+ If (s1.Position = s1.Length) Then
+ Return type
+ End If
+ End If
+
+ Loop
+ Finally
+ If (Not (s1) Is Nothing) Then
+ s1.Close
+ End If
+ If (Not (s2) Is Nothing) Then
+ s2.Close
+ End If
+ End Try
+ End If
+ xs.Add(dsSchema)
+ Return type
+ End Function
+
+ _
+ Public Delegate Sub TBPMO_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORMRowChangeEvent)
+
+ _
+ Public Delegate Sub VWPMO_CONTROL_SCREENRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_CONTROL_SCREENRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_FORM_VIEWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_VIEWRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_RECORDRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RECORDRowChangeEvent)
+
+ _
+ Public Delegate Sub VWPMO_DOKUMENTTYPESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_DOKUMENTTYPESRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_WORKFLOW_TASKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_TASKRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_TASK_STATERowChangeEvent)
+
+ _
+ Public Delegate Sub VWPMO_GUI_ENTITYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_GUI_ENTITYRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_WORKFLOWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOWRowChangeEvent)
+
+ _
+ Public Delegate Sub VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent)
+
+ _
+ 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_INDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_AUTOMRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_KONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_KONFIGURATIONRowChangeEvent)
+
+ _
+ Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_FORM_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_TYPERowChangeEvent)
+
+ _
+ Public Delegate Sub TBDD_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USER_GROUPSRowChangeEvent)
+
+ _
+ Public Delegate Sub VWPMO_USERS_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_USERS_GROUPSRowChangeEvent)
+
+ _
+ Public Delegate Sub TBDD_GROUPS_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_USERRowChangeEvent)
+
+ _
+ Public Delegate Sub TBWH_DOKART_MODULERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_DOKART_MODULERowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_FORM_CONSTRUCTORRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTORRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_WD_OBJECTTYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_OBJECTTYPERowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FOLLOW_UP_EMAILRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FOLLUPEMAIL_USERRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RECORD_LOG_CONFIGRowChangeEvent)
+
+ _
+ Public Delegate Sub VWPMO_RECORD_CHANGESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RECORD_CHANGESRowChangeEvent)
+
+ _
+ Public Delegate Sub TBDD_EMAIL_ACCOUNTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EMAIL_ACCOUNTRowChangeEvent)
+
+ _
+ Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent)
+
+ _
+ Public Delegate Sub VWDDINDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDDINDEX_AUTOMRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_TEMPLATERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_TEMPLATERowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_TEMPLATE_ENTITYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_TEMPLATE_ENTITYRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_TEMPLATE_PATTERNRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_TEMPLATE_PATTERNRowChangeEvent)
+
+ _
+ Public Delegate Sub TBTEMP_QUICKDISPLAYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTEMP_QUICKDISPLAYRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_LANGUAGE_OBJECTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_LANGUAGE_OBJECTRowChangeEvent)
+
+ _
+ Public Delegate Sub TBDD_CLIENTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CLIENTRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_WD_IMPORT_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_IMPORT_PROFILERowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent)
+
+ _
+ Public Delegate Sub VWPMO_WF_ACTIVERowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_ACTIVERowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_RIGHT_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RIGHT_GROUPRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_WD_NAMECONVENTION_FORMATRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEvent)
+
+ _
+ Public Delegate Sub TBWH_ENTITYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_ENTITYRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_WORKFLOW_TASK_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_TASK_HISTORYRowChangeEvent)
+
+ _
+ Public Delegate Sub VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RIGHTS_2B_WORKEDRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_RIGHT_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RIGHT_USERRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_RECORD_VARIANTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RECORD_VARIANTRowChangeEvent)
+
+ _
+ Public Delegate Sub TBPMO_APPOINTMENTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_APPOINTMENTSRowChangeEvent)
+
+ '''
+ '''Represents the strongly named DataTable class.
+ '''
+ _
+ Partial Public Class TBPMO_FORMDataTable
+ Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORMRow)
+
+ Private columnGUID As Global.System.Data.DataColumn
+
+ Private columnPARENT_ID As Global.System.Data.DataColumn
+
+ Private columnNAME As Global.System.Data.DataColumn
+
+ Private columnLEVEL As Global.System.Data.DataColumn
+
+ Private columnADDED_WHO As Global.System.Data.DataColumn
+
+ Private columnADDED_WHEN As Global.System.Data.DataColumn
+
+ Private columnCHANGED_WHO As Global.System.Data.DataColumn
+
+ Private columnCHANGED_WHEN As Global.System.Data.DataColumn
+
+ Private columnSHOW_FORM_CONSTRUCT As Global.System.Data.DataColumn
+
+ Private columnFORM_TYPE_ID As Global.System.Data.DataColumn
+
+ Private columnSINGLE_RECORD As Global.System.Data.DataColumn
+
+ _
+ Public Sub New()
+ MyBase.New
+ Me.TableName = "TBPMO_FORM"
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
+ End Sub
+
+ _
+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
+ MyBase.New
+ Me.TableName = table.TableName
+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
+ Me.CaseSensitive = table.CaseSensitive
+ End If
+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
+ Me.Locale = table.Locale
+ End If
+ If (table.Namespace <> table.DataSet.Namespace) Then
+ Me.Namespace = table.Namespace
+ End If
+ Me.Prefix = table.Prefix
+ Me.MinimumCapacity = table.MinimumCapacity
+ End Sub
+
+ _
+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+ MyBase.New(info, context)
+ Me.InitVars
+ End Sub
+
+ _
+ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnGUID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnPARENT_ID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnNAME
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnLEVEL
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnADDED_WHO
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnADDED_WHEN
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnCHANGED_WHO
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnCHANGED_WHEN
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property SHOW_FORM_CONSTRUCTColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnSHOW_FORM_CONSTRUCT
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property FORM_TYPE_IDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnFORM_TYPE_ID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property SINGLE_RECORDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnSINGLE_RECORD
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property Count() As Integer
+ Get
+ Return Me.Rows.Count
+ End Get
+ End Property
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORMRow
+ Get
+ Return CType(Me.Rows(index),TBPMO_FORMRow)
+ End Get
+ End Property
+
+ _
+ Public Event TBPMO_FORMRowChanging As TBPMO_FORMRowChangeEventHandler
+
+ _
+ Public Event TBPMO_FORMRowChanged As TBPMO_FORMRowChangeEventHandler
+
+ _
+ Public Event TBPMO_FORMRowDeleting As TBPMO_FORMRowChangeEventHandler
+
+ _
+ Public Event TBPMO_FORMRowDeleted As TBPMO_FORMRowChangeEventHandler
+
+ _
+ Public Overloads Sub AddTBPMO_FORMRow(ByVal row As TBPMO_FORMRow)
+ Me.Rows.Add(row)
+ End Sub
+
+ _
+ Public Overloads Function AddTBPMO_FORMRow(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID As TBPMO_FORM_TYPERow, ByVal SINGLE_RECORD As Boolean) As TBPMO_FORMRow
+ Dim rowTBPMO_FORMRow As TBPMO_FORMRow = CType(Me.NewRow,TBPMO_FORMRow)
+ Dim columnValuesArray() As Object = New Object() {Nothing, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHOW_FORM_CONSTRUCT, Nothing, SINGLE_RECORD}
+ If (Not (parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID) Is Nothing) Then
+ columnValuesArray(9) = parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID(0)
+ End If
+ rowTBPMO_FORMRow.ItemArray = columnValuesArray
+ Me.Rows.Add(rowTBPMO_FORMRow)
+ Return rowTBPMO_FORMRow
+ End Function
+
+ _
+ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORMRow
+ Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORMRow)
+ End Function
+
+ _
+ Public Overrides Function Clone() As Global.System.Data.DataTable
+ Dim cln As TBPMO_FORMDataTable = CType(MyBase.Clone,TBPMO_FORMDataTable)
+ cln.InitVars
+ Return cln
+ End Function
+
+ _
+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
+ Return New TBPMO_FORMDataTable()
+ End Function
+
+ _
+ Friend Sub InitVars()
+ Me.columnGUID = MyBase.Columns("GUID")
+ Me.columnPARENT_ID = MyBase.Columns("PARENT_ID")
+ Me.columnNAME = MyBase.Columns("NAME")
+ Me.columnLEVEL = MyBase.Columns("LEVEL")
+ Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
+ Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
+ Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
+ Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
+ Me.columnSHOW_FORM_CONSTRUCT = MyBase.Columns("SHOW_FORM_CONSTRUCT")
+ Me.columnFORM_TYPE_ID = MyBase.Columns("FORM_TYPE_ID")
+ Me.columnSINGLE_RECORD = MyBase.Columns("SINGLE_RECORD")
+ End Sub
+
+ _
+ Private Sub InitClass()
+ Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnGUID)
+ Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnPARENT_ID)
+ Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnNAME)
+ Me.columnLEVEL = New Global.System.Data.DataColumn("LEVEL", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnLEVEL)
+ 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)
+ MyBase.Columns.Add(Me.columnADDED_WHEN)
+ Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnCHANGED_WHO)
+ Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnCHANGED_WHEN)
+ Me.columnSHOW_FORM_CONSTRUCT = New Global.System.Data.DataColumn("SHOW_FORM_CONSTRUCT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnSHOW_FORM_CONSTRUCT)
+ Me.columnFORM_TYPE_ID = New Global.System.Data.DataColumn("FORM_TYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnFORM_TYPE_ID)
+ Me.columnSINGLE_RECORD = New Global.System.Data.DataColumn("SINGLE_RECORD", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnSINGLE_RECORD)
+ Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
+ Me.columnGUID.AutoIncrement = true
+ Me.columnGUID.AllowDBNull = false
+ Me.columnGUID.ReadOnly = true
+ Me.columnGUID.Unique = true
+ Me.columnPARENT_ID.AllowDBNull = false
+ Me.columnPARENT_ID.DefaultValue = CType(0,Integer)
+ Me.columnNAME.AllowDBNull = false
+ Me.columnNAME.MaxLength = 100
+ Me.columnLEVEL.AllowDBNull = false
+ Me.columnLEVEL.DefaultValue = CType("0",String)
+ Me.columnLEVEL.MaxLength = 10
+ Me.columnADDED_WHO.AllowDBNull = false
+ Me.columnADDED_WHO.MaxLength = 50
+ Me.columnCHANGED_WHO.MaxLength = 50
+ Me.columnSHOW_FORM_CONSTRUCT.AllowDBNull = false
+ Me.columnSINGLE_RECORD.AllowDBNull = false
+ End Sub
+
+ _
+ Public Function NewTBPMO_FORMRow() As TBPMO_FORMRow
+ Return CType(Me.NewRow,TBPMO_FORMRow)
+ End Function
+
+ _
+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+ Return New TBPMO_FORMRow(builder)
+ End Function
+
+ _
+ Protected Overrides Function GetRowType() As Global.System.Type
+ Return GetType(TBPMO_FORMRow)
+ End Function
+
+