MS WISAG
This commit is contained in:
205
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb
generated
205
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb
generated
@@ -5102,6 +5102,8 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
|
||||
Private columnSQL_ENABLE As Global.System.Data.DataColumn
|
||||
|
||||
Private columnSET_CONTROL_DATA As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -5417,6 +5419,14 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property SET_CONTROL_DATAColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnSET_CONTROL_DATA
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -5488,9 +5498,10 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
ByVal REGEX_MESSAGE_EN As String, _
|
||||
ByVal IMAGE_CONTROL() As Byte, _
|
||||
ByVal SQL2 As String, _
|
||||
ByVal SQL_ENABLE As String) As TBPM_PROFILE_CONTROLSRow
|
||||
ByVal SQL_ENABLE As String, _
|
||||
ByVal SET_CONTROL_DATA As String) As TBPM_PROFILE_CONTROLSRow
|
||||
Dim rowTBPM_PROFILE_CONTROLSRow As TBPM_PROFILE_CONTROLSRow = CType(Me.NewRow,TBPM_PROFILE_CONTROLSRow)
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE}
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE, SET_CONTROL_DATA}
|
||||
If (Not (parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE1) Is Nothing) Then
|
||||
columnValuesArray(1) = parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE1(0)
|
||||
End If
|
||||
@@ -5557,6 +5568,7 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me.columnIMAGE_CONTROL = MyBase.Columns("IMAGE_CONTROL")
|
||||
Me.columnSQL2 = MyBase.Columns("SQL2")
|
||||
Me.columnSQL_ENABLE = MyBase.Columns("SQL_ENABLE")
|
||||
Me.columnSET_CONTROL_DATA = MyBase.Columns("SET_CONTROL_DATA")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -5632,6 +5644,8 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
MyBase.Columns.Add(Me.columnSQL2)
|
||||
Me.columnSQL_ENABLE = New Global.System.Data.DataColumn("SQL_ENABLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnSQL_ENABLE)
|
||||
Me.columnSET_CONTROL_DATA = New Global.System.Data.DataColumn("SET_CONTROL_DATA", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnSET_CONTROL_DATA)
|
||||
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
|
||||
@@ -5671,6 +5685,7 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me.columnREGEX_MESSAGE_EN.MaxLength = 1000
|
||||
Me.columnSQL2.MaxLength = 2147483647
|
||||
Me.columnSQL_ENABLE.MaxLength = 2147483647
|
||||
Me.columnSET_CONTROL_DATA.MaxLength = 2147483647
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -7894,6 +7909,10 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
|
||||
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
|
||||
|
||||
Private columnOBJ_NAME As Global.System.Data.DataColumn
|
||||
|
||||
Private columnINTERNAL As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -8049,6 +8068,22 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property OBJ_NAMEColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnOBJ_NAME
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnINTERNAL
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -8086,9 +8121,25 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Overloads Function AddTBDD_GUI_LANGUAGE_PHRASERow(ByVal _MODULE As String, ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GUI_LANGUAGE_PHRASERow
|
||||
Public Overloads Function AddTBDD_GUI_LANGUAGE_PHRASERow( _
|
||||
ByVal _MODULE As String, _
|
||||
ByVal TITLE As String, _
|
||||
ByVal LANGUAGE As String, _
|
||||
ByVal CAPT_TYPE As String, _
|
||||
ByVal STRING1 As String, _
|
||||
ByVal STRING2 As String, _
|
||||
ByVal STRING3 As String, _
|
||||
ByVal STRING4 As String, _
|
||||
ByVal STRING5 As String, _
|
||||
ByVal STRING6 As String, _
|
||||
ByVal ADDED_WHO As String, _
|
||||
ByVal ADDED_WHEN As Date, _
|
||||
ByVal CHANGED_WHO As String, _
|
||||
ByVal CHANGED_WHEN As Date, _
|
||||
ByVal OBJ_NAME As String, _
|
||||
ByVal INTERNAL As Boolean) As TBDD_GUI_LANGUAGE_PHRASERow
|
||||
Dim rowTBDD_GUI_LANGUAGE_PHRASERow As TBDD_GUI_LANGUAGE_PHRASERow = CType(Me.NewRow,TBDD_GUI_LANGUAGE_PHRASERow)
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, _MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, _MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OBJ_NAME, INTERNAL}
|
||||
rowTBDD_GUI_LANGUAGE_PHRASERow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowTBDD_GUI_LANGUAGE_PHRASERow)
|
||||
Return rowTBDD_GUI_LANGUAGE_PHRASERow
|
||||
@@ -8132,6 +8183,8 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
|
||||
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
|
||||
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
|
||||
Me.columnOBJ_NAME = MyBase.Columns("OBJ_NAME")
|
||||
Me.columnINTERNAL = MyBase.Columns("INTERNAL")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -8170,6 +8223,10 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
MyBase.Columns.Add(Me.columnCHANGED_WHO)
|
||||
Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
|
||||
Me.columnOBJ_NAME = New Global.System.Data.DataColumn("OBJ_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnOBJ_NAME)
|
||||
Me.columnINTERNAL = New Global.System.Data.DataColumn("INTERNAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnINTERNAL)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
||||
Me.columnGUID.AutoIncrement = true
|
||||
Me.columnGUID.AutoIncrementSeed = 1
|
||||
@@ -8196,6 +8253,10 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me.columnADDED_WHO.AllowDBNull = false
|
||||
Me.columnADDED_WHO.MaxLength = 30
|
||||
Me.columnCHANGED_WHO.MaxLength = 30
|
||||
Me.columnOBJ_NAME.AllowDBNull = false
|
||||
Me.columnOBJ_NAME.MaxLength = 100
|
||||
Me.columnINTERNAL.AllowDBNull = false
|
||||
Me.columnINTERNAL.DefaultValue = CType(false,Boolean)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -11463,6 +11524,22 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property SET_CONTROL_DATA() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SET_CONTROL_DATA in Tabelle TBPM_PROFILE_CONTROLS ist DBNull."& _
|
||||
"", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property TBPM_PROFILERow() As TBPM_PROFILERow
|
||||
@@ -11666,6 +11743,18 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn) = 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 IsSET_CONTROL_DATANull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub SetSET_CONTROL_DATANull()
|
||||
Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn) = 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 GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow()
|
||||
@@ -13059,6 +13148,28 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property OBJ_NAME() As String
|
||||
Get
|
||||
Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.OBJ_NAMEColumn),String)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.OBJ_NAMEColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property INTERNAL() As Boolean
|
||||
Get
|
||||
Return CType(Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.INTERNALColumn),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_GUI_LANGUAGE_PHRASE.INTERNALColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsSTRING3Null() As Boolean
|
||||
@@ -19066,6 +19177,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
tableMapping.ColumnMappings.Add("IMAGE_CONTROL", "IMAGE_CONTROL")
|
||||
tableMapping.ColumnMappings.Add("SQL2", "SQL2")
|
||||
tableMapping.ColumnMappings.Add("SQL_ENABLE", "SQL_ENABLE")
|
||||
tableMapping.ColumnMappings.Add("SET_CONTROL_DATA", "SET_CONTROL_DATA")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@@ -19203,8 +19315,8 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
"FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAU"& _
|
||||
"LT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL"& _
|
||||
"2, SQL_ENABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid"& _
|
||||
")"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X_LOC"
|
||||
"2, SQL_ENABLE, SET_CONTROL_DATA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
||||
" (GUID = @guid)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X_LOC"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(0).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.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
@@ -19288,15 +19400,18 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Me._commandCollection(10).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._commandCollection(11) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(11).Connection = Me.Connection
|
||||
Me._commandCollection(11).CommandText = "SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, CHOICE_LIST, CONN"& _
|
||||
"ECTION_ID, CTRL_TEXT, CTRL_TYPE, DEFAULT_VALUE, FONT_COLOR, FONT_FAMILY, FONT_SI"& _
|
||||
"ZE, FONT_STYLE, GUID, HEIGHT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" INDEX_NAME, LOAD_IDX_VA"& _
|
||||
"LUE, MULTISELECT, NAME, PROFIL_ID, READ_ONLY, REGEX_MATCH, REGEX_MESSAGE_DE, REG"& _
|
||||
"EX_MESSAGE_EN, SQL_UEBERPRUEFUNG, TYP, VALIDATION, VKT_ADD_ITEM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" VKT_PREVENT_MULTIPLE_VALUES, WIDTH, X_LOC, Y_LOC, IMAGE_CONTROL, SQL"& _
|
||||
"2, SQL_ENABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = "& _
|
||||
"@profil_id)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Y_LOC, X_LOC"
|
||||
Me._commandCollection(11).CommandText = "SELECT dbo.FNPM_LANGUAGE_CONTROL_TEXT(NAME, @USER_LANGUAGE, CTRL_TYPE, CTR"& _
|
||||
"L_TEXT) AS CTRL_CAPTION_LANG, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, "& _
|
||||
"CHOICE_LIST, CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CTRL_TEXT, CTRL_TYPE, DEF"& _
|
||||
"AULT_VALUE, FONT_COLOR, FONT_FAMILY, FONT_SIZE, FONT_STYLE, GUID, HEIGHT, INDEX_"& _
|
||||
"NAME, LOAD_IDX_VALUE, MULTISELECT, NAME, PROFIL_ID, READ_ONLY, REGEX_MATCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, SQL_UEBERPRUEFUNG, TY"& _
|
||||
"P, VALIDATION, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, WIDTH, X_LOC, Y_LOC, I"& _
|
||||
"MAGE_CONTROL, SQL2, SQL_ENABLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SET_CONTROL_DATA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FRO"& _
|
||||
"M TBPM_PROFILE_CONTROLS AS T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @profil_id)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
|
||||
"ORDER BY Y_LOC, X_LOC"
|
||||
Me._commandCollection(11).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(11).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(11).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
|
||||
@@ -19330,9 +19445,14 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
||||
Public Overloads Overridable Function FillByProfil(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable, ByVal profil_id As Integer) As Integer
|
||||
Public Overloads Overridable Function FillByProfil(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable, ByVal USER_LANGUAGE As String, ByVal profil_id As Integer) As Integer
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(11)
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(profil_id,Integer)
|
||||
If (USER_LANGUAGE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("USER_LANGUAGE")
|
||||
Else
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_LANGUAGE,String)
|
||||
End If
|
||||
Me.Adapter.SelectCommand.Parameters(1).Value = CType(profil_id,Integer)
|
||||
If (Me.ClearBeforeFill = true) Then
|
||||
dataTable.Clear
|
||||
End If
|
||||
@@ -19344,9 +19464,14 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
||||
Public Overloads Overridable Function GetDataByProfil(ByVal profil_id As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable
|
||||
Public Overloads Overridable Function GetDataByProfil(ByVal USER_LANGUAGE As String, ByVal profil_id As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(11)
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(profil_id,Integer)
|
||||
If (USER_LANGUAGE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("USER_LANGUAGE")
|
||||
Else
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_LANGUAGE,String)
|
||||
End If
|
||||
Me.Adapter.SelectCommand.Parameters(1).Value = CType(profil_id,Integer)
|
||||
Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLSDataTable()
|
||||
Me.Adapter.Fill(dataTable)
|
||||
Return dataTable
|
||||
@@ -21980,6 +22105,8 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
|
||||
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
|
||||
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
|
||||
tableMapping.ColumnMappings.Add("OBJ_NAME", "OBJ_NAME")
|
||||
tableMapping.ColumnMappings.Add("INTERNAL", "INTERNAL")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@@ -21990,11 +22117,11 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Me._adapter.InsertCommand.Connection = Me.Connection
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (MODULE, TITLE, LA"& _
|
||||
"NGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING6, ADDED_W"& _
|
||||
"HO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES ('PM',@TITLE,@LANGUAGE,@CAPT_TYPE,@STRING1,@STRING2,@STRING3,"& _
|
||||
"@STRING4,@STRING5,@STRING6,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MODULE, TITLE, LANGUAGE, "& _
|
||||
"CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING6, ADDED_WHO, ADDE"& _
|
||||
"D_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GUI_LANGUAGE_PHRASE WHERE (GUID = SC"& _
|
||||
"OPE_IDENTITY())"
|
||||
"HO, OBJ_NAME, INTERNAL)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES ('PM',@TITLE,@LANGUAGE,@CAPT_TYPE,@STRING"& _
|
||||
"1,@STRING2,@STRING3,@STRING4,@STRING5,@STRING6,@ADDED_WHO, '@OBJ_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"@OBJ_NAME"& _
|
||||
"',@INTERNAL); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRI"& _
|
||||
"NG2, STRING3, STRING4, STRING5, STRING6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHA"& _
|
||||
"NGED_WHEN FROM TBDD_GUI_LANGUAGE_PHRASE WHERE (GUID = SCOPE_IDENTITY())"
|
||||
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@@ -22006,14 +22133,16 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING5", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING6", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.UpdateCommand.Connection = Me.Connection
|
||||
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, LANGUAG"& _
|
||||
"E = @LANGUAGE, CAPT_TYPE = @CAPT_TYPE, STRING1 = @STRING1, STRING2 = @STRING2, S"& _
|
||||
"TRING3 = @STRING3, STRING4 = @STRING4, STRING5 = @STRING5, STRING6 = @STRING6, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Orig"& _
|
||||
"inal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2,"& _
|
||||
" STRING3, STRING4, STRING5, STRING6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _
|
||||
"_WHEN FROM TBDD_GUI_LANGUAGE_PHRASE WHERE (GUID = @GUID)"
|
||||
"TRING3 = @STRING3, STRING4 = @STRING4, STRING5 = @STRING5, STRING6 = @STRING6, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO, OBJ_NAME = @OBJ_NAME, INTE"& _
|
||||
"RNAL = @INTERNAL"&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, MODULE,"& _
|
||||
" TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING"& _
|
||||
"6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GUI_LANGUAGE_PHRAS"& _
|
||||
"E WHERE (GUID = @GUID)"
|
||||
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@@ -22025,6 +22154,8 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING5", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING6", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJ_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", 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
|
||||
@@ -22043,8 +22174,9 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3"& _
|
||||
", STRING4, STRING5, STRING6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"F"& _
|
||||
"ROM TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE = 'PM')"
|
||||
", STRING4, STRING5, STRING6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, O"& _
|
||||
"BJ_NAME, INTERNAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODUL"& _
|
||||
"E = 'PM')"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
End Sub
|
||||
|
||||
@@ -22125,7 +22257,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
|
||||
Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal ADDED_WHO As String) As Integer
|
||||
Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal ADDED_WHO As String, ByVal INTERNAL As Boolean) As Integer
|
||||
If (TITLE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("TITLE")
|
||||
Else
|
||||
@@ -22176,6 +22308,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(9).Value = CType(ADDED_WHO,String)
|
||||
End If
|
||||
Me.Adapter.InsertCommand.Parameters(10).Value = CType(INTERNAL,Boolean)
|
||||
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
|
||||
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
||||
<> Global.System.Data.ConnectionState.Open) Then
|
||||
@@ -22195,7 +22328,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
|
||||
Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal CHANGED_WHO As String, ByVal OBJ_NAME As String, ByVal INTERNAL As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
If (TITLE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("TITLE")
|
||||
Else
|
||||
@@ -22246,8 +22379,14 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHO,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Integer)
|
||||
If (OBJ_NAME Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("OBJ_NAME")
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(OBJ_NAME,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(INTERNAL,Boolean)
|
||||
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GUID,Integer)
|
||||
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
|
||||
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
||||
<> Global.System.Data.ConnectionState.Open) Then
|
||||
|
||||
Reference in New Issue
Block a user