[Main]
dbuse(true)
initparam(printMode,reportId,s_id)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key1,Key2)
printreport($printMode,true,false)

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

#-------------------------------------------------
#  SQL���s
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$s_id)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  SQL���s_�U��
#-------------------------------------------------
[SelectRecords_Furi]
new($param)
addparam($param,$s_id)
addparam($param,@rs1.tok_cd)
dbselect(SelectRecords_Furi,@rs2,$param)

#-------------------------------------------------
#  �U���@�֏o�͏���
#-------------------------------------------------
[Furikomi]
putcell($furikomi,20,@rs2.furikikan)
sum($furikomi,1)

#-------------------------------------------------
#  SQL���s_����_�����z
#-------------------------------------------------
[SelectRecords_mei]
new($param)
addparam($param,$s_id)
addparam($param,@rs1.tok_cd)
addparam($param,@rs1.seikyu_ymd)
addparam($param,@rs1.nonyu_no)
addparam($param,@rs1.nonyu_nm)
dbselect(SelectRecords_mei,@rs3,$param)

#-------------------------------------------------
#  ���R�[�h��ۑ�
#-------------------------------------------------
[SetRecord]
concatenate($tait,@rs0.tait)
concatenate($seikyu_ymd_s,@rs1.seikyu_ymd_s)
concatenate($yubin_no,@rs1.yubin_no)
concatenate($tok_cd,@rs1.tok_cd)
concatenate($address1,@rs1.address1)
concatenate($j_nm,@rs0.j_nm)
concatenate($address2,@rs1.address2)
concatenate($j_post_s,@rs0.j_post_s)
concatenate($j_address,@rs0.j_address)
concatenate($address3,@rs1.address3)
concatenate($j_tel_s,@rs0.j_tel_s)
concatenate($j_fax_s,@rs0.j_fax_s)
concatenate($tok_nm_s,@rs1.tok_nm_s)
concatenate($j_url_s,@rs0.j_url_s)
concatenate($tok_tan,@rs1.tok_tan)
#setdouble($furikikan,@rs2.furikikan)
concatenate($mongon1,@rs0.mongon1)
concatenate($mongon2,@rs0.mongon2)
concatenate($mongon4,@rs0.mongon4)
concatenate($mongon3,@rs0.mongon3)
concatenate($mongon5,@rs0.mongon5)

#-------------------------------------------------
#  �����z_��_���z�\��
#-------------------------------------------------
[kagami]
formatspecialrow($seikyu_num,0,2,1)
putcell($seikyu_num,2,@rs1.zen_seikyu_zan)
putcell($seikyu_num,7,@rs1.nyukin_gaku)
putcell($seikyu_num,11,@rs1.kurikoshi_gaku)
putcell($seikyu_num,15,@rs1.zeinuki_gaku)
putcell($seikyu_num,19,@rs1.zei_gaku)
putcell($seikyu_num,23,@rs1.zeikomi_gaku)
putcell($seikyu_num,29,@rs1.seikyu_zan)
#�����z_��_���z�\���σt���O_1
setdouble($kagami_flg,1)

#-------------------------------------------------
#  �����z_���z�\��
#-------------------------------------------------
[kingaku_off]
#SQL���s_����_�����z
subroutine(SelectRecords_mei)
formatspecialrow($seikyu_num,0,2,1)
putcell($seikyu_num,2,)
putcell($seikyu_num,7,)
putcell($seikyu_num,11,)
putcell($seikyu_num,15,@rs3.zeinuki_gaku)
putcell($seikyu_num,19,@rs3.zei_gaku)
putcell($seikyu_num,23,@rs3.zeikomi_gaku)
#putcell($seikyu_num,29,@rs3.seikyu_zan)
#�����z_���z�\���σt���O_1
setdouble($kingaku_off_flg,1)
#�����z_��_���z�\���i�ӂ̐����z���㏑���\���j
case($kagami,$kagami_flg,0,1,0)
#�����z_��_���z�\��
iterate(kagami,$kagami)

#-------------------------------------------------
#  ���o���쐬
#-------------------------------------------------
[CreateHedder]
formatspecialrow($_row,0,9,13)
#1�s��
putcell($_row,19,$tait)
#�y�[�WNo.�\������_26�s�o�͂�����J�E���g�A�b�v
div($row_no,25,$kekka,$amari)
case($amari_flg,$amari,0,1)
sum($amari_flg_sum,$amari_flg)
#�y�[�WNo.�\������
concatenate($amari_flg_disp,Page.,$amari_flg_sum)
putcell($_row,33,$amari_flg_disp)
putline(,)
#2�s��
putcell($_row,26,���s���F)
putcell($_row,29,$seikyu_ymd_s)
putline(,)
#3�s��
putcell($_row,4,$yubin_no)
concatenate($tok_cd_s,���q�l�R�[�h:,$tok_cd)
putcell($_row,33,$tok_cd_s)
putline(,)
#4�s��
putcell($_row,4,$address1)
putcell($_row,21,$j_nm)
putline(,)
#5�s��
putcell($_row,4,$address2)
putcell($_row,21,$j_post_s)
putcell($_row,24,$j_address)
putline(,)
#6�s��
putcell($_row,4,$address3)
putcell($_row,21,$j_tel_s)
putcell($_row,27,$j_fax_s)
putline(,)
#7�s��
putcell($_row,4,$tok_nm_s)
putcell($_row,21,$j_url_s)
putline(,)
#8�s��
putcell($_row,4,$tok_tan)
putcell($_row,20,�U����F)
putline(,)
#9�s��
subroutine(SelectRecords_Furi)
setdouble($furikomi,$_row)
loop(Furikomi,@rs2)
putline(,)
#10�s��
putcell($_row,2,$mongon1)
putline(,)
#11�s��
putcell($_row,2,$mongon2)
putcell($_row,20,$mongon4)
putline(,)
#12�s��
putcell($_row,2,$mongon3)
putcell($_row,20,$mongon5)
putline(,)
#13�s��
putline(,)
#���o���쐬
formatspecialrow($_row,0,1,3)
putcell($_row,2,�O�񐿋��z)
putcell($_row,7,�����z)
putcell($_row,11,�J�z�z)
putcell($_row,15,�䔃����z)
putcell($_row,19,����œ�)
putcell($_row,23,�����䔃����z)
putcell($_row,29,���񐿋��z)
putline(,)
#�����z_���z_���W
setdouble($seikyu_num,$_row)
#��s
putline(,)
putline(,)
#����_���o��
formatspecialrow($_row,0,4,1)
putcell($_row,2,���t)
putcell($_row,4,�i��)
putcell($_row,16,����)
putcell($_row,19,�P��)
putcell($_row,21,�P��)
putcell($_row,25,���z)
putcell($_row,29,���l)
putline(,)
#�����z_���z�\��_����̂ݕ\��
case($kingaku_off,$kingaku_off_flg,0,1,0)
#�����z_���z�\��
iterate(kingaku_off,$kingaku_off)

#-------------------------------------------------
#  ���y�[�W����_��
#-------------------------------------------------
[kagami_pgb]
#���y�[�W�}���i1�y�[�W�ڂ̂݁j
HPAGEBREAK($_row)

#-------------------------------------------------
#  ���y�[�W����
#-------------------------------------------------
[page_flg]
#���y�[�W�}��
HPAGEBREAK($_row)
#���o���쐬
subroutine(CreateHedder)

#-------------------------------------------------
#  ���y�[�W����
#-------------------------------------------------
[PageBreak]
#�Q�T�s���Ƃɉ��y�[�W
div($row_no,25,$kekka,$amari)
#���׍s���Q�T�s�Ȃ���y�[�W
case($page_flg,$amari,0,1,0)
#���y�[�W����
iterate(page_flg,$page_flg)

#-------------------------------------------------
#  ���׏���_����\��
#-------------------------------------------------
[nonyu]
#���y�[�W����
subroutine(PageBreak)
#���׏���_���ꖼ
formatspecialrow($_row,0,5,1)
putcell($_row,2,@rs1.nonyu_no)
putcell($_row,4,@rs1.nonyu_nm)
putline(,)
#����_�s���J�E���g
sum($row_no,1)

#-------------------------------------------------
#  ���׏���_���v�\��
#-------------------------------------------------
[nonyu_sum]
#���y�[�W����
subroutine(PageBreak)
#���׏���_���v
formatspecialrow($_row,0,6,1)
putcell($_row,25,���v)
putcell($_row,29,$kingaku_sum)
putline(,)
#����_�s���J�E���g
sum($row_no,1)

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

#-------------------------------------------------
#  Key1�J�n��
#-------------------------------------------------
[GroupBegin_key1]
deforgpage(blank)
#Import���邩�ǂ���,FormatNormal���邩�ǂ���
pageopen(true,false)
deforgpage(formats)
resetorg()
#�y�[�W�ԍ�_������
setdouble($amari_flg_sum,0)
#���v_���z_������
setdouble($kingaku_sum,0)
#���y�[�W�����t���O
setdouble($page_flg,0)
#�����z_���z�\���σt���O
setdouble($kingaku_off_flg,0)
#�����z_��_���z�\���σt���O
setdouble($kagami_flg,0)
#���׏���_����\��
setdouble($nonyu_flg,0)
#���׏���_���v�\��
setdouble($nonyu_sum_flg,0)
#����_�s���J�E���g
setdouble($row_no,0)
#�y�[�W�J�E���g
setdouble($amari_sum,0)
#���R�[�h�ۑ�
subroutine(SetRecord)

#-------------------------------------------------
#  Key1�I����
#-------------------------------------------------
[GroupEnd_key1]
#FormatNormal���邩�ǂ���
pageclose(false)

#-------------------------------------------------
#  Key2�ݒ胋�[�`��
#-------------------------------------------------
[KeyInfo_Key2]
keyvalue(@rs1.tok_cd,@rs1.concat_nonyu)
keybreakproc(GroupBegin_Key2,GroupEnd_Key2)

#-------------------------------------------------
#  Key2�J�n��
#-------------------------------------------------
[GroupBegin_Key2]
#����_�s���J�E���g_�J�n
setdouble($row_no,0)
#�����z_���z�\���σt���O_0
setdouble($kingaku_off_flg,0)
#���v_���z_������
setdouble($kingaku_sum,0)
#���׏���_����\��_��\���i1��ڂ͔�\���j
case($nonyu,$nonyu_flg,0,0,1)
#���׏���_����\��
iterate(nonyu,$nonyu)
setdouble($nonyu_flg,1)

#-------------------------------------------------
#  Key2�I����
#-------------------------------------------------
[GroupEnd_Key2]
#���׏���_���v�\��_��\��
case($nonyu_sum,$nonyu_sum_flg,0,0,1)
#���y�[�W�}���i1�y�[�W�ڂ̂݁j
case($kagami_pgb,$nonyu_sum_flg,0,1,0)
#���׏���_���v�\��
iterate(nonyu_sum,$nonyu_sum)
#���y�[�W�}���i1�y�[�W�ڂ̂݁j
iterate(kagami_pgb,$kagami_pgb)
setdouble($nonyu_sum_flg,1)

#-------------------------------------------------
#  ���ו\������
#-------------------------------------------------
[PrintNormal]
#���y�[�W����
subroutine(PageBreak)
formatspecialrow($_row,0,7,1)
putcell($_row,2,@rs1.den_dt)
putcell($_row,4,@rs1.hin_nm)
putcell($_row,19,@rs1.tani)
putcell($_row,29,@rs1.meisai_biko)
putline(,,,,,,,,,,,,,,,@rs1.suryo#,,,,,@rs1.tanka#,,,,@rs1.kingaku#,,,,)
#����_�s���J�E���g
sum($row_no,1)
#���v_���z
sum($kingaku_sum,@rs1.kingaku)