[Main]
dbuse(true)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,title,outputfile,s_id,option1)
deforgpage(blank1)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key1,Key2)
#filename($outputfile)
printreport($printMode,true)


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

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
#原本か事務用かの判断
case($id_blank,$option1,H,blank2,blank1)
case($id_formats,$option1,H,formats2,formats1)


deforgpage($id_blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(true,false)
deforgpage($id_formats)
resetorg()


#フッタ初期設定
setdouble($f_biko,36)

#レイアウト初期設定
case($jucyu_lay,$option1,,1,0)
case($hikae_lay,$option1,H,1,0)
iterate(jucyu_hed,$jucyu_lay)
iterate(hikae_hed,$hikae_lay)


#ヘッダ処理----------------------

#基本項目1
putcell(2,2,受注No：)
putcell(2,5,@rs1.den_no)
#putcell(2,28,@rs1.den_no)

#納品先項目
putcell(4,2,納品先名　：)
putcell(4,6,@rs1.nonyu_nm)
putcell(5,2,納品先住所：)
putcell(5,6,@rs1.nonyu_yubin_no)
putcell(6,2,@rs1.nonyu_addr1)
putcell(7,2,@rs1.nonyu_addr2)
putcell(8,2,納品先TEL：)
putcell(8,6,@rs1.nonyu_tel_no)
putcell(9,2,納品先FAX：)
putcell(9,6,@rs1.nonyu_fax_no)




#表示可変あり
#基本項目2
#請求先項目
#受注伝票ヘッダ処理-----------------

[jucyu_hed]
putcell(1,17,$title)
putcell(1,38,受注日付：)
putcell(1,41,@rs1.syori_ymd)
putcell(7,36,納期：)
putcell(7,39,@rs1.nonyu_ymd)
putcell(9,36,担当者：)
putcell(9,39,@rs1.tan_nm)

putcell(4,18,請求先名　：)
putcell(4,22,@rs1.tok_nm)
putcell(5,18,請求先住所：)
putcell(5,22,@rs1.yubin_no)
putcell(6,18,@rs1.addr1)
putcell(7,18,@rs1.addr2)
putcell(8,18,請求先TEL：)
putcell(8,22,@rs1.tel_no)
putcell(9,18,請求先FAX：)
putcell(9,22,@rs1.fax_no)

putcell($_row,3,商品名)
putcell($_row,32,単価)
putcell($_row,38,合計金額)
putline(,)
putcell($_row,2,NO)
putcell($_row,3,備考)
putcell($_row,32,原価)
putcell($_row,36,数量)
putcell($_row,38,合計原価額)
putcell($_row,42,粗利)
putline(,)
putcell($_row,6,担当者/作業時間(h))
putline(,)

#明細行一括format
formatspecialrow($_row,0,14,29)


#受注伝票（事務）ヘッダ処理-----------------

[hikae_hed]
putcell(1,15,$title)
putcell(1,34,受注日付：)
putcell(1,37,@rs1.syori_ymd)
putcell(9,34,担当者：)
putcell(9,37,@rs1.tan_nm)

putcell(4,15,請求先名　：)
putcell(4,19,@rs1.tok_nm)
putcell(5,15,請求先住所：)
putcell(5,19,@rs1.yubin_no)
putcell(6,15,@rs1.addr1)
putcell(7,15,@rs1.addr2)
putcell(8,15,請求先TEL：)
putcell(8,19,@rs1.tel_no)
putcell(9,15,請求先FAX：)
putcell(9,19,@rs1.fax_no)

putcell(4,15,請求先名　：)
putcell(4,19,@rs1.tok_nm)
putcell(5,15,請求先住所：)
putcell(5,19,@rs1.yubin_no)
putcell(6,15,@rs1.addr1)
putcell(7,15,@rs1.addr2)
putcell(8,15,請求先TEL：)
putcell(8,19,@rs1.tel_no)
putcell(9,15,請求先FAX：)
putcell(9,19,@rs1.fax_no)

putcell(4,30,@rs1.han_name)
putcell(5,30,@rs1.koumoku1)
putcell(6,30,@rs1.koumoku2)
putcell(7,30,TEL:)
putcell(7,31,@rs1.koumoku5)
putcell(7,36,FAX:)
putcell(7,37,@rs1.koumoku6)
putcell(8,30,URL:)
putcell(8,31,@rs1.koumoku7)

putcell($_row,3,商品名)
putcell($_row,32,単価)
putcell($_row,36,数量)
putcell($_row,38,合計金額)
putline(,)
putcell($_row,2,NO)
putcell($_row,3,備考　　　　　　　　　　　　　　　　　　)
putline(,)
putline(,)

#明細行一括format
formatspecialrow($_row,0,14,29)



#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
#FormatNormalするかどうか

#最終ページ合計額処理----------------------

#次ページ処理している$f_bikoを合計項目表示域に戻す
sum($f_biko,-31)

#合計項目
putcell($f_biko,2,小計)
putcell($f_biko,38,@rs1.zeinuki_gaku)
sum($f_biko,1)
putcell($f_biko,2,消費税)
putcell($f_biko,38,@rs1.zei_gaku)
sum($f_biko,1)
putcell($f_biko,2,合計金額)
putcell($f_biko,38,@rs1.zeikomi_gaku)



#表示可変あり
iterate(jucyu_gokei,$jucyu_lay)
iterate(hikae_gokei,$hikae_lay)


[jucyu_gokei]
#gokei_arari_gaku非表示
putcell($f_biko,42,@rs1.gokei_arari_gaku)
pageclose(false)

[hikae_gokei]
#putcell(61,38, )
#putcell(62,38, )
#putcell(63,38, )
putcell($f_biko,42,　)
pageclose(false)


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


#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
#１と２ページ目で合計金額の表示分岐
case($goukei_p1,@rs1.row_page,0,1,0)
case($goukei_p2,@rs1.row_page,0,0,1)

#ヘッダー見出し＿1ページ目
iterate(Goukei_P1,$goukei_p1)
#ヘッダー見出し＿2ページ目以降
iterate(Goukei_P2,$goukei_p2)

#ページナンバーを保持する※page_cで出力するとキーが先に変わってるのでページ数がずれてしまう
concatenate($page,@rs1.page_c)


#ヘッダー見出し＿1ページ目
[Goukei_P1]


#ヘッダー見出し＿2ページ目以降
[Goukei_P2]
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
#putline(,)
#putline(,)



#明細行一括format
formatspecialrow($_row,0,14,29)


#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]

#フッタ処理----------------------


#表示可変あり
iterate(jucyu_fut,$jucyu_lay)
iterate(hikae_fut,$hikae_lay)

[jucyu_fut]
#決算方法
#配達日時指定
#$f_biko=36
putcell($f_biko,2,決算方法：)
putcell($f_biko,6,@rs1.pay_kbn)
putcell($f_biko,12,入金日：)
putcell($f_biko,15,@rs1.nyukin_yotei_ymd)
putcell($f_biko,28,配達日時指定：)
putcell($f_biko,33,@rs1.haiso_kbn)
putcell($f_biko,39,梱包形態：)
putcell($f_biko,43,@rs1.konpo_keijyo)

sum($f_biko,1)
#$f_biko=37
sum($f_biko,1)
#$f_biko=38

#備考
putcell($f_biko,2,備考：)
putcell($f_biko,25,社内：)

sum($f_biko,1)
#$f_biko=39

putcell($f_biko,2,@rs1.u_biko1)
putcell($f_biko,25,@rs1.u_biko2)

sum($f_biko,1)
#$f_biko=40


#sum($f_biko,1)
#$f_biko=41
#sum($f_biko,1)
#$f_biko=42

#ページ表示
putcell($f_biko,43,$page)
sum($f_biko,23)

[hikae_fut]
sum($f_biko,4)

#備考
putcell($f_biko,2,備考：)
sum($f_biko,1)
putcell($f_biko,2,@rs1.u_biko1)
sum($f_biko,1)

#ページ表示
putcell($f_biko,40,$page)
sum($f_biko,23)


#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
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)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
#定義ファイルで指定された、エクセルの罫線等の参照フォーマットから、描画する帳票に書式をコピーする関数
#描画ファイルの書式を設定したい行と行数を最初の２引数に指定し、コピーしたい書式の行と行数を次の２引数に指定する。

#表示可変あり
iterate(jucyu_mei,$jucyu_lay)
iterate(hikae_mei,$hikae_lay)

[jucyu_mei]
putcell($_row,3,@rs1.hin_nm)
putline(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.tanka#,,,,,,@rs1.kingaku#)
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.biko_m)
putline(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.gentanka#,,,,@rs1.jucyu_su#,,@rs1.genka_gaku#,,,,@rs1.arari#)
putcell($_row,6,@rs1.tan1)
putcell($_row,8,@rs1.k1)
putcell($_row,10,@rs1.tan2)
putcell($_row,12,@rs1.k2)
putcell($_row,14,@rs1.tan3)
putcell($_row,16,@rs1.k3)
putcell($_row,18,@rs1.tan4)
putcell($_row,20,@rs1.k4)
putcell($_row,22,@rs1.tan5)
putcell($_row,24,@rs1.k5)
putcell($_row,26,@rs1.tan6)
putcell($_row,28,@rs1.k6)
putcell($_row,30,@rs1.tan7)
putcell($_row,32,@rs1.k7)
putcell($_row,34,@rs1.tan8)
putcell($_row,36,@rs1.k8)
putcell($_row,38,@rs1.tan9)
putcell($_row,40,@rs1.k9)
putcell($_row,42,@rs1.tan10)
putcell($_row,44,@rs1.k10)
putline()

[hikae_mei]
putcell($_row,3,@rs1.hin_nm)
putline(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.tanka#,,,,@rs1.jucyu_su#,,@rs1.kingaku#)
putcell($_row,2,@rs1.row_no)
putcell($_row,3,@rs1.biko_m)
putline(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@rs1.tanka#,,,,)
putline()