[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実行_自社 #------------------------------------------------- [SelectRecords_Jisya] new($param) addparam($param,$title) dbselect(SelectRecords_Jisya,@rs0,$param) #------------------------------------------------- # SQL実行 #------------------------------------------------- [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実行_振込 #------------------------------------------------- [SelectRecords_Furi] new($param) addparam($param,$s_id) addparam($param,@rs1.tok_cd) dbselect(SelectRecords_Furi,@rs2,$param) #------------------------------------------------- # 振込機関出力処理 #------------------------------------------------- [Furikomi] putcell($furikomi,21,@rs2.furikikan) sum($furikomi,1) #------------------------------------------------- # 請求額_金額表示 #------------------------------------------------- [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) #請求額_金額非表示フラグ_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) #請求額_金額非表示フラグ_1 sum($kingaku_off_flg,1) #------------------------------------------------- # 請求額見出し(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,前回御請求額) putcell($_row,7,御入金額) putcell($_row,12,繰越額) putcell($_row,17,御買上金額) putcell($_row,22,消費税等) putcell($_row,27,当月御買上金額) putcell($_row,33,今回御請求額) putline(,) [ExtMidashi] formatspecialrow($_row,0,25,3) putcell($_row,22,御買上金額) putcell($_row,27,消費税等) putcell($_row,33,当月御買上金額) putline(,) #------------------------------------------------- # 見出し作成 #------------------------------------------------- [CreateHedder] formatspecialrow($_row,0,9,13) iterate(PutSyaban,$syab_flg) iterate(PutLogo,$logo_flg) #1行目 putcell($_row,21,@rs0.tait) #putcell($_row,21,$title) #putcell($_row,21,$outputfile) #ページNo.表示処理_25行出力したらカウントアップ 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) #ページNo.表示処理 concatenate($amari_disp,Page.,$amari_sum) putcell($_row,37,$amari_disp) putline(,) #2行目 #putcell($_row,30,発行日：) putcell($_row,30,請求日：) putcell($_row,33,@rs1.seikyu_ymd_s) putline(,) #3行目 putcell($_row,4,@rs1.yubin_no) concatenate($tok_cd,お客様コード:,@rs1.tok_cd) putcell($_row,37,$tok_cd) putline(,) #4行目 putcell($_row,4,@rs1.address1) putcell($_row,21,@rs1.jis_nm) putline(,) #5行目 putcell($_row,4,@rs1.address2) putcell($_row,21,@rs1.jis_post_s) putcell($_row,24,@rs1.jis_address) putline(,) #6行目 putcell($_row,4,@rs1.address3) putcell($_row,21,@rs1.jis_tel_s) putcell($_row,29,@rs1.jis_fax_s) putline(,) #7行目 putcell($_row,4,@rs1.tok_nm_s) putcell($_row,21,@rs1.jis_url_s) putline(,) #8行目 putcell($_row,4,@rs1.tok_tan) putcell($_row,21,@rs1.jis_mail_s) putline(,) #9行目 putcell($_row,4,@rs1.tok_nm_add) #putcell($_row,21,振込先：) iterate(PrintHeadFuri,@rs0.head_furi_flg) putline(,) #10行目 #subroutine(SelectRecords_Furi) #setdouble($furikomi,$_row) #loop(Furikomi,@rs2) putline(,) #11行目 putcell($_row,2,@rs0.mongon1) putline(,) #12行目 putcell($_row,2,@rs0.mongon2) putline(,) #13行目 putcell($_row,2,@rs0.mongon3) putline(,) #請求額_見出しcase有り subroutine(CreateMidashi) #請求額_金額_座標 setdouble($seikyu_num,$_row) putline(,) #空行 putline(,) #明細_見出し iterate(MeisaiMidashi_One,$one_line_mode) iterate(MeisaiMidashi_Two,$two_line_mode) putline(,) #罫線処理_罫線位置 setdouble($boder_row,$_row) #請求額_金額表示_非表示（1ページ目だけ金額表示） case($kingaku_off,$kingaku_off_flg,0,1,0) #請求額_金額表示 iterate(kingaku_off,$kingaku_off) [PrintHeadFuri] putcell($_row,21,振込先：) 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,日付) #TODO 何かバグっぽい（有明システムの対応か？） putcell($_row,4,$midasi_den_no) putcell($_row,6,伝区) putcell($_row,8,品名) putcell($_row,20,数量) putcell($_row,23,単位) putcell($_row,25,単価) putcell($_row,29,金額) putcell($_row,33,備考) [MeisaiMidashi_Two] formatspecialrow($_row,0,29,1) putcell($_row,2,日付) putcell($_row,4,伝票番号) putcell($_row,6,伝区) putcell($_row,8,品番) putcell($_row,12,品名/備考) putcell($_row,27,数量) putcell($_row,30,単価) putcell($_row,34,金額) #------------------------------------------------- # 罫線処理 #------------------------------------------------- [Boder_Off] #折れ線処理_罫線位置修正 sum($boder_row,3) #折れ線処理_罫線出力 setborder($boder_row,0,1,0,1,1,001000,1,2,1) #------------------------------------------------- # 改ページ処理フラグ #------------------------------------------------- [page_flg] #罫線処理_1回目は出力しない case($boder_off,$boder_off_flg,1,1,0) #罫線処理_1回目は出力しない setdouble($boder_off_flg,1) #罫線処理 iterate(Boder_Off,$boder_off) #改ページ挿入 HPAGEBREAK($_row) #見出し作成 subroutine(CreateHedder) #------------------------------------------------- # 改ページ処理 #------------------------------------------------- [PageBreak] #２５行ごとに改ページ #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) #明細行が２５行なら改ページ case($page_flg,$amari,0,1,0) #改ページ処理フラグ 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開始時 #------------------------------------------------- [GroupBegin_key1] deforgpage(blank) #Importするかどうか,FormatNormalするかどうか pageopen(true,false) deforgpage(formats) resetorg() #ページ番号_初期化 setdouble($amari_flg_sum,0) #改ページ処理フラグ setdouble($page_flg,0) #請求額_金額非表示フラグ setdouble($kingaku_off_flg,0) #明細処理_現場表示 setdouble($nonyu_flg,0) #明細処理_小計表示 setdouble($nonyu_sum_flg,0) #明細_行数カウント setdouble($row_no,0) #ページカウント setdouble($amari_sum,0) #明細_行数カウント setdouble($furikomi,9) #折れ線初期値 setdouble($boder_row,0) #折れ線初期値 setdouble($boder_off_flg,0) #連続コード表示非表示フラグ setdouble($sp1_FLG,@rs0.sp1_FLG) #単価小数点表示非表示 case($uritndec,@rs0.uritndec,0,7,1,23,7) #------------------------------------------------- # Key1終了時 #------------------------------------------------- [GroupEnd_key1] #罫線処理 subroutine(Boder_Off) #フッタ処理 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開始時 #------------------------------------------------- [GroupBegin_Key2] #------------------------------------------------- # Key2終了時 #------------------------------------------------- [GroupEnd_Key2] #------------------------------------------------- # 明細表示処理 #------------------------------------------------- [PrintNormal] #改ページ処理 subroutine(PageBreak) iterate(PrintNormal_One,$one_line_mode) iterate(PrintNormal_Two,$two_line_mode) [PrintNormal_One] formatspecialrow($_row,0,$uritndec,1) #連続ｺｰﾄﾞ表示非表示判定 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) #常時出力 [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#,,,,) #明細_行数カウント sum($row_no,1) #連続出力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#,,,,) #明細_行数カウント sum($row_no,1) #各項目セット 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行目 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(,) #明細_行数カウント sum($row_no,1) #2行目 putcell($_row,12,@rs1.meisai_biko_s) putline(,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,,@rs1.tanka#,,,,@rs1.kingaku#) #明細_行数カウント sum($row_no,1) #------------------------------------------------- # Key0設定ルーチン #------------------------------------------------- [KeyInfo_key0] keyvalue(dummy) keybreakproc(GroupBegin_key0,GroupEnd_key0) #------------------------------------------------- # Key0開始時 #------------------------------------------------- [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終了時 #------------------------------------------------- [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)