[Main] dbuse(true) initparam(printMode,reportId,s_id,ext6,title,ext7,ext8,ext9,ext10,ext11,ext12,sort_mode) # # 2:明細2行 3:明細1行軽減税率対応 5:明細2行+軽減税率対応 case($one_line_mode,$ext7,2,0,5,0,1) case($two_line_mode,$ext7,2,1,5,1,0) case($zei_multi_mode,$ext7,3,1,5,1,0) case($zei_single_mode,$ext7,3,0,5,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($dtl_row_cnt,$hext_flg,1,17,25) case($group_mode,$ext9,1,0,1) iterate(UpdateWork,$group_mode) 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) [UpdateWork] new($param) addparam($param,$s_id) dbselect(UpdateWork,@rs_upd,$param) #------------------------------------------------- # 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) addparam($param,$two_line_mode) addparam($param,$sort_mode) 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,$dtl_row_cnt) 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) # #23703 2022.06.09 MOD STT #ややこしいけど、先頭行が項目4 putcell($_row,2,@rs1.mongon4) # #23703 2022.06.09 MOD END putline(,) #11行目 # #23703 2022.06.09 MOD STT #putcell($_row,2,@rs0.mongon1) putcell($_row,2,@rs1.mongon1) # #23703 2022.06.09 MOD END putline(,) #12行目 # #23703 2022.06.09 MOD STT #putcell($_row,2,@rs0.mongon2) putcell($_row,2,@rs1.mongon2) # #23703 2022.06.09 MOD END putline(,) #13行目 # #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) #請求額_見出し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) [CreateHeader_ext] formatspecialrow($_row,0,45,8) putline(,) putline(,) putline(,) putline(,) putline(,) putline(,) putline(,) putline(,) [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,受注番号,伝票) # #23703 2022.06.08 MOD STT #case($w_fmt_i,$zei_multi_mode,1,41,4) case($w_fmt_n,$disc_per_mode,1,59,4) case($w_fmt_i,$zei_multi_mode,1,41,$w_fmt_n) # #23703 2022.06.08 MOD END formatspecialrow($_row,0,$w_fmt_i,1) putcell($_row,2,日付) #TODO 何かバグっぽい（有明システムの対応か？） putcell($_row,4,$midasi_den_no) putcell($_row,6,伝区) putcell($_row,8,品名) putcell($_row,20,数量) # #23703 2022.06.08 MOD STT #putcell($_row,23,単位) #putcell($_row,25,単価) #putcell($_row,29,金額) iterate(MeisaiMidashi_One_n,$no_disc_per_mode) iterate(MeisaiMidashi_One_d,$disc_per_mode) # #23703 2022.06.08 MOD END iterate(MeisaiMidashi_One_1Zei,$zei_single_mode) iterate(MeisaiMidashi_One_2Zei,$zei_multi_mode) [MeisaiMidashi_One_n] putcell($_row,23,単位) putcell($_row,25,単価) putcell($_row,29,金額) [MeisaiMidashi_One_d] putcell($_row,22,税抜定価) putcell($_row,25,掛率%) putcell($_row,27,単価) putcell($_row,30,金額) [MeisaiMidashi_One_1Zei] # #23703 2022.06.08 MOD STT #putcell($_row,33,備考) iterate(MeisaiMidashi_One_1Zei_n,$no_disc_per_mode) iterate(MeisaiMidashi_One_1Zei_d,$disc_per_mode) # #23703 2022.06.08 MOD END [MeisaiMidashi_One_1Zei_n] putcell($_row,33,備考) [MeisaiMidashi_One_1Zei_d] putcell($_row,34,備考) [MeisaiMidashi_One_2Zei] putcell($_row,33,税) putcell($_row,34,備考) [MeisaiMidashi_Two] # #21713 2022.04.21 MOD STT case($w_fmt_i2,$zei_multi_mode,1,54,29) formatspecialrow($_row,0,$w_fmt_i2,1) # #21713 2022.04.21 MOD END putcell($_row,2,日付) putcell($_row,4,伝票番号) putcell($_row,6,伝区) putcell($_row,8,品番) putcell($_row,12,品名/備考) putcell($_row,27,数量) putcell($_row,30,単価) putcell($_row,34,金額) # #21713 2022.04.21 MOD STT iterate(MeisaiMidashi_Two_2Zei,$zei_multi_mode) [MeisaiMidashi_Two_2Zei] putcell($_row,26,税) # #21713 2022.04.21 MOD END #------------------------------------------------- # 見出し作成(2ページ目以降) #------------------------------------------------- [CreateHeaderPage2] formatspecialrow($_row,0,9,1) #1行目 putcell($_row,21,@rs0.tait) #ページNo.表示処理_25行出力したらカウントアップ case($meisai_row_kbn,@rs0.meisai_row_kbn,1,30,$dtl_row_cnt) div($row_no,$meisai_row_kbn,$kekka,$amari) case($amari_flg,$amari,0,1) # TODO setdouble($amari_flg,1) sum($amari_sum,$amari_flg) #ページNo.表示処理 concatenate($amari_disp,Page.,$amari_sum) putcell($_row,37,$amari_disp) putline(,) #2行目 putline(,) #明細_見出し iterate(MeisaiMidashi_One,$one_line_mode) iterate(MeisaiMidashi_Two,$two_line_mode) putline(,) #罫線処理_罫線位置 setdouble($boder_row,$_row) #22947 2022.02.15 2ページ目以降headerなしモードの時は罫線用変数に足し算したい case($boder_add_plus,$hext_flg,1,18,0) #------------------------------------------------- # 罫線処理 #------------------------------------------------- [Boder_Off] #折れ線処理_罫線位置修正 case($boder_add,$hext_flg,1,-5,3) #sum($boder_row,3) sum($boder_row,$boder_add) #22947 2022.02.15 2ページ目以降headerなしモードの時は罫線用変数に足し算したい sum($boder_row,$boder_add_plus) #折れ線処理_罫線出力 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) #見出し作成 # #22443 2022.01.27 MOD STT #subroutine(CreateHedder) case($page1_flg,$amari_sum,0,1,0) case($page2_flg,$amari_sum,0,0,1) case($header_page1,$hext_flg,1,$page1_flg,1) case($header_page2,$hext_flg,1,$page2_flg,0) iterate(CreateHedder,$header_page1) iterate(CreateHeaderPage2,$header_page2) # #22443 2022.01.27 MOD END #------------------------------------------------- # 改ページ処理 #------------------------------------------------- [PageBreak] #２５行ごとに改ページ #TODO #case($meisai_row_kbn_d,$two_line_mode,1,24,25) # #21962 2021.12.14 MOD STT #case($meisai_row_kbn_d,$two_line_mode,1,44,25) case($meisai_row_kbn_d,$two_line_mode,1,44,$dtl_row_cnt) # #21962 2021.12.14 MOD END #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) # #22443 2022.01.27 MOD STT #div($row_no,$meisai_row_kbn,$kekka,$amari) setdouble($w_row_no,$row_no) setdouble($w_meisai_row_kbn,$meisai_row_kbn) case($w_row_no_sub_w,$amari_sum,0,0,$dtl_row_cnt) case($w_row_no_sub,$hext_flg,1,$w_row_no_sub_w,0) diff($w_row_no,$w_row_no_sub) case($w_meisai_row_kbn_add_w,$amari_sum,0,0,18) case($w_meisai_row_kbn_add,$hext_flg,1,$w_meisai_row_kbn_add_w,0) sum($w_meisai_row_kbn,$w_meisai_row_kbn_add) div($w_row_no,$w_meisai_row_kbn,$kekka,$amari) # #22443 2022.01.27 MOD END #明細行が２５行なら改ページ 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($w_tnk_dec_nas,$disc_per_mode,1,60,7) case($tnk_dec_ari,$zei_multi_mode,1,43,23) # #23703 2022.06.08 MOD STT #case($tnk_dec_nas,$zei_multi_mode,1,42,7) case($tnk_dec_nas,$zei_multi_mode,1,42,$w_tnk_dec_nas) # #23703 2022.06.08 MOD END #case($uritndec,@rs0.uritndec,0,7,1,23,7) case($uritndec,@rs0.uritndec,0,$tnk_dec_nas,1,$tnk_dec_ari,$tnk_dec_nas) #22947 2022.02.15 2ページ目以降headerなしモードの時は罫線用変数に足し算したい setdouble($boder_add_plus,0) #------------------------------------------------- # 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) # #23703 2022.06.08 MOD STT #putcell($_row,23,@rs1.tani) ##putcell($_row,33,@rs1.meisai_biko_s) #iterate(SP01_ON_1Zei,$zei_single_mode) #iterate(SP01_ON_2Zei,$zei_multi_mode) #putline(,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,,,,@rs1.tanka#,,,,@rs1.kingaku#,,,,) iterate(SP01_ON_n,$no_disc_per_mode) iterate(SP01_ON_d,$disc_per_mode) # #23703 2022.06.08 MOD END #明細_行数カウント sum($row_no,1) [SP01_ON_n] putcell($_row,23,@rs1.tani) iterate(SP01_ON_1Zei,$zei_single_mode) iterate(SP01_ON_2Zei,$zei_multi_mode) putline(,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,,,,@rs1.tanka#,,,,@rs1.kingaku#,,,,) [SP01_ON_d] #iterate(SP01_ON_1Zei,$zei_single_mode) #iterate(SP01_ON_2Zei,$zei_multi_mode) putcell($_row,34,@rs1.meisai_biko_s) putline(,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,@rs1.htanka#,,,@rs1.disc_per#,,@rs1.tanka#,,,@rs1.kingaku#) [SP01_ON_1Zei] putcell($_row,33,@rs1.meisai_biko_s) [SP01_ON_2Zei] putcell($_row,33,@rs1.zei_rate) putcell($_row,34,@rs1.meisai_biko_s) #連続出力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] # #21713 2022.04.21 MOD STT case($w_fmt_m2,$zei_multi_mode,1,55,30) formatspecialrow($_row,0,$w_fmt_m2,2) #formatspecialrow($_row,0,30,2) # #21713 2022.04.21 MOD END #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行目 # #21713 2022.04.21 MOD STT 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#) # #21713 2022.04.21 MOD END #明細_行数カウント 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)