xref: /AOO41X/main/migrationanalysis/src/driver_docs/sources/IssueInfo.cls (revision cdf0e10c4e3984b49a9502b011690b615761d4a3)

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "IssueInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'/*************************************************************************
' *
' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'
' Copyright 2000, 2010 Oracle and/or its affiliates.
'
' OpenOffice.org - a multi-platform office productivity suite
'
' This file is part of OpenOffice.org.
'
' OpenOffice.org is free software: you can redistribute it and/or modify
' it under the terms of the GNU Lesser General Public License version 3
' only, as published by the Free Software Foundation.
'
' OpenOffice.org is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU Lesser General Public License version 3 for more details
' (a copy is included in the LICENSE file that accompanied this code).
'
' You should have received a copy of the GNU Lesser General Public License
' version 3 along with OpenOffice.org.  If not, see
' <http://www.openoffice.org/license.html>
' for a copy of the LGPLv3 License.
'
' ************************************************************************/

Option Explicit

Private mIssueID As Integer
Private mIssueType As String
Private mSubType As String
Private mIssueTypeXML As String
Private mSubTypeXML As String
Private mLocationXML As String
Private mLocation As String
Private mSubLocation As Variant
Private mLine As Long
Private mColumn As Variant
Private mAttributes As Collection
Private mValues As Collection
Private mPreparable As Boolean

'General Constants
Public Property Get CLocationDocument() As String
    CLocationDocument = RID_STR_COMMON_RESULTS_LOCATION_TYPE_DOCUMENT
End Property
Public Property Get CLocationPage() As String
    CLocationPage = RID_STR_COMMON_RESULTS_LOCATION_TYPE_PAGE
End Property
Public Property Get CLocationWorkBook() As String
    CLocationWorkBook = RID_STR_COMMON_RESULTS_LOCATION_TYPE_WORKBOOK
End Property
Public Property Get CLocationSheet() As String
    CLocationSheet = RID_STR_COMMON_RESULTS_LOCATION_TYPE_SHEET
End Property
Public Property Get CLocationPresentation() As String
    CLocationPresentation = RID_STR_COMMON_RESULTS_LOCATION_TYPE_PRESENTATION
End Property
Public Property Get CLocationSlide() As String
    CLocationSlide = RID_STR_COMMON_RESULTS_LOCATION_TYPE_SLIDE
End Property

'General XML Constants - NOT localised
Public Property Get CXMLLocationDocument() As String
    CXMLLocationDocument = "Document"
End Property
Public Property Get CXMLLocationPage() As String
    CXMLLocationPage = "Page"
End Property
Public Property Get CXMLLocationWorkBook() As String
    CXMLLocationWorkBook = "Workbook"
End Property
Public Property Get CXMLLocationSheet() As String
    CXMLLocationSheet = "Sheet"
End Property
Public Property Get CXMLLocationPresentation() As String
    CXMLLocationPresentation = "Presentation"
End Property
Public Property Get CXMLLocationSlide() As String
    CXMLLocationSlide = "Slide"
End Property

'Settable Properties
Public Property Get IssueID() As Integer
    IssueID = mIssueID
End Property

Public Property Let IssueID(ByVal vNewValue As Integer)
    mIssueID = vNewValue
End Property
Public Property Get IssueType() As String
    IssueType = mIssueType
End Property

Public Property Let IssueType(ByVal vNewValue As String)
    mIssueType = vNewValue
End Property
Public Property Get IssueTypeXML() As String
    IssueTypeXML = mIssueTypeXML
End Property

Public Property Let IssueTypeXML(ByVal vNewValue As String)
    mIssueTypeXML = vNewValue
End Property
Public Property Get SubType() As String
    SubType = mSubType
End Property

Public Property Let SubType(ByVal vNewValue As String)
    mSubType = vNewValue
End Property
Public Property Get SubTypeXML() As String
    SubTypeXML = mSubTypeXML
End Property

Public Property Let SubTypeXML(ByVal vNewValue As String)
    mSubTypeXML = vNewValue
End Property

Public Property Get Location() As String
    Location = mLocation
End Property

Public Property Let Location(ByVal vNewValue As String)
    mLocation = vNewValue
End Property
Public Property Get locationXML() As String
    locationXML = mLocationXML
End Property

Public Property Let locationXML(ByVal vNewValue As String)
    mLocationXML = vNewValue
End Property

Public Property Get SubLocation() As Variant
    SubLocation = mSubLocation
End Property

Public Property Let SubLocation(ByVal vNewValue As Variant)
    mSubLocation = vNewValue
End Property

Public Property Get Line() As Long
    Line = mLine
End Property

Public Property Let Line(ByVal vNewValue As Long)
    mLine = vNewValue
End Property
Public Property Get column() As Variant
    column = mColumn
End Property

Public Property Let column(ByVal vNewValue As Variant)
    mColumn = vNewValue
End Property

Public Property Get Attributes() As Collection
    Set Attributes = mAttributes
End Property

Public Property Let Attributes(ByVal vNewValue As Collection)
    Set mAttributes = vNewValue
End Property
Public Property Get Values() As Collection
    Set Values = mValues
End Property

Public Property Let Values(ByVal vNewValue As Collection)
    Set mValues = vNewValue
End Property

Public Property Get Preparable() As Boolean
    Preparable = mPreparable
End Property

Public Property Let Preparable(ByVal vNewValue As Boolean)
    mPreparable = vNewValue
End Property



Private Sub Class_Initialize()
    Set mAttributes = New Collection
    Set mValues = New Collection
    mIssueID = -1
    mLine = -1
    mColumn = ""
    mSubLocation = ""
    mPreparable = False
End Sub
Private Sub Class_Terminate()
    Set mAttributes = Nothing
    Set mValues = Nothing
End Sub