[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���s
#-------------------------------------------------
[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)

#-------------------------------------------------
#  �w�b�_�쐬����
#-------------------------------------------------
[CleateHeader]
concatenate($ROE,���o�����@����F,$bum_nm,�@�S���Җ��F,$tan_nm,�@�d���敪�ށF,$sir_cat_nm,�@���i�啪�ށF,$dcat_nm,�@���i���ށF,$cat_nm)

putcell(9,1,$han_name)
#putcell(11,1,$ROE)
putcell(11,1,���o����:)
#putcell(12,6,�w�����)
#putcell(1,7,@rs1.dt_fr)
#putcell(1,8,@rs1.dt_to)

#�w�b�_����_���׃w�b�_
setdouble($row_head,14)
#putcell($row_head,1,����)
#putcell($row_head,2,�d����)
#putcell($row_head,3,�啪��)
#putcell($row_head,4,����)
#putcell($row_head,5,�i��)
#putcell($row_head,6,�i��)
concatenate($st_ymd,$taisyo_y,/,$taisyo_m,/,01)
putcell($row_head,9,$st_ymd)

#-------------------------------------------------
#  �O���t�\������
#-------------------------------------------------
[SettingGraphData]
#�N�x_�����l
setdouble($hyouji_y,$taisyo_y)

#�N�x_�J�n��
putcell(4,6,$st_ymd)

#�N�x_���N
concatenate($nendo,$hyouji_y,�N�x)
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)

#�N�x_�O�N�x
concatenate($nendo,$hyouji_y,�N�x)
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)

#�N�x_�O�O�N�x
concatenate($nendo,$hyouji_y,�N�x)
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)

#-------------------------------------------------
#  ���v����
#-------------------------------------------------
[Cleate_colsum]
#�v�Z��_���
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�v
putformula($_row,16,$formula_colsum)#2Q�v
putformula($_row,17,$formula_colsum_q)#����v
putformula($_row,21,$formula_colsum)#3Q�v
putformula($_row,25,$formula_colsum)#4Q�v
putformula($_row,26,$formula_colsum_q)#�����v
putformula($_row,27,$formula_colsum_y)#�N�x�v

#-------------------------------------------------
#  ���v�Δ䏈��
#-------------------------------------------------
[Cleate_coltaihisum]
#$zen_row1,-1,-3
#$zen_row2,-2,4
#�v�Z��_���
#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�J�n��
#-------------------------------------------------
[GroupBegin_key0]
deforgpage(blank)
#Import���邩�ǂ���,FormatNormal���邩�ǂ���
pageopen(true,false)
deforgpage(formats)
resetorg()

#�w�b�_�쐬����
subroutine(CleateHeader)

#-------------------------------------------------
#  key0�I����
#-------------------------------------------------
[GroupEnd_key0]
#�O���t�쐬����
subroutine(SettingGraphData)

pageclose(false)

#-------------------------------------------------
#  Key1�ݒ胋�[�`��
#-------------------------------------------------
[KeyInfo_key1]
keyvalue(@rs1.cd)
keybreakproc(GroupBegin_key1,GroupEnd_key1)

#-------------------------------------------------
#  Key1�J�n��
#-------------------------------------------------
[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�I����
#-------------------------------------------------
[GroupEnd_key1]

#-------------------------------------------------
#  Key2�ݒ胋�[�`��
#-------------------------------------------------
[KeyInfo_key2]
keyvalue(@rs1.cd,@rs1.sir_cd,@rs1.sir_nm)
keybreakproc(GroupBegin_key2,GroupEnd_key2)

#-------------------------------------------------
#  Key2�J�n��
#-------------------------------------------------
[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�I����
#-------------------------------------------------
[GroupEnd_key2]

#-------------------------------------------------
#  key3�ݒ胋�[�`��
#-------------------------------------------------
[KeyInfo_key3]
keyvalue(@rs1.cd,@rs1.sir_cd,@rs1.sir_nm,@rs1.cd2)
keybreakproc(GroupBegin_key3,GroupEnd_key3)

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

#-------------------------------------------------
#  key3�I����
#-------------------------------------------------
[GroupEnd_key3]

#-------------------------------------------------
#  key4�ݒ胋�[�`��
#-------------------------------------------------
[KeyInfo_key4]
keyvalue(@rs1.cd,@rs1.sir_cd,@rs1.sir_nm,@rs1.cd2,@rs1.cd1)
keybreakproc(GroupBegin_key4,GroupEnd_key4)

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

#-------------------------------------------------
#  key4�I����
#-------------------------------------------------
[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)

#�N�x�ɑΏ۔N���Z�b�g
setdouble($hyouji_y,$taisyo_y)
concatenate($nendo,$hyouji_y,�N�x)
putcell($_row,7,$nendo)

#���N�x�o��
#����
#���v����
subroutine(Cleate_colsum)
putcell($_row,8,�d����)
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#)

#�d���z
#���v����
subroutine(Cleate_colsum)
putcell($_row,8,�d���z)
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#)

#�O�N�x�Δ�
#�v�Z��_���
setdouble($zen_row1,-1)
setdouble($zen_row2,3)
#���v�Δ䏈��
subroutine(Cleate_coltaihisum)
putcell($_row,8,�O�N�x�Δ�)
putline(,)

#�O�X�N�x�Δ�
#�v�Z��_���
setdouble($zen_row1,-2)
setdouble($zen_row2,4)
#���v�Δ䏈��
subroutine(Cleate_coltaihisum)
putcell($_row,8,�O�X�N�x�Δ�)
putline(,)

#�O�N�x�o��
#����
#���v����
subroutine(Cleate_colsum)
#�N�x�̕\������
sum($hyouji_y,-1)
concatenate($nendo,$hyouji_y,�N�x)
putcell($_row,7,$nendo)
putcell($_row,8,�d����)
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#)

#�d���z
#���v����
subroutine(Cleate_colsum)
putcell($_row,8,�d���z)
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#)

#�O�X�N�x�o��
#����
#���v����
subroutine(Cleate_colsum)
#�N�x�̕\������
sum($hyouji_y,-1)
concatenate($nendo,$hyouji_y,�N�x)
putcell($_row,7,$nendo)
putcell($_row,8,�d����)
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#)

#���z
#���v����
subroutine(Cleate_colsum)
putcell($_row,8,�d���z)
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#)