<%@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� driver; UID=SYSDBA;PWD=MOLRA; DBNAME=\\desktop-6psmf8k\firebird_db\CARDBOARD20.fdb") 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 ...http://192.168.0.196:81/tablasfirebird_c2.asp Set Corr2T = Server.CreateObject("ADODB.Recordset") ' seteas el recordset 'Set corr2t= strConexao.Execute("SELECT * FROM PCSIN where (LEFT(STIME,8) between '" & fechainicial & "' and '" & fechafinal2 & "') and left(STAT,1)='T' order by STIME,etime") ' lo ejecutas Set corr2t= strConexao.Execute("SELECT r.SERIALTIME, r.SERIALVAL, r.SERIALSTR, r.ROWMOVEKEY, r.STAT, r.SUJUNO, r.DOCNO, r.YMD, r.GOL, r.GOLUNION, r.DF, r.SFM1, r.SFL1, r.SFM2, r.SFL2, r.SFM3, r.SFL3, r.SFM4, r.SFL4, r.SJPOK, r.SJPOKNO, r.SJQTY, r.JANG, r.WPOK, r.QTY, r.POKNO, r.OVERQTY, r.TQTY, r.SSTRIM, r.SSET, r.SJSLSC, r.SLSC, r.SLSCSUB, r.CUST, r.CUSTLNAME, r.JOBYMD, r.MCODE, r.BOXJANG, r.BOXPOK, r.BOXGO, r.BOXLNAME, r.BOXNAME, r.DLVYMD, r.DLVNAME, r.STACKNO, r.SCGAP, r.BUSU, r.SJBEHAP, r.BEHAP, r.NOTE, r.JOBSEQ, r.JTIME, r.DTIME, r.PQTY, r.EQTY, r.CHGQTY, r.STIME, r.ETIME, r.JOBJO, r.JUYA, r.AVGSPEED, r.TOTLENGTH, r.CUTLENGTH, r.DFLENGTH, r.BFLENGTH, r.AFLENGTH, r.ERRLENGTH, r.CHGLENGTH, r.POPUP, r.JOBCPYMD, r.DADAN, r.EXTRACHECK, r.CANCELCHECK, r.ORIGQTY, r.RSTNO, r.PREPQTY, r.DF_CF, r.SFM1_CF, r.SFL1_CF, r.SFM2_CF, r.SFL2_CF, r.SFM3_CF, r.SFL3_CF, r.SFM4_CF, r.SFL4_CF, r.DF_CF_M, r.SFM1_CF_M, r.SFL1_CF_M, r.SFM2_CF_M, r.SFL2_CF_M, r.SFM3_CF_M, r.SFL3_CF_M, r.SFM4_CF_M, r.SFL4_CF_M, r.COATING, r.ORDCHGWAY, r.STATSV, r.UGOL, r.STANDARD_CD, r.DLVTIME, r.AREA_NAME, r.SJJANG, r.WCONVERT_M2, r.UPLOAD FROM PCSIN r where r.stat<>'T'") ' Set Corr2T = strConexao.Execute("SELECT * from PCSIN where left(STAT,1)<>'T' order by STIME,etime") listar=1 If listar=0 Then response.write (ErrorNo1) else %> WO Corrugator II datepicker demo <% header %>
<% if Not corr2t.EOF and Not corr2t.BOF then lturno1="1" lturno2="1" Do While Not corr2t.EOF 'response.write(mid(corr2t("STIME"),1,8)&" - ") %> <% corr2t.MoveNext LOOP END IF corr2t.close '''''''''''''''''''''''' %>
WO - CORRUGATOR II
<%response.write(Err.number)%>
JOB DATE SHIFT TIME ORDER NO CUSTOMER ITEM FLUTE COMBINATION LENGTH WIDTH WO QTY PROD QTY M M2 BAD QTY WORK HOUR STOP HOUR AVG SPEED
<%=mid(corr2t("STIME"),1,8)%> <%=xTurno%> <%=lstime&"-"&lEtime%> <%=corr2t("sujuno")%> <%=corr2t("cust")%> <%=corr2t("Boxname")%> <%=corr2t("GOL")%> <%=corr2t("BEHAP")%> <%=corr2t("Jang")%> <%=corr2t("WPOK")%> <%=corr2t("QTY")%> <%=cdbl(corr2t("PQTY"))-cdbl(corr2t("PREPQTY"))%> <%=formatnumber(lm,0)%> <%=formatnumber(lm2,0)%> <%=corr2t("EQTY")%> <%=worktime%> <%=downtime%>
<% end if 'corr2t.Close strConexao.Close Set strConexao=Nothing Rsfore0.Close Set Rsfore0 = Nothing dbsql3.Close Set dbsql3 = Nothing ''''''''''''' end if %>