summaryrefslogtreecommitdiff
path: root/migrationanalysis/src/driver_docs/sources/DocumentAnalysis.cls
diff options
context:
space:
mode:
Diffstat (limited to 'migrationanalysis/src/driver_docs/sources/DocumentAnalysis.cls')
-rw-r--r--migrationanalysis/src/driver_docs/sources/DocumentAnalysis.cls342
1 files changed, 0 insertions, 342 deletions
diff --git a/migrationanalysis/src/driver_docs/sources/DocumentAnalysis.cls b/migrationanalysis/src/driver_docs/sources/DocumentAnalysis.cls
deleted file mode 100644
index b4681ee..0000000
--- a/migrationanalysis/src/driver_docs/sources/DocumentAnalysis.cls
+++ /dev/null
@@ -1,342 +0,0 @@
-VERSION 1.0 CLASS
-BEGIN
- MultiUse = -1 'True
-END
-Attribute VB_Name = "DocumentAnalysis"
-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
-
-Const CMAX_NUM_ISSUETYPES = 100
-
-Private mName As String
-Private mApplication As String
-Private mPageCount As Long
-Private mCreated As Date
-Private mModified As Date
-Private mAccessed As Date
-Private mPrinted As Date
-Private mSavedBy As String
-Private mRevision As Long
-Private mTemplate As String
-Private mHasMacros As Boolean
-
-Private mDocIssuesCosts As Long
-Private mPreparableIssuesCosts As Long
-Private mMacroCosts As Long
-
-Private mReferences As Collection
-Private mIssues As Collection
-Private mIssuesCountArray(1 To CMAX_NUM_ISSUETYPES) As Long
-Private mTotalIssueTypes As Long
-Private mMinorIssuesCount As Long
-Private mMacroIssuesCount As Long
-Private mPreparableIssuesCount As Long
-
-Private mDocOverallIssueClass As EnumDocOverallIssueClass
-
-Private mMacroTotalNumLines As Long
-Private mMacroNumUserForms As Long
-Private mMacroNumUserFormControls As Long
-Private mMacroNumUserFormControlTypes As Long
-Private mMacroNumOLEControls As Long
-Private mMacroNumFieldsUsingMacros As Long
-Private mMacroNumExternalRefs As Long
-Private mMacroOverallClass As EnumDocOverallMacroClass
-Private mbBelowIssuesLimit As Boolean
-
-Public Property Get BelowIssuesLimit() As Boolean
- BelowIssuesLimit = mbBelowIssuesLimit
-End Property
-Public Property Let BelowIssuesLimit(vNewValue As Boolean)
- mbBelowIssuesLimit = vNewValue
-End Property
-
-Public Property Get MacroOverallClass() As EnumDocOverallMacroClass
- MacroOverallClass = mMacroOverallClass
-End Property
-Public Property Let MacroOverallClass(vNewValue As EnumDocOverallMacroClass)
- mMacroOverallClass = vNewValue
-End Property
-
-Public Property Get MacroNumExternalRefs() As Long
- MacroNumExternalRefs = mMacroNumExternalRefs
-End Property
-Public Property Let MacroNumExternalRefs(vNewValue As Long)
- mMacroNumExternalRefs = vNewValue
-End Property
-
-Public Property Get MacroNumFieldsUsingMacros() As Long
- MacroNumFieldsUsingMacros = mMacroNumFieldsUsingMacros
-End Property
-Public Property Let MacroNumFieldsUsingMacros(vNewValue As Long)
- mMacroNumFieldsUsingMacros = vNewValue
-End Property
-
-Public Property Get MacroNumOLEControls() As Long
- MacroNumOLEControls = mMacroNumOLEControls
-End Property
-Public Property Let MacroNumOLEControls(vNewValue As Long)
- mMacroNumOLEControls = vNewValue
-End Property
-
-Public Property Get MacroNumUserFormControlTypes() As Long
- MacroNumUserFormControlTypes = mMacroNumUserFormControlTypes
-End Property
-Public Property Let MacroNumUserFormControlTypes(vNewValue As Long)
- mMacroNumUserFormControlTypes = vNewValue
-End Property
-
-Public Property Get MacroNumUserFormControls() As Long
- MacroNumUserFormControls = mMacroNumUserFormControls
-End Property
-Public Property Let MacroNumUserFormControls(vNewValue As Long)
- mMacroNumUserFormControls = vNewValue
-End Property
-
-Public Property Get MacroNumUserForms() As Long
- MacroNumUserForms = mMacroNumUserForms
-End Property
-Public Property Let MacroNumUserForms(vNewValue As Long)
- mMacroNumUserForms = vNewValue
-End Property
-
-Public Property Get MacroTotalNumLines() As Long
- MacroTotalNumLines = mMacroTotalNumLines
-End Property
-Public Property Let MacroTotalNumLines(vNewValue As Long)
- mMacroTotalNumLines = vNewValue
-End Property
-
-Public Property Get MacroCosts() As Long
- MacroCosts = mMacroCosts
-End Property
-Public Property Let MacroCosts(vNewValue As Long)
- mMacroCosts = vNewValue
-End Property
-
-Public Property Get DocIssuesCosts() As Long
- DocIssuesCosts = mDocIssuesCosts
-End Property
-Public Property Let DocIssuesCosts(vNewValue As Long)
- mDocIssuesCosts = vNewValue
-End Property
-
-Public Property Get PreparableIssuesCosts() As Long
- PreparableIssuesCosts = mPreparableIssuesCosts
-End Property
-Public Property Let PreparableIssuesCosts(vNewValue As Long)
- mPreparableIssuesCosts = vNewValue
-End Property
-
-Public Property Get DocOverallIssueClass() As EnumDocOverallIssueClass
- DocOverallIssueClass = mDocOverallIssueClass
-End Property
-
-Public Property Let DocOverallIssueClass(ByVal vNewValue As EnumDocOverallIssueClass)
- mDocOverallIssueClass = vNewValue
-End Property
-
-Public Property Get TotalIssueTypes() As Long
- TotalIssueTypes = mTotalIssueTypes
-End Property
-
-Public Property Let TotalIssueTypes(ByVal vNewValue As Long)
- mTotalIssueTypes = vNewValue
-End Property
-Public Property Get name() As String
- name = mName
-End Property
-
-Public Property Let name(ByVal vNewValue As String)
- mName = vNewValue
-End Property
-
-Public Property Get Application() As String
- Application = mApplication
-End Property
-
-Public Property Let Application(ByVal vNewValue As String)
- mApplication = vNewValue
-End Property
-Public Property Get PageCount() As Long
- PageCount = mPageCount
-End Property
-
-Public Property Let PageCount(ByVal vNewValue As Long)
- mPageCount = vNewValue
-End Property
-
-Public Property Get Created() As Date
- Created = mCreated
-End Property
-
-Public Property Let Created(ByVal vNewValue As Date)
- mCreated = vNewValue
-End Property
-
-Public Property Get Modified() As Date
- Modified = mModified
-End Property
-
-Public Property Let Modified(ByVal vNewValue As Date)
- mModified = vNewValue
-End Property
-
-Public Property Get Accessed() As Date
- Accessed = mAccessed
-End Property
-
-Public Property Let Accessed(ByVal vNewValue As Date)
- mAccessed = vNewValue
-End Property
-Public Property Get Printed() As Date
- Printed = mPrinted
-End Property
-
-Public Property Let Printed(ByVal vNewValue As Date)
- mPrinted = vNewValue
-End Property
-
-Public Property Get SavedBy() As String
- SavedBy = mSavedBy
-End Property
-
-Public Property Let SavedBy(ByVal vNewValue As String)
- mSavedBy = vNewValue
-End Property
-
-Public Property Get Revision() As Long
- Revision = mRevision
-End Property
-
-Public Property Let Revision(ByVal vNewValue As Long)
- mRevision = vNewValue
-End Property
-
-Public Property Get Template() As String
- Template = mTemplate
-End Property
-
-Public Property Let Template(ByVal vNewValue As String)
- mTemplate = vNewValue
-End Property
-Public Property Get HasMacros() As Boolean
- HasMacros = mHasMacros
-End Property
-
-Public Property Let HasMacros(ByVal vNewValue As Boolean)
- mHasMacros = vNewValue
-End Property
-
-Public Property Get References() As Collection
- Set References = mReferences
-End Property
-
-Public Property Let References(ByVal vNewValue As Collection)
- Set mReferences = vNewValue
-End Property
-
-Public Property Get Issues() As Collection
- Set Issues = mIssues
-End Property
-
-Public Property Let Issues(ByVal vNewValue As Collection)
- Set mIssues = vNewValue
-End Property
-
-Public Property Get IssuesCountArray(ByVal index As Integer) As Long
- If index >= LBound(mIssuesCountArray) And index <= UBound(mIssuesCountArray) Then
- IssuesCountArray = mIssuesCountArray(index)
- Else
- IssuesCountArray = Null
- End If
-End Property
-
-Public Property Let IssuesCountArray(ByVal index As Integer, ByVal vNewValue As Long)
- If index >= LBound(mIssuesCountArray) And index <= UBound(mIssuesCountArray) Then
- mIssuesCountArray(index) = vNewValue
- End If
-End Property
-
-Public Property Get IssuesCount() As Long
- IssuesCount = mIssues.count
-End Property
-
-Public Property Get ComplexIssuesCount() As Long
- Dim complexCount As Long
- complexCount = mIssues.count - mMinorIssuesCount - mMacroIssuesCount
- ComplexIssuesCount = IIf(complexCount > 0, complexCount, 0)
-End Property
-
-Public Property Get MacroIssuesCount() As Long
- MacroIssuesCount = mMacroIssuesCount
-End Property
-
-Public Property Let MacroIssuesCount(ByVal vNewValue As Long)
- mMacroIssuesCount = vNewValue
-End Property
-
-Public Property Get MinorIssuesCount() As Long
- MinorIssuesCount = mMinorIssuesCount
-End Property
-
-Public Property Let MinorIssuesCount(ByVal vNewValue As Long)
- mMinorIssuesCount = vNewValue
-End Property
-
-Public Property Get PreparableIssuesCount() As Long
- PreparableIssuesCount = mPreparableIssuesCount
-End Property
-
-Public Property Let PreparableIssuesCount(ByVal vNewValue As Long)
- mPreparableIssuesCount = vNewValue
-End Property
-
-Private Sub Class_Initialize()
- mApplication = ""
- mTotalIssueTypes = 0
- mHasMacros = False
- Set mIssues = New Collection
- Set mReferences = New Collection
- mPreparableIssuesCount = 0
- mMacroOverallClass = enNone
- mDocOverallIssueClass = enNone
- mDocIssuesCosts = 0
- mPreparableIssuesCosts = 0
- mMacroCosts = 0
- mbBelowIssuesLimit = False
-End Sub
-Private Sub Class_Terminate()
- Set mIssues = Nothing
- Set mReferences = Nothing
-End Sub
-