AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

remove PROPERTY1

Browse Source
This commit is contained in:
Jonathan Jenne
2019-05-13 14:53:54 +02:00
parent 3f5236ad65
commit 09b104c4d6
5 changed files with 649 additions and 1287 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb generated
View File

@@ -307,8 +307,6 @@ Partial Public Class FinalIndexDataSet
Private columnACTIVE As Global.System.Data.DataColumn
Private columnPROPERTY1 As Global.System.Data.DataColumn
Private columnPREVENT_DUPLICATES As Global.System.Data.DataColumn
Private columnALLOW_NEW_VALUES As Global.System.Data.DataColumn
@@ -444,14 +442,6 @@ Partial Public Class FinalIndexDataSet
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property PROPERTY1Column() As Global.System.Data.DataColumn
Get
Return Me.columnPROPERTY1
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property PREVENT_DUPLICATESColumn() As Global.System.Data.DataColumn
@@ -505,9 +495,9 @@ Partial Public Class FinalIndexDataSet
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal PROFIL_ID As Integer, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal DESCRIPTION As String, ByVal ACTIVE As Boolean, ByVal PROPERTY1 As String, ByVal PREVENT_DUPLICATES As Boolean, ByVal ALLOW_NEW_VALUES As Boolean) As TBPM_PROFILE_FINAL_INDEXINGRow
Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal PROFIL_ID As Integer, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal DESCRIPTION As String, ByVal ACTIVE As Boolean, ByVal PREVENT_DUPLICATES As Boolean, ByVal ALLOW_NEW_VALUES As Boolean) As TBPM_PROFILE_FINAL_INDEXINGRow
Dim rowTBPM_PROFILE_FINAL_INDEXINGRow As TBPM_PROFILE_FINAL_INDEXINGRow = CType(Me.NewRow,TBPM_PROFILE_FINAL_INDEXINGRow)
Dim columnValuesArray() As Object = New Object() {Nothing, PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DESCRIPTION, ACTIVE, PROPERTY1, PREVENT_DUPLICATES, ALLOW_NEW_VALUES}
Dim columnValuesArray() As Object = New Object() {Nothing, PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DESCRIPTION, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES}
rowTBPM_PROFILE_FINAL_INDEXINGRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBPM_PROFILE_FINAL_INDEXINGRow)
Return rowTBPM_PROFILE_FINAL_INDEXINGRow
@@ -548,7 +538,6 @@ Partial Public Class FinalIndexDataSet
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION")
Me.columnACTIVE = MyBase.Columns("ACTIVE")
Me.columnPROPERTY1 = MyBase.Columns("PROPERTY1")
Me.columnPREVENT_DUPLICATES = MyBase.Columns("PREVENT_DUPLICATES")
Me.columnALLOW_NEW_VALUES = MyBase.Columns("ALLOW_NEW_VALUES")
End Sub
@@ -580,8 +569,6 @@ Partial Public Class FinalIndexDataSet
MyBase.Columns.Add(Me.columnDESCRIPTION)
Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnACTIVE)
Me.columnPROPERTY1 = New Global.System.Data.DataColumn("PROPERTY1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPROPERTY1)
Me.columnPREVENT_DUPLICATES = New Global.System.Data.DataColumn("PREVENT_DUPLICATES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPREVENT_DUPLICATES)
Me.columnALLOW_NEW_VALUES = New Global.System.Data.DataColumn("ALLOW_NEW_VALUES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
@@ -608,7 +595,6 @@ Partial Public Class FinalIndexDataSet
Me.columnDESCRIPTION.AllowDBNull = false
Me.columnDESCRIPTION.MaxLength = 2147483647
Me.columnACTIVE.AllowDBNull = false
Me.columnPROPERTY1.MaxLength = 50
Me.columnPREVENT_DUPLICATES.AllowDBNull = false
Me.columnALLOW_NEW_VALUES.AllowDBNull = false
End Sub
@@ -897,21 +883,6 @@ Partial Public Class FinalIndexDataSet
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property PROPERTY1() As String
Get
Try
Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PROPERTY1Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PROPERTY1 in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PROPERTY1Column) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property PREVENT_DUPLICATES() As Boolean
@@ -957,18 +928,6 @@ Partial Public Class FinalIndexDataSet
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsPROPERTY1Null() As Boolean
Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.PROPERTY1Column)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetPROPERTY1Null()
Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PROPERTY1Column) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
@@ -1149,7 +1108,6 @@ Namespace FinalIndexDataSetTableAdapters
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION")
tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE")
tableMapping.ColumnMappings.Add("PROPERTY1", "PROPERTY1")
tableMapping.ColumnMappings.Add("PREVENT_DUPLICATES", "PREVENT_DUPLICATES")
tableMapping.ColumnMappings.Add("ALLOW_NEW_VALUES", "ALLOW_NEW_VALUES")
Me._adapter.TableMappings.Add(tableMapping)
@@ -1168,18 +1126,16 @@ Namespace FinalIndexDataSetTableAdapters
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {}
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFILE_FINAL_INDEXING.PROFI"& _
"L_ID, TBPM_PROFILE_FINAL_INDEXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.SQL"& _
"_COMMAND, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM"& _
"_PROFILE_FINAL_INDEXING.VALUE, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHO, TBPM_PROFI"& _
"LE_FINAL_INDEXING.ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDE"& _
"XING.CHANGED_WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_I"& _
"NDEXING.DESCRIPTION, TBPM_PROFILE_FINAL_INDEXING.ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBPM_PROFILE_FINAL_INDEXING.PROPERTY1, TBPM_PROFILE_FINAL_INDEXING.PREVENT_D"& _
"UPLICATES, TBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PR"& _
"OFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE ON TBPM_P"& _
"ROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPM_PROFILE."& _
"NAME = @NAME)"
Me._commandCollection(0).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID, T"& _
"BPM_PROFILE_FINAL_INDEXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.SQL_COMMAN"& _
"D, TBPM_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING.VALUE, TBP"& _
"M_PROFILE_FINAL_INDEXING.ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHEN, TBPM"& _
"_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, T"& _
"BPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL_INDEXING.ACTIVE, TBPM"& _
"_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATES, TBPM_PROFILE_FINAL_INDEXING.ALLOW_NE"& _
"W_VALUES FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN TBPM_PROFILE ON TBPM_PROFIL"& _
"E_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID WHERE (TBPM_PROFILE.NAME = @NAME)"& _
""
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).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._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()