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

#-------------------------------------------------
#  SQL実行_自社
#-------------------------------------------------
[SelectRecords_Jisya]
new($param)
addparam($param,$han_name)
dbselect(SelectRecords_Jisya,@rs0,$param)

#-------------------------------------------------
#  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)
addparam($param,$jucyu_flg)
dbselect(SelectRecords,@rs1,$param)

#-------------------------------------------------
#  SQL実行_振込
#-------------------------------------------------
[SelectRecords_Furi]
new($param)
addparam($param,$s_id)
addparam($param,@rs1.tok_cd)
dbselect(SelectRecords_Furi,@rs2,$param)

#-------------------------------------------------
#  振込機関出力処理
#-------------------------------------------------
[Furikomi]
putcell($furikomi,2,@rs2.furikikan)
sum($furikomi,1)

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

#-------------------------------------------------
#  Key1開始時
#-------------------------------------------------
[GroupBegin_key1]
case($id_blank,$han_name,納品書,blank2,納品書(控),blank2,見積書,blank2,blank1)
case($id_formats,$han_name,納品書,formats2,納品書(控),formats2,見積書,formats2,formats1)
deforgpage($id_blank)
#Importするかどうか,FormatNormalするかどうか
pageopen(true,false)
deforgpage($id_formats)
resetorg()
#ヘッダ処理
putcell(2,4,@rs1.zip_no)
putcell(3,4,@rs1.addr1)
putcell(4,4,@rs1.addr2)
putcell(5,4,@rs1.addr3)
putcell(4,22,@rs0.j_nm)
putcell(5,22,@rs0.j_post_s)
putcell(5,25,@rs0.j_address)
putcell(6,22,@rs0.j_address2)
putcell(7,22,@rs0.j_address3)
putcell(10,2,$han_name)
concatenate($tel_fax,@rs0.j_tel_s, ,@rs0.j_fax_s)
putcell(8,22,$tel_fax)
putcell(9,22,@rs0.j_url_s)
putcell(10,22,@rs0.j_email_s)
putcell(11,28,@rs0.j_daihyo_s)

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

case($type0,$han_name,納品書,1,納品書(控),1,見積書,1,0)
case($type1,$han_name,納品書,0,納品書(控),0,見積書,0,1)
iterate(FuriAri,$type0)
iterate(Furinashi,$type1)

putcell(2,27,@rs1.syori_ymd)
#putcell(8,16,@rs1.tok_cd)
putcell(3,27,@rs1.den_no)
putcell(7,4,@rs1.tok_nm)
putcell(8,4,@rs1.nonyu_nm_s)

concatenate($save_biko,@rs1.biko1)
case($f_flg,@rs1.page_no,0,1,0)

iterate(PrintHeader,$f_flg)


[Furinashi]
subroutine(SelectRecords_Furi)
setdouble($furikomi,13)
loop(Furikomi,@rs2)

[PrintHeader]
iterate(Type0,$type0)
iterate(Type1,$type1)


[Type0]
putcell(13,2,@rs0.mongon1)
putcell(14,2,@rs0.mongon2)
putcell(15,2,@rs0.mongon3)
putcell(16,2,@rs0.mongon4)
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)
case($tori_cond_label,@rs1.tori_cond,,,支払条件：)
putcell(15,2,$tori_cond_label)
putcell(15,5,@rs1.tori_cond)

#-------------------------------------------------
#  Key1終了時
#-------------------------------------------------
[GroupEnd_key1]
iterate(PrintFooter,$f_flg)
#FormatNormalするかどうか
pageclose(false)

[PrintFooter]
putcell(58,4,$save_biko)

#-------------------------------------------------
#  明細表示処理
#-------------------------------------------------
[PrintNormal]
putcell($_row,3,@rs1.hin_cd)
putcell($_row,7,@rs1.hin_nm)
putline(,@rs1.row_no#,,,,,,,,,,,,,,,,,,,,@rs1.suryo#,,@rs1.tanka#,,,,@rs1.kingaku#)