classes/ClsTVoucherDetail.vb

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

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

Public Class ClsTVoucherDetail
    'T_VoucherDetail(24)
    'DetailId,VoucherId,EntryNumber,Excerpta,AccountCode,AccountCodeName,
    'Debit,Credit,Quantity,Price,Unit,SettleMode,
    'SettleCode,SettleDate,Payer,CurrencyCode,ExchangeRate,CurrencyNumber,
    'TransCode,ProjectName,ProjectCode,ProjectCustomer

    Private m_DetailId As Integer '0
    Private m_VoucherId As Integer '1
    Private m_EntryNumber As Integer '2
    Private m_Excerpta As String '3 摘要
    Private m_AccountCode As String '4
    Private m_AccountCodeName As String '5
    Private m_Debit As Decimal '6
    Private m_Credit As Decimal '7
    Private m_Quantity As Single '8
    Private m_Price As Decimal '9
    Private m_Unit As String '10
    Private m_SettleMode As String '11
    Private m_SettleCode As String '12
    Private m_SettleDate As DateTime '13
    Private m_Payer As String '14
    Private m_CurrencyCode As String '15 本位币，默认RMB
    Private m_ExchangeRate As Single '16 汇率
    Private m_CurrencyNumber As Decimal '17 外币数量
    Private m_TransCode As String '18 往来业务编号
    Private m_ProjectName As String '19 核算类别名称
    Private m_ProjectCode As String '20 核算项目代码
    Private m_ProjectCustomer As String '21 核算单位：供应或采购商名称
    Private m_VoucherNumber As Integer '22 凭证本期连续号
    Private m_VoucherGroupId As Integer '23 凭证类别编号 
    Private m_VoucherGroup As String '24 凭证类别字号
    Private m_WorkPeriod As String '25 会计期间

    Public Property DetailId As Integer
        Get
            Return m_DetailId
        End Get
        Set(value As Integer)
            m_DetailId = value
        End Set
    End Property

    Public Property VoucherId As Integer
        Get
            Return m_VoucherId
        End Get
        Set(value As Integer)
            m_VoucherId = value
        End Set
    End Property

    Public Property EntryNumber As Integer
        Get
            Return m_EntryNumber
        End Get
        Set(value As Integer)
            m_EntryNumber = value
        End Set
    End Property