MS Klassen überarbeitet NLOG integriert

This commit is contained in:
Digital Data - Marlon Schreiber
2018-08-16 10:58:57 +02:00
parent be9fca94b3
commit 844a423f7d
76 changed files with 365601 additions and 1752 deletions

View File

@@ -1808,6 +1808,10 @@ Partial Public Class MyDataset
Private columnGEAENDERTWANN As Global.System.Data.DataColumn
Private columnSTRING5 As Global.System.Data.DataColumn
Private columnSTRING6 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()
@@ -1979,6 +1983,22 @@ Partial Public Class MyDataset
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property STRING5Column() As Global.System.Data.DataColumn
Get
Return Me.columnSTRING5
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property STRING6Column() As Global.System.Data.DataColumn
Get
Return Me.columnSTRING6
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)> _
@@ -2032,9 +2052,11 @@ Partial Public Class MyDataset
ByVal ERSTELLTWER As String, _
ByVal ERSTELLTWANN As Date, _
ByVal GEAENDERTWER As String, _
ByVal GEAENDERTWANN As Date) As TBWMRH_PROFIL_JOBRow
ByVal GEAENDERTWANN As Date, _
ByVal STRING5 As String, _
ByVal STRING6 As String) As TBWMRH_PROFIL_JOBRow
Dim rowTBWMRH_PROFIL_JOBRow As TBWMRH_PROFIL_JOBRow = CType(Me.NewRow,TBWMRH_PROFIL_JOBRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN}
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN, STRING5, STRING6}
If (Not (parentTBWMRH_PROFILRowByFK_TBPROFIL_JOB_PROFILID) Is Nothing) Then
columnValuesArray(1) = parentTBWMRH_PROFILRowByFK_TBPROFIL_JOB_PROFILID(0)
End If
@@ -2083,6 +2105,8 @@ Partial Public Class MyDataset
Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN")
Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER")
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
Me.columnSTRING5 = MyBase.Columns("STRING5")
Me.columnSTRING6 = MyBase.Columns("STRING6")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -2122,6 +2146,10 @@ Partial Public Class MyDataset
MyBase.Columns.Add(Me.columnGEAENDERTWER)
Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGEAENDERTWANN)
Me.columnSTRING5 = New Global.System.Data.DataColumn("STRING5", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSTRING5)
Me.columnSTRING6 = New Global.System.Data.DataColumn("STRING6", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSTRING6)
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
@@ -2143,6 +2171,8 @@ Partial Public Class MyDataset
Me.columnREIHENFOLGE.DefaultValue = CType(1,Integer)
Me.columnERSTELLTWER.MaxLength = 50
Me.columnGEAENDERTWER.MaxLength = 50
Me.columnSTRING5.MaxLength = 2147483647
Me.columnSTRING6.MaxLength = 2147483647
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -3746,6 +3776,36 @@ Partial Public Class MyDataset
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property STRING5() As String
Get
Try
Return CType(Me(Me.tableTBWMRH_PROFIL_JOB.STRING5Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING5 in Tabelle TBWMRH_PROFIL_JOB ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWMRH_PROFIL_JOB.STRING5Column) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property STRING6() As String
Get
Try
Return CType(Me(Me.tableTBWMRH_PROFIL_JOB.STRING6Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING6 in Tabelle TBWMRH_PROFIL_JOB ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWMRH_PROFIL_JOB.STRING6Column) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property TBWMRH_PROFILRow() As TBWMRH_PROFILRow
@@ -3924,6 +3984,30 @@ Partial Public Class MyDataset
Public Sub SetGEAENDERTWANNNull()
Me(Me.tableTBWMRH_PROFIL_JOB.GEAENDERTWANNColumn) = 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 IsSTRING5Null() As Boolean
Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.STRING5Column)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetSTRING5Null()
Me(Me.tableTBWMRH_PROFIL_JOB.STRING5Column) = 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 IsSTRING6Null() As Boolean
Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.STRING6Column)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetSTRING6Null()
Me(Me.tableTBWMRH_PROFIL_JOB.STRING6Column) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
@@ -5661,6 +5745,8 @@ Namespace MyDatasetTableAdapters
tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN")
tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER")
tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN")
tableMapping.ColumnMappings.Add("STRING5", "STRING5")
tableMapping.ColumnMappings.Add("STRING6", "STRING6")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -5671,11 +5757,12 @@ Namespace MyDatasetTableAdapters
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBWMRH_PROFIL_JOB"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, JOB_TYP, STRI"& _
"NG1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, "& _
"ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@JOB_TYP,@STRING1,@STRING2,@STRING3,@STR"& _
"ING4,@BOOL1,@BOOL2,@BOOL3,@BOOL4,@AKTIV,@REIHENFOLGE,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUI"& _
"D, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, "& _
"BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWAN"& _
"N FROM TBWMRH_PROFIL_JOB WHERE (GUID = SCOPE_IDENTITY())"
"ERSTELLTWER, STRING5, STRING6)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@JOB_TYP,@STRING1,@STR"& _
"ING2,@STRING3,@STRING4,@BOOL1,@BOOL2,@BOOL3,@BOOL4,@AKTIV,@REIHENFOLGE,@ERSTELLT"& _
"WER,@STRING5,@STRING6); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, ST"& _
"RING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERS"& _
"TELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_JOB WHERE (GUID = SCOP"& _
"E_IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.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, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JOB_TYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "JOB_TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -5690,70 +5777,36 @@ Namespace MyDatasetTableAdapters
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REIHENFOLGE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "REIHENFOLGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING5", Global.System.Data.SqlDbType.VarChar, 2147483647, 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, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING6", 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 [TBWMRH_PROFIL_JOB] SET [PROFIL_ID] = @PROFIL_ID, [JOB_TYP] = @JOB_TYP, [S"& _
"TRING1] = @STRING1, [STRING2] = @STRING2, [STRING3] = @STRING3, [STRING4] = @STR"& _
"ING4, [BOOL1] = @BOOL1, [BOOL2] = @BOOL2, [BOOL3] = @BOOL3, [BOOL4] = @BOOL4, [A"& _
"KTIV] = @AKTIV, [REIHENFOLGE] = @REIHENFOLGE, [ERSTELLTWER] = @ERSTELLTWER, [ERS"& _
"TELLTWANN] = @ERSTELLTWANN, [GEAENDERTWER] = @GEAENDERTWER, [GEAENDERTWANN] = @G"& _
"EAENDERTWANN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PROFIL_ID = 1 AND [P"& _
"ROFIL_ID] IS NULL) OR ([PROFIL_ID] = @Original_PROFIL_ID)) AND ([JOB_TYP] = @Ori"& _
"ginal_JOB_TYP) AND ((@IsNull_BOOL1 = 1 AND [BOOL1] IS NULL) OR ([BOOL1] = @Origi"& _
"nal_BOOL1)) AND ((@IsNull_BOOL2 = 1 AND [BOOL2] IS NULL) OR ([BOOL2] = @Original"& _
"_BOOL2)) AND ((@IsNull_BOOL3 = 1 AND [BOOL3] IS NULL) OR ([BOOL3] = @Original_BO"& _
"OL3)) AND ((@IsNull_BOOL4 = 1 AND [BOOL4] IS NULL) OR ([BOOL4] = @Original_BOOL4"& _
")) AND ((@IsNull_AKTIV = 1 AND [AKTIV] IS NULL) OR ([AKTIV] = @Original_AKTIV)) "& _
"AND ([REIHENFOLGE] = @Original_REIHENFOLGE) AND ((@IsNull_ERSTELLTWER = 1 AND [E"& _
"RSTELLTWER] IS NULL) OR ([ERSTELLTWER] = @Original_ERSTELLTWER)) AND ((@IsNull_E"& _
"RSTELLTWANN = 1 AND [ERSTELLTWANN] IS NULL) OR ([ERSTELLTWANN] = @Original_ERSTE"& _
"LLTWANN)) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAEND"& _
"ERTWER] = @Original_GEAENDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDER"& _
"TWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _
"PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOO"& _
"L4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN F"& _
"ROM TBWMRH_PROFIL_JOB WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandText = "UPDATE TBWMRH_PROFIL_JOB"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFIL_ID = @PROFIL_ID, JOB_TY"& _
"P = @JOB_TYP, STRING1 = @STRING1, STRING2 = @STRING2, STRING3 = @STRING3, STRING"& _
"4 = @STRING4, BOOL1 = @BOOL1, BOOL2 = @BOOL2, BOOL3 = @BOOL3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" BOOL4 = @BOOL4, AKTIV = @AKTIV, REIHENFOLGE = @REIHENFOLGE, GEAENDERTWE"& _
"R = @GEAENDERTWER, STRING5 = @STRING5, STRING6 = @STRING6"&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, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, S"& _
"TRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWAN"& _
"N, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_JOB WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JOB_TYP", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JOB_TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REIHENFOLGE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REIHENFOLGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", 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, 0, 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("@IsNull_PROFIL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFIL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JOB_TYP", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JOB_TYP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BOOL1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOOL1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BOOL2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOOL2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BOOL3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOOL3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BOOL4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOOL4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AKTIV", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REIHENFOLGE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REIHENFOLGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ERSTELLTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ERSTELLTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", 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.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.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, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JOB_TYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "JOB_TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING3", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING4", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL1", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL2", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL3", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL4", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REIHENFOLGE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "REIHENFOLGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING5", Global.System.Data.SqlDbType.VarChar, 2147483647, 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, 2147483647, 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("@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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -5771,8 +5824,8 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1"& _
", BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTW"& _
"ER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBWMRH_PROFIL_JOB"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = "& _
"@PID)"
"ER, GEAENDERTWANN, STRING5, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" STRING6"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
"TBWMRH_PROFIL_JOB"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PID)"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
@@ -5869,7 +5922,7 @@ Namespace MyDatasetTableAdapters
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 PROFIL_ID As Global.System.Nullable(Of Integer), ByVal JOB_TYP As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal BOOL1 As Global.System.Nullable(Of Boolean), ByVal BOOL2 As Global.System.Nullable(Of Boolean), ByVal BOOL3 As Global.System.Nullable(Of Boolean), ByVal BOOL4 As Global.System.Nullable(Of Boolean), ByVal AKTIV As Global.System.Nullable(Of Boolean), ByVal REIHENFOLGE As Integer, ByVal ERSTELLTWER As String) As Integer
Public Overloads Overridable Function Insert(ByVal PROFIL_ID As Global.System.Nullable(Of Integer), ByVal JOB_TYP As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal BOOL1 As Global.System.Nullable(Of Boolean), ByVal BOOL2 As Global.System.Nullable(Of Boolean), ByVal BOOL3 As Global.System.Nullable(Of Boolean), ByVal BOOL4 As Global.System.Nullable(Of Boolean), ByVal AKTIV As Global.System.Nullable(Of Boolean), ByVal REIHENFOLGE As Integer, ByVal ERSTELLTWER As String, ByVal STRING5 As String, ByVal STRING6 As String) As Integer
If (PROFIL_ID.HasValue = true) Then
Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFIL_ID.Value,Integer)
Else
@@ -5931,6 +5984,16 @@ Namespace MyDatasetTableAdapters
Else
Me.Adapter.InsertCommand.Parameters(12).Value = CType(ERSTELLTWER,String)
End If
If (STRING5 Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(13).Value = CType(STRING5,String)
End If
If (STRING6 Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(14).Value = CType(STRING6,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
@@ -5963,23 +6026,10 @@ Namespace MyDatasetTableAdapters
ByVal BOOL4 As Global.System.Nullable(Of Boolean), _
ByVal AKTIV As Global.System.Nullable(Of Boolean), _
ByVal REIHENFOLGE As Integer, _
ByVal ERSTELLTWER As String, _
ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), _
ByVal GEAENDERTWER As String, _
ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _
ByVal STRING5 As String, _
ByVal STRING6 As String, _
ByVal Original_GUID As Integer, _
ByVal Original_PROFIL_ID As Global.System.Nullable(Of Integer), _
ByVal Original_JOB_TYP As String, _
ByVal Original_BOOL1 As Global.System.Nullable(Of Boolean), _
ByVal Original_BOOL2 As Global.System.Nullable(Of Boolean), _
ByVal Original_BOOL3 As Global.System.Nullable(Of Boolean), _
ByVal Original_BOOL4 As Global.System.Nullable(Of Boolean), _
ByVal Original_AKTIV As Global.System.Nullable(Of Boolean), _
ByVal Original_REIHENFOLGE As Integer, _
ByVal Original_ERSTELLTWER As String, _
ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), _
ByVal Original_GEAENDERTWER As String, _
ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), _
ByVal GUID As Integer) As Integer
If (PROFIL_ID.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFIL_ID.Value,Integer)
@@ -6037,104 +6087,23 @@ Namespace MyDatasetTableAdapters
Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
End If
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(REIHENFOLGE,Integer)
If (ERSTELLTWER Is Nothing) Then
If (GEAENDERTWER Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ERSTELLTWER,String)
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(GEAENDERTWER,String)
End If
If (ERSTELLTWANN.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ERSTELLTWANN.Value,Date)
Else
If (STRING5 Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(STRING5,String)
End If
If (GEAENDERTWER Is Nothing) Then
If (STRING6 Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GEAENDERTWER,String)
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(STRING6,String)
End If
If (GEAENDERTWANN.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(GEAENDERTWANN.Value,Date)
Else
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
End If
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GUID,Integer)
If (Original_PROFIL_ID.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_PROFIL_ID.Value,Integer)
Else
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
End If
If (Original_JOB_TYP Is Nothing) Then
Throw New Global.System.ArgumentNullException("Original_JOB_TYP")
Else
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_JOB_TYP,String)
End If
If (Original_BOOL1.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_BOOL1.Value,Boolean)
Else
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
End If
If (Original_BOOL2.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_BOOL2.Value,Boolean)
Else
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
End If
If (Original_BOOL3.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_BOOL3.Value,Boolean)
Else
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
End If
If (Original_BOOL4.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_BOOL4.Value,Boolean)
Else
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
End If
If (Original_AKTIV.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_AKTIV.Value,Boolean)
Else
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value
End If
Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_REIHENFOLGE,Integer)
If (Original_ERSTELLTWER Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_ERSTELLTWER,String)
End If
If (Original_ERSTELLTWANN.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_ERSTELLTWANN.Value,Date)
Else
Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value
End If
If (Original_GEAENDERTWER Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_GEAENDERTWER,String)
End If
If (Original_GEAENDERTWANN.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_GEAENDERTWANN.Value,Date)
Else
Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value
End If
Me.Adapter.UpdateCommand.Parameters(39).Value = CType(GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(16).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
@@ -6150,43 +6119,6 @@ Namespace MyDatasetTableAdapters
End Try
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
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 PROFIL_ID As Global.System.Nullable(Of Integer), _
ByVal JOB_TYP As String, _
ByVal STRING1 As String, _
ByVal STRING2 As String, _
ByVal STRING3 As String, _
ByVal STRING4 As String, _
ByVal BOOL1 As Global.System.Nullable(Of Boolean), _
ByVal BOOL2 As Global.System.Nullable(Of Boolean), _
ByVal BOOL3 As Global.System.Nullable(Of Boolean), _
ByVal BOOL4 As Global.System.Nullable(Of Boolean), _
ByVal AKTIV As Global.System.Nullable(Of Boolean), _
ByVal REIHENFOLGE As Integer, _
ByVal ERSTELLTWER As String, _
ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), _
ByVal GEAENDERTWER As String, _
ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _
ByVal Original_GUID As Integer, _
ByVal Original_PROFIL_ID As Global.System.Nullable(Of Integer), _
ByVal Original_JOB_TYP As String, _
ByVal Original_BOOL1 As Global.System.Nullable(Of Boolean), _
ByVal Original_BOOL2 As Global.System.Nullable(Of Boolean), _
ByVal Original_BOOL3 As Global.System.Nullable(Of Boolean), _
ByVal Original_BOOL4 As Global.System.Nullable(Of Boolean), _
ByVal Original_AKTIV As Global.System.Nullable(Of Boolean), _
ByVal Original_REIHENFOLGE As Integer, _
ByVal Original_ERSTELLTWER As String, _
ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), _
ByVal Original_GEAENDERTWER As String, _
ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer
Return Me.Update(PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN, Original_GUID, Original_PROFIL_ID, Original_JOB_TYP, Original_BOOL1, Original_BOOL2, Original_BOOL3, Original_BOOL4, Original_AKTIV, Original_REIHENFOLGE, Original_ERSTELLTWER, Original_ERSTELLTWANN, Original_GEAENDERTWER, Original_GEAENDERTWANN, Original_GUID)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _