[Main] dbuse(true) initparam(printMode,reportId,s_id) deforgpage(blank) defheadarea(hed) defbodyarea(mei) subroutine(SelectRecords_Jisya) subroutine(SelectRecords) loop(PrintNormal,@rs1,Key0,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) #------------------------------------------------- # 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) #------------------------------------------------- # #変数_初期化 #------------------------------------------------- [set_variable] #改ページ処理フラグ_初期値 setdouble($page_flg,0) #請求額_金額非表示フラグ_初期値 setdouble($kingaku_off_flg,0) #明細_行数カウント_初期値 setdouble($row_no,0) #明細_運賃_初期値 setdouble($freight_sum,0) #明細_通行料_初期値 setdouble($toll_sum,0) #ページ番号_初期値 setdouble($amari_flg_sum,1) #------------------------------------------------- # 請求額_金額表示非表示 #------------------------------------------------- [kingaku_off] #SQL実行_明細_請求額 subroutine(SelectRecords_mei) putcell($_row,26,@rs3.kazei_gaku) putcell($_row,31,@rs3.zei_gaku) putcell($_row,36,@rs3.hikazei_gaku) putcell($_row,45,@rs3.zeikomi_gaku) #請求額_金額非表示フラグ_1 sum($kingaku_off_flg,1) #------------------------------------------------- # 振込機関出力処理 #------------------------------------------------- [Furikomi] putcell($furikomi,36,@rs2.furikikan) sum($furikomi,1) #------------------------------------------------- # #ヘッダー作成 #------------------------------------------------- [CreateHedder] formatspecialrow($_row,0,1,16) #1行目 putcell($_row,26,@rs0.tait) putline(,) #2行目 putcell($_row,5,@rs1.yubin_no) putcell($_row,42,発行日：) putcell($_row,45,@rs1.seikyu_ymd_s) putline(,) #3行目 putcell($_row,5,@rs1.address1) putcell($_row,45,@rs1.seikyu_ymd_s) putline(,) #4行目 putcell($_row,5,@rs1.address2) putcell($_row,36,@rs0.j_nm) putline(,) #5行目 putcell($_row,5,@rs1.address3) putcell($_row,33,本社：) putcell($_row,36,@rs0.j_post_s) putcell($_row,40,@rs0.j_address) putline(,) #6行目 putcell($_row,5,@rs1.tok_nm_s) putcell($_row,36,@rs0.j_tel_s) putcell($_row,43,@rs0.j_fax_s) putline(,) #7行目 putcell($_row,5,@rs1.tok_tan) putcell($_row,36,@rs0.j_url_s) putline(,) #8行目 #putcell($_row,5,@rs1.tel_no) putcell($_row,36,摂津営業所・茨木営業所・東京営業所)#debug putline(,) #9行目 putcell($_row,5,@rs0.mongon1) putcell($_row,33,振込先：) subroutine(SelectRecords_Furi) setdouble($furikomi,$_row) loop(Furikomi,@rs2) putline(,) #10行目 putcell($_row,5,@rs0.mongon2) putline(,) #11行目 putcell($_row,5,@rs0.mongon3) putline(,) #12行目 putcell($_row,5,@rs1.tok_cd_s) #ページNo.表示処理 concatenate($amari_flg_disp,Page.,$amari_flg_sum) putcell($_row,47,$amari_flg_disp) putline(,) #13行目_請求額_見出し putcell($_row,26,課税売上金額) putcell($_row,31,消費税) putcell($_row,36,非課税金額) putcell($_row,45,当月御買上金額) putline(,) #14行目_請求額_金額表示_非表示（1ページ目だけ金額表示） case($kingaku_off,$kingaku_off_flg,0,1,0) #請求額_金額表示非表示 iterate(kingaku_off,$kingaku_off) putline(,) #15行目_空行 putline(,) #16行目_明細_見出し putcell($_row,2,日付) putcell($_row,4,伝票No) putcell($_row,6,伝区) putcell($_row,8,車番) putcell($_row,10,車種) putcell($_row,12,運行区間) putcell($_row,32,摘要) putcell($_row,37,運賃) putcell($_row,41,通行料) putcell($_row,45,備考) putline(,) #------------------------------------------------- # 改ページ処理 #------------------------------------------------- [page_flg] #改ページ挿入 HPAGEBREAK($_row) #見出し作成 subroutine(CreateHedder) #------------------------------------------------- # 改ページ処理フラグ #------------------------------------------------- [PageBreak] #13行ごとに改ページ div($row_no,13,$kekka,$amari) #明細行が13行なら改ページ case($page_flg,$amari,0,1,0) #ページ番号_カウントアップ sum($amari_flg_sum,$page_flg) #改ページ処理フラグ iterate(page_flg,$page_flg) #------------------------------------------------- # 明細処理_現場表示 #------------------------------------------------- [nonyu] #明細処理_現場名 formatspecialrow($_row,0,19,1) putcell($_row,2,@rs1.nonyu_no) putcell($_row,4,@rs1.nonyu_nm) putline(,) #明細_行数カウント sum($row_no,1) #改ページ処理 subroutine(PageBreak) #------------------------------------------------- # 明細処理_小計表示 #------------------------------------------------- [nonyu_sum] #明細処理_小計 formatspecialrow($_row,0,18,1) putcell($_row,2,) putcell($_row,4,) putcell($_row,6,) putcell($_row,8,) putcell($_row,10,) putcell($_row,12,) putcell($_row,22,) putcell($_row,32,*合計*) putcell($_row,45,) putline(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,$freight_sum#,,,,$toll_sum#,,,,,,,,) putformula($_row,29,$sum) putline(,) #明細_行数カウント sum($row_no,1) #改ページ処理 subroutine(PageBreak) #改ページ挿入 HPAGEBREAK($_row) #------------------------------------------------- # 改ページ挿入（1ページ目のみ） #------------------------------------------------- [kagami_pgb] #改ページ挿入 HPAGEBREAK($_row) #------------------------------------------------- # Key0設定ルーチン #------------------------------------------------- [KeyInfo_Key0] keyvalue(dummy) keybreakproc(GroupBegin_Key0,GroupEnd_Key0) #------------------------------------------------- # Key0開始時 #------------------------------------------------- [GroupBegin_Key0] deforgpage(blank) #Importするかどうか,FormatNormalするかどうか pageopen(true,false) deforgpage(formats) resetorg() #------------------------------------------------- # Key0終了時 #------------------------------------------------- [GroupEnd_Key0] pageclose(false) #------------------------------------------------- # Key1設定ルーチン #------------------------------------------------- [KeyInfo_key1] #keyvalue(@rs1.skbn,@rs1.tok_cd) keyvalue(@rs1.tok_cd,@rs1.tok_nm) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1開始時 #------------------------------------------------- [GroupBegin_key1] #変数_初期化 subroutine(set_variable) #ヘッダー作成 #subroutine(CreateHedder) #------------------------------------------------- # Key1終了時 #------------------------------------------------- [GroupEnd_key1] #改ページ挿入 HPAGEBREAK($_row) #------------------------------------------------- # Key2設定ルーチン #------------------------------------------------- [KeyInfo_Key2] keyvalue(@rs1.tok_cd,@rs1.tok_nm,@rs1.concat_nonyu) keybreakproc(GroupBegin_Key2,GroupEnd_Key2) #------------------------------------------------- # Key2開始時 #------------------------------------------------- [GroupBegin_Key2] #ページ番号_初期値 setdouble($amari_flg_sum,1) #明細_行数カウント_開始 setdouble($row_no,0) #明細_運賃_初期値 setdouble($freight_sum,0) #明細_通行料_初期値 setdouble($toll_sum,0) #請求額_金額表示済フラグ_0 setdouble($kingaku_off_flg,0) #見出し作成 subroutine(CreateHedder) #現場表示_非表示（納入先がなければ非表示） case($nonyu,@rs1.concat_nonyu,,0,1) #現場表示 iterate(nonyu,$nonyu) #------------------------------------------------- # 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] formatspecialrow($_row,0,17,1) putcell($_row,2,@rs1.den_dt) putcell($_row,4,@rs1.den_no) putcell($_row,6,@rs1.kbn) putcell($_row,8,@rs1.haiso_info1) putcell($_row,10,@rs1.haiso_info2) putcell($_row,12,@rs1.chimei1_nm) putcell($_row,22,@rs1.chimei2_nm) putcell($_row,32,@rs1.hin_nm) putcell($_row,45,@rs1.biko) putline(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.freight#,,,,@rs1.toll#,,,,,,,,) #putline(,10/25,,65021,,売上,,47-17,,１ＢＯＸ,,日冷移動(高槻)　4ｔ,,,,,,,,,,大阪北区　追加助手　ｋ,,,,,,,,,,運賃,,,,,運賃 ,,,,通行料 ,,,,備考,,,,)#putcell_座標 #明細_行数カウント sum($row_no,1) #明細_運賃 sum($freight_sum,@rs1.freight) #明細_通行料 sum($toll_sum,@rs1.toll) #改ページ処理 subroutine(PageBreak)