List 6-120　Business.SlipコンポーネントのGetSlip_Statusメソッド

  1： Public Function GetSlip_Status(ByVal SlipID As Long) As DataObj.SlipStatus
  2：     ' 伝票の現在の状態を返す
  3：     ' 【引数】
  4：     '   SlipID = 状態を調べたい伝票の伝票番号
  5：     ' 【戻り値】
  6：     '   その伝票の現在の状態。SlipStatus列挙型のいずれかの値
  7：     Dim objContext As ObjectContext
  8：     Dim objDataSlip As DataObj.Slip
  9： 
 10：     Dim SlipStatus As DataObj.SlipStatus
 11：     Dim IsDeleted As DataObj.DELETEDFLAG
 12：     
 13：     ' オブジェクトコンテキストの取得
 14：     Set objContext = GetObjectContext()
 15：     
 16：     ' エラーハンドラの設定
 17：     On Error GoTo ErrHandle
 18： 
 19：     ' DataObj.Slipコンポーネントの実体化
 20：     Set objDataSlip = CreateObject("DataObj.Slip")
 21：     
 22：     ' 削除されているかどうかを取得
 23：     IsDeleted = objDataSlip.IsDeleted(SlipID)
 24：     
 25：     ' 伝票の状態を取得
 26：     SlipStatus = objDataSlip.Get_SlipStatus(SlipID)
 27：     
 28：     ' 参照権限があるかどうか
 29：     Chk_View objContext, IsDeleted, SlipStatus
 30： 
 31：     ' 取得した戻り値を設定
 32：     GetSlip_Status = SlipStatus
 33：     
 34：     ' トランザクションをコミット
 35：     objContext.SetComplete
 36：     
 37：     ' オブジェクトコンテキストの解放
 38：     Set objContext = Nothing
 39：     
 40：     Exit Function
 41： ErrHandle:
 42：     ' エラーハンドラ
 43：     objContext.SetAbort
 44：     Set objContext = Nothing
 45：     Set objDataSlip = Nothing
 46： 
 47：     GetSlip_Status = Unknown
 48：     
 49：     ' エラーの再発行
 50：     Err.Raise Err.NUMBER, Err.Source, Err.Description, _
   　               Err.HelpFile, Err.HelpContext
 51： End Function