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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-01-08 17:19:09 +01:00
parent 6c661e5c84
commit 62a3cc3eb8
53 changed files with 1961 additions and 1125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -11345,18 +11345,21 @@ Namespace MyDatasetTableAdapters
", EMP, EMP_ZUSATZ, EMP_STRASSE, EMP_PLZ_STR, EMP_LKZ, EMP_ORT, EMP_OTEIL, ABHOLD"& _
"ATUM, SDG_GEWICHT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SDG_STELLPLAETZE, SDG_FRANKATUR, N"& _
"VE, POSINHALT, POS_GEWICHT, PACKSTUECKANZAHL, HINW_CODE, HINW_TEXT, HINW_TEXT_ER"& _
"G, GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWHUP_REPORT1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (FERTIG = @FERTIG)"
"G, GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWHUP_REPORT1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (FERTIG = @FERTIG) AND UEBE"& _
"RTRAGEN = @UEBERTRAGEN"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FERTIG", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FERTIG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UEBERTRAGEN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "UEBERTRAGEN", 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 MyDataset.VWHUP_REPORT1DataTable, ByVal FERTIG As Boolean) As Integer
Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWHUP_REPORT1DataTable, ByVal FERTIG As Boolean, ByVal UEBERTRAGEN As Boolean) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(FERTIG,Boolean)
Me.Adapter.SelectCommand.Parameters(1).Value = CType(UEBERTRAGEN,Boolean)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
@@ -11368,9 +11371,10 @@ Namespace MyDatasetTableAdapters
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(ByVal FERTIG As Boolean) As MyDataset.VWHUP_REPORT1DataTable
Public Overloads Overridable Function GetData(ByVal FERTIG As Boolean, ByVal UEBERTRAGEN As Boolean) As MyDataset.VWHUP_REPORT1DataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(FERTIG,Boolean)
Me.Adapter.SelectCommand.Parameters(1).Value = CType(UEBERTRAGEN,Boolean)
Dim dataTable As MyDataset.VWHUP_REPORT1DataTable = New MyDataset.VWHUP_REPORT1DataTable()
Me.Adapter.Fill(dataTable)
Return dataTable