MS_17022016
This commit is contained in:
SchreiberM
109
app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb
generated
109
app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb
generated
@@ -446,6 +446,8 @@ Partial Public Class DD_ECMAdmin
|
||||
|
||||
Private columnSHORT_TITLE As Global.System.Data.DataColumn
|
||||
|
||||
Private columnLANGUAGE As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -553,6 +555,14 @@ Partial Public Class DD_ECMAdmin
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnLANGUAGE
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(False)> _
|
||||
@@ -590,9 +600,9 @@ Partial Public Class DD_ECMAdmin
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
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) As TBPMO_FORM_CONSTRUCTORRow
|
||||
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 columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE}
|
||||
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
|
||||
@@ -630,6 +640,7 @@ Partial Public Class DD_ECMAdmin
|
||||
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
|
||||
Me.columnMENU_IMG = MyBase.Columns("MENU_IMG")
|
||||
Me.columnSHORT_TITLE = MyBase.Columns("SHORT_TITLE")
|
||||
Me.columnLANGUAGE = MyBase.Columns("LANGUAGE")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -653,6 +664,8 @@ Partial Public Class DD_ECMAdmin
|
||||
MyBase.Columns.Add(Me.columnMENU_IMG)
|
||||
Me.columnSHORT_TITLE = New Global.System.Data.DataColumn("SHORT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
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
|
||||
@@ -660,10 +673,11 @@ Partial Public Class DD_ECMAdmin
|
||||
Me.columnGUID.Unique = True
|
||||
Me.columnFORM_TITLE.MaxLength = 50
|
||||
Me.columnSEQUENCE_MENU.AllowDBNull = False
|
||||
Me.columnADDED_WHO.AllowDBNull = False
|
||||
Me.columnADDED_WHO.MaxLength = 50
|
||||
Me.columnCHANGED_WHO.MaxLength = 50
|
||||
Me.columnSHORT_TITLE.MaxLength = 50
|
||||
Me.columnLANGUAGE.AllowDBNull = False
|
||||
Me.columnLANGUAGE.MaxLength = 5
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -2440,7 +2454,11 @@ Partial Public Class DD_ECMAdmin
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property ADDED_WHO() As String
|
||||
Get
|
||||
Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn), String)
|
||||
Try
|
||||
Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn), String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set(value As String)
|
||||
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value
|
||||
@@ -2522,6 +2540,17 @@ Partial Public Class DD_ECMAdmin
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property LANGUAGE() As String
|
||||
Get
|
||||
Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn), String)
|
||||
End Get
|
||||
Set(value As String)
|
||||
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IsFORM_TITLENull() As Boolean
|
||||
@@ -2534,6 +2563,18 @@ Partial Public Class DD_ECMAdmin
|
||||
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IsADDED_WHONull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetADDED_WHONull()
|
||||
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IsADDED_WHENNull() As Boolean
|
||||
@@ -3862,6 +3903,7 @@ Namespace DD_ECMAdminTableAdapters
|
||||
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
|
||||
tableMapping.ColumnMappings.Add("MENU_IMG", "MENU_IMG")
|
||||
tableMapping.ColumnMappings.Add("SHORT_TITLE", "SHORT_TITLE")
|
||||
tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@@ -3871,29 +3913,32 @@ Namespace DD_ECMAdminTableAdapters
|
||||
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.InsertCommand.Connection = Me.Connection
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (FORM_TITLE, SEQUENC" & _
|
||||
"E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@FORM_TITLE,@SEQUENCE_" & _
|
||||
"MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, FORM_TITLE, SEQUENCE_MEN" & _
|
||||
"U, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM " & _
|
||||
"TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())"
|
||||
"E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE, LANGUAGE)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@FORM_TITLE," & _
|
||||
"@SEQUENCE_MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE,@LANGUAGE); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, FOR" & _
|
||||
"M_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_I" & _
|
||||
"MG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())"
|
||||
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_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, "", "", ""))
|
||||
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.UpdateCommand.Connection = Me.Connection
|
||||
Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET FORM_TITLE = @FORM_TITLE," & _
|
||||
" SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IM" & _
|
||||
"G, SHORT_TITLE = @SHORT_TITLE" & 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 G" & _
|
||||
"UID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN" & _
|
||||
", MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)"
|
||||
"G, SHORT_TITLE = @SHORT_TITLE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " LANGUAGE = @LANGUAGE" & 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, FORM_TITLE, SEQUENCE_MENU" & _
|
||||
", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM T" & _
|
||||
"BPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)"
|
||||
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_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, "", "", ""))
|
||||
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
|
||||
@@ -3911,17 +3956,27 @@ Namespace DD_ECMAdminTableAdapters
|
||||
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
|
||||
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO" & _
|
||||
", CHANGED_WHEN, MENU_IMG, SHORT_TITLE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_FORM_CONSTRUCTOR"
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'CONSTR_MENUE' + CONVER" & _
|
||||
"T(VARCHAR(5), GUID), @SCREEN_ID) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_" & _
|
||||
"WHEN, CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHEN, MENU_IMG, SHORT_TITL" & _
|
||||
"E, LANGUAGE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_FORM_CONSTRUCTOR"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, True)> _
|
||||
Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer
|
||||
Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As Integer
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
||||
If (LANGUAGE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("LANGUAGE")
|
||||
Else
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String)
|
||||
End If
|
||||
Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID, Integer)
|
||||
If (Me.ClearBeforeFill = True) Then
|
||||
dataTable.Clear()
|
||||
End If
|
||||
@@ -3933,8 +3988,14 @@ Namespace DD_ECMAdminTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], True)> _
|
||||
Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable
|
||||
Public Overridable Overloads Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
||||
If (LANGUAGE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("LANGUAGE")
|
||||
Else
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String)
|
||||
End If
|
||||
Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID, Integer)
|
||||
Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable()
|
||||
Me.Adapter.Fill(dataTable)
|
||||
Return dataTable
|
||||
@@ -3993,7 +4054,7 @@ Namespace DD_ECMAdminTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, True)> _
|
||||
Public Overridable Overloads Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As Integer
|
||||
Public Overridable Overloads Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As Integer
|
||||
If (FORM_TITLE Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
@@ -4015,6 +4076,11 @@ Namespace DD_ECMAdminTableAdapters
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE, String)
|
||||
End If
|
||||
If (LANGUAGE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("LANGUAGE")
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE, String)
|
||||
End If
|
||||
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
|
||||
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
||||
<> Global.System.Data.ConnectionState.Open) Then
|
||||
@@ -4034,7 +4100,7 @@ Namespace DD_ECMAdminTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, True)> _
|
||||
Public Overridable Overloads Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
Public Overridable Overloads Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
If (FORM_TITLE Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
@@ -4056,8 +4122,13 @@ Namespace DD_ECMAdminTableAdapters
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHORT_TITLE, String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID, Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID, Integer)
|
||||
If (LANGUAGE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("LANGUAGE")
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE, String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID, Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(7).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