[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)
putcell($_row,12,@rs1.output_ymd)
#putcell($_row,14,$page_s)
putline(,)#改行
#3行目#見出し処理
formatspecialrow($_row,0,3,2)
putcell($_row,2,伝票No)
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(,)#改行
#4行目
putcell($_row,10,NO)
putcell($_row,11,種別)
putcell($_row,12,運賃収入)
putcell($_row,13,傭車料)
putcell($_row,14,社内運賃)
putline(,)#改行

#-------------------------------------------------
#  親明細作成(CreateDen)
#-------------------------------------------------
[CreateDen]
formatspecialrow($_row,0,5,1)
putcell($_row,2,@rs1.den_no)
putcell($_row,3,@rs1.eig_nm)
putcell($_row,4,@rs1.tok_nm)
putcell($_row,5,@rs1.tok_tan)
putcell($_row,6,@rs1.record_ymd)
putcell($_row,7,@rs1.syori_ymd)
putcell($_row,8,@rs1.haiso_info1)
putcell($_row,9,@rs1.haiso_info2)
putcell($_row,10,@rs1.haiso_tan_nm)
putcell($_row,11,@rs1.chimei1_nm)
putcell($_row,12,@rs1.chimei2_nm)
putcell($_row,13,@rs1.sir_nm)
putcell($_row,14,@rs1.biko2)
putline(,)#改行

#-------------------------------------------------
#  Key0設定ルーチン
#-------------------------------------------------
[KeyInfo_key0]
keyvalue(dummy)
keybreakproc(GroupBegin_key0,GroupEnd_key0)

#-------------------------------------------------
#  Key0開始時
#-------------------------------------------------
[GroupBegin_key0]
deforgpage(blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(true,false)
deforgpage(formats)
resetorg()

#変数初期値設定
#concatenate($page_s,Page:,$page)
concatenate($record_ymd_frto,@rs1.record_ymd_fr,　,〜,　,@rs1.record_ymd_to)
#ヘッダ処理
subroutine(CreateHedder)

#-------------------------------------------------
#  Key0終了時
#-------------------------------------------------
[GroupEnd_key0]
pageclose(false)

#-------------------------------------------------
#  Key1設定ルーチン
#-------------------------------------------------
[KeyInfo_key1]
keyvalue(@rs1.den_no)
keybreakproc(GroupBegin_key1,GroupEnd_key1)

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
subroutine(CreateDen)

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
formatspecialrow($_row,0,6,1)
putcell($_row,10,@rs1.row_no_s)
putcell($_row,11,@rs1.hin_nm)
putcell($_row,12,@rs1.kingaku)
putcell($_row,13,@rs1.genka1_gaku)
putcell($_row,14,@rs1.genka2_gaku)
putline(,)#改行