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

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

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
deforgpage(blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(true,true)
deforgpage(formats)
resetorg()
#ヘッダ処理
putcell(4,2,@rs1.yubin_no)
putcell(5,2,@rs1.address1)
putcell(6,2,@rs1.address2)
putcell(7,2,@rs1.address3)

putcell(5,16,@rs1.seikyu_ymd)
#putcell(8,16,@rs1.tok_cd)
#putcell(8,18,@rs1.seikyu_no)
putcell(9,2,@rs1.tok_nm)

putcell(14,2,@rs1.zen_seikyu_zan)
putcell(14,6,@rs1.nyukin_gaku)
putcell(14,10,@rs1.kurikoshi_gaku)
putcell(14,14,@rs1.zeinuki_gaku)
putcell(14,18,@rs1.zei_gaku)
putcell(14,22,@rs1.zeikomi_gaku)
putcell(14,27,@rs1.seikyu_zan)

putcell(66,5,@rs1.furikikan1)
putcell(66,13,@rs1.furikikan2)
putcell(66,21,@rs1.furikikan3)

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

#-------------------------------------------------
#  Key2設定ルーチン
#-------------------------------------------------
[KeyInfo_key2]
keyvalue(dummy)
keybreakproc(GroupBegin_key2,GroupEnd_key2)

#-------------------------------------------------
#  Key2開始時
#-------------------------------------------------
[GroupBegin_key2]


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


#-------------------------------------------------
#  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]
#putline(,2,,4,,6,,8,,,,,,,,,,,,,21,,,24,,,,28)
#putline(,,,,,,,@rs1.tanto_nm,,,,,,,,,,,,,,,,,,,,)
putline(,@rs1.den_dt,,@rs1.den_no,,@rs1.kbn,,@rs1.hin_nm,,,,,,,,,,,,,@rs1.suryo#,,,@rs1.tanka#,,,,@rs1.kingaku#)
#putline(,,,@rs1.zei_per,,,,@rs1.color,,,,,,,,,,,,,,,,,,,,)
#putline(,,,,,,,@rs1.sunpo,,,,,,,,,,,,,,,,,,,,)
#putcell(19,8,                              【 前月繰越 】)
#putcell(20,8,                              【 消 費 税 】)
#concatenate($nyukin,【ご 入 金】 ,@rs1.name_nyukin)
#putcell(21,8,$nyukin)
#putcell(22,8,                            【 お買上合計 】)
#putcell(23,8,                            【 消費税合計 】)
#putcell(24,8,                            【 ご入金合計 】)
#putcell(25,8,                            【 ご請求合計 】)


[Type1]
putline(,@rs1.den_dt,,@rs1.den_no,,@rs1.kbn,,@rs1.hin_nm,,,,,,,,,,,,,@rs1.suryo,,,@rs1.tanka#,,,,@rs1.kingaku#)