[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)
defheadarea(hed)
defbodyarea(mei)

subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,key0,Key1)

#case($select_flg_ext,$ext7,,0,1)
#case($select_flg_nomal,$ext7,,1,0)
iterate(graph_off,$select_flg_ext)
iterate(graph_on,$select_flg_nomal)

[graph_off]
printreport($printMode,true,true)
[graph_on]
printreport($printMode,true,,BASB0010:BASR0510)

#-------------------------------------------------
#  SQL実行_自社
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
dbselect(SelectRecords_Jisya,@rs0,$param)

#-------------------------------------------------
#  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)
#&31
addparam($param,$ext6)
#&32
addparam($param,$ext7)
#&33,&34
addparam($param,$eig_cd_fr)
addparam($param,$eig_cd_to)

#ext7にカラム名が入っていれば別のSelectRecordsを呼ぶ
case($select_flg_ext,$ext7,,0,1)
case($select_flg_nomal,$ext7,,1,0)

iterate(dbselect_ext,$select_flg_ext)
iterate(dbselect_nomal,$select_flg_nomal)

[dbselect_ext]
dbselect(SelectRecords_2,@rs1,$param)
[dbselect_nomal]
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)
#24,25
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)
#32,33
addparam($param,$eig_cd_fr)
addparam($param,$eig_cd_to)
dbselect(selectGraph,@rs2,$param)

#-------------------------------------------------
#  グラフ処理
#-------------------------------------------------
[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)

#-------------------------------------------------
#  key0設定ルーチン
#-------------------------------------------------
[KeyInfo_key0]
subroutine(SelectKey)
#keyvalue(dummy)

keybreakproc(GroupBegin_key0,GroupEnd_key0)

[SelectKey]
case($key_flg_tan,$ext7,tan_cd,1,0)
case($key_flg_nomal,$ext7,,1,0)
iterate(keyvalue_tan_cd,$key_flg_tan)
iterate(keyvalue_nomal,$key_flg_nomal)

[keyvalue_tan_cd]
keyvalue(@rs1.tan_cd)

[keyvalue_nomal]
keyvalue(dummy)

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

#集計用の変数
setdouble($urigaku_sum,0)
setdouble($genka_sum,0)
setdouble($arari_sum,0)
setdouble($arari_ritu,0)

#ヘッダ処理)

concatenate($bum_nm_l,部門：,$bum_nm)
concatenate($tan_nm_l,担当者名：,$tan_nm_fr,〜,$tan_nm_to)
concatenate($tok_cat_l,/,得意先分類：,$tok_cat_nm)
concatenate($tok_nm_l,/,得意先：,$tok_cd_fr,　,@rs1.tok_nm_fr,〜,$tok_cd_to,　,@rs1.tok_nm_to)

case($tok_cat_F,@rs1.tok_cat_flg,,,$tok_cat_l)

concatenate($ROE,(抽出条件　,$bum_nm_l,/,$tan_nm_l,$tok_cat_F,$tok_nm_l,))
#concatenate($tan_nm_s,担当者：,@rs1.tan_nm)
putcell(11,1,$han_name)
putcell(13,1,$ROE)
#putcell(14,1,$tan_nm_s)
putcell(11,5,指定期間)
putcell(11,6,@rs1.dt_fr)
putcell(11,7,@rs1.dt_to)

#-------------------------------------------------
#  key0終了時
#-------------------------------------------------
[GroupEnd_key0]
subroutine(put_sum)
#subroutine(LoadGraphData)
#case($select_flg_nomal,$ext7,,1,0)
iterate(LoadGraphData,$select_flg_nomal)
pageclose(false)

[put_sum]
case($putsum_flg,$ext7,,0,1)
iterate(putline_sum,$putsum_flg)

[putline_sum]
#集計表示
#粗利率計算
diff($arari_ritu,$genka_sum)
multi($arari_ritu,$arari_ritu,100,2,2)
realdiv($arari_ritu,$arari_ritu,$urigaku_sum,2,2)
putline(,,【合計】#,$urigaku_sum#,$genka_sum#,$arari_sum#,$arari_ritu#)


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

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
case($cd,@rs1.cd,,0,null,0,1)
iterate(CD,$cd)
[CD]
putcell($_row,1,@rs1.han)
putline()

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

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

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
case($tok,@rs1.tok_cd,,0,1)
iterate(TOK,$tok)
[TOK]
putcell($_row,2,@rs1.tok_nm)
putline()

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]

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

sum($urigaku_sum,@rs1.kingaku)
sum($genka_sum,@rs1.genka)
sum($arari_sum,@rs1.arari)
sum($arari_ritu,@rs1.kingaku)


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