[Main]
dbuse(true)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,s_id,dummy,row_num,printop1,printop2,printop3,tax)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key1,Key2)
printreport($printMode,true,false)

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

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

#ヘッダ処理
putcell(2,25,@rs1.mitsumori_no)
putcell(15,7,@rs1.title1)
putcell(16,7,@rs1.title2)
putcell(17,7,@rs1.nonyu_nm)
putcell(18,7,@rs1.noki)
putcell(19,7,@rs1.mitsu_kigen_mongon)
putcell(20,7,@rs1.payment_term)
putcell(21,7,@rs1.u_biko1)
putcell(22,7,@rs1.u_biko2)
putcell(23,7,@rs1.u_biko3)
putcell(24,7,@rs1.u_biko4)
putcell(25,7,@rs1.u_biko5)
putcell(26,7,@rs1.u_biko6)

case($tax_on,$tax,1,1,0)
case($tax_off,$tax,1,0,1)
case($op1,$printop1,1,1,0)
case($op2,$printop2,1,1,0)
case($op3,$printop3,0,1,0)

#印字オプション_消費税表示_表示
iterate(tax_on,$tax_on)
#印字オプション_消費税表示_非表示
iterate(tax_off,$tax_off)
#印字オプション_見積日_表示
iterate(mitsumori_on,$op1)
#印字オプション_得意先名_表示
iterate(tokui_on,$op2)
#印字オプション_合計金額_非表示
iterate(sum_off,$op3)

#見積日_表示
[mitsumori_on]
putcell(4,28,@rs1.syori_ymd)

#得意先名_表示
[tokui_on]
putcell(6,2,@rs1.tok_nm)
putcell(6,16,御中)

#印字オプション_合計金額_非表示
[sum_off]
putcell(12,6,単価見積)

#印字オプション_消費税表示_表示
[tax_on]
putcell(12,6,@rs1.zeikomi_gaku)

#印字オプション_消費税表示_非表示
[tax_off]
putcell(12,6,@rs1.zeinuki_gaku)

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
subroutine(SelectRecords2)
loop(PrintNormal2,@rs2)

pageclose(false)

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

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
#頁format
#setdouble($page,@rs1.brkey)
#sum($page,1)
concatenate($page_num,表 ,@rs1.page_no,/,@rs1.max_page_no,ページ)

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
#フッタ処理
formatspecialrow($_row,0,37,3)
putline()
putcell($_row,15,内訳明細書)
putline()
putcell($_row,2,NO.)
putcell($_row,4,品名)
putcell($_row,12,仕様)
putcell($_row,20,数量)
putcell($_row,22,単位)
putcell($_row,24,単価)
putcell($_row,28,金額)

#フッタ_頁
#putcell($_row,29,$page_num)
putline()
#改ページ処理
#HPAGEBREAK($_row)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$dt_from)
addparam($param,$dt_to)
addparam($param,$uri_no)
addparam($param,$tokui_cd)
addparam($param,$syohin_nm)
addparam($param,$han_name)
addparam($param,$s_id)
addparam($param,$dummy)
addparam($param,$row_num)
addparam($param,$printop1)
addparam($param,$printop2)
addparam($param,$printop3)
addparam($param,$tax)
dbselect(selectRecords,@rs1,$param)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
#ユニット表示用_行位置
setdouble($row_no,$_row)

formatspecialrow($_row,0,33,1)
putcell($_row,2,@rs1.row_order)
putcell($_row,4,@rs1.hin_nm)
putcell($_row,22,@rs1.tani)
putline(,,,,,,,,,,,,,,,,,,@rs1.jucyu_su#,,,,,@rs1.tanka#,,,,@rs1.kingaku#)

#ユニット表示用
case($div_unit,@rs1.kbn,0,1,0)
iterate(div_unit,$div_unit)
[div_unit]
setdouble($unit,@rs1.row_order)
#ユニット表示用_<unit>
concatenate($unit_num,<,$unit,>)
putcell($row_no,2,$unit_num)


#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords2]
new($param)
addparam($param,$dt_from)
addparam($param,$dt_to)
addparam($param,$uri_no)
addparam($param,$tokui_cd)
addparam($param,$syohin_nm)
addparam($param,$han_name)
addparam($param,$s_id)
dbselect(SelectRecords2,@rs2,$param)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal2]
formatspecialrow($_row,0,42,2)
#sum($_row,5)
putcell($_row,2,@rs2.s_row_no)
putcell($_row,4,@rs2.hin_nm)
putcell($_row,12,@rs2.hosoku1)
putline()
putcell($_row,5,@rs2.hosoku2)
putcell($_row,12,@rs2.meisai_biko)
putcell($_row,22,@rs2.hin_tani)
putline(,,,,,,,,,,,,,,,,,,,@rs2.hin_su#,,,,@rs2.tanka#,,,,@rs2.kingaku#)