ID Pallet

<%@ 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 limprimir = request.form("imprimir") if limprimir="" and limprimir="" then response.Redirect("sheet_id_2022.asp") end if lqtypallet=Request.Form("lqtypallet") if lqtypallet="" or lqtypallet=null then lqtypallet=1 end if '''''''''''''''''''''''''''''''''''''' %> ID Pallet datepicker demo

Regresar/Back

<% set Rsorder=dbsql3.execute("select *,(select convert(varchar(5),sht_size1)+' x '+convert(varchar(5),sht_size2) from [kss_brm].[dbo].[stb040t] where cust_cd COLLATE DATABASE_DEFAULT =a.cust_cd COLLATE DATABASE_DEFAULT and good_nm COLLATE DATABASE_DEFAULT=a.good_nm COLLATE DATABASE_DEFAULT) sizesht from [Quote2_beSQL].[dbo].[barcode_she] as a where pallet_cnt in ("&limprimir&")") if rsorder.eof and rsorder.bof then else 'totpage=INT(rsorder("prod_qty")/lqtypallet)+1 'xpage=1 'xtotqty=int(rsorder("prod_qty")) 'lqtypallet2=lqtypallet '**** Fecha de impresion lprt_date=(year(date)&right("0"&month(date),2)&right("0"&day(date),2)) do while not rsorder.eof if not isnull(rsorder("prt_date")) and rsorder("prt_date")>"1" then else 'lqu="Update bar_code set prt_date='"&lprt_date&"',prt_chk='1' where bar_code='"&rsorder("bar_code")&"' and ord_date='"&rsorder("ord_date")&"' and ord_seq='"&rsorder("ord_seq")&"'" 'response.write(lqu) ' set rsupdprt=dbsql.execute("Update bar_code set prt_date='"&lprt_date&"',prt_chk='1' where bar_code='"&rsorder("bar_code")&"' and ord_date='"&rsorder("ord_date")&"' and ord_seq='"&rsorder("ord_seq")&"'") end if rsorder.movenext loop rsorder.movefirst do while not rsorder.eof ' lqtypalletx=right("0000"&lqtypallet2,4) lweek=int((date-cdate("01/01/"&year(date)))/7) %> <% if pagina=1 then %> <% pagina=2 else %> <% end if %> <% if rsorder("cust_cd")="20001" then %> <% else %> <% end if %> <% if not isnull(rsorder("prt_date")) and rsorder("prt_date")>"1" then %> <% else %> <% end if %>

<%=rsorder("cust_nm") %>

Buyer

<%=rsorder("cust_nm") %>

Code

<%="*"&rsorder("bar_code")&"*" %>

<%=mid(rsorder("good_nm"),1,5) %><%=mid(rsorder("good_nm"),6,9) %>
<%=mid(rsorder("good_nm"),15,25) %>

<%="*"&rsorder("good_nm")&"*"%>

<%=rsorder("good_nm") %>

<%="*"&rsorder("good_nm")&"*"%>

P/O No

<%=rsorder("lot_no")%>
<%="*"&rsorder("lot_no")&"*"%>

Date

<%=mid(rsorder("prt_date"),1,4)&"."&mid(rsorder("prt_date"),5,2)&"."&mid(rsorder("prt_date"),7,2)%> <%=lweek%> Week

<%=year(date)&"."&right("0"&month(date),2)&"."&right("0"&day(date),2)%> <%=lweek%> Week

Shift

<%=rsorder("work_nm")%>

Pallet

Verificacion de paletizado

SIZE

<%=rsorder("sizesht")%>

<%=rsorder("pallet_cnt")%>

Prod Order: <%=rsorder("ord_no")%>

<%="*"&rsorder("bar_code")&"*" %>

QTY

<%=rsorder("plan_qty")%> <%="*"&rsorder("pallet_qty")&"*"%>

Cumplimos con RoHS

Schedule Date :

Doc. No. PL-01-F08 REV.03

<% rsorder.movenext loop end if rsorder.close set rsorder = nothing %>