classes/RjClsWorkPeriod.vb

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

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

Public Class RjClsWorkPeriod

    Private m_PeriodId As Integer '编号01
    Private m_Year As String '年度02
    Private m_Month As Integer '月份03
    Private m_VoucherCount As Integer '凭证数量04
    Private m_Posted As Boolean '是否过账05
    Private m_Settled As Boolean '是否结账06

    Public Property PeriodId As Integer
        Get
            Return m_PeriodId
        End Get
        Set(value As Integer)
            m_PeriodId = value
        End Set
    End Property

    Public Property Year As String
        Get
            Return m_Year
        End Get
        Set(value As String)
            m_Year = 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 VoucherCount As Integer
        Get
            Return m_VoucherCount
        End Get
        Set(value As Integer)
            m_VoucherCount = value
        End Set
    End Property

    Public Property Posted As Boolean
        Get
            Return m_Posted
        End Get
        Set(value As Boolean)
            m_Posted = value
        End Set
    End Property

    Public Property Settled As Boolean
        Get
            Return m_Settled
        End Get
        Set(value As Boolean)
            m_Settled = value