AppCustom/SchaumKommi
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Changes Items

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-09-28 14:25:35 +02:00
parent 68a4d53e0e
commit 37d946f435
17 changed files with 86 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
SchaumKommiCollo/KommiCollo/MyDataset.Designer.vb generated
View File

@@ -3984,7 +3984,6 @@ Partial Public Class MyDataset
MyBase.Columns.Add(Me.columnGUID)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnSENDUNGNR.AllowDBNull = false
Me.columnBEZEICHNUNG.AllowDBNull = false
Me.columnBEZEICHNUNG.MaxLength = 500
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = -1
@@ -6731,7 +6730,11 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property BEZEICHNUNG() As String
Get
Return CType(Me(Me.tableTBKOMMCOLLI_HINWEIS.BEZEICHNUNGColumn),String)
Try
Return CType(Me(Me.tableTBKOMMCOLLI_HINWEIS.BEZEICHNUNGColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBKOMMCOLLI_HINWEIS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBKOMMCOLLI_HINWEIS.BEZEICHNUNGColumn) = value
@@ -6748,6 +6751,18 @@ Partial Public Class MyDataset
Me(Me.tableTBKOMMCOLLI_HINWEIS.GUIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsBEZEICHNUNGNull() As Boolean
Return Me.IsNull(Me.tableTBKOMMCOLLI_HINWEIS.BEZEICHNUNGColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetBEZEICHNUNGNull()
Me(Me.tableTBKOMMCOLLI_HINWEIS.BEZEICHNUNGColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
@@ -12280,10 +12295,10 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT TBKOMMCOLLI_HINWEIS.SENDUNGNR, TBKOMMCOLLI_TEXTSCHLUESSEL.BEZEICHNU"& _
"NG, TBKOMMCOLLI_HINWEIS.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBKOMMCOLLI_HINWEIS INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBKOMMCOLLI_TEXTSCHLUESSEL ON TBKOMMCOLLI_HINWEIS.TEXTSCH"& _
"LUSSEL_ID = TBKOMMCOLLI_TEXTSCHLUESSEL.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBKOMMCOLLI_HINWEIS.S"& _
"ENDUNGNR = @Sendung)"
"NG + ' ' + TBKOMMCOLLI_HINWEIS.TEXT AS BEZEICHNUNG, TBKOMMCOLLI_HINWEIS.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FR"& _
"OM TBKOMMCOLLI_HINWEIS INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBKOMMCOL"& _
"LI_TEXTSCHLUESSEL ON TBKOMMCOLLI_HINWEIS.TEXTSCHLUSSEL_ID = TBKOMMCOLLI_TEXTSCHL"& _
"UESSEL.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBKOMMCOLLI_HINWEIS.SENDUNGNR = @Sendung)"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sendung", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SENDUNGNR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub