classes/ClsTGeneralCurrencyLedger.vb

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

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

''' <summary>
''' 总账数据表-外币
''' 对应表-T_GeneralCurrencyLedger
''' </summary>
Public Class ClsTGeneralCurrencyLedger

    Private m_GeneralId As Integer
    Private m_WorkPeriod As String
    Private m_AcctCode As String
    Private m_AcctLevel As Integer
    Private m_IfLastLevel As Integer
    Private m_AcctName As String
    Private m_Year As Single
    Private m_YearCurrency As Decimal
    Private m_Begin As Single
    Private m_BeginCurrency As Decimal
    Private m_CreditSum As Single
    Private m_CreditSumCurrency As Decimal
    Private m_CreditTotal As Single
    Private m_CreditTotalCurrency As Decimal
    Private m_DebitSum As Single
    Private m_DebitSumCurrency As Decimal
    Private m_DebitTotal As Single
    Private m_DebitTotalCurrency As Decimal
    Private m_Balance
    Private m_BalanceCurrency As Decimal
    Private m_BalanceDirection As String

    Public Property GeneralId As Integer
        Get
            Return m_GeneralId
        End Get
        Set(value As Integer)
            m_GeneralId = 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 AcctCode As String
        Get
            Return m_AcctCode
        End Get
        Set(value As String)
            m_AcctCode = value
        End Set
    End Property

    Public Property AcctLevel As Integer
        Get
            Return m_AcctLevel
        End Get
        Set(value As Integer)