[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,ext6)
deforgpage(blank1)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
#帳票タイプ_hosoku_行出力
case($hosoku_r,$ext6,1,0,1)
#帳票タイプ_hosoku_列出力
case($hosoku_c,$ext6,1,1,0)
#帳票タイプ_選択
subroutine(Change_Layout)
loop(PrintNormal,@rs1,Key1,Key2)
printreport($printMode,true,false)

#-------------------------------------------------
#  帳票タイプ_選択
#-------------------------------------------------
[Change_Layout]
iterate(Hosoku_Row,$hosoku_r)
iterate(Hosoku_Col,$hosoku_c)
#帳票タイプ_hosoku_行出力
[Hosoku_Row]
case($id_blank,@rs1.row_page,0,blank1,blank2)
case($id_formats,@rs1.row_page,0,formats1,formats2)
#帳票タイプ_hosoku_列出力
[Hosoku_Col]
case($id_blank,@rs1.row_page,0,blank11,blank22)
case($id_formats,@rs1.row_page,0,formats11,formats22)

#-------------------------------------------------
#  SQL実行_自社
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
dbselect(SelectRecords_Jisya,@rs0,$param)

#-------------------------------------------------
#  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)

#-------------------------------------------------
#  ヘッダ作成
#-------------------------------------------------
[CreateHedder]
#明細行_hosoku_行タイプ
iterate(Change_Header_R,$hosoku_r)
#明細行_hosoku_列タイプ
iterate(Change_Header_C,$hosoku_c)

#ヘッダ処理
#putcell(3,12,御見積書)
putcell(3,12,@rs0.title)
putcell(12,2,合計金額)
putcell(15,2,工事名称：)
putcell(17,2,納入場所：)
putcell(18,2,納入期日：)
putcell(19,2,見積有効期限：)
putcell(20,2,支払条件：)
putcell(21,2,備考：)
putcell(23,2,特記事項：)
putcell(28,15,内訳書)

putcell(7,24,@rs0.koumoku1)
putcell(8,24,@rs0.koumoku2)
putcell(9,24,@rs0.koumoku3)
putcell(10,24,@rs0.koumoku4)
putcell(11,24,@rs0.koumoku5)
putcell(13,22,@rs0.j_nm)
#putcell(13,25,有明システム)
putcell(15,22,@rs0.j_post_s)
putcell(15,25,@rs0.j_address)
putcell(16,25,@rs0.j_tel_s)
#putcell(16,31,（代表）)
putcell(17,25,@rs0.j_fax_s)

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)


#自社区分
#putcell(7,24,ＦＡ制御システム)
#putcell(8,24,産業用ロボットシステム)
#putcell(9,24,制御盤・配電盤・分電盤)
#putcell(10,24,高級鈑金塗装)
#putcell(11,24,附帯工事一式)
#putcell(13,22,株式会社)
#putcell(13,25,有明システム)
#putcell(15,22,〒555-0001)
#putcell(15,25,大阪市西淀川区佃5丁目5-1)
#putcell(16,25,TEL：(06)6473-8803)
#putcell(16,31,（代表）)
#putcell(17,25,FAX：(06)6473-9080)

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)


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

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

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

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

[Change_Header_R]#有明
putcell(30,2,NO.)
putcell(30,4,名　　　　　　　　　　称)
putcell(30,19,数　　量)
putcell(30,22,単位)
putcell(30,24,単　　価)
putcell(30,28,金　　額)

#putcell(9,4,下記の通り御見積申し上げます。)
putcell(9,4,@rs0.mongon1)
#putcell(10,4,何卒ご用命の程お願い申し上げます。)
putcell(10,4,@rs0.mongon2)
#putcell(27,10,※契約後の仕様変更は別途打合せの上、請求させて頂きます。)
putcell(27,10,@rs0.mongon3)


[Change_Header_C]#太陽
putcell(30,2,NO.)
putcell(30,4,名　　　　　　　　　　称)
putcell(30,16,数量)
putcell(30,18,単位)
putcell(30,20,単　価)
putcell(30,24,金　額)
putcell(30,28,備　考)
putcell(30,28,備　考)
concatenate($tan_nm,　　,@rs1.tok_tan)
putcell(8,2,$tan_nm)
putcell(8,16,@rs1.keisyou_2)
putcell(18,25,@rs1.email)

putcell(10,2,@rs0.mongon1)
putcell(28,2,@rs0.mongon3)

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

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

#ヘッダ作成
subroutine(CreateHedder)

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
pageclose(false)

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

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

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
#フッタ処理
putline()
putline()
#フッタ_頁
putcell($_row,29,$page_num)
putline()
#改ページ処理
HPAGEBREAK($_row)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
#明細行_hosoku_行タイプ
iterate(Hosoku_Meisai_R,$hosoku_r)
#明細行_hosoku_列タイプ
iterate(Hosoku_Meisai_C,$hosoku_c)

#明細行_hosoku_行タイプ
[Hosoku_Meisai_R]
#ユニット表示用_行位置
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)

#明細行_hosoku_列タイプ
[Hosoku_Meisai_C]
#ユニット表示用_行位置
setdouble($row_no,$_row)

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

#ユニット表示用
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)