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

#-------------------------------------------------
#  Key1設定ルーチン
#-------------------------------------------------
[KeyInfo_key1]
keyvalue(@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($id_formats)
resetorg()
#ヘッダ処理
putcell(1,8,$han_name)
putcell(4,2,@rs1.zip_no)
putcell(5,2,@rs1.addr1)
putcell(6,2,@rs1.addr2)
putcell(7,2,@rs1.addr3)
#putcell(8,2,$han_name)

#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(5,16,@rs1.syori_ymd)
#putcell(8,16,@rs1.tok_cd)
putcell(8,15,@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,@rs1.zeinuki_gaku)
putcell(14,18,@rs1.zei_gaku)
putcell(14,22,@rs1.zeikomi_gaku)
putcell(14,27,@rs1.zeikomi_gaku)


#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
putcell(58,4,@rs1.biko1)
#FormatNormalするかどうか
pageclose(true)

#-------------------------------------------------
#  SQL実行
#-------------------------------------------------
[SelectRecords]
new($param)
addparam($param,$dt_from)
addparam($param,$dt_to)
addparam($param,$uri_no)
addparam($param,$tokui_cd)
addparam($param,$syohin_nm)
addparam($param,$han_name)
addparam($param,$seikyu_s_id)
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)
putline(,@rs1.row_no,@rs1.hin_cd,,,,@rs1.hin_nm,,,,,,,,,,,,,,,@rs1.suryo,,@rs1.tanka#,,,,@rs1.kingaku#)


#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#)