[Main]
#MAIN部の記載は基本部をコピーし、必要に応じて修正のこと。
dbuse(true)
#3つ目からsqlのパラメータを設定する
#initparam(printMode,reportId,s_id)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,title,outputfile,s_id,option1)
case($sn_mode,$option1,K,0,1)
case($inner_mode,$option1,K,1,0)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
#SQLセクションの名前を設定
subroutine(SelectRecords_Jisya)
subroutine(SelectRecords)
#描画部のセクション名、SQLで取得した値を格納する配列名、実行するルーチン名を設定
#loop(PrintNormal,@rs1,Key1)
loop(PrintNormal,@rs1,Key1,Key2)
printreport($printMode,true)

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

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
#検索条件をparamに格納。SQL内で&(数字)で渡すことができる。
new($param)
#addparam($param,$s_id)
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,$inner_mode)
#１つめの引数で指定したSQLセクションを実行し、2つ目の引数(@rs1)に取得した値を格納、3つ目の引数は条件パラメータ)
dbselect(SelectRecords,@rs1,$param)

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

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
deforgpage(blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(true,false)
deforgpage(formats)
resetorg()
#変数_初期値
#setdouble(変数,数字)は、変数に指定の数字をセットする関数
setdouble($jucyu_su_sum,0)
setdouble($kingaku_sum,0)
setdouble($kingaku_sum_j,0)

#setdouble($row_no,29)

#TODO 外貨有無による書式の切り替え
#setdouble($format_meisai,29)
#setdouble($format_total,32)
case($format_meisai,@rs1.rate_label,,63,29)
case($format_meisai_other,@rs1.rate_label,,88,87)
case($format_total,@rs1.rate_label,,65,32)

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

#-------------------------------------------------
#  Key2設定ルーチン
#-------------------------------------------------
[KeyInfo_Key2]
keyvalue(@rs1.den_no)
keybreakproc(GroupBegin_Key2,GroupEnd_Key2)

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_Key2]
#ヘッダ作成処理
#putcell(行,列,値)は、指定の行列が一致するセルに指定の値を描画する関数。値にはSQLで取得したものも使える。

iterate(HeaderSN,$sn_mode)
iterate(HeaderInner,$inner_mode)

concatenate($kanri_no,No.,@rs1.kanri_no)
putcell(9,1,$kanri_no)
putcell(10,31,)#TODO 所在地?
#putcell(10,32,Osaka，)
#putcell(10,35,@rs1.input_ymd)
putcell(10,35,@rs1.syori_ymd)
putcell(11,2,@rs1.tok_nm)
putcell(12,2,@rs1.addr1)
putcell(13,2,@rs1.addr2)
putcell(14,2,@rs1.tok_tel)

#Shipping Mark
#putcell(14,32,@rs1.tok_nm)
#putcell(15,32,)#TODO QC NO.?
#putcell(16,32,)#TODO PO NO.?
#putcell(17,32,)#TODO BDH-190726?
#putcell(18,32,@rs1.addr2)
#putcell(19,32,NO. 1 - UP)
#putcell(20,32,MADE IN JAPAN)

putcell(18,4,@rs1.tok_hacyu_no_h)
putcell(19,4,@rs1.nonyu_ymd)
putcell(20,4,@rs1.biko5)
putcell(21,4,@rs1.payment_term)
putcell(22,4,@rs1.biko4)
#putcell(26,3,)#TODO タイプNO？
#putcell(27,3,)#TODO タイプNO？
#putcell(25,32,FOB JAPAN)
#putcell(28,27,（per sheet）)

putcell(22,37,@rs1.rate_label)
putcell(22,38,@rs1.gaika_rate)

subroutine(PrintDaihyoItems)

[PrintDaihyoItems]
formatspecialrow($_row,0,25,1)
putcell($_row,3,"YAMAMOTO" CLOSED CELL SPONGE RUBBER SHEETS)
putline(,,)
new($param)
addparam($param,$uri_no)
dbselect(selectDaihyoItems,@rs2,$param)
loop(PrintDaihyoItem,@rs2)

#空行
putline(,,)

[PrintDaihyoItem]
formatspecialrow($_row,0,26,1)
concatenate($daihyo_view,TYPE NO. ,@rs2.hin_nm, ,@rs2.biko1)
putcell($_row,3,$daihyo_view)
putline(,,)

[HeaderSN]
#formatspecialrow(5,0,5,1)
formatspecialrow(1,0,1,9)
putcell(2,1,@rs0.j_nm)
putcell(4,1,@rs0.j_address)
putcell(5,1,@rs0.j_tel_fax_email)
putcell(7,1,@rs0.title_sn_1)
putcell(8,1,@rs0.title_sn_2)

[HeaderInner]
formatspecialrow(1,0,67,9)
putcell(7,1,@rs0.title_inner)


#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_Key2]
#その他
subroutine(PrintOthers)

#合計行作成処理
#32行目
#formatspecialrow($_row,0,32,1)
#putcell($_row,10,TOTAL FOB JAPAN BY UPS)
putcell($_row,9,@rs1.pay_kbn_nm)
#putcell($_row,23,$jucyu_su_sum)
putcell($_row,25,@rs1.tani)
#putcell($_row,33,$kingaku_sum)
#putcell($_row,37,$kingaku_sum)
formatspecialrow($_row,0,$format_total,1)
putline(,,,,,,,,,,,,,,,,,,,,,,$jucyu_su_sum#,,,,,,,,,,$kingaku_sum_j#,,,,$kingaku_sum#)

#空行
#putline()

#フッタ作成処理
#外貨名称
putcell($_row,36,@rs1.gaika_name)
formatspecialrow($_row,0,33,1)
putline()

subroutine(PrintOptions)

# NOTE
putcell($_row,2,NOTE：)
formatspecialrow($_row,0,34,1)
putline()

#36行目
#putline()
#putcell($_row,2,*Packing :)#TODO Roll
#putcell(38,3,)#TODO Packing：梱包形状?konpo_keijo?
#putcell(38,3,@rs1.konpo_keijo)

case($hin_notes_output,@rs1.hin_notes,,0,1)
iterate(OutputHinNotes,$hin_notes_output)

case($dhin_output,@rs1.dhin_names,,0,1)
iterate(OutputDhinNames,$dhin_output)

#37行目
concatenate($note_shipment,*SHIPMENT:,@rs1.biko6)
putcell($_row,2,$note_shipment)
#putcell(39,3,)#TODO SHIPMENT：記入がない出荷、UPSによって速達、UPSの出荷NO？で運賃着払い？
putline()

subroutine(PrintOtherNotes)

#空行
putline()

# SHIP TO
putcell($_row,2,SHIP TO : )
formatspecialrow($_row,0,39,1)
putline()

#40行目
#putcell(42,3,BODYHELIX, LLC)
putcell($_row,2,@rs1.nonyu_nm)
putline()

#41行目
#putcell(43,3,107 E  Creek Ridge Road)
#putcell(43,3,)#TODO 納入先住所nonyu_addr1
putcell($_row,2,@rs1.nonyu_addr1)
putline()

#42行目
#putcell(43,3,)#TODO 納入先名nonyu_nm
#putcell(44,3,Greensboro, NC 27406, USA)
#putcell(44,3,)#TODO 納入先住所nonyu_addr2
putcell($_row,2,@rs1.nonyu_addr2)
putline()

#43行目
#putcell(45,3,ATTN: MR. FRED A. ROBINSON)
#putcell(45,3,)#TODO 納入先担当者nonyu_tan
putcell($_row,2,@rs1.nonyu_addr3)
putline()

#44行目
#putcell(46,3,TEL: 1. 704. 965. 3822)
#putcell(46,3,)#TODO 納入先電話番号nonyu_tel_no
putcell($_row,2,@rs1.nonyu_addr4)
putline()

#空行
putline()

iterate(FooterSN,$sn_mode)
iterate(FooterInner,$inner_mode)

[FooterSN]
#46行目
putcell($_row,2,* Bank Information (for T/T Remittance)) 
putline()

#47行目
formatspecialrow($_row,0,47,3)
putcell($_row,2,MUFG Bank，Ltd. IMAZATO Branch.) 
#putcell(49,3,)#TODO 送金する銀行名、支店
putline()

#48行目
putcell($_row,2,No.3-15-18，Ooimazato，Higashinari-ku，Osaka，Japan (Swift Code: BOTKJPJT))
#putcell(50,3,)#TODO 送金銀行の場所（Swiftコード）
putline()

#49行目
putcell($_row,2,ACCOUNT #1107981 - YAMAMOTO CORPORATION)
#putcell(51,3,)#TODO 送金先のアカウント
putline()

#空行
putline()

#51行目
putcell($_row,2,All orders are accepted subject to shipment not being prevented by any causes beyond our control.)
formatspecialrow($_row,0,51,1)
putline()

#空行
putline()

#53行目
putcell($_row,2,ACCEPTED)
putcell($_row,33,CONFIRMED)
formatspecialrow($_row,0,53,1)
putline()

#54行目
putcell($_row,33,YAMAMOTO CORPORATION)
formatspecialrow($_row,0,54,1)
putline()

#空行
putline()
putline()

#57行目
putcell($_row,2,BUYER)
formatspecialrow($_row,0,57,1)
putcell($_row,33,SELLER)
formatspecialrow($_row,0,57,1)
putline()

#空行
putline()

#59行目
putcell($_row,2,In acceptance of this Proforma Invoice and the conditions stipulated herein，please return us this with your confirmation signature.)
putline()

#60行目
putcell($_row,2,This Proforma Invoice signed by both parties is valid as an official contract.)
putline()

#61行目
putcell($_row,1,- E. & O. E. -)
formatspecialrow($_row,0,61,1)
putline()

[FooterInner]
putcell($_row,1,生産要領)
formatspecialrow($_row,0,77,1)
putline()
#formatspecialrow($_row,0,37,1)

#生産要領
subroutine(SelectRecords_Footer)
loop(CreateFooter,@rs2)

#工程納期
putline()
putcell($_row,23,予定納期)
formatspecialrow($_row,0,82,1)
putline()
subroutine(SelectRecords_Process)
loop(CreateProcess,@rs2)

#-------------------------------------------------
#  SQL実行_生産要領
#-------------------------------------------------
[SelectRecords_Footer]
new($param)
addparam($param,$uri_no)
dbselect(SelectRecords_Footer,@rs2,$param)

#-------------------------------------------------
#  SQL実行_工程納期
#-------------------------------------------------
[SelectRecords_Process]
new($param)
addparam($param,$uri_no)
dbselect(SelectRecords_Process,@rs2,$param)

#-------------------------------------------------
#  フッター作成処理
#-------------------------------------------------
[CreateFooter]
formatspecialrow($_row,0,78,1)
putcell($_row,3,@rs2.spec_naiyo)
putline(,@rs2.spec_seq#,)
#formatspecialrow($_row,0,37,1)

#-------------------------------------------------
#  工程納期
#-------------------------------------------------
[CreateProcess]
formatspecialrow($_row,0,83,1)
putcell($_row,23,@rs2.koutei_ymd)
putline(,,@rs2.koutei_nm#,,,,,,,,@rs2.seizou_tan_nm#)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
#formatspecialrow(開始行,対象行数,フォーマットの開始行,フォーマットの対象行数)は、定義ファイルで指定された、エクセルの罫線等の参照フォーマットから、描画する帳票に書式をコピーする関数。描画ファイルの書式を設定したい行と行数を最初の２引数に指定し、コピーしたい書式の行と行数を次の２引数に指定する。putcellとは違い、行単位で値を一括描画する。カンマ区切りでセルの位置を指定することができる。putlineの開始行は定義ファイルの明細領域設定部の開始行数から始まる。putlineを実行するたびに行送りは自動で行われる（1行ずつ）
formatspecialrow($_row,0,$format_meisai,1)
putcell($_row,4,@rs1.kind_s)
#putline(@rs1.row_no#,@rs1.dhin_nm#,,@rs1.kind_s#,,,@rs1.size_h#,,@rs1.hin_nm_s#,,,,,,,,,,,,,,@rs1.jucyu_su#,,@rs1.tani#,,@rs1.tanka_j#,,,@rs1.tanka#,,,@rs1.kingaku_j#,,,,@rs1.kingaku#)
putline(@rs1.row_no#,@rs1.dhin_nm#,,,,,@rs1.size_h#,,@rs1.hin_nm_s#,,,,,,,,,,,,,,@rs1.jucyu_su#,,@rs1.tani#,,@rs1.tanka_j#,,,@rs1.tanka#,,,@rs1.kingaku_j#,,,,@rs1.kingaku#)
sum($jucyu_su_sum,@rs1.jucyu_su)
sum($kingaku_sum,@rs1.kingaku)
sum($kingaku_sum_j,@rs1.kingaku_j)

[OutputHinNotes]
putcell($_row,2,@rs1.hin_notes)
putline()

[OutputDhinNames]
concatenate($note_dhin_names,*Jersey: ,@rs1.dhin_names)
putcell($_row,2,$note_dhin_names)
putline()

[PrintOtherNotes]
new($param)
addparam($param,@rs1.den_no)
dbselect(SelectOtherNotes,@rs2,$param)
loop(PrintOtherNote,@rs2)

[PrintOtherNote]
#formatspecialrow($_row,0,26,1)
#concatenate($daihyo_view,TYPE NO. ,@rs2.hin_nm, ,@rs2.biko1)
putcell($_row,2,@rs2.note_part)
putline(,,)

[PrintOptions]
new($param)
addparam($param,$uri_no)
dbselect(selectOptions,@rs2,$param)
loop(PrintOption,@rs2,KeyOpt)

#空行
putline(,,)

[PrintOption]
#formatspecialrow($_row,0,26,1)
concatenate($option_view,@rs2.hin_nm, ,@rs2.jucyu_su, ,@rs2.tani)
putcell($_row,2,$option_view)
putline(,,)

[KeyInfo_KeyOpt]
keyvalue(DUMMY)
keybreakproc(GroupBegin_KeyOpt,GroupEnd_KeyOpt)

[GroupBegin_KeyOpt]
putcell($_row,2,Options:)
formatspecialrow($_row,0,39,1)
putline()

[GroupEnd_KeyOpt]




[PrintOthers]
new($param)
addparam($param,$uri_no)
dbselect(selectOthers,@rs3,$param)
loop(PrintOther,@rs3,KeyOther)

#空行
#putline(,,)

[KeyInfo_KeyOther]
keyvalue(DUMMY)
keybreakproc(GroupBegin_KeyOther,GroupEnd_KeyOther)

[GroupBegin_KeyOther]
putline()
formatspecialrow($_row,0,27,1)
putcell($_row,3,Others)
putline()

[GroupEnd_KeyOther]
putline()

[PrintOther]
formatspecialrow($_row,0,$format_meisai_other,1)
#putcell($_row,4,@rs1.kind_s)
putline(@rs3.row_no#,@rs3.hin_cd#,,,,,@rs3.hin_nm#,,,,,,,,,,,,,,,,@rs3.jucyu_su#,,@rs3.tani#,,@rs3.tanka_j#,,,@rs3.tanka#,,,@rs3.kingaku_j#,,,,@rs3.kingaku#)
#数量は足さない(ラバーのみ)
#sum($jucyu_su_sum,@rs3.jucyu_su)
sum($kingaku_sum,@rs3.kingaku)
sum($kingaku_sum_j,@rs3.kingaku_j)