financereportwizard.cls

金算盘软件代码

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Property Get OtherAnalyCond() As String
    OtherAnalyCond = mstrOtherAnalyCond
End Property
Public Property Let OtherAnalyCond(ByVal vData As String)
    mstrOtherAnalyCond = vData
End Property

Public Property Get OtherAnalyBegin() As String
    OtherAnalyBegin = mstrOtherAnalyBegin
End Property
Public Property Let OtherAnalyBegin(ByVal vData As String)
    mstrOtherAnalyBegin = vData
End Property
Public Property Get OtherAnalyEnd() As String
    OtherAnalyEnd = mstrOtherAnalyEnd
End Property
Public Property Let OtherAnalyEnd(ByVal vData As String)
    mstrOtherAnalyEnd = vData
End Property
Public Property Get OtherReferCond() As String
    OtherReferCond = mstrOtherReferCond
End Property
Public Property Let OtherReferCond(ByVal vData As String)
    mstrOtherReferCond = vData
End Property

Public Property Get OtherReferBegin() As String
    OtherReferBegin = mstrOtherReferBegin
End Property
Public Property Let OtherReferBegin(ByVal vData As String)
    mstrOtherReferBegin = vData
End Property
Public Property Get OtherReferEnd() As String
    OtherReferEnd = mstrOtherReferEnd
End Property
Public Property Let OtherReferEnd(ByVal vData As String)
    mstrOtherReferEnd = vData
End Property


'mvarReportOrderType
Public Property Get ReportOrderType() As Integer
    ReportOrderType = mvarReportOrderType
End Property
Public Property Let ReportOrderType(ByVal vData As Integer)
    mvarReportOrderType = vData
End Property
'数据列数
Public Property Get DataColumns() As Integer
    DataColumns = mintDataColumns
End Property
Public Property Let DataColumns(ByVal vData As Integer)
    mintDataColumns = vData
End Property

'以下属性用于5.32版
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Property Get blnNeedGatherData() As Boolean
    blnNeedGatherData = mblnNeedGatherData
End Property
Public Property Let blnNeedGatherData(ByVal vData As Boolean)
    mblnNeedGatherData = vData
End Property
Public Property Get TrendReportIsUseRefer() As Boolean
    TrendReportIsUseRefer = mblnTrendReportIsUseRefer
End Property
Public Property Let TrendReportIsUseRefer(ByVal vData As Boolean)
    mblnTrendReportIsUseRefer = vData
End Property
Public Property Get IsUseRefer() As Boolean
    IsUseRefer = mblnIsUseRefer
End Property
Public Property Let IsUseRefer(ByVal vData As Boolean)
    mblnIsUseRefer = vData
End Property
Public Property Get ReferCondString() As String
    ReferCondString = mstrReferCondString
End Property
Public Property Let ReferCondString(ByVal vData As String)
    mstrReferCondString = vData
End Property
Public Property Get strReferStart() As String
    strReferStart = mstrReferStart
End Property
Public Property Let strReferStart(ByVal vData As String)
    mstrReferStart = vData
End Property
Public Property Get strReferTerminal() As String
    strReferTerminal = mstrReferTerminal
End Property
Public Property Let strReferTerminal(ByVal vData As String)
    mstrReferTerminal = vData
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Property Get InitStockSql() As String
    InitStockSql = mstrInitStockSql
End Property
Public Property Let InitStockSql(ByVal vData As String)
    mstrInitStockSql = vData
End Property

Public Property Get SaveFlag() As Boolean '预算分析的报表是否生成
    SaveFlag = mblnSaveFlag
End Property
Public Property Let SaveFlag(ByVal vData As Boolean)
    mblnSaveFlag = vData
End Property
Public Property Get CodeLevelCond() As String  '编码层次条件
    CodeLevelCond = mstrCodeLevelCond
End Property
Public Property Let CodeLevelCond(ByVal vData As String)
    mstrCodeLevelCond = vData
End Property
Public Property Get RelationViewWhere() As String 'Oracle版本的 Where子句。
    RelationViewWhere = mvarRelationViewWhere
End Property
Public Property Let RelationViewWhere(ByVal vData As String)
    mvarRelationViewWhere = vData
End Property
Public Property Get RelationWhere() As String 'Oracle版本的 Where子句。
    RelationWhere = mvarRelationWhere
End Property
Public Property Let RelationWhere(ByVal vData As String)
    mvarRelationWhere = vData
End Property
Public Property Get IsTax() As Integer ''由向导生成的是否含税的条件
    IsTax = mblnIsTax
End Property
Public Property Let IsTax(ByVal vData As Integer)
    mblnIsTax = vData
End Property
Public Property Get BudgetObject() As String ''由向导生成的预算对象
    BudgetObject = mstrBudgetObject
End Property
Public Property Let BudgetObject(ByVal vData As String)
    mstrBudgetObject = vData
End Property

Public Property Get BudgetName() As String ''由向导生成的预算名称
    BudgetName = mstrBudgetName
End Property
Public Property Let BudgetName(ByVal vData As String)
    mstrBudgetName = vData
End Property

Public Property Get ReportPeriodFromWizard() As String ''由向导生成的报告期的条件
    ReportPeriodFromWizard = mstrReportPeriodFromWizard
End Property
Public Property Let ReportPeriodFromWizard(ByVal vData As String)
    mstrReportPeriodFromWizard = vData
End Property
Public Property Get LevelCond(ByVal CondIndex As Integer) As String  '编码层次条件
    LevelCond = mstrLevelCond(CondIndex)
End Property
Public Property Let LevelCond(ByVal CondIndex As Integer, ByVal vData As String)
    mstrLevelCond(CondIndex) = vData
End Property
Public Property Get CondCount() As Integer '条件个数
    CondCount = mintCondCount
End Property
Public Property Let CondCount(ByVal vData As Integer)
    mintCondCount = vData
    ReDim mstrCondDesc(mintCondCount)
    ReDim mstrCondValue(mintCondCount)
    ReDim mstrCondWhere(mintCondCount)
    ReDim mdtmCondPeriodStart(mintCondCount)
    ReDim mdtmCondPeriodEnd(mintCondCount)
    ReDim mstrLevelCond(mintCondCount)
End Property
Public Property Get CondPeriodStart(ByVal CondIndex As Integer) As Date '期间条件起始日期
    CondPeriodStart = mdtmCondPeriodStart(CondIndex)
End Property
Public Property Let CondPeriodStart(ByVal CondIndex As Integer, ByVal vData As Date)
    mdtmCondPeriodStart(CondIndex) = vData
End Property
Public Property Get CondPeriodEnd(ByVal CondIndex As Integer) As Date '期间条件终止日期
    CondPeriodEnd = mdtmCondPeriodEnd(CondIndex)
End Property
Public Property Let CondPeriodEnd(ByVal CondIndex As Integer, ByVal vData As Date)
    mdtmCondPeriodEnd(CondIndex) = vData
End Property
Public Property Get CondDesc(ByVal CondIndex As Integer) As String  '条件描述
    CondDesc = mstrCondDesc(CondIndex)
End Property
Public Property Let CondDesc(ByVal CondIndex As Integer, ByVal vData As String)
    mstrCondDesc(CondIndex) = vData
End Property
Public Property Get CondValue(ByVal CondIndex As Integer) As String  '条件值
    CondValue = mstrCondValue(CondIndex)
End Property
Public Property Let CondValue(ByVal CondIndex As Integer, ByVal vData As String)
    mstrCondValue(CondIndex) = vData
End Property
Public Property Get CondWhere(ByVal CondIndex As Integer) As String  '用于生成where的条件值
    CondWhere = mstrCondWhere(CondIndex)
End Property
Public Property Let CondWhere(ByVal CondIndex As Integer, ByVal vData As String)
    mstrCondWhere(CondIndex) = vData
End Property
Public Property Get ReportIsFromWizard() As Boolean '报表是否由向导生成
    ReportIsFromWizard = mblnReportIsFromWizard
End Property
Public Property Let ReportIsFromWizard(ByVal vData As Boolean)
    mblnReportIsFromWizard = vData
End Property

Public Property Get DataType() As Byte '数据类型条件
    DataType = mbytDataType
End Property
Public Property Let DataType(ByVal vData As Byte)
    mbytDataType = vData
End Property
Public Property Get DataSource() As Byte '数据来源条件
    DataSource = mbytDataSource
End Property
Public Property Let DataSource(ByVal vData As Byte)
    mbytDataSource = vData
End Property
Public Property Get IsOnlyAnalyPeriod() As Boolean '是否只要分析期
    IsOnlyAnalyPeriod = mblnIsOnlyAnalyPeriod
End Property
Public Property Let IsOnlyAnalyPeriod(ByVal vData As Boolean)
    mblnIsOnlyAnalyPeriod = vData
End Property
Public Property Get IsCareDirection() As Boolean '''是否要考虑科目的方向(仅针对财务预算分析和财务状况分析表)
    IsCareDirection = mblnIsCareDirection
End Property
Public Property Let IsCareDirection(ByVal vData As Boolean)
    mblnIsCareDirection = vData
End Property
Public Property Get SaleAnalyType() As Byte ''销售数据类型(收入、成本、毛利)
    SaleAnalyType = mbytSaleAnalyType
End Property
Public Property Let SaleAnalyType(ByVal vData As Byte)
    mbytSaleAnalyType = vData
End Property
Public Property Get AnalysisMethodID() As Byte '汇率分析方法
    AnalysisMethodID = mbytAnalysisMethodID
End Property
Public Property Let AnalysisMethodID(ByVal vData As Byte)
    mbytAnalysisMethodID = vData
End Property
Public Property Get AccountSystem() As Byte '会计制度
    AccountSystem = mbytAccountSystem
End Property
Public Property Let AccountSystem(ByVal vData As Byte)
    mbytAccountSystem = vData
End Property

Public Property Get CurrencyID() As Long '当前帐套的本币ID
    CurrencyID = mlngCurrencyID
End Property
Public Property Let CurrencyID(ByVal vData As Long)
    mlngCurrencyID = vData
End Property

Public Property Get FixedAlterMethod() As String '固资变动方式
    FixedAlterMethod = mvarFixedAlterMethod
End Property
Public Property Let FixedAlterMethod(ByVal vData As String)
    mvarFixedAlterMethod = vData
End Property

Public Property Get OrderBy() As String '排序字段
    OrderBy = mstrOrderBy
End Property
Public Property Let OrderBy(ByVal vData As String)
    mstrOrderBy = vData
End Property

Public Property Get BalanceSQL() As String '余额
    BalanceSQL = mvarBalanceSQL
End Property
Public Property Let BalanceSQL(ByVal vData As String)
    mvarBalanceSQL = vData
End Property

Public Property Get ViewSQL() As String
    ViewSQL = mvarViewSQL
End Property
Public Property Let ViewSQL(ByVal vData As String)
    mvarViewSQL = vData
End Property
'是否计算余额(针对财务状况分析表)
Public Property Get SumBalance() As Boolean
    SumBalance = mblnSumBalance
End Property
Public Property Let SumBalance(ByVal vData As Boolean)
    mblnSumBalance = vData
End Property

'是否包含未记帐凭证(0：否；1：是。)
Public Property Get IncludeUnPosted() As Byte
    IncludeUnPosted = mbytIncludeUnPosted
End Property
Public Property Let IncludeUnPosted(ByVal vData As Byte)
    mbytIncludeUnPosted = vData
End Property

'预算方案ID
Public Property Get BudgetID() As Long
    BudgetID = mlngBudgetID
End Property
Public Property Let BudgetID(ByVal vData As Long)
    mlngBudgetID = vData
End Property
'预算年度
Public Property Get BudgetYear() As Integer
    BudgetYear = mintBudgetYear
End Property
Public Property Let BudgetYear(ByVal vData As Integer)
    mintBudgetYear = vData
End Property

'商品条件
Public Property Get ItemCond() As String
    ItemCond = mvarItemCond
End Property
Public Property Let ItemCond(ByVal vData As String)
    mvarItemCond = vData
End Property
'版本号
Public Property Get bytVresion() As Byte
    bytVresion = mbytVersion
End Property
Public Property Let bytVresion(ByVal vData As Byte)
    mbytVersion = vData
End Property
'报表打印设置ID
Public Property Get PrintSetupID() As Long
    PrintSetupID = mlngPrintSetupID
End Property

Public Property Let PrintSetupID(ByVal vData As Long)