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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
WISAG_PM_REPORT/Form1.vb
View File

@ -3,6 +3,7 @@ Imports DigitalData.Modules.Database
Imports System.IO Imports System.IO
Imports System.ComponentModel Imports System.ComponentModel
Imports GdPicture14 Imports GdPicture14
Imports DevExpress.DataAccess.Sql
Public Class Form1 Public Class Form1
Dim MyLogger As LogConfig Dim MyLogger As LogConfig
@ -65,7 +66,7 @@ Public Class Form1
oDocID = oRow.Item(0).ToString oDocID = oRow.Item(0).ToString
Dim oSQL = $"select count(*) from VWCUST_RPTPM_INV_RPT_STAMP_CHECK WHERE docID = {oDocID.ToString}" Dim oSQL = $"select count(*) from VWCUST_RPTPM_INV_RPT_STAMP_CHECK WHERE docID = {oDocID.ToString}"
If MySQLSDB.GetScalarValue(oSQL) >= 1 Then If MySQLSDB.GetScalarValue(oSQL) >= 1 Then
Create_Report(oDocID.ToString, 0) Create_EB_Report(oDocID.ToString, 0)
Else Else
Logger.Info($"ATTENTION - No FinalFreigabe for DocID: {oDocID.ToString}") Logger.Info($"ATTENTION - No FinalFreigabe for DocID: {oDocID.ToString}")
Dim oDELETE = $"DELETE FROM TBCUST_PM_RPT_2BCREATED WHERE DocID = {oDocID} AND GEN_ID = '{My.Settings.GEN_ID}'" Dim oDELETE = $"DELETE FROM TBCUST_PM_RPT_2BCREATED WHERE DocID = {oDocID} AND GEN_ID = '{My.Settings.GEN_ID}'"
@ -86,11 +87,11 @@ Public Class Form1
End Sub End Sub
Sub Create_Report(pDocID As String, ReportOption As Integer) Sub Create_EB_Report(pDocID As String, ReportOption As Integer)
MyFreigabebericht = "" MyFreigabebericht = ""
MyStempel = "" MyStempel = ""
MyOriginStamped = "" MyOriginStamped = ""
Logger.Info($"Trying to create report for DocID: {pDocID}...") Logger.Info($"#### Trying to Create_Report for DocID: {pDocID}... ####")
Dim errortext As String Dim errortext As String
Try Try
If DEBUG = True Then If DEBUG = True Then
@ -105,14 +106,29 @@ Public Class Form1
Exit Sub Exit Sub
End Try End Try
Try Try
Dim report As New XtraReport2() Dim oReport As New XtraReport2()
report.ReportPrintOptions.PrintOnEmptyDataSource = False Dim oDatasource As SqlDataSource = oReport.DataSource
report.FilterString = "DocID = " + pDocID Dim oSelectQuery As CustomSqlQuery = oDatasource.Queries(0)
'report.ObjectDataSource1.Parameters(0).Value = Convert.ToInt64(TextBox1.Text) Dim oParameter As QueryParameter = oSelectQuery.Parameters(0)
report.CreateDocument(False) oParameter.Value = pDocID
If DEBUG = True Then Try
DocumentViewer1.DocumentSource = report oReport.ReportPrintOptions.PrintOnEmptyDataSource = False
End If oReport.FilterString = "DocID = " + pDocID
'report.ObjectDataSource1.Parameters(0).Value = Convert.ToInt64(TextBox1.Text)
oReport.CreateDocument(False)
If DEBUG = True Then
DocumentViewer1.DocumentSource = oReport
End If
Catch ex As Exception
Dim oUpdate = $"DELETE FROM TBCUST_PM_RPT_2BCREATED WHERE DocID = {pDocID} AND GEN_ID = '{My.Settings.GEN_ID}'"
MySQLSDB.ExecuteNonQuery(oUpdate)
If DEBUG = True Then
MsgBox("Unexpected error in XtraReport2 Create", MsgBoxStyle.Critical, "Error in XtraReport2:")
End If
Logger.Warn($"Unexpected Error in XtraReport2 Create for DocID: {pDocID} - ERROR: {ex.Message}")
Exit Sub
End Try
Dim oMyErgebnisbericht As String = Path.Combine(My.Settings.CONCAT_TEMPFolder, pDocID & "_ERPT.pdf") Dim oMyErgebnisbericht As String = Path.Combine(My.Settings.CONCAT_TEMPFolder, pDocID & "_ERPT.pdf")
If File.Exists(oMyErgebnisbericht) Then If File.Exists(oMyErgebnisbericht) Then
@ -125,7 +141,7 @@ Public Class Form1
Exit Sub Exit Sub
End Try End Try
End If End If
report.ExportToPdf(oMyErgebnisbericht) oReport.ExportToPdf(oMyErgebnisbericht)
If File.Exists(oMyErgebnisbericht) Then If File.Exists(oMyErgebnisbericht) Then
If ReportOption = 1 Then If ReportOption = 1 Then
@ -142,7 +158,6 @@ Public Class Form1
If Not IsNothing(oOriginFile) Then If Not IsNothing(oOriginFile) Then
If File.Exists(My.Settings.Path2PDFTK) Then If File.Exists(My.Settings.Path2PDFTK) Then
If Create_MyStempel(DEBUG, pDocID) = True Then If Create_MyStempel(DEBUG, pDocID) = True Then
'Jetzt Stempeln des OriginakBeleges mit dem Stamp-Report 'Jetzt Stempeln des OriginakBeleges mit dem Stamp-Report
Dim oStampedResult = CreateStampedPDF(oOriginFile, pDocID) Dim oStampedResult = CreateStampedPDF(oOriginFile, pDocID)
@ -156,10 +171,15 @@ Public Class Form1
Dim oInsert = $"INSERT INTO TBCUST_PM_RPT_CREATED (DocID) VALUES ({Convert.ToInt64(pDocID)})" Dim oInsert = $"INSERT INTO TBCUST_PM_RPT_CREATED (DocID) VALUES ({Convert.ToInt64(pDocID)})"
MySQLSDB.ExecuteNonQuery(oInsert) MySQLSDB.ExecuteNonQuery(oInsert)
End If End If
Logger.Info($"Concatted file [{oStampedResult}] created!") Logger.Info($"#### Created Ergebnisbericht for [{pDocID}]! #####")
Logger.Info($"")
End If End If
Else
Logger.Info("!!CreateStampedPDF = False or ""!!")
End If End If
Else
Logger.Info("!!Create_MyStempel = False!!")
End If End If
End If End If
Else Else
@ -182,7 +202,8 @@ Public Class Form1
MsgBox(errortext, MsgBoxStyle.Critical, "Error in 2:") MsgBox(errortext, MsgBoxStyle.Critical, "Error in 2:")
Clipboard.SetText(errortext) Clipboard.SetText(errortext)
End If End If
Logger.Error(ex) Logger.Warn($"Unexpected Error in Create_Report for DocID: {pDocID} - ERROR: {ex.Message}")
End Try End Try
End Sub End Sub
Private Function Create_MyStempel(istest As Boolean, pDocID As String) Private Function Create_MyStempel(istest As Boolean, pDocID As String)
@ -204,8 +225,14 @@ Public Class Form1
End Try End Try
Try Try
Dim myReport As New RptStampIcon() Dim myReport As New RptStampIcon()
Dim oDatasource As SqlDataSource = myReport.DataSource
Dim oSelectQuery As CustomSqlQuery = oDatasource.Queries(0)
Dim oParameter As QueryParameter = oSelectQuery.Parameters(0)
oParameter.Value = pDocID
myReport.ReportPrintOptions.PrintOnEmptyDataSource = False myReport.ReportPrintOptions.PrintOnEmptyDataSource = False
myReport.FilterString = "DocID = " + pDocID myReport.FilterString = "DocID = " + pDocID
'report.ObjectDataSource1.Parameters(0).Value = Convert.ToInt64(TextBox1.Text) 'report.ObjectDataSource1.Parameters(0).Value = Convert.ToInt64(TextBox1.Text)
myReport.CreateDocument(False) myReport.CreateDocument(False)
If istest = True Then If istest = True Then
@ -233,7 +260,7 @@ Public Class Form1
If File.Exists(oTempStempel) Then If File.Exists(oTempStempel) Then
MyStempel = oTempStempel MyStempel = oTempStempel
Logger.Info($"Stampreport created for DocID: {pDocID}!") Logger.Info($"...Stampreport created for DocID: {pDocID}!")
If istest = True Then If istest = True Then
MsgBox($"Stampreport [{oTempStempel}] created for DocID [{pDocID}]!", MsgBoxStyle.Information) MsgBox($"Stampreport [{oTempStempel}] created for DocID [{pDocID}]!", MsgBoxStyle.Information)
End If End If
@ -257,7 +284,7 @@ Public Class Form1
End Function End Function
Private Function CreateStampedPDF(oOriginFile As String, pDocID As Integer) Private Function CreateStampedPDF(oOriginFile As String, pDocID As Integer)
Try Try
Logger.Info($"Trying to create stamp on OriginWMFile for DocID: {pDocID}...") Logger.Info($"Trying to CreateStampedPDF for DocID: {pDocID}...")
Logger.Debug($"Now in CreateStampedPDF") Logger.Debug($"Now in CreateStampedPDF")
Dim myProcess As New Process Dim myProcess As New Process
Dim ProcID Dim ProcID
@ -396,7 +423,7 @@ Public Class Form1
If txtDocID.Text = "" Then Exit Sub If txtDocID.Text = "" Then Exit Sub
DEBUG = True DEBUG = True
MyLogger.Debug = True MyLogger.Debug = True
Create_Report(txtDocID.Text, 0) Create_EB_Report(txtDocID.Text, 0)
End Sub End Sub
Private Function Concat_Files(DocID As String, oOriginFile As String) Private Function Concat_Files(DocID As String, oOriginFile As String)
@ -554,7 +581,7 @@ Public Class Form1
My.Settings.Save() My.Settings.Save()
DEBUG = True DEBUG = True
MyLogger.Debug = True MyLogger.Debug = True
Create_Report(txtDocID.Text, 1) Create_EB_Report(txtDocID.Text, 1)
End Sub End Sub
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs)
@ -571,6 +598,10 @@ Public Class Form1
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
Dim report As New RptStampIcon() Dim report As New RptStampIcon()
Dim oDatasource As SqlDataSource = report.DataSource
Dim oSelectQuery As CustomSqlQuery = oDatasource.Queries(0)
Dim oParameter As QueryParameter = oSelectQuery.Parameters(0)
oParameter.Value = txtDocID.Text
report.ReportPrintOptions.PrintOnEmptyDataSource = False report.ReportPrintOptions.PrintOnEmptyDataSource = False
report.FilterString = "DocID = " + txtDocID.Text report.FilterString = "DocID = " + txtDocID.Text
'report.DocID.Value = txtDocID.Text 'report.DocID.Value = txtDocID.Text

2
WISAG_PM_REPORT/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.1.0")> <Assembly: AssemblyVersion("2.2.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

6
WISAG_PM_REPORT/MyDataset.xss
View File

@ -8,9 +8,9 @@
<Shapes> <Shapes>
<Shape ID="DesignTable:VWCUST_RPTPM_UNION" ZOrder="5" X="641" Y="95" Height="305" Width="290" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:VWCUST_RPTPM_UNION" ZOrder="5" X="641" Y="95" Height="305" Width="290" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWCUST_RPTPM_UNION1" ZOrder="4" X="1213" Y="252" Height="305" Width="297" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:VWCUST_RPTPM_UNION1" ZOrder="4" X="1213" Y="252" Height="305" Width="297" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWCUST_RPTPM_INV_RPT_STAMP" ZOrder="3" X="1210" Y="53" Height="210" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <Shape ID="DesignTable:VWCUST_RPTPM_INV_RPT_STAMP" ZOrder="1" X="1210" Y="53" Height="172" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWCUST_STAMP" ZOrder="2" X="942" Y="91" Height="172" Width="243" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" /> <Shape ID="DesignTable:VWCUST_STAMP" ZOrder="3" X="942" Y="91" Height="172" Width="243" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:FNCUST_PM_GET_RPT_STAMP_FOR_DocID" ZOrder="1" X="869" Y="446" Height="191" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" /> <Shape ID="DesignTable:FNCUST_PM_GET_RPT_STAMP_FOR_DocID" ZOrder="2" X="869" Y="446" Height="191" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
</Shapes> </Shapes>
<Connectors /> <Connectors />
</DiagramLayout> </DiagramLayout>

45
WISAG_PM_REPORT/RptStampIcon.Designer.vb generated
View File

@ -20,18 +20,8 @@ Partial Public Class RptStampIcon
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim SelectQuery1 As DevExpress.DataAccess.Sql.SelectQuery = New DevExpress.DataAccess.Sql.SelectQuery() Dim CustomSqlQuery1 As DevExpress.DataAccess.Sql.CustomSqlQuery = New DevExpress.DataAccess.Sql.CustomSqlQuery()
Dim Column1 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column() Dim QueryParameter1 As DevExpress.DataAccess.Sql.QueryParameter = New DevExpress.DataAccess.Sql.QueryParameter()
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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(RptStampIcon)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(RptStampIcon))
Me.SqlDataSource1 = New DevExpress.DataAccess.Sql.SqlDataSource(Me.components) Me.SqlDataSource1 = New DevExpress.DataAccess.Sql.SqlDataSource(Me.components)
Me.TopMarginBand1 = New DevExpress.XtraReports.UI.TopMarginBand() Me.TopMarginBand1 = New DevExpress.XtraReports.UI.TopMarginBand()
@ -75,30 +65,13 @@ Partial Public Class RptStampIcon
' '
Me.SqlDataSource1.ConnectionName = "DD_ECM_ReportConnection" Me.SqlDataSource1.ConnectionName = "DD_ECM_ReportConnection"
Me.SqlDataSource1.Name = "SqlDataSource1" Me.SqlDataSource1.Name = "SqlDataSource1"
ColumnExpression1.ColumnName = "FG_TYP" CustomSqlQuery1.Name = "VWCUST_STAMP"
Table1.Name = "VWCUST_STAMP" QueryParameter1.Name = "pDocID"
ColumnExpression1.Table = Table1 QueryParameter1.Type = GetType(Long)
Column1.Expression = ColumnExpression1 QueryParameter1.ValueInfo = "4712"
ColumnExpression2.ColumnName = "DocID" CustomSqlQuery1.Parameters.Add(QueryParameter1)
ColumnExpression2.Table = Table1 CustomSqlQuery1.Sql = resources.GetString("CustomSqlQuery1.Sql")
Column2.Expression = ColumnExpression2 Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {CustomSqlQuery1})
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})
Me.SqlDataSource1.ResultSchemaSerializable = resources.GetString("SqlDataSource1.ResultSchemaSerializable") Me.SqlDataSource1.ResultSchemaSerializable = resources.GetString("SqlDataSource1.ResultSchemaSerializable")
' '
'TopMarginBand1 'TopMarginBand1

6
WISAG_PM_REPORT/RptStampIcon.resx
View File

@ -120,6 +120,12 @@
<metadata name="SqlDataSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="SqlDataSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<data name="CustomSqlQuery1.Sql" xml:space="preserve">
<value>select "VWCUST_STAMP"."FG_TYP", "VWCUST_STAMP"."DocID",
"VWCUST_STAMP"."Email", "VWCUST_STAMP"."Freigabe",
"VWCUST_STAMP"."Wann"
from "dbo"."VWCUST_STAMP" "VWCUST_STAMP" where "VWCUST_STAMP"."DocID" = @pDocID</value>
</data>
<data name="SqlDataSource1.ResultSchemaSerializable" xml:space="preserve"> <data name="SqlDataSource1.ResultSchemaSerializable" xml:space="preserve">
<value>PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlZXQ1VTVF9TVEFNUCI+PEZpZWxkIE5hbWU9IkZHX1RZUCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJEb2NJRCIgVHlwZT0iSW50MzIiIC8+PEZpZWxkIE5hbWU9IkVtYWlsIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkZyZWlnYWJlIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ildhbm4iIFR5cGU9IkRhdGVUaW1lIiAvPjwvVmlldz48L0RhdGFTZXQ+</value> <value>PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlZXQ1VTVF9TVEFNUCI+PEZpZWxkIE5hbWU9IkZHX1RZUCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJEb2NJRCIgVHlwZT0iSW50MzIiIC8+PEZpZWxkIE5hbWU9IkVtYWlsIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkZyZWlnYWJlIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ildhbm4iIFR5cGU9IkRhdGVUaW1lIiAvPjwvVmlldz48L0RhdGFTZXQ+</value>
</data> </data>

11
WISAG_PM_REPORT/XtraReport2.Designer.vb generated
View File

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

2
WISAG_PM_REPORT/XtraReport2.resx
View File

@ -143,7 +143,7 @@
"VWCUST_RPTERGEBNISBERICHT"."Status_Change", "VWCUST_RPTERGEBNISBERICHT"."Status_Change",
"VWCUST_RPTERGEBNISBERICHT"."wannPos", "VWCUST_RPTERGEBNISBERICHT"."wannPos",
"VWCUST_RPTERGEBNISBERICHT"."Kommentar" "VWCUST_RPTERGEBNISBERICHT"."Kommentar"
from "dbo"."VWCUST_RPTERGEBNISBERICHT" "VWCUST_RPTERGEBNISBERICHT" ORDER BY wannPos desc</value> from "dbo"."VWCUST_RPTERGEBNISBERICHT" "VWCUST_RPTERGEBNISBERICHT" where "VWCUST_RPTERGEBNISBERICHT"."DocID" = @pDocID ORDER BY wannPos desc</value>
</data> </data>
<data name="SqlDataSource1.ResultSchemaSerializable" xml:space="preserve"> <data name="SqlDataSource1.ResultSchemaSerializable" xml:space="preserve">
<value>PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlZXQ1VTVF9SUFRFUkdFQk5JU0JFUklDSFQiPjxGaWVsZCBOYW1lPSJEb2NJRCIgVHlwZT0iSW50MzIiIC8+PEZpZWxkIE5hbWU9IkRhdHVtSW4iIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQmVsZWdkYXR1bSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLcmVkaXRvck51bW1lciIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLcmVkaXRvck5hbWVfTGFuZyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLcmVkaXRvck5hbWUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUmVjaG51bmdOciIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJSZWZlcmVueiIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJOZXR0b2JldHJhZyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJCcnV0dG9iZXRyYWciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iWmFobHVuZ3N6aWVsIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik1hbmRhbnQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTWFuZGFudCBOYW1lIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Iktvc3RlbnN0ZWxsZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJCZXN0ZWxsTnIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQWJzZW5kZXIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRmluYWxlciBGcmVpZ2ViZXIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUHJvemVzc3NjaHJpdHQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRHVyY2giIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iU3RhdHVzX0NoYW5nZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJ3YW5uUG9zIiBUeXBlPSJEYXRlVGltZSIgLz48RmllbGQgTmFtZT0iS29tbWVudGFyIiBUeXBlPSJTdHJpbmciIC8+PC9WaWV3PjwvRGF0YVNldD4=</value> <value>PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlZXQ1VTVF9SUFRFUkdFQk5JU0JFUklDSFQiPjxGaWVsZCBOYW1lPSJEb2NJRCIgVHlwZT0iSW50MzIiIC8+PEZpZWxkIE5hbWU9IkRhdHVtSW4iIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQmVsZWdkYXR1bSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLcmVkaXRvck51bW1lciIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLcmVkaXRvck5hbWVfTGFuZyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLcmVkaXRvck5hbWUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUmVjaG51bmdOciIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJSZWZlcmVueiIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJOZXR0b2JldHJhZyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJCcnV0dG9iZXRyYWciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iWmFobHVuZ3N6aWVsIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik1hbmRhbnQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTWFuZGFudCBOYW1lIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Iktvc3RlbnN0ZWxsZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJCZXN0ZWxsTnIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQWJzZW5kZXIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRmluYWxlciBGcmVpZ2ViZXIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUHJvemVzc3NjaHJpdHQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRHVyY2giIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iU3RhdHVzX0NoYW5nZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJ3YW5uUG9zIiBUeXBlPSJEYXRlVGltZSIgLz48RmllbGQgTmFtZT0iS29tbWVudGFyIiBUeXBlPSJTdHJpbmciIC8+PC9WaWV3PjwvRGF0YVNldD4=</value>