[Main] dbuse(true) initparam(printMode,reportId,s_id) deforgpage(blank) defheadarea(hed) defbodyarea(mei) subroutine(SelectRecords_Jisya) subroutine(SelectRecords) loop(PrintNormal,@rs1,Key0,Key1) 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_sum] new($param) addparam($param,$s_id) addparam($param,@rs1.tok_cd) addparam($param,@rs1.seikyu_ymd) dbselect(SelectRecords_sum,@rs3,$param) #------------------------------------------------- # 請求額_金額表示非表示 #------------------------------------------------- [kingaku_off] subroutine(SelectRecords_sum) #formatspecialrow($seikyu_num,0,2,1) #putcell($seikyu_num,7,@rs1.zen_seikyu_zan) putcell($_row,7,@rs3.asuryo_sum) putcell($_row,12,@rs3.kingaku_sum) putcell($_row,17,@rs3.zeinukigaku) putcell($_row,22,@rs3.zei) putcell($_row,27,@rs3.zeikomigaku) putcell($_row,34,@rs3.zeikomigaku) #請求額_金額非表示フラグ_1 sum($kingaku_off_flg,1) #------------------------------------------------- # 小計行作成 #------------------------------------------------- [CreateSumRow] formatspecialrow($_row,0,6,2) putline(,,,,,,,,,,,,,,,,,,,,,,$nyusyukkoryou_sum#,,,,,,,,,,,,$asuryo_sum#,) putcell($_row,2,【小計】) putline(,,,,,,,,,,,,,,,,,,,,,,$hokanryo_sum#,,,,,,,,,,,,$kingaku_sum#) #合計_積数加算 sum($nyusyukkoryou_sum_sum,$nyusyukkoryou_sum) #合計_積数加算 sum($hokanryo_sum_sum,$hokanryo_sum) #合計_積数加算 sum($asuryo_sum_sum,$asuryo_sum) #合計_積数加算 sum($kingaku_sum_sum,$kingaku_sum) #合計_保管積数_初期値 setdouble($nyusyukkoryou_sum,0) #合計_保管料_初期値 setdouble($hokanryo_sum,0) #合計_扱数量_初期値 setdouble($asuryo_sum,0) #合計_入出庫料_初期値 setdouble($kingaku_sum,0) #------------------------------------------------- # 合計行作成 #------------------------------------------------- [CreateSumSumRow] formatspecialrow($_row,0,6,2) putline(,,,,,,,,,,,,,,,,,,,,,,$nyusyukkoryou_sum_sum#,,,,,,,,,,,,$asuryo_sum_sum#,) putcell($_row,2,【合計】) putline(,,,,,,,,,,,,,,,,,,,,,,$hokanryo_sum_sum#,,,,,,,,,,,,$kingaku_sum_sum#) #------------------------------------------------- # 改ページ処理 #------------------------------------------------- [page_flg] #小計行作成 subroutine(CreateSumRow) #改ページ挿入 HPAGEBREAK($_row) #見出し作成 subroutine(CreateHedder) #------------------------------------------------- # 改ページ処理フラグ #------------------------------------------------- [PageBreak] #26行ごとに改ページ_現在行は26行かどうか div($row_no,26,$kekka,$amari) #明細行が26行なら改ページ処理フラグが立つ case($page_flg,$amari,0,1,0) #改ページ処理フラグが立てば_改ページ処理 iterate(page_flg,$page_flg) #------------------------------------------------- # 振込機関出力処理 #------------------------------------------------- [Furikomi] putcell($furikomi,24,@rs2.furikikan) sum($furikomi,1) #------------------------------------------------- # #ヘッダー作成 #------------------------------------------------- [CreateHedder] formatspecialrow($_row,0,9,12) #1行目 putcell($_row,17,@rs0.tait) putline(,) #2行目 putcell($_row,2,@rs1.yubin_no) putcell($_row,30,発行日：) putcell($_row,33,@rs1.seikyu_ymd_s) putline(,) #3行目 putcell($_row,2,@rs1.address1) putline(,) #4行目 putcell($_row,2,@rs1.address2) putcell($_row,25,@rs0.j_nm) putline(,) #5行目 putcell($_row,2,@rs1.address3) putcell($_row,25,@rs0.j_post_s) putcell($_row,28,@rs0.j_address) putline(,) #6行目 putcell($_row,2,@rs1.tok_nm_s) putcell($_row,25,@rs0.j_tel_s) putcell($_row,31,@rs0.j_fax_s) putline(,) #7行目 putcell($_row,2,@rs1.tok_tan) putcell($_row,25,@rs0.j_url_s) putline(,) #8行目 putcell($_row,24,振込先：) putline(,) #9行目 putcell($_row,2,@rs0.mongon1) subroutine(SelectRecords_Furi) setdouble($furikomi,$_row) loop(Furikomi,@rs2) putline(,) #10行目 putcell($_row,2,@rs0.mongon2) putline(,) #11行目 putcell($_row,2,@rs0.mongon3) putline(,) #12行目 putline(,) #13行目 formatspecialrow($_row,0,3,1) concatenate($tok_cd,お客様コード:,@rs1.tok_cd) putcell($_row,2,$tok_cd) #ページNo.表示処理_26行出力したらカウントアップ div($row_no,26,$kekka,$amari) case($amari_flg,$amari,0,1) sum($amari_flg_sum,$amari_flg) concatenate($amari_flg_disp,Page.,$amari_flg_sum) #ページNo.表示処理 putcell($_row,37,$amari_flg_disp) putline(,) #14行目 請求額_見出し formatspecialrow($_row,0,1,3) #putcell($_row,2,) putcell($_row,7,保管料) putcell($_row,12,入出庫料) putcell($_row,17,税抜御請求額) putcell($_row,22,消費税) putcell($_row,27,当月御買上金額) putcell($_row,34,今回御請求額) putline(,) #請求額_金額表示_非表示（1ページ目だけ金額表示） case($kingaku_off,$kingaku_off_flg,0,1,0) #請求額_金額表示非表示 iterate(kingaku_off,$kingaku_off) putline(,) #空行 putline(,) #明細_見出し formatspecialrow($_row,0,4,2) putcell($_row,2,品名) putcell($_row,14,前月末残) putcell($_row,17,入庫数) putcell($_row,20,出庫数) putcell($_row,23,保管積数) putcell($_row,27,保管単価) putcell($_row,31,入庫単価) putcell($_row,35,扱数量) putline(,) putcell($_row,2,) putcell($_row,14,上期残) putcell($_row,17,中期残) putcell($_row,20,下期残) putcell($_row,23,) putcell($_row,23,保管料) putcell($_row,31,出庫単価) putcell($_row,35,入出庫料) putline(,) #------------------------------------------------- # 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.tok_cd,@rs1.tok_nm) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1開始時 #------------------------------------------------- [GroupBegin_key1] #改ページ処理フラグ_初期値 setdouble($page_flg,0) #改ページ処理フラグ_初期値 setdouble($amari_flg,0) #改ページ処理フラグ_初期値 setdouble($amari_flg_sum,0) #請求額_金額非表示フラグ_初期値 setdouble($kingaku_off_flg,0) #明細_行数カウント_初期値 setdouble($row_no,0) #ページカウント_初期値 setdouble($amari_sum,0) #合計_保管積数_初期値 setdouble($nyusyukkoryou_sum,0) #合計_保管料_初期値 setdouble($hokanryo_sum,0) #合計_扱数量_初期値 setdouble($asuryo_sum,0) #合計_入出庫料_初期値 setdouble($kingaku_sum,0) #合計_保管積数_初期値 setdouble($nyusyukkoryou_sum_sum,0) #合計_保管料_初期値 setdouble($hokanryo_sum_sum,0) #合計_扱数量_初期値 setdouble($asuryo_sum_sum,0) #合計_入出庫料_初期値 setdouble($kingaku_sum_sum,0) #明細_行数カウント_初期値 setdouble($furikomi,12) #ヘッダー作成 subroutine(CreateHedder) #------------------------------------------------- # Key1終了時 #------------------------------------------------- [GroupEnd_key1] #小計行作成 subroutine(CreateSumRow) #合計行作成 subroutine(CreateSumSumRow) #改ページ挿入 HPAGEBREAK($_row) #------------------------------------------------- # 明細表示処理 #------------------------------------------------- [PrintNormal] formatspecialrow($_row,0,6,2) putline(,@rs1.brand_nm#,,,,,,,,,,,,@rs1.zen_stock#,,,@rs1.in_suryo#,,,@rs1.out_suryo#,,,@rs1.nyusyukkoryou#,,,,@rs1.tanka#,,,,@rs1.stanka#,,,,@rs1.asuryo#,) putline(,@rs1.hin_nm#,,,,,,,,,,,,@rs1.first_stock#,,,@rs1.medium_stock#,,,@rs1.second_stock#,,,@rs1.hokanryo#,,,,,,,,@rs1.htanka#,,,,@rs1.kingaku#) #合計_積数加算 sum($nyusyukkoryou_sum,@rs1.nyusyukkoryou) #合計_積数加算 sum($hokanryo_sum,@rs1.hokanryo) #合計_積数加算 sum($asuryo_sum,@rs1.asuryo) #合計_積数加算 sum($kingaku_sum,@rs1.kingaku) #明細_行数カウント sum($row_no,2) #改ページ処理 subroutine(PageBreak)