Public Class Fattura
    Inherits FatturaMastro

#Region "Campi privati"

    Private _indirizzo As String
    Private _intestazione As String

#End Region

#Region "Proprietà"

    Public ReadOnly Property Indirizzo() As String
        Get
            Return _indirizzo
        End Get
    End Property

    Public ReadOnly Property Intestazione() As String
        Get
            Return _intestazione
        End Get
    End Property

#End Region

#Region "Costruttori"

    Sub New(ByVal Numero As Integer, ByVal Data As DateTime, ByVal Importo As Double, ByVal Indirizzo As String, ByVal Intestazione As String)
        MyBase.New(Numero, Data, Importo)
        _indirizzo = Indirizzo
        _intestazione = Intestazione
    End Sub

#End Region

#Region "Metodi"

    Public Function StampaFattura() As String
        Return String.Format("Intestata a: {0}{3}Indirizzo:{1}{3}Fattura Numero: {2}{3}", Me.Intestazione, Me.Indirizzo, Me.Numero, Environment.NewLine)
    End Function

#End Region

End Class