List 7-104　FormStockフォームのBTN_CANCELDUE_Clickプロシージャ

---

  1： Private Sub BTN_CANCELDUE_Click()
  2：     ' ［入庫施行取り消し］ボタンが押されたときの処理
  3：     Dim objProduct As Business.Product
  4：     Dim StockID As Long
  5：     
  6：     ' 入庫施行取り消しの確認
  7：     If MsgBox("入出庫番号" & g_objRec.Fields("ID").Value & _
   　               "のデータの入庫取り消しをしてよろしいですか", vbYesNo, _
   　               "入庫施行取り消しの確認") = vbYes Then
  8：         ' 入庫を取り消す
  9：         On Error GoTo ErrHandle
 10：         Set objProduct = CreateObject("Business.Product")
 11：         objProduct.CancelDue g_objRec.Fields("ID").Value
 12：         Set objProduct = Nothing
 13：         ' データグリッドの表示を更新
 14：         StockID = g_objRec.Fields("ID").Value
 15：         RefreshData
 16：         g_objRec.MoveFirst
 17：         g_objRec.Find "ID=" & StockID, 0, adSearchForward
 18：     End If
 19：     
 20：     Exit Sub
 21：     
 22： ErrHandle:
 23：     ' ビジネスオブジェクトの呼び出しに失敗
 24：     MsgBox Err.Description, vbOKOnly, "入庫施行の取り消し"
 25：     Set objProduct = Nothing
 26： End Sub