[Main]
dbuse(true)
initparam(printMode,reportId,han_name,bum_cd,bum_nm,tok_cat_cd,tok_cat_nm,sir_cat_cd,sir_cat_nm,dcat_cd_fr,dcat_cd_to,dcat_nm_fr,dcat_nm_to,cat_cd_fr,cat_cd_to,cat_nm_fr,cat_nm_to,syori_ymd_fr,syori_ymd_to,taisyo_y,taisyo_m,tok_cd_fr,tok_cd_to,sir_cd_fr,sir_cd_to,tan_cd_fr,tan_cd_to,tan_nm_fr,tan_nm_to,hin_cd_fr,hin_cd_to,put_on,shime_dd,s_id,eig_cd_fr,eig_cd_to,output_ymd,ext6,ext7,brand_cd_fr,brand_cd_to,color_cd_fr,color_cd_to,eig_cd)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key0)
printreport($printMode,true)

#-------------------------------------------------
#  Key0設定ルーチン
#-------------------------------------------------
[KeyInfo_key0]
keyvalue(DUMMY)
keybreakproc(GroupBegin_key0,GroupEnd_key0)

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

#ヘッダ処理
putcell(2,2,@rs1.syori_ym_s)

#行カウンタ
#setdouble($current_row,0)

setdouble($kei_zen_seikyu_zan,0)
setdouble($kei_syukin_gaku,0)
setdouble($kei_zeinuki_gaku,0)
setdouble($kei_zei_gaku,0)
setdouble($kei_zeikomi_gaku,0)
setdouble($kei_seikyu_zan,0)

#-------------------------------------------------
#  Key0終了時
#-------------------------------------------------
[GroupEnd_key0]
putline(,[合計]#,$kei_zen_seikyu_zan#,$kei_syukin_gaku#,$kei_zeinuki_gaku#,$kei_zei_gaku#,$kei_zeikomi_gaku#,$kei_seikyu_zan#)

#FormatNormalするかどうか
pageclose(false)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$han_name)
addparam($param,$bum_cd)
addparam($param,$bum_nm)
addparam($param,$tok_cat_cd)
addparam($param,$tok_cat_nm)
addparam($param,$sir_cat_cd)
addparam($param,$sir_cat_nm)
addparam($param,$dcat_cd_fr)
addparam($param,$dcat_cd_to)
addparam($param,$dcat_nm_fr)
addparam($param,$dcat_nm_to)
addparam($param,$cat_cd_fr)
addparam($param,$cat_cd_to)
addparam($param,$cat_nm_fr)
addparam($param,$cat_nm_to)
addparam($param,$syori_ymd_fr)
addparam($param,$syori_ymd_to)
addparam($param,$taisyo_y)
addparam($param,$taisyo_m)
addparam($param,$tok_cd_fr)
addparam($param,$tok_cd_to)
addparam($param,$sir_cd_fr)
addparam($param,$sir_cd_to)
addparam($param,$tan_cd_fr)
addparam($param,$tan_cd_to)
addparam($param,$tan_nm_fr)
addparam($param,$tan_nm_to)
addparam($param,$hin_cd_fr)
addparam($param,$hin_cd_to)
addparam($param,$put_on)
addparam($param,$shime_dd)
addparam($param,$s_id)
addparam($param,$eig_cd_fr)
addparam($param,$eig_cd_to)
addparam($param,$output_ymd)
addparam($param,$ext6)
addparam($param,$ext7)
addparam($param,$brand_cd_fr)
addparam($param,$brand_cd_to)
addparam($param,$color_cd_fr)
addparam($param,$color_cd_to)
addparam($param,$eig_cd)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
putcell($_row,1,@rs1.sir_cd)
putcell($_row,2,@rs1.sir_nm)
putline(,,@rs1.zen_seikyu_zan#,@rs1.syukin_gaku#,@rs1.zeinuki_gaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,@rs1.seikyu_zan#)

sum($kei_zen_seikyu_zan,@rs1.zen_seikyu_zan)
sum($kei_syukin_gaku,@rs1.syukin_gaku)
sum($kei_zeinuki_gaku,@rs1.zeinuki_gaku)
sum($kei_zei_gaku,@rs1.zei_gaku)
sum($kei_zeikomi_gaku,@rs1.zeikomi_gaku)
sum($kei_seikyu_zan,@rs1.seikyu_zan)