List 7-202　FormBillDetailフォームのInitDataプロシージャ

---

  1： Private BillID As Long
  2： Private g_SUBTOTAL As Variant
  3： Private g_TAX As Variant
  4： Private g_TOTAL As Variant
  5： 
  6： Public Sub InitData(ID As Long)
  7：     ' 指定された伝票番号をもつ伝票の詳細を表示するよう初期化する
  8：     Dim CustomerID As Variant, startDate As Variant
  9：     Dim endDate As Variant, SUBTOTAL As Variant
 10：     Dim TAX As Variant, TOTAL As Variant
 11：     Dim SENDBILLFLAG As Variant
 12：     Dim PAIDFLAG As Variant, SUBMITUSER As Variant
 13：     Dim SUBMITDATE As Variant, MEMO As Variant
 14：     Dim MADEUSER As Variant, MADEDATE As Variant
 15：     Dim LASTUSER As Variant, LASTDATE As Variant
 16：     Dim CUSTOMERNAME As Variant
 17：     Dim YOMIGANA As Variant, ZIP As Variant
 18：     Dim ADDRESS As Variant, TELEPHONE As Variant, FAX As Variant
 19：     Dim BILLDAY As Variant
 20：     
 21：     Dim objBill As Business.Bill
 22：     Dim objCustomer As Business.Customer
 23：     
 24：     BillID = ID
 25：     
 26：     ' 各テキストボックスの内容を記述する
 27：     On Error GoTo ErrHandle
 28：     
 29：     Set objBill = CreateObject("Business.Bill")
 30：     Set objCustomer = CreateObject("Business.Customer")
 31：     
 32：     objBill.GetBill BillID, CustomerID, startDate, endDate, _
   　                     SUBTOTAL, TAX, TOTAL, SENDBILLFLAG, PAIDFLAG, _
   　                     SUBMITUSER, SUBMITDATE, MEMO, MADEUSER, MADEDATE, _
   　                     LASTUSER, LASTDATE
 33：     
 34：     LABEL_ID.Caption = BillID
 35：     
 36：     LABEL_DATE.Caption = startDate & "〜" & endDate
 37：     LABEL_MADEDATE.Caption = MADEDATE
 38：     LABEL_MADEUSER.Caption = MADEUSER
 39：     LABEL_TOTAL.Caption = Format(TOTAL, """\""#,##0") & "―"
 40：     
 41：     If Not IsNull(MEMO) Then
 42：         TXT_MEMO.Text = MEMO
 43：     Else
 44：         TXT_MEMO.Text = ""
 45：     End If
 46：     
 47：     g_SUBTOTAL = SUBTOTAL
 48：     g_TAX = TAX
 49：     g_TOTAL = TOTAL
 50：     
 51：     objCustomer.GetCustomer CustomerID, CUSTOMERNAME, YOMIGANA, ZIP, ADDRESS, _
   　                             TELEPHONE, FAX, BILLDAY, MEMO, _
   　                             MADEUSER, MADEDATE, LASTUSER, LASTDATE
 52：     
 53：     LABEL_CUSTOMERNAME.Caption = CUSTOMERNAME
 54：     
 55：     FRAME_NAVI.Enabled = True
 56：     FRAME_BILL.Enabled = True
 57：     
 58：     ' データグリッドの内容を更新する
 59：     RefreshData
 60：     
 61：     Set objCustomer = Nothing
 62：     Set objBill = Nothing
 63：     
 64：     Exit Sub
 65： 
 66： ErrHandle:
 67：     ' エラーハンドラ
 68：     MsgBox Err.Description, vbOKOnly, "請求書明細の初期化エラー"
 69：     Set objBill = Nothing
 70：     Set objCustomer = Nothing
 71： End Sub