classes/ClsTAccount.vb

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

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

Public Class ClsTAccount
    Implements IList
    'T_Account(23)
    'AccountCode,PrevLevelCode,Level,AccountName,ShortName,FullName,
    'IfLastLevel,AccountType,YearMoney,BalanceDirection,YearCurrency,CurrencyCode,
    'IfRateAdjust,IfQuantity,QuantityUnit,YearQuantity,IfTrans,IfCustomer,
    'IfDepartment,IfEmployee,MonthTransit,MonthTransitAcctCode,AbSet

    Private m_AccountCode As String '0
    Private m_PrevLevelCode As String '1
    Private m_Level As Integer '2
    Private m_AccountName As String '3
    Private m_ShortName As String '4
    Private m_FullName As String '5
    Private m_IfLastLevel As Boolean '6
    Private m_AccountType As String   '7 表示科目类型：资产 损益 
    Private m_YearMoney As Decimal '8
    Private m_BalanceDirection As String '9
    Private m_YearCurrency As Decimal '10 年初外币
    Private m_CurrencyCode As String '11 年初外币数
    Private m_IfRateAdjust As Boolean  '12 是否调汇
    Private m_IfQuantity As Boolean '13 是否数量核算
    Private m_QuantityUnit As String '14 数量核算单位
    Private m_YearQuantity As Single '15 年初数量
    Private m_IfProject As Boolean ' 16 是否核算项目
    Private m_IfCustomer As Boolean '17 是否核算往来
    Private m_IfDepartment As Boolean '18 是否部门核算
    Private m_IfEmployee As Boolean '19 是否职员核算
    Private m_MonthTransit As String  '20 月末自动结转方式：借方结转 贷方结转 余额结转
    Private m_MonthTransitAcctCode As String '21 月末结转科目代码
    Private m_AbSet As Int16  '22 AB账设置 0 - 不分， 1- A 2-B -分属AB账

    Public Property AccountCode As String
        Get
            Return m_AccountCode
        End Get
        Set(value As String)
            m_AccountCode = 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 Level As Integer
        Get
            Return m_Level
        End Get
        Set(value As Integer)
            m_Level = value
        End Set
    End Property

    Public Property AccountName As String