MS Parameter

This commit is contained in:
2020-09-11 13:52:51 +02:00
parent c075475cdc
commit 3e687df072
7 changed files with 78 additions and 63 deletions

View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class XtraReport2
Inherits DevExpress.XtraReports.UI.XtraReport
'XtraReport overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
@@ -17,10 +17,11 @@ Partial Public Class XtraReport2
'NOTE: The following procedure is required by the Designer
'It can be modified using the Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim CustomSqlQuery1 As DevExpress.DataAccess.Sql.CustomSqlQuery = New DevExpress.DataAccess.Sql.CustomSqlQuery()
Dim QueryParameter1 As DevExpress.DataAccess.Sql.QueryParameter = New DevExpress.DataAccess.Sql.QueryParameter()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(XtraReport2))
Me.Detail = New DevExpress.XtraReports.UI.DetailBand()
Me.XrTable2 = New DevExpress.XtraReports.UI.XRTable()
@@ -188,6 +189,10 @@ Partial Public Class XtraReport2
Me.SqlDataSource1.ConnectionName = "DD_ECM_ReportConnection"
Me.SqlDataSource1.Name = "SqlDataSource1"
CustomSqlQuery1.Name = "VWCUST_RPTERGEBNISBERICHT"
QueryParameter1.Name = "pDocID"
QueryParameter1.Type = GetType(Long)
QueryParameter1.ValueInfo = "4712"
CustomSqlQuery1.Parameters.Add(QueryParameter1)
CustomSqlQuery1.Sql = resources.GetString("CustomSqlQuery1.Sql")
Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {CustomSqlQuery1})
Me.SqlDataSource1.ResultSchemaSerializable = resources.GetString("SqlDataSource1.ResultSchemaSerializable")