[Main] dbuse(true) initparam(printMode,reportId,s_id,ext6,title,ext7,ext8,ext9,ext10,ext11,ext12,sort_mode,dst_filename) # # 2:����2�s 3:����1�s�y���ŗ��Ή� 5:����2�s+�y���ŗ��Ή� case($one_line_mode,$ext7,2,0,5,0,6,0,1) case($two_line_mode,$ext7,2,1,5,1,6,1,0) case($zei_multi_mode,$ext7,3,1,5,1,6,1,0) case($zei_single_mode,$ext7,3,0,5,0,6,0,1) case($seikyu_zan_mode,$ext8,1,1,0) case($disc_per_mode,$ext7,4,1,0) case($no_disc_per_mode,$ext7,4,0,1) case($hstd_flg,$ext12,H,0,1) case($hext_flg,$ext12,H,1,0) case($no_denkbn_mode,$ext7,6,1,0) case($midashi_n,$ext6,,1,1,0) case($midashi_ext,$ext6,2,1,0) case($group_mode,$ext9,1,0,1) iterate(UpdateWork,$group_mode) deforgpage(blank) defheadarea(hed) defbodyarea(mei) subroutine(SelectRecords) loop(PrintNormal,@rs1,Key0,Key1,Key2) filename($dst_filename) case($print_show_mode,$dst_filename,,1,0) case($print_hide_mode,$dst_filename,,0,1) iterate(printShow,$print_show_mode) iterate(printHide,$print_hide_mode) [printShow] printreport($printMode,true,false) [printHide] printreport($printMode,false,false) [UpdateWork] new($param) addparam($param,$s_id) dbselect(UpdateWork,@rs_upd,$param) #------------------------------------------------- # SQL���s #------------------------------------------------- [SelectRecords] new($param) addparam($param,$s_id) addparam($param,$ext6) addparam($param,$outputfile) addparam($param,$ext9) addparam($param,$two_line_mode) addparam($param,$sort_mode) addparam($param,$title) addparam($param,$hext_flg) addparam($param,$ext11) dbselect(UpdateDb,@rs_upd,$param) 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�\�� #------------------------------------------------- [PrintTotal] iterate(PrintTotal_nomal,$midashi_n) iterate(PrintTotal_ext,$midashi_ext) [PrintTotal_nomal] case($w_fmt_i,$seikyu_zan_mode,1,38,2) formatspecialrow($total_print_row_no,0,$w_fmt_i,1) putcell($total_print_row_no,2,@rs1.zen_seikyu_zan) putcell($total_print_row_no,7,@rs1.nyukin_gaku) putcell($total_print_row_no,12,@rs1.kurikoshi_gaku) putcell($total_print_row_no,17,@rs1.zeinuki_gaku) putcell($total_print_row_no,22,@rs1.zei_gaku) putcell($total_print_row_no,27,@rs1.zeikomi_gaku) putcell($total_print_row_no,33,@rs1.seikyu_zan) #�����z_���z��\���t���O_1 sum($total_print_flg,1) [PrintTotal_ext] formatspecialrow($total_print_row_no,0,26,1) putcell($total_print_row_no,22,@rs1.zeinuki_gaku) putcell($total_print_row_no,27,@rs1.zei_gaku) putcell($total_print_row_no,33,@rs1.zeikomi_gaku) #�����z_���z��\���t���O_1 sum($total_print_flg,1) #------------------------------------------------- # �����z���o��(CreateMidashi) #------------------------------------------------- [CreateMidashi] iterate(NomalMidashi,$midashi_n) iterate(ExtMidashi,$midashi_ext) [NomalMidashi] case($w_fmt_i,$seikyu_zan_mode,1,37,1) formatspecialrow($_row,0,$w_fmt_i,3) 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���쐬 #------------------------------------------------- [CreateHeader] formatspecialrow($_row,0,9,13) iterate(PutSyaban,$syab_flg) iterate(PutLogo,$logo_flg) #1�s�� case($w_title_add,@rs1.rep_type,1,�y�T�z,) concatenate($w_title,@rs1.tait,$w_title_add) putcell($_row,21,$w_title) #putcell($_row,21,$title) #putcell($_row,21,$outputfile) #�y�[�WNo.�\������ concatenate($page_no_view,Page., ,@rs1.page_no,/,@rs1.max_page) putcell($_row,37,$page_no_view) 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) concatenate($tok_cd,@rs1.seikyu_no_label,@rs1.seikyu_no) 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,@rs1.head_furi_flg) iterate(PrintJisExt,$jis_ext_flg) putline(,) #10�s�� #subroutine(SelectRecords_Furi) #setdouble($furikomi,$_row) #loop(Furikomi,@rs2) # #23703 2022.06.09 MOD STT #��₱�������ǁA�擪�s������4 putcell($_row,2,@rs1.mongon4) # #23703 2022.06.09 MOD END putline(,) #11�s�� # #23703 2022.06.09 MOD STT #putcell($_row,2,@rs0.mongon1) putcell($_row,2,@rs1.mongon1) # #23703 2022.06.09 MOD END putline(,) #12�s�� # #23703 2022.06.09 MOD STT #putcell($_row,2,@rs0.mongon2) putcell($_row,2,@rs1.mongon2) # #23703 2022.06.09 MOD END putline(,) #13�s�� # #23703 2022.06.09 MOD STT #putcell($_row,2,@rs0.mongon3) putcell($_row,2,@rs1.mongon3) # #23703 2022.06.09 MOD END putline(,) iterate(CreateHeader_ext,$hext_flg) #�����z_���o��case�L�� subroutine(CreateMidashi) #�����z_���z_���W setdouble($total_print_row_no,$_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($total_print_cnt,$total_print_flg,0,1,0) #�����z_���z�\�� iterate(PrintTotal,$total_print_cnt) [CreateHeader_ext] formatspecialrow($_row,0,45,8) putline(,) putline(,) putline(,) putline(,) putline(,) putline(,) putline(,) putline(,) [PrintJisExt] setdouble($w_row_no,$_row); putcell($w_row_no,21,@rs1.jis_ext1) sum($w_row_no,1) putcell($w_row_no,21,@rs1.jis_ext2) sum($w_row_no,1) #2023.04.17 ����2���ڂ̂ݑΉ��B5���ڂ܂ʼn\�B #putcell($w_row_no,21,@rs1.jis_ext3) #sum($w_row_no,1) #putcell($w_row_no,21,@rs1.jis_ext4) #sum($w_row_no,1) #putcell($w_row_no,21,@rs1.jis_ext5) #sum($w_row_no,1) [PrintHeadFuri] putcell($_row,21,���U����F) subroutine(SelectRecords_Furi) setdouble($furikomi,$_row) sum($furikomi,1) loop(Furikomi,@rs2) [MeisaiMidashi_One] formatspecialrow($_row,0,$midashi_fmt_row_no,1) iterate(MeisaiMidashi_One_a,$logic_a) iterate(MeisaiMidashi_One_b,$logic_b) iterate(MeisaiMidashi_One_c,$logic_c) #�|���Ȃ� �y���ŗ��Ȃ� [MeisaiMidashi_One_a] putcell($_row,2,���t) putcell($_row,4,@rs1.den_no_label) 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) #�|���Ȃ� �y���ŗ����� [MeisaiMidashi_One_b] putcell($_row,2,���t) putcell($_row,4,@rs1.den_no_label) 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,��) putcell($_row,34,���l) #�|������ �y���ŗ��Ȃ� [MeisaiMidashi_One_c] putcell($_row,2,���t) putcell($_row,4,@rs1.den_no_label) putcell($_row,6,�`��) putcell($_row,8,�i��) putcell($_row,20,����) putcell($_row,22,�Ŕ��艿) putcell($_row,25,�|��%) putcell($_row,27,�P��) putcell($_row,30,���z) putcell($_row,34,���l) [MeisaiMidashi_Two] formatspecialrow($_row,0,$midashi_fmt_row_no,1) iterate(MeisaiMidashi_Two_a,$logic_a) iterate(MeisaiMidashi_Two_b,$logic_b) iterate(MeisaiMidashi_Two_c,$logic_c) #�|���Ȃ� �y���ŗ��Ȃ� [MeisaiMidashi_Two_a] putcell($_row,2,���t) putcell($_row,4,@rs1.den_no_label) putcell($_row,6,�`��) putcell($_row,8,@rs1.hin_cd_label) putcell($_row,12,�i��/���l) putcell($_row,27,����) putcell($_row,30,�P��) putcell($_row,34,���z) #�|���Ȃ� �y���ŗ����� [MeisaiMidashi_Two_b] putcell($_row,2,���t) putcell($_row,4,@rs1.den_no_label) putcell($_row,6,�`��) putcell($_row,8,@rs1.hin_cd_label) putcell($_row,12,�i��/���l) putcell($_row,26,��) putcell($_row,27,����) putcell($_row,30,�P��) putcell($_row,34,���z) #�|���Ȃ� �y���ŗ����� �`�[�敪�Ȃ� [MeisaiMidashi_Two_c] putcell($_row,2,���t) putcell($_row,4,@rs1.den_no_label) putcell($_row,7,@rs1.hin_cd_label) putcell($_row,12,�i��/���l) putcell($_row,27,����) putcell($_row,30,�P��) putcell($_row,34,���z) #------------------------------------------------- # ���o���쐬(2�y�[�W�ڈȍ~) #------------------------------------------------- [CreateHeaderPage2] formatspecialrow($_row,0,9,1) #1�s�� putcell($_row,21,@rs1.tait) #�y�[�WNo.�\������ concatenate($page_no_view,Page., ,@rs1.page_no,/,@rs1.max_page) putcell($_row,37,$page_no_view) putline(,) #2�s�� putline(,) #����_���o�� iterate(MeisaiMidashi_One,$one_line_mode) iterate(MeisaiMidashi_Two,$two_line_mode) putline(,) #�r������_�r���ʒu setdouble($boder_row,$_row) #22947 2022.02.15 2�y�[�W�ڈȍ~header�Ȃ����[�h�̎��͌r���p�ϐ��ɑ����Z������ case($boder_add_plus,$hext_flg,1,18,0) #------------------------------------------------- # �r������ #------------------------------------------------- [PrintBorder] #�܂������_�r���ʒu�C�� case($boder_bug_add,$hext_flg,1,-5,3) sum($boder_row,$boder_bug_add) #22947 2022.02.15 2�y�[�W�ڈȍ~header�Ȃ����[�h�̎��͌r���p�ϐ��ɑ����Z������ sum($boder_row,$boder_add_plus) #�܂������_�r���o�� setborder($boder_row,0,1,0,1,1,001000,1,2,1) #------------------------------------------------- # ���y�[�W�����t���O #------------------------------------------------- [NewPage] ##�r������_1��ڂ͏o�͂��Ȃ� #case($boder_off,$boder_off_flg,1,1,0) ##�r������_1��ڂ͏o�͂��Ȃ� #setdouble($boder_off_flg,1) ##�r������ #iterate(PrintBorder,$boder_off) #���y�[�W�}�� #HPAGEBREAK($_row) case($print_next_page_cnt,@rs1.page_no,1,0,1) iterate(PrintNextPage,$print_next_page_cnt) #���o���쐬 case($page1_flg,@rs1.page_no,1,1,0) case($page2_flg,@rs1.page_no,1,0,1) case($header_page1,$hext_flg,1,$page1_flg,1) case($header_page2,$hext_flg,1,$page2_flg,0) iterate(CreateHeader,$header_page1) iterate(CreateHeaderPage2,$header_page2) [PrintNextPage] #���y�[�W�}�� HPAGEBREAK($_row) #------------------------------------------------- # Key1�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_key1] keyvalue(@rs1.rep_type,@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() #�����z_���z��\���t���O setdouble($total_print_flg,0) ##����_�s���J�E���g #setdouble($furikomi,9) #�܂�������l setdouble($boder_row,0) #22947 2022.02.15 2�y�[�W�ڈȍ~header�Ȃ����[�h�̎��͌r���p�ϐ��ɑ����Z������ setdouble($boder_add_plus,0) ##�܂�������l #setdouble($boder_off_flg,0) #------------------------------------------------- # Key1�I���� #------------------------------------------------- [GroupEnd_key1] #�r������ #subroutine(PrintBorder) #�t�b�^���� #iterate(PrintFooter,@rs1.footer_flg) pageclose(false) [PrintFooter] formatspecialrow($_row,0,33,3) putcell($_row,2,@rs1.footer1) putline(,) putcell($_row,2,@rs1.footer2) putline(,) putcell($_row,2,@rs1.footer3) putline(,) #------------------------------------------------- # Key2�ݒ胋�[�`�� #------------------------------------------------- [KeyInfo_key2] keyvalue(@rs1.rep_type,@rs1.tok_cd,@rs1.page_no) keybreakproc(GroupBegin_key2,GroupEnd_key2) #------------------------------------------------- # Key2�J�n�� #------------------------------------------------- [GroupBegin_key2] #���y�[�W���� subroutine(NewPage) #------------------------------------------------- # Key2�I���� #------------------------------------------------- [GroupEnd_key2] #�r������ subroutine(PrintBorder) #�t�b�^���� iterate(PrintFooter,@rs1.footer_flg) #------------------------------------------------- # ���ו\������ #------------------------------------------------- [PrintNormal] #���y�[�W���� #subroutine(PageBreak) iterate(PrintNormal_One,$one_line_mode) iterate(PrintNormal_Two,$two_line_mode) [PrintNormal_One] formatspecialrow($_row,0,$uritndec,1) iterate(PrintNormal_One_a,$logic_a) iterate(PrintNormal_One_b,$logic_b) iterate(PrintNormal_One_c,$logic_c) #�|���Ȃ� �y���ŗ��Ȃ� [PrintNormal_One_a] putcell($_row,2,@rs1.den_dt_view) putcell($_row,4,@rs1.den_no_view) putcell($_row,6,@rs1.kbn_view) 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#,,,,) #�|���Ȃ� �y���ŗ����� [PrintNormal_One_b] putcell($_row,2,@rs1.den_dt_view) putcell($_row,4,@rs1.den_no_view) putcell($_row,6,@rs1.kbn_view) putcell($_row,8,@rs1.hin_nm) putcell($_row,23,@rs1.tani) putcell($_row,33,@rs1.zei_rate) putcell($_row,34,@rs1.meisai_biko_s) putline(,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,,,,@rs1.tanka#,,,,@rs1.kingaku#,,,,) #�|������ �y���ŗ��Ȃ� [PrintNormal_One_c] putcell($_row,2,@rs1.den_dt_view) putcell($_row,4,@rs1.den_no_view) putcell($_row,6,@rs1.kbn_view) putcell($_row,8,@rs1.hin_nm) putcell($_row,34,@rs1.meisai_biko_s) putline(,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,@rs1.htanka#,,,@rs1.disc_per#,,@rs1.tanka#,,,@rs1.kingaku#) [PrintNormal_Two] formatspecialrow($_row,0,$uritndec,2) iterate(PrintNormal_Two_ab,$logic_a) iterate(PrintNormal_Two_ab,$logic_b) iterate(PrintNormal_Two_c,$logic_c) [PrintNormal_Two_ab] #1�s�� putcell($_row,2,@rs1.den_dt) putcell($_row,4,@rs1.den_no_view) putcell($_row,6,@rs1.kbn) putcell($_row,8,@rs1.hin_cd) putcell($_row,12,@rs1.hin_nm) putline(,) #2�s�� case($zei_rate,$zei_multi_mode,1,@rs1.zei_rate,) putcell($_row,12,@rs1.meisai_biko_s) putline(,,,,,,,,,,,,,,,,,,,,,,,,,$zei_rate#,@rs1.suryo#,,,@rs1.tanka#,,,,@rs1.kingaku#) [PrintNormal_Two_c] #1�s�� putcell($_row,2,@rs1.den_dt) putcell($_row,4,@rs1.den_no_view) putcell($_row,7,@rs1.hin_cd) putcell($_row,12,@rs1.hin_nm) putline(,) #2�s�� case($zei_rate,$zei_multi_mode,1,@rs1.zei_rate,) putcell($_row,12,@rs1.meisai_biko_s) putline(,,,,,,,,,,,,,,,,,,,,,,,,,$zei_rate#,@rs1.suryo#,,,@rs1.tanka#,,,,@rs1.kingaku#) #------------------------------------------------- # 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) #���׃p�^�[������ subroutine(SelectMeisaiType) #���Њg�����i�w�b�_�̐U����������Ƃ��̂݁j case($jis_ext_flg,@rs1.head_furi_flg,1,0,1) #------------------------------------------------- # 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) [SelectMeisaiType] new($param) addparam($param,$disc_per_mode) addparam($param,$zei_multi_mode) addparam($param,@rs1.uritndec) addparam($param,$two_line_mode) addparam($param,$no_denkbn_mode) dbselect(SelectMeisaiType,@rs_fmt,$param) setdouble($uritndec,@rs_fmt.meisai_format_row_no) setdouble($midashi_fmt_row_no,@rs_fmt.midashi_format_row_no) case($logic_a,@rs_fmt.logic_type,a,1,0) case($logic_b,@rs_fmt.logic_type,b,1,0) case($logic_c,@rs_fmt.logic_type,c,1,0)