cgshdap.cls

来自「制造业产供销与往来系统源码」· CLS 代码 · 共 549 行 · 第 1/2 页

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

Dim m_CgShdAph As CgShdAph
Dim m_Hwbm As Hwbm
Dim m_HwCk As HwCk
Dim m_HwDw As HwDw
Dim m_CwSm As CwSm

Dim m_CgShdAp_CgShdAphno As Double

Dim m_CgShdAp_CgPodDocno As String
Dim m_CgShdAp_CgPodno As Double

Dim m_CgShdAp_HwBmCode As String
Dim m_CgShdAp_HwBmMc As String
Dim m_CgShdAp_HwBmno As Double

Dim m_CgShdAp_HwCkMc As String
Dim m_CgShdAp_HwCkno As Double

Dim m_CgShdAp_HwDwCode As String
Dim m_CgShdAp_HwDwNo As Double
Dim m_CgShdAp_HwDwConv As Double

Dim m_CgShdApQty As Double
Dim m_CgShdApPrice As Double
Dim m_CgShdApAmt As Double

Dim m_CgShdApQAmt As Double
Dim m_CgShdApTAmt As Double

Dim m_CgShdAp_CwSmCode As String
Dim m_CgShdAp_CwSmNo As Double
Dim m_CgShdAp_CwSmConv As Double

Dim m_CgShdApIPrice As Double
Dim m_CgShdApIAmt As Double

Dim m_CgShdApMioNo As Double

Dim m_CgShdApBz As String

Dim m_CgShdApNo As Double

Dim m_CgShdApId As Integer
Dim m_CgShdApKey As Double

Private Sub Class_Initialize()
   m_CgShdApId = -1
End Sub

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

Public Property Get CgShdApId() As Integer
   CgShdApId = m_CgShdApId
End Property

Public Property Let CgShdApId(vCgShdApId As Integer)
   m_CgShdApId = vCgShdApId
End Property

Public Property Get CgShdApKey() As Double
   CgShdApKey = m_CgShdApKey
End Property

Public Property Let CgShdApKey(vCgShdApKey As Double)
   m_CgShdApKey = vCgShdApKey
End Property

Public Property Get CgShdAph() As CgShdAph
   If m_CgShdAph Is Nothing Then
      Set m_CgShdAph = New CgShdAph
      m_CgShdAph.Requery "", m_CgShdAp_CgShdAphno
   End If
   Set CgShdAph = m_CgShdAph
End Property

Public Property Set CgShdAph(vCgShdAph As CgShdAph)
   Set m_CgShdAph = vCgShdAph
End Property

Public Property Get Hwbm() As Hwbm
   If m_Hwbm Is Nothing Then
      Set m_Hwbm = New Hwbm
      If m_CgShdAp_HwBmCode <> "" Then
         m_Hwbm.Requery m_CgShdAp_HwBmCode
      End If
   End If
   Set Hwbm = m_Hwbm
End Property

Public Property Get HwCk() As HwCk
   If m_HwCk Is Nothing Then
      Set m_HwCk = New HwCk
      If m_CgShdAp_HwCkMc <> "" Then
         m_HwCk.Requery m_CgShdAp_HwCkMc
      End If
   End If
   Set HwCk = m_HwCk
End Property

Public Property Get HwDw() As HwDw
   If m_HwDw Is Nothing Then
      Set m_HwDw = New HwDw
      If m_CgShdAp_HwDwCode <> "" Then
         m_HwDw.Requery m_CgShdAp_HwDwCode
      End If
   End If
   Set HwDw = m_HwDw
End Property

Public Property Get CwSm() As CwSm
   If m_CwSm Is Nothing Then
      Set m_CwSm = New CwSm
      If m_CgShdAp_CwSmCode <> "" Then
         m_CwSm.Requery m_CgShdAp_CwSmCode
      End If
   End If
   Set CwSm = m_CwSm
End Property

Public Property Get CgShdAp_CgShdAphno() As Double
   CgShdAp_CgShdAphno = m_CgShdAp_CgShdAphno
End Property

Public Property Get CgShdAp_CgPodDocno() As String
   CgShdAp_CgPodDocno = m_CgShdAp_CgPodDocno
End Property

Public Property Get CgShdAp_CgPodno() As Double
   CgShdAp_CgPodno = m_CgShdAp_CgPodno
End Property

Public Property Get CgShdAp_HwBmCode() As String
   CgShdAp_HwBmCode = m_CgShdAp_HwBmCode
End Property

Public Property Get CgShdAp_HwBmMc() As String
   CgShdAp_HwBmMc = m_CgShdAp_HwBmMc
End Property

Public Property Get CgShdAp_HwBmno() As Double
   CgShdAp_HwBmno = m_CgShdAp_HwBmno
End Property

Public Property Get CgShdAp_HwCkMc() As String
   CgShdAp_HwCkMc = m_CgShdAp_HwCkMc
End Property

Public Property Get CgShdAp_HwCkno() As Double
   CgShdAp_HwCkno = m_CgShdAp_HwCkno
End Property

Public Property Get CgShdAp_HwDwCode() As String
   CgShdAp_HwDwCode = m_CgShdAp_HwDwCode
End Property

Public Property Get CgShdAp_HwDwno() As Double
   CgShdAp_HwDwno = m_CgShdAp_HwDwNo
End Property

Public Property Get CgShdAp_HwDwConv() As Double
   CgShdAp_HwDwConv = m_CgShdAp_HwDwConv
End Property

Public Property Get CgShdApQty() As Double
   CgShdApQty = m_CgShdApQty
End Property

Public Property Get CgShdApPrice() As Double
   CgShdApPrice = m_CgShdApPrice
End Property

Public Property Get CgShdApAmt() As Double
   CgShdApAmt = m_CgShdApAmt
End Property

Public Property Get CgShdApQAmt() As Double
   CgShdApQAmt = m_CgShdApQAmt
End Property

Public Property Get CgShdApTAmt() As Double
   CgShdApTAmt = m_CgShdApTAmt
End Property

Public Property Get CgShdAp_CwSmCode() As String
   CgShdAp_CwSmCode = m_CgShdAp_CwSmCode
End Property

Public Property Get CgShdAp_CwSmno() As Double
   CgShdAp_CwSmno = m_CgShdAp_CwSmNo
End Property

Public Property Get CgShdAp_CwsmConv() As Double
   CgShdAp_CwsmConv = m_CgShdAp_CwSmConv
End Property

Public Property Get CgShdApIPrice() As Double
   CgShdApIPrice = m_CgShdApIPrice
End Property

Public Property Get CgShdApIAmt() As Double
   CgShdApIAmt = m_CgShdApIAmt
End Property

Public Property Get CgShdApBz() As String
   CgShdApBz = m_CgShdApBz
End Property

Public Property Get CgShdApMioNo() As Double
   CgShdApMioNo = m_CgShdApMioNo
End Property

Public Property Get CgShdApNo() As Double
   CgShdApNo = m_CgShdApNo
End Property

Public Property Let CgShdAp_CgPodno(vCgShdAp_CgPodno As Double)
   If vCgShdAp_CgPodno = 0 Then
      m_CgShdAp_CgPodDocno = ""
      Exit Property
   End If

   Dim mPod As CgPod
   Set mPod = New CgPod
   If mPod.Requery(vCgShdAp_CgPodno) = -1 Then
      Set mPod = Nothing
      Err.Raise vbObjectError + 1, , "对应的采购单行不存在！"
      Exit Property
   End If
   m_CgShdAp_CgPodDocno = mPod.CgPodh.CgPodhDocno
   m_CgShdAp_HwBmno = mPod.CgPod_HwBmno
   m_CgShdAp_HwBmCode = mPod.CgPod_HwBmCode
   m_CgShdAp_HwBmMc = mPod.CgPod_HwBmMc
   Set mPod = Nothing
   m_CgShdAp_CgPodno = vCgShdAp_CgPodno
   
End Property

Public Property Let CgShdAp_HwBmCode(vCgShdAp_HwBmCode As String)
   If Trim(vCgShdAp_HwBmCode) = "" Then
      Err.Raise vbObjectError + 1, , "货物编码不能为空！"
      Exit Property
   End If
   If m_CgShdAp_HwBmCode <> vCgShdAp_HwBmCode Then
      If Hwbm.Requery(vCgShdAp_HwBmCode) = -1 Then
         Err.Raise vbObjectError + 1, , "录入的货物编码不存在！"
         Exit Property
      End If
      m_CgShdAp_HwBmno = Hwbm.HwBmNo
      m_CgShdAp_HwBmMc = Hwbm.HwBmMc
      m_CgShdAp_HwDwCode = Hwbm.HwBm_HwDwCode
      m_CgShdAp_HwDwNo = Hwbm.HwBm_HwDwNo
      m_CgShdAp_HwDwConv = 1
   End If
   m_CgShdAp_HwBmCode = vCgShdAp_HwBmCode
End Property

Public Property Let CgShdAp_HwCkMc(vCgShdAp_HwCkMc As String)
   If Trim(vCgShdAp_HwCkMc) = "" Then