[Main]
dbuse(true)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,outputfile)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key1)
printreport($printMode,true,false)

#-------------------------------------------------
#  Key1設定ルーチン
#-------------------------------------------------
[KeyInfo_key1]
keyvalue(@rs1.mitsumori_no)
keybreakproc(GroupBegin_key1,GroupEnd_key1)

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
deforgpage(blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(true,false)
deforgpage(formats)
resetorg()

#ヘッダ処理
putcell(1,6,@rs1.mitsumori_no)
putcell(4,3,@rs1.tok_nm)
putcell(5,3,@rs1.title1)
putcell(6,3,@rs1.title2)

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
#フッタ処理
formatspecialrow($_row,0,20,3)
#フッタ_合計金額
putcell($_row,3,合計金額)
putformula($_row,4,SUM\x28R8C:R[-1]C\x29)
putformula($_row,5,SUM\x28R8C:R[-1]C\x29)
putformula($_row,6,SUM\x28R8C:R[-1]C\x29)
putformula($_row,7,IF\x28RC[-3]\x3d0\x2c0\x2c\x28\x28RC[-3]\x2dRC[-2]\x29\x2fRC[-3]\x29\x2a100\x29)
putline()
#フッタ_出精値引
putcell($_row,3,出精値引)
putcell($_row,4,@rs1.nebiki)
putline()
#フッタ_合計金額（値引後）
putcell($_row,3,合計金額（値引後）)
putformula($_row,4,R[-2]C\x2bR[-1]C)
putformula($_row,5,R[-2]C)
putformula($_row,6,RC[-2]\x2dRC[-1])
putformula($_row,7,IF\x28RC[-3]\x3d0\x2c0\x2c\x28\x28RC[-3]\x2dRC[-2]\x29\x2fRC[-3]\x29\x2a100\x29)
putline()

pageclose(false)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
#addparam($param,$s_id)
addparam($param,$dt_from)
addparam($param,$dt_to)
addparam($param,$uri_no)
addparam($param,$tokui_cd)
addparam($param,$syohin_nm)
addparam($param,$han_name)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
formatspecialrow($_row,0,8,1)
putcell($_row,2,@rs1.s_row_no)
putcell($_row,3,@rs1.cat_cd_nm)
putline(,,,@rs1.mitsumori_gaku#,@rs1.sir_gaku#,@rs1.arari_gaku#,@rs1.arari_ritu#)