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

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

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
#case($id_blank,$han_name,納品書,blank2,納品書(控),blank2,blank1)
#case($id_formats,$han_name,納品書,formats2,納品書(控),formats2,formats1)
#deforgpage($id_blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(true,false)
#deforgpage(layout1)
resetorg()
#ヘッダ処理
#putcell(1,9,$han_name)
putcell(4,2,@rs1.sir_nm)
putcell(5,11,@rs1.keisyou1)
putcell(6,11,@rs1.keisyou2)
putcell(6,2,@rs1.sir_tan)
putcell(2,21,@rs1.den_no)
putcell(3,21,@rs1.syori_ymd)
putcell(4,21,@rs1.tan_nm)
putcell(10,2,@rs1.hin_nm)
putcell(10,9,樹脂名)
putcell(10,13,@rs1.tanka)
putcell(10,16,製品の重さ)
putcell(10,18,ランナーの重さ)
putcell(10,20,@rs1.nouki_ymd)
putcell(13,2,@rs1.biko1)
#putcell(7,2,@rs1.addr4)
#putcell(8,2,$han_name)
putcell(52,12,@rs1.tani)

#case($type0,$rows,19,1,0)

#case($type0,$han_name,納品書,1,納品書(控),1,0)
#case($type1,$han_name,納品書,0,納品書(控),0,1)
#iterate(Type0,$type0)
#iterate(Type1,$type1)


#putcell(8,14,@rs1.hacyu_no)
#putcell(5,16,@rs1.syori_ymd)
#putcell(12,15,@rs1.syori_ymd)
#putcell(12,18,@rs1.syori_ymd)
#putcell(8,16,@rs1.tok_cd)
#putcell(8,18,@rs1.den_no)
#putcell(9,2,@rs1.tok_nm)

#[Type0]
#putcell(14,14,)
#putcell(14,18,)
#putcell(14,22,)
#putcell(14,27,@rs1.zeinuki_gaku)

#[Type1]
#putcell(14,14,)
#putcell(14,18,)
#putcell(14,22,)
#putcell(16,25,@rs1.zeinuki_gaku)

#[Type1]
#putcell(14,14,@rs1.zeinuki_gaku)
#putcell(14,18,@rs1.zei_gaku)
#putcell(14,22,@rs1.zeikomi_gaku)
#putcell(14,27,@rs1.zeikomi_gaku)




#-------------------------------------------------
#  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)
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]
#setdouble($syohin_nm,0)
#case($type0,$syohin_nm,0,1,0)
#case($type1,$syohin_nm,0,0,1)
#iterate(Type0,$type0)
#iterate(Type1,$type1)

#[Type0]
#putcell(15,5,@rs1.tori_cond)
putcell($_row,2,@rs1.row_no)
putline(@rs1.hin_nm,,,,顔料番号,,,@rs1.hacyu_su,,,@rs1.meisai_biko,,,512,,,778,,,2,,3)
putline()
#putcell(49,13,@rs1.biko1)
putcell(52,8,@rs1.goukei)

#putline(,2,3,,5,,,,,,,,,,,,,,,,,22,,24,,,,28)
#putline(,,,,,,,@rs1.tanto_nm,,,,,,,,,,,,,,,,,,,,)
#putline(,@rs1.den_dt,,@rs1.den_no,,@rs1.kbn,,@rs1.syohin_nm,,,,,,,,,,,,,@rs1.suryo#,,,@rs1.tanka#,,,,@rs1.kingkaku#)
#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.row_no,@rs1.hin_cd,,@rs1.hin_nm,,,,,,,,,,,,,,,,,@rs1.suryo,,@rs1.tanka#,,,,@rs1.kingaku#)


#putline(,@rs1.den_dt,,@rs1.den_no,,@rs1.kbn,,@rs1.syohin_nm,,,,,,,,,,,,,@rs1.suryo,,,@rs1.tanka#,,,,@rs1.kingkaku#)