[Main]
dbuse(true)
#initparam(printMode,reportId,s_id,tok_cd,seikyu_ymd)
initparam(printMode,reportId,s_id,shime_dd,syori_ymd_fr,syori_ymd_to,prc_sts,tok_cd_fr,tok_cd_to,nonyu_no_fr,nonyu_no_to,tan_cd_fr,tan_cd_to,hin_cd_fr,hin_cd_to,cat_cd_fr,cat_cd_to,den_no_fr,den_no_to,hin_nm,genka_flg,output_ymd)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key0,Key1)
printreport($printMode,true,false)

#-------------------------------------------------
#  SQL���s_����
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
dbselect(SelectRecords_Jisya,@rs0,$param)

#-------------------------------------------------
#  SQL���s
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$s_id)
addparam($param,$shime_dd)
addparam($param,$syori_ymd_fr)
addparam($param,$syori_ymd_to)
addparam($param,$prc_sts)
addparam($param,$tok_cd_fr)
addparam($param,$tok_cd_to)
addparam($param,$nonyu_no_fr)
addparam($param,$nonyu_no_to)
addparam($param,$tan_cd_fr) #10
addparam($param,$tan_cd_to)
addparam($param,$hin_cd_fr)
addparam($param,$hin_cd_to)
addparam($param,$cat_cd_fr)
addparam($param,$cat_cd_to)
addparam($param,$den_no_fr)
addparam($param,$den_no_to)
addparam($param,$hin_nm)
addparam($param,$genka_flg) #19
addparam($param,$output_ymd)#20

#addparam($param,$seikyu_ymd)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  �w�b�_�쐬
#-------------------------------------------------
[CreateHedder]
#�w�b�_����
formatspecialrow($_row,0,1,2)
#1�s��
putcell($_row,2,@rs0.tait)
putline(,)#���s
#2�s��
putcell($_row,2,$record_ymd_frto)#debug
#putcell($_row,7,�쐬��)
putcell($_row,9,@rs1.output_ymd_s)
putline(,)#���s
#3�s��#���o������
formatspecialrow($_row,0,3,1)
#�����,���Ӑ�,,�ϒn,�~�n,�Ԏ�,�^������,�b�ԗ�,�ʍs��
putcell($_row,2,)
putcell($_row,3,�����)
putcell($_row,4,���Ӑ�)
putcell($_row,5,)
putcell($_row,6,�ϒn)
putcell($_row,7,�~�n)
putcell($_row,8,�Ԏ�)
putcell($_row,9,�^������)
putcell($_row,10,�b�ԗ�)
putcell($_row,11,�ʍs��)
putline(,)#���s

#-------------------------------------------------
#  #�ϐ�_������
#-------------------------------------------------
[set_variable]
#���v:�^������
setdouble($zeinuki_gaku_sum,0)
#���v:�b�ԗ�
setdouble($genka1_gaku_sum,0)
#���v:�ʍs��
setdouble($component2_sum,0)
#���v:�^������
setdouble($zeinuki_gaku_sum_sum,0)
#���v:�b�ԗ�
setdouble($genka1_gaku_sum_sum,0)
#���v:�ʍs��
setdouble($component2_sum_sum,0)
#���y�[�W_���v�J�E���g_�����l
setdouble($r_cnt,0)
#����YMDfr~to
concatenate($record_ymd_frto,@rs1.record_ymd_fr,�@,�`,�@,@rs1.record_ymd_to)

#-------------------------------------------------
#  ���y�[�W����
#-------------------------------------------------
[P_break]
#���y�[�W�}��
HPAGEBREAK($_row)

#-------------------------------------------------
#  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()
#�ϐ�_������
subroutine(set_variable)
#�w�b�_����
subroutine(CreateHedder)

#-------------------------------------------------
#  Key0�I����
#-------------------------------------------------
[GroupEnd_key0]
formatspecialrow($_row,0,6,1)
putcell($_row,3,)
putcell($_row,4,)
putcell($_row,5,)
putcell($_row,6,)
putcell($_row,7,)
putcell($_row,8,*�����v*)
putline(,,,,,,,,$zeinuki_gaku_sum_sum#,$genka1_gaku_sum_sum#,$component2_sum_sum#)

pageclose(false)

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

#-------------------------------------------------
#  Key1�J�n��
#-------------------------------------------------
[GroupBegin_key1]
#���y�[�W����_���v�J�E���g
case($p_break,$r_cnt,0,0,1)
#���y�[�W����
iterate(P_break,$p_break)

formatspecialrow($_row,0,4,1)
putcell($_row,2,@rs1.haiso_tan_cd)
putcell($_row,3,@rs1.haiso_tan_nm)
putline(,)

#���v:�^������
setdouble($zeinuki_gaku_sum,0)
#���v:�b�ԗ�
setdouble($genka1_gaku_sum,0)
#���v:�ʍs��
setdouble($component2_sum,0)

#-------------------------------------------------
#  Key1�I����
#-------------------------------------------------
[GroupEnd_key1]
formatspecialrow($_row,0,6,1)
putcell($_row,3,)
putcell($_row,4,)
putcell($_row,5,)
putcell($_row,6,)
putcell($_row,7,)
putcell($_row,8,*���v*)
putline(,,,,,,,,$zeinuki_gaku_sum#,$genka1_gaku_sum#,$component2_sum#)
#���v:�^������
sum($zeinuki_gaku_sum_sum,$zeinuki_gaku_sum)
#���v:�b�ԗ�
sum($genka1_gaku_sum_sum,$genka1_gaku_sum)
#���v:�ʍs��
sum($component2_sum_sum,$component2_sum)#debug

#���y�[�W����_���vflg
setdouble($r_cnt,1)

#-------------------------------------------------
#  ���ו\������
#-------------------------------------------------
[PrintNormal]
formatspecialrow($_row,0,5,1)
putcell($_row,3,@rs1.record_ymd)
putcell($_row,4,@rs1.tok_cd)
putcell($_row,5,@rs1.tok_nm)
putcell($_row,6,@rs1.chimei1_nm)
putcell($_row,7,@rs1.chimei2_nm)
putcell($_row,8,@rs1.haiso_info2)
putline(,,,,,,,,@rs1.zeinuki_gaku#,@rs1.genka1_gaku#,@rs1.component2#)
#���v:�^������
sum($zeinuki_gaku_sum,@rs1.zeinuki_gaku)
#���v:�b�ԗ�
sum($genka1_gaku_sum,@rs1.genka1_gaku)
#���v:�ʍs��
sum($component2_sum,@rs1.component2)#debug