List 7-155　NewSlipDetailプロシージャ

---

  1： Public SlipDetailID As Long
  2： Private SlipID As Long
  3： 
  4： Public Sub NewSlipDetail(ID As Long)
  5：     ' 新規明細を登録する
  6：     ' 【引数】
  7：     '   ID = 伝票番号
  8：     
  9：     SlipID = ID
 10：     
 11：     ' 製品名を格納するコンボボックスに現在登録されている製品一覧を登録する
 12：     FillCombo -1
 13：     
 14：     TXT_ID.Text = ""
 15：     TXT_NUMBER.Text = "1"
 16：     TXT_UNITPRICE.Text = "0"
 17：     TXT_PRICE.Text = "0"
 18：     TXT_MEMO.Text = ""
 19：     
 20：     SlipDetailID = -1
 21：     
 22： End Sub