classes/clsTVoucher.vb

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

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

Public Class ClsTVoucher
    'T_Voucher(20)
    'VoucherAutoId,VoucherId,WorkPeriod,VoucherGroupId,VoucherGroup,VoucherNumber,
    'VoucherDate,Attachment,Casher,Poster,Maker,Checker,
    'Hander,SumOfDebit,SumOfCredit,VoucherStatus,Posted,Module,
    'Deleted,Memo

    Private m_VoucherAutoId As Integer '0 自动编号 
    Private m_VoucherId As Integer '1
    Private m_WorkPeriod As String '2
    Private m_VoucherGroupId As Integer '3
    Private m_VoucherGroup As String '4
    Private m_VoucherNumber As Integer '5
    Private m_VoucherDate As DateTime '6
    Private m_Attachment As Integer '7 附件数量
    Private m_Casher As String '8
    Private m_Poster As String '9
    Private m_Maker As String '10
    Private m_Checker As String '11
    Private m_Hander As String '12
    Private m_SumOfDebit As Decimal '13
    Private m_SumOfCredit As Decimal '14
    Private m_VoucherStatus As String '15 凭证状态：正常，红冲
    Private m_Posted As Boolean '16
    Private m_Module As String '17 自动凭证 损益凭证 手工凭证
    Private m_Deleted As Boolean '18
    Private m_Memo As String '19 凭证事项说明，如果有需要则写
    Private m_MoneyHz As String '20 凭证合计的大写
    Private m_Checked As Boolean '21 审核标记
    Private m_EntryList As List(Of ClsTVoucherDetail) '分录集合

    Public Property VoucherAutoId As Integer
        Get
            Return m_VoucherAutoId
        End Get
        Set(value As Integer)
            m_VoucherAutoId = 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 WorkPeriod As String
        Get
            Return m_WorkPeriod
        End Get
        Set(value As String)
            m_WorkPeriod = value
        End Set
    End Property

    Public Property VoucherGroupId As Integer
        Get