[Main]
dbuse(true)
initparam(printMode,reportId,dt_from,dt_to,uri_no,tokui_cd,syohin_nm,title,dst_filename,seikyu_s_id,option1)
deforgpage(blank)
defheadarea(hed)
defbodyarea(mei)
subroutine(SelectRecords)
loop(PrintNormal,@rs1,Key1,Key2)
#loop(PrintNormal,@rs1,Key1)
printreport($printMode,true)
#-------------------------------------------------
#  Key0設定ルーチン
#-------------------------------------------------
#[KeyInfo_key0]
#keyvalue(@rs1.uri_no)
#keybreakproc(GroupBegin_key0,GroupEnd_key0)

#-------------------------------------------------
#  Key0開始時
#-------------------------------------------------
#[GroupBegin_key0]


#-------------------------------------------------
#  Key0終了時
#-------------------------------------------------
#[GroupEnd_key0]
#


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

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
deforgpage(blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(false,false)
deforgpage(formats)
#setdouble($rows,0)
setdouble($cow,11)
setdouble($cow2,33)
setdouble($cow3,55)

#納品書
putcell(2,2,@rs1.post_n)
putcell(2,23,@rs1.uri_no)
#putcell(2,27,$option1)
putcell(3,11,@rs1.u_ymd)
putcell(3,1,@rs1.nonyu_addr1)
putcell(4,1,@rs1.nonyu_addr2)
putcell(5,1,@rs1.nonyu_addr3)
putcell(6,1,@rs1.tokui_nm)
putcell(6,10,@rs1.keisyou_a)
putcell(7,1,@rs1.nonyu_tan)
putcell(7,10,@rs1.keisyou_a2)
#putcell(8,1,@rs1.tokui_nm)
#putcell(8,10,@rs1.keisyo)
putcell(16,3,@rs1.biko1)
putcell(3,17,@rs1.koumoku1)
putcell(4,17,@rs1.koumoku2)
putcell(5,17,@rs1.koumoku3)
putcell(6,17,@rs1.han_name)
putcell(7,17,@rs1.koumoku7)
putcell(8,21,@rs1.koumoku5)
putcell(9,21,@rs1.koumoku6)

#物品受領書
putcell(24,2,@rs1.post_n)
putcell(24,23,@rs1.uri_no)
putcell(25,11,@rs1.u_ymd)
putcell(25,1,@rs1.nonyu_addr1)
putcell(26,1,@rs1.nonyu_addr2)
putcell(27,1,@rs1.nonyu_addr3)
putcell(28,1,@rs1.tokui_nm)
putcell(28,10,@rs1.keisyou_a)
putcell(29,1,@rs1.nonyu_tan)
putcell(29,10,@rs1.keisyou_a2)
#putcell(30,1,@rs1.tokui_nm)
#putcell(30,10,@rs1.keisyo)
putcell(38,3,@rs1.biko1)
putcell(25,17,@rs1.koumoku1)
putcell(26,17,@rs1.koumoku2)
putcell(27,17,@rs1.koumoku3)
putcell(28,17,@rs1.han_name)
putcell(29,17,@rs1.koumoku7)
putcell(30,21,@rs1.koumoku5)
putcell(31,21,@rs1.koumoku6)

#納品書(控)
putcell(46,2,@rs1.post_n)
putcell(46,23,@rs1.uri_no)
putcell(47,11,@rs1.u_ymd)
putcell(47,1,@rs1.nonyu_addr1)
putcell(48,1,@rs1.nonyu_addr2)
putcell(49,1,@rs1.nonyu_addr3)
putcell(50,1,@rs1.tokui_nm)
putcell(50,10,@rs1.keisyou_a)
putcell(51,1,@rs1.nonyu_tan)
putcell(51,10,@rs1.keisyou_a2)
#putcell(52,1,@rs1.tokui_nm)
#putcell(52,10,@rs1.keisyo)
putcell(60,3,@rs1.biko1)



case($goukei,@rs1.uri_row_kai,1,1,0)
iterate(Type1,$goukei)

[Type1]
putcell(16,22,@rs1.zn_gaku)
putcell(60,22,@rs1.zn_gaku)



case($kingaku,$option1,1,0,1)
iterate(op1_1,$kingaku)

[op1_1]
putcell(38,22,@rs1.zn_gaku)

resetorg()



#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
#FormatNormalするかどうか
#setdouble($con,0)
#putcell(16,22,@rs1.uri_row)
pageclose(false)

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

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


#-------------------------------------------------
#  Key2終了時
#-------------------------------------------------
#[GroupEnd_key2]
#
#putcell(16,22,@rs1.zn_gaku)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
#addparam($param,$sort)
addparam($param,$dt_from)
addparam($param,$dt_to)
addparam($param,$uri_no)
addparam($param,$tokui_cd)
addparam($param,$syohin_nm)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
#sum($rows,0)

#納品書
putline(,,,,,,,,)
putcell($cow,1,@rs1.hin_nm)
putcell($cow,13,@rs1.uri_s)
putcell($cow,16,@rs1.uri_t)
putcell($cow,19,@rs1.uri_g)
putcell($cow,22,@rs1.hosoku1)
sum($cow,1)


#納品書（控）
putline(,,,,,,,,)
putcell($cow3,1,@rs1.hin_nm)
putcell($cow3,13,@rs1.uri_s)
putcell($cow3,16,@rs1.uri_t)
putcell($cow3,19,@rs1.uri_g)
putcell($cow3,22,@rs1.hosoku1)

sum($cow3,1)

#受領書
putline(,,,,,,,,)
putcell($cow2,1,@rs1.hin_nm)
putcell($cow2,13,@rs1.uri_s)
putcell($cow2,22,印)
case($kingaku,$option1,1,0,1)
iterate(op1_2,$kingaku)
sum($cow2,1)

[op1_2]
putcell($cow2,16,@rs1.uri_t)
putcell($cow2,19,@rs1.uri_g)
#sum($cow2,1)