List 7-128　FormEditSlipフォームのBTN_CALC_Clickプロシージャ

---

  1： Private Sub BTN_CALC_Click()
  2：     ' ［最短期間算出］ボタンが押されたときの処理
  3：     Dim DELIVERDATE As Variant
  4：     Dim objSlip As Business.Slip
  5：     
  6：     On Error GoTo ErrHandle
  7：     
  8：     Set objSlip = CreateObject("Business.Slip")
  9：     
 10：     DELIVERDATE = objSlip.GetReadyDate_Slip(SlipID)
 11：     
 12：     If IsNull(DELIVERDATE) Then
 13：         ' 納期不明
 14：         MsgBox "この伝票に記載されている製品の入荷予定はありません。納期未定です", _
   　                vbOKOnly, "納期算出"
 15：     Else
 16：         ' 納期をTXT_DELIVERDATEに格納する
 17：         TXT_DELIVERDATE.Text = DELIVERDATE
 18：     End If
 19：     
 20：     Set objSlip = Nothing
 21：     
 22：     Exit Sub
 23：     
 24： ErrHandle:
 25：     ' エラーハンドラ
 26：     MsgBox Err.Description, vbOKOnly, "納期算出エラー"
 27：     Set objSlip = Nothing
 28： End Sub