clsfetchitem.cls

医院门诊医生工作站,vb6 SqlServer

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsFetchItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Public ItemCode As String
Public ItemName As String
Public model As String
Public Cprice As Currency
Public TotalAmount As Integer
Public TotalFair As Currency
Public FetchedAmount As Integer
Public FetchedFair As Currency
Public FetchAmount As Integer
Public FetchFair As Currency
Public BackAmount As Integer
Public BackFair As Currency
Public unit As String
Public BaseUnit As String
Public Factor As Integer
Public Num As Integer
Public ItemNum As Integer
Public Flag As Integer
Public gprice As Currency '为库存事物
Public RevDepCode As String
Public batchid As String
Public Comment As String
Public NewFlag As Integer
Public Property Get Export() As Boolean
    If (Flag And 2) = 2 Then
        Export = True
    End If
End Property
Public Property Get Pub() As Boolean
    If (Flag And 1) = 1 Then
        Pub = True
    End If
End Property
Public Property Get ActFair() As Currency
    ActFair = TotalFair - FetchedFair
End Property

Public Property Get ActAmount() As Integer
    ActAmount = TotalAmount - FetchedAmount
End Property