[Main]
dbuse(true)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,han_name,outputfile)
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]
#個人か法人かの判断
concatenate($format_Type,@rs1.tok_dm,@rs1.kbn)
#どのlayoutを出力するかの判断
case($id_blank,$format_Type,11,blank1,12,blank2,11,blank3,12,blank4,blank1)
case($id_formats,$format_Type,11,formats1,12,formats2,11,formats3,12,formats4,formats1)
#case($id_blank,$format_Type,11,blank1,12,blank2,21,blank1,22,blank2,blank1)
#case($id_formats,$format_Type,11,formats1,12,formats2,21,formats1,22,formats2,formats1)


deforgpage($id_blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(true,false)
deforgpage($id_formats)
setdouble($count,53)
setdouble($row_no,21)


#ヘッダ処理
putcell(1,28,@rs1.syori_ymd)
putcell(1,25,納品日：)
putcell(2,2,得意先：)
putcell(2,25,伝票No：)
putcell(2,28,@rs1.den_no)
putcell(2,4,@rs1.yubin_no)
putcell(3,4,@rs1.addr1)
putcell(4,4,@rs1.addr2)
putcell(5,4,@rs1.addr3_4)
putcell(6,4,@rs1.tok_nm)
putcell(7,22,担当者：)
putcell(7,25,@rs1.tan_nm)
putcell(8,4,@rs1.tok_tan)
putcell(6,15,@rs1.keisyou)
putcell(8,15,@rs1.keisyou2)
putcell(10,6,@rs1.tel_no)
putcell(12,2,納品先：)
putcell(12,4,@rs1.nonyu_yubin_no)
putcell(13,4,@rs1.nonyu_addr1)
putcell(14,4,@rs1.nonyu_addr2)
putcell(15,4,@rs1.nonyu_addr3)
putcell(16,4,@rs1.nonyu_addr4)
#putcell(17,4,@rs1.nonyu_nm)
putcell(12,18,)
#putcell(15,25,@rs1.tan_nm)
#putcell(11,13,@rs1.tok_cd)
putcell(18,2,$han_name)
putcell(19,2,受注日)
putcell(19,6,@rs1.tok_cd)
putcell(18,15,小 計)
putcell(18,20,消費税等)
putcell(18,26,合計金額（税込）)
putcell(19,15,@rs1.zeinuki_gaku)
putcell(19,20,@rs1.zei_gaku)
putcell(19,26,@rs1.zeikomi_gaku)
#自社対応
putcell(10,22,@rs1.han_name)
putcell(11,22,@rs1.koumoku1)
putcell(12,22,@rs1.koumoku2)
putcell(13,22,@rs1.koumoku3)
putcell(14,22,@rs1.koumoku5)
putcell(15,22,@rs1.koumoku6)
putcell(16,22,@rs1.koumoku7)




#ヘッダの空白
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
#putline(,)
#putline(,)


#明細ヘッダの出力の判断
case($kojin_lay,@rs1.tok_dm,2,1,0)
case($hojin_lay,@rs1.tok_dm,1,1,0)
iterate(Type1,$kojin_lay)
iterate(Type2,$hojin_lay)

#得意先が個人の時
[Type1]
putcell($row_no,2,NO)
putcell($row_no,3,品番/色番)
putcell($row_no,7,内　容)
putcell($row_no,16,数量)
putcell($row_no,20,個数)
putcell($row_no,22,総数)
putcell($row_no,25,定価)
putcell($row_no,29,金額)
sum($row_no,1)
putcell($row_no,16,備考欄)
sum($row_no,-1)


#フッタ
#空行埋めしたセルにputcellする処理
putcell(53,2,備考:)
putcell(53,4,@rs1.u_biko1)
putcell(54,2,お振込の節は、下記口座にお願いいたします。)
#putcell(58,3,ゆうちょ銀行)
#putcell(58,17,00900-7-136006)
putcell(61,2,振込手数料につきましては、お客様にてご負担をお願いします。)

putcell(63,17,@rs1.page_c)




#得意先が法人の時
[Type2]
putcell($row_no,2,NO)
putcell($row_no,3,内　容)
putcell($row_no,11,備考)
putcell($row_no,14,数量)
putcell($row_no,24,単価)
putcell($row_no,27,個数)
putcell($row_no,29,合計)
sum($row_no,1)
putcell($row_no,3,担当者/作業時間(h))
putcell($row_no,22,合計(h))
putcell($row_no,24,原価)
putcell($row_no,29,粗利)
sum($row_no,-1)


#フッタ
putcell(53,2,備考：)
putcell(53,4,@rs1.u_biko1)
#putcell(54,2,お振込の節は、下記口座にお願いいたします。)
#putcell(56,2,1.)
#putcell(56,3,京都信用金庫/北山支店)
#putcell(56,14,普通預金)
#putcell(56,17,0397559)
#putcell(57,2,2.)
#putcell(57,3,ゆうちょ銀行)
#putcell(57,17,00900-7-136006)
#putcell(58,2,3.)
#putcell(58,3,三菱東京ＵＦＪ銀行/出町支店)
#putcell(58,14,普通預金)
#putcell(58,17,0622150)
#putcell(60,2,振込手数料につきましては、お客様にてご負担をお願いします。)


putcell(70,17,@rs1.page_c)

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
#FormatNormalするかどうか
pageclose(false)



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


#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]
#deforgpage($id_blank)
#Importするかどうか,FormatNormalするかどうか
#pageopen(true,false)		#明細開始行から手動で出力したいためpageopenせず。
#deforgpage($id_formats)
#resetorg()
#ヘッダ処理
#formatspecialrow(開始行,対象行数,フォーマットの開始行,フォーマットの対象行数)

#１と２ページ目のヘッダ境界出力
case($page1,@rs1.row_page,0,1,0)
case($page2,@rs1.row_page,0,0,1)
iterate(Type21,$page1)
iterate(Type22,$page2)

formatspecialrow($_row,0,23,42)

[Type21]
putcell(18,15,小 計)
putcell(18,20,消費税等)
putcell(18,26,合計金額（税込）)
putcell(19,15,@rs1.zeinuki_gaku)
putcell(19,20,@rs1.zei_gaku)
putcell(19,26,@rs1.zeikomi_gaku)
#putcell(19,3,ご注文ありがとうございます。)
#putcell(19,3,下記の通り、納品いたします。)


[Type22]
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
formatspecialrow($_row,0,18,2)
putcell($_row,15,小　計)
putcell($_row,20,消費税等)
putcell($_row,26,合計金額（税込）)
#putline(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26)
#putline(,,,,,,,,,,,,,,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)

case($mei_h1,@rs1.tok_dm,2,1,0)
case($mei_h2,@rs1.tok_dm,1,1,0)
iterate(Type11,$mei_h1)
iterate(Type12,$mei_h2)

[Type11]
formatspecialrow($row_no,0,21,2)
putcell($row_no,2,NO)
putcell($row_no,3,品番/色番)
putcell($row_no,7,内　容)
putcell($row_no,16,数量)
putcell($row_no,20,個数)
putcell($row_no,22,総数)
putcell($row_no,25,定価)
putcell($row_no,29,金額)
sum($row_no,1)
putcell($row_no,16,備考欄)
sum($row_no,-1)
sum($count,17)
putcell($count,17,@rs1.page_c)
sum($count,-17)


[Type12]
formatspecialrow($row_no,0,21,2)
#sum($row_no,3)
putcell($row_no,2,NO)
putcell($row_no,3,品番/色番)
putcell($row_no,6,内　容)
putcell($row_no,14,数量)
putcell($row_no,18,個数)
putcell($row_no,20,総数)
putcell($row_no,23,定価)
putcell($row_no,26,卸価格)
putcell($row_no,29,金額)
sum($row_no,1)
putcell($row_no,14,備考欄)
sum($row_no,-1)
sum($count,17)
putcell($count,17,@rs1.page_c)
sum($count,-17)

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
#FormatNormalするかどうか
#pageclose(true)

#個人か法人
case($kojin_lay,@rs1.tok_dm,2,1,0)
case($hojin_lay,@rs1.tok_dm,1,1,0)
iterate(Type41,$kojin_lay)
iterate(Type42,$hojin_lay)

[Type41]
putline(,)	
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putcell($count,2,備考：)
putcell($count,4,@rs1.u_biko1)
sum($count,1)
putcell($count,2,お振込の節は、下記口座にお願いいたします。)
sum($count,1)
#putcell($count,2,1.)
#putcell($count,3,京都信用金庫/北山支店)
#putcell($count,14,普通預金)
#putcell($count,17,0397559)
sum($count,1)
#putcell($count,2,2.)
putcell($count,3,ゆうちょ銀行)
putcell($count,17,00900-7-136006)
sum($count,1)
#putcell($count,2,3.)
#putcell($count,3,三菱東京ＵＦＪ銀行/出町支店)
#putcell($count,14,普通預金)
#putcell($count,17,0622150)
sum($count,2)
putcell($count,2,振込手数料につきましては、お客様にてご負担をお願いします。)
sum($count,45)
sum($row_no,53)


[Type42]
#明細15行が終わった後のフッタ出力
putline(,)		#フッタ１１行空行埋め
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
#空行埋めしたセルにputcellする処理
putcell($count,2,備考：)
putcell($count,4,@rs1.u_biko1)
sum($count,1)
#putcell($count,2,お振込の節は、下記口座にお願いいたします。)
sum($count,2)
#putcell($count,2,1.)
#putcell($count,3,京都信用金庫/北山支店)
#putcell($count,14,普通預金)
#putcell($count,17,0397559)
sum($count,1)
#putcell($count,2,2.)
#putcell($count,3,ゆうちょ銀行)
#putcell($count,17,00900-7-136006)
sum($count,1)
#putcell($count,2,3.)
#putcell($count,3,三菱東京ＵＦＪ銀行/出町支店)
#putcell($count,14,普通預金)
#putcell($count,17,0622150)
sum($count,2)
#putcell($count,2,振込手数料につきましては、お客様にてご負担をお願いします。)
sum($count,46)
sum($row_no,53)

#-------------------------------------------------
#  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]
#定義ファイルで指定された、エクセルの罫線等の参照フォーマットから、描画する帳票に書式をコピーする関数
#描画ファイルの書式を設定したい行と行数を最初の２引数に指定し、コピーしたい書式の行と行数を次の２引数に指定する。

#個人客か法人客かどうか
case($Type1_flg,@rs1.tok_dm,2,1,0)
case($Type2_flg,@rs1.tok_dm,1,1,0)
iterate(Type31,$Type1_flg)
iterate(Type32,$Type2_flg)

#concatenate($mkei,SUM\x28RC\x1b\x2d2\x1d,RC\x1b\x2d6\x1d,RC\x1b\x2d10\x1d,RC\x1b\x2d14\x1d,RC\x1b\x2d18\x1d\x29)

[Type31]
formatspecialrow($_row,0,25,2)
putcell($_row,2,@rs1.row_no)
#putcell($_row,3,@rs1.hin_cd)
putcell($_row,3,@rs1.hin_nm)
putcell($_row,11,@rs1.biko1)
putcell($_row,24,@rs1.tanka)
putcell($_row,27,@rs1.ryou)
putcell($_row,29,@rs1.tanka)
#putcell($_row,17,@rs1.tan)
putline(,,,,,,,,,,@rs1.biko_m,,,,,@rs1.havy#,,,,@rs1.ryou#,,@rs1.suryo#,,,@rs1.tanka#,,,,@rs1.kingaku#)
putcell($_row,2,@rs1.nm)
putcell($_row,4,@rs1.k)
putcell($_row,6,@rs1.nm1)
putcell($_row,8,@rs1.k1)
putcell($_row,10,@rs1.nm2)
putcell($_row,12,@rs1.k2)
putcell($_row,10,@rs1.nm3)
putcell($_row,12,@rs1.k3)
putcell($_row,10,@rs1.nm4)
putcell($_row,12,@rs1.k4)
#putcell($_row,22,$mkei)
#putformula($_row,22,SUM\x28RC\x1b-2\x1d\x2cRC\x1b-6\x1d\x2cRC\x1b-10\x1d\x2cRC\x1b-14\x1d\x2cRC\x1b-18\x1d\x29)
putline(,,,,,,@rs1.bante,,,,,,,,,)

[Type32]
#formatspecialrow($_row,0,25,2)
#putcell($_row,2,@rs1.row_no)
#putcell($_row,3,@rs1.hin_cd)
#putcell($_row,6,@rs1.hin_nm)
#putcell($_row,17,@rs1.tan)
#putline(,,,,,,,,,,,,,@rs1.havy#,,,,@rs1.ryou#,,@rs1.suryo#,,,@rs1.teika#,,,@rs1.tanka#,,,@rs1.kingaku#)
#putcell($_row,2,@rs1.nm)
#putcell($_row,4,@rs1.k)
#putcell($_row,6,@rs1.nm1)
#putcell($_row,8,@rs1.k1)
#putcell($_row,10,@rs1.nm2)
#putcell($_row,12,@rs1.k2)
#putcell($_row,10,@rs1.nm3)
#putcell($_row,12,@rs1.k3)
#putcell($_row,10,@rs1.nm4)
#putcell($_row,12,@rs1.k4)
#putline(,,,,,@rs1.bante,,,,,,,,@rs1.biko_m)


formatspecialrow($_row,0,25,2)
putcell($_row,2,@rs1.row_no)
#putcell($_row,3,@rs1.hin_cd)
putcell($_row,3,@rs1.hin_nm)
putcell($_row,11,@rs1.biko1)
putcell($_row,24,@rs1.tanka)
putcell($_row,27,@rs1.ryou)
putcell($_row,29,@rs1.tanka)
#putcell($_row,17,@rs1.tan)
putline(,,,,,,,,,,@rs1.biko_m,,,,,@rs1.havy#,,,,@rs1.ryou#,,@rs1.suryo#,,,@rs1.tanka#,,,,@rs1.kingaku#)
putcell($_row,2,@rs1.nm)
putcell($_row,4,@rs1.k)
putcell($_row,6,@rs1.nm1)
putcell($_row,8,@rs1.k1)
putcell($_row,10,@rs1.nm2)
putcell($_row,12,@rs1.k2)
putcell($_row,10,@rs1.nm3)
putcell($_row,12,@rs1.k3)
putcell($_row,10,@rs1.nm4)
putcell($_row,12,@rs1.k4)
#putformula($_row,22,SUM\x28RC\x1b-2\x1d\x2cRC\x1b-6\x1d\x2cRC\x1b-10\x1d\x2cRC\x1b-14\x1d\x2cRC\x1b-18\x1d\x29)
putline(,,,,,,@rs1.bante,,,,,,,,,)