[Main] dbuse(true) #initparam(printMode,reportId,s_id,tok_cd,seikyu_ymd) initparam(printMode,reportId,han_name,bum_cd,bum_nm,tok_cat_cd,tok_cat_nm,sir_cat_cd,sir_cat_nm,dcat_cd_fr,dcat_cd_to,dcat_nm_fr,dcat_nm_to,cat_cd_fr,cat_cd_to,cat_nm_fr,cat_nm_to,syori_ymd_fr,syori_ymd_to,taisyo_y,taisyo_m,tok_cd_fr,tok_cd_to,sir_cd_fr,sir_cd_to,tan_cd_fr,tan_cd_to,tan_nm_fr,tan_nm_to,hin_cd_fr,hin_cd_to,put_on,shime_dd,s_id,eig_cd_fr,eig_cd_to,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)#3 addparam($param,$syori_ymd_to)#4 addparam($param,$taisyo_y) addparam($param,$taisyo_m) addparam($param,$prc_sts) addparam($param,$tok_cd_fr)#8 addparam($param,$tok_cd_to) addparam($param,$nonyu_no_fr)#10 addparam($param,$nonyu_no_to) addparam($param,$tan_cd_fr) 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)#20 addparam($param,$genka_flg)#21 addparam($param,$output_ymd)#22 addparam($param,$sir_cd_fr)# addparam($param,$sir_cd_to)#24 addparam($param,$eig_cd_fr) addparam($param,$eig_cd_to) #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,@rs1.taisyo_ym_s) #putcell($_row,7,作成日) putcell($_row,8,@rs1.output_ymd_s) #putcell($_row,8,$output_ymd) 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,当月合計) 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($tougetsu_gaku_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,) putcell($_row,3,) putcell($_row,4,*総合計*) putline(,,,,$zeinuki_gaku_sum_sum#,$genka1_gaku_sum_sum#,$saeki_sum_sum#,,$zei_sum#,$tougetsu_gaku_sum#)#debug pageclose(false) #------------------------------------------------- # Key1設定ルーチン #------------------------------------------------- [KeyInfo_key1] keyvalue(@rs1.sir_cd) keybreakproc(GroupBegin_key1,GroupEnd_key1) #------------------------------------------------- # Key1開始時 #------------------------------------------------- [GroupBegin_key1] #小計:運賃収入 setdouble($zeinuki_gaku_sum,0) #小計:傭車料 setdouble($genka1_gaku_sum,0) #小計:差益 setdouble($saeki_sum,0) #小計:構成比 setdouble($component_sum,0) #小計:税 setdouble($zei,0) #小計:構成比 setdouble($tougetsu_gaku,0) formatspecialrow($_row,0,4,1) putcell($_row,2,@rs1.sir_cd) putcell($_row,3,@rs1.sir_nm) #------------------------------------------------- # Key1終了時 #------------------------------------------------- [GroupEnd_key1] formatspecialrow($_row,0,5,1) putcell($_row,2,) putcell($_row,3,) putcell($_row,4,*合計*) putline(,,,,$zeinuki_gaku_sum#,$genka1_gaku_sum#,$saeki_sum#,$component_sum#,$zei#,$tougetsu_gaku#)#debug #合計:運賃収入 sum($zeinuki_gaku_sum_sum,$zeinuki_gaku_sum) #合計:傭車料 sum($genka1_gaku_sum_sum,$genka1_gaku_sum) #合計:差益 sum($saeki_sum_sum,$saeki_sum) #合計:構成比 sum($component_sum_sum,$component_sum) #合計:税 sum($zei_sum,$zei) #合計:当月合計 sum($tougetsu_gaku_sum,$tougetsu_gaku) #------------------------------------------------- # 明細表示処理 #------------------------------------------------- [PrintNormal] formatspecialrow($_row,0,4,1) #putcell($_row,2,@rs1.sir_cd) #putcell($_row,3,@rs1.sir_nm) putcell($_row,4,@rs1.eig_nm) putline(,,,,@rs1.zeinuki_gaku#,@rs1.genka1_gaku#,@rs1.saeki#,@rs1.component#) #小計:運賃収入 sum($zeinuki_gaku_sum,@rs1.zeinuki_gaku) #小計:傭車料 sum($genka1_gaku_sum,@rs1.genka1_gaku) #小計:差益 sum($saeki_sum,@rs1.saeki) #小計:構成比 sum($component_sum,@rs1.component) #小計:税 sum($zei,@rs1.zei) #小計:当月合計 sum($tougetsu_gaku,@rs1.zei) sum($tougetsu_gaku,@rs1.genka1_gaku)