[Main]
dbuse(true)
initparam(printMode,reportId,s_id,den_no,hasei_ymd_fr,hasei_ymd_to,sagyo_den_no,tan_cd,tok_cd,tok_nm,hin_no,clr_cd,clr_nm,size,disc_kbn,furyo_kbn,furyo_pls,sag_tan_cd,furyo_res_cd,furyo_res,res_dtl,biko,furyo_uti_kbn,furyo_syo_kbn)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key0,Key1)
printreport($printMode,true)

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

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

#ヘッダ処理
putcell(3,4,@rs1.hasei_ymd_s)

#行カウンタ
setdouble($current_row,0)
#-------------------------------------------------
#  Key0終了時
#-------------------------------------------------
[GroupEnd_key0]
#FormatNormalするかどうか
pageclose(false)
setdouble($current_row,0)
#-------------------------------------------------
#  Key1設定ルーチン
#-------------------------------------------------
[KeyInfo_key1]
keyvalue(DUMMY)
keybreakproc(GroupBegin_key1,GroupEnd_key1)

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
#HPAGEBREAK($_row)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$s_id)
addparam($param,$den_no)
addparam($param,$hasei_ymd_fr)
addparam($param,$hasei_ymd_to)
addparam($param,$sagyo_den_no)
addparam($param,$tan_cd)
addparam($param,$tok_cd)
addparam($param,$tok_nm)
addparam($param,$hin_no)
addparam($param,$clr_cd)
addparam($param,$clr_nm)
addparam($param,$size)
addparam($param,$disc_kbn)
addparam($param,$furyo_kbn)
addparam($param,$furyo_pls)
addparam($param,$sag_tan_cd)
addparam($param,$furyo_res_cd)
addparam($param,$furyo_res)
addparam($param,$res_dtl)
addparam($param,$biko)
addparam($param,$furyo_uti_kbn)
addparam($param,$furyo_syo_kbn)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
div($current_row,10,$kekka,$amari)
case($original_row,$amari,5,13,6,14,7,15,8,16,9,17,18)
formatspecialrow($_row,0,$original_row,1)
#putline(1,,,4,,,7,,9,,11,,13,,,16,,,,20,,,23,,,,,,29,,,,,,35,,,,,,41,,,,,,,,,,,,,54,,,,,,,,,,,,)
putline(@rs1.den_no,,,@rs1.hasei_ymd,,,@rs1.hin_no,,@rs1.clr_cd,,@rs1.size_nm,,@rs1.furyo_kbn_nm,,,@rs1.furyo_uti_kbn_nm,,,,@rs1.furyo_syo_kbn_nm,,,@rs1.disc_kbn_nm,,,,,,@rs1.furyo_res,,,,,,@rs1.sagyo_nm,,,,,,@rs1.res_dtl,,,,,,,,,,,,,@rs1.biko,,,,,,,,,,,,)
sum($current_row,1)