[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)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,key0,Key1)
printreport($printMode,true,,BASB0010:BASR0510)


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

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords2]
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,$arari_flg)
dbselect(selectGraph,@rs2,$param)

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

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

#全体合計
setdouble($kingaku_ruikei,0)
setdouble($genka_ruikei,0)
setdouble($arari_ruikei,0)
setdouble($arariritu_ruikei,0)

concatenate($ROE,抽出条件　部門：,$bum_nm,　担当者名：,$tan_nm,　得意先分類：,$tok_cat_nm)

putcell(11,1,$han_name)
putcell(13,1,$ROE)
putcell(11,5,指定期間)
putcell(11,6,@rs1.dt_fr)
putcell(11,7,@rs1.dt_to)

#-------------------------------------------------
#  key0終了時
#-------------------------------------------------
[GroupEnd_key0]
subroutine(LoadGraphData)
pageclose(false)


[LoadGraphData]
#粗利
setdouble($graph_col_key,3)
setdouble($graph_col_value,4)
setdouble($arari_flg,1)
setdouble($_gru,5)
subroutine(SelectRecords2)
loop(PrintNormal2,@rs2)
#売上
setdouble($graph_col_key,5)
setdouble($graph_col_value,6)
setdouble($arari_flg,0)
setdouble($_gru,5)
subroutine(SelectRecords2)
loop(PrintNormal2,@rs2)

#$arariritu_ruikei((税抜額-原価)*100/税抜額)
sum($arariritu_ruikei,$kingaku_ruikei)
diff($arariritu_ruikei,$genka_ruikei)
multi($arariritu_ruikei,$arariritu_ruikei,100,1,2)
realdiv($arariritu_ruikei,$arariritu_ruikei,$kingaku_ruikei,1,2)
putline(,,全体合計#,$kingaku_ruikei#,$genka_ruikei#,$arari_ruikei#,$arariritu_ruikei#)

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


#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
setdouble($kingaku_kei,0)
setdouble($genka_kei,0)
setdouble($arari_kei,0)
setdouble($arariritu_kei,0)

putcell($_row,1,@rs1.eig_nm)
putline()


#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]

#$arariritu_kei((税抜額-原価)*100/税抜額)
sum($arariritu_kei,$kingaku_kei)
diff($arariritu_kei,$genka_kei)
multi($arariritu_kei,$arariritu_kei,100,1,2)
realdiv($arariritu_kei,$arariritu_kei,$kingaku_kei,1,2)

putline(,,合計金額#,$kingaku_kei#,$genka_kei#,$arari_kei#,$arariritu_kei#)
putline()
sum($kingaku_ruikei,$kingaku_kei)
sum($genka_ruikei,$genka_kei)
sum($arari_ruikei,$arari_kei)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
putcell($_row,2,@rs1.tok_cd)
putcell($_row,3,@rs1.tok_nm)
putline(,,,@rs1.kingaku#,@rs1.genka#,@rs1.arari#,@rs1.ritu#)

sum($kingaku_kei,@rs1.kingaku)
sum($genka_kei,@rs1.genka)
sum($arari_kei,@rs1.arari)



#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal2]
putcell($_gru,$graph_col_key,@rs2.tok_nm)
putcell($_gru,$graph_col_value,@rs2.kingaku)
sum($_gru,1)