[Main]
dbuse(true)
initparam(printMode,reportId,month_fr,month_to)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key1)
printreport($printMode,true)

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

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

#開始行番号
setdouble($row_no,5)
setdouble($total_row,4)
setdouble($gokei,0)
concatenate($ym,@rs1.dts_ym)

#ヘッダ処理
putcell(2,2,@rs1.title)

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
case($ym_d,$ym)
putcell($total_row,2,$gokei)

#フォーマット整理
sum($total_row,1)
formatspecialrow($total_row,0,5,1)
sum($row_no,-1)
formatspecialrow($row_no,0,7,1)

pageclose(false)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$month_fr)
addparam($param,$month_to)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]

formatspecialrow($row_no,0,6,1)
putline(@rs1.name_customer,@rs1.weight_sale#)

#総合計加算
sum($gokei,@rs1.weight_sale)

sum($row_no,1)