classes/clsIndustryAccount.vb

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

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

Public Class ClsIndustryAccount
    'S_IndustryAccount

    Private mInnerId As Integer
    Private mIndustryId As Int16
    Private mAcctLevel As Int16
    Private mParentAcctCode As String
    Private mAcctCode As String
    Private mAcctName As String
    Private mAcctType As String
    Private mDebitCredit As Int16
    Private mIfLastAcct As Boolean

    Public Property InnerId As Integer
        Get
            Return mInnerId
        End Get
        Set(value As Integer)
            mInnerId = value
        End Set
    End Property

    Public Property IndustryId As Short
        Get
            Return mIndustryId
        End Get
        Set(value As Short)
            mIndustryId = value
        End Set
    End Property

    Public Property AcctLevel As Short
        Get
            Return mAcctLevel
        End Get
        Set(value As Short)
            mAcctLevel = value
        End Set
    End Property

    Public Property ParentAcctCode As String
        Get
            Return mParentAcctCode
        End Get
        Set(value As String)
            mParentAcctCode = value
        End Set
    End Property

    Public Property AcctCode As String
        Get
            Return mAcctCode
        End Get
        Set(value As String)
            mAcctCode = value
        End Set
    End Property

    Public Property AcctName As String
        Get