classes/clsTLedgerSetting.vb

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

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

Public Class ClsTLedgerSetting
    '对应数据文件：当前打开账套data/l_XXX.mdb
    '对应数据表：T_LedgerSetting

    Private mLedgerSettingId As Integer
    Private mCompanyName As String
    Private mIndustryTypeId As Integer
    Private mIndustryType As String
    Private mLedgerIfOpened As Boolean
    Private mLedgerOpenedDate As Date
    Private mLedgerWorkYear As String
    Private mLedgerOpenWorkYear As String '6位: 202101
    Private mLedgerSubAcctLength As Integer '默认次级科目长度为 3
    Private mLedgerOwnerCurrency As String '本位币
    Private mCashCode As String '现金科目
    Private mBankCode As String '银行科目
    Private mAssetsCode As String '固定资产科目
    Private mDepCode As String '累计折旧科目
    Private mReceiveCode As String '应收账款科目
    Private mPayCode As String '应付账款科目
    Private mGainCode As String '本年利润科目
    Private mDevCode As String '损益汇兑科目
    Private mStockCode As String '存货科目
    Private mIncAndDecCode As String '损益科目
    Private mIfPrintQuantity As Boolean
    Private mIfPrintForeignMoney As Boolean
    Private mIfPrintBankInfo As Boolean
    Private mIfPrintNegative As Boolean
    Private mIfPrintManager As Boolean
    Private mIfPrintPoster As Boolean
    Private mIfPrintChecker As Boolean
    Private mIfPrintCasher As Boolean
    Private mIfPrintMaker As Boolean
    Private mIfPrintPerson As Boolean
    Private mIfPrintDate As Boolean
    Private mIfSelfPostVoucher As Boolean '是否允许同一个人过账
    Private mIfSelfCheckVoucher As Boolean '是否允许同一个人审核凭证
    Private mLedgerAbSetup As Integer '是否AB账，0- 不分，1- A 2-B
    Private mLedgerId As Integer '当前账套在sys.mdb表S_Ledger中的账套编号
    Private mRelativeLedgerId As Integer '如果是AB账，则相关账套在sys.mdb S_Ledger表中的账套编号
    Private mOneAcctLevelLength As Int16 '一级科目长度

    Public Property LedgerWorkYear As String
        Get
            Return mLedgerWorkYear
        End Get
        Set(value As String)
            mLedgerWorkYear = value
        End Set
    End Property

    Public Property LedgerAbSetup As Integer
        Get
            Return mLedgerAbSetup
        End Get
        Set(value As Integer)
            mLedgerAbSetup = value
        End Set
    End Property