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

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

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


#開始行番号
setdouble($row_no,14)
setdouble($gokeisu,0)
setdouble($gokeikingaku,0)
setdouble($totaltax,0)


#ヘッダ処理
putcell(4,1,@rs1.name_customer)
#putcell(12,6,@rs1.rate_tax)
putcell(12,6,@rs1.RATE_TAX_HEADER)
putcell(3,8,@rs1.now)
putcell(9,7,@rs1.fsc)
putcell(10,7,@rs1.fsc2)

setdouble($tax_header,@rs1.TAX_HEADER)
setdouble($money_sale_header,@rs1.MONEY_SALE_HEADER)
setdouble($money_seikyu_key_header,@rs1.MONEY_SEIKYU_KEY_HEADER)

##得意先がクレシアかどうか
#case($kirisute,@rs1.cd_customer,1,0,2)

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

#合計行算出
setdouble($multi_row,0)
setdouble($d,$row_no)
setdouble($page,0)
setdouble($gokei_row,0)
diff($d,14)
realdiv($page,$d,26,0,0)
sum($page,1)
multi($multi_row,$page,26,0,0)
sum($multi_row,14)
setdouble($gokei_row,$multi_row)

#不足分の行描画
setdouble($paint_row,$gokei_row)
diff($paint_row,1)
formatspecialrow($paint_row,0,15,1)

#合計行記述
formatspecialrow($gokei_row,0,39,1)
putcell($gokei_row,1,合計)
putcell($gokei_row,5,$gokeisu)
#putcell($gokei_row,7,$gokeikingaku)
putcell($gokei_row,7,$money_sale_header)

#ヘッダ合計請求金額
putcell(12,1,合計請求金額)
##クレシアは小数切捨て、それ以外四捨五入
#multi($totaltax,$totaltax,1,$kirisute,0)
#putcell(12,8,$totaltax)
putcell(12,8,$tax_header)
putcell(12,5,税率)
#setdouble($total_money,$totaltax)
#sum($total_money,$gokeikingaku)
putcell(12,7,消費税額)
#putcell(12,4,$total_money)
putcell(12,4,$money_seikyu_key_header)
pageclose(false)

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

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

formatspecialrow($row_no,0,15,1)
putline(@rs1.dts_m,@rs1.dts_d,@rs1.name_product,,@rs1.cnt_data#,@rs1.unit_price_sale#,@rs1.money_sale#,@rs1.note)

#数量・金額加算
sum($gokeisu,@rs1.cnt_data)
sum($gokeikingaku,@rs1.money_sale)

#sum($totaltax,@rs1.tax)
multi($tax_sale,@rs1.money_sale,@rs1.rate_tax,0,2)
sum($totaltax,$tax_sale)

sum($row_no,1)