<%@ LANGUAGE = "VBScript" %> <%Response.Buffer = False%> <% Session("turno")="" 'Session.Timeout = 120 Server.ScriptTimeout = 10000 busca=request.QueryString("busca") doc=request.QueryString("doc") origen=request.QueryString("origen") lorderno=replace(Request.Form("lorderno"),"-","") lorderseq=Request.Form("lorderseq") if lorderno="" then lorderno=origen end if lqtypallet=Request.Form("lqtypallet") if lqtypallet="" or lqtypallet=null then lqtypallet=1 end if '''''''''''''''''''''''''''''''''''''' %> ID Pallet datepicker demo
Rework Sheet Identity Printing

WO:

-

(yyyymmdd)-(xxxx)       

    



<% if busca="ok" and lorderno<>"" and lorderseq<>"" then set rswoclear=dbsql.execute("delete from Quote2_beSQL.dbo.Barcode_she") 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") if rsorder.eof and rsorder.bof then else 'totpage=INT(rsorder("prod_qty")/lqtypallet)+1 'xpage=1 'xtotqty=int(rsorder("prod_qty")) 'lqtypallet2=lqtypallet if rsorder("nap_cd")<>"1" then %>

<% else %> <% end if %> <% do while not rsorder.eof ' lqtypalletx=right("0000"&lqtypallet2,4) %> <% if rsorder("loc_no")="" or rsorder("chk_bit")=0 then %> <% else %> <% end if %> <% if rsorder("loc_no")="" or rsorder("chk_bit")=0 then %> <% else %> <% end if %> <% rsorder.movenext loop end if rsorder.close set rsorder = nothing %>
Pallet # Cust_cd Cust_name Item Scanned Bar_Print P/O # QTY
"> <%=rsorder("pallet_cnt") %>  <%=rsorder("pallet_cnt") %> <%=rsorder("cust_cd") %>  <%=rsorder("cust_nm") %>  <%=rsorder("good_nm") %> Scanned<%=rsorder("bar_prt") %>  <%=rsorder("lot_no") %>  <%=rsorder("plan_qty") %> 
<% end if %>