[Main]
dbuse(true)
initparam(printMode,reportId,s_id)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key1,key2)
printreport($printMode,true,false)

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

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

#フッタ処理
setdouble($f_biko,60)

#ヘッダ処理_ヘッダー
putcell(1,28,@rs1.seikyu_ymd)
putcell(2,4,@rs1.yubin_no)
putcell(3,4,@rs1.address1)
putcell(4,4,@rs1.address2)
putcell(5,4,@rs1.address3)
putcell(6,4,@rs1.tok_nm)
putcell(6,15,@rs1.keisyou)
putcell(8,15,@rs1.keisyou2)
putcell(8,4,@rs1.tok_tan)
putcell(10,6,@rs1.tel_no)
putcell(15,2,@rs1.tait)
putcell(5,22,@rs1.han_name)
putcell(6,22,@rs1.koumoku1)
putcell(7,22,@rs1.koumoku2)
putcell(8,22,@rs1.koumoku3)
putcell(9,23,@rs1.koumoku5)
putcell(9,28,@rs1.koumoku6)
putcell(10,23,@rs1.koumoku7)

#ヘッダ処理_明細
formatspecialrow($_row,0,18,4)

#空行
putline(,)
putcell(19,2,前回御請求額)
putcell(19,6,御入金額)
putcell(19,10,繰越額)
putcell(18,14,今回御買上額)
putcell(19,14,税抜御請求額)
putcell(19,18,消費税)
putcell(19,22,税込御請求額)
putcell(19,27,今回御請求額)
putcell(20,2,@rs1.zen_seikyu_zan)
putcell(20,6,@rs1.nyukin_gaku)
putcell(20,10,@rs1.kurikoshi_gaku)
putcell(20,14,@rs1.zeinuki_gaku)
putcell(20,18,@rs1.zei_gaku)
putcell(20,22,@rs1.zeikomi_gaku)
putcell(20,27,@rs1.seikyu_zan)

#空行
putline(,)
putline(,)
putline(,)

#見出し
formatspecialrow($_row,0,22,2)
putline(,)
putcell($_row,2,日　付)
putcell($_row,4,伝票No.)
putcell($_row,6,区　分)
putcell($_row,8,商品名)
putcell($_row,21,数　量)
putcell($_row,24,単　価)
putcell($_row,28,金　額)

#空行
putline(,)



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

#	putcell($_row,32,@rs1.row_B)

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

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


[Type21]
putcell(19,2,前回御請求額)
putcell(19,6,御入金額)
putcell(19,10,繰越額)
putcell(18,14,今回御買上額)
putcell(19,14,税抜御請求額)
putcell(19,18,消費税)
putcell(19,22,税込御請求額)
putcell(19,27,今回御請求額)

#明細行一括format
formatspecialrow($_row,0,24,35)

[Type22]
#ヘッダ処理_明細
formatspecialrow($_row,0,65,4)

#空行
putline(,)
putline(,)
putline(,)

#見出し
putline(,)
formatspecialrow($_row,0,22,2)
putline(,)
putcell($_row,2,日　付)
putcell($_row,4,伝票No.)
putcell($_row,6,区　分)
putcell($_row,8,商品名)
putcell($_row,21,数　量)
putcell($_row,24,単　価)
putcell($_row,28,金　額)

#空行
putline(,)

#明細行一括format
formatspecialrow($_row,0,24,35)

#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
[GroupEnd_key2]
#FormatNormalするかどうか
putline(,)
putcell($f_biko,2,お振込みは以下の口座にお願いいたします。)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)
putline(,)

sum($f_biko,50)


#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$s_id)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]

case($type0,@rs1.sort,0,1,0)
case($type1,@rs1.sort,0,0,1)
iterate(Type0,$type0)
iterate(Type1,$type1)

[Type0]
putcell($_row,2,@rs1.den_dt)
putcell($_row,4,@rs1.den_no)
putcell($_row,6,@rs1.kbn)
putcell($_row,8,@rs1.hin_nm)
putline(,,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,,@rs1.tanka#,,,,@rs1.kingaku#)



[Type1]


putcell($_row,2,@rs1.den_dt)
putcell($_row,4,@rs1.den_no)
putcell($_row,6,@rs1.kbn)
putcell($_row,8,@rs1.hin_nm)
putline(,,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,,@rs1.tanka#,,,,@rs1.kingaku#)

#putline(,@rs1.den_dt,,,,@rs1.den_no,,,,@rs1.kbn,,,@rs1.hin_nm,,,,,,,,,,,@rs1.zei_per,,,,@rs1.kingaku#,,,,,)