diff --git a/app/DD-Record-Organiser/ClassControlBuilder.vb b/app/DD-Record-Organiser/ClassControlBuilder.vb
index cb3989a..2636c82 100644
--- a/app/DD-Record-Organiser/ClassControlBuilder.vb
+++ b/app/DD-Record-Organiser/ClassControlBuilder.vb
@@ -675,7 +675,12 @@ Public Class ClassControlBuilder
'SQL-Command vorhanden also Ausführen des SQL
If sqlcommand.Length > 1 Then
- Dim result = ClassDatabase.Execute_Scalar(sqlcommand)
+ Dim result
+ If sqlcommand.Contains("@RECORD_ID") Or sqlcommand.Contains("@RECORDID") Or sqlcommand.Contains("@PARENTRECORD_ID") Or sqlcommand.Contains("@PARENTRECORDID") Then
+ result = Nothing
+ Else
+ result = ClassDatabase.Execute_Scalar(sqlcommand, True)
+ End If
If Not IsNothing(result) Then
If Not IsDBNull(result) Then
If Not IsNothing(result) Then
diff --git a/app/DD-Record-Organiser/ClassControlCommandsUI.vb b/app/DD-Record-Organiser/ClassControlCommandsUI.vb
index 3843641..8a79e5c 100644
--- a/app/DD-Record-Organiser/ClassControlCommandsUI.vb
+++ b/app/DD-Record-Organiser/ClassControlCommandsUI.vb
@@ -27,22 +27,21 @@ Public Class ClassControlCommandsUI
Sub LoadControls(FormId As Integer)
_CtrlBuilder.ClearControls()
-
+ Dim sw As New Stopwatch
+ sw.Start()
+ Dim elapsed As Double
Dim SQL As String = String.Format("SELECT T.*, dbo.FNPMO_GET_CONTROL_CAPTION ('{2}', {3},T.CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN T WHERE SCREEN_ID = {0} AND FORM_ID = {1}", CURRENT_SCREEN_ID, FormId, USER_LANGUAGE, CURRENT_SCREEN_ID)
' "SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = " & FormId & " and SCREEN_ID = 1"
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
-
_CtrlBuilder.MasterPanel.SuspendLayout()
-
For Each dr As DataRow In DT.Rows
-
Dim parent As GroupBox = Nothing
If (dr.Item("CONTROL_PARENT_ID") <> 0) Then
Dim parentname As String = Get_Name_for_ControlID(dr.Item("CONTROL_PARENT_ID"), FormId)
parent = _CtrlBuilder.GetControlByName(parentname)
End If
-
+ Dim control As String
Select Case dr.Item("CTRLTYPE_ID")
Case 1 ' Label
_CtrlBuilder.AddLabel(dr.Item("CONTROL_ID"),
@@ -57,6 +56,7 @@ Public Class ClassControlCommandsUI
dr.Item("CONTROL_SQLCOMMAND_1"),
False,
parent)
+ control = "Label - " & dr.Item("CONTROL_ID")
Case 2 ' TextBox
_CtrlBuilder.AddTextBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
@@ -76,6 +76,7 @@ Public Class ClassControlCommandsUI
dr.Item("CONTROL_FORMAT_TYPE"),
False,
parent)
+ control = "Text - " & dr.Item("CONTROL_ID")
Case 3 ' ComboBox
_CtrlBuilder.AddComboBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
@@ -112,6 +113,7 @@ Public Class ClassControlCommandsUI
dr.Item("CONTROL_REQUIRED"),
False,
parent)
+ control = "DatePicker - " & dr.Item("CONTROL_ID")
Case 5 ' GroupBox
_CtrlBuilder.AddGroupBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
@@ -127,6 +129,7 @@ Public Class ClassControlCommandsUI
dr.Item("CTRLSCR_FONT_STYLE"),
False,
parent)
+ control = "GroupBox - " & dr.Item("CONTROL_ID")
Case 6 ' PictureBox
_CtrlBuilder.AddPictureBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
@@ -150,6 +153,7 @@ Public Class ClassControlCommandsUI
dr.Item("CONTROL_REQUIRED"),
dr.Item("CONTROL_COL_NAME"),
parent)
+ control = "Datagridview - " & dr.Item("CONTROL_ID")
Case 10 ' Checkbox
Dim Checked As Boolean = False
'If IsDBNull(dr.Item("CONTROL_DEF_VALUE")) Then
@@ -175,6 +179,7 @@ Public Class ClassControlCommandsUI
dr.Item("CONTROL_READ_ONLY"),
dr.Item("CONTROL_REQUIRED"),
parent)
+ control = "CheckBox - " & dr.Item("CONTROL_ID")
Case 8 ' Function AddAppointment
_CtrlBuilder.FunctionAddAppointment(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
@@ -186,6 +191,7 @@ Public Class ClassControlCommandsUI
False,
parent)
AddHandler _CtrlBuilder.CurrentControl.Click, _AddAppointmentHandler
+ control = "Appointment - " & dr.Item("CONTROL_ID")
Case 9 ' Function AddFormData
_CtrlBuilder.FunctionAddFormData(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
@@ -197,6 +203,7 @@ Public Class ClassControlCommandsUI
False,
parent)
AddHandler _CtrlBuilder.CurrentControl.Click, _AddFormDataHandler
+ control = "AddFormData - " & dr.Item("CONTROL_ID")
Case 11 ' RadioButton
Dim Checked As Boolean = False
'If IsDBNull(dr.Item("CONTROL_DEF_VALUE")) Then
@@ -222,6 +229,7 @@ Public Class ClassControlCommandsUI
dr.Item("CONTROL_READ_ONLY"),
dr.Item("CONTROL_REQUIRED"),
parent)
+ control = "Radiobutton - " & dr.Item("CONTROL_ID")
Case 12 'CheckedListBox
CtrlBuilder.AddCheckedListBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
@@ -241,6 +249,7 @@ Public Class ClassControlCommandsUI
dr.Item("CONTROL_STATIC_LIST"),
dr.Item("CONTROL_SQLCOMMAND_1"),
parent)
+ control = "CheckedlistBox - " & dr.Item("CONTROL_ID")
Case 13 'CheckedListBox
CtrlBuilder.AddListBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
@@ -260,8 +269,9 @@ Public Class ClassControlCommandsUI
dr.Item("CONTROL_STATIC_LIST"),
dr.Item("CONTROL_SQLCOMMAND_1"),
parent)
+ control = "Listbox - " & dr.Item("CONTROL_ID")
End Select
-
+
_CtrlBuilder.MasterPanel.ResumeLayout()
' ContextMenuStrip zuweisen
@@ -271,6 +281,9 @@ Public Class ClassControlCommandsUI
' Tag wird für ControlId verwendet, master data id bei rechtsklick herausfinden
'_CtrlBuilder.CurrentControl.Tag = dr.Item("CTRLSCR_MASTER_DATA_ID")
End If
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Adding Control '" & control & "' took " & Format(elapsed, "0.000000000") & " seconds", False)
+ sw.Stop()
+ sw.Reset()
Next
End Sub
@@ -299,7 +312,7 @@ Public Class ClassControlCommandsUI
Dim RECORD_ID As Integer
If IsInsert Then
- If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Insert", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Insert", False)
' Den Record erstellen
If CreateRecord(FormID) = False Then
@@ -312,7 +325,7 @@ Public Class ClassControlCommandsUI
CURRENT_RECORD_ID = RECORD_ID
' Wenn gegeben, foreignrecordID mit Record verknüpfen
If foreignRecordID > 0 Then
- If LogErrorsOnly = False Then ClassLogger.Add(">> foreignRecordID: " & foreignRecordID & "; Record-ID: " & RECORD_ID, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> foreignRecordID: " & foreignRecordID & "; Record-ID: " & RECORD_ID, False)
ConnectRecord(foreignRecordID, RECORD_ID)
End If
@@ -326,7 +339,7 @@ Public Class ClassControlCommandsUI
Return "Neuer Datensatz eingefügt - " & Now
ElseIf IsInsert = False Then
- If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Update RecordID: " & RECORD_ID, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Update RecordID: " & RECORD_ID, False)
UpdateAllControls(FormID, RecordID, _CtrlBuilder.AllControls)
Return "Datensatz aktualisiert - " & Now
@@ -481,7 +494,7 @@ Public Class ClassControlCommandsUI
Try
For Each ctrl As Control In controls
Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id 'GetControlID_for_RecordID(ctrl.Name, RecordID)
- If LogErrorsOnly = False Then ClassLogger.Add(">> CONTROL_ID: " & CONTROL_ID, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> CONTROL_ID: " & CONTROL_ID, False)
Dim CONTROL_VALUE As String = GetControlValue(ctrl)
If TypeOf ctrl Is PictureBox Then
@@ -513,7 +526,7 @@ Public Class ClassControlCommandsUI
If ValueExists Then ' Control Updaten
UpdateControlValue(CONTROL_ID, RecordID, CONTROL_VALUE)
Else ' Neues Control
- If LogErrorsOnly = False Then ClassLogger.Add(">> InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE, False)
InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE)
End If
Next
@@ -552,14 +565,14 @@ Public Class ClassControlCommandsUI
Dim type = ctrl.GetType().Name
Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id ' GetControlID_for_RecordID(ctrl.Name, CURRENT_RECORD_ID)
- If LogErrorsOnly = False Then ClassLogger.Add(">> GetControlValue CONTROL_ID: " & CONTROL_ID, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> GetControlValue CONTROL_ID: " & CONTROL_ID, False)
Dim CONTROL_VALUE As String = Nothing
- If LogErrorsOnly = False Then ClassLogger.Add(">> type = " & type.ToString, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> type = " & type.ToString, False)
Select Case type
Case "TextBox"
Return DirectCast(ctrl, TextBox).Text
Case "ComboBox"
- If LogErrorsOnly = False Then ClassLogger.Add(">> Return Value: " & DirectCast(ctrl, ComboBox).Text, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Return Value: " & DirectCast(ctrl, ComboBox).Text, False)
Return DirectCast(ctrl, ComboBox).Text
Case "CheckBox"
Return DirectCast(ctrl, CheckBox).Checked.ToString()
@@ -608,7 +621,7 @@ Public Class ClassControlCommandsUI
If ClassDatabase.Execute_Scalar(SQL) = 1 Then
SQL = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
If ClassDatabase.Execute_non_Query(SQL) = True Then
- If LogErrorsOnly = False Then ClassLogger.Add(">> TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False)
End If
End If
End If
@@ -633,7 +646,7 @@ Public Class ClassControlCommandsUI
MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation)
Else
If ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
- If LogErrorsOnly = False Then ClassLogger.Add(">> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
End If
End If
@@ -765,7 +778,7 @@ Public Class ClassControlCommandsUI
Public Shared Function ConnectRecord(PARENT_RECORD As Integer, LINK_RECORD As Integer, Optional Comment As String = "")
Dim ADDED_WHO As String = Environment.UserName
Dim SQL = "INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT,ADDED_WHO) VALUES (" & PARENT_RECORD & "," & LINK_RECORD & ",'" & Comment & "','" & ADDED_WHO & "')"
- If LogErrorsOnly = False Then ClassLogger.Add(">> ConnectRecord SQL: " & SQL, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> ConnectRecord SQL: " & SQL, False)
Return ClassDatabase.Execute_non_Query(SQL, True)
End Function
End Class
diff --git a/app/DD-Record-Organiser/ClassControlLoader.vb b/app/DD-Record-Organiser/ClassControlLoader.vb
index eb34685..7b05512 100644
--- a/app/DD-Record-Organiser/ClassControlLoader.vb
+++ b/app/DD-Record-Organiser/ClassControlLoader.vb
@@ -26,7 +26,7 @@
If Not IsNothing(CONNID) Then
AutoValue = ClassDatabase.Execute_ScalarWithConnection(CONNID, SQL)
Else
- AutoValue = ClassDatabase.Execute_Scalar(SQL)
+ AutoValue = ClassDatabase.Execute_Scalar(SQL, True)
End If
' AutoValue = ClassDatabase.Execute_Scalar(SQL)
diff --git a/app/DD-Record-Organiser/ClassControlValues.vb b/app/DD-Record-Organiser/ClassControlValues.vb
index 6d26953..fd2e2e3 100644
--- a/app/DD-Record-Organiser/ClassControlValues.vb
+++ b/app/DD-Record-Organiser/ClassControlValues.vb
@@ -200,69 +200,72 @@ Public Class ClassControlValues
Private Shared Sub LoadControlValue(recordId As Integer, parentRecordId As Integer, controlId As Integer, control As Control, values As List(Of Object))
Try
+ Dim sw As New Stopwatch
+ sw.Start()
+ Dim elapsed As Double
' Für die meisten Controls wird nur das erste Element der Liste benötigt
Dim value As String = Nothing
If values.Count > 0 Then
value = values.Item(0)
End If
-
-
-
Select Case control.GetType()
Case GetType(TextBox)
- If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(TextBox) ", False)
Dim textbox As TextBox = DirectCast(control, TextBox)
ControlLoader.TextBox.LoadValue(textbox, recordId, parentRecordId, value)
-
+ elapsed = sw.Elapsed.TotalSeconds
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue TextBox took " & Format(elapsed, "0.000000000") & " seconds", False)
Case GetType(Label)
- If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(Label) ", False)
Dim label As Label = DirectCast(control, Label)
ControlLoader.Label.LoadValue(label, recordId, parentRecordId, value)
-
+ elapsed = sw.Elapsed.TotalSeconds
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue Label took " & Format(elapsed, "0.000000000") & " seconds", False)
Case GetType(ComboBox)
- If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(ComboBox) ", False)
Dim combobox As ComboBox = DirectCast(control, ComboBox)
ControlLoader.Combobox.LoadValue(combobox, recordId, parentRecordId, value)
-
+ elapsed = sw.Elapsed.TotalSeconds
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue ComboBox took " & Format(elapsed, "0.000000000") & " seconds", False)
Case GetType(CheckBox)
- If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(CheckBox) ", False)
Dim checkbox As CheckBox = DirectCast(control, CheckBox)
ControlLoader.Checkbox.LoadValue(checkbox, value)
-
+ elapsed = sw.Elapsed.TotalSeconds
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue Checkbox took " & Format(elapsed, "0.000000000") & " seconds", False)
Case GetType(RadioButton)
- If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(RadioButton) ", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Sub LoadControlValueNeu - GetType(RadioButton) ", False)
Dim radiobutton As RadioButton = DirectCast(control, RadioButton)
ControlLoader.RadioButton.LoadValue(radiobutton, value)
-
+ elapsed = sw.Elapsed.TotalSeconds
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue RadioButton took " & Format(elapsed, "0.000000000") & " seconds", False)
Case GetType(DevExpress.XtraEditors.DateEdit)
- If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(DateEdit) ", False)
Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit)
ControlLoader.DateTimePicker.LoadValue(datepicker, value)
-
+ elapsed = sw.Elapsed.TotalSeconds
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue DateEdit took " & Format(elapsed, "0.000000000") & " seconds", False)
Case GetType(DevExpress.XtraEditors.ListBoxControl)
- If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(ListBoxControl) ", False)
Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(control, DevExpress.XtraEditors.ListBoxControl)
ControlLoader.ListBox.LoadValue(listbox, value)
-
+ elapsed = sw.Elapsed.TotalSeconds
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue ListBoxControl took " & Format(elapsed, "0.000000000") & " seconds", False)
Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
- If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(CheckedListBoxControl) ", False)
Dim checkedlistbox As DevExpress.XtraEditors.CheckedListBoxControl = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl)
ControlLoader.CheckedListBox.LoadValue(checkedlistbox, values)
-
+ elapsed = sw.Elapsed.TotalSeconds
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue CheckedListBoxControl took " & Format(elapsed, "0.000000000") & " seconds", False)
Case GetType(PictureBox)
- If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(PictureBox) ", False)
Dim picturebox = DirectCast(control, PictureBox)
LoadImage(recordId, controlId, picturebox)
-
+ elapsed = sw.Elapsed.TotalSeconds
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue PictureBox took " & Format(elapsed, "0.000000000") & " seconds", False)
Case GetType(DataGridView)
- If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(DataGridView) ", False)
Dim gridview = DirectCast(control, DataGridView)
ControlLoader.DataGridView.LoadValue(gridview, values)
-
+ elapsed = sw.Elapsed.TotalSeconds
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue DataGridView took " & Format(elapsed, "0.000000000") & " seconds", False)
Case Else
- If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False)
End Select
+ sw.Stop()
+ sw.Reset()
Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadControlValue: " & ex.Message, True)
MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message)
@@ -288,7 +291,7 @@ Public Class ClassControlValues
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
swsql.Stop()
- If LogErrorsOnly = False Then ClassLogger.Add(String.Format(">>LoadControlValuesList - Database took {0} milliseconds to load", swsql.ElapsedMilliseconds), False)
+ If LogErrorsOnly = False Then ClassLogger.Add(String.Format(">> LoadControlValuesList - Database took {0} milliseconds to load", swsql.ElapsedMilliseconds), False)
If dt.Rows.Count = 0 Then
Exit Sub
@@ -335,7 +338,7 @@ Public Class ClassControlValues
elapsed = SW.Elapsed.TotalSeconds
SW.Stop()
SW.Reset()
- If LogErrorsOnly = False Then ClassLogger.Add(">> LoadControlValuesList took " & Format(elapsed, "0.000000000") & " seconds", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValuesList took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadControlValuesList: " & ex.Message, True)
MsgBox("Unexpected Error in LoadControlValuesList:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
diff --git a/app/DD-Record-Organiser/ClassDragDrop.vb b/app/DD-Record-Organiser/ClassDragDrop.vb
index 5c7a7d6..8e37e78 100644
--- a/app/DD-Record-Organiser/ClassDragDrop.vb
+++ b/app/DD-Record-Organiser/ClassDragDrop.vb
@@ -6,14 +6,14 @@ Public Class ClassDragDrop
Public Shared Function Drop_File(e As DragEventArgs)
Try
Try
- If LogErrorsOnly = False Then ClassLogger.Add(">> In Drop_File....", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> In Drop_File....", False)
files_dropped = Nothing
Dim sql As String = "DELETE FROM TBPMO_FILES_USER WHERE HANDLE_TYPE <> 'SCAN' AND UPPER(USER_WORK) = UPPER('" & Environment.UserName & "')"
ClassDatabase.Execute_non_Query(sql)
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
- If LogErrorsOnly = False Then ClassLogger.Add(">> DataFormats.FileDrop", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> DataFormats.FileDrop", False)
Dim MyFiles() As String
Dim i As Integer
' Assign the files to an array.
@@ -35,7 +35,7 @@ Public Class ClassDragDrop
Try
If e.Data.GetDataPresent("FileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then
Console.WriteLine(">> FileGroupDescriptor/FileContents")
- If LogErrorsOnly = False Then ClassLogger.Add(">> FileGroupDescriptor/FileContents", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> FileGroupDescriptor/FileContents", False)
'// the first step here is to get the stbFileName
'// of the attachment and
'// build a full-path name so we can store it
@@ -88,7 +88,7 @@ Public Class ClassDragDrop
ReDim Preserve files_dropped(0)
files_dropped(0) = "@OUTLOOK_ATTMNT@" & strOutFile
TEMP_FILES.Add(strOutFile)
- If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Drop an Attachment - File: " & strOutFile, False)
Return files_dropped
Else
ClassLogger.Add(">> Attachment File from Outlook could not be created", False)
@@ -104,7 +104,7 @@ Public Class ClassDragDrop
Try
If e.Data.GetDataPresent("FileGroupDescriptor") Then
Console.WriteLine(">> FileGroupDescriptor")
- If LogErrorsOnly = False Then ClassLogger.Add(">> Drop of OutlookMessage", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Drop of OutlookMessage", False)
Dim oApp As New Outlook.Application
'supports a drop of a Outlook message
diff --git a/app/DD-Record-Organiser/ClassFolderWatcher.vb b/app/DD-Record-Organiser/ClassFolderWatcher.vb
index 5ac967f..59979db 100644
--- a/app/DD-Record-Organiser/ClassFolderWatcher.vb
+++ b/app/DD-Record-Organiser/ClassFolderWatcher.vb
@@ -82,7 +82,7 @@ Public Class ClassFolderWatcher
handleType = "SCAN"
End If
'Die Datei übergeben
- If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & e.FullPath, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> OnCreated-File:" & e.FullPath, False)
If FileExistsinDropTable(CURRENT_FILENAME) = False Then
Insert_SCAN_File(e.FullPath, handleType)
Else
diff --git a/app/DD-Record-Organiser/ClassImport_Windream.vb b/app/DD-Record-Organiser/ClassImport_Windream.vb
index e7e1340..35bdcf9 100644
--- a/app/DD-Record-Organiser/ClassImport_Windream.vb
+++ b/app/DD-Record-Organiser/ClassImport_Windream.vb
@@ -37,7 +37,7 @@ Public Class ClassImport_Windream
idxvalue = idxvalue.ToString.Replace("@Dokart", Dokart)
End Select
End If
- If LogErrorsOnly = False Then ClassLogger.Add(">> Indexvalue: " & idxvalue.ToString, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & idxvalue.ToString, False)
Count += 1
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then
@@ -57,7 +57,7 @@ Public Class ClassImport_Windream
If dt.Rows.Count = 1 Then
Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
Dim idxvalue = CURRENT_FORM_ID
- If LogErrorsOnly = False Then ClassLogger.Add(">> Entity-ID: " & idxvalue.ToString, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then
err = True
@@ -66,7 +66,7 @@ Public Class ClassImport_Windream
End If
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_PARENT_ID
- If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then
err = True
@@ -77,7 +77,7 @@ Public Class ClassImport_Windream
''den Record-Key auslesen
'indexname = dt.Rows(0).Item("IDXNAME_RECORDID").ToString
'idxvalue = CURRENT_RECORD_ID
- 'If LogErrorsOnly = False Then ClassLogger.Add(" - Record-ID: " & idxvalue.ToString, False)
+ 'If LogErrorsOnly = False Then ClassLogger.Add(" >> Record-ID: " & idxvalue.ToString, False)
'indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
'If indexierung_erfolgreich = False Then
' err = True
@@ -87,7 +87,7 @@ Public Class ClassImport_Windream
''den Doctype-Key auslesen
'indexname = dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString
'idxvalue = CURRENT_DOKARTSTRING
- 'If LogErrorsOnly = False Then ClassLogger.Add(" - Doctype: " & idxvalue.ToString, False)
+ 'If LogErrorsOnly = False Then ClassLogger.Add(" >> Doctype: " & idxvalue.ToString, False)
'indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
'If indexierung_erfolgreich = False Then
' err = True
@@ -159,7 +159,7 @@ Public Class ClassImport_Windream
End If
'schonmal den gesamten Pfad laden
Dim DATEINAME As String = Zielordner & "\" & NameConv
- If LogErrorsOnly = False Then ClassLogger.Add(">> DATEINAME: " & DATEINAME, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> DATEINAME: " & DATEINAME, False)
' einen Regulären Ausdruck laden
Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
@@ -168,7 +168,7 @@ Public Class ClassImport_Windream
'####
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente
- If LogErrorsOnly = False Then ClassLogger.Add(">> element in RegeX: " & element.Value, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> element in RegeX: " & element.Value, False)
Select Case element.Value.Substring(2, 1).ToUpper
'Nur automatische Indizes auswerten
Case "A"
@@ -192,7 +192,7 @@ Public Class ClassImport_Windream
If IsNumeric(INDEX_ID) Then
Dim sql_AUTOindexresult = ClassDatabase.Execute_Scalar("SELECT SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE GUID = " & INDEX_ID, True)
If IsNothing(sql_AUTOindexresult) Then
- If LogErrorsOnly = False Then ClassLogger.Add(">> unexpected: sql_AUTOindexresult is nothing!!", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> unexpected: sql_AUTOindexresult is nothing!!", False)
value = ""
Else
If IsDBNull(sql_AUTOindexresult) Then
@@ -219,14 +219,14 @@ Public Class ClassImport_Windream
End If
ElseIf APattern.Contains("#") Then
- If LogErrorsOnly = False Then ClassLogger.Add(">> element filled with Record-Data.......: ", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> element filled with Record-Data.......: ", False)
Dim split() As String = APattern.Split("#")
If split.Length = 2 Then
Dim CONTROL_ID = split(1)
If IsNumeric(CONTROL_ID) Then
Dim CONTROLVALUE = ClassControlValues.Get_Control_Value_for_ID(CONTROL_ID, CURRENT_RECORD_ID)
If IsNothing(CONTROLVALUE) Then
- If LogErrorsOnly = False Then ClassLogger.Add(">> unexpected: CONTROLVALUE is nothing!!", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> unexpected: CONTROLVALUE is nothing!!", False)
value = ""
Else
If IsDBNull(CONTROLVALUE) Then
@@ -245,7 +245,7 @@ Public Class ClassImport_Windream
If value <> String.Empty Then
DATEINAME = DATEINAME.Replace(element.Value, value)
_NewFileString = DATEINAME
- If LogErrorsOnly = False Then ClassLogger.Add(">> Actual NEWFILESTRING: " & _NewFileString, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Actual NEWFILESTRING: " & _NewFileString, False)
' sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString
AnzahlIndexe += 1
' sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'"
diff --git a/app/DD-Record-Organiser/ClassLogger.vb b/app/DD-Record-Organiser/ClassLogger.vb
index d4635aa..efc1f3a 100644
--- a/app/DD-Record-Organiser/ClassLogger.vb
+++ b/app/DD-Record-Organiser/ClassLogger.vb
@@ -190,9 +190,9 @@ Public Class ClassLogger
Private Shared Sub ShowErrorMessage()
If Not ClassLogger.HasInformedAboutError Then
- MsgBox("Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & _
- vbNewLine & vbNewLine & "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & vbNewLine & "Im folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf von " & My.Application.Info.ProductName & " nicht zu stören.", _
- MsgBoxStyle.Information, "Fehler beim Öffnen der Logdatei")
+ MsgBox("Please make sure You can access the logpath and are able to write to the file. This may be due to security privileges or storage place in the drive." & _
+ vbNewLine & vbNewLine & "A logfile won't be written from now on." & vbNewLine & vbNewLine & "You won't be informed about further logdetails from now on.", _
+ MsgBoxStyle.Information, "Error opening Logfile")
ClassLogger.HasInformedAboutError = True
End If
End Sub
diff --git a/app/DD-Record-Organiser/ClassOfficeTemplate.vb b/app/DD-Record-Organiser/ClassOfficeTemplate.vb
index 6f8e142..b419223 100644
--- a/app/DD-Record-Organiser/ClassOfficeTemplate.vb
+++ b/app/DD-Record-Organiser/ClassOfficeTemplate.vb
@@ -41,7 +41,7 @@ Public Class ClassOfficeTemplate
' word.Visible = (True) 'Word sichtbar
For Each cc In doc.ContentControls
- If LogErrorsOnly = False Then ClassLogger.Add(">> Office-Pattern: " & cc.Tag, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Office-Pattern: " & cc.Tag, False)
For Each patternrow As System.Data.DataRow In DT_PATTERNS.Rows
If patternrow.Item("NAME_PATTERN").ToString.ToUpper = cc.Tag.ToString.ToUpper Then
If Not IsDBNull(patternrow.Item("FIXED_VALUE")) Then
@@ -53,7 +53,7 @@ Public Class ClassOfficeTemplate
Dim Control_ID = fvalue '.Replace("@CONTROLID:", "")
Try
If CInt(Control_ID) Then
- If LogErrorsOnly = False Then ClassLogger.Add(">> Get Value for Control-ID: " & Control_ID.ToString, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Get Value for Control-ID: " & Control_ID.ToString, False)
Dim value_akt = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID)
If Not IsNothing(value_akt) Then
cc.Range.Text = value_akt.ToString
@@ -66,7 +66,7 @@ Public Class ClassOfficeTemplate
End Try
'End If
'Else
- ' If LogErrorsOnly = False Then ClassLogger.Add(">> Pattern wird mit festem Wert '" & patternrow.Item("FIXED_VALUE") & "' gefüllt!", False)
+ ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Pattern wird mit festem Wert '" & patternrow.Item("FIXED_VALUE") & "' gefüllt!", False)
' cc.Range.Text = patternrow.Item("FIXED_VALUE").ToString
'End If
End If
diff --git a/app/DD-Record-Organiser/ClassWindream.vb b/app/DD-Record-Organiser/ClassWindream.vb
index c978508..76f995e 100644
--- a/app/DD-Record-Organiser/ClassWindream.vb
+++ b/app/DD-Record-Organiser/ClassWindream.vb
@@ -197,7 +197,7 @@ Public Class ClassWindream
Try
' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
oSession = CreateObject("Windream.WMSession", GetCurrentServer)
- If LogErrorsOnly = False Then ClassLogger.Add(">> windream-Server: '" & GetCurrentServer() & "'", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> windream-Server: '" & GetCurrentServer() & "'", False)
' Connection-Objekt instanziieren
oConnect = CreateObject("Windream.WMConnect")
'MsgBox("windrem init 'ed")
@@ -541,25 +541,23 @@ Public Class ClassWindream
aktWMObject = Nothing
If My.Computer.FileSystem.DirectoryExists(zielpfad) = False Then
My.Computer.FileSystem.CreateDirectory(zielpfad)
- ClassLogger.Add(" - Zielverzeichnis neu erzeugt!", False)
+ ClassLogger.Add(">> Zielverzeichnis neu erzeugt!", False)
End If
Const STREAM_BinaryObject = "BinaryObject"
- If LogErrorsOnly = False Then ClassLogger.Add(" - Stream_File wurde gestartet", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Stream_File wurde gestartet", False)
Dim endgültigerDateiname As String = ""
' Objekt für Datei und Zielverzeichnis anlegen
' Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle)
- If LogErrorsOnly = False Then ClassLogger.Add(" - Quelldatei gelesen", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Quelldatei gelesen", False)
'########
Dim Zielverzeichnis As String = zielpfad
endgültigerDateiname = CURRENT_NEWFILENAME.Substring(2)
-
- If LogErrorsOnly = False Then ClassLogger.Add(" - Zielverzeichnis erzeugt", False)
If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then
- If LogErrorsOnly = False Then ClassLogger.Add(" - targetPath exisitiert", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> targetPath exisitiert", False)
' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist
Dim dvr As New DriveInfo(vWLaufwerk & ":")
Dim freeSpace = dvr.TotalFreeSpace
@@ -572,7 +570,7 @@ Public Class ClassWindream
Return -10
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" - Datei kopieren von " & filenameQuelle & " nach " & endgültigerDateiname & ".", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei kopieren von " & filenameQuelle & " nach " & endgültigerDateiname & ".", False)
Dim Connect
Dim Session
Dim WMObject
@@ -580,15 +578,15 @@ Public Class ClassWindream
Dim aWMStream
Dim wmbrwsr
Dim dmsServer As String
- If LogErrorsOnly = False Then ClassLogger.Add(" - Connect definieren: CreateObject('Windream.WMConnect')", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Connect definieren: CreateObject('Windream.WMConnect')", False)
Connect = CreateObject("Windream.WMConnect")
aFileIO = New WMOTOOLLib.WMFileIO
'If My.Settings.DLL_WMOTOOL = "" Then
' aFileIO = New WMOTOOLLib.WMFileIO
- ' If LogErrorsOnly = False Then ClassLogger.Add(" - Direkter Verweis auf New WMOTOOLLib.WMFileIO", False)
+ ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Direkter Verweis auf New WMOTOOLLib.WMFileIO", False)
'Else
' aFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO
- ' If LogErrorsOnly = False Then ClassLogger.Add(" - Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False)
+ ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False)
'End If
wmbrwsr = CreateObject("WMOBrws.ServerBrowser")
@@ -606,10 +604,10 @@ Public Class ClassWindream
Connect.LoginSession(Session)
Dim LoggedIn = Session.aLoggedin
If LoggedIn Then
- If LogErrorsOnly = False Then ClassLogger.Add(" - Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False)
'MsgBox("Login ok. You are logged in as '" + Connect.UserName + "' on Server '" + dmsServer + "'")
Else
- ClassLogger.Add(" - Login on dms-Server failed", False)
+ ClassLogger.Add(">> Login on dms-Server failed", False)
' MsgBox("Login failed. ")
End If
Const WMCOMEventWMSessionNeedIndex = 1
@@ -619,13 +617,13 @@ Public Class ClassWindream
'==================================================================
' check if files exist
'==================================================================
- If LogErrorsOnly = False Then ClassLogger.Add(" - ÜBERPRÜFTER DATEINAME => " & endgültigerDateiname, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> ÜBERPRÜFTER DATEINAME => " & endgültigerDateiname, False)
Dim wdFilexists As Boolean
- If LogErrorsOnly = False Then ClassLogger.Add(" - Versuch auf die Datei in W: zuzugreifen und zu sperren...", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch auf die Datei in W: zuzugreifen und zu sperren...", False)
wdFilexists = Session.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0)
If wdFilexists = False Then
- If LogErrorsOnly = False Then ClassLogger.Add(" - Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False)
Err.Clear()
'==================================================================
' create an object
@@ -638,17 +636,17 @@ Public Class ClassWindream
' MsgBox("Created file: " + endgültigerDateiname)
Else
' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen
- If LogErrorsOnly = False Then ClassLogger.Add(" - Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False)
Err.Clear()
-
+
WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
If Err.Number > 0 Then
ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
'MsgBox(Err.Description)
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" - WMObject zugewiesen", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> WMObject zugewiesen", False)
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" - ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False)
If WMObject IsNot Nothing Then
' lock object for file system access (to change the file itself)
WMObject.lock()
@@ -672,7 +670,7 @@ Public Class ClassWindream
Return False
'MsgBox(Err.Description)
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" - oWMStream erzeugt", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> oWMStream erzeugt", False)
' give fileIO helper object the windream stream
aFileIO.aWMStream = aWMStream
If Err.Number > 0 Then
@@ -691,7 +689,7 @@ Public Class ClassWindream
Return False
' MsgBox(Err.Description)
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" - Inhalt der Datei konnte übertragen werden", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Inhalt der Datei konnte übertragen werden", False)
' close the windream file stream
aWMStream.Close()
If Err.Number > 0 Then
@@ -710,7 +708,7 @@ Public Class ClassWindream
Return Err.Number
'MsgBox(Err.Description)
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" - Datei konnte gespeichert werden", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei konnte gespeichert werden", False)
' unlock the windream object
WMObject.unlock()
If Err.Number > 0 Then
@@ -723,7 +721,6 @@ Public Class ClassWindream
'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist
Dim info2 As New FileInfo(vWLaufwerk & ":\" & endgültigerDateiname)
Dim length1 As Long = info2.Length
- If LogErrorsOnly = False Then ClassLogger.Add(" - Length der Zieldatei: " & length1.ToString, False)
If length1 > 0 And Err.Number = 0 Then
If endgültigerDateiname.StartsWith("\") Then
If endgültigerDateiname.StartsWith("\\") Then
@@ -735,7 +732,7 @@ Public Class ClassWindream
endgültigerDateiname = "\" & endgültigerDateiname
End If
CURRENT_FILEIN_WD = vWLaufwerk & ":" & endgültigerDateiname
- ClassLogger.Add(" - Datei '" & CURRENT_FILEIN_WD & "' wurde erfolgreich importiert!", False)
+ ClassLogger.Add(">> Datei '" & CURRENT_FILEIN_WD & "' wurde erfolgreich importiert!", False)
aktWMObject = WMObject
Return True
Else
@@ -747,7 +744,7 @@ Public Class ClassWindream
Return False
End If
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" - targetPath exisitiert NICHT", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> targetPath exisitiert NICHT", False)
Return False
End If
@@ -761,7 +758,7 @@ Public Class ClassWindream
'''
Public Shared Function DateiIndexieren(ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String)
Try
- If LogErrorsOnly = False Then ClassLogger.Add(" - DateiIndexieren wurde aufgerufen", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> DateiIndexieren wurde aufgerufen", False)
' das entsprechende Attribut aus windream auslesen
Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, _Indexname)
' den Variablentyp (String, Integer, ...) auslesen
@@ -772,7 +769,7 @@ Public Class ClassWindream
Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject
'MsgBox("DateiIndexieren:" & vbNewLine & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel & vbNewLine & Me.selectedProfile.DokumenttypString)
' den Dokumenttyp schreiben
- If LogErrorsOnly = False Then ClassLogger.Add(" ## Indexieren wird gestartet ##", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexieren wird gestartet", False)
' ein windream-Objekt der Datei anlegen
WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File)
Try
@@ -788,9 +785,9 @@ Public Class ClassWindream
' ihr den entsprechenden Dokumenttyp zuweisen
WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
- If LogErrorsOnly = False Then ClassLogger.Add(" - Objekttyp wird gesetzt", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp wird gesetzt", False)
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" - Objekttyp war bereits gesetzt", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp war bereits gesetzt", False)
End If
Try
@@ -806,46 +803,46 @@ Public Class ClassWindream
Catch ex As Exception
' wenn das entsperren nicht geklappt hat, dann war die Datei auch nicht gesperrt
End Try
- If LogErrorsOnly = False Then ClassLogger.Add(" - Datei wurde gespeichert / Unlock wurde durchgeführt", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei wurde gespeichert / Unlock wurde durchgeführt", False)
' wenn bis hierher alles geklappt hat wurde ein Dokumenttyp übergeben
- If LogErrorsOnly = False Then ClassLogger.Add(" - Objekttyp: " & _WDObjekttyp, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp: " & _WDObjekttyp, False)
' wenn keine Werte vorhanden sind, soll wenigstens der Dokumenttyp eingetragen werden
Dim indexe As String = ""
- If LogErrorsOnly = False Then ClassLogger.Add(" - Indexname: '" & _Indexname & "'", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexname: '" & _Indexname & "'", False)
Dim werte = New ArrayList
'Den Typ des Index-Feldes auslesen
'MsgBox(value.GetType.ToString)
-
+
If (GetTypeOfIndexAsIntByName(_Indexname) = WMObjectVariableValueTypeVector) Or GetTypeOfIndexAsIntByName(_Indexname) = 4097 Then
- If LogErrorsOnly = False Then ClassLogger.Add(" - Es handelt sich um ein Vektor-Feld", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Es handelt sich um ein Vektor-Feld", False)
'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt
- If LogErrorsOnly = False Then ClassLogger.Add(" - Wert vor Überprüfung: " & _Value, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Wert vor Überprüfung: " & _Value, False)
_Value = CheckIndexValue(_Value)
'Ausstieg da Fehler in der Überprüfung
If _Value Is Nothing Then
Return False
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" - Value für Indexierung: " & _Value, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Value für Indexierung: " & _Value, False)
werte.Add(_Value)
- If LogErrorsOnly = False Then ClassLogger.Add(" - Werte zu Array hinzugefügt!", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Werte zu Array hinzugefügt!", False)
Else
'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt
- If LogErrorsOnly = False Then ClassLogger.Add(" - Value vor Überprüfung: " & _Value, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Value vor Überprüfung: " & _Value, False)
_Value = CheckIndexValue(_Value)
'Ausstieg da Fehler in der Überprüfung
If _Value Is Nothing Then
Return False
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" - Value für Indexierung: " & _Value, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Value für Indexierung: " & _Value, False)
werte.Add(_Value)
End If
@@ -872,7 +869,37 @@ Public Class ClassWindream
Return False
End Try
End Function
- Private Shared Function RunIndexing(ByVal oDocument As WMObject, ByVal Indizes() As String, ByVal aValues() As Object)
+ Public Shared Function File_SetBooleanIndex(ByVal _value As Boolean, ByVal _dok As WINDREAMLib.WMObject, ByVal _Indexname As String, Optional SetOType As Boolean = True)
+ Try
+ If _Indexname <> "" Then
+ 'Überprüfen ob Boolean-Value bereits gesetzt wurde?
+ Dim akt_Status As Boolean = CBool(_dok.GetVariableValue(_Indexname))
+ If akt_Status <> _value Then
+ 'Index muß angepasst werden
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Index not set to '" & _value.ToString & "'", False)
+ Dim arrIndex() As String = Nothing
+ Dim arrValue() As String = Nothing
+ 'Nun die Datei indexieren
+ arrIndex = Nothing
+ arrValue = Nothing
+ ReDim Preserve arrIndex(0)
+ ReDim Preserve arrValue(0)
+ arrIndex(0) = _Indexname
+ arrValue(0) = _value.ToString
+ RunIndexing(_dok, arrIndex, arrValue, SetOType)
+ Else
+ 'Validation muß nicht angepasst werden
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Index already set to '" & _value.ToString & "'", False)
+ End If
+ End If
+ Catch ex As Exception
+ ClassLogger.Add("Unexpected Error in File_SetBooleanIndex!")
+ ClassLogger.Add("Error-Description: " & ex.Message)
+ End Try
+
+
+ End Function
+ Private Shared Function RunIndexing(ByVal oDocument As WMObject, ByVal Indizes() As String, ByVal aValues() As Object, Optional setOType As Boolean = True)
Dim vektInsState As Integer = 1
Try
If Indizes IsNot Nothing And aValues IsNot Nothing Then
@@ -881,32 +908,33 @@ Public Class ClassWindream
Dim i As Integer = 0
Dim indexname As String
If aValues.Length = 1 And aValues(0) = "" Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert ist leer/Nothing - Keine Nachindexierung", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue is empty - No indexing", False)
End If
' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
- If oDocument.aObjectType.aName <> _WDObjekttyp Then
+ If oDocument.aObjectType.aName <> _WDObjekttyp And setOType = True Then
' ihr den entsprechenden Dokumenttyp zuweisen
oDocument.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp '" & oDocument.aObjectType.aName & "' wurde in '" & _WDObjekttyp & "' geändert.", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Objecttype '" & oDocument.aObjectType.aName & "' was changed to '" & _WDObjekttyp, False)
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp war bereits gesetzt", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Objecttype was set already.", False)
+ End If
+ If setOType = True Then
+ Try
+ oDocument.Save()
+ Catch ex As Exception
+ ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Objekttyp gesetzt werden -> es kann also auch keine
+ ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden
+ Return False
+ End Try
End If
-
- Try
- oDocument.Save()
- Catch ex As Exception
- ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine
- ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden
- Return False
- End Try
'Jetzt jeden Indexwert durchlaufen
For Each aName As String In Indizes
indexname = aName
If LogErrorsOnly = False Then
ClassLogger.Add(" ", False)
- ClassLogger.Add(" >> Indexierung von Index '" & indexname & "'", False)
+ ClassLogger.Add(" >> Indexing of index '" & indexname & "'", False)
End If
' das entsprechende Attribut aus windream auslesen
Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i))
@@ -938,7 +966,7 @@ Public Class ClassWindream
If LogErrorsOnly = False Then ClassLogger.Add(" >> type of windreamIndex WMObjectVariableValueTypeInteger", False)
value = value.ToString.Replace(" ", "")
If IsNumeric(value) = False Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Attention: Value '" & value & "' can not be converted to integer!", False)
End If
value = value.ToString.Replace(" ", "")
convertValue = CInt(value)
@@ -1022,7 +1050,7 @@ Public Class ClassWindream
End Select
If vektor = False Then
If convertValue.ToString Is Nothing = False Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Konvertierter Wert: '" & convertValue.ToString & "'", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Converted valuet: '" & convertValue.ToString & "'", False)
End If
End If
'############################################################################################
@@ -1031,7 +1059,7 @@ Public Class ClassWindream
If vektor = False Then
Try
If convertValue.ToString Is Nothing = False Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Now: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")", False)
If _int = True Then
convertValue = convertValue.ToString.Replace(" ", "")
oDocument.SetVariableValue(aName, CInt(convertValue))
@@ -1048,11 +1076,11 @@ Public Class ClassWindream
'Die Datei speichern
oDocument.Save()
If LogErrorsOnly = False Then
- ClassLogger.Add(" >> Index '" & aName & "' wurde geschrieben", False)
+ ClassLogger.Add(" >> index '" & aName & "' was written", False)
ClassLogger.Add("", False)
End If
Else
- ClassLogger.Add(" >> Kein Indexwert vorhanden", False)
+ ClassLogger.Add(" >> No indexvalue exists", False)
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in SetVariableValue für Index '" & aName & "': " & ex.Message, True)
@@ -1060,7 +1088,7 @@ Public Class ClassWindream
oDocument.unlock()
Return False
End Try
-
+
Else
'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
If LogErrorsOnly = False Then ClassLogger.Add(" >> Vectorfield: Preparing of Array", False)
@@ -1074,7 +1102,7 @@ Public Class ClassWindream
Dim Anzahl As Integer = aValues.Length
'Vektorfeld wird mit EINEM Wert gefüllt
If Anzahl = 0 Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Vectorfield willl be filled with ONE VALUE", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Vectorfield will be filled with ONE VALUE", False)
ReDim myArray(0)
Select Case vType
Case 36865
@@ -1238,19 +1266,18 @@ Public Class ClassWindream
End If
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Array der Indexwerte ist leer/Nothing - Keine Nachindexierung", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Array of indexvalues is nothing - No indexing", False)
End If
i += 1
Next
oDocument.unlock()
If LogErrorsOnly = False Then
- ClassLogger.Add(">> ...und Unlock durchgeführt)", False)
- ClassLogger.Add("", False)
+ ClassLogger.Add(" >> ...and unlock.", False)
End If
Return True
Else
- ClassLogger.Add(" >> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!", False)
+ ClassLogger.Add(" >> document is locked!", False)
'oDocument.unlock()
Return False
End If
@@ -1364,7 +1391,7 @@ Public Class ClassWindream
''' Liefert True wenn das Indexieren erfolgreich war, sonst False
'''
Private Shared Function Indexiere(ByVal filenameZiel As String, ByVal index As String, ByVal werte As Object)
- If LogErrorsOnly = False Then ClassLogger.Add(" - In Indexierungsvorgang für: " & filenameZiel, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> In Indexierungsvorgang für: " & filenameZiel, False)
Try
Dim WMObject As WINDREAMLib.WMObject = Nothing '= CreateObject("WINDREAMLib.WMObject") '= New WINDREAMLib.WMObject 'CreateObject("WINDREAMLib.WMObject")
'MsgBox("Indexiere: " & vbNewLine & filenameZiel)
@@ -1450,7 +1477,7 @@ Public Class ClassWindream
' wenn es sich bei dem Index NICHT um ein Vektorfeld handelt
If TypDesIndexes < WMObjectVariableValueTypeVector Then
- If LogErrorsOnly = False Then ClassLogger.Add(" - Bei dem Zielindex handelt es sich um einen Einzelindex.", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Bei dem Zielindex handelt es sich um einen Einzelindex.", False)
Else
If LogErrorsOnly = False Then ClassLogger.Add(" Bei dem Zielindex handelt es sich um ein Vektorfeld.", False)
' ein Backup der Indexwerte anlegen
@@ -1460,7 +1487,7 @@ Public Class ClassWindream
' dann soll nur der letzte Wert des Arrays übernommen werden, damit nicht versucht wird ein
' Array in einen Einzelindex zu speichern
werte = temp
- If LogErrorsOnly = False Then ClassLogger.Add(" - Array geleert und erneuert!", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Array geleert und erneuert!", False)
End If
Catch ex As Exception
ClassLogger.Add("Hinweis: Beim Initialisieren der Datei auf dem windream-Laufwerk ist ein Fehler aufgetreten.", False)
@@ -1470,7 +1497,7 @@ Public Class ClassWindream
'Try
' den Typ des Zielindexes
- If LogErrorsOnly = False Then ClassLogger.Add(" - Typ des Indexes: " & TypDesIndexes.ToString, False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des Indexes: " & TypDesIndexes.ToString, False)
Select Case (TypDesIndexes)
Case WMObjectVariableValueTypeUndefined ' zu klären !!!!
'convertValue = vbEmpty
@@ -1688,13 +1715,13 @@ Public Class ClassWindream
' die Indexinformationen des Dokuments speichern
WMObject.Save()
- If LogErrorsOnly = False Then ClassLogger.Add(" - die Indexinformationen des Dokuments speichern", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> die Indexinformationen des Dokuments speichern", False)
' Unlock in einem unbehandelten Try-Block um Fehler abzufangen,
' wenn eine Datei nicht gesperrt ist
Try
' die Sperrung des Dokuments aufheben
WMObject.unlock()
- If LogErrorsOnly = False Then ClassLogger.Add(" - die Sperrung des Dokuments aufheben", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> die Sperrung des Dokuments aufheben", False)
Catch ex As Exception
' nichts tun (Datei war nicht gesperrt)
End Try
diff --git a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj
index 08e235b..1f6dd0f 100644
--- a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj
+++ b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj
@@ -248,6 +248,12 @@
+
+ frmGroup_Rights.vb
+
+
+ Form
+
frmWD_Import_Doc_Record.vb
@@ -596,6 +602,9 @@
frmConstructor_Main.vb
+
+ frmGroup_Rights.vb
+
frmWD_Import_Doc_Record.vb
@@ -666,6 +675,7 @@
frmConstructor_Main.vb
+ Designer
frmLanguage_Translator.vb
@@ -784,6 +794,7 @@
frmEntities.vb
+ Designer
frmForm_Input.vb
@@ -1150,6 +1161,7 @@
+
diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsc b/app/DD-Record-Organiser/DD_DMSDataSet.xsc
index d66e3da..6cf7288 100644
--- a/app/DD-Record-Organiser/DD_DMSDataSet.xsc
+++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsc
@@ -127,6 +127,11 @@
+
+
+
+
+
diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsd b/app/DD-Record-Organiser/DD_DMSDataSet.xsd
index 7eb509d..ee39252 100644
--- a/app/DD-Record-Organiser/DD_DMSDataSet.xsd
+++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsd
@@ -609,7 +609,7 @@ SELECT GUID, STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR
- SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) AS ASSTATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR,
+ SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) AS STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR,
LANGUAGE
FROM TBPMO_WORKFLOW_TASK_STATE
WHERE (GUID IN
@@ -715,137 +715,6 @@ SELECT GUID, TITLE, DESCRIPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE
-
-
-
-
-
- DELETE FROM TBPMO_WORKFLOW_FORM
-WHERE (GUID = @Original_GUID)
-
-
-
-
-
-
-
- INSERT INTO TBPMO_WORKFLOW_FORM
- (FORM_ID, WF_ID, SEQUENCE, ADDED_WHO)
-VALUES (@FORM_ID,@WF_ID,@SEQUENCE,@ADDED_WHO);
-SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW_FORM WHERE (GUID = SCOPE_IDENTITY())
-
-
-
-
-
-
-
-
-
-
- SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
-FROM TBPMO_WORKFLOW_FORM
-WHERE (FORM_ID = @FORM_ID)
-
-
-
-
-
-
-
- UPDATE TBPMO_WORKFLOW_FORM
-SET FORM_ID = @FORM_ID, WF_ID = @WF_ID, SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO
-WHERE (GUID = @Original_GUID);
-SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW_FORM WHERE (GUID = @GUID)
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- SELECT T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMMENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_WHEN, T2.TASK_DATE
-FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN
- TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID
-WHERE (T2.GUID NOT IN
- (SELECT WF_TASK_ID
- FROM VWPMO_WF_USER_EXCLUSIV
- WHERE (WF_TASK_ID NOT IN
- (SELECT WF_TASK_ID
- FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1
- WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (T2.STATE_ID NOT IN
- (SELECT WORKFLOW_FINAL_STATE1
- FROM TBPMO_KONFIGURATION
- WHERE (GUID = 1))) AND (T2.ACTIVE = 1)
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- SELECT T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMMENT, T2.DUE_DATE, @USER_NAME AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_WHEN,
- T2.TASK_DATE
-FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN
- TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID
-WHERE (T2.GUID NOT IN
- (SELECT WF_TASK_ID
- FROM VWPMO_WF_USER_EXCLUSIV
- WHERE (WF_TASK_ID NOT IN
- (SELECT WF_TASK_ID
- FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1
- WHERE (UPPER(USERNAME) = UPPER(@USER_NAME)))))) AND (T2.STATE_ID NOT IN
- (SELECT WORKFLOW_FINAL_STATE1
- FROM TBPMO_KONFIGURATION
- WHERE (GUID = 1))) AND (T2.ACTIVE = 1) AND (T2.RECORD_ID = @RECORD)
-
-
-
-
-
-
-
-
-
@@ -2159,60 +2028,6 @@ WHERE (RECORD_ID = @RECORD_ID)
-
-
-
-
-
- SELECT WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, WF_ENT_GUID, WF_ID
-FROM VWPMO_WF_ACTIVE
-WHERE (WF_TASK_ID NOT IN
- (SELECT GUID
- FROM VWPMO_WF_USER_EXCLUSIV
- WHERE (UPPER(USERNAME) <> UPPER(@USERNAME))))
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- SELECT TOP (1) WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, WF_ENT_GUID, WF_ID
-FROM VWPMO_WF_ACTIVE
-WHERE (RECORD_ID = @RECID) AND (WF_TASK_ID NOT IN
- (SELECT GUID
- FROM VWPMO_WF_USER_EXCLUSIV
- WHERE (UPPER(USERNAME) <> UPPER(@USERNAME))))
-
-
-
-
-
-
-
-
-
@@ -3178,6 +2993,157 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH
+
+
+
+
+
+ SELECT WF_TASK_ID, WF_ID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'TASK_TITLE' + CONVERT(VARCHAR(5), WF_ID), 1) AS WF_TITLE, RECORD_ID, STATE_ID,
+ dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), STATE_ID), 1) AS STATE_TITLE, FORM_VIEW_ID, ENTITY_ID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE,
+ 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), 1) AS 'ENTITY_TITLE', COMMENT, DUE_DATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR,
+ @USER AS USERNAME, dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(RECORD_ID) AS RECORD_DESCRIPTION
+FROM VWPMO_WF_ACTIVE AS T
+WHERE (WF_TASK_ID NOT IN
+ (SELECT WF_TASK_ID
+ FROM VWPMO_WF_USER_EXCLUSIV
+ WHERE (WF_TASK_ID NOT IN
+ (SELECT WF_TASK_ID
+ FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1
+ WHERE (UPPER(USERNAME) = UPPER(@USER))))))
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ SELECT WF_TASK_ID, WF_ID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'TASK_TITLE' + CONVERT(VARCHAR(5), WF_ID), 1) AS WF_TITLE, RECORD_ID, STATE_ID,
+ dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), STATE_ID), 1) AS STATE_TITLE, FORM_VIEW_ID, ENTITY_ID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE,
+ 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), 1) AS 'ENTITY_TITLE', COMMENT, DUE_DATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR,
+ @USER AS USERNAME, dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(RECORD_ID) AS RECORD_DESCRIPTION
+FROM VWPMO_WF_ACTIVE AS T
+WHERE (WF_TASK_ID NOT IN
+ (SELECT WF_TASK_ID
+ FROM VWPMO_WF_USER_EXCLUSIV
+ WHERE (WF_TASK_ID NOT IN
+ (SELECT WF_TASK_ID
+ FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1
+ WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (RECORD_ID = @RECORD_ID)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ DELETE FROM TBPMO_RIGHT_GROUP
+WHERE (GUID = @Original_GUID)
+
+
+
+
+
+
+
+ INSERT INTO TBPMO_RIGHT_GROUP
+ (ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO)
+VALUES (@ENTITY_ID,@GROUP_ID,@EDIT_REC,@ADD_REC,@DELETE_REC,@ADD_DOC,@VIEW_DOC,@DELETE_DOC,@ADDED_WHO);
+SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RIGHT_GROUP WHERE (GUID = SCOPE_IDENTITY())
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ SELECT TBPMO_RIGHT_GROUP.*
+FROM TBPMO_RIGHT_GROUP
+
+
+
+
+
+ UPDATE TBPMO_RIGHT_GROUP
+SET ENTITY_ID = @ENTITY_ID, GROUP_ID = @GROUP_ID, EDIT_REC = @EDIT_REC, ADD_REC = @ADD_REC, DELETE_REC = @DELETE_REC, ADD_DOC = @ADD_DOC, VIEW_DOC = @VIEW_DOC,
+ DELETE_DOC = @DELETE_DOC, CHANGED_WHO = @CHANGED_WHO
+WHERE (GUID = @Original_GUID);
+SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RIGHT_GROUP WHERE (GUID = @GUID)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -3643,73 +3609,6 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
@@ -4680,63 +4579,6 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
@@ -5440,6 +5282,110 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -5470,14 +5416,6 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH
-
-
-
-
-
-
-
-
@@ -5546,10 +5484,6 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH
-
-
-
-
@@ -5602,14 +5536,14 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH
+
+
+
+
-
-
-
-
@@ -5625,6 +5559,8 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH
+
+
\ No newline at end of file
diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xss b/app/DD-Record-Organiser/DD_DMSDataSet.xss
index 83cd8a8..28f5aa8 100644
--- a/app/DD-Record-Organiser/DD_DMSDataSet.xss
+++ b/app/DD-Record-Organiser/DD_DMSDataSet.xss
@@ -4,56 +4,54 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
-->
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
437
@@ -69,63 +67,7 @@
-
-
-
- 413
- 652
-
-
- 413
- 932
-
-
-
-
-
-
- 325
- 888
-
-
- 325
- 932
-
-
-
-
-
-
- 1084
- 580
-
-
- 1084
- 597
-
-
- 1878
- 597
-
-
-
-
-
-
- 1233
- 736
-
-
- 1233
- 651
-
-
- 1878
- 651
-
-
-
-
+
1701
@@ -137,7 +79,7 @@
-
+
1627
@@ -149,7 +91,7 @@
-
+
710
@@ -165,7 +107,7 @@
-
+
1374
@@ -181,7 +123,7 @@
-
+
842
@@ -193,7 +135,7 @@
-
+
107
@@ -213,7 +155,7 @@
-
+
1632
@@ -225,7 +167,7 @@
-
+
1358
@@ -237,7 +179,7 @@
-
+
601
@@ -253,7 +195,7 @@
-
+
618
@@ -265,7 +207,7 @@
-
+
2461
@@ -281,7 +223,7 @@
-
+
2358
@@ -293,7 +235,7 @@
-
+
2134
@@ -309,7 +251,7 @@
-
+
2142
@@ -325,7 +267,7 @@
-
+
141
diff --git a/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb b/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb
index 86d3a47..97f6eb8 100644
--- a/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb
+++ b/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb
@@ -45,10 +45,6 @@ Partial Public Class DD_DMSDataSet
Private tableTBPMO_WORKFLOW As TBPMO_WORKFLOWDataTable
- Private tableTBPMO_WORKFLOW_FORM As TBPMO_WORKFLOW_FORMDataTable
-
- Private tableVWPMO_WF_USER_ACTIVE As VWPMO_WF_USER_ACTIVEDataTable
-
Private tableVWPMO_WF_OVERVIEW_AUTHORITY As VWPMO_WF_OVERVIEW_AUTHORITYDataTable
Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable
@@ -87,8 +83,6 @@ Partial Public Class DD_DMSDataSet
Private tableVWPMO_RECORD_CHANGES As VWPMO_RECORD_CHANGESDataTable
- Private tableVWPMO_WF_ACTIVE As VWPMO_WF_ACTIVEDataTable
-
Private tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable
Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable
@@ -115,16 +109,12 @@ Partial Public Class DD_DMSDataSet
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 relationFK_TBPMO_FORM_VIEW_FORM_ID As Global.System.Data.DataRelation
- Private relationFK_TBPMO_WORKFLOW_FORM_FV_ID As Global.System.Data.DataRelation
-
- Private relationFK_TTBPMO_WORKFLOW_FORM_WF_ID As Global.System.Data.DataRelation
-
- Private relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID As Global.System.Data.DataRelation
-
- Private relationFK_TBPMO_WORKFLOW_TASK_STATE_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
@@ -155,6 +145,10 @@ Partial Public Class DD_DMSDataSet
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 _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
_
- Public ReadOnly Property TBPMO_WORKFLOW_FORM() As TBPMO_WORKFLOW_FORMDataTable
- Get
- Return Me.tableTBPMO_WORKFLOW_FORM
- End Get
- End Property
-
- _
- Public ReadOnly Property VWPMO_WF_USER_ACTIVE() As VWPMO_WF_USER_ACTIVEDataTable
- Get
- Return Me.tableVWPMO_WF_USER_ACTIVE
- 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 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
+
_
- Private Function ShouldSerializeTBPMO_WORKFLOW_FORM() As Boolean
- Return false
- End Function
-
- _
- Private Function ShouldSerializeVWPMO_WF_USER_ACTIVE() As Boolean
- Return false
- End Function
-
_
Private Function ShouldSerializeVWPMO_WF_OVERVIEW_AUTHORITY() As Boolean
@@ -1638,12 +1590,6 @@ Partial Public Class DD_DMSDataSet
Return false
End Function
- _
- Private Function ShouldSerializeVWPMO_WF_ACTIVE() As Boolean
- Return false
- End Function
-
_
Private Function ShouldSerializeTBDD_EMAIL_ACCOUNT() As Boolean
@@ -1722,6 +1668,18 @@ Partial Public Class DD_DMSDataSet
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 Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
@@ -1810,12 +1768,6 @@ Partial Public Class DD_DMSDataSet
_
Public Delegate Sub TBPMO_WORKFLOWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOWRowChangeEvent)
- _
- Public Delegate Sub TBPMO_WORKFLOW_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_FORMRowChangeEvent)
-
- _
- Public Delegate Sub VWPMO_WF_USER_ACTIVERowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_USER_ACTIVERowChangeEvent)
-
_
Public Delegate Sub VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent)
@@ -1873,9 +1825,6 @@ Partial Public Class DD_DMSDataSet
_
Public Delegate Sub VWPMO_RECORD_CHANGESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RECORD_CHANGESRowChangeEvent)
- _
- Public Delegate Sub VWPMO_WF_ACTIVERowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_ACTIVERowChangeEvent)
-
_
Public Delegate Sub TBDD_EMAIL_ACCOUNTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EMAIL_ACCOUNTRowChangeEvent)
@@ -1915,6 +1864,12 @@ Partial Public Class DD_DMSDataSet
_
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)
+
'''
'''Represents the strongly named DataTable class.
'''
@@ -6064,781 +6019,6 @@ Partial Public Class DD_DMSDataSet
End Function
End Class
- '''
- '''Represents the strongly named DataTable class.
- '''
- _
- Partial Public Class TBPMO_WORKFLOW_FORMDataTable
- Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOW_FORMRow)
-
- Private columnGUID As Global.System.Data.DataColumn
-
- Private columnFORM_ID As Global.System.Data.DataColumn
-
- Private columnWF_ID As Global.System.Data.DataColumn
-
- Private columnSEQUENCE 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
-
- _
- Public Sub New()
- MyBase.New
- Me.TableName = "TBPMO_WORKFLOW_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 FORM_IDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnFORM_ID
- End Get
- End Property
-
- _
- Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnWF_ID
- End Get
- End Property
-
- _
- Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnSEQUENCE
- 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 Count() As Integer
- Get
- Return Me.Rows.Count
- End Get
- End Property
-
- _
- Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WORKFLOW_FORMRow
- Get
- Return CType(Me.Rows(index),TBPMO_WORKFLOW_FORMRow)
- End Get
- End Property
-
- _
- Public Event TBPMO_WORKFLOW_FORMRowChanging As TBPMO_WORKFLOW_FORMRowChangeEventHandler
-
- _
- Public Event TBPMO_WORKFLOW_FORMRowChanged As TBPMO_WORKFLOW_FORMRowChangeEventHandler
-
- _
- Public Event TBPMO_WORKFLOW_FORMRowDeleting As TBPMO_WORKFLOW_FORMRowChangeEventHandler
-
- _
- Public Event TBPMO_WORKFLOW_FORMRowDeleted As TBPMO_WORKFLOW_FORMRowChangeEventHandler
-
- _
- Public Overloads Sub AddTBPMO_WORKFLOW_FORMRow(ByVal row As TBPMO_WORKFLOW_FORMRow)
- Me.Rows.Add(row)
- End Sub
-
- _
- Public Overloads Function AddTBPMO_WORKFLOW_FORMRow(ByVal parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID As TBPMO_FORMRow, ByVal parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID As TBPMO_WORKFLOWRow, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WORKFLOW_FORMRow
- Dim rowTBPMO_WORKFLOW_FORMRow As TBPMO_WORKFLOW_FORMRow = CType(Me.NewRow,TBPMO_WORKFLOW_FORMRow)
- Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
- If (Not (parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID) Is Nothing) Then
- columnValuesArray(1) = parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID(0)
- End If
- If (Not (parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID) Is Nothing) Then
- columnValuesArray(2) = parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID(0)
- End If
- rowTBPMO_WORKFLOW_FORMRow.ItemArray = columnValuesArray
- Me.Rows.Add(rowTBPMO_WORKFLOW_FORMRow)
- Return rowTBPMO_WORKFLOW_FORMRow
- End Function
-
- _
- Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOW_FORMRow
- Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOW_FORMRow)
- End Function
-
- _
- Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As TBPMO_WORKFLOW_FORMDataTable = CType(MyBase.Clone,TBPMO_WORKFLOW_FORMDataTable)
- cln.InitVars
- Return cln
- End Function
-
- _
- Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
- Return New TBPMO_WORKFLOW_FORMDataTable()
- End Function
-
- _
- Friend Sub InitVars()
- Me.columnGUID = MyBase.Columns("GUID")
- Me.columnFORM_ID = MyBase.Columns("FORM_ID")
- Me.columnWF_ID = MyBase.Columns("WF_ID")
- Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
- 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")
- 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.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnFORM_ID)
- Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnWF_ID)
- Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnSEQUENCE)
- 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
- Me.columnGUID.AutoIncrement = true
- Me.columnGUID.AllowDBNull = false
- Me.columnGUID.ReadOnly = true
- Me.columnGUID.Unique = true
- Me.columnFORM_ID.AllowDBNull = false
- Me.columnWF_ID.AllowDBNull = false
- Me.columnADDED_WHO.AllowDBNull = false
- Me.columnADDED_WHO.MaxLength = 50
- Me.columnCHANGED_WHO.MaxLength = 50
- End Sub
-
- _
- Public Function NewTBPMO_WORKFLOW_FORMRow() As TBPMO_WORKFLOW_FORMRow
- Return CType(Me.NewRow,TBPMO_WORKFLOW_FORMRow)
- End Function
-
- _
- Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
- Return New TBPMO_WORKFLOW_FORMRow(builder)
- End Function
-
- _
- Protected Overrides Function GetRowType() As Global.System.Type
- Return GetType(TBPMO_WORKFLOW_FORMRow)
- End Function
-
- _
- Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanged(e)
- If (Not (Me.TBPMO_WORKFLOW_FORMRowChangedEvent) Is Nothing) Then
- RaiseEvent TBPMO_WORKFLOW_FORMRowChanged(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action))
- End If
- End Sub
-
- _
- Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanging(e)
- If (Not (Me.TBPMO_WORKFLOW_FORMRowChangingEvent) Is Nothing) Then
- RaiseEvent TBPMO_WORKFLOW_FORMRowChanging(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action))
- End If
- End Sub
-
- _
- Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleted(e)
- If (Not (Me.TBPMO_WORKFLOW_FORMRowDeletedEvent) Is Nothing) Then
- RaiseEvent TBPMO_WORKFLOW_FORMRowDeleted(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action))
- End If
- End Sub
-
- _
- Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleting(e)
- If (Not (Me.TBPMO_WORKFLOW_FORMRowDeletingEvent) Is Nothing) Then
- RaiseEvent TBPMO_WORKFLOW_FORMRowDeleting(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action))
- End If
- End Sub
-
- _
- Public Sub RemoveTBPMO_WORKFLOW_FORMRow(ByVal row As TBPMO_WORKFLOW_FORMRow)
- Me.Rows.Remove(row)
- End Sub
-
- _
- Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
- Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
- Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
- Dim ds As DD_DMSDataSet = New DD_DMSDataSet()
- Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any1.Namespace = "http://www.w3.org/2001/XMLSchema"
- any1.MinOccurs = New Decimal(0)
- any1.MaxOccurs = Decimal.MaxValue
- any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any1)
- Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
- any2.MinOccurs = New Decimal(1)
- any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any2)
- Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute1.Name = "namespace"
- attribute1.FixedValue = ds.Namespace
- type.Attributes.Add(attribute1)
- Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute2.Name = "tableTypeName"
- attribute2.FixedValue = "TBPMO_WORKFLOW_FORMDataTable"
- type.Attributes.Add(attribute2)
- type.Particle = sequence
- Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
- If xs.Contains(dsSchema.TargetNamespace) Then
- Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Try
- Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
- dsSchema.Write(s1)
- Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
- Do While schemas.MoveNext
- schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
- s2.SetLength(0)
- schema.Write(s2)
- If (s1.Length = s2.Length) Then
- s1.Position = 0
- s2.Position = 0
-
- Do While ((s1.Position <> s1.Length) _
- AndAlso (s1.ReadByte = s2.ReadByte))
-
-
- Loop
- If (s1.Position = s1.Length) Then
- Return type
- End If
- End If
-
- Loop
- Finally
- If (Not (s1) Is Nothing) Then
- s1.Close
- End If
- If (Not (s2) Is Nothing) Then
- s2.Close
- End If
- End Try
- End If
- xs.Add(dsSchema)
- Return type
- End Function
- End Class
-
- '''
- '''Represents the strongly named DataTable class.
- '''
- _
- Partial Public Class VWPMO_WF_USER_ACTIVEDataTable
- Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_USER_ACTIVERow)
-
- Private columnWF_TASK_ID As Global.System.Data.DataColumn
-
- Private columnTITLE As Global.System.Data.DataColumn
-
- Private columnRECORD_ID As Global.System.Data.DataColumn
-
- Private columnSTATE_ID As Global.System.Data.DataColumn
-
- Private columnCOMMENT As Global.System.Data.DataColumn
-
- Private columnDUE_DATE As Global.System.Data.DataColumn
-
- Private columnUSERNAME 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 columnTASK_DATE As Global.System.Data.DataColumn
-
- _
- Public Sub New()
- MyBase.New
- Me.TableName = "VWPMO_WF_USER_ACTIVE"
- 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 WF_TASK_IDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnWF_TASK_ID
- End Get
- End Property
-
- _
- Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTITLE
- End Get
- End Property
-
- _
- Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnRECORD_ID
- End Get
- End Property
-
- _
- Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnSTATE_ID
- End Get
- End Property
-
- _
- Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCOMMENT
- End Get
- End Property
-
- _
- Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnDUE_DATE
- End Get
- End Property
-
- _
- Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnUSERNAME
- 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 TASK_DATEColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTASK_DATE
- 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 VWPMO_WF_USER_ACTIVERow
- Get
- Return CType(Me.Rows(index),VWPMO_WF_USER_ACTIVERow)
- End Get
- End Property
-
- _
- Public Event VWPMO_WF_USER_ACTIVERowChanging As VWPMO_WF_USER_ACTIVERowChangeEventHandler
-
- _
- Public Event VWPMO_WF_USER_ACTIVERowChanged As VWPMO_WF_USER_ACTIVERowChangeEventHandler
-
- _
- Public Event VWPMO_WF_USER_ACTIVERowDeleting As VWPMO_WF_USER_ACTIVERowChangeEventHandler
-
- _
- Public Event VWPMO_WF_USER_ACTIVERowDeleted As VWPMO_WF_USER_ACTIVERowChangeEventHandler
-
- _
- Public Overloads Sub AddVWPMO_WF_USER_ACTIVERow(ByVal row As VWPMO_WF_USER_ACTIVERow)
- Me.Rows.Add(row)
- End Sub
-
- _
- Public Overloads Function AddVWPMO_WF_USER_ACTIVERow(ByVal TITLE As String, ByVal parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID As TBPMO_RECORDRow, ByVal parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID As TBPMO_WORKFLOW_TASK_STATERow, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal USERNAME As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal TASK_DATE As Date) As VWPMO_WF_USER_ACTIVERow
- Dim rowVWPMO_WF_USER_ACTIVERow As VWPMO_WF_USER_ACTIVERow = CType(Me.NewRow,VWPMO_WF_USER_ACTIVERow)
- Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, Nothing, Nothing, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE}
- If (Not (parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID) Is Nothing) Then
- columnValuesArray(2) = parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID(0)
- End If
- If (Not (parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID) Is Nothing) Then
- columnValuesArray(3) = parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID(0)
- End If
- rowVWPMO_WF_USER_ACTIVERow.ItemArray = columnValuesArray
- Me.Rows.Add(rowVWPMO_WF_USER_ACTIVERow)
- Return rowVWPMO_WF_USER_ACTIVERow
- End Function
-
- _
- Public Function FindByWF_TASK_ID(ByVal WF_TASK_ID As Integer) As VWPMO_WF_USER_ACTIVERow
- Return CType(Me.Rows.Find(New Object() {WF_TASK_ID}),VWPMO_WF_USER_ACTIVERow)
- End Function
-
- _
- Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As VWPMO_WF_USER_ACTIVEDataTable = CType(MyBase.Clone,VWPMO_WF_USER_ACTIVEDataTable)
- cln.InitVars
- Return cln
- End Function
-
- _
- Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
- Return New VWPMO_WF_USER_ACTIVEDataTable()
- End Function
-
- _
- Friend Sub InitVars()
- Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID")
- Me.columnTITLE = MyBase.Columns("TITLE")
- Me.columnRECORD_ID = MyBase.Columns("RECORD_ID")
- Me.columnSTATE_ID = MyBase.Columns("STATE_ID")
- Me.columnCOMMENT = MyBase.Columns("COMMENT")
- Me.columnDUE_DATE = MyBase.Columns("DUE_DATE")
- Me.columnUSERNAME = MyBase.Columns("USERNAME")
- Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
- Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
- Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
- Me.columnTASK_DATE = MyBase.Columns("TASK_DATE")
- End Sub
-
- _
- Private Sub InitClass()
- Me.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnWF_TASK_ID)
- Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnTITLE)
- Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnRECORD_ID)
- Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnSTATE_ID)
- Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCOMMENT)
- Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnDUE_DATE)
- Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnUSERNAME)
- 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.columnTASK_DATE = New Global.System.Data.DataColumn("TASK_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnTASK_DATE)
- Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWF_TASK_ID}, true))
- Me.columnWF_TASK_ID.AutoIncrement = true
- Me.columnWF_TASK_ID.AutoIncrementSeed = -1
- Me.columnWF_TASK_ID.AutoIncrementStep = -1
- Me.columnWF_TASK_ID.AllowDBNull = false
- Me.columnWF_TASK_ID.ReadOnly = true
- Me.columnWF_TASK_ID.Unique = true
- Me.columnTITLE.AllowDBNull = false
- Me.columnTITLE.MaxLength = 100
- Me.columnRECORD_ID.AllowDBNull = false
- Me.columnSTATE_ID.AllowDBNull = false
- Me.columnCOMMENT.MaxLength = 500
- Me.columnUSERNAME.ReadOnly = true
- Me.columnUSERNAME.MaxLength = 1024
- Me.columnADDED_WHEN.AllowDBNull = false
- Me.columnCHANGED_WHO.MaxLength = 50
- End Sub
-
- _
- Public Function NewVWPMO_WF_USER_ACTIVERow() As VWPMO_WF_USER_ACTIVERow
- Return CType(Me.NewRow,VWPMO_WF_USER_ACTIVERow)
- End Function
-
- _
- Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
- Return New VWPMO_WF_USER_ACTIVERow(builder)
- End Function
-
- _
- Protected Overrides Function GetRowType() As Global.System.Type
- Return GetType(VWPMO_WF_USER_ACTIVERow)
- End Function
-
- _
- Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanged(e)
- If (Not (Me.VWPMO_WF_USER_ACTIVERowChangedEvent) Is Nothing) Then
- RaiseEvent VWPMO_WF_USER_ACTIVERowChanged(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action))
- End If
- End Sub
-
- _
- Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanging(e)
- If (Not (Me.VWPMO_WF_USER_ACTIVERowChangingEvent) Is Nothing) Then
- RaiseEvent VWPMO_WF_USER_ACTIVERowChanging(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action))
- End If
- End Sub
-
- _
- Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleted(e)
- If (Not (Me.VWPMO_WF_USER_ACTIVERowDeletedEvent) Is Nothing) Then
- RaiseEvent VWPMO_WF_USER_ACTIVERowDeleted(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action))
- End If
- End Sub
-
- _
- Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleting(e)
- If (Not (Me.VWPMO_WF_USER_ACTIVERowDeletingEvent) Is Nothing) Then
- RaiseEvent VWPMO_WF_USER_ACTIVERowDeleting(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action))
- End If
- End Sub
-
- _
- Public Sub RemoveVWPMO_WF_USER_ACTIVERow(ByVal row As VWPMO_WF_USER_ACTIVERow)
- Me.Rows.Remove(row)
- End Sub
-
- _
- Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
- Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
- Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
- Dim ds As DD_DMSDataSet = New DD_DMSDataSet()
- Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any1.Namespace = "http://www.w3.org/2001/XMLSchema"
- any1.MinOccurs = New Decimal(0)
- any1.MaxOccurs = Decimal.MaxValue
- any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any1)
- Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
- any2.MinOccurs = New Decimal(1)
- any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any2)
- Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute1.Name = "namespace"
- attribute1.FixedValue = ds.Namespace
- type.Attributes.Add(attribute1)
- Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute2.Name = "tableTypeName"
- attribute2.FixedValue = "VWPMO_WF_USER_ACTIVEDataTable"
- type.Attributes.Add(attribute2)
- type.Particle = sequence
- Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
- If xs.Contains(dsSchema.TargetNamespace) Then
- Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Try
- Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
- dsSchema.Write(s1)
- Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
- Do While schemas.MoveNext
- schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
- s2.SetLength(0)
- schema.Write(s2)
- If (s1.Length = s2.Length) Then
- s1.Position = 0
- s2.Position = 0
-
- Do While ((s1.Position <> s1.Length) _
- AndAlso (s1.ReadByte = s2.ReadByte))
-
-
- Loop
- If (s1.Position = s1.Length) Then
- Return type
- End If
- End If
-
- Loop
- Finally
- If (Not (s1) Is Nothing) Then
- s1.Close
- End If
- If (Not (s2) Is Nothing) Then
- s2.Close
- End If
- End Try
- End If
- xs.Add(dsSchema)
- Return type
- End Function
- End Class
-
'''
'''Represents the strongly named DataTable class.
'''
@@ -14524,462 +13704,6 @@ Partial Public Class DD_DMSDataSet
End Function
End Class
- '''
- '''Represents the strongly named DataTable class.
- '''
- _
- Partial Public Class VWPMO_WF_ACTIVEDataTable
- Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_ACTIVERow)
-
- Private columnWF_TASK_ID As Global.System.Data.DataColumn
-
- Private columnTITLE As Global.System.Data.DataColumn
-
- Private columnRECORD_ID As Global.System.Data.DataColumn
-
- Private columnSTATE_ID As Global.System.Data.DataColumn
-
- Private columnSTATE_DESC As Global.System.Data.DataColumn
-
- Private columnCOLOR As Global.System.Data.DataColumn
-
- Private columnCOMMENT As Global.System.Data.DataColumn
-
- Private columnDUE_DATE As Global.System.Data.DataColumn
-
- Private columnUSERNAME 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 columnTASK_DATE As Global.System.Data.DataColumn
-
- Private columnWF_ENT_GUID As Global.System.Data.DataColumn
-
- Private columnWF_ID As Global.System.Data.DataColumn
-
- _
- Public Sub New()
- MyBase.New
- Me.TableName = "VWPMO_WF_ACTIVE"
- 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 WF_TASK_IDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnWF_TASK_ID
- End Get
- End Property
-
- _
- Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTITLE
- End Get
- End Property
-
- _
- Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnRECORD_ID
- End Get
- End Property
-
- _
- Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnSTATE_ID
- End Get
- End Property
-
- _
- Public ReadOnly Property STATE_DESCColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnSTATE_DESC
- End Get
- End Property
-
- _
- Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCOLOR
- End Get
- End Property
-
- _
- Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnCOMMENT
- End Get
- End Property
-
- _
- Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnDUE_DATE
- End Get
- End Property
-
- _
- Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnUSERNAME
- 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 TASK_DATEColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnTASK_DATE
- End Get
- End Property
-
- _
- Public ReadOnly Property WF_ENT_GUIDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnWF_ENT_GUID
- End Get
- End Property
-
- _
- Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn
- Get
- Return Me.columnWF_ID
- 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 VWPMO_WF_ACTIVERow
- Get
- Return CType(Me.Rows(index),VWPMO_WF_ACTIVERow)
- End Get
- End Property
-
- _
- Public Event VWPMO_WF_ACTIVERowChanging As VWPMO_WF_ACTIVERowChangeEventHandler
-
- _
- Public Event VWPMO_WF_ACTIVERowChanged As VWPMO_WF_ACTIVERowChangeEventHandler
-
- _
- Public Event VWPMO_WF_ACTIVERowDeleting As VWPMO_WF_ACTIVERowChangeEventHandler
-
- _
- Public Event VWPMO_WF_ACTIVERowDeleted As VWPMO_WF_ACTIVERowChangeEventHandler
-
- _
- Public Overloads Sub AddVWPMO_WF_ACTIVERow(ByVal row As VWPMO_WF_ACTIVERow)
- Me.Rows.Add(row)
- End Sub
-
- _
- Public Overloads Function AddVWPMO_WF_ACTIVERow(ByVal WF_TASK_ID As Integer, ByVal TITLE As String, ByVal RECORD_ID As Integer, ByVal STATE_ID As Integer, ByVal STATE_DESC As String, ByVal COLOR As String, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal USERNAME As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal TASK_DATE As Date, ByVal WF_ENT_GUID As Integer, ByVal WF_ID As Integer) As VWPMO_WF_ACTIVERow
- Dim rowVWPMO_WF_ACTIVERow As VWPMO_WF_ACTIVERow = CType(Me.NewRow,VWPMO_WF_ACTIVERow)
- Dim columnValuesArray() As Object = New Object() {WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, WF_ENT_GUID, WF_ID}
- rowVWPMO_WF_ACTIVERow.ItemArray = columnValuesArray
- Me.Rows.Add(rowVWPMO_WF_ACTIVERow)
- Return rowVWPMO_WF_ACTIVERow
- End Function
-
- _
- Public Function FindByWF_TASK_ID(ByVal WF_TASK_ID As Integer) As VWPMO_WF_ACTIVERow
- Return CType(Me.Rows.Find(New Object() {WF_TASK_ID}),VWPMO_WF_ACTIVERow)
- End Function
-
- _
- Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As VWPMO_WF_ACTIVEDataTable = CType(MyBase.Clone,VWPMO_WF_ACTIVEDataTable)
- cln.InitVars
- Return cln
- End Function
-
- _
- Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
- Return New VWPMO_WF_ACTIVEDataTable()
- End Function
-
- _
- Friend Sub InitVars()
- Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID")
- Me.columnTITLE = MyBase.Columns("TITLE")
- Me.columnRECORD_ID = MyBase.Columns("RECORD_ID")
- Me.columnSTATE_ID = MyBase.Columns("STATE_ID")
- Me.columnSTATE_DESC = MyBase.Columns("STATE_DESC")
- Me.columnCOLOR = MyBase.Columns("COLOR")
- Me.columnCOMMENT = MyBase.Columns("COMMENT")
- Me.columnDUE_DATE = MyBase.Columns("DUE_DATE")
- Me.columnUSERNAME = MyBase.Columns("USERNAME")
- Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
- Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
- Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
- Me.columnTASK_DATE = MyBase.Columns("TASK_DATE")
- Me.columnWF_ENT_GUID = MyBase.Columns("WF_ENT_GUID")
- Me.columnWF_ID = MyBase.Columns("WF_ID")
- End Sub
-
- _
- Private Sub InitClass()
- Me.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnWF_TASK_ID)
- Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnTITLE)
- Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnRECORD_ID)
- Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnSTATE_ID)
- Me.columnSTATE_DESC = New Global.System.Data.DataColumn("STATE_DESC", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnSTATE_DESC)
- Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCOLOR)
- Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnCOMMENT)
- Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnDUE_DATE)
- Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnUSERNAME)
- 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.columnTASK_DATE = New Global.System.Data.DataColumn("TASK_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnTASK_DATE)
- Me.columnWF_ENT_GUID = New Global.System.Data.DataColumn("WF_ENT_GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnWF_ENT_GUID)
- Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
- MyBase.Columns.Add(Me.columnWF_ID)
- Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWF_TASK_ID}, true))
- Me.columnWF_TASK_ID.AllowDBNull = false
- Me.columnWF_TASK_ID.Unique = true
- Me.columnTITLE.AllowDBNull = false
- Me.columnTITLE.MaxLength = 100
- Me.columnRECORD_ID.AllowDBNull = false
- Me.columnSTATE_ID.AllowDBNull = false
- Me.columnSTATE_DESC.AllowDBNull = false
- Me.columnSTATE_DESC.MaxLength = 50
- Me.columnCOLOR.MaxLength = 50
- Me.columnCOMMENT.MaxLength = 500
- Me.columnUSERNAME.ReadOnly = true
- Me.columnUSERNAME.MaxLength = 1
- Me.columnCHANGED_WHO.MaxLength = 50
- Me.columnWF_ENT_GUID.AllowDBNull = false
- Me.columnWF_ID.AllowDBNull = false
- End Sub
-
- _
- Public Function NewVWPMO_WF_ACTIVERow() As VWPMO_WF_ACTIVERow
- Return CType(Me.NewRow,VWPMO_WF_ACTIVERow)
- End Function
-
- _
- Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
- Return New VWPMO_WF_ACTIVERow(builder)
- End Function
-
- _
- Protected Overrides Function GetRowType() As Global.System.Type
- Return GetType(VWPMO_WF_ACTIVERow)
- End Function
-
- _
- Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanged(e)
- If (Not (Me.VWPMO_WF_ACTIVERowChangedEvent) Is Nothing) Then
- RaiseEvent VWPMO_WF_ACTIVERowChanged(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action))
- End If
- End Sub
-
- _
- Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowChanging(e)
- If (Not (Me.VWPMO_WF_ACTIVERowChangingEvent) Is Nothing) Then
- RaiseEvent VWPMO_WF_ACTIVERowChanging(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action))
- End If
- End Sub
-
- _
- Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleted(e)
- If (Not (Me.VWPMO_WF_ACTIVERowDeletedEvent) Is Nothing) Then
- RaiseEvent VWPMO_WF_ACTIVERowDeleted(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action))
- End If
- End Sub
-
- _
- Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
- MyBase.OnRowDeleting(e)
- If (Not (Me.VWPMO_WF_ACTIVERowDeletingEvent) Is Nothing) Then
- RaiseEvent VWPMO_WF_ACTIVERowDeleting(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action))
- End If
- End Sub
-
- _
- Public Sub RemoveVWPMO_WF_ACTIVERow(ByVal row As VWPMO_WF_ACTIVERow)
- Me.Rows.Remove(row)
- End Sub
-
- _
- Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
- Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
- Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
- Dim ds As DD_DMSDataSet = New DD_DMSDataSet()
- Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any1.Namespace = "http://www.w3.org/2001/XMLSchema"
- any1.MinOccurs = New Decimal(0)
- any1.MaxOccurs = Decimal.MaxValue
- any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any1)
- Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
- any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
- any2.MinOccurs = New Decimal(1)
- any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
- sequence.Items.Add(any2)
- Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute1.Name = "namespace"
- attribute1.FixedValue = ds.Namespace
- type.Attributes.Add(attribute1)
- Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
- attribute2.Name = "tableTypeName"
- attribute2.FixedValue = "VWPMO_WF_ACTIVEDataTable"
- type.Attributes.Add(attribute2)
- type.Particle = sequence
- Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
- If xs.Contains(dsSchema.TargetNamespace) Then
- Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
- Try
- Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
- dsSchema.Write(s1)
- Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
- Do While schemas.MoveNext
- schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
- s2.SetLength(0)
- schema.Write(s2)
- If (s1.Length = s2.Length) Then
- s1.Position = 0
- s2.Position = 0
-
- Do While ((s1.Position <> s1.Length) _
- AndAlso (s1.ReadByte = s2.ReadByte))
-
-
- Loop
- If (s1.Position = s1.Length) Then
- Return type
- End If
- End If
-
- Loop
- Finally
- If (Not (s1) Is Nothing) Then
- s1.Close
- End If
- If (Not (s2) Is Nothing) Then
- s2.Close
- End If
- End Try
- End If
- xs.Add(dsSchema)
- Return type
- End Function
- End Class
-
'''
'''Represents the strongly named DataTable class.
'''
@@ -19704,15 +18428,15 @@ Partial Public Class DD_DMSDataSet
Me.columnWD_SEARCH.MaxLength = 1000
Me.columnUNIQUE_DOC_SQL.MaxLength = 5000
Me.columnNEW_OBJECTTYPE.AllowDBNull = false
- Me.columnNEW_OBJECTTYPE.DefaultValue = CType("", String)
+ Me.columnNEW_OBJECTTYPE.DefaultValue = CType("",String)
Me.columnNEW_OBJECTTYPE.MaxLength = 100
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
- Me.columnENTITY_ID.AllowDBNull = False
- Me.columnSQL_DOCTYPE.DefaultValue = CType("", String)
+ Me.columnENTITY_ID.AllowDBNull = false
+ Me.columnSQL_DOCTYPE.DefaultValue = CType("",String)
Me.columnSQL_DOCTYPE.MaxLength = 5000
- Me.columnOLD_OBJECTTYPE.AllowDBNull = False
- Me.columnOLD_OBJECTTYPE.DefaultValue = CType("", String)
+ Me.columnOLD_OBJECTTYPE.AllowDBNull = false
+ Me.columnOLD_OBJECTTYPE.DefaultValue = CType("",String)
Me.columnOLD_OBJECTTYPE.MaxLength = 100
Me.columnIDX_FILE_WORKED.MaxLength = 100
End Sub
@@ -20236,6 +18960,973 @@ Partial Public Class DD_DMSDataSet
End Function
End Class
+ '''
+ '''Represents the strongly named DataTable class.
+ '''
+ _
+ Partial Public Class VWPMO_WF_ACTIVEDataTable
+ Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_ACTIVERow)
+
+ Private columnWF_TASK_ID As Global.System.Data.DataColumn
+
+ Private columnWF_ID As Global.System.Data.DataColumn
+
+ Private columnWF_TITLE As Global.System.Data.DataColumn
+
+ Private columnRECORD_ID As Global.System.Data.DataColumn
+
+ Private columnSTATE_ID As Global.System.Data.DataColumn
+
+ Private columnSTATE_TITLE As Global.System.Data.DataColumn
+
+ Private columnFORM_VIEW_ID As Global.System.Data.DataColumn
+
+ Private columnENTITY_ID As Global.System.Data.DataColumn
+
+ Private columnENTITY_TITLE As Global.System.Data.DataColumn
+
+ Private columnCOMMENT As Global.System.Data.DataColumn
+
+ Private columnDUE_DATE 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 columnTASK_DATE As Global.System.Data.DataColumn
+
+ Private columnFINAL As Global.System.Data.DataColumn
+
+ Private columnCOLOR As Global.System.Data.DataColumn
+
+ Private columnUSERNAME As Global.System.Data.DataColumn
+
+ Private columnRECORD_DESCRIPTION As Global.System.Data.DataColumn
+
+ _
+ Public Sub New()
+ MyBase.New
+ Me.TableName = "VWPMO_WF_ACTIVE"
+ 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 WF_TASK_IDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnWF_TASK_ID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnWF_ID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property WF_TITLEColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnWF_TITLE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnRECORD_ID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnSTATE_ID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property STATE_TITLEColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnSTATE_TITLE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property FORM_VIEW_IDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnFORM_VIEW_ID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnENTITY_ID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property ENTITY_TITLEColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnENTITY_TITLE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnCOMMENT
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDUE_DATE
+ 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 TASK_DATEColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnTASK_DATE
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property FINALColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnFINAL
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnCOLOR
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnUSERNAME
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property RECORD_DESCRIPTIONColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnRECORD_DESCRIPTION
+ 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 VWPMO_WF_ACTIVERow
+ Get
+ Return CType(Me.Rows(index),VWPMO_WF_ACTIVERow)
+ End Get
+ End Property
+
+ _
+ Public Event VWPMO_WF_ACTIVERowChanging As VWPMO_WF_ACTIVERowChangeEventHandler
+
+ _
+ Public Event VWPMO_WF_ACTIVERowChanged As VWPMO_WF_ACTIVERowChangeEventHandler
+
+ _
+ Public Event VWPMO_WF_ACTIVERowDeleting As VWPMO_WF_ACTIVERowChangeEventHandler
+
+ _
+ Public Event VWPMO_WF_ACTIVERowDeleted As VWPMO_WF_ACTIVERowChangeEventHandler
+
+ _
+ Public Overloads Sub AddVWPMO_WF_ACTIVERow(ByVal row As VWPMO_WF_ACTIVERow)
+ Me.Rows.Add(row)
+ End Sub
+
+ _
+ Public Overloads Function AddVWPMO_WF_ACTIVERow( _
+ ByVal WF_TASK_ID As Integer, _
+ ByVal WF_ID As Integer, _
+ ByVal WF_TITLE As String, _
+ ByVal RECORD_ID As Integer, _
+ ByVal STATE_ID As Integer, _
+ ByVal STATE_TITLE As String, _
+ ByVal FORM_VIEW_ID As Integer, _
+ ByVal ENTITY_ID As Integer, _
+ ByVal ENTITY_TITLE As String, _
+ ByVal COMMENT As String, _
+ ByVal DUE_DATE As Date, _
+ ByVal ADDED_WHEN As Date, _
+ ByVal CHANGED_WHO As String, _
+ ByVal CHANGED_WHEN As Date, _
+ ByVal TASK_DATE As Date, _
+ ByVal FINAL As Boolean, _
+ ByVal COLOR As String, _
+ ByVal USERNAME As String, _
+ ByVal RECORD_DESCRIPTION As String) As VWPMO_WF_ACTIVERow
+ Dim rowVWPMO_WF_ACTIVERow As VWPMO_WF_ACTIVERow = CType(Me.NewRow,VWPMO_WF_ACTIVERow)
+ Dim columnValuesArray() As Object = New Object() {WF_TASK_ID, WF_ID, WF_TITLE, RECORD_ID, STATE_ID, STATE_TITLE, FORM_VIEW_ID, ENTITY_ID, ENTITY_TITLE, COMMENT, DUE_DATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR, USERNAME, RECORD_DESCRIPTION}
+ rowVWPMO_WF_ACTIVERow.ItemArray = columnValuesArray
+ Me.Rows.Add(rowVWPMO_WF_ACTIVERow)
+ Return rowVWPMO_WF_ACTIVERow
+ End Function
+
+ _
+ Public Overrides Function Clone() As Global.System.Data.DataTable
+ Dim cln As VWPMO_WF_ACTIVEDataTable = CType(MyBase.Clone,VWPMO_WF_ACTIVEDataTable)
+ cln.InitVars
+ Return cln
+ End Function
+
+ _
+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
+ Return New VWPMO_WF_ACTIVEDataTable()
+ End Function
+
+ _
+ Friend Sub InitVars()
+ Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID")
+ Me.columnWF_ID = MyBase.Columns("WF_ID")
+ Me.columnWF_TITLE = MyBase.Columns("WF_TITLE")
+ Me.columnRECORD_ID = MyBase.Columns("RECORD_ID")
+ Me.columnSTATE_ID = MyBase.Columns("STATE_ID")
+ Me.columnSTATE_TITLE = MyBase.Columns("STATE_TITLE")
+ Me.columnFORM_VIEW_ID = MyBase.Columns("FORM_VIEW_ID")
+ Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID")
+ Me.columnENTITY_TITLE = MyBase.Columns("ENTITY_TITLE")
+ Me.columnCOMMENT = MyBase.Columns("COMMENT")
+ Me.columnDUE_DATE = MyBase.Columns("DUE_DATE")
+ Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
+ Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
+ Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
+ Me.columnTASK_DATE = MyBase.Columns("TASK_DATE")
+ Me.columnFINAL = MyBase.Columns("FINAL")
+ Me.columnCOLOR = MyBase.Columns("COLOR")
+ Me.columnUSERNAME = MyBase.Columns("USERNAME")
+ Me.columnRECORD_DESCRIPTION = MyBase.Columns("RECORD_DESCRIPTION")
+ End Sub
+
+ _
+ Private Sub InitClass()
+ Me.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnWF_TASK_ID)
+ Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnWF_ID)
+ Me.columnWF_TITLE = New Global.System.Data.DataColumn("WF_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnWF_TITLE)
+ Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnRECORD_ID)
+ Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnSTATE_ID)
+ Me.columnSTATE_TITLE = New Global.System.Data.DataColumn("STATE_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnSTATE_TITLE)
+ Me.columnFORM_VIEW_ID = New Global.System.Data.DataColumn("FORM_VIEW_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnFORM_VIEW_ID)
+ Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnENTITY_ID)
+ Me.columnENTITY_TITLE = New Global.System.Data.DataColumn("ENTITY_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnENTITY_TITLE)
+ Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnCOMMENT)
+ Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDUE_DATE)
+ 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.columnTASK_DATE = New Global.System.Data.DataColumn("TASK_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnTASK_DATE)
+ Me.columnFINAL = New Global.System.Data.DataColumn("FINAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnFINAL)
+ Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnCOLOR)
+ Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnUSERNAME)
+ Me.columnRECORD_DESCRIPTION = New Global.System.Data.DataColumn("RECORD_DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnRECORD_DESCRIPTION)
+ Me.columnWF_TASK_ID.AllowDBNull = false
+ Me.columnWF_ID.AllowDBNull = false
+ Me.columnWF_TITLE.ReadOnly = true
+ Me.columnWF_TITLE.MaxLength = 100
+ Me.columnRECORD_ID.AllowDBNull = false
+ Me.columnSTATE_ID.AllowDBNull = false
+ Me.columnSTATE_TITLE.ReadOnly = true
+ Me.columnSTATE_TITLE.MaxLength = 100
+ Me.columnFORM_VIEW_ID.AllowDBNull = false
+ Me.columnENTITY_ID.AllowDBNull = false
+ Me.columnENTITY_TITLE.ReadOnly = true
+ Me.columnENTITY_TITLE.MaxLength = 100
+ Me.columnCOMMENT.MaxLength = 500
+ Me.columnCHANGED_WHO.MaxLength = 50
+ Me.columnFINAL.AllowDBNull = false
+ Me.columnCOLOR.MaxLength = 50
+ Me.columnUSERNAME.ReadOnly = true
+ Me.columnUSERNAME.MaxLength = 1024
+ Me.columnRECORD_DESCRIPTION.ReadOnly = true
+ Me.columnRECORD_DESCRIPTION.MaxLength = 2500
+ End Sub
+
+ _
+ Public Function NewVWPMO_WF_ACTIVERow() As VWPMO_WF_ACTIVERow
+ Return CType(Me.NewRow,VWPMO_WF_ACTIVERow)
+ End Function
+
+ _
+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+ Return New VWPMO_WF_ACTIVERow(builder)
+ End Function
+
+ _
+ Protected Overrides Function GetRowType() As Global.System.Type
+ Return GetType(VWPMO_WF_ACTIVERow)
+ End Function
+
+ _
+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanged(e)
+ If (Not (Me.VWPMO_WF_ACTIVERowChangedEvent) Is Nothing) Then
+ RaiseEvent VWPMO_WF_ACTIVERowChanged(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanging(e)
+ If (Not (Me.VWPMO_WF_ACTIVERowChangingEvent) Is Nothing) Then
+ RaiseEvent VWPMO_WF_ACTIVERowChanging(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleted(e)
+ If (Not (Me.VWPMO_WF_ACTIVERowDeletedEvent) Is Nothing) Then
+ RaiseEvent VWPMO_WF_ACTIVERowDeleted(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleting(e)
+ If (Not (Me.VWPMO_WF_ACTIVERowDeletingEvent) Is Nothing) Then
+ RaiseEvent VWPMO_WF_ACTIVERowDeleting(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action))
+ End If
+ End Sub
+
+ _
+ Public Sub RemoveVWPMO_WF_ACTIVERow(ByVal row As VWPMO_WF_ACTIVERow)
+ Me.Rows.Remove(row)
+ End Sub
+
+ _
+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+ Dim ds As DD_DMSDataSet = New DD_DMSDataSet()
+ Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any1.Namespace = "http://www.w3.org/2001/XMLSchema"
+ any1.MinOccurs = New Decimal(0)
+ any1.MaxOccurs = Decimal.MaxValue
+ any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any1)
+ Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
+ any2.MinOccurs = New Decimal(1)
+ any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any2)
+ Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute1.Name = "namespace"
+ attribute1.FixedValue = ds.Namespace
+ type.Attributes.Add(attribute1)
+ Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute2.Name = "tableTypeName"
+ attribute2.FixedValue = "VWPMO_WF_ACTIVEDataTable"
+ type.Attributes.Add(attribute2)
+ type.Particle = sequence
+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+ If xs.Contains(dsSchema.TargetNamespace) Then
+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Try
+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+ dsSchema.Write(s1)
+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+ Do While schemas.MoveNext
+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
+ s2.SetLength(0)
+ schema.Write(s2)
+ If (s1.Length = s2.Length) Then
+ s1.Position = 0
+ s2.Position = 0
+
+ Do While ((s1.Position <> s1.Length) _
+ AndAlso (s1.ReadByte = s2.ReadByte))
+
+
+ Loop
+ If (s1.Position = s1.Length) Then
+ Return type
+ End If
+ End If
+
+ Loop
+ Finally
+ If (Not (s1) Is Nothing) Then
+ s1.Close
+ End If
+ If (Not (s2) Is Nothing) Then
+ s2.Close
+ End If
+ End Try
+ End If
+ xs.Add(dsSchema)
+ Return type
+ End Function
+ End Class
+
+ '''
+ '''Represents the strongly named DataTable class.
+ '''
+ _
+ Partial Public Class TBPMO_RIGHT_GROUPDataTable
+ Inherits Global.System.Data.TypedTableBase(Of TBPMO_RIGHT_GROUPRow)
+
+ Private columnGUID As Global.System.Data.DataColumn
+
+ Private columnENTITY_ID As Global.System.Data.DataColumn
+
+ Private columnGROUP_ID As Global.System.Data.DataColumn
+
+ Private columnEDIT_REC As Global.System.Data.DataColumn
+
+ Private columnADD_REC As Global.System.Data.DataColumn
+
+ Private columnDELETE_REC As Global.System.Data.DataColumn
+
+ Private columnADD_DOC As Global.System.Data.DataColumn
+
+ Private columnVIEW_DOC As Global.System.Data.DataColumn
+
+ Private columnDELETE_DOC 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
+
+ _
+ Public Sub New()
+ MyBase.New
+ Me.TableName = "TBPMO_RIGHT_GROUP"
+ 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 ENTITY_IDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnENTITY_ID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnGROUP_ID
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property EDIT_RECColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnEDIT_REC
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property ADD_RECColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnADD_REC
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DELETE_RECColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDELETE_REC
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property ADD_DOCColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnADD_DOC
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property VIEW_DOCColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnVIEW_DOC
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property DELETE_DOCColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnDELETE_DOC
+ 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 Count() As Integer
+ Get
+ Return Me.Rows.Count
+ End Get
+ End Property
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_RIGHT_GROUPRow
+ Get
+ Return CType(Me.Rows(index),TBPMO_RIGHT_GROUPRow)
+ End Get
+ End Property
+
+ _
+ Public Event TBPMO_RIGHT_GROUPRowChanging As TBPMO_RIGHT_GROUPRowChangeEventHandler
+
+ _
+ Public Event TBPMO_RIGHT_GROUPRowChanged As TBPMO_RIGHT_GROUPRowChangeEventHandler
+
+ _
+ Public Event TBPMO_RIGHT_GROUPRowDeleting As TBPMO_RIGHT_GROUPRowChangeEventHandler
+
+ _
+ Public Event TBPMO_RIGHT_GROUPRowDeleted As TBPMO_RIGHT_GROUPRowChangeEventHandler
+
+ _
+ Public Overloads Sub AddTBPMO_RIGHT_GROUPRow(ByVal row As TBPMO_RIGHT_GROUPRow)
+ Me.Rows.Add(row)
+ End Sub
+
+ _
+ Public Overloads Function AddTBPMO_RIGHT_GROUPRow(ByVal parentTBPMO_FORMRowByFK_TBPMO_RIGHT_GROUP_ENTITY_ID As TBPMO_FORMRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBPMO_RIGHT_GROUP_GROUP_ID As TBDD_USER_GROUPSRow, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal VIEW_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_RIGHT_GROUPRow
+ Dim rowTBPMO_RIGHT_GROUPRow As TBPMO_RIGHT_GROUPRow = CType(Me.NewRow,TBPMO_RIGHT_GROUPRow)
+ Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
+ If (Not (parentTBPMO_FORMRowByFK_TBPMO_RIGHT_GROUP_ENTITY_ID) Is Nothing) Then
+ columnValuesArray(1) = parentTBPMO_FORMRowByFK_TBPMO_RIGHT_GROUP_ENTITY_ID(0)
+ End If
+ If (Not (parentTBDD_USER_GROUPSRowByFK_TBPMO_RIGHT_GROUP_GROUP_ID) Is Nothing) Then
+ columnValuesArray(2) = parentTBDD_USER_GROUPSRowByFK_TBPMO_RIGHT_GROUP_GROUP_ID(0)
+ End If
+ rowTBPMO_RIGHT_GROUPRow.ItemArray = columnValuesArray
+ Me.Rows.Add(rowTBPMO_RIGHT_GROUPRow)
+ Return rowTBPMO_RIGHT_GROUPRow
+ End Function
+
+ _
+ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RIGHT_GROUPRow
+ Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RIGHT_GROUPRow)
+ End Function
+
+ _
+ Public Overrides Function Clone() As Global.System.Data.DataTable
+ Dim cln As TBPMO_RIGHT_GROUPDataTable = CType(MyBase.Clone,TBPMO_RIGHT_GROUPDataTable)
+ cln.InitVars
+ Return cln
+ End Function
+
+ _
+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
+ Return New TBPMO_RIGHT_GROUPDataTable()
+ End Function
+
+ _
+ Friend Sub InitVars()
+ Me.columnGUID = MyBase.Columns("GUID")
+ Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID")
+ Me.columnGROUP_ID = MyBase.Columns("GROUP_ID")
+ Me.columnEDIT_REC = MyBase.Columns("EDIT_REC")
+ Me.columnADD_REC = MyBase.Columns("ADD_REC")
+ Me.columnDELETE_REC = MyBase.Columns("DELETE_REC")
+ Me.columnADD_DOC = MyBase.Columns("ADD_DOC")
+ Me.columnVIEW_DOC = MyBase.Columns("VIEW_DOC")
+ Me.columnDELETE_DOC = MyBase.Columns("DELETE_DOC")
+ 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")
+ 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.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnENTITY_ID)
+ Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnGROUP_ID)
+ Me.columnEDIT_REC = New Global.System.Data.DataColumn("EDIT_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnEDIT_REC)
+ Me.columnADD_REC = New Global.System.Data.DataColumn("ADD_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnADD_REC)
+ Me.columnDELETE_REC = New Global.System.Data.DataColumn("DELETE_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDELETE_REC)
+ Me.columnADD_DOC = New Global.System.Data.DataColumn("ADD_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnADD_DOC)
+ Me.columnVIEW_DOC = New Global.System.Data.DataColumn("VIEW_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnVIEW_DOC)
+ Me.columnDELETE_DOC = New Global.System.Data.DataColumn("DELETE_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+ MyBase.Columns.Add(Me.columnDELETE_DOC)
+ 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
+ Me.columnGUID.AutoIncrement = true
+ Me.columnGUID.AutoIncrementSeed = 1
+ Me.columnGUID.AllowDBNull = false
+ Me.columnGUID.ReadOnly = true
+ Me.columnGUID.Unique = true
+ Me.columnENTITY_ID.AllowDBNull = false
+ Me.columnGROUP_ID.AllowDBNull = false
+ Me.columnEDIT_REC.AllowDBNull = false
+ Me.columnEDIT_REC.DefaultValue = CType(False, Boolean)
+ Me.columnADD_REC.AllowDBNull = False
+ Me.columnADD_REC.DefaultValue = CType(True, Boolean)
+ Me.columnDELETE_REC.AllowDBNull = False
+ Me.columnDELETE_REC.DefaultValue = CType(False, Boolean)
+ Me.columnADD_DOC.AllowDBNull = False
+ Me.columnADD_DOC.DefaultValue = CType(True, Boolean)
+ Me.columnVIEW_DOC.AllowDBNull = False
+ Me.columnVIEW_DOC.DefaultValue = CType(True, Boolean)
+ Me.columnDELETE_DOC.AllowDBNull = False
+ Me.columnDELETE_DOC.DefaultValue = CType(False, Boolean)
+ Me.columnADDED_WHO.MaxLength = 50
+ Me.columnCHANGED_WHO.MaxLength = 50
+ End Sub
+
+ _
+ Public Function NewTBPMO_RIGHT_GROUPRow() As TBPMO_RIGHT_GROUPRow
+ Return CType(Me.NewRow,TBPMO_RIGHT_GROUPRow)
+ End Function
+
+ _
+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+ Return New TBPMO_RIGHT_GROUPRow(builder)
+ End Function
+
+ _
+ Protected Overrides Function GetRowType() As Global.System.Type
+ Return GetType(TBPMO_RIGHT_GROUPRow)
+ End Function
+
+ _
+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanged(e)
+ If (Not (Me.TBPMO_RIGHT_GROUPRowChangedEvent) Is Nothing) Then
+ RaiseEvent TBPMO_RIGHT_GROUPRowChanged(Me, New TBPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,TBPMO_RIGHT_GROUPRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowChanging(e)
+ If (Not (Me.TBPMO_RIGHT_GROUPRowChangingEvent) Is Nothing) Then
+ RaiseEvent TBPMO_RIGHT_GROUPRowChanging(Me, New TBPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,TBPMO_RIGHT_GROUPRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleted(e)
+ If (Not (Me.TBPMO_RIGHT_GROUPRowDeletedEvent) Is Nothing) Then
+ RaiseEvent TBPMO_RIGHT_GROUPRowDeleted(Me, New TBPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,TBPMO_RIGHT_GROUPRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+ MyBase.OnRowDeleting(e)
+ If (Not (Me.TBPMO_RIGHT_GROUPRowDeletingEvent) Is Nothing) Then
+ RaiseEvent TBPMO_RIGHT_GROUPRowDeleting(Me, New TBPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,TBPMO_RIGHT_GROUPRow), e.Action))
+ End If
+ End Sub
+
+ _
+ Public Sub RemoveTBPMO_RIGHT_GROUPRow(ByVal row As TBPMO_RIGHT_GROUPRow)
+ Me.Rows.Remove(row)
+ End Sub
+
+ _
+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+ Dim ds As DD_DMSDataSet = New DD_DMSDataSet()
+ Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any1.Namespace = "http://www.w3.org/2001/XMLSchema"
+ any1.MinOccurs = New Decimal(0)
+ any1.MaxOccurs = Decimal.MaxValue
+ any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any1)
+ Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+ any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
+ any2.MinOccurs = New Decimal(1)
+ any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+ sequence.Items.Add(any2)
+ Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute1.Name = "namespace"
+ attribute1.FixedValue = ds.Namespace
+ type.Attributes.Add(attribute1)
+ Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+ attribute2.Name = "tableTypeName"
+ attribute2.FixedValue = "TBPMO_RIGHT_GROUPDataTable"
+ type.Attributes.Add(attribute2)
+ type.Particle = sequence
+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+ If xs.Contains(dsSchema.TargetNamespace) Then
+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+ Try
+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+ dsSchema.Write(s1)
+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+ Do While schemas.MoveNext
+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
+ s2.SetLength(0)
+ schema.Write(s2)
+ If (s1.Length = s2.Length) Then
+ s1.Position = 0
+ s2.Position = 0
+
+ Do While ((s1.Position <> s1.Length) _
+ AndAlso (s1.ReadByte = s2.ReadByte))
+
+
+ Loop
+ If (s1.Position = s1.Length) Then
+ Return type
+ End If
+ End If
+
+ Loop
+ Finally
+ If (Not (s1) Is Nothing) Then
+ s1.Close
+ End If
+ If (Not (s2) Is Nothing) Then
+ s2.Close
+ End If
+ End Try
+ End If
+ xs.Add(dsSchema)
+ Return type
+ End Function
+ End Class
+
'''
'''Represents strongly named DataRow class.
'''
@@ -20457,16 +20148,6 @@ Partial Public Class DD_DMSDataSet
End If
End Function
- _
- Public Function GetTBPMO_WORKFLOW_FORMRows() As TBPMO_WORKFLOW_FORMRow()
- If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID") Is Nothing) Then
- Return New TBPMO_WORKFLOW_FORMRow(-1) {}
- Else
- Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID")),TBPMO_WORKFLOW_FORMRow())
- End If
- End Function
-
_
Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow()
@@ -20486,6 +20167,16 @@ Partial Public Class DD_DMSDataSet
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID")),TBPMO_TEMPLATE_ENTITYRow())
End If
End Function
+
+ _
+ Public Function GetTBPMO_RIGHT_GROUPRows() As TBPMO_RIGHT_GROUPRow()
+ If (Me.Table.ChildRelations("FK_TBPMO_RIGHT_GROUP_ENTITY_ID") Is Nothing) Then
+ Return New TBPMO_RIGHT_GROUPRow(-1) {}
+ Else
+ Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_RIGHT_GROUP_ENTITY_ID")),TBPMO_RIGHT_GROUPRow())
+ End If
+ End Function
End Class
'''