【水産】伝票出力漏れ対応

概要

計上済みのデータで伝票出力が漏れていた。（ＥＣ日配）

手順

１．ライブラリリスト設定・ワークファイルを作成

              
CALL HZL311C

２．対象データを確認しQTEMPにコピーする。

              
SELECT * FROM HRDFILE
 WHERE IDTYB1BAN = ? OR IDTYB1BAN = ?
              
            
              
CPYF FROMFILE(HRDFILE) TOFILE(QTEMP/IDHWORK) MBROPT(*ADD) INCREL((*IF IDTYB1BAN *EQ ?) (*OR IDTYB1BAN *EQ ?))
注意

次の手順ではヤマザワ日配出力時はタイプ１型で出力される。（EOS分の場合はターン２型）
EOS分の場合は、販売先マスタをQTEMPにコピーし販売先の伝票種別を変える。２ → ４

              
CPYF FROMFILE(MHBFILE) TOFILE(QTEMP/MHBFILE) CRTFILE(*YES)
              
            
              
UPDDTA FILE(QTEMP/MHBFILE)

３．伝票出力プログラムを実行する。

              
CALL PGM(HZL311M4) PARM('0000')

４．伝票出力プログラムを実行する。

              
MAROUT1/INP0501