classcontracthead.cls

ERP合同变更ERP合同变更ERP合同变更ERP合同变更

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClassContractHead"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'保持属性值的局部变量
Private mvarFBrNo As Long '局部复制
Private m_StrFContractName As String
Private m_StrFContractNo As String
Private m_intFRP As Integer
Private m_intFStatus As Integer
Private m_intFContractTypeID As Integer
Private m_DatFDate As Date
Private m_LonFCurrencyID As Long
'合同币别
Private m_SinFExchangerRate As Single
'汇率
Public Property Get FExchangerRate() As Single
    FExchangerRate = m_SinFExchangerRate
End Property

Public Property Let FExchangerRate(ByVal SinValue As Single)
    m_SinFExchangerRate = SinValue
End Property
Public Property Get FCurrencyID() As Long
    FCurrencyID = m_LonFCurrencyID
End Property

Public Property Let FCurrencyID(ByVal LonValue As Long)
    m_LonFCurrencyID = LonValue
End Property
'合同日期
Public Property Get FDate() As Date
    FDate = m_DatFDate
End Property

Public Property Let FDate(ByVal DatValue As Date)
    m_DatFDate = DatValue
End Property
'合同类型代码:对应表单的合同种类
Public Property Get FContractTypeID() As Integer
    FContractTypeID = m_intFContractTypeID
End Property

Public Property Let FContractTypeID(ByVal intValue As Integer)
    m_intFContractTypeID = intValue
End Property
'合同状态：0-未审核，1-已审核，2--已关闭
Public Property Get FStatus() As Integer
    FStatus = m_intFStatus
End Property

Public Property Let FStatus(ByVal intValue As Integer)
    m_intFStatus = intValue
End Property
'系统类型：1-应收合同，0应付合同
Public Property Get FRP() As Integer
    FRP = m_intFRP
End Property

Public Property Let FRP(ByVal intValue As Integer)
    m_intFRP = intValue
End Property
'合同名
Public Property Get FContractNo() As String
    FContractNo = m_StrFContractNo
End Property

Public Property Let FContractNo(ByVal StrValue As String)
    m_StrFContractNo = StrValue
End Property
'合同名称
Public Property Get FContractName() As String
    FContractName = m_StrFContractName
End Property

Public Property Let FContractName(ByVal StrValue As String)
    m_StrFContractName = StrValue
End Property
'设置分支机构号
Public Property Let FBrID(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.FBrNo = 5
    mvarFBrNo = vData
End Property

'得到分支机构号
Public Property Get FBrID() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.FBrNo
    FBrNo = mvarFBrNo
End Property