<%@ 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=Request.Form("lorderno") lqtypallet=Request.Form("lqtypallet") if lqtypallet="" or lqtypallet=null then lqtypallet=1 end if '''''''''''''''''''''''''''''''''''''' %> ID Corrugator datepicker demo
       
ORDER NO.: Ejemplo: 220328-2501  
QTY / PALLET:    







<% set Rsorder=dbsqlcorr.execute("select * from SHPSOUT(nolock) where sujuno='" & lorderno & "'") if rsorder.eof and rsorder.bof then else %> <% totpage=INT(rsorder("qty")/lqtypallet)+1 xpage=1 xtotqty=int(rsorder("QTY")) lqtypallet2=lqtypallet do while xpage<(totpage+1) lqtypalletx=right("0000"&lqtypallet2,4) %>
<%=mid(rsorder("jobymd"),1,4)&"-"&mid(rsorder("jobymd"),5,2)&"-"&mid(rsorder("jobymd"),7,2)%>  <%=time()%>   <%=xpage %> 
ORDER NO <%=rsorder("sujuno") %>  <%=rsorder("jobymd") %> 
ITEM <%=rsorder("box_nm") %> 
SPEC <%=rsorder("jijg") %> 
SIZE <%=rsorder("jang") %> * <%=rsorder("wpok") %>  <%=INT((rsorder("jang")*rsorder("wpok")*rsorder("qty"))/1000000)%> M2
SCORE <%=rsorder("SLSC") %> 
PROCESS <%=rsorder("BOX_MNAME") %>   
QUANTITY <%=rsorder("QTY") %>  total <%=lqtypallet2 %> 
DELIVERY    
CUSTOMER <%=rsorder("CUST") %> 
REMARK <%=rsorder("NOTE") %> 
<%="*"+trim(rsorder("sujuno"))+"*"%>
<%="*"+trim(rsorder("sujuno"))+"*"%>
<%="*"&trim(trim(rsorder("box_nm"))&chr(43)&trim(rsorder("jobymd"))&chr(43)&trim(lqtypalletx)&chr(43)&trim(rsorder("jobymd")))&"*"%>
<%="*"&trim(trim(rsorder("box_nm"))&chr(43)&trim(rsorder("jobymd"))&chr(43)&trim(lqtypalletx)&chr(43)&trim(rsorder("jobymd")))&"*"%>





































<% xpage=xpage+1 xtotqty=int(xtotqty)-lqtypallet if int(xtotqty)>int(lqtypallet) then lqtypallet2=lqtypallet else lqtypallet2=(xtotqty) end if loop end if rsorder.close set rsorder = nothing %>