MS_06022016
This commit is contained in:
SchreiberM
88
app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb
generated
88
app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb
generated
@@ -7841,7 +7841,6 @@ Partial Public Class DD_DMSDataSet
|
||||
Me.columnGUID.AllowDBNull = false
|
||||
Me.columnGUID.ReadOnly = true
|
||||
Me.columnGUID.Unique = true
|
||||
Me.columnBEZEICHNUNG.AllowDBNull = false
|
||||
Me.columnBEZEICHNUNG.MaxLength = 50
|
||||
Me.columnEINGANGSART_ID.AllowDBNull = false
|
||||
Me.columnEINGANGSART_ID.DefaultValue = CType(5,Byte)
|
||||
@@ -7856,7 +7855,6 @@ Partial Public Class DD_DMSDataSet
|
||||
Me.columnERSTELLTWER.AllowDBNull = false
|
||||
Me.columnERSTELLTWER.MaxLength = 50
|
||||
Me.columnGEANDERTWER.MaxLength = 50
|
||||
Me.columnOBJEKTTYP.AllowDBNull = false
|
||||
Me.columnOBJEKTTYP.MaxLength = 50
|
||||
End Sub
|
||||
|
||||
@@ -22398,7 +22396,11 @@ Partial Public Class DD_DMSDataSet
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property BEZEICHNUNG() As String
|
||||
Get
|
||||
Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String)
|
||||
Try
|
||||
Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_DOKUMENTART ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = value
|
||||
@@ -22539,7 +22541,11 @@ Partial Public Class DD_DMSDataSet
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property OBJEKTTYP() As String
|
||||
Get
|
||||
Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String)
|
||||
Try
|
||||
Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBJEKTTYP in Tabelle TBDD_DOKUMENTART ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = value
|
||||
@@ -22557,6 +22563,18 @@ Partial Public Class DD_DMSDataSet
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IsBEZEICHNUNGNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetBEZEICHNUNGNull()
|
||||
Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = 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 IsBESCHREIBUNGNull() As Boolean
|
||||
@@ -22617,6 +22635,18 @@ Partial Public Class DD_DMSDataSet
|
||||
Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = 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 IsOBJEKTTYPNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetOBJEKTTYPNull()
|
||||
Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = 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 GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow()
|
||||
@@ -34983,27 +35013,36 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {}
|
||||
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUN"& _
|
||||
"G, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN"& _
|
||||
", OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG"
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'DOCTYPE_TITLE' + CONVE"& _
|
||||
"RT(VARCHAR(5), GUID), 1) AS BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BE"& _
|
||||
"SCHREIBUNG, AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVENTION, ERSTELLTWER, ERST"& _
|
||||
"ELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTAR"& _
|
||||
"T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG"
|
||||
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(1) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(1).Connection = Me.Connection
|
||||
Me._commandCollection(1).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUN"& _
|
||||
"G, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN"& _
|
||||
", OBJEKTTYP"&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 IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" (SELECT DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM"& _
|
||||
" TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE "& _
|
||||
" (MODULE_ID = 0)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG"
|
||||
Me._commandCollection(1).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'DOCTYPE_TITLE' + CONVE"& _
|
||||
"RT(VARCHAR(5), GUID), 1) AS BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BE"& _
|
||||
"SCHREIBUNG, AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVENTION, ERSTELLTWER, ERST"& _
|
||||
"ELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTAR"& _
|
||||
"T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" WHERE (MODULE_ID = 0)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG"
|
||||
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(1).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, "", "", ""))
|
||||
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 Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable) As Integer
|
||||
Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable, ByVal LANGUAGE As String) 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
|
||||
If (Me.ClearBeforeFill = true) Then
|
||||
dataTable.Clear
|
||||
End If
|
||||
@@ -35015,8 +35054,13 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
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 Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable
|
||||
Public Overloads Overridable Function GetData(ByVal LANGUAGE As String) As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable
|
||||
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
|
||||
Dim dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable = New DD_DMSDataSet.TBDD_DOKUMENTARTDataTable()
|
||||
Me.Adapter.Fill(dataTable)
|
||||
Return dataTable
|
||||
@@ -35026,8 +35070,13 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
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, false)> _
|
||||
Public Overloads Overridable Function FillByPMO(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable) As Integer
|
||||
Public Overloads Overridable Function FillByPMO(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable, ByVal LANGUAGE As String) As Integer
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
||||
If (LANGUAGE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("LANGUAGE")
|
||||
Else
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String)
|
||||
End If
|
||||
If (Me.ClearBeforeFill = true) Then
|
||||
dataTable.Clear
|
||||
End If
|
||||
@@ -35039,8 +35088,13 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
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], false)> _
|
||||
Public Overloads Overridable Function GetDataByPMO() As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable
|
||||
Public Overloads Overridable Function GetDataByPMO(ByVal LANGUAGE As String) As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
||||
If (LANGUAGE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("LANGUAGE")
|
||||
Else
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String)
|
||||
End If
|
||||
Dim dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable = New DD_DMSDataSet.TBDD_DOKUMENTARTDataTable()
|
||||
Me.Adapter.Fill(dataTable)
|
||||
Return dataTable
|
||||
|
||||
Reference in New Issue
Block a user