List 6-148　DataObj.ProductコンポーネントのGetNowStockメソッド

  1： Public Function GetNowStock(ByVal ProductID As Long) As Long
  2：     ' 指定された製品のその時点の在庫数（予約数を省く）を返す
  3：     ' 【引数】
  4：     '   ProductID = 在庫を調査したい製品の製品番号
  5：     ' 【戻り値】
  6：     '   指定された製品の在庫数（予約数は省く）
  7：     Dim PRODUCTNAME As Variant, YOMIGANA As Variant, PRICE As Variant
  8：     Dim STOCK As Variant, MEMO As Variant
  9：     Dim BACKORDER As Variant, MADEUSER As Variant
 10：     Dim MADEDATE As Variant, LASTUSER As Variant, LASTDATE As Variant
 11：     
 12：     GetRecord ProductID, PRODUCTNAME, YOMIGANA, PRICE, STOCK, MEMO, BACKORDER, _
   　               MADEUSER, MADEDATE, LASTUSER, LASTDATE
 13：               
 14：     GetNowStock = STOCK - BACKORDER
 15： End Function