AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2023-07-27 14:30:57 +02:00
parent ea5ea5f205
commit fed1280f48
11 changed files with 1090 additions and 360 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb generated
View File

@@ -19851,8 +19851,9 @@ Partial Public Class DD_DMSDataSet
Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnENTITY_ID.AllowDBNull = false
Me.columnENTITY_ID.DefaultValue = CType(1,Integer)
Me.columnGROUP_ID.AllowDBNull = false
Me.columnGROUP_ID.DefaultValue = CType(1,Integer)
Me.columnEDIT_REC.AllowDBNull = false
Me.columnEDIT_REC.DefaultValue = CType(true,Boolean)
Me.columnADD_REC.AllowDBNull = false
@@ -32712,7 +32713,11 @@ Partial Public Class DD_DMSDataSet
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ENTITY_ID() As Integer
Get
Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.ENTITY_IDColumn),Integer)
Try
Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.ENTITY_IDColumn),Integer)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ENTITY_ID in Tabelle TBPMO_RIGHT_GROUP ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBPMO_RIGHT_GROUP.ENTITY_IDColumn) = value
@@ -32878,6 +32883,18 @@ Partial Public Class DD_DMSDataSet
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsENTITY_IDNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_RIGHT_GROUP.ENTITY_IDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetENTITY_IDNull()
Me(Me.tableTBPMO_RIGHT_GROUP.ENTITY_IDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHONull() As Boolean
@@ -51374,8 +51391,12 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 ENTITY_ID As Integer, ByVal GROUP_ID As Integer, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal VIEW_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal ADDED_WHO As String) As Integer
Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_ID,Integer)
Public Overloads Overridable Function Insert(ByVal ENTITY_ID As Global.System.Nullable(Of Integer), ByVal GROUP_ID As Integer, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal VIEW_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal ADDED_WHO As String) As Integer
If (ENTITY_ID.HasValue = true) Then
Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_ID.Value,Integer)
Else
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
End If
Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer)
Me.Adapter.InsertCommand.Parameters(2).Value = CType(EDIT_REC,Boolean)
Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADD_REC,Boolean)
@@ -51407,8 +51428,12 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 ENTITY_ID As Integer, ByVal GROUP_ID As Integer, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal VIEW_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_ID,Integer)
Public Overloads Overridable Function Update(ByVal ENTITY_ID As Global.System.Nullable(Of Integer), ByVal GROUP_ID As Integer, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal VIEW_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
If (ENTITY_ID.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_ID.Value,Integer)
Else
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
End If
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer)
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EDIT_REC,Boolean)
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADD_REC,Boolean)