apivr.cls

制造业产供销与往来系统源码,包括进销存及全部控件！

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Apivr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Dim m_Apivd As Apivd

Dim m_Apivr_Apivdno As Double
Dim m_Apivr_CgApno As Double

Dim m_ApivrNo As Double

Dim m_ApivrQty As Double

Dim m_ApivrId As Integer
Dim m_ApivrKey As Double

Private Sub Class_Initialize()
   m_ApivrId = -1
End Sub

Public Property Get Name() As String
   Name = "Apivr"
End Property

Public Property Get ApivrId() As Integer
   ApivrId = m_ApivrId
End Property

Public Property Let ApivrId(vApivrId As Integer)
   m_ApivrId = vApivrId
End Property

Public Property Get ApivrKey() As Double
   ApivrKey = m_ApivrKey
End Property

Public Property Let ApivrKey(vApivrKey As Double)
   m_ApivrKey = vApivrKey
End Property

Public Property Get Apivd() As Apivd
   If m_Apivd Is Nothing Then
      Set m_Apivd = New Apivd
      If m_Apivr_Apivdno <> 0 Then
         m_Apivd.Requery m_Apivr_Apivdno
      End If
   End If
   Set Apivd = m_Apivd
End Property

Public Property Set Apivd(vApivd As Apivd)
   Set m_Apivd = vApivd
End Property

Public Property Get Apivr_Apivdno() As Double
   Apivr_Apivdno = m_Apivr_Apivdno
End Property

Public Property Get Apivr_CgApno() As Double
   Apivr_CgApno = m_Apivr_CgApno
End Property

Public Property Get ApivrQty() As Double
   ApivrQty = m_ApivrQty
End Property

Public Property Get ApivrNo() As Double
   ApivrNo = m_ApivrNo
End Property

Public Property Let Apivr_CgApno(vApivr_CgApNo As Double)

   Dim mRs As DbRs
   Set mRs = New DbRs
   
   mRs.Fillbydb "SELECT * FROM CGAPREC WHERE CGAPNO=" & CStr(vApivr_CgApNo)
   mRs.MoveFirst
   
   If mRs.EOF Then
      Set mRs = Nothing
      Err.Raise vbObjectError + 1, , "采购应付明细不存在！"
      Exit Property
   End If
   
   Set mRs = Nothing
   m_Apivr_CgApno = vApivr_CgApNo
   
End Property

Public Property Let ApivrQty(vApivrQty As Double)

   If vApivrQty = 0 Then
      Err.Raise vbObjectError + 1, , "数量不能等于零！"
      Exit Property
   End If
   
   m_ApivrQty = vApivrQty

End Property

Public Sub BatchLet(ParamArray Properties() As Variant)
   
   m_Apivr_Apivdno = Properties(0)
   m_Apivr_CgApno = Properties(1)
   
   m_ApivrQty = Properties(2)
   m_ApivrNo = Properties(3)
   
   m_ApivrId = 1

End Sub

Public Sub Save()
   Dim Cmd As ADODB.Command
On Error GoTo Errorhandle
      
   Set Cmd = New ADODB.Command
   Set Cmd.ActiveConnection = gDbCommon.Conn
           
   Cmd.CommandText = gPublicFunction.GetCallSPString("APIVRREC_INSERT", 4)
   Cmd(0) = m_Apivd.ApivdNo
   Cmd(1) = m_Apivr_CgApno
   Cmd(2) = m_ApivrQty
   Cmd(3).Direction = adParamOutput    'ApivrNo

   Cmd.Execute
   m_ApivrNo = Cmd(3)
   
   Set Cmd = Nothing
   
Exit Sub
Errorhandle:
   Set Cmd = Nothing
   Err.Raise vbObjectError + 1, , gDbCommon.Conn.Errors(0)
End Sub