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

  1： Public Sub GetSlip_Detail(ByVal SlipID As Long, _
   　                           ByRef DIVISION As Variant, _
   　                           ByRef PERSON As Variant, _
   　                           ByRef DELIVERDATE As Variant, _
   　                           ByRef SENT_ADDR As Variant, _
   　                           ByRef SENT_TEL As Variant, _
   　                           ByRef MEMO As Variant, _
   　                           ByRef MADEDATE As Variant, _
   　                           ByRef MADEUSER As Variant, _
   　                           ByRef LASTDATE As Variant, _
   　                           ByRef LASTUSER As Variant)
  2：     ' 指定された伝票番号に結び付けられた
  3：     ' 伝票追加情報テーブル中のレコードの内容を返す
  4：     ' 【引数】
  5：     '   SlipID = 読み出したい伝票を特定する伝票番号を指定する
  6：     '   DIVISION = 伝票に結び付けられた顧客側の部署名が格納される
  7：     '   PERSON = 伝票に結び付けられた顧客側の担当者名が格納される
  8：     '   DELIVERDATE = 伝票に結び付けられた納入予定日が格納される
  9：     '   SENT_ADDR = 伝票に結び付けられた発送先の住所が格納される
 10：     '   SENT_TEL = 伝票に結び付けられた発送先の電話番号が格納される
 11：     '   MEMO = 伝票に結び付けられた摘要が格納される
 12：     '   MADEDATE = 伝票追加情報を作った日時が格納される
 13：     '   MADEUSER = 伝票追加情報を作ったユーザーのアカウント名が格納される
 14：     '   LASTDATE = 最終更新日が格納される
 15：     '   LASTUSER = 最終更新ユーザー名が格納される
 16：     ' 【戻り値】
 17：     '   このレコードのレコードID
 18：     Dim objContext As ObjectContext
 19：     Dim objDataSlip As DataObj.Slip
 20：     Dim objDataSlipInformation As DataObj.SlipInformation
 21：     Dim SlipStatus As DataObj.SlipStatus
 22：     Dim IsDeleted As DataObj.DELETEDFLAG
 23：     
 24：     ' オブジェクトコンテキストの取得
 25：     Set objContext = GetObjectContext()
 26：     
 27：     ' エラーハンドラの設定
 28：     On Error GoTo ErrHandle
 29： 
 30：     ' DataObj.Slipコンポーネントの実体化
 31：     Set objDataSlip = CreateObject("DataObj.Slip")
 32：     
 33：     ' 削除されているかどうかを取得
 34：     IsDeleted = objDataSlip.IsDeleted(SlipID)
 35：     
 36：     ' 伝票の状態を取得
 37：     SlipStatus = objDataSlip.Get_SlipStatus(SlipID)
 38：     
 39：     ' 参照権限があるかどうか
 40：     Chk_View objContext, IsDeleted, SlipStatus
 41：     
 42：     ' DataObj.SlipInformationコンポーネントの実体化
 43：     Set objDataSlipInformation = CreateObject("DataObj.SlipInformation")
 44：     
 45：     ' 情報を取得してそのまま返す
 46：     objDataSlipInformation.GetRecord SlipID, DIVISION, PERSON, _
   　                                 DELIVERDATE, SENT_ADDR, SENT_TEL, _
   　                                 MEMO, MADEDATE, MADEUSER, _
   　                                 LASTDATE, LASTUSER
 47：     
 48：     ' DataObj.SlipInformationコンポーネントの解放
 49：     Set objDataSlipInformation = Nothing
 50：     ' DataObj.Slipコンポーネントの解放
 51：     Set objDataSlip = Nothing
 52：     
 53：     ' トランザクションをコミット
 54：     objContext.SetComplete
 55：     
 56：     ' オブジェクトコンテキストの解放
 57：     Set objContext = Nothing
 58：     
 59：     Exit Sub
 60： 
 61： ErrHandle:
 62：     ' エラーハンドラ
 63：     objContext.SetAbort
 64：     Set objContext = Nothing
 65：     Set objDataSlip = Nothing
 66：     Set objDataSlipInformation = Nothing
 67：     
 68：     ' エラーの再発行
 69：     Err.Raise Err.NUMBER, Err.Source, Err.Description, _
   　               Err.HelpFile, Err.HelpContext
 70： End Sub