[Main]
dbuse(true)
initparam(printMode,reportId,anken_cd,syori_ymd_fr,syori_ymd_to)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key0)
printreport($printMode,true)

#-------------------------------------------------
#  Key0設定ルーチン
#-------------------------------------------------
[KeyInfo_key0]
keyvalue(@rs1.anken_cd)
keybreakproc(GroupBegin_key0,GroupEnd_key0)

#-------------------------------------------------
#  Key0開始時
#-------------------------------------------------
[GroupBegin_key0]
deforgpage(blank)
pageopen(true,false)
deforgpage(formats)
resetorg()

#ヘッダ処理
putcell(3,2,@rs1.anken_cd)
putcell(3,3,@rs1.anken_nm)
putcell(4,2,@rs1.tan_nm)
putcell(5,2,@rs1.op_nm)
setdouble($stt_row,$_row)
setdouble($row_cnt,0)

#-------------------------------------------------
#  Key0終了時
#-------------------------------------------------
[GroupEnd_key0]
formatspecialrowrange($stt_row,$row_cnt,11,1)
sum($_row,-1)
formatspecialrow($_row,0,11,1)
pageclose(false)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$anken_cd)
addparam($param,$syori_ymd_fr)
addparam($param,$syori_ymd_to)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
#formatspecialrow($_row,0,10,1)
concatenate($formula_str1,IF\x28RC8\x3d"" \x2c ""\x2c RC6-RC8\x29)
putformula($_row,10,$formula_str1)
#直前の行と同じなら表示しない
#concatenate($kousyu_nm,@rs1.kousyu_nm)
#case($kousyu_nm,@rs1.kousyu_nm,$kousyu_nm2,,$kousyu_nm)
#concatenate($kousyu_nm2,@rs1.kousyu_nm)
putline(@rs1.kousyu_nm,@rs1.koutei_nm,@rs1.kouki_std#,@rs1.kouki_opt#,@rs1.kouki#,@rs1.yotei_stt_time,@rs1.yotei_end_time,@rs1.stt_time,@rs1.end_time,,@rs1.status_nm)
sum($row_cnt,1)