[Main]
dbuse(true)
initparam(printMode,reportId,anken_cd,syori_ymd_fr,syori_ymd_to,base_ymd,kousyu_cd,chk_row1,chk_row2,chk_row3,chk_row4,chk_row5,chk_row6,tan_cd,status_jucyu,status_mi,status_end,status_stop,status_cancel,sedai_cd,anken_kbn)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key0,Key1,Key2)
printreport($printMode,true)

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

#-------------------------------------------------
#  Key0開始時
#-------------------------------------------------
[GroupBegin_key0]
deforgpage(blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(false,false)
deforgpage(formats)
resetorg()
#ヘッダ処理
subroutine(PrintHeader)
setdouble($row,7)

#-------------------------------------------------
#  Key0終了時
#-------------------------------------------------
[GroupEnd_key0]
#FormatNormalするかどうか
pageclose(false)

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

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
putcell($row,1,@rs1.anken_cd)
putcell($row,2,@rs1.anken_nm)
putcell($row,3,@rs1.start_ymd)
putcell($row,4,@rs1.jucyu_ymd)
putcell($row,5,@rs1.end_ymd)
putcell($row,6,@rs1.tan1_nm)
putcell($row,7,@rs1.tan2_nm)
putcell($row,8,@rs1.tan3_nm)
putcell($row,9,@rs1.tan4_nm)
putcell($row,10,@rs1.tan5_nm)
putcell($row,11,@rs1.tan6_nm)
putcell($row,12,@rs1.tan7_nm)
putcell($row,13,@rs1.tan8_nm)
putcell($row,14,@rs1.hin_nm)
putcell($row,15,@rs1.addr1)
putcell($row,16,@rs1.space_info)
putcell($row,17,@rs1.kingaku)
putcell($row,18,@rs1.all_op_nm)

setdouble($row_cnt,0)
setdouble($row_anken,$row)

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
#formatspecialrow($row_end,0,9,1)
mergecells($row_anken,1,$row_cnt,1)
mergecells($row_anken,2,$row_cnt,1)
mergecells($row_anken,3,$row_cnt,1)
mergecells($row_anken,4,$row_cnt,1)
mergecells($row_anken,5,$row_cnt,1)
mergecells($row_anken,6,$row_cnt,1)
mergecells($row_anken,7,$row_cnt,1)
mergecells($row_anken,8,$row_cnt,1)
mergecells($row_anken,9,$row_cnt,1)
mergecells($row_anken,10,$row_cnt,1)
mergecells($row_anken,11,$row_cnt,1)
mergecells($row_anken,12,$row_cnt,1)
mergecells($row_anken,13,$row_cnt,1)
mergecells($row_anken,14,$row_cnt,1)
mergecells($row_anken,15,$row_cnt,1)
mergecells($row_anken,16,$row_cnt,1)
mergecells($row_anken,17,$row_cnt,1)
mergecells($row_anken,18,$row_cnt,1)
setborder($row_end,0,1,0,1,170,001000,1,2,0)

#-------------------------------------------------
#  Key2設定ルーチン
#-------------------------------------------------
[KeyInfo_key2]
keyvalue(@rs1.anken_cd,@rs1.no)
keybreakproc(GroupBegin_key2,GroupEnd_key2)

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
formatspecialrow($row,0,@rs1.format_row_i,1)
#日付書式がおかしいため、再セット STT
putcell($row_anken,3,@rs1.start_ymd)
putcell($row_anken,4,@rs1.jucyu_ymd)
putcell($row_anken,5,@rs1.end_ymd)
#日付書式がおかしいため、再セット END
putcell($row,19,@rs1.title)
setdouble($col,20)
setdouble($row_end,$row)

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
sum($row,1)
sum($row_cnt,1)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$anken_cd)
addparam($param,$syori_ymd_fr)
addparam($param,$syori_ymd_to)
addparam($param,$kousyu_cd)
addparam($param,$chk_row1)
addparam($param,$chk_row2)
addparam($param,$chk_row3)
addparam($param,$chk_row4)
addparam($param,$chk_row5)
addparam($param,$chk_row6)
addparam($param,$tan_cd)
addparam($param,$status_jucyu)
addparam($param,$status_mi)
addparam($param,$status_end)
addparam($param,$status_stop)
addparam($param,$status_cancel)
addparam($param,$sedai_cd)
addparam($param,$anken_kbn)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
putcell(4,$col,@rs1.koutei_nm)
putcell($row,$col,@rs1.meisai)
case($paint_bk,@rs1.d_status,0,0,1)
iterate(PaintEndCell,$paint_bk)
sum($col,1)

[PaintEndCell]
setcellbgcolor($row,$col,@rs1.color_s)

[PrintHeader]
new($param)
dbselect(getTanKindList,@rs0,$param)
setdouble($w_col,6)
loop(PrintTanKind,@rs0)

[PrintTanKind]
putcell(5,$w_col,@rs0.tan_kind_nm)
sum($w_col,1)