First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,81 @@
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.ExpressApp
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Reports
+Imports System.IO
+Imports DevExpress.XtraReports.UI
+Imports DevExpress.ExpressApp.ReportsV2
+
+Public Class XAFPrintHelper
+    Private _Frame As Frame
+    Private _ReportData As ReportData
+    Private _ReportDataV2 As ReportDataV2
+    Private _CriteriaOperator As CriteriaOperator
+    Private _XPOObjectSpace As Xpo.XPObjectSpace
+    Sub New(XPOObjectSpace As Xpo.XPObjectSpace, Frame As Frame, ReportData As ReportData, CriteriaOperator As CriteriaOperator)
+        _Frame = Frame
+        _ReportData = ReportData
+        _CriteriaOperator = CriteriaOperator
+        _XPOObjectSpace = XPOObjectSpace
+    End Sub
+    Sub New(XPOObjectSpace As Xpo.XPObjectSpace, Frame As Frame, ReportDataV2 As ReportDataV2, CriteriaOperator As CriteriaOperator)
+        _Frame = Frame
+        _ReportDataV2 = ReportDataV2
+        _CriteriaOperator = CriteriaOperator
+        _XPOObjectSpace = XPOObjectSpace
+    End Sub
+
+    Public Sub ShowPreview()
+        _Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, _CriteriaOperator, True)
+    End Sub
+    Public Sub PrintToCurrentPrinter()
+        _Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, _CriteriaOperator, True)
+    End Sub
+    Public Overridable Sub ShowPreviewV2()
+
+        If _ReportDataV2 Is Nothing Then
+            MsgBox("Nincs beállítva nyomtatvány", vbOK + vbExclamation, "F I G Y E L E M !")
+            Exit Sub
+        End If
+
+        Dim _XtraReport As XtraReport = ReportDataProvider.ReportsStorage.LoadReport(_ReportDataV2)
+        Dim dataSource As Object = TryCast(_XtraReport.DataSource, DevExpress.Persistent.Base.ReportsV2.ISupportCriteria)
+        dataSource.Criteria = _CriteriaOperator
+        _Frame.GetController(Of ReportsV2.ReportServiceController).SetupBeforePrint(_XtraReport, Nothing, Nothing, False, Nothing, False)
+        _XtraReport.ShowPreview()
+        'Dim handle As String = ReportDataProvider.ReportsStorage.GetReportContainerHandle(_ReportDataV2)
+        '_Frame.GetController(Of ReportsV2.ReportServiceController).ShowPreview(handle, _CriteriaOperator)
+    End Sub
+    Public Overridable Sub ShowPreviewV2PDF()
+
+        If _ReportDataV2 Is Nothing Then
+            MsgBox("Nincs beállítva nyomtatvány", vbOK + vbExclamation, "F I G Y E L E M !")
+            Exit Sub
+        End If
+
+        Dim _XtraReport As XtraReport = ReportDataProvider.ReportsStorage.LoadReport(_ReportDataV2)
+        Dim dataSource As Object = TryCast(_XtraReport.DataSource, DevExpress.Persistent.Base.ReportsV2.ISupportCriteria)
+        Dim _PDFExportOptions As New DevExpress.XtraPrinting.PdfExportOptions
+
+        dataSource.Criteria = _CriteriaOperator
+        _Frame.GetController(Of ReportsV2.ReportServiceController).SetupBeforePrint(_XtraReport, Nothing, Nothing, False, Nothing, False)
+
+        _PDFExportOptions.ShowPrintDialogOnOpen = False
+
+        _XtraReport.ExportToPdf("c:\temp\kutya.pdf", _PDFExportOptions)
+        Process.Start("c:\temp\kutya.pdf")
+    End Sub
+    Public Overridable Function GeneratePDF() As MemoryStream
+        Dim _XafReport As XafReport = _ReportData.LoadReport(_XPOObjectSpace)
+        Dim _MemoryStream As New MemoryStream
+        Dim _PDFExportOptions As New DevExpress.XtraPrinting.PdfExportOptions
+        _PDFExportOptions.ShowPrintDialogOnOpen = False
+
+        _XafReport.FilterString = _CriteriaOperator.ToString
+        _XafReport.ExportToPdf(_MemoryStream, _PDFExportOptions)
+        _MemoryStream.Seek(0, System.IO.SeekOrigin.Begin)
+
+        Return _MemoryStream
+
+    End Function
+End Class