List 6-93 変更した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: ' 伝票関連のエラー
25: Err_CUSTOMERID = vbObjectError + 513 + 200 + 7 ' 顧客番号が正しくない
26: Err_ONEBILLFLAG = vbObjectError + 513 + 200 + 8 ' ONEBILLFLAGが正しくない
27: Err_DIVISION = vbObjectError + 513 + 200 + 9 ' 顧客側担当部署名が正しくない
28: Err_PERSON = vbObjectError + 513 + 200 + 10 ' 顧客側担当者名が正しくない
29: Err_DELIVERDATE = vbObjectError + 513 + 200 + 11 ' 納入予定日が正しくない
30: Err_SENT_ADDR = vbObjectError + 513 + 200 + 12 ' 発送先住所が正しくない
31: Err_SENT_TEL = vbObjectError + 513 + 200 + 13 ' 発送先電話番号が正しくない
32: End Enum