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

  1： Public Sub GetSlip_Bill(ByVal SlipID As Long, _
   　                         ByRef BILLID As Variant, _
   　                         ByRef BILLDATE As Variant, _
   　                         ByRef ONEBILLFLAG As Variant)
  2：     ' 伝票情報テーブル内の指定された伝票番号の伝票のうち
  3：     ' 請求処理にかかわる情報を返す
  4：     ' 【引数】
  5：     '   SlipID = 情報を読み出したい伝票を特定する伝票番号を指定する
  6：     '   BILLID = 指定された伝票から作られた請求書の請求書番号が格納される
  7：     '   BILLDATE = 指定された伝票から作られた請求書の日時が格納される
  8：     '   ONEBILLFLAG = 単独で請求書を作るか，ほかの請求書と合わせて
  9：     '                 月次の請求書を作成するかを示すフラグが格納される
 10：     ' 【戻り値】
 11：     ' なし
 12：     Dim objContext As ObjectContext
 13：     Dim objDataSlip As DataObj.Slip
 14：     Dim SlipStatus As DataObj.SlipStatus
 15：     Dim IsDeleted As DataObj.DELETEDFLAG
 16：     
 17：     ' オブジェクトコンテキストの取得
 18：     Set objContext = GetObjectContext()
 19：     
 20：     ' エラーハンドラの設定
 21：     On Error GoTo ErrHandle
 22： 
 23：     ' DataObj.Slipコンポーネントの実体化
 24：     Set objDataSlip = CreateObject("DataObj.Slip")
 25：     
 26：     ' 削除されているかどうかを取得
 27：     IsDeleted = objDataSlip.IsDeleted(SlipID)
 28：     
 29：     ' 伝票の状態を取得
 30：     SlipStatus = objDataSlip.Get_SlipStatus(SlipID)
 31：     
 32：     ' 参照権限があるかどうか
 33：     Chk_View objContext, IsDeleted, SlipStatus
 34：     
 35：     ' 情報を取得してそのまま返す
 36：     objDataSlip.GetRecord_Bill SlipID, BILLID, _
   　                                BILLDATE, ONEBILLFLAG
 37：     ' DataObj.Slipコンポーネントの解放
 38：     Set objDataSlip = Nothing
 39：     
 40：     ' トランザクションをコミット
 41：     objContext.SetComplete
 42：     
 43：     ' オブジェクトコンテキストの解放
 44：     Set objContext = Nothing
 45：     
 46：     Exit Sub
 47： 
 48： ErrHandle:
 49：     ' エラーハンドラ
 50：     objContext.SetAbort
 51：     Set objContext = Nothing
 52：     Set objDataSlip = Nothing
 53： 
 54：     ' エラーの再発行
 55：     Err.Raise Err.NUMBER, Err.Source, Err.Description, _
   　               Err.HelpFile, Err.HelpContext
 56： End Sub