[Main] dbuse(true) #initparam(printMode,reportId,s_id,tok_cd,seikyu_ymd) initparam(printMode,reportId,s_id,shime_dd,syori_ymd_fr,syori_ymd_to,prc_sts,tok_cd_fr,tok_cd_to,nonyu_no_fr,nonyu_no_to,tan_cd_fr,tan_cd_to,hin_cd_fr,hin_cd_to,cat_cd_fr,cat_cd_to,den_no_fr,den_no_to,hin_nm,genka_flg,output_ymd) 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) addparam($param,$shime_dd) addparam($param,$syori_ymd_fr) addparam($param,$syori_ymd_to) addparam($param,$prc_sts) addparam($param,$tok_cd_fr) addparam($param,$tok_cd_to) addparam($param,$nonyu_no_fr) addparam($param,$nonyu_no_to) addparam($param,$tan_cd_fr) #10 addparam($param,$tan_cd_to) addparam($param,$hin_cd_fr) addparam($param,$hin_cd_to) addparam($param,$cat_cd_fr) addparam($param,$cat_cd_to) addparam($param,$den_no_fr) addparam($param,$den_no_to) addparam($param,$hin_nm) addparam($param,$genka_flg) #19 addparam($param,$output_ymd)#20 #addparam($param,$seikyu_ymd) dbselect(SelectRecords,@rs1,$param) #------------------------------------------------- # ヘッダ作成 #------------------------------------------------- [CreateHedder] #ヘッダ処理 formatspecialrow($_row,0,1,2) #1行目 putcell($_row,2,@rs0.tait) putline(,)#改行 #2行目 putcell($_row,2,$record_ymd_frto)#debug #putcell($_row,7,作成日) putcell($_row,12,@rs1.output_ymd_s) putline(,)#改行 #3行目#見出し処理 formatspecialrow($_row,0,3,1) #売上日,得意先,,積地,降地,車種,軒増,運賃収入,留置量,通行料,諸経費,運賃合計,社内運賃, putcell($_row,2,) putcell($_row,3,売上日) putcell($_row,4,得意先) putcell($_row,5,) putcell($_row,6,積地) putcell($_row,7,降地) putcell($_row,8,車種) putcell($_row,9,運賃収入) putcell($_row,10,留置料) putcell($_row,11,通行料) putcell($_row,12,諸経費) putcell($_row,13,運賃合計) putcell($_row,14,社内運賃) putline(,)#改行 #------------------------------------------------- # #変数_初期化 #------------------------------------------------- [set_variable] #小計:運賃収入 setdouble($zeinuki_gaku_sum,0) #小計:傭車料 setdouble($genka1_gaku_sum,0) #小計:通行料 setdouble($component_sum,0) #小計:諸経費 setdouble($syo_gaku_sum,0) #小計:運賃合計 setdouble($kingaku_sum,0) #小計:社内運賃 setdouble($syanai_sum,0) #合計:運賃収入 setdouble($zeinuki_gaku_sum_sum,0) #合計:傭車料 setdouble($genka1_gaku_sum_sum,0) #合計:通行料 setdouble($component_sum_sum,0) #合計:諸経費 setdouble($syo_gaku_sum_sum,0) #合計:運賃合計 setdouble($kingaku_sum_sum,0) #合計:社内運賃 setdouble($syanai_sum_sum,0) #改ページ_小計カウント_初期値 setdouble($r_cnt,0) #処理YMDfr~to concatenate($record_ymd_frto,@rs1.record_ymd_fr,　,〜,　,@rs1.record_ymd_to) #------------------------------------------------- # 改ページ処理 #------------------------------------------------- [P_break] #改ページ挿入 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() #変数_初期化 subroutine(set_variable) #ヘッダ処理 subroutine(CreateHedder) #------------------------------------------------- # Key0終了時 #------------------------------------------------- [GroupEnd_key0] formatspecialrow($_row,0,6,1) putcell($_row,3,) putcell($_row,4,) putcell($_row,5,) putcell($_row,6,) putcell($_row,7,) putcell($_row,8,*総合計*) putline(,,,,,,,,$zeinuki_gaku_sum_sum#,$genka1_gaku_sum_sum#,$component_sum_sum#,$syo_gaku_sum_sum#,$kingaku_sum_sum#,$syanai_sum_sum#) pageclose(false) #------------------------------------------------- # Key1設定ルーチン #------------------------------------------------- [KeyInfo_key1] keyvalue(@rs1.haiso_kanri_cd,@rs1.haiso_info1) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1開始時 #------------------------------------------------- [GroupBegin_key1] #改ページ処理_小計カウント case($p_break,$r_cnt,0,0,1) #改ページ処理 iterate(P_break,$p_break) formatspecialrow($_row,0,4,1) putcell($_row,2,@rs1.haiso_kanri_cd) putcell($_row,3,@rs1.haiso_info1) putline(,) #小計:運賃収入 setdouble($zeinuki_gaku_sum,0) #小計:傭車料 setdouble($genka1_gaku_sum,0) #小計:通行料 setdouble($component_sum,0) #小計:諸経費 setdouble($syo_gaku_sum,0) #小計:運賃合計 setdouble($kingaku_sum,0) #小計:社内運賃 setdouble($syanai_sum,0) #------------------------------------------------- # Key1終了時 #------------------------------------------------- [GroupEnd_key1] formatspecialrow($_row,0,6,1) putcell($_row,3,) putcell($_row,4,) putcell($_row,5,) putcell($_row,6,) putcell($_row,7,) putcell($_row,8,*合計*) putline(,,,,,,,,$zeinuki_gaku_sum#,$genka1_gaku_sum#,$component_sum#,$syo_gaku_sum#,$kingaku_sum#,$syanai_sum#) #合計:運賃収入 sum($zeinuki_gaku_sum_sum,$zeinuki_gaku_sum) #合計:傭車料 sum($genka1_gaku_sum_sum,$genka1_gaku_sum) #合計:通行料 sum($component_sum_sum,$component_sum)#debug #合計:諸経費 sum($syo_gaku_sum_sum,$syo_gaku_sum) #合計:運賃合計 sum($kingaku_sum_sum,$kingaku_sum) #合計:社内運賃 sum($syanai_sum_sum,$syanai_sum) #改ページ処理_小計flg setdouble($r_cnt,1) #------------------------------------------------- # 明細表示処理 #------------------------------------------------- [PrintNormal] formatspecialrow($_row,0,5,1) putcell($_row,3,@rs1.record_ymd) putcell($_row,4,@rs1.tok_cd) putcell($_row,5,@rs1.tok_nm) putcell($_row,6,@rs1.chimei1_nm) putcell($_row,7,@rs1.chimei2_nm) putcell($_row,8,@rs1.haiso_info2) putline(,,,,,,,,@rs1.zeinuki_gaku#,@rs1.ryuti_gaku#,@rs1.component2#,@rs1.syo_gaku#,@rs1.kingaku#,@rs1.genka2_gaku#) #小計:運賃収入 sum($zeinuki_gaku_sum,@rs1.zeinuki_gaku) #小計:留置料 sum($ryuti_gaku_sum,@rs1.ryuti_gaku) #小計:通行料 sum($component_sum,@rs1.component2) #小計:諸経費 sum($syo_gaku_sum,@rs1.syo_gaku) #小計:運賃合計 sum($kingaku_sum,@rs1.kingaku) #小計:社内運賃 sum($syanai_sum,@rs1.genka2_gaku)