[Main]
dbuse(true)
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)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
#�����������
case($gentanka_mid,$genka_flg,1,���P��,)
case($arari_mid,$genka_flg,1,�e���z,)
loop(PrintNormal,@rs1,Key1,Key2,Key3)
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,$seikyu_ymd)
dbselect(SelectRecords,@rs1,$param)

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

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

#-------------------------------------------------
#  Key1�J�n��
#-------------------------------------------------
[GroupBegin_key1]
deforgpage(blank)
#Import���邩�ǂ���,FormatNormal���邩�ǂ���
pageopen(true,false)
deforgpage(formats)
resetorg()
#�����v_�����l
setdouble($all_suryo,0)
setdouble($all_kingaku,0)
setdouble($all_arari,0)
setdouble($r_cnt,0)
#�w�b�_����_�w�b�_�[
putcell(1,2,@rs0.tait)
putcell(2,11,@rs0.j_nm)
putcell(2,13,@rs0.j_address)
putcell(3,12,@rs0.j_tel_s)
putcell(3,14,@rs0.j_fax_s)

#-------------------------------------------------
#  Key1�I����
#-------------------------------------------------
[GroupEnd_key1]
#�����������
case($all_arari,$genka_flg,1,$all_arari,)
formatspecialrow($_row,0,8,1)
putline(,,,,,[�����v]#,,$all_suryo#,,,$all_kingaku#,,$all_arari#)
#FormatNormal���邩�ǂ���
pageclose(false)

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

#-------------------------------------------------
#  Key2�J�n��
#-------------------------------------------------
[GroupBegin_key2]
#���y�[�W����
case($p_break,$r_cnt,0,0,1)
iterate(P_break,$p_break)
#���o������_���Ӑ�
formatspecialrow($_row,0,4,2)
putcell($_row,2,���Ӑ�F)
putcell($_row,3,@rs1.tok_cd)
putcell($_row,5,@rs1.tok_nm)
putline(,)
#���o������_���o��
putline(,�`�[�ԍ�#,�����#,�`��#,���i#,,,����#,�P��#,�P��#,���z#,$gentanka_mid#,$arari_mid#,���l#)
#���Ӑ揬�v_�����l
setdouble($sum_suryo,0)
setdouble($sum_kingaku,0)
setdouble($sum_arari,0)

#-------------------------------------------------
#  Key2�I����
#-------------------------------------------------
[GroupEnd_key2]
#�����������
case($sum_arari,$genka_flg,1,$sum_arari,)
formatspecialrow($_row,0,8,1)
putline(,,,,,[���Ӑ�v]#,,$sum_suryo#,,,$sum_kingaku#,,$sum_arari#)
#�v_�\���t���O
sum($r_cnt,1)

#-------------------------------------------------
#  Key3�ݒ胋�[�`��
#-------------------------------------------------
[KeyInfo_key3]
keyvalue(@rs1.tok_cd,@rs1.nonyu_no)
keybreakproc(GroupBegin_key3,GroupEnd_key3)

#-------------------------------------------------
#  Key3�J�n��
#-------------------------------------------------
[GroupBegin_key3]
formatspecialrow($_row,0,6,1)
#����H
putcell($_row,2,�[����F)
putcell($_row,3,@rs1.nonyu_no)
putcell($_row,4,@rs1.nonyu_nm)
putline()
#�[���揬�v_�����l
setdouble($non_suryo,0)
setdouble($non_kingaku,0)
setdouble($non_arari,0)

#-------------------------------------------------
#  Key3�I����
#-------------------------------------------------
[GroupEnd_key3]
#�����������
case($non_arari,$genka_flg,1,$non_arari,)
formatspecialrow($_row,0,8,1)
putline(,,,,,[�[����v]#,,$non_suryo#,,,$non_kingaku#,,$non_arari#)

#-------------------------------------------------
#  ���ו\������
#-------------------------------------------------
[PrintNormal]
formatspecialrow($_row,0,7,1)
putcell($_row,2,@rs1.den_no)
putcell($_row,3,@rs1.syori_ymd)
putcell($_row,4,@rs1.state)
putcell($_row,5,@rs1.hin_cd)
putcell($_row,6,@rs1.hin_nm)
putcell($_row,9,@rs1.tani)
putcell($_row,14,@rs1.meisai_biko)
putline(,,,,,,,@rs1.suryo#,,@rs1.tanka#,@rs1.kingaku#,@rs1.gen_tanka#,@rs1.arari#)

#�W�v:���Ӑ揬�v
sum($sum_suryo,@rs1.suryo)
sum($sum_kingaku,@rs1.kingaku)
sum($sum_arari,@rs1.arari)
#�W�v:�[���揬�v
sum($non_suryo,@rs1.suryo)
sum($non_kingaku,@rs1.kingaku)
sum($non_arari,@rs1.arari)
#�W�v:�����v
sum($all_suryo,@rs1.suryo)
sum($all_kingaku,@rs1.kingaku)
sum($all_arari,@rs1.arari)