[Main]
dbuse(true)
#initparam(printMode,reportId,s_id,shime_dd,syori_ymd_fr,syori_ymd_to,prc_sts,sir_cd_fr,sir_cd_to,nonyu_no_fr,nonyu_no_to,tan_cd_fr,tan_cd_to,hin_cd_fr,hin_cd_to,cat_cd_fr,cat_cd_to,den_no_fr,den_no_to,hin_nm,genka_flg)
initparam(printMode,reportId,han_name,syori_ymd_fr,syori_ymd_to,sir_cd_fr,sir_cd_to,tan_cd_fr,tan_cd_to,hin_cd_fr,hin_cd_to,cat_cd_fr,cat_cd_to,den_no_fr,den_no_to,hin_nm)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)

#総合計_発注数_初期値
setdouble($all_hacyu_su,0)
#総合計_金額_初期値
setdouble($all_kingaku,0)
#改ページ_小計カウント_初期値
setdouble($r_cnt,0)

loop(PrintNormal,@rs1,Key1,Key2)
printreport($printMode,true,false)

#-------------------------------------------------
#  Key1設定ルーチン
#-------------------------------------------------
[KeyInfo_key1]
keyvalue(dummy)
keybreakproc(GroupBegin_key1,GroupEnd_key1)

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

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
#集計:総合計
formatspecialrow($_row,0,7,1)
putline(,,,,,[総合計]#,,$all_hacyu_su#,,,$all_kingaku#)

pageclose(false)

#-------------------------------------------------
#  Key2設定ルーチン
#-------------------------------------------------
[KeyInfo_key2]
keyvalue(@rs1.sir_cd)
keybreakproc(GroupBegin_key2,GroupEnd_key2)

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
#改ページ処理_小計カウント
case($p_break,$r_cnt,0,0,1)
#改ページ処理
iterate(P_break,$p_break)

#ヘッダ処理_ヘッダー
formatspecialrow($_row,0,4,1)
putcell($_row,2,仕入先：)
putcell($_row,3,@rs1.sir_cd)
putcell($_row,5,@rs1.sir_nm)
putline(,)
#putcell($_row,2,伝票番号)
#putcell($_row,3,発注日)
#putcell($_row,4,納入希望日)
#putcell($_row,5,商品)
#putcell($_row,7,区分)
#putcell($_row,8,数量 )
#putcell($_row,9,単位)
#putcell($_row,10,単価 )
#putcell($_row,11,金額 )
#putcell($_row,12,担当)
#putline(,)
#formatspecialrow($_row,0,3,2)
#小計_発注数_初期値
setdouble($sum_hacyu_su,0)
#小計_金額_初期値
setdouble($sum_kingaku,0)

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
#集計:仕入先小計
formatspecialrow($_row,0,5,1)
putline(,,,,,[仕入先計]#,,$sum_hacyu_su#,,,$sum_kingaku#)

#改ページ処理_小計カウント
sum($r_cnt,1)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$han_name)
addparam($param,$syori_ymd_fr)
addparam($param,$syori_ymd_to)
addparam($param,$sir_cd_fr)
addparam($param,$sir_cd_to)
addparam($param,$tan_cd_fr) 
addparam($param,$tan_cd_to)
addparam($param,$hin_cd_fr)
addparam($param,$hin_cd_to)
addparam($param,$cat_cd_fr)
addparam($param,$cat_cd_to)
addparam($param,$den_no_fr)
addparam($param,$den_no_to)
addparam($param,$hin_nm)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
formatspecialrow($_row,0,6,1)
putcell($_row,2,@rs1.den_no)
putcell($_row,3,@rs1.syori_ymd)
putcell($_row,4,@rs1.nyuka_yotei_ymd)
putcell($_row,5,@rs1.hin_cd)
putcell($_row,6,@rs1.hin_nm)
putcell($_row,9,@rs1.tani)
putcell($_row,12,@rs1.tan_nm)
putline(,,,,,,,@rs1.hacyu_su#,,@rs1.tanka#,@rs1.kingaku#,)

#集計:発注数_小計
sum($sum_hacyu_su,@rs1.hacyu_su)
#集計:金額_小計
sum($sum_kingaku,@rs1.kingaku)
#集計:発注数_総合計
sum($all_hacyu_su,@rs1.hacyu_su)
#集計:金額_総合計
sum($all_kingaku,@rs1.kingaku)

#改ページ処理
[P_break]
#pageclose(false)
#pageopen(true,false)
#改ページ挿入
HPAGEBREAK($_row)