[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)