classes/RjClsAcctSetup.vb

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

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

Public Class RjClsAcctSetup

    Private m_CashCode As String '现金科目
    Private m_StockCode As String '存货科目
    Private m_DepCode As String '损益科目
    Private m_GainCode As String '本年利润科目
    Private m_NewAcctLen As Int32  '新科目长度
    Private m_OneLevelAcctLen As Int32  '一级科目长度
    Private m_IndustryId As Int32 '行业类型

    Public Property CashCode As String
        Get
            Return m_CashCode
        End Get
        Set(value As String)
            m_CashCode = value
        End Set
    End Property

    Public Property StockCode As String
        Get
            Return m_StockCode
        End Get
        Set(value As String)
            m_StockCode = value
        End Set
    End Property

    Public Property DepCode As String
        Get
            Return m_DepCode
        End Get
        Set(value As String)
            m_DepCode = value
        End Set
    End Property

    Public Property GainCode As String
        Get
            Return m_GainCode
        End Get
        Set(value As String)
            m_GainCode = value
        End Set
    End Property

    Public Property NewAcctLen As Integer
        Get
            Return m_NewAcctLen
        End Get
        Set(value As Integer)
            m_NewAcctLen = value
        End Set
    End Property

    Public Property OneLevelAcctLen As Integer
        Get
            Return m_OneLevelAcctLen
        End Get
        Set(value As Integer)