[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実行_自社 #------------------------------------------------- [SelectRecords_Jisya] new($param) dbselect(SelectRecords_Jisya,@rs0,$param) #------------------------------------------------- # SQL実行 #------------------------------------------------- [SelectRecords] new($param) addparam($param,$s_id) 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,20,@rs2.furikikan) sum($furikomi,1) #------------------------------------------------- # SQL実行_明細_請求額 #------------------------------------------------- [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) #------------------------------------------------- # レコードを保存 #------------------------------------------------- [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) #------------------------------------------------- # 請求額_鑑_金額表示 #------------------------------------------------- [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) #請求額_鑑_金額表示済フラグ_1 setdouble($kagami_flg,1) #------------------------------------------------- # 請求額_金額表示 #------------------------------------------------- [kingaku_off] #SQL実行_明細_請求額 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) #請求額_金額表示済フラグ_1 setdouble($kingaku_off_flg,1) #請求額_鑑_金額表示（鑑の請求額を上書き表示） case($kagami,$kagami_flg,0,1,0) #請求額_鑑_金額表示 iterate(kagami,$kagami) #------------------------------------------------- # 見出し作成 #------------------------------------------------- [CreateHedder] formatspecialrow($_row,0,9,13) #1行目 putcell($_row,19,$tait) #ページNo.表示処理_26行出力したらカウントアップ div($row_no,25,$kekka,$amari) case($amari_flg,$amari,0,1) sum($amari_flg_sum,$amari_flg) #ページNo.表示処理 concatenate($amari_flg_disp,Page.,$amari_flg_sum) putcell($_row,33,$amari_flg_disp) putline(,) #2行目 putcell($_row,26,発行日：) putcell($_row,29,$seikyu_ymd_s) putline(,) #3行目 putcell($_row,4,$yubin_no) concatenate($tok_cd_s,お客様コード:,$tok_cd) putcell($_row,33,$tok_cd_s) putline(,) #4行目 putcell($_row,4,$address1) putcell($_row,21,$j_nm) putline(,) #5行目 putcell($_row,4,$address2) putcell($_row,21,$j_post_s) putcell($_row,24,$j_address) putline(,) #6行目 putcell($_row,4,$address3) putcell($_row,21,$j_tel_s) putcell($_row,27,$j_fax_s) putline(,) #7行目 putcell($_row,4,$tok_nm_s) putcell($_row,21,$j_url_s) putline(,) #8行目 putcell($_row,4,$tok_tan) putcell($_row,20,振込先：) putline(,) #9行目 subroutine(SelectRecords_Furi) setdouble($furikomi,$_row) loop(Furikomi,@rs2) putline(,) #10行目 putcell($_row,2,$mongon1) putline(,) #11行目 putcell($_row,2,$mongon2) putcell($_row,20,$mongon4) putline(,) #12行目 putcell($_row,2,$mongon3) putcell($_row,20,$mongon5) putline(,) #13行目 putline(,) #見出し作成 formatspecialrow($_row,0,1,3) putcell($_row,2,前回請求額) putcell($_row,7,入金額) putcell($_row,11,繰越額) putcell($_row,15,御買上金額) putcell($_row,19,消費税等) putcell($_row,23,当月御買上金額) putcell($_row,29,今回請求額) putline(,) #請求額_金額_座標 setdouble($seikyu_num,$_row) #空行 putline(,) putline(,) #明細_見出し formatspecialrow($_row,0,4,1) putcell($_row,2,日付) putcell($_row,4,品名) putcell($_row,16,数量) putcell($_row,19,単位) putcell($_row,21,単価) putcell($_row,25,金額) putcell($_row,29,備考) putline(,) #請求額_金額表示_初回のみ表示 case($kingaku_off,$kingaku_off_flg,0,1,0) #請求額_金額表示 iterate(kingaku_off,$kingaku_off) #------------------------------------------------- # 改ページ処理_鑑 #------------------------------------------------- [kagami_pgb] #改ページ挿入（1ページ目のみ） HPAGEBREAK($_row) #------------------------------------------------- # 改ページ処理 #------------------------------------------------- [page_flg] #改ページ挿入 HPAGEBREAK($_row) #見出し作成 subroutine(CreateHedder) #------------------------------------------------- # 改ページ処理 #------------------------------------------------- [PageBreak] #２５行ごとに改ページ div($row_no,25,$kekka,$amari) #明細行が２５行なら改ページ case($page_flg,$amari,0,1,0) #改ページ処理 iterate(page_flg,$page_flg) #------------------------------------------------- # 明細処理_現場表示 #------------------------------------------------- [nonyu] #改ページ処理 subroutine(PageBreak) #明細処理_現場名 formatspecialrow($_row,0,5,1) putcell($_row,2,@rs1.nonyu_no) putcell($_row,4,@rs1.nonyu_nm) putline(,) #明細_行数カウント sum($row_no,1) #------------------------------------------------- # 明細処理_小計表示 #------------------------------------------------- [nonyu_sum] #改ページ処理 subroutine(PageBreak) #明細処理_小計 formatspecialrow($_row,0,6,1) putcell($_row,25,小計) putcell($_row,29,$kingaku_sum) putline(,) #明細_行数カウント sum($row_no,1) #------------------------------------------------- # Key1設定ルーチン #------------------------------------------------- [KeyInfo_key1] keyvalue(@rs1.tok_cd) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1開始時 #------------------------------------------------- [GroupBegin_key1] deforgpage(blank) #Importするかどうか,FormatNormalするかどうか pageopen(true,false) deforgpage(formats) resetorg() #ページ番号_初期化 setdouble($amari_flg_sum,0) #小計_金額_初期化 setdouble($kingaku_sum,0) #改ページ処理フラグ setdouble($page_flg,0) #請求額_金額表示済フラグ setdouble($kingaku_off_flg,0) #請求額_鑑_金額表示済フラグ setdouble($kagami_flg,0) #明細処理_現場表示 setdouble($nonyu_flg,0) #明細処理_小計表示 setdouble($nonyu_sum_flg,0) #明細_行数カウント setdouble($row_no,0) #ページカウント setdouble($amari_sum,0) #レコード保存 subroutine(SetRecord) #------------------------------------------------- # Key1終了時 #------------------------------------------------- [GroupEnd_key1] #FormatNormalするかどうか pageclose(false) #------------------------------------------------- # Key2設定ルーチン #------------------------------------------------- [KeyInfo_Key2] keyvalue(@rs1.tok_cd,@rs1.concat_nonyu) keybreakproc(GroupBegin_Key2,GroupEnd_Key2) #------------------------------------------------- # Key2開始時 #------------------------------------------------- [GroupBegin_Key2] #明細_行数カウント_開始 setdouble($row_no,0) #請求額_金額表示済フラグ_0 setdouble($kingaku_off_flg,0) #小計_金額_初期化 setdouble($kingaku_sum,0) #明細処理_現場表示_非表示（1回目は非表示） case($nonyu,$nonyu_flg,0,0,1) #明細処理_現場表示 iterate(nonyu,$nonyu) setdouble($nonyu_flg,1) #------------------------------------------------- # Key2終了時 #------------------------------------------------- [GroupEnd_Key2] #明細処理_小計表示_非表示 case($nonyu_sum,$nonyu_sum_flg,0,0,1) #改ページ挿入（1ページ目のみ） case($kagami_pgb,$nonyu_sum_flg,0,1,0) #明細処理_小計表示 iterate(nonyu_sum,$nonyu_sum) #改ページ挿入（1ページ目のみ） iterate(kagami_pgb,$kagami_pgb) setdouble($nonyu_sum_flg,1) #------------------------------------------------- # 明細表示処理 #------------------------------------------------- [PrintNormal] #改ページ処理 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#,,,,) #明細_行数カウント sum($row_no,1) #小計_金額 sum($kingaku_sum,@rs1.kingaku)