[Main]
dbuse(true)
#initparam(printMode,reportId,s_id,tok_cd,seikyu_ymd)
initparam(printMode,reportId,s_id,syori_ymd_fr,syori_ymd_to,tok_cd_fr,tok_cd_to,tan_cd_fr,tan_cd_to)

deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
#�����v
setdouble($all_kungaku,0)
setdouble($r_cnt,0)
loop(PrintNormal,@rs1,Key1)
printreport($printMode,true,false)

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

#-------------------------------------------------
#  Key1�J�n��
#-------------------------------------------------
[GroupBegin_key1]
deforgpage(blank)
#Import���邩�ǂ���,FormatNormal���邩�ǂ���
pageopen(true,true)
deforgpage(formats)
resetorg()

#-------------------------------------------------
#  Key1�I����
#-------------------------------------------------
[GroupEnd_key1]
#FormatNormal���邩�ǂ���

formatspecialrow($_row,0,14,1)
putline(,,,,[���v]#,,,,$all_kungaku#)
pageclose(false)

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

#-------------------------------------------------
#  Key2�J�n��
#-------------------------------------------------
[GroupBegin_key2]
case($close,$r_cnt,0,0,1)
iterate(Close,$close) #���y�[�W

#�w�b�_����_�w�b�_�[
#putcell(3,3,@rs1.tok_cd)
#putcell(3,5,@rs1.tok_nm)

#-------------------------------------------------
#  Key2�I����
#-------------------------------------------------
[GroupEnd_key2]
#FormatNormal���邩�ǂ���
formatspecialrow($_row,0,5,1)
putline(,,,,,,,[���Ӑ�v]#,,$sum_suryo#,,,$sum_kungaku#,,$sum_arari#)

sum($r_cnt,1)
#pageclose(true)

#-------------------------------------------------
#  SQL���s
#-------------------------------------------------
[SelectRecords]
new($param)
#addparam($param,$s_id)
addparam($param,$syori_ymd_fr)
addparam($param,$syori_ymd_to)
addparam($param,$tok_cd_fr)
addparam($param,$tok_cd_to)
addparam($param,$tan_cd_fr)
addparam($param,$tan_cd_to)
#addparam($param,$seikyu_ymd)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  ���ו\������
#-------------------------------------------------
[PrintNormal]
formatspecialrow($_row,0,5,1)
putline(,@rs1.nyukin_no#,@rs1.nyukin_ymd#,,@rs1.tok_cd#,@rs1.tok_nm#,,,@rs1.tan_cd#,@rs1.tan_nm#,@rs1.cre_time#,,@rs1.upd_time#)

formatspecialrow($_row,0,10,1)
putline(,,,�敪#,������#,�����z#,�萔��#,�����z#,���v�z#,��`����#,��`�ԍ�#,���l#)

formatspecialrow($_row,0,12,1)
putline(,,,@rs1.nyukin_kbn#,@rs1.han_name#,@rs1.nyukin_gaku#,@rs1.tesuryo#,@rs1.cyosei_gaku#,@rs1.total_gaku#,@rs1.tegata_ymd#,@rs1.tegata_no#,@rs1.biko#)


#�W�v:�����v
sum($all_kungaku,@rs1.total_gaku)


[Close]
pageclose(false)
pageopen(true,false)