classes/RjClsVoucher.vb

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

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

Public Class RjClsVoucher

    Private m_Entry As Integer '分录  '0
    Private m_Month As Integer '月份  '1
    Private m_Date As Integer '日期  '2
    Private m_VoucherGroup As String '凭证类别  '3
    Private m_VoucherNumber As Integer '凭证号  '4
    Private m_Exp As String '摘要  '5
    Private m_AcctCode As String '科目  '6
    Private m_AcctName As String '科目名称  '7
    Private m_Debit As Decimal '借  '8
    Private m_Credit As Decimal '贷  '9
    Private m_ProjectTrans As String '核算  '10
    Private m_ProjectSepcial As String '专项  '11
    Private m_Quantity As Single '数量  '12
    Private m_Currency As Decimal '外币  '13
    Private m_Checked As Boolean '对帐  '14
    Private m_Posted As Boolean '记账  '15
    Private m_ProjectCode As String '项目编码  '16
    Private m_ProjectName As String '项目  '17
    Private m_Maker As String '制单  '18
    Private m_Checker As String '复核  '19
    Private m_Poster As String '记账人  '20
    Private m_K1 As Boolean 'k1  '21
    Private m_Attachment As Integer '附件数  '22

    Public Property Entry As Integer
        Get
            Return m_Entry
        End Get
        Set(value As Integer)
            m_Entry = value
        End Set
    End Property

    Public Property Month As Integer
        Get
            Return m_Month
        End Get
        Set(value As Integer)
            m_Month = value
        End Set
    End Property

    Public Property [Date] As Integer
        Get
            Return m_Date
        End Get
        Set(value As Integer)
            m_Date = value
        End Set
    End Property

    Public Property VoucherGroup As String
        Get
            Return m_VoucherGroup
        End Get
        Set(value As String)
            m_VoucherGroup = value
        End Set