<%@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
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
'Set Corr2 = strConexao.Execute("SELECT * FROM PCSIN where STAT<>'T' order by STIME,etime") ' lo ejecutas
'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")
'Set Rsfore = CurrentDb.OpenRecordset(Sqlfore)
xday2 = Right("00" & Rsfore0("month"), 2)
xmonth2 = Right("00" & Rsfore0("forecast"), 2)
xyear2 = Right("00" & Rsfore0("year"), 4)
xdate2=xyear2&xmonth2&xday2
If xdate>xdate2 Then
response.write (ErrorNo1)
else
%>
Report Corrugator II
datepicker demo
<%
header
%>
CORRUGATOR II |
<%
if Not corr2.EOF and Not corr2.BOF then
%>
| Hora: |
<%=Time()%> |
| ORDER: |
<%=Corr2("Didentity")%> |
| SPEED: |
| <%=Corr2("lspeed")%> |
QTY: |
<%=Corr2("hcuts")%> |
| BAD: |
<%=Corr2("hscrap")%> |
<%
end if
corr2.close
end if
''''''''''''''''''''''''
%>
<%
'Corr2.Close
strConexao.Close
Set strConexao=Nothing
End If
Rsfore0.Close
Set Rsfore0 = Nothing
dbsql5.Close
Set dbsql5 = Nothing
'''''''''''''
%>