classes/RjClsAccount.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Public Class RjClsAccount

    Private m_Level As Integer
    Private m_PrevLevelCode As String
    Private m_AccountCode As String
    Private m_AccountName As String
    Private m_FullName As String
    Private m_AccountType As String
    Private m_BalanceDirection As Integer
    Private m_IfLastLevel As Boolean
    Private m_YearMoney As Decimal
    Private m_SpecialName As String
    Private m_YearQuantity As Single
    Private m_YearCurrency As Decimal
    Private m_IfCashFlow As Boolean
    Private m_CashFlowCode As String
    Private m_IfProject As Boolean
    Private m_MonthTransit As String
    Private m_MontTransitAcctCode As String
    Private m_Use As String
    Private m_K1 As Boolean
    Private m_K2 As Boolean
    Private m_K3 As Boolean
    Private m_Abset As String
    Private m_C2 As String
    Private m_C3 As String

    Public Property Level As Integer
        Get
            Return m_Level
        End Get
        Set(value As Integer)
            m_Level = value
        End Set
    End Property

    Public Property PrevLevelCode As String
        Get
            Return m_PrevLevelCode
        End Get
        Set(value As String)
            m_PrevLevelCode = value
        End Set
    End Property

    Public Property AccountCode As String
        Get
            Return m_AccountCode
        End Get
        Set(value As String)
            m_AccountCode = value
        End Set
    End Property

    Public Property AccountName As String
        Get
            Return m_AccountName
        End Get
        Set(value As String)
            m_AccountName = value