This commit is contained in:
2022-03-04 11:52:56 +01:00
parent 44e06dd2f0
commit 732ecbcdd9
10 changed files with 451 additions and 271 deletions

View File

@@ -476,6 +476,8 @@ Partial Public Class GlobixDataset
Private columnIDB_OBJECT_STORE_ID As Global.System.Data.DataColumn
Private columnIDB_DOCTYPE_ID As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New()
@@ -663,6 +665,14 @@ Partial Public Class GlobixDataset
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property IDB_DOCTYPE_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnIDB_DOCTYPE_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
@@ -718,9 +728,10 @@ Partial Public Class GlobixDataset
ByVal ERSTELLTWANN As Date, _
ByVal GEANDERTWER As String, _
ByVal GEAENDERTWANN As Date, _
ByVal IDB_OBJECT_STORE_ID As Integer) As TBDD_DOKUMENTARTRow
ByVal IDB_OBJECT_STORE_ID As Integer, _
ByVal IDB_DOCTYPE_ID As Integer) As TBDD_DOKUMENTARTRow
Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow)
Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, IDB_OBJECT_STORE_ID}
Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, IDB_OBJECT_STORE_ID, IDB_DOCTYPE_ID}
rowTBDD_DOKUMENTARTRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_DOKUMENTARTRow)
Return rowTBDD_DOKUMENTARTRow
@@ -768,6 +779,7 @@ Partial Public Class GlobixDataset
Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER")
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
Me.columnIDB_OBJECT_STORE_ID = MyBase.Columns("IDB_OBJECT_STORE_ID")
Me.columnIDB_DOCTYPE_ID = MyBase.Columns("IDB_DOCTYPE_ID")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -811,6 +823,8 @@ Partial Public Class GlobixDataset
MyBase.Columns.Add(Me.columnGEAENDERTWANN)
Me.columnIDB_OBJECT_STORE_ID = New Global.System.Data.DataColumn("IDB_OBJECT_STORE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnIDB_OBJECT_STORE_ID)
Me.columnIDB_DOCTYPE_ID = New Global.System.Data.DataColumn("IDB_DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnIDB_DOCTYPE_ID)
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
@@ -849,6 +863,7 @@ Partial Public Class GlobixDataset
Me.columnERSTELLTWER.AllowDBNull = false
Me.columnERSTELLTWER.MaxLength = 50
Me.columnGEANDERTWER.MaxLength = 50
Me.columnIDB_DOCTYPE_ID.AllowDBNull = false
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -2918,6 +2933,17 @@ Partial Public Class GlobixDataset
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property IDB_DOCTYPE_ID() As Integer
Get
Return CType(Me(Me.tableTBDD_DOKUMENTART.IDB_DOCTYPE_IDColumn),Integer)
End Get
Set
Me(Me.tableTBDD_DOKUMENTART.IDB_DOCTYPE_IDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsBESCHREIBUNGNull() As Boolean
@@ -4256,6 +4282,7 @@ Namespace GlobixDatasetTableAdapters
tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER")
tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN")
tableMapping.ColumnMappings.Add("IDB_OBJECT_STORE_ID", "IDB_OBJECT_STORE_ID")
tableMapping.ColumnMappings.Add("IDB_DOCTYPE_ID", "IDB_DOCTYPE_ID")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -4266,14 +4293,14 @@ Namespace GlobixDatasetTableAdapters
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _
"ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJE"& _
"KTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _
" (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@"& _
"NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQU"& _
"ENCE,@DUPLICATE_HANDLING); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_"& _
"ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLIC"& _
"ATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTW"& _
"ANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTI"& _
"TY())"
"KTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" IDB_DOCTYPE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@EINGANGSART_ID,"& _
"@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTT"& _
"YP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING,@IDB_DOCTYPE"& _
"_ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_P"& _
"FAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV,"& _
" LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GE"& _
"AENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -4288,6 +4315,7 @@ Namespace GlobixDatasetTableAdapters
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDB_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDB_DOCTYPE_ID", 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_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _
@@ -4296,11 +4324,11 @@ Namespace GlobixDatasetTableAdapters
"NTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WI"& _
"NDREAM_DIRECT = @WINDREAM_DIRECT, FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLIN"& _
"G"&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, BEZEICHNUNG, OBJEKTTYP"& _
", EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR"& _
"_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLT"& _
"WER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID "& _
"= @GUID)"
"G, IDB_DOCTYPE_ID = @IDB_DOCTYPE_ID"&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, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHR"& _
"EIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, "& _
"SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN"& _
" FROM TBDD_DOKUMENTART WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -4315,6 +4343,7 @@ Namespace GlobixDatasetTableAdapters
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDB_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDB_DOCTYPE_ID", 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
@@ -4335,8 +4364,8 @@ Namespace GlobixDatasetTableAdapters
Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, "& _
"BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANG"& _
"UAGE, SEQUENCE, NAMENKONVENTION, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ERSTELLTWER, ERSTELL"& _
"TWANN, GEANDERTWER, GEAENDERTWANN, IDB_OBJECT_STORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOK"& _
"UMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"
"TWANN, GEANDERTWER, GEAENDERTWANN, IDB_OBJECT_STORE_ID, IDB_DOCTYPE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
" TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"
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()
@@ -4349,11 +4378,12 @@ Namespace GlobixDatasetTableAdapters
"D_DOKUMENTART.LANGUAGE, TBDD_DOKUMENTART.SEQUENCE, TBDD_DOKUMENTART.NAMENKONVENT"& _
"ION, TBDD_DOKUMENTART.ERSTELLTWER, TBDD_DOKUMENTART.ERSTELLTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBDD_DOKUMENTART.GEANDERTWER, TBDD_DOKUMENTART.GEAENDERTWANN, TBDD_"& _
"DOKUMENTART.IDB_OBJECT_STORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBDD_DOKUMENTART_MODULE ON TBDD_DOKUMENTART.GUID = TBDD_D"& _
"OKUMENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_MODULES ON"& _
" TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_MODUL"& _
"ES.SHORT_NAME = 'GLOBIX')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBDD_DOKUMENTART.BEZEICHNUNG"
"DOKUMENTART.IDB_OBJECT_STORE_ID, TBDD_DOKUMENTART.IDB_DOCTYPE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
" TBDD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART_MODULE "& _
"ON TBDD_DOKUMENTART.GUID = TBDD_DOKUMENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBDD_MODULES ON TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODUL"& _
"ES.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_MODULES.SHORT_NAME = 'GLOBIX')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBDD_DOKUME"& _
"NTART.BEZEICHNUNG"
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
End Sub
@@ -4460,24 +4490,20 @@ Namespace GlobixDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 BEZEICHNUNG As String, ByVal EINGANGSART_ID As Global.System.Nullable(Of Byte), ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String) As Integer
Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String, ByVal IDB_DOCTYPE_ID As Integer) As Integer
If (BEZEICHNUNG Is Nothing) Then
Throw New Global.System.ArgumentNullException("BEZEICHNUNG")
Else
Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String)
End If
If (EINGANGSART_ID.HasValue = true) Then
Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID.Value,Byte)
Else
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
End If
Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte)
If (KURZNAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("KURZNAME")
Else
Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String)
End If
If (ZIEL_PFAD Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("ZIEL_PFAD")
Else
Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String)
End If
@@ -4498,7 +4524,7 @@ Namespace GlobixDatasetTableAdapters
Me.Adapter.InsertCommand.Parameters(7).Value = CType(ERSTELLTWER,String)
End If
If (OBJEKTTYP Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("OBJEKTTYP")
Else
Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP,String)
End If
@@ -4514,6 +4540,7 @@ Namespace GlobixDatasetTableAdapters
Else
Me.Adapter.InsertCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String)
End If
Me.Adapter.InsertCommand.Parameters(13).Value = CType(IDB_DOCTYPE_ID,Integer)
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
@@ -4533,24 +4560,36 @@ Namespace GlobixDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 BEZEICHNUNG As String, ByVal EINGANGSART_ID As Global.System.Nullable(Of Byte), ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
Public Overloads Overridable Function Update( _
ByVal BEZEICHNUNG As String, _
ByVal EINGANGSART_ID As Byte, _
ByVal KURZNAME As String, _
ByVal ZIEL_PFAD As String, _
ByVal BESCHREIBUNG As String, _
ByVal AKTIV As Boolean, _
ByVal NAMENKONVENTION As String, _
ByVal GEANDERTWER As String, _
ByVal OBJEKTTYP As String, _
ByVal WINDREAM_DIRECT As Boolean, _
ByVal FOLDER_FOR_INDEX As String, _
ByVal SEQUENCE As Integer, _
ByVal DUPLICATE_HANDLING As String, _
ByVal IDB_DOCTYPE_ID As Integer, _
ByVal Original_GUID As Integer, _
ByVal GUID As Integer) As Integer
If (BEZEICHNUNG Is Nothing) Then
Throw New Global.System.ArgumentNullException("BEZEICHNUNG")
Else
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String)
End If
If (EINGANGSART_ID.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID.Value,Byte)
Else
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
End If
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte)
If (KURZNAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("KURZNAME")
Else
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String)
End If
If (ZIEL_PFAD Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("ZIEL_PFAD")
Else
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String)
End If
@@ -4571,7 +4610,7 @@ Namespace GlobixDatasetTableAdapters
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEANDERTWER,String)
End If
If (OBJEKTTYP Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("OBJEKTTYP")
Else
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBJEKTTYP,String)
End If
@@ -4587,8 +4626,9 @@ Namespace GlobixDatasetTableAdapters
Else
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String)
End If
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(IDB_DOCTYPE_ID,Integer)
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(15).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