[Main] dbuse(true) initparam(printMode,reportId,s_id,ext6,title,ext7,ext8,ext9,ext10,ext11,ext12) case($one_line_mode,$ext7,2,0,1) case($two_line_mode,$ext7,2,1,0) case($seikyu_zan_mode,$ext8,1,1,0) deforgpage(blank) defheadarea(hed) defbodyarea(mei) subroutine(SelectRecords_Jisya) subroutine(SelectRecords) #loop(PrintNormal,@rs1,Key0,Key1,Key2) loop(PrintNormal,@rs1,Key0,Key1) filename($outputfile) #case($pdf_flg,$ext6,PDF,1,0) #case($xlsx_flg,$ext6,,1,0) #iterate(output_pdf,$pdf_flg) #iterate(output_xlsx,$xlsx_flg) #[output_pdf] #printreport($printMode,true,,pdf) #[output_xlsx] printreport($printMode,true,false) #------------------------------------------------- # SQL���s_���� #------------------------------------------------- [SelectRecords_Jisya] new($param) addparam($param,$title) dbselect(SelectRecords_Jisya,@rs0,$param) #------------------------------------------------- # SQL���s #------------------------------------------------- [SelectRecords] new($param) addparam($param,$s_id) addparam($param,@rs0.midasi_kbn) addparam($param,@rs0.midasi_FLG) addparam($param,@rs0.sp2_FLG) addparam($param,$ext6) addparam($param,$outputfile) addparam($param,$ext9) 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,21,@rs2.furikikan) sum($furikomi,1) #------------------------------------------------- # �����z_���z�\�� #------------------------------------------------- [kingaku_off] iterate(kingaku_off_nomal,$midashi_n) iterate(kingaku_off_ext,$midashi_ext) [kingaku_off_nomal] # #20621 2021.09.17 MOD STT #formatspecialrow($seikyu_num,0,2,1) case($w_fmt_i,$seikyu_zan_mode,1,38,2) formatspecialrow($seikyu_num,0,$w_fmt_i,1) # #20621 2021.09.17 MOD END putcell($seikyu_num,2,@rs1.zen_seikyu_zan) putcell($seikyu_num,7,@rs1.nyukin_gaku) putcell($seikyu_num,12,@rs1.kurikoshi_gaku) putcell($seikyu_num,17,@rs1.zeinuki_gaku) putcell($seikyu_num,22,@rs1.zei_gaku) putcell($seikyu_num,27,@rs1.zeikomi_gaku) putcell($seikyu_num,33,@rs1.seikyu_zan) #�����z_���z��\���t���O_1 sum($kingaku_off_flg,1) [kingaku_off_ext] formatspecialrow($seikyu_num,0,26,1) putcell($seikyu_num,22,@rs1.zeinuki_gaku) putcell($seikyu_num,27,@rs1.zei_gaku) putcell($seikyu_num,33,@rs1.zeikomi_gaku) #putcell($seikyu_num,33,@rs1.seikyu_zan) #�����z_���z��\���t���O_1 sum($kingaku_off_flg,1) #------------------------------------------------- # �����z���o��(CreateMidashi) #------------------------------------------------- [CreateMidashi] case($midashi_n,$ext6,,1,1,0) case($midashi_ext,$ext6,2,1,0) iterate(NomalMidashi,$midashi_n) iterate(ExtMidashi,$midashi_ext) #subroutine(ExtMidashi) [NomalMidashi] # #20621 2021.09.17 MOD STT #formatspecialrow($_row,0,1,3) case($w_fmt_i,$seikyu_zan_mode,1,37,1) formatspecialrow($_row,0,$w_fmt_i,3) # #20621 2021.09.17 MOD END putcell($_row,2,�O��䐿���z) putcell($_row,7,������z) putcell($_row,12,�J�z�z) putcell($_row,17,�䔃����z) putcell($_row,22,����œ�) putcell($_row,27,�����䔃����z) putcell($_row,33,����䐿���z) putline(,) [ExtMidashi] formatspecialrow($_row,0,25,3) putcell($_row,22,�䔃����z) putcell($_row,27,����œ�) putcell($_row,33,�����䔃����z) putline(,) #------------------------------------------------- # ���o���쐬 #------------------------------------------------- [CreateHedder] formatspecialrow($_row,0,9,13) iterate(PutSyaban,$syab_flg) iterate(PutLogo,$logo_flg) #1�s�� putcell($_row,21,@rs0.tait) #putcell($_row,21,$title) #putcell($_row,21,$outputfile) #�y�[�WNo.�\������_25�s�o�͂�����J�E���g�A�b�v case($meisai_row_kbn,@rs0.meisai_row_kbn,1,30,25) div($row_no,$meisai_row_kbn,$kekka,$amari) case($amari_flg,$amari,0,1) sum($amari_sum,$amari_flg) #�y�[�WNo.�\������ concatenate($amari_disp,Page.,$amari_sum) putcell($_row,37,$amari_disp) putline(,) #2�s�� #putcell($_row,30,���s���F) putcell($_row,30,�������F) putcell($_row,33,@rs1.seikyu_ymd_s) putline(,) #3�s�� putcell($_row,4,@rs1.yubin_no) concatenate($tok_cd,���q�l�R�[�h:,@rs1.tok_cd) putcell($_row,37,$tok_cd) putline(,) #4�s�� putcell($_row,4,@rs1.address1) putcell($_row,21,@rs1.jis_nm) putline(,) #5�s�� putcell($_row,4,@rs1.address2) putcell($_row,21,@rs1.jis_post_s) putcell($_row,24,@rs1.jis_address) putline(,) #6�s�� putcell($_row,4,@rs1.address3) putcell($_row,21,@rs1.jis_tel_s) putcell($_row,29,@rs1.jis_fax_s) putline(,) #7�s�� putcell($_row,4,@rs1.tok_nm_s) putcell($_row,21,@rs1.jis_url_s) putline(,) #8�s�� putcell($_row,4,@rs1.tok_tan) putcell($_row,21,@rs1.jis_mail_s) putline(,) #9�s�� putcell($_row,4,@rs1.tok_nm_add) #putcell($_row,21,�U����F) iterate(PrintHeadFuri,@rs0.head_furi_flg) putline(,) #10�s�� #subroutine(SelectRecords_Furi) #setdouble($furikomi,$_row) #loop(Furikomi,@rs2) putline(,) #11�s�� putcell($_row,2,@rs0.mongon1) putline(,) #12�s�� putcell($_row,2,@rs0.mongon2) putline(,) #13�s�� putcell($_row,2,@rs0.mongon3) putline(,) #�����z_���o��case�L�� subroutine(CreateMidashi) #�����z_���z_���W setdouble($seikyu_num,$_row) putline(,) #��s putline(,) #����_���o�� iterate(MeisaiMidashi_One,$one_line_mode) iterate(MeisaiMidashi_Two,$two_line_mode) putline(,) #�r������_�r���ʒu setdouble($boder_row,$_row) #�����z_���z�\��_��\���i1�y�[�W�ڂ������z�\���j case($kingaku_off,$kingaku_off_flg,0,1,0) #�����z_���z�\�� iterate(kingaku_off,$kingaku_off) [PrintHeadFuri] putcell($_row,21,�U����F) subroutine(SelectRecords_Furi) setdouble($furikomi,$_row) sum($furikomi,1) loop(Furikomi,@rs2) [MeisaiMidashi_One] case($midasi_den_no,@rs0.midasi_kbn,1,�ԍ�,�`�[�ԍ�) formatspecialrow($_row,0,4,1) putcell($_row,2,���t) #TODO �����o�O���ۂ��i�L���V�X�e���̑Ή����H�j putcell($_row,4,$midasi_den_no) putcell($_row,6,�`��) putcell($_row,8,�i��) putcell($_row,20,����) putcell($_row,23,�P��) putcell($_row,25,�P��) putcell($_row,29,���z) putcell($_row,33,���l) [MeisaiMidashi_Two] formatspecialrow($_row,0,29,1) putcell($_row,2,���t) putcell($_row,4,�`�[�ԍ�) putcell($_row,6,�`��) putcell($_row,8,�i��) putcell($_row,12,�i��/���l) putcell($_row,27,����) putcell($_row,30,�P��) putcell($_row,34,���z) #------------------------------------------------- # �r������ #------------------------------------------------- [Boder_Off] #�܂������_�r���ʒu�C�� sum($boder_row,3) #�܂������_�r���o�� setborder($boder_row,0,1,0,1,1,001000,1,2,1) #------------------------------------------------- # ���y�[�W�����t���O #------------------------------------------------- [page_flg] #�r������_1��ڂ͏o�͂��Ȃ� case($boder_off,$boder_off_flg,1,1,0) #�r������_1��ڂ͏o�͂��Ȃ� setdouble($boder_off_flg,1) #�r������ iterate(Boder_Off,$boder_off) #���y�[�W�}�� HPAGEBREAK($_row) #���o���쐬 subroutine(CreateHedder) #------------------------------------------------- # ���y�[�W���� #------------------------------------------------- [PageBreak] #�Q�T�s���Ƃɉ��y�[�W #TODO #case($meisai_row_kbn_d,$two_line_mode,1,24,25) case($meisai_row_kbn_d,$two_line_mode,1,44,25) #case($meisai_row_kbn,@rs0.meisai_row_kbn,1,30,25) case($meisai_row_kbn,@rs0.meisai_row_kbn,1,30,$meisai_row_kbn_d) div($row_no,$meisai_row_kbn,$kekka,$amari) #���s���Q�T�s�Ȃ���y�[�W case($page_flg,$amari,0,1,0) #���y�[�W�����t���O iterate(BreakPrintFooter,$page_flg) iterate(page_flg,$page_flg) #------------------------------------------------- # Key1�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_key1] keyvalue(@rs1.tok_cd,@rs1.tok_nm) 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) #���y�[�W�����t���O setdouble($page_flg,0) #�����z_���z��\���t���O setdouble($kingaku_off_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) #����_�s���J�E���g setdouble($furikomi,9) #�܂�������l setdouble($boder_row,0) #�܂�������l setdouble($boder_off_flg,0) #�A���R�[�h�\����\���t���O setdouble($sp1_FLG,@rs0.sp1_FLG) #�P�������_�\����\�� case($uritndec,@rs0.uritndec,0,7,1,23,7) #------------------------------------------------- # Key1�I���� #------------------------------------------------- [GroupEnd_key1] #�r������ subroutine(Boder_Off) #�t�b�^���� iterate(PrintFooter,@rs0.footer_flg) pageclose(false) [BreakPrintFooter] case($w_footer_flg,$row_no,0,0,@rs0.footer_flg) iterate(PrintFooter,$w_footer_flg) [PrintFooter] formatspecialrow($_row,0,33,3) putcell($_row,2,@rs0.footer1) putline(,) putcell($_row,2,@rs0.footer2) putline(,) putcell($_row,2,@rs0.footer3) putline(,) #------------------------------------------------- # Key2�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_Key2] keyvalue(dummy) keybreakproc(GroupBegin_Key2,GroupEnd_Key2) #------------------------------------------------- # Key2�J�n�� #------------------------------------------------- [GroupBegin_Key2] #------------------------------------------------- # Key2�I���� #------------------------------------------------- [GroupEnd_Key2] #------------------------------------------------- # ���ו\������ #------------------------------------------------- [PrintNormal] #���y�[�W���� subroutine(PageBreak) iterate(PrintNormal_One,$one_line_mode) iterate(PrintNormal_Two,$two_line_mode) [PrintNormal_One] formatspecialrow($_row,0,$uritndec,1) #�A�����ޕ\����\������ case($sp-1_ON,$sp1_FLG,0,1,0) case($sp-1_OFF,$sp1_FLG,1,1,0) iterate(SP01_ON,$sp-1_ON) iterate(SP01_OFF,$sp-1_OFF) #�펞�o�� [SP01_ON] # #20621 2021.09.17 MOD STT #putcell($_row,2,@rs1.den_dt) #putcell($_row,4,@rs1.den_no) #putcell($_row,6,@rs1.kbn) putcell($_row,2,@rs1.den_dt_view) putcell($_row,4,@rs1.den_no_view) putcell($_row,6,@rs1.kbn_view) # #20621 2021.09.17 MOD END putcell($_row,8,@rs1.hin_nm) putcell($_row,23,@rs1.tani) putcell($_row,33,@rs1.meisai_biko_s) putline(,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,,,,@rs1.tanka#,,,,@rs1.kingaku#,,,,) #����_�s���J�E���g sum($row_no,1) #�A���o��OFF [SP01_OFF] case($den_dt_o,$den_dt_put,@rs1.den_dt,,@rs1.den_dt) case($den_dt,$page_flg,0,$den_dt_o,@rs1.den_dt) case($den_no_o,$den_no_put,@rs1.den_no,,@rs1.den_no) case($den_no,$page_flg,0,$den_no_o,@rs1.den_no) case($kbn_o,$kbn_put,@rs1.den_no,,@rs1.kbn) case($kbn,$page_flg,0,$kbn_o,@rs1.kbn) putcell($_row,2,$den_dt) putcell($_row,4,$den_no) putcell($_row,6,$kbn) putcell($_row,8,@rs1.hin_nm) putcell($_row,23,@rs1.tani) putcell($_row,33,@rs1.meisai_biko_s) putline(,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,,,,@rs1.tanka#,,,,@rs1.kingaku#,,,,) #����_�s���J�E���g sum($row_no,1) #�e���ڃZ�b�g concatenate($den_dt_put,@rs1.den_dt) concatenate($den_no_put,@rs1.den_no) concatenate($kbn_put,@rs1.den_no) [PrintNormal_Two] formatspecialrow($_row,0,30,2) #1�s�� putcell($_row,2,@rs1.den_dt) putcell($_row,4,@rs1.den_no) putcell($_row,6,@rs1.kbn) putcell($_row,8,@rs1.hin_cd) putcell($_row,12,@rs1.hin_nm) putline(,) #����_�s���J�E���g sum($row_no,1) #2�s�� putcell($_row,12,@rs1.meisai_biko_s) putline(,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,,@rs1.tanka#,,,,@rs1.kingaku#) #����_�s���J�E���g sum($row_no,1) #------------------------------------------------- # Key0�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_key0] keyvalue(dummy) keybreakproc(GroupBegin_key0,GroupEnd_key0) #------------------------------------------------- # Key0�J�n�� #------------------------------------------------- [GroupBegin_key0] dbselect(SelectSyaban,@rs_syab,$param) case($syab_flg,@rs_syab.image_cd,,0,1) iterate(LoadSyabImage,$syab_flg) dbselect(SelectLogo,@rs_logo,$param) case($logo_flg,@rs_logo.image_cd,,0,1) iterate(LoadLogoImage,$logo_flg) #------------------------------------------------- # Key0�I���� #------------------------------------------------- [GroupEnd_key0] [LoadLogoImage] new($param) addparam($param,@rs_logo.image_cd) dbselect(SelectImage,@rs_img_logo,$param) tempimage(logo,@rs_img_logo.file_image) [LoadSyabImage] new($param) addparam($param,@rs_syab.image_cd) #dbselect(SelectImage,@rs_img,$param) #tempimage(syaban,@rs_img.file_image) dbselect(SelectImageList,@rs_img_syab,$param) loop(LoadSyabImageOne,@rs_img_syab) [LoadSyabImageOne] #TODO case($kakuin_normal,@rs_img_syab.image_cd,kakuin,1,0) case($kakuin_eig1,@rs_img_syab.image_cd,kakuin1,1,0) case($kakuin_eig2,@rs_img_syab.image_cd,kakuin2,1,0) iterate(LoadSyabImageOne_Normal,$kakuin_normal) iterate(LoadSyabImageOne_Eig1,$kakuin_eig1) iterate(LoadSyabImageOne_Eig2,$kakuin_eig2) [LoadSyabImageOne_Normal] tempimage(kakuin,@rs_img_syab.file_image) [LoadSyabImageOne_Eig1] tempimage(kakuin1,@rs_img_syab.file_image) [LoadSyabImageOne_Eig2] tempimage(kakuin2,@rs_img_syab.file_image) [PutLogo] setdouble($put_img_row,0) sum($put_img_row,$_row) sum($put_img_row,@rs_logo.img_row) putimage($put_img_row,@rs_logo.img_col,0,0,0,0,logo) [PutSyaban] setdouble($put_img_row,0) sum($put_img_row,$_row) sum($put_img_row,@rs_syab.img_row) #putimage($put_img_row,@rs_syab.img_col,0,0,0,0,syaban) concatenate($kakuin_id,kakuin,@rs1.eig_cd) putimage($put_img_row,@rs_syab.img_col,0,0,0,0,$kakuin_id)