[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,9,@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,通行料)
putline(,)#改行

#-------------------------------------------------
#  #変数_初期化
#-------------------------------------------------
[set_variable]
#小計:運賃収入
setdouble($zeinuki_gaku_sum,0)
#小計:傭車料
setdouble($genka1_gaku_sum,0)
#小計:通行料
setdouble($component2_sum,0)
#合計:運賃収入
setdouble($zeinuki_gaku_sum_sum,0)
#合計:傭車料
setdouble($genka1_gaku_sum_sum,0)
#合計:通行料
setdouble($component2_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#,$component2_sum_sum#)

pageclose(false)

#-------------------------------------------------
#  Key1設定ルーチン
#-------------------------------------------------
[KeyInfo_key1]
keyvalue(@rs1.haiso_tan_cd)
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_tan_cd)
putcell($_row,3,@rs1.haiso_tan_nm)
putline(,)

#小計:運賃収入
setdouble($zeinuki_gaku_sum,0)
#小計:傭車料
setdouble($genka1_gaku_sum,0)
#小計:通行料
setdouble($component2_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#,$component2_sum#)
#合計:運賃収入
sum($zeinuki_gaku_sum_sum,$zeinuki_gaku_sum)
#合計:傭車料
sum($genka1_gaku_sum_sum,$genka1_gaku_sum)
#合計:通行料
sum($component2_sum_sum,$component2_sum)#debug

#改ページ処理_小計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.genka1_gaku#,@rs1.component2#)
#小計:運賃収入
sum($zeinuki_gaku_sum,@rs1.zeinuki_gaku)
#小計:傭車料
sum($genka1_gaku_sum,@rs1.genka1_gaku)
#小計:通行料
sum($component2_sum,@rs1.component2)#debug