[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,8,@rs1.output_ymd_s)
putline(,)#���s
#3�s��#���o������
formatspecialrow($_row,0,3,1)
#�斱��,����,%��,����,�R�,�C����,�^�C���E�y,�����v���[�g,�ی�,�Е�,���p�g�p,����,�����t�F���[,���̑�2,�^�s��,���̑�,���v,�������z
putcell($_row,2,�斱��)
putcell($_row,3,����)
putcell($_row,4,%��)
putcell($_row,5,����)
putcell($_row,6,�R�)
putcell($_row,7,�C����)
putcell($_row,8,�^�C���E�y�\����)
putcell($_row,9,�����v���[�g)
putcell($_row,10,�ی�)
putcell($_row,11,�Е�)
putcell($_row,12,���p�g�p)
putcell($_row,13,����)
putcell($_row,14,�����t�F���[)
putcell($_row,15,���̑�2)
putcell($_row,16,�^�s��)
putcell($_row,17,���̑�)
putcell($_row,18,���v)
putcell($_row,19,�������z)
putline(,)#���s

#-------------------------------------------------
#  #�ϐ�_������
#-------------------------------------------------
[set_variable]
#���v:�^������
setdouble($zeinuki_gaku_sum,0)
#���v:�b�ԗ�
setdouble($genka1_gaku_sum,0)
#���v:���v
setdouble($saeki_sum,0)
#���v:�\����
setdouble($component_sum,0)
#���v:�^������
setdouble($zeinuki_gaku_sum_sum,0)
#���v:�b�ԗ�
setdouble($genka1_gaku_sum_sum,0)
#���v:���v
setdouble($saeki_sum_sum,0)
#���v:�\����
setdouble($component_sum_sum,0)
#���v:��
setdouble($zei_sum,0)
#���v:�������v
#setdouble($zei_sum,0)
#putline(,,@rs1.uriage#,@rs1.kousu_keisu#,����#,@rs1.keihi1#,@rs1.keihi2#,@rs1.keihi3#,@rs1.keihi4#,@rs1.keihi5#,@rs1.keihi6#,@rs1.keihi7#,@rs1.keihi8#,@rs1.keihi9#,@rs1.keihi10#,@rs1.keihi11#,@rs1.keihi12#,@rs1.gokei_keihi#,�������z#)#debug

#*���v*:����
setdouble($uriage_sum,0)
#*���v*:%��
setdouble($p_hiki_sum,0)
#*���v*:����
setdouble($sa_hiki_sum,0)
#*���v*:�R�
setdouble($keihi1_sum,0)
#*���v*:�C����
setdouble($keihi2_sum,0)
#*���v*:�^�C���E�y
setdouble($keihi3_sum,0)
#*���v*:�����v���[�g
setdouble($keihi4_sum,0)
#*���v*:�ی�
setdouble($keihi5_sum,0)
#*���v*:��
setdouble($keihi6_sum,0)
#*���v*:���p�g�p
#setdouble($keihi7_sum,0)
#*���v*:����
setdouble($keihi8_sum,0)
#*���v*:�����t�F���[
setdouble($keihi9_sum,0)
#*���v*:���̑�2
setdouble($keihi10_sum,0)
#*���v*:�^�s��
setdouble($keihi11_sum,0)
#*���v*:���̑�
#setdouble($keihi12_sum,0)
#*���v*:���v
#setdouble($gokei_keihi_sum,0)
#*���v*:�������z
#setdouble($sahiki_gokei_sum,0)


#-------------------------------------------------
#  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,2,*�����v*)
putline(,,$uriage_sum#,$p_hiki_sum#,$sa_hiki_sum#,$keihi1_sum#,$keihi2_sum#,$keihi3_sum#,$keihi4_sum#,$keihi5_sum#,$keihi6_sum#,$keihi7_sum#,$keihi8_sum#,$keihi9_sum#,$keihi10_sum#,$keihi11_sum#,$keihi12_sum#,$gokei_keihi_sum#,$sahiki_gokei_sum#)#debug

pageclose(false)

#-------------------------------------------------
#  Key1�ݒ胋�[�`��
#-------------------------------------------------
[KeyInfo_key1]
keyvalue(dummy)
keybreakproc(GroupBegin_key1,GroupEnd_key1)

#-------------------------------------------------
#  Key1�J�n��
#-------------------------------------------------
[GroupBegin_key1]

#-------------------------------------------------
#  Key1�I����
#-------------------------------------------------
[GroupEnd_key1]

#-------------------------------------------------
#  ���ו\������
#-------------------------------------------------
[PrintNormal]
formatspecialrow($_row,0,4,1)
putcell($_row,2,@rs1.haiso_tan_nm)
#putcell($_row,3,@rs1.sir_nm)
#putcell($_row,4,@rs1.eig_nm)
putline(,,@rs1.uriage#,@rs1.kousu_keisu#,����#,@rs1.keihi1#,@rs1.keihi2#,@rs1.keihi3#,@rs1.keihi4#,@rs1.keihi5#,@rs1.keihi6#,@rs1.keihi7#,@rs1.keihi8#,@rs1.keihi9#,@rs1.keihi10#,@rs1.keihi11#,@rs1.keihi12#,@rs1.gokei_keihi#,�������z#)#debug
#*���v*:����
sum($uriage_sum,@rs1.uriage)
#*���v*:%���i�������j
sum($p_hiki_sum,0)
#*���v*:�����i�������j
sum($sa_hiki_sum,0)
#*���v*:�R�
sum($keihi1_sum,@rs1.keihi1)
#*���v*:�C����
sum($keihi2_sum,@rs1.keihi2)
#*���v*:�^�C���E�y
sum($keihi3_sum,@rs1.keihi3)
#*���v*:�����v���[�g
sum($keihi4_sum,@rs1.keihi4)
#*���v*:�ی�
sum($keihi5_sum,@rs1.keihi5)
#*���v*:��
sum($keihi6_sum,@rs1.keihi6)
#*���v*:���p�g�p
sum($keihi7_sum,@rs1.keihi7)
#*���v*:����
sum($keihi8_sum,@rs1.keihi8)
#*���v*:�����t�F���[
sum($keihi9_sum,@rs1.keihi9)
#*���v*:���̑�2
sum($keihi10_sum,@rs1.keihi10)
#*���v*:�^�s��
sum($keihi11_sum,@rs1.keihi11)
#*���v*:���̑�
sum($keihi12_sum,@rs1.keihi12)
#*���v*:���v
sum($gokei_keihi_sum,@rs1.gokei_keihi)
#*���v*:�������z�i�������j
sum($sahiki_gokei_sum,0)