List 7-122　FormEditSlipフォームのNewSlipプロシージャ

---

  1： Public SlipID As Long
  2： 
  3： Public Sub NewSlip()
  4：     ' 新規伝票を登録する
  5：     
  6：     ' 顧客名を格納するコンボボックスに，その時点で登録されている顧客一覧を登録する
  7：     FillCombo -1
  8：     
  9：     TXT_ID.Text = ""
 10：     CHK_ONEBILL.Value = 0
 11：     TXT_DIVISION.Text = ""
 12：     TXT_PERSON.Text = ""
 13：     TXT_DELIVERDATE.Text = Date
 14：     TXT_SENTADDR.Text = ""
 15：     TXT_SENTTEL.Text = ""
 16：     TXT_MEMO.Text = ""
 17：     
 18：     TXT_MADEUSER.Text = ""
 19：     TXT_MADEDATE.Text = ""
 20：     TXT_LASTUSER.Text = ""
 21：     TXT_LASTDATE.Text = ""
 22：     
 23：     BTN_CALC.Enabled = False
 24：     
 25：     SlipID = -1
 26： End Sub