[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,false)

#-------------------------------------------------
#  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�v:�O���E�c��
setdouble($all_zen_seikyu_zan,0)
#�W�v�F���������z
setdouble($all_lnyukin_gaku,0)
#�W�v:�J�z�c��
setdouble($sum_kurikosi_zan,0)
#�W�v:����
setdouble($all_zeinuki_gaku,0)
#�W�v:�����
setdouble($all_zei_gaku,0)
#�W�v:���㍇�v
setdouble($all_zeikomi_gaku,0)
#�W�v:�U��
setdouble($all_furikomi,0)
#�W�v:����
setdouble($all_genkin,0)
#�W�v:���؎�
setdouble($all_kogitte,0)
#�W�v:��`
setdouble($all_tegata,0)
#�W�v:���E
setdouble($all_sousai,0)
#�W�v:�萔��
setdouble($all_tesuryo,0)
#�W�v:���̑�
setdouble($all_sonota,0)
#�W�v:�����z
setdouble($all_nyukin_gaku,0)
#�W�v:�����J�z
setdouble($all_kurikosi_gaku,0)

#�w�b�_����_�w�b�_�[
#concatenate($syori_ym_s,�Ώ۔N��,:,@rs1.syori_ym_s)
putcell(1,2,@rs1.syori_ym_s)

#��s
putline(,)
putline(,)

#-------------------------------------------------
#  Key0�I����
#-------------------------------------------------
[GroupEnd_Key0]
formatspecialrow(5,0,5,2)
concatenate($goukei,�y,���v,�z)
#�W�v
putcell(5,2,$goukei)

putcell(5,4,$all_zen_seikyu_zan)
putcell(5,5,$all_lnyukin_gaku)
#�W�v�F�J�z�c��(����)
putformula(5,6,RC[-2]-RC[-1])
putcell(5,7,$all_zeinuki_gaku)
putcell(5,8,$all_zei_gaku)
putcell(5,9,$all_zeikomi_gaku)
putcell(5,11,$all_furikomi)
putcell(5,12,$all_genkin)
putcell(5,13,$all_kogitte)
putcell(5,14,$all_tegata)
putcell(5,16,$all_sousai)
putcell(5,17,$all_tesuryo)
putcell(5,18,$all_sonota)
putcell(5,19,$all_nyukin_gaku)
#�W�v�F�J�z�z(�E��)
putformula(5,20,((RC[-14]+RC[-11])-RC[-1]))

pageclose(false)

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

#-------------------------------------------------
#  Key1�J�n��
#-------------------------------------------------
[GroupBegin_key1]
#�W�v:�O���E�c��
setdouble($sum_zen_seikyu_zan,0)
#�W�v�F���������z
setdouble($sum_lnyukin_gaku,0)
#�W�v:�J�z�c��
setdouble($sum_kurikosi_zan,0)
#�W�v:����
setdouble($sum_zeinuki_gaku,0)
#�W�v:�����
setdouble($sum_zei_gaku,0)
#�W�v:���㍇�v
setdouble($sum_zeikomi_gaku,0)
#�W�v:�U��
setdouble($sum_furikomi,0)
#�W�v:����
setdouble($sum_genkin,0)
#�W�v:���؎�
setdouble($sum_kogitte,0)
#�W�v:��`
setdouble($sum_tegata,0)
#�W�v:���E
setdouble($sum_sousai,0)
#�W�v:�萔��
setdouble($sum_tesuryo,0)
#�W�v:���̑�
setdouble($sum_sonota,0)
#�W�v:����
setdouble($sum_nyukin_gaku,0)
#�W�v:�����J�z
setdouble($sum_kurikosi_gaku,0)


#-------------------------------------------------
#  Key1�I����
#-------------------------------------------------
[GroupEnd_key1]
formatspecialrow($_row,0,7,1)
concatenate($syoukei,�y,���v,�z)
#�W�v
putcell($_row,2,$syoukei)

#�W�v�F�J�z�c��(����)
putformula($_row,6,RC[-2]-RC[-1])
#�W�v�F�J�z�z(�E��)
putformula($_row,20,((RC[-14]+RC[-11])-RC[-1]))
#putline(,,,$sum_zen_seikyu_zan#,$sum_zeinuki_gaku#,$sum_zei_gaku#,$sum_zeikomi_gaku#,,$sum_furikomi#,$sum_genkin#,$sum_kogitte#,$sum_tegata#,,$sum_sousai#,$sum_tesuryo#,$sum_sonota#,$sum_kurikosi_gaku#,)
putline(,,,$sum_zen_seikyu_zan#,$sum_lnyukin_gaku#,,$sum_zeinuki_gaku#,$sum_zei_gaku#,$sum_zeikomi_gaku#,,$sum_furikomi#,$sum_genkin#,$sum_kogitte#,$sum_tegata#,,$sum_sousai#,$sum_tesuryo#,$sum_sonota#,$sum_nyukin_gaku#,)

#�W�v:�O���E�c��
sum($all_zen_seikyu_zan,$sum_zen_seikyu_zan)
#�W�v�F���������z
sum(all_lnyukin_gaku,$sum_lnyukin_gaku)
#�W�v:�J�z�c��
sum($all_kurikosi_zan,$sum_kurikosi_zan)
#�W�v:����
sum($all_zeinuki_gaku,$sum_zeinuki_gaku)
#�W�v:�����
sum($all_zei_gaku,$sum_zei_gaku)
#�W�v:���㍇�v
sum($all_zeikomi_gaku,$sum_zeikomi_gaku)
#�W�v:�U��
sum($all_furikomi,$sum_furikomi)
#�W�v:����
sum($all_genkin,$sum_genkin)
#�W�v:���؎�
sum($all_kogitte,$sum_kogitte)
#�W�v:��`
sum($all_tegata,$sum_tegata)
#�W�v:���E
sum($all_sousai,$sum_sousai)
#�W�v:�萔��
sum($all_tesuryo,$sum_tesuryo)
#�W�v:���̑�
sum($all_sonota,$sum_sonota)
#�W�v:�����J�z
sum($all_kurikosi_gaku,$sum_kurikosi_gaku)
#�W�v:�����z
sum($all_nyukin_gaku,$sum_nyukin_gaku)

#���y�[�W����
HPAGEBREAK($_row)

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

#-------------------------------------------------
#  ���ו\������
#-------------------------------------------------
[PrintNormal]
#���v�ϐ�������
setdouble($lnyukin_gaku,0)
setdouble($kurikosi_zan,0)
setdouble($nyukin_gaku,0)
setdouble($kurikosi_gaku,0)


#�W�v�F�J�z�c�� =  �O���E�c�� - L�����z
putformula($_row,6,RC[-2]-RC[-1])

#sum($kurikosi_zan,@rs1.zen_seikyu_zan)
#diff($kurikosi_zan,$lnyukin_gaku)

#�W�v�F�����z = �U��+����+���؎�+��`+���E+�萔��+���̑�
sum($nyukin_gaku,@rs1.furikomi)
sum($nyukin_gaku,@rs1.genkin)
sum($nyukin_gaku,@rs1.kogitte)
sum($nyukin_gaku,@rs1.tegata)
sum($nyukin_gaku,@rs1.sousai)
sum($nyukin_gaku,@rs1.tesuryo)
sum($nyukin_gaku,@rs1.sonota)

#�W�v�F�J�z�z = (�J�z�c�� + ���㍇�v) - �����z
putformula($_row,20,((RC[-14]+RC[-11])-RC[-1]))

#sum($kurikosi_gaku,$kurikosi_zan)
#sum($kurikosi_gaku,@rs1.zeikomi_gaku)
#diff($kurikosi_gaku,$nyukin_gaku)

#���ו\������
formatspecialrow($_row,0,5,1)
putcell($_row,2,@rs1.tok_nm_s)
putcell($_row,3,@rs1.nyukin_yotei_ymd)
putcell($_row,10,@rs1.nyukinbi)
putcell($_row,15,@rs1.mankibi)
#putline(,,,@rs1.zen_seikyu_zan#,$lnyukin_gaku#,$kurikosi_zan#,@rs1.zeinuki_gaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,,@rs1.furikomi#,@rs1.genkin#,@rs1.kogitte#,@rs1.tegata#,,@rs1.sousai#,@rs1.tesuryo#,@rs1.sonota#,$nyukin_gaku#,$kurikosi_gaku#,)
putline(,,,@rs1.zen_seikyu_zan#,$lnyukin_gaku#,$kurikosi_zan#,@rs1.zeinuki_gaku#,@rs1.zei_gaku#,@rs1.zeikomi_gaku#,,@rs1.furikomi#,@rs1.genkin#,@rs1.kogitte#,@rs1.tegata#,,@rs1.sousai#,@rs1.tesuryo#,@rs1.sonota#,$nyukin_gaku#,$kurikosi_gaku#,)


#�W�v:�O���E�c��
sum($sum_zen_seikyu_zan,@rs1.zen_seikyu_zan)
#�W�v�F���������z
sum($sum_lnyukin_gaku,lnyukin_gaku)
#�W�v:�J�z�c��
sum($sum_kurikosi_zan,$kurikosi_zan)
#�W�v:����
sum($sum_zeinuki_gaku,@rs1.zeinuki_gaku)
#�W�v:�����
sum($sum_zei_gaku,@rs1.zei_gaku)
#�W�v:���㍇�v
sum($sum_zeikomi_gaku,@rs1.zeikomi_gaku)
#�W�v:�U��
sum($sum_furikomi,@rs1.furikomi)
#�W�v:����
sum($sum_genkin,@rs1.genkin)
#�W�v:���؎�
sum($sum_kogitte,@rs1.kogitte)
#�W�v:��`
sum($sum_tegata,@rs1.tegata)
#�W�v:���E
sum($sum_sousai,@rs1.sousai)
#�W�v:�萔��
sum($sum_tesuryo,@rs1.tesuryo)
#�W�v:���̑�
sum($sum_sonota,@rs1.sonota)
#�W�v:�����J�z
sum($sum_kurikosi_gaku,$kurikosi_gaku)
#�W�v�F�����z
sum($sum_nyukin_gaku,$nyukin_gaku)