[Main]
dbuse(true)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,s_id,dispRange,row_num)
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)
setdouble($max_page_num,0)

#ヘッダ処理
putcell(2,12,@rs1.mitsumori_no_s)
concatenate($tok_nm,取引先名： ,@rs1.tok_nm)
putcell(5,3,$tok_nm)
concatenate($title1,工事名称： ,@rs1.title1)
putcell(6,3,$title1)
putcell(6,5,@rs1.title2)

#-------------------------------------------------
#  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.page_no)
setdouble($max_page_num,@rs1.max_page_no)
concatenate($page_num,$page_num,/,$max_page_num, ページ)

#ヘッダ処理(明細)
formatspecialrow($_row,0,7,3)
concatenate($ban_nm,盤 名 称： ,@rs1.ban_nm)
putcell($_row,3,$ban_nm)
putcell($_row,9,納品場所：)
putcell($_row,10,@rs1.nonyu_nm)
putline()
putcell($_row,10,数量 ：)
putcell($_row,11,@rs1.jucyu_su_s)
putline()
putcell($_row,2,No.)
putcell($_row,3,品名)
putcell($_row,4,型式)
putcell($_row,5,仕様)
putcell($_row,6,ﾒｰｶｰ名)
putcell($_row,7,数量)
putcell($_row,8,見積単価)
putcell($_row,9,見積金額)
putcell($_row,10,仕入単価)
putcell($_row,11,仕入金額)
putcell($_row,12,商品コード)
putline()

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
#フッタ処理
putline()
putline()
putline()
formatspecialrow($_row,0,25,1)
#フッタ_出力日
putcell($_row,2,$dispRange)
#フッタ_現在ページ/最大ページ
putcell($_row,12,$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)
addparam($param,$dispRange)
addparam($param,$row_num)
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,4,@rs1.hosoku2)
putcell($_row,5,@rs1.meisai_biko)
putcell($_row,6,@rs1.hosoku1)
putcell($_row,12,@rs1.hin_cd)
#putline(,,,,,,@rs1.jucyu_gokei_su#,@rs1.tanka#,@rs1.mitsu_kingaku#,@rs1.genka_gaku#,@rs1.sir_kingaku#)
putline(,,,,,,@rs1.hin_su#,@rs1.tanka#,@rs1.mitsu_kingaku#,@rs1.genka_gaku#,@rs1.sir_kingaku#)