<%
if busca="ok" and lorderno<>"" and lorderseq<>"" then
'set rswoclear=dbsql.execute("delete from Quote2_beSQL.dbo.Barcode_rwk")
'set Rswofill=dbsql.execute("insert into Quote2_beSQL.dbo.Barcode_rwk select * from (SELECT a.crp_id, a.plan_date, a.goods_class, a.ord_date, a.ord_seq, a.pallet_cnt, a.proc_cd, a.proc_cd1, (select proc_nm from stb160t(nolock) where proc_cd = a.proc_cd1) proc_nm, a.plan_qty, a.prod_qty, a.chk_bit, a.bar_code, a.loc_no, a.work_gubun, case a.work_gubun when '0' then '1S' when '1' then '2S' when '2' then '3S' end work_nm, a.plan_t, a.pallet_qty, a.cust_cd, (select cust_nm from stb010t(nolock) where cust_cd = a.cust_cd) cust_nm, a.nap_cd, (select nap_nm from stb030t(nolock) where crp_id = '10' and cust_cd = a.cust_cd and nap_cd = a.nap_cd) nap_nm, dbo.usf_no('B', '1', a.ord_date, a.ord_seq, 4, '-') ord_no, b.good_nm, a.bar_prt, a.prt_chk, a.prt_date, a.prt_time, case b.good_nm when d.good_nm then '' else d.good_nm end item_nm, right(a.ord_date,6) + right('0000' + convert(varchar(4), a.ord_seq), 4) ord_no2, e.note, right(e.job_date,6) del_date, case e.team_class when '0' then '1S' when '1' then '2S' when '2' then '3S' end del_team, isnull(a.del_chk,'0') del_chk, case a.lot_no when '' then case b.balju_no when '' then (select po_no from saa080t c(nolock) where b.ord_date = c.ord_date and b.ord_seq = c.ord_seq ) else b.balju_no end else a.lot_no end lot_no FROM bar_code a(nolock) left outer join (select barcode, in_qty from barcode_inout(nolock) where kubun = '1' ) c on a.bar_code = c.barcode left outer join (select bar_code, note, job_date, team_class from barcodedel) e on a.bar_code = e.bar_code, stb040t d(nolock), boa010t b(nolock) where a.crp_id = b.crp_id and a.goods_class = b.goods_class and a.ord_date = b.ord_date and a.ord_seq = b.ord_seq and b.del_yn = '0' and b.cust_cd = d.cust_cd and b.good_cd = d.good_cd and a.crp_id = '10' and a.goods_class = '2' and a.ord_date = '" & lorderno & "' and a.ord_seq = '" & lorderseq & "') as x")
'set Rsorder=dbsql3.execute("select * from barcode_rwk order by pallet_cnt")
lq="SELECT a.crp_id, a.plan_date, a.goods_class, a.ord_date, a.ord_seq, a.pallet_cnt, a.proc_cd, a.proc_cd1, (select proc_nm from stb160t(nolock) where proc_cd = a.proc_cd1) proc_nm, a.plan_qty, a.prod_qty, a.chk_bit, a.bar_code, a.loc_no, a.work_gubun, case a.work_gubun when '0' then '1S' when '1' then '2S' when '2' then '3S' end work_nm, a.plan_t, a.pallet_qty, a.cust_cd, (select cust_nm from stb010t(nolock) where cust_cd = a.cust_cd) cust_nm, a.nap_cd, (select nap_nm from stb030t(nolock) where crp_id = '10' and cust_cd = a.cust_cd and nap_cd = a.nap_cd) nap_nm, dbo.usf_no('B', '1', a.ord_date, a.ord_seq, 4, '-') ord_no, b.good_nm, a.bar_prt, a.prt_chk, a.prt_date, a.prt_time, case b.good_nm when d.good_nm then '' else d.good_nm end item_nm, right(a.ord_date,6) + right('0000' + convert(varchar(4), a.ord_seq), 4) ord_no2, e.note, right(e.job_date,6) del_date, case e.team_class when '0' then '1S' when '1' then '2S' when '2' then '3S' end del_team, isnull(a.del_chk,'0') del_chk, case a.lot_no when '' then case b.balju_no when '' then (select po_no from saa080t c(nolock) where b.ord_date = c.ord_date and b.ord_seq = c.ord_seq ) else b.balju_no end else a.lot_no end lot_no FROM bar_code a(nolock) left outer join (select barcode, in_qty from barcode_inout(nolock) where kubun = '1' ) c on a.bar_code = c.barcode left outer join (select bar_code, note, job_date, team_class from barcodedel) e on a.bar_code = e.bar_code, stb040t d(nolock), boa010t b(nolock) where a.crp_id = b.crp_id and a.goods_class = b.goods_class and a.ord_date = b.ord_date and a.ord_seq = b.ord_seq and b.del_yn = '0' and b.cust_cd = d.cust_cd and b.good_cd = d.good_cd and a.crp_id = '10' and a.goods_class = '2' and a.ord_date = '" & lorderno & "' and a.ord_seq = '" & lorderseq & "'"
response.write(lq)
set Rsorder=dbsql.execute("select a.crp_id, a.prod_local, a.plan_date, a.plan_seq, a.goods_class, a.ord_date, case a.goods_class when '1' then 'S' + b.local_cd + right(a.ord_date,6) when '2' then 'B' + b.local_cd + right(a.ord_date,6) end ord_day, a.ord_seq, b.cust_cd, a.sht_size1, a.sht_size2, case when b.sht_size1 = a.sht_size1 then 0 else b.sht_size1 end old_sht_size1, case when b.sht_size2 = a.sht_size2 then 0 else b.sht_size2 end old_sht_size2, a.plan_qty, a.real_plan_qty, a.real_prod_qty, a.prod_qty, a.flute_cd, (select flute_nm from stb080t where stb080t.flute_cd = a.flute_cd) flute_nm, a.mtrl_cd1, a.mtrl_cd2, a.mtrl_cd3, a.mtrl_cd4, a.mtrl_cd5, a.mtrl_cd6, a.mtrl_cd7, (select mtrl_dis_nm from stb070t(nolock) where mtrl_cd = a.mtrl_cd1) mtrl_nm1, (select mtrl_dis_nm from stb070t(nolock) where mtrl_cd = a.mtrl_cd2) mtrl_nm2, (select mtrl_dis_nm from stb070t(nolock) where mtrl_cd = a.mtrl_cd3) mtrl_nm3, (select mtrl_dis_nm from stb070t(nolock) where mtrl_cd = a.mtrl_cd4) mtrl_nm4, (select mtrl_dis_nm from stb070t(nolock) where mtrl_cd = a.mtrl_cd5) mtrl_nm5, (select weight from stb070t(nolock) where mtrl_cd = a.mtrl_cd1) mtrl_weight1, (select weight from stb070t(nolock) where mtrl_cd = a.mtrl_cd2) mtrl_weight2, (select weight from stb070t(nolock) where mtrl_cd = a.mtrl_cd3) mtrl_weight3, (select weight from stb070t(nolock) where mtrl_cd = a.mtrl_cd4) mtrl_weight4, (select weight from stb070t(nolock) where mtrl_cd = a.mtrl_cd5) mtrl_weight5, b.cust_cd, (select cust_nm from stb010t(nolock) where cust_cd = b.cust_cd ) cust_nm, b.scr_size1, b.scr_size2, b.scr_size3, b.scr_size4, b.scr_size5, b.scr_tot_size, right(b.nap_date,4) nap_day, b.good_nm, case a.goods_class when '1' then 'S' else 'B' end + a.ord_date + case len(a.ord_seq) when 1 then '000' + convert(varchar(4), a.ord_seq) when 2 then '00' + convert(varchar(4), a.ord_seq) when 3 then '0' + convert(varchar(4), a.ord_seq) when 4 then convert(varchar(4), a.ord_seq) end ordno from shb010t a(nolock), sha010t b (nolock) where a.ord_date = b.ord_date and a.ord_seq = b.ord_seq and a.ord_date = '" & lorderno & "' and a.ord_seq = '" & lorderseq & "' order by a.prod_local, a.plan_date, a.plan_seq, a.pok_no, a.flute_no, a.lot_no, a.plan_no, b.scr_size1, b.scr_size2, b.scr_size3")
if rsorder.eof and rsorder.bof then
else
'totpage=INT(rsorder("prod_qty")/lqtypallet)+1
'xpage=1
'xtotqty=int(rsorder("prod_qty"))
'lqtypallet2=lqtypallet
%>