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

MS Parameter

Browse Source
This commit is contained in:
SchreiberM
2020-09-11 13:52:51 +02:00
parent c075475cdc
commit 3e687df072
7 changed files with 78 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
WISAG_PM_REPORT/RptStampIcon.Designer.vb generated
View File

@@ -20,18 +20,8 @@ Partial Public Class RptStampIcon
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim SelectQuery1 As DevExpress.DataAccess.Sql.SelectQuery = New DevExpress.DataAccess.Sql.SelectQuery()
Dim Column1 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
Dim ColumnExpression1 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
Dim Table1 As DevExpress.DataAccess.Sql.Table = New DevExpress.DataAccess.Sql.Table()
Dim Column2 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
Dim ColumnExpression2 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
Dim Column3 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
Dim ColumnExpression3 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
Dim Column4 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
Dim ColumnExpression4 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
Dim Column5 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
Dim ColumnExpression5 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
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(RptStampIcon))
Me.SqlDataSource1 = New DevExpress.DataAccess.Sql.SqlDataSource(Me.components)
Me.TopMarginBand1 = New DevExpress.XtraReports.UI.TopMarginBand()
@@ -75,30 +65,13 @@ Partial Public Class RptStampIcon
'
Me.SqlDataSource1.ConnectionName = "DD_ECM_ReportConnection"
Me.SqlDataSource1.Name = "SqlDataSource1"
ColumnExpression1.ColumnName = "FG_TYP"
Table1.Name = "VWCUST_STAMP"
ColumnExpression1.Table = Table1
Column1.Expression = ColumnExpression1
ColumnExpression2.ColumnName = "DocID"
ColumnExpression2.Table = Table1
Column2.Expression = ColumnExpression2
ColumnExpression3.ColumnName = "Email"
ColumnExpression3.Table = Table1
Column3.Expression = ColumnExpression3
ColumnExpression4.ColumnName = "Freigabe"
ColumnExpression4.Table = Table1
Column4.Expression = ColumnExpression4
ColumnExpression5.ColumnName = "Wann"
ColumnExpression5.Table = Table1
Column5.Expression = ColumnExpression5
SelectQuery1.Columns.Add(Column1)
SelectQuery1.Columns.Add(Column2)
SelectQuery1.Columns.Add(Column3)
SelectQuery1.Columns.Add(Column4)
SelectQuery1.Columns.Add(Column5)
SelectQuery1.Name = "VWCUST_STAMP"
SelectQuery1.Tables.Add(Table1)
Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {SelectQuery1})
CustomSqlQuery1.Name = "VWCUST_STAMP"
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")
'
'TopMarginBand1