<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% on error resume next Session.Timeout = 420 Server.ScriptTimeout = 5000 busca=request.QueryString("busca") doc=request.QueryString("doc") origen=request.QueryString("origen") Date_ini=Request.Form("Date_ini") Date_end=Request.Form("Date_end") lvende=Request.Form("cvende") criterio22=Request.Form("criterio22") if criterio22="" then xcriterio22=" Todos " end if if Date_ini="" or Date_ini=null then Date_ini=date()-1 Date_end=date()-1 end if Date_end2=cdate(Date_end)+1 Date_end3=cdate(Date_end)+1 turno1="065000" turno2="152000" turno3="232000" '''''''''''calcula strday = Right("00" & Day(Date_ini), 2) strmonth = Right("00" & Month(Date_ini), 2) stryear = Right("0000" & Year(Date_ini), 4) strday2 = Right("00" & Day(Date_end2), 2) strmonth2 = Right("00" & Month(Date_end2), 2) stryear2 = Right("0000" & Year(Date_end2), 4) fechainicial = CStr(stryear & strmonth & strday) fechafinal2 = CStr(stryear2 & strmonth2 & strday2) 'response.write(fechainicial&" ") 'response.write("FF "&fechafinal2) strday2 = Right("00" & Day(Date_end), 2) strmonth2 = Right("00" & Month(Date_end), 2) stryear2 = Right("00" & Year(Date_end), 4) fechafinal = CStr(stryear2 + strmonth2 + strday2) set strConexao = CreateObject("ADODB.Connection") ' seteas la conexion 'strConexao.Open("DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=molra; DBNAME=192.168.0.201:C:\PAUL\data\CARDBOARD20.FDB") 'response.write("Error "&Err.number&" .") 'HandleError Err.number if Err.number<>0 then 'Error response.write(" Error "&Err.number) else 'abrir la base, fijate que esta en el directorio que la tienes ... Set Corr2 = Server.CreateObject("ADODB.Recordset") ' seteas el recordset Set Corr2 = dbsql5.Execute("SELECT * FROM tblcurrent") ' lo ejecutas lwo="B20"&mid(replace(Corr2("Didentity"),"-",""),3,10) lqry="SELECT * FROM PCSIN where sujuno='"&lwo&"'" Set rsorder=dbsql5.Execute("SELECT * FROM PCSINtest where sujuno='"&lwo&"'") 'Set Corr2 = strConexao.Execute("SELECT * FROM PCSIN where STAT<>'T' order by STIME,etime") ' lo ejecutas 'response.write(lqry) 'JOBJO,JOBYMD, JOBSEQ xday = Right("00" & Day(Date), 2) xmonth = Right("00" & Month(Date), 2) xyear = Right("00" & Year(Date), 4) xdate=xyear&xmonth&xday Dim Rsfore0 Dim Sqlfore0 'set Rsfore0=dbsql3.execute("SELECT * FROM forecast WHERE id=49") 'xday2 = Right("00" & Rsfore0("month"), 2) 'xmonth2 = Right("00" & Rsfore0("forecast"), 2) 'xyear2 = Right("00" & Rsfore0("year"), 4) 'xdate2=xyear2&xmonth2&xday2 xday2 = mid(Corr2("hlsec"),7, 2) xmonth2 = mid(Corr2("hlsec"),5, 2) xyear2 = mid(Corr2("hlsec"),1,4) xdate2=xyear2&xmonth2&xday2 If xdate>xdate2 Then 'Fecha response.write (ErrorNo1) else %> Report Corrugator II datepicker demo
<% if (cdbl(rsorder("tqty")) <% else if (cdbl(Corr2("hcuts"))/cdbl(rsorder("tqty")))>.95 and (cdbl(Corr2("hcuts"))/cdbl(rsorder("tqty")))<1 then %> <% else %> <% end if end if %>
CORRUGATOR II
ORDER: <%=left(Corr2("Didentity"),14)%>
SPEED: <%=Corr2("lspeed")%>
TARGET: <%=rsorder("tqty")%>
PROD:<%=Corr2("hcuts")%><%=Corr2("hcuts")%><%=Corr2("hcuts")%>
<% corr2.close end if '''''''''''''''''''''''' %>
<% 'Corr2.Close strConexao.Close Set strConexao=Nothing End If Rsfore0.Close Set Rsfore0 = Nothing dbsql5.Close Set dbsql5 = Nothing ''''''''''''' %>