Reconfigure for GIT

SISBusiness.Module.Win/Controllers/CustomXAFReport.vb

@@ -0,0 +1,43 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.Collections.Generic
+Imports System.Text
+Imports DevExpress.ExpressApp.Reports
+Imports DevExpress.Xpo
+Imports DevExpress.XtraReports
+Imports DevExpress.XtraReports.Serialization
+Imports DevExpress.Persistent.BaseImpl
+
+<RootClass()> _
+Public Class CustomXafReport
+    Inherits XafReport
+    Protected additionalInfo_Renamed As String
+    Public Property AdditionalInfo() As String
+        Get
+            Return additionalInfo_Renamed
+        End Get
+        Set(ByVal value As String)
+            additionalInfo_Renamed = value
+        End Set
+    End Property
+    Protected Overrides Sub SerializeProperties(ByVal serializer As XRSerializer)
+        MyBase.SerializeProperties(serializer)
+        serializer.SerializeString("AdditionalInfo", AdditionalInfo)
+    End Sub
+    Protected Overrides Sub DeserializeProperties(ByVal serializer As XRSerializer)
+        MyBase.DeserializeProperties(serializer)
+        AdditionalInfo = serializer.DeserializeString("AdditionalInfo", String.Empty)
+    End Sub
+End Class
+<System.ComponentModel.DisplayName("CustomReport")> _
+Public Class CustomReportData
+    Inherits ReportData
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Function CreateReport() As XafReport
+        Return New CustomXafReport()
+    End Function
+End Class
+
+