[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(2,9,@rs1.mitsumori_no_s)

#-------------------------------------------------
#  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#)