Visual Basic

Public Class SupplierTrans
    Private _date As Date
    Private _period As Integer
    Private _year As Integer
    Private _type As String
    Private _reference As String
    Private _portfolio As String
    Private _netamount As Decimal
    Private _taxAmount As Decimal
    Private _paidAmount As Decimal

    Public Sub New(ByVal transdate As Date, ByVal period As Integer, ByVal year As Integer, ByVal type As String, ByVal reference As String, ByVal portfolio As String, ByVal netamount As Decimal, ByVal taxamount As Decimal, ByVal paidamount As Decimal)
        _date = transdate
        _period = period
        _year = year
        _type = type
        _reference = reference
        _portfolio = portfolio
        _netamount = netamount
        _taxAmount = taxamount
        _paidAmount = paidamount
    End Sub

    Public ReadOnly Property TransDate() As Date
        Get
            Return _date
        End Get
    End Property

    Public ReadOnly Property Period() As Integer
        Get
            Return _period
        End Get
    End Property

    Public ReadOnly Property Year() As Integer
        Get
            Return _year
        End Get
    End Property

    Public ReadOnly Property Type() As String
        Get
            Return _type
        End Get
    End Property

    Public ReadOnly Property Reference() As String
        Get
            Return _reference
        End Get
    End Property

    Public ReadOnly Property Portfolio() As String
        Get
            Return _portfolio
        End Get
    End Property

    Public ReadOnly Property NetAmount() As Decimal
        Get
            Return _netamount
        End Get
    End Property

    Public ReadOnly Property TaxAmount() As Decimal
        Get
            Return _taxAmount
        End Get
    End Property

    Public ReadOnly Property PaidAmount() As Decimal
        Get
            Return _paidAmount
        End Get
    End Property
End Class