<%@ 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 Corrugator2 datepicker demo
       
ORDER NO.: Ejemplo: B202109016301   
QTY / PALLET:    







<% 'set Rsorder=dbsqlcorr.execute("select * from SHPSOUT(nolock) where sujuno='" & lorderno & "'") Set Rsorder = dbsql5.Execute("SELECT * FROM PCSIN where sujuno='"&lorderno&"' order by sujuno") ' lo ejecutas 'lq="SELECT * FROM PCSIN where sujuno='"&lorderno&"' order by sujuno" 'response.write(lq) if rsorder.eof and rsorder.bof then else 'rsorder.movefirst lqty=trim(rsorder("qty")) response.write(lqty) lqtyp=int(lqtypallet) ltotp=int(lqty)/lqtyp+1 xpage=1 xtotqty=int(lqty) lqtypallet2=lqtypallet do while xpage<(totpage+1) lqtypalletx=right("0000"&lqtypallet2,4) %>
<%=mid(rsorder("sujuno"),2,8)%>  <%=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 %>