[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,8,@rs1.output_ymd_s) putline(,)#改行 #3行目#見出し処理 formatspecialrow($_row,0,3,1) #乗務員,売上,%引,差引,燃費料,修理費,タイヤ・幌,高速プレート,保険,社保,車輛使用,事故,高速フェリー,その他2,運行費,その他,合計,差引金額 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,高速フェリー) putcell($_row,15,その他2) putcell($_row,16,運行費) putcell($_row,17,その他) putcell($_row,18,合計) putcell($_row,19,差引金額) putline(,)#改行 #------------------------------------------------- # #変数_初期化 #------------------------------------------------- [set_variable] #小計:運賃収入 setdouble($zeinuki_gaku_sum,0) #小計:傭車料 setdouble($genka1_gaku_sum,0) #小計:差益 setdouble($saeki_sum,0) #小計:構成比 setdouble($component_sum,0) #合計:運賃収入 setdouble($zeinuki_gaku_sum_sum,0) #合計:傭車料 setdouble($genka1_gaku_sum_sum,0) #合計:差益 setdouble($saeki_sum_sum,0) #合計:構成比 setdouble($component_sum_sum,0) #合計:税 setdouble($zei_sum,0) #合計:当月合計 #setdouble($zei_sum,0) #putline(,,@rs1.uriage#,@rs1.kousu_keisu#,差引#,@rs1.keihi1#,@rs1.keihi2#,@rs1.keihi3#,@rs1.keihi4#,@rs1.keihi5#,@rs1.keihi6#,@rs1.keihi7#,@rs1.keihi8#,@rs1.keihi9#,@rs1.keihi10#,@rs1.keihi11#,@rs1.keihi12#,@rs1.gokei_keihi#,差引金額#)#debug #*合計*:売上 setdouble($uriage_sum,0) #*合計*:%引 setdouble($p_hiki_sum,0) #*合計*:差引 setdouble($sa_hiki_sum,0) #*合計*:燃費料 setdouble($keihi1_sum,0) #*合計*:修理費 setdouble($keihi2_sum,0) #*合計*:タイヤ・幌 setdouble($keihi3_sum,0) #*合計*:高速プレート setdouble($keihi4_sum,0) #*合計*:保険 setdouble($keihi5_sum,0) #*合計*:社保 setdouble($keihi6_sum,0) #*合計*:車輛使用 #setdouble($keihi7_sum,0) #*合計*:事故 setdouble($keihi8_sum,0) #*合計*:高速フェリー setdouble($keihi9_sum,0) #*合計*:その他2 setdouble($keihi10_sum,0) #*合計*:運行費 setdouble($keihi11_sum,0) #*合計*:その他 #setdouble($keihi12_sum,0) #*合計*:合計 #setdouble($gokei_keihi_sum,0) #*合計*:差引金額 #setdouble($sahiki_gokei_sum,0) #------------------------------------------------- # 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,2,*総合計*) putline(,,$uriage_sum#,$p_hiki_sum#,$sa_hiki_sum#,$keihi1_sum#,$keihi2_sum#,$keihi3_sum#,$keihi4_sum#,$keihi5_sum#,$keihi6_sum#,$keihi7_sum#,$keihi8_sum#,$keihi9_sum#,$keihi10_sum#,$keihi11_sum#,$keihi12_sum#,$gokei_keihi_sum#,$sahiki_gokei_sum#)#debug pageclose(false) #------------------------------------------------- # Key1設定ルーチン #------------------------------------------------- [KeyInfo_key1] keyvalue(dummy) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1開始時 #------------------------------------------------- [GroupBegin_key1] #------------------------------------------------- # Key1終了時 #------------------------------------------------- [GroupEnd_key1] #------------------------------------------------- # 明細表示処理 #------------------------------------------------- [PrintNormal] formatspecialrow($_row,0,4,1) putcell($_row,2,@rs1.haiso_tan_nm) #putcell($_row,3,@rs1.sir_nm) #putcell($_row,4,@rs1.eig_nm) putline(,,@rs1.uriage#,@rs1.kousu_keisu#,差引#,@rs1.keihi1#,@rs1.keihi2#,@rs1.keihi3#,@rs1.keihi4#,@rs1.keihi5#,@rs1.keihi6#,@rs1.keihi7#,@rs1.keihi8#,@rs1.keihi9#,@rs1.keihi10#,@rs1.keihi11#,@rs1.keihi12#,@rs1.gokei_keihi#,差引金額#)#debug #*合計*:売上 sum($uriage_sum,@rs1.uriage) #*合計*:%引（未実装） sum($p_hiki_sum,0) #*合計*:差引（未実装） sum($sa_hiki_sum,0) #*合計*:燃費料 sum($keihi1_sum,@rs1.keihi1) #*合計*:修理費 sum($keihi2_sum,@rs1.keihi2) #*合計*:タイヤ・幌 sum($keihi3_sum,@rs1.keihi3) #*合計*:高速プレート sum($keihi4_sum,@rs1.keihi4) #*合計*:保険 sum($keihi5_sum,@rs1.keihi5) #*合計*:社保 sum($keihi6_sum,@rs1.keihi6) #*合計*:車輛使用 sum($keihi7_sum,@rs1.keihi7) #*合計*:事故 sum($keihi8_sum,@rs1.keihi8) #*合計*:高速フェリー sum($keihi9_sum,@rs1.keihi9) #*合計*:その他2 sum($keihi10_sum,@rs1.keihi10) #*合計*:運行費 sum($keihi11_sum,@rs1.keihi11) #*合計*:その他 sum($keihi12_sum,@rs1.keihi12) #*合計*:合計 sum($gokei_keihi_sum,@rs1.gokei_keihi) #*合計*:差引金額（未実装） sum($sahiki_gokei_sum,0)