Open Door - Reporting, Charts, Enquiry Drill-Downs

Public Class ExcelColumnTotal
    Private pvSubTotalRows As New Generic.List(Of Long)
    Private pvLinesStart As Long = 0, pvLinesEnd As Long = 0
    Private pvTotalRows As New Generic.List(Of Long)

    Public Property TotalRows() As Generic.List(Of Long)
        Get
            Return pvTotalRows
        End Get
        Set(ByVal value As Generic.List(Of Long))
            pvTotalRows = value
        End Set
    End Property

    Public Property LinesStart() As Long
        Get
            Return pvLinesStart
        End Get
        Set(ByVal value As Long)
            pvLinesStart = value
        End Set
    End Property

    Public Property LinesEnd() As Long
        Get
            Return pvLinesEnd
        End Get
        Set(ByVal value As Long)
            pvLinesEnd = value
        End Set
    End Property

    Public Property SubTotalRows() As Generic.List(Of Long)
        Get
            Return pvSubTotalRows
        End Get
        Set(ByVal value As Generic.List(Of Long))
            pvSubTotalRows = value
        End Set
    End Property

End Class