[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,Key2)
loop(PrintNormal,@rs1,key0,Key1,Key2,Key3,Key4)
#loop(PrintNormal,@rs1,key0,Key1)
#printreport($printMode,true)
printreport($printMode,true,,BASB0010:BASR0580)

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

#-------------------------------------------------
#  ヘッダ作成処理
#-------------------------------------------------
[CleateHeader]
concatenate($ROE,抽出条件　部門：,$bum_nm,　担当者名：,$tan_nm,　仕入先分類：,$sir_cat_nm,　商品大分類：,$dcat_nm,　商品分類：,$cat_nm)

putcell(9,1,$han_name)
#putcell(11,1,$ROE)
putcell(11,1,抽出条件:)
#putcell(12,6,指定期間)
#putcell(1,7,@rs1.dt_fr)
#putcell(1,8,@rs1.dt_to)

#ヘッダ処理_明細ヘッダ
setdouble($row_head,14)
#putcell($row_head,1,分類)
#putcell($row_head,2,仕入先)
#putcell($row_head,3,大分類)
#putcell($row_head,4,分類)
#putcell($row_head,5,品番)
#putcell($row_head,6,品名)
concatenate($st_ymd,$taisyo_y,/,$taisyo_m,/,01)
putcell($row_head,9,$st_ymd)

#-------------------------------------------------
#  グラフ表示処理
#-------------------------------------------------
[SettingGraphData]
#年度_初期値
setdouble($hyouji_y,$taisyo_y)

#年度_開始月
putcell(4,6,$st_ymd)

#年度_今年
concatenate($nendo,$hyouji_y,年度)
putcell(5,5,$nendo)
sum($hyouji_y,-1)
putcell(5,6,@rs1.sir01)
putcell(5,7,@rs1.sir02)
putcell(5,8,@rs1.sir03)
putcell(5,9,@rs1.sir04)
putcell(5,10,@rs1.sir05)
putcell(5,11,@rs1.sir06)
putcell(5,12,@rs1.sir07)
putcell(5,13,@rs1.sir08)
putcell(5,14,@rs1.sir09)
putcell(5,15,@rs1.sir10)
putcell(5,16,@rs1.sir11)
putcell(5,17,@rs1.sir12)

#年度_前年度
concatenate($nendo,$hyouji_y,年度)
putcell(6,5,$nendo)
sum($hyouji_y,-1)
putcell(6,6,@rs1.sir01_ly)
putcell(6,7,@rs1.sir02_ly)
putcell(6,8,@rs1.sir03_ly)
putcell(6,9,@rs1.sir04_ly)
putcell(6,10,@rs1.sir05_ly)
putcell(6,11,@rs1.sir06_ly)
putcell(6,12,@rs1.sir07_ly)
putcell(6,13,@rs1.sir08_ly)
putcell(6,14,@rs1.sir09_ly)
putcell(6,15,@rs1.sir10_ly)
putcell(6,16,@rs1.sir11_ly)
putcell(6,17,@rs1.sir12_ly)

#年度_前前年度
concatenate($nendo,$hyouji_y,年度)
putcell(7,5,$nendo)
putcell(7,6,@rs1.sir01_2ya)
putcell(7,7,@rs1.sir02_2ya)
putcell(7,8,@rs1.sir03_2ya)
putcell(7,9,@rs1.sir04_2ya)
putcell(7,10,@rs1.sir05_2ya)
putcell(7,11,@rs1.sir06_2ya)
putcell(7,12,@rs1.sir07_2ya)
putcell(7,13,@rs1.sir08_2ya)
putcell(7,14,@rs1.sir09_2ya)
putcell(7,15,@rs1.sir10_2ya)
putcell(7,16,@rs1.sir11_2ya)
putcell(7,17,@rs1.sir12_2ya)

#-------------------------------------------------
#  横計処理
#-------------------------------------------------
[Cleate_colsum]
#計算式_代入
concatenate($formula_colsum,(RC[-3]+RC[-2]+RC[-1]))
concatenate($formula_colsum_q,(RC[-5]+RC[-1]))
concatenate($formula_colsum_y,(RC[-10]+RC[-1]))

putformula($_row,12,$formula_colsum)#1Q計
putformula($_row,16,$formula_colsum)#2Q計
putformula($_row,17,$formula_colsum_q)#上期計
putformula($_row,21,$formula_colsum)#3Q計
putformula($_row,25,$formula_colsum)#4Q計
putformula($_row,26,$formula_colsum_q)#下期計
putformula($_row,27,$formula_colsum_y)#年度計

#-------------------------------------------------
#  横計対比処理
#-------------------------------------------------
[Cleate_coltaihisum]
#$zen_row1,-1,-3
#$zen_row2,-2,4
#計算式_代入
#concatenate($formula_taihi,IF(ISERROR(((R[,$zen_row1,]C)/(R[,$zen_row2,]C))*100)\x2c0\x2cROUND(((R[,$zen_row1,]C)/(R[,$zen_row2,]C))*100\x2c2)\x26\x22\x25\x22))
concatenate($formula_taihi,IF(R[,$zen_row2,]C\x3d0\x2c0\x2cROUND(((R[,$zen_row1,]C)/(R[,$zen_row2,]C))*100\x2c2)))
#concatenate($formula_taihi,taihi)

putformula($_row,9,$formula_taihi)
putformula($_row,10,$formula_taihi)
putformula($_row,11,$formula_taihi)
putformula($_row,12,$formula_taihi)
putformula($_row,13,$formula_taihi)
putformula($_row,14,$formula_taihi)
putformula($_row,15,$formula_taihi)
putformula($_row,16,$formula_taihi)
putformula($_row,17,$formula_taihi)
putformula($_row,18,$formula_taihi)
putformula($_row,19,$formula_taihi)
putformula($_row,20,$formula_taihi)
putformula($_row,21,$formula_taihi)
putformula($_row,22,$formula_taihi)
putformula($_row,23,$formula_taihi)
putformula($_row,24,$formula_taihi)
putformula($_row,25,$formula_taihi)
putformula($_row,26,$formula_taihi)
putformula($_row,27,$formula_taihi)

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

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

#ヘッダ作成処理
subroutine(CleateHeader)

#-------------------------------------------------
#  key0終了時
#-------------------------------------------------
[GroupEnd_key0]
#グラフ作成処理
subroutine(SettingGraphData)

pageclose(false)

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

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

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

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

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
case($sir,@rs1.sir_cd,,0,1)
iterate(SIR,$sir)
[SIR]
formatspecialrow($_row,0,8,1)
putcell($_row,2,@rs1.sir_nm)
putline(,)

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

#-------------------------------------------------
#  key3設定ルーチン
#-------------------------------------------------
[KeyInfo_key3]
keyvalue(@rs1.cd,@rs1.sir_cd,@rs1.sir_nm,@rs1.cd2)
keybreakproc(GroupBegin_key3,GroupEnd_key3)

#-------------------------------------------------
#  key3開始時
#-------------------------------------------------
[GroupBegin_key3]
case($han2,@rs1.cd2,,0,1)
iterate(HAN2,$han2)
[HAN2]
formatspecialrow($_row,0,9,1)
putcell($_row,3,@rs1.han2)
putline(,)

#-------------------------------------------------
#  key3終了時
#-------------------------------------------------
[GroupEnd_key3]

#-------------------------------------------------
#  key4設定ルーチン
#-------------------------------------------------
[KeyInfo_key4]
keyvalue(@rs1.cd,@rs1.sir_cd,@rs1.sir_nm,@rs1.cd2,@rs1.cd1)
keybreakproc(GroupBegin_key4,GroupEnd_key4)

#-------------------------------------------------
#  key4開始時
#-------------------------------------------------
[GroupBegin_key4]
case($han1,@rs1.cd1,,0,1)
iterate(HAN1,$han1)
[HAN1]
formatspecialrow($_row,0,10,1)
putcell($_row,4,@rs1.han1)
putline(,)

#-------------------------------------------------
#  key4終了時
#-------------------------------------------------
[GroupEnd_key4]

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
#formatspecialrow($_row,0,11,8)
formatspecialrow($_row,0,10,8)

putcell($_row,5,@rs1.hin_cd)
putcell($_row,6,@rs1.hin_nm)

#年度に対象年をセット
setdouble($hyouji_y,$taisyo_y)
concatenate($nendo,$hyouji_y,年度)
putcell($_row,7,$nendo)

#今年度出力
#数量
#横計処理
subroutine(Cleate_colsum)
putcell($_row,8,仕入数)
putline(,,,,,,,,@rs1.su01#,@rs1.su02#,@rs1.su03#,,@rs1.su04#,@rs1.su05#,@rs1.su06#,,,@rs1.su07#,@rs1.su08#,@rs1.su09#,,@rs1.su10#,@rs1.su11#,@rs1.su12#)

#仕入額
#横計処理
subroutine(Cleate_colsum)
putcell($_row,8,仕入額)
putline(,,,,,,,,@rs1.sir01#,@rs1.sir02#,@rs1.sir03#,,@rs1.sir04#,@rs1.sir05#,@rs1.sir06#,,,@rs1.sir07#,@rs1.sir08#,@rs1.sir09#,,@rs1.sir10#,@rs1.sir11#,@rs1.sir12#)

#前年度対比
#計算式_代入
setdouble($zen_row1,-1)
setdouble($zen_row2,3)
#横計対比処理
subroutine(Cleate_coltaihisum)
putcell($_row,8,前年度対比)
putline(,)

#前々年度対比
#計算式_代入
setdouble($zen_row1,-2)
setdouble($zen_row2,4)
#横計対比処理
subroutine(Cleate_coltaihisum)
putcell($_row,8,前々年度対比)
putline(,)

#前年度出力
#数量
#横計処理
subroutine(Cleate_colsum)
#年度の表示調整
sum($hyouji_y,-1)
concatenate($nendo,$hyouji_y,年度)
putcell($_row,7,$nendo)
putcell($_row,8,仕入数)
putline(,,,,,,,,@rs1.su01_ly#,@rs1.su02_ly#,@rs1.su03_ly#,,@rs1.su04_ly#,@rs1.su05_ly#,@rs1.su06_ly#,,,@rs1.su07_ly#,@rs1.su08_ly#,@rs1.su09_ly#,,@rs1.su10_ly#,@rs1.su11_ly#,@rs1.su12_ly#)

#仕入額
#横計処理
subroutine(Cleate_colsum)
putcell($_row,8,仕入額)
putline(,,,,,,,,@rs1.sir01_ly#,@rs1.sir02_ly#,@rs1.sir03_ly#,,@rs1.sir04_ly#,@rs1.sir05_ly#,@rs1.sir06_ly#,,,@rs1.sir07_ly#,@rs1.sir08_ly#,@rs1.sir09_ly#,,@rs1.sir10_ly#,@rs1.sir11_ly#,@rs1.sir12_ly#)

#前々年度出力
#数量
#横計処理
subroutine(Cleate_colsum)
#年度の表示調整
sum($hyouji_y,-1)
concatenate($nendo,$hyouji_y,年度)
putcell($_row,7,$nendo)
putcell($_row,8,仕入数)
putline(,,,,,,,,@rs1.su01_2ya#,@rs1.su02_2ya#,@rs1.su03_2ya#,,@rs1.su04_2ya#,@rs1.su05_2ya#,@rs1.su06_2ya#,,,@rs1.su07_2ya#,@rs1.su08_2ya#,@rs1.su09_2ya#,,@rs1.su10_2ya#,@rs1.su11_2ya#,@rs1.su12_2ya#)

#金額
#横計処理
subroutine(Cleate_colsum)
putcell($_row,8,仕入額)
putline(,,,,,,,,@rs1.sir01_2ya#,@rs1.sir02_2ya#,@rs1.sir03_2ya#,,@rs1.sir04_2ya#,@rs1.sir05_2ya#,@rs1.sir06_2ya#,,,@rs1.sir07_2ya#,@rs1.sir08_2ya#,@rs1.sir09_2ya#,,@rs1.sir10_2ya#,@rs1.sir11_2ya#,@rs1.sir12_2ya#)