44 lines
1.4 KiB
VB.net
44 lines
1.4 KiB
VB.net
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
|
|
|
|
|