[Main]
dbuse(true)
#initparam(printMode,reportId,s_id,syori_ymd_fr,syori_ymd_to,tok_cd_fr,tok_cd_to,tan_cd_fr,tan_cd_to)
#initparam(printMode,reportId,taisyo_ym,shime_dd,han_name,syori_ymd_fr,syori_ymd_to,put_on,tok_cd_fr,tok_cd_to,tan_cd_fr,tan_cd_to)
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)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key1)
printreport($printMode,true,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)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  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,6,1)
#日計_【「帳票名」日計】_結合処理
concatenate($meisai_kei,【,合計,】)
#集計
putcell($_row,2,$meisai_kei)
putline(,,$all_den_cnt#,$all_kakeuri_sum#,$all_genkin_sum#,$all_tsudo_sum#,$all_kingaku#,$all_zei_gaku#,$all_zeikomi_gaku#,$all_genka_gaku#,$all_arari#)

pageclose(false)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
#明細表示処理
formatspecialrow($_row,0,5,1)
putcell($_row,2,@rs1.syori_ymd)
putline(,,@rs1.den_cnt#,@rs1.kakeuri_sum#,@rs1.genkin_sum#,@rs1.tsudo_sum#,@rs1.kingaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,@rs1.genka_gaku#,@rs1.arari#)

#集計:伝票数
sum($all_den_cnt,@rs1.den_cnt)
#集計:掛売上
sum($all_kakeuri_sum,@rs1.kakeuri_sum)
#集計:現金売上
sum($all_genkin_sum,@rs1.genkin_sum)
#集計:都度請求売上
sum($all_tsudo_sum,@rs1.tsudo_sum)
#集計:売上合計
sum($all_kingaku,@rs1.kingaku)
#集計:税額
sum($all_zei_gaku,@rs1.zei_gaku)
#集計:税込額
sum($all_zeikomi_gaku,@rs1.zeikomi_gaku)
#集計:原価額
sum($all_genka_gaku,@rs1.genka_gaku)
#集計:粗利合計
sum($all_arari,@rs1.arari)