List 6-134　変更したErrorcode列挙型（赤色部分が追加した箇所）

  1： Public Enum Errorcode
  2：     ' エラーの列挙型
  3：     ' 一般のエラー
  4：     Err_NOTFOUND = vbObjectError + 513 + 1  ' 見つからない
  5：     
  6：     ' 顧客関連のエラー
  7：     Err_NAMETOOLONG = vbObjectError + 513 + 100 + 1 ' 顧客名が長すぎる
  8：     Err_YOMIGANATOOLONG = vbObjectError + 513 + 100 + 2 ' よみがなが長すぎる
  9：     Err_ZIPTOOLONG = vbObjectError + 513 + 100 + 3  ' 郵便番号が長すぎる
 10：     Err_ADDRESSTOOLONG = vbObjectError + 513 + 100 + 4 ' 住所が長すぎる
 11：     Err_TELEPHONETOOLONG = vbObjectError + 513 + 100 + 5   ' 電話番号が長すぎる
 12：     Err_FAXTOOLONG = vbObjectError + 513 + 100 + 6 ' FAX番号が長すぎる
 13：     Err_MEMOTOOLONG = vbObjectError + 513 + 100 + 7 ' 摘要が長すぎる
 14：     Err_BILLDAY = vbObjectError + 513 + 100 + 8 ' 締め日の設定エラー
 15： 
 16：     ' 製品関連のエラー
 17：     Err_PRICE = vbObjectError + 513 + 200 + 1   ' 価格が正しくない
 18：     Err_WILLDAY = vbObjectError + 513 + 200 + 2 ' 入庫予定日，出庫予定日が正しくない
 19：     Err_DUEDATE = vbObjectError + 513 + 200 + 3 ' 入庫施行日，出庫施行日が正しくない
 20：     Err_PRODUCTID = vbObjectError + 513 + 200 + 4   ' 製品番号が正しくない
 21：     Err_NUMBER = vbObjectError + 513 + 200 + 5  ' 数量が正しくない
 22：     Err_SLIPID = vbObjectError + 513 + 200 + 6  ' 伝票番号が正しくない
 23：     
 24：     Err_CUSTOMERID = vbObjectError + 513 + 200 + 7  ' 顧客番号が正しくない
 25：     Err_ONEBILLFLAG = vbObjectError + 513 + 200 + 8 ' ONEBILLFLAGが正しくない
 26：     Err_DIVISION = vbObjectError + 513 + 200 + 9    ' 顧客側担当部署名が正しくない
 27：     Err_PERSON = vbObjectError + 513 + 200 + 10     ' 顧客側担当者名が正しくない
 28：     Err_DELIVERDATE = vbObjectError + 513 + 200 + 11    ' 納入予定日が正しくない
 29：     Err_SENT_ADDR = vbObjectError + 513 + 200 + 12  ' 発送先住所が正しくない
 30：     Err_SENT_TEL = vbObjectError + 513 + 200 + 13   ' 発送先電話番号が正しくない
 31：     Err_MADEDATE = vbObjectError + 513 + 200 + 14   ' 起票日が正しくない
 32： End Enum