[Main] dbuse(true) initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,s_id) deforgpage(blank) defheadarea(hed) defbodyarea(mei) subroutine(SelectRecords) loop(PrintNormal,@rs1,Key1,Key2) printreport($printMode,true,false) #------------------------------------------------- # Key1設定ルーチン #------------------------------------------------- [KeyInfo_key1] keyvalue(@rs1.den_no) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1開始時 #------------------------------------------------- [GroupBegin_key1] deforgpage(blank) #Importするかどうか,FormatNormalするかどうか pageopen(true,false) deforgpage(formats) resetorg() #変数を初期化する setdouble($page_num,0) #ヘッダ処理-------------------- #帳票タイトル putcell(1,1,作　業　指　図　書) #2.3行目の処理（ymd等） putcell(2,1,受注番号) putcell(2,4,納期) putcell(2,12,数量) putcell(2,18,@rs1.tani) putcell(2,20,受注日) putcell(3,1,@rs1.mitsumori_no) putcell(3,20,@rs1.syori_ymd) putcell(2,45,仮バーコード等) #4.5行目処理（得意先情報等、エクセルへの埋め込み文字有） putcell(4,1,得意先コード) putcell(5,1,@rs1.tok_cd) putcell(4,4,お得意先様) putcell(4,7,@rs1.tok_nm) putcell(4,14,御中) #6.7行目処理（商品情報等） putcell(6,1,商品コード) putcell(7,1,@rs1.hin_cd) putcell(6,4,商品名称) putcell(7,4,@rs1.hin_nm) #右部営業担当区分 putcell(5,49,営業担当) putcell(6,49,@rs1.tan_nm) #------------------------------------------------- # Key1終了時 #------------------------------------------------- [GroupEnd_key1] pageclose(false) #------------------------------------------------- # Key2設定ルーチン #------------------------------------------------- [KeyInfo_key2] keyvalue(@rs1.row_page) keybreakproc(GroupBegin_key2,GroupEnd_key2) #------------------------------------------------- # Key2開始時 #------------------------------------------------- [GroupBegin_key2] #頁format setdouble($page_num,@rs1.row_page) setdouble($max_page_num,@rs1.max_page_no) concatenate($page_num,内 ,$page_num,/,$max_page_num, ページ) #ヘッダ処理(明細) #formatspecialrow($_row,0,7,1) #putcell($_row,2,@rs1.ban_nm_s) #putline() #formatspecialrow($_row,0,8,1) #putcell($_row,7,数量 :) #putcell($_row,8,@rs1.jucyu_su_s) #putline() #formatspecialrow($_row,0,9,1) #putcell($_row,2,No.) #putcell($_row,4,品名 ) #putcell($_row,5,仕様) #putcell($_row,6,数量) #putcell($_row,7,単位) #putcell($_row,8,単価) #putcell($_row,9,金額) #putline() #------------------------------------------------- # Key2終了時 #------------------------------------------------- [GroupEnd_key2] #フッタ処理 #putline() #putline() #putline() #putline() #formatspecialrow($_row,0,17,1) #フッタ_頁 #putcell($_row,9,$page_num) #putline() #改ページ処理 HPAGEBREAK($_row) #------------------------------------------------- # SQL実行 #------------------------------------------------- [SelectRecords] new($param) addparam($param,$dt_from) addparam($param,$dt_to) addparam($param,$uri_no) addparam($param,$tokui_cd) addparam($param,$syohin_nm) addparam($param,$han_name) addparam($param,$s_id) dbselect(SelectRecords,@rs1,$param) #------------------------------------------------- # 明細表示処理 #------------------------------------------------- [PrintNormal] #formatspecialrow($_row,0,10,1) #putcell($_row,2,@rs1.s_row_no) #putcell($_row,3,@rs1.hin_nm) #putcell($_row,5,@rs1.hosoku1) putline() #formatspecialrow($_row,0,11,1) #putcell($_row,4,@rs1.hosoku2) #putcell($_row,5,@rs1.meisai_biko) #putcell($_row,7,@rs1.hin_tani) #putline(,,,,,@rs1.hin_su#,,@rs1.tanka#,@rs1.kingaku#)