diff --git a/app/DD-Record-Organiser/App.config b/app/DD-Record-Organiser/App.config
index 63d1dc2..be882d4 100644
--- a/app/DD-Record-Organiser/App.config
+++ b/app/DD-Record-Organiser/App.config
@@ -48,6 +48,9 @@
False
+
+
+
\ No newline at end of file
diff --git a/app/DD-Record-Organiser/ClassControlBuilder.vb b/app/DD-Record-Organiser/ClassControlBuilder.vb
index 2636c82..35ae0c9 100644
--- a/app/DD-Record-Organiser/ClassControlBuilder.vb
+++ b/app/DD-Record-Organiser/ClassControlBuilder.vb
@@ -154,7 +154,7 @@ Public Class ClassControlBuilder
End Function).SingleOrDefault()
sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value)
- Console.WriteLine("Executing SQL_COMMAND: {0} for controlID {1}", sqlcommand, dependingControlId)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId))
Dim dt As DataTable = ClassDatabase.Return_Datatable(sqlcommand)
Dim obj
obj = dependingControl.GetType.ToString
@@ -173,20 +173,33 @@ Public Class ClassControlBuilder
Case "System.Windows.Forms.TextBox"
If dt.Rows.Count = 1 Then
Try
- ControlLoader.TextBox.LoadValue(DirectCast(dependingControl, TextBox), 9999, 9999, dt.Rows(0).Item(0).ToString, True)
+ Dim value1 As String = dt.Rows(0).Item(0)
+ ControlLoader.TextBox.LoadValue(DirectCast(dependingControl, TextBox), 9999, 9999, value1, True)
Dim sql1 = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", dependingControlId, CURRENT_RECORD_ID)
Dim id = ClassDatabase.Execute_Scalar(sql1)
If Not IsNothing(id) Then
- Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE GUID = {1}", dt.Rows(0).Item(0).ToString, id)
- ClassDatabase.Execute_non_Query(sql1)
+ Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE GUID = {1}", value1, id)
+ If ClassDatabase.Execute_non_Query(sql1) = True Then
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue '" & upd)
+ Else
+ ClassLogger.Add(" >> Check Update depending control value as it was nothing and Update was not successful - Update-Command '" & upd & "'")
+ End If
+
Else
- Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", dependingControlId, CURRENT_RECORD_ID, dt.Rows(0).Item(0).ToString, Environment.UserName)
- ClassDatabase.Execute_non_Query(ins)
+ Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", dependingControlId, CURRENT_RECORD_ID, value1, Environment.UserName)
+ If ClassDatabase.Execute_non_Query(ins) = True Then
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'")
+ Else
+ ClassLogger.Add(" >> Check Insert depending control value as it was nothing and Insert was not successful- Insert-Command '" & ins & "'")
+ End If
+
End If
Catch ex As Exception
ClassLogger.Add(ex.Message)
End Try
+ Else
+ ClassLogger.Add(" >> Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'")
End If
End Select
@@ -676,7 +689,7 @@ Public Class ClassControlBuilder
'SQL-Command vorhanden also Ausführen des SQL
If sqlcommand.Length > 1 Then
Dim result
- If sqlcommand.Contains("@RECORD_ID") Or sqlcommand.Contains("@RECORDID") Or sqlcommand.Contains("@PARENTRECORD_ID") Or sqlcommand.Contains("@PARENTRECORDID") Then
+ If sqlcommand.Contains("@RECORD_ID") Or sqlcommand.Contains("@RECORDID") Or sqlcommand.Contains("@ENTITY_ID") Or sqlcommand.Contains("@PARENTRECORD_ID") Or sqlcommand.Contains("@PARENTRECORDID") Then
result = Nothing
Else
result = ClassDatabase.Execute_Scalar(sqlcommand, True)
diff --git a/app/DD-Record-Organiser/ClassControlCommandsUI.vb b/app/DD-Record-Organiser/ClassControlCommandsUI.vb
index 8a79e5c..b3e75b9 100644
--- a/app/DD-Record-Organiser/ClassControlCommandsUI.vb
+++ b/app/DD-Record-Organiser/ClassControlCommandsUI.vb
@@ -27,9 +27,7 @@ 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"
@@ -281,10 +279,8 @@ 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
Function DeleteRecord(RecordID As Integer)
diff --git a/app/DD-Record-Organiser/ClassControlLoader.vb b/app/DD-Record-Organiser/ClassControlLoader.vb
index 7b05512..f02d40d 100644
--- a/app/DD-Record-Organiser/ClassControlLoader.vb
+++ b/app/DD-Record-Organiser/ClassControlLoader.vb
@@ -2,22 +2,25 @@
Public Class _BaseControl
- Public Shared Function ReplaceSqlCommandPlaceholders(sqlCommand As String, recordId As Integer, parentRecordId As Integer)
- sqlCommand = sqlCommand.Replace("@RECORD_ID", recordId)
- sqlCommand = sqlCommand.Replace("@RECORDID", recordId)
- sqlCommand = sqlCommand.Replace("@PARENTRECORD_ID", parentRecordId)
- sqlCommand = sqlCommand.Replace("@PARENTRECORDID", parentRecordId)
+ 'Public Shared Function ReplaceSqlCommandPlaceholders(sqlCommand As String, recordId As Integer, parentRecordId As Integer, entity_ID As Integer)
+ ' sqlCommand = sqlCommand.Replace("@RECORD_ID", recordId)
+ ' sqlCommand = sqlCommand.Replace("@RECORDID", recordId)
+ ' Dim sql As String = "SELECT FORM_ID FROM TBPMO_RECORD WHERE FORM_ID = "
+ ' ss()
+ ' sqlCommand = sqlCommand.Replace("@ENTITY_ID", recordId)
+ ' sqlCommand = sqlCommand.Replace("@PARENTRECORD_ID", parentRecordId)
+ ' sqlCommand = sqlCommand.Replace("@PARENTRECORDID", parentRecordId)
- Return sqlCommand
- End Function
+ ' Return sqlCommand
+ 'End Function
- Public Shared Function LoadAutoValue(control As Windows.Forms.Control, RecordId As Integer, ParentRecordId As Integer)
+ Public Shared Function LoadAutoValue(control As Windows.Forms.Control, RecordId As Integer, ParentRecordId As Integer, entity_ID As Integer)
Try
Dim AutoValue As String = String.Empty
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
Dim CONNID = ClassDatabase.Execute_Scalar(String.Format("SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId))
Dim SQL As String = ClassDatabase.Execute_Scalar(String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId))
- SQL = ClassControlValues.ReplaceSqlCommandPlaceholders(SQL, RecordId, ParentRecordId)
+ SQL = ClassControlValues.ReplaceSqlCommandPlaceholders(SQL, RecordId, ParentRecordId, entity_ID)
If SQL = "" Or IsDBNull(SQL) Then
Return Nothing
@@ -39,7 +42,7 @@
ClassLogger.Add("Unexpected Error in LoadAutoValue: " & ex.Message, True)
Return Nothing
End Try
-
+
End Function
@@ -191,9 +194,9 @@
Public Class Label : Inherits _BaseControl
- Public Shared Sub LoadValue(control As Windows.Forms.Label, recordId As Integer, parentRecordId As Integer, value As String, Optional VARIABLE_VALUE As Boolean = False)
+ Public Shared Sub LoadValue(control As Windows.Forms.Label, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False)
Try
- Dim autoValue = LoadAutoValue(control, recordId, parentRecordId)
+ Dim autoValue = LoadAutoValue(control, recordId, parentRecordId, entity_ID)
If IsNothing(autoValue) Then
If VARIABLE_VALUE = True Then
@@ -208,7 +211,7 @@
control.Text = labelText
End If
End If
-
+
Else
control.Text = autoValue
@@ -256,9 +259,9 @@
Public Class TextBox : Inherits _BaseControl
- Public Shared Sub LoadValue(control As Windows.Forms.TextBox, recordId As Integer, parentRecordId As Integer, value As String, Optional VARIABLE_VALUE As Boolean = False)
+ Public Shared Sub LoadValue(control As Windows.Forms.TextBox, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False)
Try
- Dim autoValue = LoadAutoValue(control, recordId, parentRecordId)
+ Dim autoValue = LoadAutoValue(control, recordId, parentRecordId, entity_ID)
If VARIABLE_VALUE = True Then
control.Text = value
Else
diff --git a/app/DD-Record-Organiser/ClassControlValues.vb b/app/DD-Record-Organiser/ClassControlValues.vb
index fd2e2e3..70ae742 100644
--- a/app/DD-Record-Organiser/ClassControlValues.vb
+++ b/app/DD-Record-Organiser/ClassControlValues.vb
@@ -142,7 +142,7 @@ Public Class ClassControlValues
Return missingValues.Distinct().ToList()
End Function
- Public Shared Sub LoadControlValues(RecordId As Integer, ParentRecordId As Integer, FormId As Integer, controls As Control.ControlCollection)
+ Public Shared Sub LoadControlValues(RecordId As Integer, ParentRecordId As Integer, FormId As Integer, controls As Control.ControlCollection, Entity_ID As Integer)
Try
'Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId)
Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", RecordId)
@@ -168,9 +168,9 @@ Public Class ClassControlValues
If TypeOf control Is GroupBox Then
Dim groupbox As GroupBox = DirectCast(control, GroupBox)
- LoadControlValues(RecordId, ParentRecordId, FormId, groupbox.Controls)
+ LoadControlValues(RecordId, ParentRecordId, FormId, groupbox.Controls, Entity_ID)
Else
- LoadControlValue(RecordId, ParentRecordId, ControlId, control, values)
+ LoadControlValue(RecordId, ParentRecordId, ControlId, control, values, Entity_ID)
End If
Next
@@ -198,11 +198,8 @@ Public Class ClassControlValues
End Sub
- Private Shared Sub LoadControlValue(recordId As Integer, parentRecordId As Integer, controlId As Integer, control As Control, values As List(Of Object))
+ Private Shared Sub LoadControlValue(recordId As Integer, parentRecordId As Integer, controlId As Integer, control As Control, values As List(Of Object), entity_ID As Integer)
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
@@ -212,60 +209,48 @@ Public Class ClassControlValues
Select Case control.GetType()
Case GetType(TextBox)
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)
+ ControlLoader.TextBox.LoadValue(textbox, recordId, parentRecordId, value, entity_ID)
+
Case GetType(Label)
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)
+ ControlLoader.Label.LoadValue(label, recordId, parentRecordId, value, entity_ID)
+
Case GetType(ComboBox)
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)
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)
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)
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)
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)
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)
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)
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)
+ 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)
@@ -289,29 +274,25 @@ Public Class ClassControlValues
' CONTROL_SQLCOMMAND_1 wird als SQL gealiast
Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1,CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
-
+ Dim elapsed As Double
+ elapsed = swsql.Elapsed.TotalSeconds
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} to load", Format(elapsed, "0.000000000") & " seconds"), False)
If dt.Rows.Count = 0 Then
Exit Sub
End If
For Each Ctrl As Control In controls
-
- Dim swcontrol As Stopwatch = Stopwatch.StartNew()
-
Dim controlTagId = DirectCast(Ctrl.Tag, ClassControlMetadata).Id
'If controlTagId = 474 Then
' MsgBox("Thats it")
'End If
'Datatable nach row mit CONTROL_ID wie Ctrl suchen
Dim row As DataRow = dt.Select(String.Format("CONTROL_ID={0}", controlTagId)).FirstOrDefault()
-
If IsNothing(row) Then
Continue For
End If
-
Dim sqlcommand As String = row.Item("SQL")
Dim ConnID = row.Item("CONTROL_CONNID_1")
Select Case Ctrl.GetType()
@@ -328,14 +309,10 @@ Public Class ClassControlValues
ControlLoader.CheckedListBox.LoadList(chlistbox, FormID, ConnID, sqlcommand)
End Select
-
- swcontrol.Stop()
- If LogErrorsOnly = False Then ClassLogger.Add(String.Format(">> LoadControlValuesList Loading '{0}' took {1} milliseconds to load", Ctrl.Name, swcontrol.ElapsedMilliseconds), False)
Next
SW.Stop()
- Dim elapsed As Double
- elapsed = SW.Elapsed.TotalSeconds
+ elapsed = sw.Elapsed.TotalSeconds
SW.Stop()
SW.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValuesList took " & Format(elapsed, "0.000000000") & " seconds", False)
@@ -347,7 +324,7 @@ Public Class ClassControlValues
End Sub
- Public Shared Sub LoadControlValuesListWithPlaceholders(FormId As Integer, RecordId As Integer, ParentRecordId As Integer, controls As Control.ControlCollection)
+ Public Shared Sub LoadControlValuesListWithPlaceholders(FormId As Integer, RecordId As Integer, ParentRecordId As Integer, controls As Control.ControlCollection, entity_ID As Integer)
Try
If controls.Count = 0 Then
'MsgBox("LoadControlValuesListWithPlaceholders: Control.ControlCollection is unexpected empty!", MsgBoxStyle.Exclamation)
@@ -376,7 +353,7 @@ Public Class ClassControlValues
Dim sqlcommand As String = row.Item("SQL")
- sqlcommand = ReplaceSqlCommandPlaceholders(sqlcommand, RecordId, ParentRecordId)
+ sqlcommand = ReplaceSqlCommandPlaceholders(sqlcommand, RecordId, ParentRecordId, entity_ID)
Select Case Ctrl.GetType()
Case GetType(ComboBox)
@@ -393,21 +370,22 @@ Public Class ClassControlValues
End Select
Next
-
+ Dim elapsed As Double
+ elapsed = SW.Elapsed.TotalSeconds
SW.Stop()
- Console.WriteLine("LoadControlValuesListWithPlaceholders took {0} milliseconds to load", SW.ElapsedMilliseconds)
+ Console.WriteLine("LoadControlValuesListWithPlaceholders took {0} to load", Format(elapsed, "0.000000000") & " seconds")
Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadControlValuesListWithPlaceholders: " & ex.Message, True)
MsgBox("Unexpected Error in LoadControlValuesListWithPlaceholders:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
- Public Shared Function ReplaceSqlCommandPlaceholders(sqlCommand As String, recordId As Integer, parentRecordId As Integer)
+ Public Shared Function ReplaceSqlCommandPlaceholders(sqlCommand As String, recordId As Integer, parentRecordId As Integer, entity_Id As Integer)
sqlCommand = sqlCommand.Replace("@RECORD_ID", recordId)
sqlCommand = sqlCommand.Replace("@RECORDID", recordId)
+ sqlCommand = sqlCommand.Replace("@ENTITY_ID", entity_Id)
sqlCommand = sqlCommand.Replace("@PARENTRECORD_ID", parentRecordId)
sqlCommand = sqlCommand.Replace("@PARENTRECORDID", parentRecordId)
-
Return sqlCommand
End Function
diff --git a/app/DD-Record-Organiser/ClassEmail.vb b/app/DD-Record-Organiser/ClassEmail.vb
index 66e2349..ea5d299 100644
--- a/app/DD-Record-Organiser/ClassEmail.vb
+++ b/app/DD-Record-Organiser/ClassEmail.vb
@@ -45,5 +45,60 @@ Public Class ClassEmail
Return False
End Try
End Function
+ Public Function Send_Log_Mail(ByVal vBody As String, ByVal vBetreff As String, ByVal emailfrom As String, ByVal emailsmtp As String, ByVal emailuser As String, ByVal emailpw As String, ByVal email_empf As String)
+ '#### E-MAIL NACHRICHT VERSENDEN
+ Try
+ Dim empfaenger As String()
+ If email_empf.Contains(";") Then
+ empfaenger = email_empf.Split(";")
+ Else
+ ReDim Preserve empfaenger(0)
+ empfaenger(0) = email_empf
+ End If
+ 'Für jeden Empfänger eine Neue Mail erzeugen
+ For Each _mailempfaenger As String In empfaenger
+ ' Neue Nachricht erzeugen:
+ Dim message As New MailMessage(emailfrom, _mailempfaenger, vBetreff & " - Domain: " & Environment.UserDomainName, _
+ "" & vBody & "
>> Version: " & My.Application.Info.Version.ToString & "
>> Maschine: " & Environment.MachineName & "
" & "
>> Domain-Name: " & Environment.UserDomainName & "
" & _
+ "
>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " & _
+ My.Computer.Clock.LocalTime.ToLongTimeString & "")
+ ' create and add the attachment(s) */
+ Dim logfile = ClassLogger.logDateiname
+ If logfile Is Nothing Then
+ MsgBox("Logging was not initiated", MsgBoxStyle.Exclamation)
+ Return False
+ End If
+ If logfile.Contains("\\") Then
+ logfile = logfile.Replace("\\", "\")
+ End If
+ If IO.File.Exists(logfile) Then
+ Dim Attachment As Attachment = New Attachment(logfile)
+ message.Attachments.Add(Attachment)
+ End If
+
+ With message
+ .IsBodyHtml = True
+ .Priority = MailPriority.High
+ End With
+
+ 'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
+ Dim emailClient As New SmtpClient(emailsmtp)
+ 'Email mit Authentifizierung
+ Dim SMTPUserInfo As New System.Net.NetworkCredential(emailuser, emailpw) ', My.Settings.vDomain)
+ emailClient.UseDefaultCredentials = False
+ emailClient.Credentials = SMTPUserInfo
+ emailClient.Port = 25
+
+ '*Send the message */
+ emailClient.Send(message)
+
+ 'ClassLogger.Add(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
+ Next
+ Return True
+ Catch ex As Exception
+ MsgBox("Error in Send LogMail: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+ Return False
+ End Try
+ End Function
End Class
diff --git a/app/DD-Record-Organiser/ClassInit.vb b/app/DD-Record-Organiser/ClassInit.vb
index 25a83d8..4e6571b 100644
--- a/app/DD-Record-Organiser/ClassInit.vb
+++ b/app/DD-Record-Organiser/ClassInit.vb
@@ -36,7 +36,7 @@ Public Class ClassInit
End Function
- Public Sub InitWindream()
+ Public Sub InitBasics2()
Try
Dim configResult As Boolean
configResult = Settings_LoadBasicConfig()
@@ -45,12 +45,11 @@ Public Class ClassInit
Throw New Exception("Find more information in the logfile.")
End If
Catch ex As Exception
- MsgBox("Unexpected Error in Init windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+ MsgBox("Unexpected Error in InitBasics2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
-
Public Sub InitUserLogin()
Dim sql = sql_UserID
sql = sql.Replace("@user", Environment.UserName)
diff --git a/app/DD-Record-Organiser/ClassLogger.vb b/app/DD-Record-Organiser/ClassLogger.vb
index efc1f3a..b2dd1de 100644
--- a/app/DD-Record-Organiser/ClassLogger.vb
+++ b/app/DD-Record-Organiser/ClassLogger.vb
@@ -60,7 +60,7 @@ Public Class ClassLogger
If ClassLogger.OpenFile Then
Try
If ACHTUNG Then
- ClassLogger.StreamWriter.WriteLine("#ACHTUNG# (" & System.DateTime.Now & "): " & information)
+ ClassLogger.StreamWriter.WriteLine("#ATTENTION# (" & System.DateTime.Now & "): " & information)
Else
ClassLogger.StreamWriter.WriteLine(information)
End If
@@ -72,19 +72,19 @@ Public Class ClassLogger
ClassLogger.ShowErrorMessage()
End If
End Sub
- Public Shared Sub Add(ByVal ex As Exception)
- If ClassLogger.OpenFile Then
- Try
- ClassLogger.StreamWriter.WriteLine("##### Exception (" & System.DateTime.Now & ")")
- ClassLogger.StreamWriter.WriteLine("##### Error: " & ex.Message & " Source [" & ex.Source & "]")
- ClassLogger.CloseFile()
- Catch e As Exception
- ClassLogger.ShowErrorMessage()
- End Try
- Else
- ClassLogger.ShowErrorMessage()
- End If
- End Sub
+ 'Public Shared Sub Add(ByVal ex As Exception)
+ ' If ClassLogger.OpenFile Then
+ ' Try
+ ' ClassLogger.StreamWriter.WriteLine("##### Exception (" & System.DateTime.Now & ")")
+ ' ClassLogger.StreamWriter.WriteLine("##### Error: " & ex.Message & " Source [" & ex.Source & "]")
+ ' ClassLogger.CloseFile()
+ ' Catch e As Exception
+ ' ClassLogger.ShowErrorMessage()
+ ' End Try
+ ' Else
+ ' ClassLogger.ShowErrorMessage()
+ ' End If
+ 'End Sub
' öffnet eine Datei zum Schreiben
Private Shared Function OpenFile()
Try
diff --git a/app/DD-Record-Organiser/ClassWindream.vb b/app/DD-Record-Organiser/ClassWindream.vb
index 76f995e..44537d1 100644
--- a/app/DD-Record-Organiser/ClassWindream.vb
+++ b/app/DD-Record-Organiser/ClassWindream.vb
@@ -266,7 +266,8 @@ Public Class ClassWindream
MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine & _
"Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Errormessage:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version")
Else
- MsgBox("Errormessage:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Login an windream")
+ ClassLogger.Add("Unexpected Error in windream init:" & ex.Message)
+ MsgBox("Unexpected Error in windream init:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End If
Return False
End Try
@@ -537,7 +538,7 @@ Public Class ClassWindream
End Try
End Function
#End Region
- Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String)
+ Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String, Optional ImportAll As Boolean = False)
aktWMObject = Nothing
If My.Computer.FileSystem.DirectoryExists(zielpfad) = False Then
My.Computer.FileSystem.CreateDirectory(zielpfad)
@@ -732,13 +733,37 @@ 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(">> File '" & CURRENT_FILEIN_WD & "' was imported.", False)
aktWMObject = WMObject
Return True
Else
- System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
- ClassLogger.Add(" FEHLER bei Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht- Überprüfen Sie Log-File")
- Return False
+ If length = 0 Then
+ If ImportAll = False Then
+ System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname)
+ ClassLogger.Add(" Error in Stream File - FileLength = 0, File " & CURRENT_FILEIN_WD & " was deleted")
+ Return False
+ Else
+ If endgültigerDateiname.StartsWith("\") Then
+ If endgültigerDateiname.StartsWith("\\") Then
+ endgültigerDateiname = endgültigerDateiname.Replace("\\", "\")
+ Else
+ endgültigerDateiname = endgültigerDateiname
+ End If
+ Else
+ endgültigerDateiname = "\" & endgültigerDateiname
+ End If
+ ClassLogger.Add(">> ATTENTION in Stream File - FileLength = 0, File " & CURRENT_FILEIN_WD & " will be imported")
+ CURRENT_FILEIN_WD = vWLaufwerk & ":" & endgültigerDateiname
+ ClassLogger.Add(">> File '" & CURRENT_FILEIN_WD & "' was imported.", False)
+ aktWMObject = WMObject
+ Return True
+ End If
+
+ Else
+ ClassLogger.Add("Error in Stream File - Error <> 0")
+ Return False
+ End If
+
End If
Else
Return False
@@ -785,9 +810,7 @@ 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)
- Else
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp war bereits gesetzt", False)
+ If LogErrorsOnly = False Then ClassLogger.Add(" >> Objecttype '" & _WDObjekttyp & "' was written!", False)
End If
Try
@@ -1302,7 +1325,7 @@ Public Class ClassWindream
'Duplikat Prüfung an, also nur anhängen wenn Wert <>
For Each WDValue As Object In wertWD
If WDValue Is Nothing = False Then
- 'Erst einmal die ALten Werte schreiben
+ 'Erst die ALten Werte schreiben
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = WDValue.ToString
diff --git a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj
index 1f6dd0f..b1ab323 100644
--- a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj
+++ b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj
@@ -248,10 +248,10 @@
-
- frmGroup_Rights.vb
+
+ frmRight_Management.vb
-
+
Form
@@ -602,8 +602,8 @@
frmConstructor_Main.vb
-
- frmGroup_Rights.vb
+
+ frmRight_Management.vb
frmWD_Import_Doc_Record.vb
@@ -1161,6 +1161,8 @@
+
+
diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsc b/app/DD-Record-Organiser/DD_DMSDataSet.xsc
index 6cf7288..cfcad7d 100644
--- a/app/DD-Record-Organiser/DD_DMSDataSet.xsc
+++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsc
@@ -304,39 +304,53 @@
-
+
+
-
+
+
-
+
+
-
+
+
-
+
+
-
+
+
-
+
+
-
+
+
-
+
+
-
+
+
-
+
+
-
+
+
-
+
+
-
+
+
diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsd b/app/DD-Record-Organiser/DD_DMSDataSet.xsd
index ee39252..1914c00 100644
--- a/app/DD-Record-Organiser/DD_DMSDataSet.xsd
+++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsd
@@ -2854,8 +2854,9 @@ WHERE (GUID = @Original_GUID)
INSERT INTO TBPMO_WD_IMPORT_PROFILE
- (NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ENTITY_ID, SQL_DOCTYPE, OLD_OBJECTTYPE, IDX_FILE_WORKED)
-VALUES (@NAME,@WD_SEARCH,@UNIQUE_DOC_SQL,@NEW_OBJECTTYPE,@CONNECTION_ID,@ADDED_WHO,@ENTITY_ID,@SQL_DOCTYPE,@OLD_OBJECTTYPE,@IDX_FILE_WORKED);
+ (NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ENTITY_ID, SQL_DOCTYPE, OLD_OBJECTTYPE, IDX_FILE_WORKED, SQL_PARENT_RECORD,
+ ONLY_RECORD_CREATING)
+VALUES (@NAME,@WD_SEARCH,@UNIQUE_DOC_SQL,@NEW_OBJECTTYPE,@CONNECTION_ID,@ADDED_WHO,@ENTITY_ID,@SQL_DOCTYPE,@OLD_OBJECTTYPE,@IDX_FILE_WORKED,@SQL_PARENT_RECORD,@ONLY_RECORD_CREATING);
SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_IMPORT_PROFILE WHERE (GUID = SCOPE_IDENTITY())
@@ -2868,13 +2869,15 @@ SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADD
+
+
SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ENTITY_ID, SQL_DOCTYPE, OLD_OBJECTTYPE,
- IDX_FILE_WORKED
+ IDX_FILE_WORKED, SQL_PARENT_RECORD, ONLY_RECORD_CREATING
FROM TBPMO_WD_IMPORT_PROFILE
@@ -2883,8 +2886,9 @@ FROM TBPMO_WD_IMPORT_PROFILE
UPDATE TBPMO_WD_IMPORT_PROFILE
SET NAME = @NAME, WD_SEARCH = @WD_SEARCH, UNIQUE_DOC_SQL = @UNIQUE_DOC_SQL, NEW_OBJECTTYPE = @NEW_OBJECTTYPE, CONNECTION_ID = @CONNECTION_ID,
- CHANGED_WHO = @CHANGED_WHO, ENTITY_ID = @ENTITY_ID, SQL_DOCTYPE = @SQL_DOCTYPE, OLD_OBJECTTYPE = @OLD_OBJECTTYPE, IDX_FILE_WORKED = @IDX_FILE_WORKED
-WHERE (GUID = @Original_GUID);
+ CHANGED_WHO = @CHANGED_WHO, ENTITY_ID = @ENTITY_ID, SQL_DOCTYPE = @SQL_DOCTYPE, OLD_OBJECTTYPE = @OLD_OBJECTTYPE, IDX_FILE_WORKED = @IDX_FILE_WORKED,
+ SQL_PARENT_RECORD = @SQL_PARENT_RECORD, ONLY_RECORD_CREATING = @ONLY_RECORD_CREATING
+WHERE (GUID = @Original_GUID);
SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_IMPORT_PROFILE WHERE (GUID = @GUID)
@@ -2897,6 +2901,8 @@ SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADD
+
+
@@ -2919,6 +2925,8 @@ SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADD
+
+
@@ -3152,7 +3160,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3193,7 +3201,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3271,7 +3279,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3366,7 +3374,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3389,7 +3397,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3434,7 +3442,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3472,7 +3480,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3507,7 +3515,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3551,7 +3559,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3572,7 +3580,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3609,7 +3617,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3654,7 +3662,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3721,7 +3729,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3758,7 +3766,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3813,7 +3821,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3852,7 +3860,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -3976,7 +3984,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4045,7 +4053,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4075,7 +4083,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4112,7 +4120,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4149,7 +4157,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4181,7 +4189,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4201,7 +4209,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4247,7 +4255,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4305,7 +4313,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4335,7 +4343,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4490,7 +4498,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4515,7 +4523,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4550,7 +4558,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4579,7 +4587,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4638,7 +4646,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4711,7 +4719,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4817,7 +4825,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4911,7 +4919,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4950,7 +4958,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -4968,7 +4976,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -5014,7 +5022,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -5028,7 +5036,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -5080,7 +5088,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -5124,7 +5132,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -5156,7 +5164,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -5227,10 +5235,18 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
+
+
+
+
+
+
+
+
-
+
@@ -5282,7 +5298,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
@@ -5355,13 +5371,13 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
+
-
+
@@ -5543,24 +5559,24 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb b/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb
index 97f6eb8..11e2fc2 100644
--- a/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb
+++ b/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb
@@ -18155,6 +18155,10 @@ Partial Public Class DD_DMSDataSet
Private columnIDX_FILE_WORKED As Global.System.Data.DataColumn
+ Private columnSQL_PARENT_RECORD As Global.System.Data.DataColumn
+
+ Private columnONLY_RECORD_CREATING As Global.System.Data.DataColumn
+
_
Public Sub New()
@@ -18302,6 +18306,22 @@ Partial Public Class DD_DMSDataSet
End Get
End Property
+ _
+ Public ReadOnly Property SQL_PARENT_RECORDColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnSQL_PARENT_RECORD
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property ONLY_RECORD_CREATINGColumn() As Global.System.Data.DataColumn
+ Get
+ Return Me.columnONLY_RECORD_CREATING
+ End Get
+ End Property
+
_
@@ -18339,9 +18359,9 @@ Partial Public Class DD_DMSDataSet
_
- Public Overloads Function AddTBPMO_WD_IMPORT_PROFILERow(ByVal NAME As String, ByVal WD_SEARCH As String, ByVal UNIQUE_DOC_SQL As String, ByVal NEW_OBJECTTYPE As String, ByVal CONNECTION_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ENTITY_ID As Integer, ByVal SQL_DOCTYPE As String, ByVal OLD_OBJECTTYPE As String, ByVal IDX_FILE_WORKED As String) As TBPMO_WD_IMPORT_PROFILERow
+ Public Overloads Function AddTBPMO_WD_IMPORT_PROFILERow(ByVal NAME As String, ByVal WD_SEARCH As String, ByVal UNIQUE_DOC_SQL As String, ByVal NEW_OBJECTTYPE As String, ByVal CONNECTION_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ENTITY_ID As Integer, ByVal SQL_DOCTYPE As String, ByVal OLD_OBJECTTYPE As String, ByVal IDX_FILE_WORKED As String, ByVal SQL_PARENT_RECORD As String, ByVal ONLY_RECORD_CREATING As Boolean) As TBPMO_WD_IMPORT_PROFILERow
Dim rowTBPMO_WD_IMPORT_PROFILERow As TBPMO_WD_IMPORT_PROFILERow = CType(Me.NewRow,TBPMO_WD_IMPORT_PROFILERow)
- Dim columnValuesArray() As Object = New Object() {Nothing, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ENTITY_ID, SQL_DOCTYPE, OLD_OBJECTTYPE, IDX_FILE_WORKED}
+ Dim columnValuesArray() As Object = New Object() {Nothing, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ENTITY_ID, SQL_DOCTYPE, OLD_OBJECTTYPE, IDX_FILE_WORKED, SQL_PARENT_RECORD, ONLY_RECORD_CREATING}
rowTBPMO_WD_IMPORT_PROFILERow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBPMO_WD_IMPORT_PROFILERow)
Return rowTBPMO_WD_IMPORT_PROFILERow
@@ -18384,6 +18404,8 @@ Partial Public Class DD_DMSDataSet
Me.columnSQL_DOCTYPE = MyBase.Columns("SQL_DOCTYPE")
Me.columnOLD_OBJECTTYPE = MyBase.Columns("OLD_OBJECTTYPE")
Me.columnIDX_FILE_WORKED = MyBase.Columns("IDX_FILE_WORKED")
+ Me.columnSQL_PARENT_RECORD = MyBase.Columns("SQL_PARENT_RECORD")
+ Me.columnONLY_RECORD_CREATING = MyBase.Columns("ONLY_RECORD_CREATING")
End Sub
_
+ Public Property SQL_PARENT_RECORD() As String
+ Get
+ Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.SQL_PARENT_RECORDColumn),String)
+ End Get
+ Set
+ Me(Me.tableTBPMO_WD_IMPORT_PROFILE.SQL_PARENT_RECORDColumn) = value
+ End Set
+ End Property
+
+ _
+ Public Property ONLY_RECORD_CREATING() As Boolean
+ Get
+ Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.ONLY_RECORD_CREATINGColumn),Boolean)
+ End Get
+ Set
+ Me(Me.tableTBPMO_WD_IMPORT_PROFILE.ONLY_RECORD_CREATINGColumn) = value
+ End Set
+ End Property
+
_
Public Function IsUNIQUE_DOC_SQLNull() As Boolean
@@ -46100,6 +46153,8 @@ Namespace DD_DMSDataSetTableAdapters
tableMapping.ColumnMappings.Add("SQL_DOCTYPE", "SQL_DOCTYPE")
tableMapping.ColumnMappings.Add("OLD_OBJECTTYPE", "OLD_OBJECTTYPE")
tableMapping.ColumnMappings.Add("IDX_FILE_WORKED", "IDX_FILE_WORKED")
+ tableMapping.ColumnMappings.Add("SQL_PARENT_RECORD", "SQL_PARENT_RECORD")
+ tableMapping.ColumnMappings.Add("ONLY_RECORD_CREATING", "ONLY_RECORD_CREATING")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -46110,11 +46165,13 @@ Namespace DD_DMSDataSetTableAdapters
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WD_IMPORT_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, WD_SEARCH, U"& _
"NIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ENTITY_ID, SQL_DOCTYPE,"& _
- " OLD_OBJECTTYPE, IDX_FILE_WORKED)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@WD_SEARCH,@UNIQUE_DOC_S"& _
- "QL,@NEW_OBJECTTYPE,@CONNECTION_ID,@ADDED_WHO,@ENTITY_ID,@SQL_DOCTYPE,@OLD_OBJECT"& _
- "TYPE,@IDX_FILE_WORKED); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_"& _
- "OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM"& _
- " TBPMO_WD_IMPORT_PROFILE WHERE (GUID = SCOPE_IDENTITY())"
+ " OLD_OBJECTTYPE, IDX_FILE_WORKED, SQL_PARENT_RECORD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
+ "ONLY_RECORD_CREATING)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@WD_SEARCH,@UNIQUE_DOC_SQL,@NEW_OBJE"& _
+ "CTTYPE,@CONNECTION_ID,@ADDED_WHO,@ENTITY_ID,@SQL_DOCTYPE,@OLD_OBJECTTYPE,@IDX_FI"& _
+ "LE_WORKED,@SQL_PARENT_RECORD,@ONLY_RECORD_CREATING); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, "& _
+ "WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN,"& _
+ " CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_IMPORT_PROFILE WHERE (GUID = SCOPE_IDEN"& _
+ "TITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -46126,16 +46183,19 @@ Namespace DD_DMSDataSetTableAdapters
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OLD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OLD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_FILE_WORKED", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_FILE_WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+ Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PARENT_RECORD", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PARENT_RECORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+ Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ONLY_RECORD_CREATING", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ONLY_RECORD_CREATING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_WD_IMPORT_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, WD_SEARCH "& _
"= @WD_SEARCH, UNIQUE_DOC_SQL = @UNIQUE_DOC_SQL, NEW_OBJECTTYPE = @NEW_OBJECTTYPE"& _
", CONNECTION_ID = @CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHAN"& _
"GED_WHO, ENTITY_ID = @ENTITY_ID, SQL_DOCTYPE = @SQL_DOCTYPE, OLD_OBJECTTYPE = @O"& _
- "LD_OBJECTTYPE, IDX_FILE_WORKED = @IDX_FILE_WORKED"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origina"& _
- "l_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CON"& _
- "NECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_IMPOR"& _
- "T_PROFILE WHERE (GUID = @GUID)"
+ "LD_OBJECTTYPE, IDX_FILE_WORKED = @IDX_FILE_WORKED, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQ"& _
+ "L_PARENT_RECORD = @SQL_PARENT_RECORD, ONLY_RECORD_CREATING = @ONLY_RECORD_CREATI"& _
+ "NG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, WD_SEARCH, "& _
+ "UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WH"& _
+ "O, CHANGED_WHEN FROM TBPMO_WD_IMPORT_PROFILE WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -46147,6 +46207,8 @@ Namespace DD_DMSDataSetTableAdapters
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OLD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OLD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_FILE_WORKED", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_FILE_WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+ Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PARENT_RECORD", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PARENT_RECORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+ Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ONLY_RECORD_CREATING", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ONLY_RECORD_CREATING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
End Sub
@@ -46166,8 +46228,8 @@ Namespace DD_DMSDataSetTableAdapters
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_I"& _
"D, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ENTITY_ID, SQL_DOCTYPE, OLD"& _
- "_OBJECTTYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDX_FILE_WORKED"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_W"& _
- "D_IMPORT_PROFILE"
+ "_OBJECTTYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDX_FILE_WORKED, SQL_PARENT_RECORD, ONLY"& _
+ "_RECORD_CREATING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_IMPORT_PROFILE"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb
index 4eae507..cef6f4b 100644
--- a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb
+++ b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb
@@ -16,59 +16,63 @@ Option Explicit On
'''
'''Represents a strongly typed in-memory cache of data.
'''
- _
+ _
Partial Public Class DD_ECMAdmin
Inherits Global.System.Data.DataSet
-
+
Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable
-
+
Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable
-
+
Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable
-
+
Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable
-
+
Private tableTBWH_ENTITIES As TBWH_ENTITIESDataTable
-
+
Private tableTBWH_USER_GROUPS As TBWH_USER_GROUPSDataTable
-
+
Private tableDT_VORSCHAU As DT_VORSCHAUDataTable
-
+
Private tableTBAD_Users As TBAD_UsersDataTable
-
+
+ Private tableTBWH_Users1 As TBWH_Users1DataTable
+
+ Private tableTBWH_Users2 As TBWH_Users2DataTable
+
Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As Global.System.Data.DataRelation
-
+
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
-
- _
+
+ _
Public Sub New()
- MyBase.New()
- Me.BeginInit()
- Me.InitClass()
+ MyBase.New
+ Me.BeginInit
+ Me.InitClass
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
- Me.EndInit()
+ Me.EndInit
End Sub
-
- _
+
+ _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
- MyBase.New(info, context, False)
- If (Me.IsBinarySerialized(info, context) = True) Then
- Me.InitVars(False)
+ MyBase.New(info, context, false)
+ If (Me.IsBinarySerialized(info, context) = true) Then
+ Me.InitVars(false)
Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
Return
End If
- Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)), String)
+ Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
@@ -96,14 +100,20 @@ Partial Public Class DD_ECMAdmin
If (Not (ds.Tables("TBAD_Users")) Is Nothing) Then
MyBase.Tables.Add(New TBAD_UsersDataTable(ds.Tables("TBAD_Users")))
End If
+ If (Not (ds.Tables("TBWH_Users1")) Is Nothing) Then
+ MyBase.Tables.Add(New TBWH_Users1DataTable(ds.Tables("TBWH_Users1")))
+ End If
+ If (Not (ds.Tables("TBWH_Users2")) Is Nothing) Then
+ MyBase.Tables.Add(New TBWH_Users2DataTable(ds.Tables("TBWH_Users2")))
+ End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
- Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add)
- Me.InitVars()
+ Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
+ Me.InitVars
Else
Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
End If
@@ -112,152 +122,172 @@ Partial Public Class DD_ECMAdmin
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
-
- _
+
+ _
Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR() As TBPMO_FORM_CONSTRUCTORDataTable
Get
Return Me.tableTBPMO_FORM_CONSTRUCTOR
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR_DETAIL() As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable
Get
Return Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable
Get
Return Me.tableTBDD_CONNECTION
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property VWTEMPQUICKVIEW() As VWTEMPQUICKVIEWDataTable
Get
Return Me.tableVWTEMPQUICKVIEW
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property TBWH_ENTITIES() As TBWH_ENTITIESDataTable
Get
Return Me.tableTBWH_ENTITIES
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property TBWH_USER_GROUPS() As TBWH_USER_GROUPSDataTable
Get
Return Me.tableTBWH_USER_GROUPS
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property DT_VORSCHAU() As DT_VORSCHAUDataTable
Get
Return Me.tableDT_VORSCHAU
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property TBAD_Users() As TBAD_UsersDataTable
Get
Return Me.tableTBAD_Users
End Get
End Property
-
- _
+
+ _
+ Public ReadOnly Property TBWH_Users1() As TBWH_Users1DataTable
+ Get
+ Return Me.tableTBWH_Users1
+ End Get
+ End Property
+
+ _
+ Public ReadOnly Property TBWH_Users2() As TBWH_Users2DataTable
+ Get
+ Return Me.tableTBWH_Users2
+ End Get
+ End Property
+
+ _
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
Get
Return Me._schemaSerializationMode
End Get
- Set(value As Global.System.Data.SchemaSerializationMode)
+ Set
Me._schemaSerializationMode = value
End Set
End Property
-
- _
+
+ _
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
Get
Return MyBase.Tables
End Get
End Property
-
- _
+
+ _
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
Get
Return MyBase.Relations
End Get
End Property
-
- _
+
+ _
Protected Overrides Sub InitializeDerivedDataSet()
- Me.BeginInit()
- Me.InitClass()
- Me.EndInit()
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
End Sub
-
- _
+
+ _
Public Overrides Function Clone() As Global.System.Data.DataSet
- Dim cln As DD_ECMAdmin = CType(MyBase.Clone, DD_ECMAdmin)
- cln.InitVars()
+ Dim cln As DD_ECMAdmin = CType(MyBase.Clone,DD_ECMAdmin)
+ cln.InitVars
cln.SchemaSerializationMode = Me.SchemaSerializationMode
Return cln
End Function
-
- _
+
+ _
Protected Overrides Function ShouldSerializeTables() As Boolean
- Return False
+ Return false
End Function
-
- _
+
+ _
Protected Overrides Function ShouldSerializeRelations() As Boolean
- Return False
+ Return false
End Function
-
- _
+
+ _
Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
- Me.Reset()
+ Me.Reset
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXml(reader)
If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then
@@ -284,96 +314,114 @@ Partial Public Class DD_ECMAdmin
If (Not (ds.Tables("TBAD_Users")) Is Nothing) Then
MyBase.Tables.Add(New TBAD_UsersDataTable(ds.Tables("TBAD_Users")))
End If
+ If (Not (ds.Tables("TBWH_Users1")) Is Nothing) Then
+ MyBase.Tables.Add(New TBWH_Users1DataTable(ds.Tables("TBWH_Users1")))
+ End If
+ If (Not (ds.Tables("TBWH_Users2")) Is Nothing) Then
+ MyBase.Tables.Add(New TBWH_Users2DataTable(ds.Tables("TBWH_Users2")))
+ End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
- Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add)
- Me.InitVars()
+ Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
+ Me.InitVars
Else
Me.ReadXml(reader)
- Me.InitVars()
+ Me.InitVars
End If
End Sub
-
- _
+
+ _
Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
stream.Position = 0
Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
End Function
-
- _
+
+ _
Friend Overloads Sub InitVars()
- Me.InitVars(True)
+ Me.InitVars(true)
End Sub
-
- _
+
+ _
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
- Me.tableTBPMO_FORM_CONSTRUCTOR = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR"), TBPMO_FORM_CONSTRUCTORDataTable)
- If (initTable = True) Then
+ Me.tableTBPMO_FORM_CONSTRUCTOR = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR"),TBPMO_FORM_CONSTRUCTORDataTable)
+ If (initTable = true) Then
If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR) Is Nothing) Then
- Me.tableTBPMO_FORM_CONSTRUCTOR.InitVars()
+ Me.tableTBPMO_FORM_CONSTRUCTOR.InitVars
End If
End If
- Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"), TBPMO_FORM_CONSTRUCTOR_DETAILDataTable)
- If (initTable = True) Then
+ Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"),TBPMO_FORM_CONSTRUCTOR_DETAILDataTable)
+ If (initTable = true) Then
If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) Is Nothing) Then
- Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.InitVars()
+ Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.InitVars
End If
End If
- Me.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"), TBDD_CONNECTIONDataTable)
- If (initTable = True) Then
+ Me.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"),TBDD_CONNECTIONDataTable)
+ If (initTable = true) Then
If (Not (Me.tableTBDD_CONNECTION) Is Nothing) Then
- Me.tableTBDD_CONNECTION.InitVars()
+ Me.tableTBDD_CONNECTION.InitVars
End If
End If
- Me.tableVWTEMPQUICKVIEW = CType(MyBase.Tables("VWTEMPQUICKVIEW"), VWTEMPQUICKVIEWDataTable)
- If (initTable = True) Then
+ Me.tableVWTEMPQUICKVIEW = CType(MyBase.Tables("VWTEMPQUICKVIEW"),VWTEMPQUICKVIEWDataTable)
+ If (initTable = true) Then
If (Not (Me.tableVWTEMPQUICKVIEW) Is Nothing) Then
- Me.tableVWTEMPQUICKVIEW.InitVars()
+ Me.tableVWTEMPQUICKVIEW.InitVars
End If
End If
- Me.tableTBWH_ENTITIES = CType(MyBase.Tables("TBWH_ENTITIES"), TBWH_ENTITIESDataTable)
- If (initTable = True) Then
+ Me.tableTBWH_ENTITIES = CType(MyBase.Tables("TBWH_ENTITIES"),TBWH_ENTITIESDataTable)
+ If (initTable = true) Then
If (Not (Me.tableTBWH_ENTITIES) Is Nothing) Then
- Me.tableTBWH_ENTITIES.InitVars()
+ Me.tableTBWH_ENTITIES.InitVars
End If
End If
- Me.tableTBWH_USER_GROUPS = CType(MyBase.Tables("TBWH_USER_GROUPS"), TBWH_USER_GROUPSDataTable)
- If (initTable = True) Then
+ Me.tableTBWH_USER_GROUPS = CType(MyBase.Tables("TBWH_USER_GROUPS"),TBWH_USER_GROUPSDataTable)
+ If (initTable = true) Then
If (Not (Me.tableTBWH_USER_GROUPS) Is Nothing) Then
- Me.tableTBWH_USER_GROUPS.InitVars()
+ Me.tableTBWH_USER_GROUPS.InitVars
End If
End If
- Me.tableDT_VORSCHAU = CType(MyBase.Tables("DT_VORSCHAU"), DT_VORSCHAUDataTable)
- If (initTable = True) Then
+ Me.tableDT_VORSCHAU = CType(MyBase.Tables("DT_VORSCHAU"),DT_VORSCHAUDataTable)
+ If (initTable = true) Then
If (Not (Me.tableDT_VORSCHAU) Is Nothing) Then
- Me.tableDT_VORSCHAU.InitVars()
+ Me.tableDT_VORSCHAU.InitVars
End If
End If
- Me.tableTBAD_Users = CType(MyBase.Tables("TBAD_Users"), TBAD_UsersDataTable)
- If (initTable = True) Then
+ Me.tableTBAD_Users = CType(MyBase.Tables("TBAD_Users"),TBAD_UsersDataTable)
+ If (initTable = true) Then
If (Not (Me.tableTBAD_Users) Is Nothing) Then
- Me.tableTBAD_Users.InitVars()
+ Me.tableTBAD_Users.InitVars
+ End If
+ End If
+ Me.tableTBWH_Users1 = CType(MyBase.Tables("TBWH_Users1"),TBWH_Users1DataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBWH_Users1) Is Nothing) Then
+ Me.tableTBWH_Users1.InitVars
+ End If
+ End If
+ Me.tableTBWH_Users2 = CType(MyBase.Tables("TBWH_Users2"),TBWH_Users2DataTable)
+ If (initTable = true) Then
+ If (Not (Me.tableTBWH_Users2) Is Nothing) Then
+ Me.tableTBWH_Users2.InitVars
End If
End If
Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = Me.Relations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")
End Sub
-
- _
+
+ _
Private Sub InitClass()
Me.DataSetName = "DD_ECMAdmin"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/DD_ECMAdmin.xsd"
- Me.EnforceConstraints = True
+ Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableTBPMO_FORM_CONSTRUCTOR = New TBPMO_FORM_CONSTRUCTORDataTable()
MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR)
@@ -391,68 +439,84 @@ Partial Public Class DD_ECMAdmin
MyBase.Tables.Add(Me.tableDT_VORSCHAU)
Me.tableTBAD_Users = New TBAD_UsersDataTable()
MyBase.Tables.Add(Me.tableTBAD_Users)
- Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn}, False)
+ Me.tableTBWH_Users1 = New TBWH_Users1DataTable()
+ MyBase.Tables.Add(Me.tableTBWH_Users1)
+ Me.tableTBWH_Users2 = New TBWH_Users2DataTable()
+ MyBase.Tables.Add(Me.tableTBWH_Users2)
+ Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn}, false)
Me.Relations.Add(Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID)
End Sub
-
- _
+
+ _
Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR() As Boolean
- Return False
+ Return false
End Function
-
- _
+
+ _
Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR_DETAIL() As Boolean
- Return False
+ Return false
End Function
-
- _
+
+ _
Private Function ShouldSerializeTBDD_CONNECTION() As Boolean
- Return False
+ Return false
End Function
-
- _
+
+ _
Private Function ShouldSerializeVWTEMPQUICKVIEW() As Boolean
- Return False
+ Return false
End Function
-
- _
+
+ _
Private Function ShouldSerializeTBWH_ENTITIES() As Boolean
- Return False
+ Return false
End Function
-
- _
+
+ _
Private Function ShouldSerializeTBWH_USER_GROUPS() As Boolean
- Return False
+ Return false
End Function
-
- _
+
+ _
Private Function ShouldSerializeDT_VORSCHAU() As Boolean
- Return False
+ Return false
End Function
-
- _
+
+ _
Private Function ShouldSerializeTBAD_Users() As Boolean
- Return False
+ Return false
End Function
-
- _
+
+ _
+ Private Function ShouldSerializeTBWH_Users1() As Boolean
+ Return false
+ End Function
+
+ _
+ Private Function ShouldSerializeTBWH_Users2() As Boolean
+ Return false
+ End Function
+
+ _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
- Me.InitVars()
+ Me.InitVars
End If
End Sub
-
- _
+
+ _
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim ds As DD_ECMAdmin = New DD_ECMAdmin()
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
@@ -465,108 +529,114 @@ Partial Public Class DD_ECMAdmin
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
+ 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)
+ 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) _
+
+ 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()
+ s1.Close
End If
If (Not (s2) Is Nothing) Then
- s2.Close()
+ s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
-
- _
+
+ _
Public Delegate Sub TBPMO_FORM_CONSTRUCTORRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTORRowChangeEvent)
-
- _
+
+ _
Public Delegate Sub TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent)
-
- _
+
+ _
Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent)
-
- _
+
+ _
Public Delegate Sub VWTEMPQUICKVIEWRowChangeEventHandler(ByVal sender As Object, ByVal e As VWTEMPQUICKVIEWRowChangeEvent)
-
- _
+
+ _
Public Delegate Sub TBWH_ENTITIESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_ENTITIESRowChangeEvent)
-
- _
+
+ _
Public Delegate Sub TBWH_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_USER_GROUPSRowChangeEvent)
-
- _
+
+ _
Public Delegate Sub DT_VORSCHAURowChangeEventHandler(ByVal sender As Object, ByVal e As DT_VORSCHAURowChangeEvent)
-
- _
+
+ _
Public Delegate Sub TBAD_UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As TBAD_UsersRowChangeEvent)
-
+
+ _
+ Public Delegate Sub TBWH_Users1RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_Users1RowChangeEvent)
+
+ _
+ Public Delegate Sub TBWH_Users2RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_Users2RowChangeEvent)
+
'''
'''Represents the strongly named DataTable class.
'''
- _
+ _
Partial Public Class TBPMO_FORM_CONSTRUCTORDataTable
Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTORRow)
-
+
Private columnGUID As Global.System.Data.DataColumn
-
+
Private columnFORM_TITLE As Global.System.Data.DataColumn
-
+
Private columnSEQUENCE_MENU As Global.System.Data.DataColumn
-
+
Private columnADDED_WHO As Global.System.Data.DataColumn
-
+
Private columnADDED_WHEN As Global.System.Data.DataColumn
-
+
Private columnCHANGED_WHO As Global.System.Data.DataColumn
-
+
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
-
+
Private columnMENU_IMG As Global.System.Data.DataColumn
-
+
Private columnSHORT_TITLE As Global.System.Data.DataColumn
-
+
Private columnLANGUAGE As Global.System.Data.DataColumn
-
- _
+
+ _
Public Sub New()
- MyBase.New()
+ MyBase.New
Me.TableName = "TBPMO_FORM_CONSTRUCTOR"
- Me.BeginInit()
- Me.InitClass()
- Me.EndInit()
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
End Sub
-
- _
+
+ _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
- MyBase.New()
+ MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
@@ -580,161 +650,161 @@ Partial Public Class DD_ECMAdmin
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()
+ 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_TITLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFORM_TITLE
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property SEQUENCE_MENUColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSEQUENCE_MENU
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 MENU_IMGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMENU_IMG
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property SHORT_TITLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSHORT_TITLE
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLANGUAGE
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
-
- _
- Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTORRow
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTORRow
Get
- Return CType(Me.Rows(index), TBPMO_FORM_CONSTRUCTORRow)
+ Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTORRow)
End Get
End Property
-
- _
+
+ _
Public Event TBPMO_FORM_CONSTRUCTORRowChanging As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler
-
- _
+
+ _
Public Event TBPMO_FORM_CONSTRUCTORRowChanged As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler
-
- _
+
+ _
Public Event TBPMO_FORM_CONSTRUCTORRowDeleting As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler
-
- _
+
+ _
Public Event TBPMO_FORM_CONSTRUCTORRowDeleted As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler
-
- _
+
+ _
Public Overloads Sub AddTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow)
Me.Rows.Add(row)
End Sub
-
- _
+
+ _
Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As TBPMO_FORM_CONSTRUCTORRow
- Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow, TBPMO_FORM_CONSTRUCTORRow)
+ Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow)
Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE}
rowTBPMO_FORM_CONSTRUCTORRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTORRow)
Return rowTBPMO_FORM_CONSTRUCTORRow
End Function
-
- _
+
+ _
Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTORRow
- Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_FORM_CONSTRUCTORRow)
+ Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTORRow)
End Function
-
- _
+
+ _
Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone, TBPMO_FORM_CONSTRUCTORDataTable)
- cln.InitVars()
+ Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTORDataTable)
+ cln.InitVars
Return cln
End Function
-
- _
+
+ _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBPMO_FORM_CONSTRUCTORDataTable()
End Function
-
- _
+
+ _
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE")
@@ -747,9 +817,9 @@ Partial Public Class DD_ECMAdmin
Me.columnSHORT_TITLE = MyBase.Columns("SHORT_TITLE")
Me.columnLANGUAGE = MyBase.Columns("LANGUAGE")
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)
@@ -771,82 +841,82 @@ Partial Public Class DD_ECMAdmin
MyBase.Columns.Add(Me.columnSHORT_TITLE)
Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLANGUAGE)
- 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.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_TITLE.MaxLength = 50
- Me.columnSEQUENCE_MENU.AllowDBNull = False
+ Me.columnSEQUENCE_MENU.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
Me.columnSHORT_TITLE.MaxLength = 50
- Me.columnLANGUAGE.AllowDBNull = False
+ Me.columnLANGUAGE.AllowDBNull = false
Me.columnLANGUAGE.MaxLength = 5
End Sub
-
- _
+
+ _
Public Function NewTBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow
- Return CType(Me.NewRow, TBPMO_FORM_CONSTRUCTORRow)
+ Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow)
End Function
-
- _
+
+ _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBPMO_FORM_CONSTRUCTORRow(builder)
End Function
-
- _
+
+ _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBPMO_FORM_CONSTRUCTORRow)
End Function
-
- _
+
+ _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangedEvent) Is Nothing) Then
- RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanged(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action))
+ RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanged(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action))
End If
End Sub
-
- _
+
+ _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangingEvent) Is Nothing) Then
- RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanging(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action))
+ RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanging(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action))
End If
End Sub
-
- _
+
+ _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletedEvent) Is Nothing) Then
- RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleted(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action))
+ RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleted(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action))
End If
End Sub
-
- _
+
+ _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletingEvent) Is Nothing) Then
- RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleting(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action))
+ RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleting(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action))
End If
End Sub
-
- _
+
+ _
Public Sub RemoveTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow)
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()
@@ -875,35 +945,35 @@ Partial Public Class DD_ECMAdmin
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
+ 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)
+ 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) _
+
+ 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()
+ s1.Close
End If
If (Not (s2) Is Nothing) Then
- s2.Close()
+ s2.Close
End If
End Try
End If
@@ -911,73 +981,73 @@ Partial Public Class DD_ECMAdmin
Return type
End Function
End Class
-
+
'''
'''Represents the strongly named DataTable class.
'''
- _
+ _
Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILDataTable
Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTOR_DETAILRow)
-
+
Private columnGUID As Global.System.Data.DataColumn
-
+
Private columnCONSTRUCT_ID As Global.System.Data.DataColumn
-
+
Private columnFORM_ID As Global.System.Data.DataColumn
-
+
Private columnPARENT_ID As Global.System.Data.DataColumn
-
+
Private columnLEVEL1_SELECT As Global.System.Data.DataColumn
-
+
Private columnSEQUENCE As Global.System.Data.DataColumn
-
+
Private columnSQL_SELECT_EBENE1 As Global.System.Data.DataColumn
-
+
Private columnSQL_SELECT_EBENE2 As Global.System.Data.DataColumn
-
+
Private columnADDED_WHO As Global.System.Data.DataColumn
-
+
Private columnADDED_WHEN As Global.System.Data.DataColumn
-
+
Private columnCHANGED_WHO As Global.System.Data.DataColumn
-
+
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
-
+
Private columnCOLUMN_NAME1 As Global.System.Data.DataColumn
-
+
Private columnCOLUMN_NAME2 As Global.System.Data.DataColumn
-
+
Private columnWINDREAM_SEARCH As Global.System.Data.DataColumn
-
+
Private columnSEARCH_PATTERN1 As Global.System.Data.DataColumn
-
+
Private columnSEARCH_PATTERN2 As Global.System.Data.DataColumn
-
+
Private columnSEARCH_PATTERN3 As Global.System.Data.DataColumn
-
+
Private columnSEARCH_PATTERN4 As Global.System.Data.DataColumn
-
+
Private columnSEARCH_PATTERN5 As Global.System.Data.DataColumn
-
+
Private columnLOAD_DIRECT As Global.System.Data.DataColumn
-
+
Private columnSQL_QUICK_VIEW As Global.System.Data.DataColumn
-
- _
+
+ _
Public Sub New()
- MyBase.New()
+ MyBase.New
Me.TableName = "TBPMO_FORM_CONSTRUCTOR_DETAIL"
- Me.BeginInit()
- Me.InitClass()
- Me.EndInit()
+ Me.BeginInit
+ Me.InitClass
+ Me.EndInit
End Sub
-
- _
+
+ _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
- MyBase.New()
+ MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
@@ -991,250 +1061,250 @@ Partial Public Class DD_ECMAdmin
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()
+ Me.InitVars
End Sub
-
- _
+
+ _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property CONSTRUCT_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCONSTRUCT_ID
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 PARENT_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPARENT_ID
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property LEVEL1_SELECTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLEVEL1_SELECT
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSEQUENCE
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property SQL_SELECT_EBENE1Column() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_SELECT_EBENE1
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property SQL_SELECT_EBENE2Column() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_SELECT_EBENE2
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 COLUMN_NAME1Column() As Global.System.Data.DataColumn
Get
Return Me.columnCOLUMN_NAME1
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property COLUMN_NAME2Column() As Global.System.Data.DataColumn
Get
Return Me.columnCOLUMN_NAME2
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property WINDREAM_SEARCHColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWINDREAM_SEARCH
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property SEARCH_PATTERN1Column() As Global.System.Data.DataColumn
Get
Return Me.columnSEARCH_PATTERN1
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property SEARCH_PATTERN2Column() As Global.System.Data.DataColumn
Get
Return Me.columnSEARCH_PATTERN2
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property SEARCH_PATTERN3Column() As Global.System.Data.DataColumn
Get
Return Me.columnSEARCH_PATTERN3
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property SEARCH_PATTERN4Column() As Global.System.Data.DataColumn
Get
Return Me.columnSEARCH_PATTERN4
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property SEARCH_PATTERN5Column() As Global.System.Data.DataColumn
Get
Return Me.columnSEARCH_PATTERN5
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property LOAD_DIRECTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLOAD_DIRECT
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property SQL_QUICK_VIEWColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_QUICK_VIEW
End Get
End Property
-
- _
+
+ _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
-
- _
- Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow
+
+ _
+ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow
Get
- Return CType(Me.Rows(index), TBPMO_FORM_CONSTRUCTOR_DETAILRow)
+ Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTOR_DETAILRow)
End Get
End Property
-
- _
+
+ _
Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler
-
- _
+
+ _
Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler
-
- _
+
+ _
Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler
-
- _
+
+ _
Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler
-
- _
+
+ _
Public Overloads Sub AddTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow)
Me.Rows.Add(row)
End Sub
-
- _
+
+ _
Public Overloads Function AddTBPMO_FORM_CONSTRUCTOR_DETAILRow( _
- ByVal parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As TBPMO_FORM_CONSTRUCTORRow, _
- ByVal FORM_ID As Integer, _
- ByVal PARENT_ID As Integer, _
- ByVal LEVEL1_SELECT As Boolean, _
- ByVal SEQUENCE As Integer, _
- ByVal SQL_SELECT_EBENE1 As String, _
- ByVal SQL_SELECT_EBENE2 As String, _
- ByVal ADDED_WHO As String, _
- ByVal ADDED_WHEN As Date, _
- ByVal CHANGED_WHO As String, _
- ByVal CHANGED_WHEN As Date, _
- ByVal COLUMN_NAME1 As String, _
- ByVal COLUMN_NAME2 As String, _
- ByVal WINDREAM_SEARCH As String, _
- ByVal SEARCH_PATTERN1 As String, _
- ByVal SEARCH_PATTERN2 As String, _
- ByVal SEARCH_PATTERN3 As String, _
- ByVal SEARCH_PATTERN4 As String, _
- ByVal SEARCH_PATTERN5 As String, _
- ByVal LOAD_DIRECT As Boolean, _
+ ByVal parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As TBPMO_FORM_CONSTRUCTORRow, _
+ ByVal FORM_ID As Integer, _
+ ByVal PARENT_ID As Integer, _
+ ByVal LEVEL1_SELECT As Boolean, _
+ ByVal SEQUENCE As Integer, _
+ ByVal SQL_SELECT_EBENE1 As String, _
+ ByVal SQL_SELECT_EBENE2 As String, _
+ ByVal ADDED_WHO As String, _
+ ByVal ADDED_WHEN As Date, _
+ ByVal CHANGED_WHO As String, _
+ ByVal CHANGED_WHEN As Date, _
+ ByVal COLUMN_NAME1 As String, _
+ ByVal COLUMN_NAME2 As String, _
+ ByVal WINDREAM_SEARCH As String, _
+ ByVal SEARCH_PATTERN1 As String, _
+ ByVal SEARCH_PATTERN2 As String, _
+ ByVal SEARCH_PATTERN3 As String, _
+ ByVal SEARCH_PATTERN4 As String, _
+ ByVal SEARCH_PATTERN5 As String, _
+ ByVal LOAD_DIRECT As Boolean, _
ByVal SQL_QUICK_VIEW As String) As TBPMO_FORM_CONSTRUCTOR_DETAILRow
- Dim rowTBPMO_FORM_CONSTRUCTOR_DETAILRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow = CType(Me.NewRow, TBPMO_FORM_CONSTRUCTOR_DETAILRow)
+ Dim rowTBPMO_FORM_CONSTRUCTOR_DETAILRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, LOAD_DIRECT, SQL_QUICK_VIEW}
If (Not (parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) Is Nothing) Then
columnValuesArray(1) = parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID(0)
@@ -1243,29 +1313,29 @@ Partial Public Class DD_ECMAdmin
Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTOR_DETAILRow)
Return rowTBPMO_FORM_CONSTRUCTOR_DETAILRow
End Function
-
- _
+
+ _
Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow
- Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_FORM_CONSTRUCTOR_DETAILRow)
+ Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTOR_DETAILRow)
End Function
-
- _
+
+ _
Public Overrides Function Clone() As Global.System.Data.DataTable
- Dim cln As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = CType(MyBase.Clone, TBPMO_FORM_CONSTRUCTOR_DETAILDataTable)
- cln.InitVars()
+ Dim cln As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable)
+ cln.InitVars
Return cln
End Function
-
- _
+
+ _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable()
End Function
-
-