印刷項目の内容
このページを印刷                                            [戻る]

   Haiso10からExcel印刷.xlsm へ記入する配送伝票データのセルの位置は次のとおりです。
     
データ 名

Haiso10文字数

Excel配送伝票での取り扱い Excel のセルの位置
[お届け先]
お届け先ID  CHAR(5)  WorkSheet.Cells[24, 2].Value
氏名  VARCHAR(12)    WorkSheet.Cells[24, 3].Value
連名  VARCHAR(8)     WorkSheet.Cells[24, 4].Value
郵便番号  VARCHAR(8)  前3文字にグループ化   WorkSheet.Cells[24, 5].Value
後4文字にグループ化 WorkSheet.Cells[24, 6].Value 
電話番号  VARCHAR(13)  VBAで1字ずつに分解   WorkSheet.Cells[24, 7].Value
住所1 VARCHAR(15)  都県+ 住所1    WorkSheet.Cells[24, 8].Value
住所2 VARCHAR(15) 住所2 WorkSheet.Cells[24, 9].Value
ビル      VARCHAR(20) WorkSheet.Cells[24, 11].Value
 ビル    会社名と役職名が空白の場合  WorkSheet.Cells[24, 12].Value
会社名      VARCHAR(15) WorkSheet.Cells[24, 12].Value
役職名 VARCHAR(13) WorkSheet.Cells[24, 13].Value
     
[依頼主]
依頼主ID CHAR(5) WorkSheet.Cells[21, 2].Value
氏名  VARCHAR(12)  WorkSheet.Cells[21, 3].Value
連名  VARCHAR(8)     WorkSheet.Cells[21, 4].Value
郵便番号   VARCHAR(8) 前3文字にグループ化  WorkSheet.Cells[21, 5].Value
後4文字にグループ化 WorkSheet.Cells[21, 6].Value
電話番号 VARCHAR(13)  WorkSheet.Cells[21, 7].Value
住所1 VARCHAR(15)  都県+ 住所1  WorkSheet.Cells[21, 8].Value
住所2 VARCHAR(15)  住所2 WorkSheet.Cells[21, 9].Value
ビル VARCHAR(20) WorkSheet.Cells[21, 11].Value
会社名 VARCHAR(15) WorkSheet.Cells[21, 12].Value
役職名 VARCHAR(13) WorkSheet.Cells[21, 13].Value
お客様コード  VARCHAR(12)     
[品名関連]受注Table
品名1~6 VARCHAR(10) 品目数により行を移動 WorkSheet.Cells[5, 15].Value
数量1~6 CHAR(5)     〃 WorkSheet.Cells[5 ,17].Value
単価1~6 INTEGER     〃 WorkSheet.Cells[5 ,18].Value
合価1~6 INTEGER     〃 WorkSheet.Cells[5, 19].Value
 規格  VARCHAR(40)      〃  WorkSheet.Cells[5 16].Value
小計  INTEGER WorkSheet.Cells[11 19].Value
消費税 SMALLINT WorkSheet.Cells[12,19].Value
箱代 INTEGER WorkSheet.Cells[13 19].Value
合計 INTEGER
 
時間指定1~7 VARCHAR(10) 時間指定で位置を変更  WorkSheet.Cells[17-23, 19].Value
サイズ1~6 SMALLINT サイズで位置を変更 WorkSheet.Cells[20-21, 15-17].Value
冷凍 CHAR(1) WorkSheet.Cells[12, 15].Value
冷蔵 CHAR(1) WorkSheet.Cells[13, 15].Value
配送指定月 SMALLINT WorkSheet.Cells[2, 16].Value
配送指定日 SMALLINT WorkSheet.Cells[2, 17].Value
伝票NO INTEGER WorkSheet.Cells[15, 16].Value
備考 VARCHAR(8) WorkSheet.Cells[15, 15].Value
取扱店 名称 VARCHAR(10) WorkSheet.Cells[23, 16].Value
  〃  住所 VARCHAR(8)     WorkSheet.Cells[24, 16].Value
  〃  Tel VARCHAR(13)     WorkSheet.Cells[25, 16].Value