<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Session.Timeout = 120 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()-(day(date()))+1 Date_ini=date()-1 Date_end=date()-1 end if ''''''''''''''''''' xday = Right("00" & Day(Date), 2) xmonth = Right("00" & Month(Date), 2) xyear = Right("00" & Year(Date), 4) xdate=xyear&xmonth&xday xtipo="VENDEDOR" 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 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) %> traer los datos Backup Corrugator II datepicker demo
       
Period:  
         
<% header %> <% if busca="ok" then 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") 'abrir la base, fijate que esta en el directorio que la tienes ... Set Corr2 = Server.CreateObject("ADODB.Recordset") ' seteas el recordset 'Set Corr2 = strConexao.Execute("SELECT * FROM PCSIN where JOBYMD between '" & fechainicial & "' and '" & fechafinal & "' and STAT='T' order by JOBYMD, JOBJO, STIME") ' lo ejecutas 'Set Corr2 = strConexao.Execute("SELECT * FROM PCSIN where LEFT(STIME,8) between '" & fechainicial & "' and '" & fechafinal2 & "' and STAT='T' order by STIME") ' lo ejecutas Set Corr2 = 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 corr21= strConexao.Execute("SELECT * FROM PCSIN") if Not corr2.EOF and Not corr2.BOF then TOTML=0 TOTM2=0 TOTTARGET=0 TOTPROD=0 TOTML=0 '(corr2("JANG")*corr2("PQTY")/1000) TOTM2=0 TOTTARGET2=0 TOTPROD2=0 TOTML2=0 TOTM22=0 TOTbad2=0 TOTjtime2=0 TOTdtime2=0 TOTITEMS=0 corr2.movefirst lturno1=Corr2("JOBJO") Do While Not corr2.EOF lm=int(cdbl(Corr2("Jang"))*(cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY"))))/1000 lm2=int((cdbl(Corr2("Jang"))*cdbl(Corr2("WPOK")))*(cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY"))))/1000000 totalTiempo = cdbl(corr2("dtime")) hores = int((totalTiempo/3600)) aux = int(totalTiempo-(3600*hores)) minuts = int(aux/60) segons = totalTiempo-hores*3600-minuts*60 Downtime = hores&":"&right("00"&minuts,2)&":"&right("00"&segons,2) Tiempo2 = cdbl(corr2("jtime")) hores2 = int((Tiempo2/3600)) aux2 = int(Tiempo2-(3600*hores2)) minuts2 = int(aux2/60) segons2 = Tiempo2-hores2*3600-minuts2*60 Worktime = hores2&":"&right("00"&minuts2,2)&":"&right("00"&segons2,2) lstime=mid(Corr2("stime"),10,8) letime=mid(Corr2("etime"),10,8) %> <% TOTTARGET=TOTTARGET+cdbl(corr2("QTY")) TOTPROD=TOTPROD+cdbl(corr2("PQTY"))-cdbl(Corr2("PREPQTY")) TOTML=TOTML+lm '(corr2("JANG")*corr2("PQTY")/1000) TOTM2=TOTM2+lm2 '(corr2("JANG")*corr2("WPOK")*corr2("PQTY")/1000000) TOTbad=TOTbad+cdbl(corr2("eQTY")) TOTjtime=TOTjtime+cdbl(corr2("jtime")) TOTdtime=TOTdtime+cdbl(corr2("dtime")) TOTTARGET2=TOTTARGET2+cdbl(corr2("QTY")) TOTPROD2=TOTPROD2+cdbl(corr2("PQTY"))-cdbl(Corr2("PREPQTY")) TOTML2=TOTML2+lm '(corr2("JANG")*corr2("PQTY")/1000) TOTM22=TOTM22+lm2 '(corr2("JANG")*corr2("WPOK")*corr2("PQTY")/1000000) TOTbad2=TOTbad2+cdbl(corr2("eQTY")) TOTjtime2=TOTjtime2+cdbl(corr2("jtime")) TOTdtime2=TOTdtime2+cdbl(corr2("dtime")) TOTITEMS=TOTITEMS+1 '********************************** Actualizar Set Corr2upd = dbsql5.execute("SELECT * FROM PCSIN where JOBYMD ='" & Corr2("jobymd") & "' and SUJUNO='" & Corr2("sujuno") & "' and CUST='" & Corr2("cust") & "' and BOXNAME='" & Corr2("boxname") & "' and STAT='T' order by JOBYMD, JOBJO, STIME") ' lo ejecutas if Corr2upd.bof and Corr2upd.eof then if isnull(Corr2("SJJANG")) then lsjjang=0 else lsjjang=Corr2("SJJANG") end if if isnull(Corr2("WCONVERT_M2")) then lconvertm2=0 else lconvertm2=Corr2("WCONVERT_M2") end if 'response.write(sqlquery) lnote=trim(replace(Corr2("NOTE"),"'","")) 'set corr2new = dbsql5.execute("insert into PCSIN '" & Corr21 & "' where JOBYMD ='" & Corr2("jobymd") & "' and SUJUNO='" & Corr2("sujuno") & "' and CUST='" & Corr2("cust") & "' and BOXNAME='" & Corr2("boxname") & "' and trim(STAT)='T'") set corr2new = dbsql5.execute("INSERT INTO PCSIN (SERIALTIME, SERIALVAL, SERIALSTR, ROWMOVEKEY, STAT, SUJUNO, DOCNO, YMD, GOL, GOLUNION, DF, SFM1, SFL1, SFM2, SFL2, SFM3, SFL3, SFM4, SFL4, SJPOK ,SJPOKNO, SJQTY, JANG, WPOK, QTY, POKNO, OVERQTY, TQTY, SSTRIM, SSET, SJSLSC, SLSC, SLSCSUB, CUST, CUSTLNAME, JOBYMD, MCODE, BOXJANG, BOXPOK, BOXGO, BOXLNAME, BOXNAME, DLVYMD, DLVNAME, STACKNO, SCGAP, BUSU, SJBEHAP, BEHAP, NOTE, JOBSEQ, JTIME, DTIME, PQTY, EQTY, CHGQTY, STIME, ETIME, JOBJO, JUYA, AVGSPEED, TOTLENGTH, CUTLENGTH, DFLENGTH, BFLENGTH, AFLENGTH, ERRLENGTH, CHGLENGTH, POPUP, JOBCPYMD, DADAN, EXTRACHECK, CANCELCHECK, ORIGQTY, RSTNO, PREPQTY, DF_CF, SFM1_CF, SFL1_CF, SFM2_CF, SFL2_CF, SFM3_CF, SFL3_CF, SFM4_CF, SFL4_CF, DF_CF_M, SFM1_CF_M, SFL1_CF_M, SFM2_CF_M, SFL2_CF_M, SFM3_CF_M, SFL3_CF_M, SFM4_CF_M, SFL4_CF_M, COATING, ORDCHGWAY, STATSV, UGOL, STANDARD_CD, DLVTIME, AREA_NAME, SJJANG, WCONVERT_M2, UPLOAD) values ('" & Corr2("SERIALTIME") & "', " & Corr2("SERIALVAL") & ", '" & Corr2("SERIALSTR") & "', '" & Corr2("ROWMOVEKEY") & "', '" & Corr2("STAT") & "', '" & Corr2("SUJUNO") & "', '" & Corr2("DOCNO") & "', '" & Corr2("YMD") & "', '" & Corr2("GOL") & "', '" & Corr2("GOLUNION") & "', '" & Corr2("DF") & "', '" & Corr2("SFM1") & "', '" & Corr2("SFL1") & "', '" & Corr2("SFM2") & "', '" & Corr2("SFL2") & "', '" & Corr2("SFM3") & "', '" & Corr2("SFL3") & "', '" & Corr2("SFM4") & "', '" & Corr2("SFL4") & "', " & Corr2("SJPOK") & ", " & Corr2("SJPOKNO") & ", " & Corr2("SJQTY") & ", " & Corr2("JANG") & ", " & Corr2("WPOK") & ", " & Corr2("QTY") & ", " & Corr2("POKNO") & ", " & Corr2("OVERQTY") & ", " & Corr2("TQTY") & ", " & Corr2("SSTRIM") & ", '" & Corr2("SSET") & "', '" & Corr2("SJSLSC") & "', '" & Corr2("SLSC") & "', '" & Corr2("SLSCSUB") & "', '" & Corr2("CUST") & "', '" & Corr2("CUSTLNAME") & "', '" & Corr2("JOBYMD") & "', '" & Corr2("MCODE") & "', " & Corr2("BOXJANG") & ", " & Corr2("BOXPOK") & ", " & Corr2("BOXGO") & ", '" & Corr2("BOXLNAME") & "', '" & Corr2("BOXNAME") & "', '" & Corr2("DLVYMD") & "', '" & Corr2("DLVNAME") & "', " & Corr2("STACKNO") & ", " & Corr2("SCGAP") & ", '" & Corr2("BUSU") & "', '" & Corr2("SJBEHAP") & "', '" & Corr2("BEHAP") & "', '" & lnote & "', " & Corr2("JOBSEQ") & ", " & Corr2("JTIME") & ", " & Corr2("DTIME") & ", " & Corr2("PQTY") & ", " & Corr2("EQTY") & ", " & Corr2("CHGQTY") & ", '" & Corr2("STIME") & "', '" & Corr2("ETIME") & "', '" & Corr2("JOBJO") & "', '" & Corr2("JUYA") & "', " & Corr2("AVGSPEED") & ", " & Corr2("TOTLENGTH") & ", " & Corr2("CUTLENGTH") & ", " & Corr2("DFLENGTH") & ", " & Corr2("BFLENGTH") & ", " & Corr2("AFLENGTH") & ", " & Corr2("ERRLENGTH") & ", " & Corr2("CHGLENGTH") & ", '" & Corr2("POPUP") & "', '" & Corr2("JOBCPYMD") & "', '" & Corr2("DADAN") & "', '" & Corr2("EXTRACHECK") & "', '" & Corr2("CANCELCHECK") & "', " & Corr2("ORIGQTY") & ", " & Corr2("RSTNO") & ", " & Corr2("PREPQTY") & ", '" & Corr2("DF_CF") & "', '" & Corr2("SFM1_CF") & "', '" & Corr2("SFL1_CF") & "', '" & Corr2("SFM2_CF") & "', '" & Corr2("SFL2_CF") & "', '" & Corr2("SFM3_CF") & "', '" & Corr2("SFL3_CF") & "', '" & Corr2("SFM4_CF") & "', '" & Corr2("SFL4_CF") & "', " & Corr2("DF_CF_M") & ", " & Corr2("SFM1_CF_M") & ", " & Corr2("SFL1_CF_M") & ", " & Corr2("SFM2_CF_M") & "," & Corr2("SFL2_CF_M") & ", " & Corr2("SFM3_CF_M") & ", " & Corr2("SFL3_CF_M") & ", " & Corr2("SFM4_CF_M") & ", " & Corr2("SFL4_CF_M") & ", '" & Corr2("COATING") & "', '" & Corr2("ORDCHGWAY") & "', '" & Corr2("STATSV") & "', '" & Corr2("UGOL") & "', '" & Corr2("STANDARD_CD") & "', '" & Corr2("DLVTIME") & "', '" & Corr2("AREA_NAME") & "', " & lsjjang & ", " & lconvertm2 & ", '" & Corr2("UPLOAD") & "')") else end if '******************************************** CORR2.MoveNext if not Corr2.eof then lturno2=Corr2("JOBJO") end if if Corr2.eof or lturno1<>lturno2 then lspeedtot2=int(TOTML2/((TOTjtime2+TOTdtime2)/60)) if lturno1="A" then xTurno="1st" end if if lturno1="B" then xTurno="2nd" end if if lturno1="C" then xTurno="3rd" end if %> <% lturno1=lturno2 TOTTARGET2=0 TOTPROD2=0 TOTML2=0 TOTM22=0 TOTbad2=0 TOTjtime2=0 TOTdtime2=0 end if LOOP 'END IF corr2.close end if '''''''''''''''''''''''' lspeedtot=int(TOTML/((TOTjtime+TOTdtime)/60)) Tiempod = TOTdtime hores3 = int((Tiempod/3600)) aux3 = int(Tiempod-(3600*hores3)) minuts3 = int(aux3/60) segons3 = Tiempod-hores3*3600-minuts3*60 totdt2 = hores3&":"&right("00"&minuts3,2)&":"&right("00"&segons3,2) Tiempow = totjtime hores4 = int((Tiempow/3600)) aux4 = int(Tiempow-(3600*hores4)) minuts4 = int(aux4/60) segons4 = Tiempow-hores4*3600-minuts4*60 totwt2 = hores4&":"&right("00"&minuts4,2)&":"&right("00"&segons4,2) %>
Backup CORRUGATOR II (Nordika)
Job Date Shift ends Time WO Customer Item Flute Combination Lenght Width TargetQTY Prod QTY M M2 Bad QTY Work Time Delay Time AVG Speed
<%=mid(Corr2("STIME"),1,8)%> <%=xTurno%> <%=lstime&"-"&lEtime%> <%=Corr2("sujuno")%> <%=Corr2("cust")%> <%=Corr2("Boxname")%> <%=Corr2("GOL")%> <%=Corr2("BEHAP")%> <%=Corr2("Jang")%> <%=Corr2("WPOK")%> <%=Corr2("QTY")%> <%=cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY"))%> <%=formatnumber(lm,0)%> <%=formatnumber(lm2,0)%> <%=Corr2("EQTY")%> <%=worktime%> <%=downtime%>
  <%=xTurno%> Shift TOTAL             <%=formatnumber(TOTTARGET2,0)%> <%=formatnumber(TOTPROD2,0)%>
<%=formatnumber(TOTML2,0)%> M
<%=formatnumber(TOTM22,0)%> M2
<%=formatnumber(TOTbad,0)%>
<%=formatnumber(TOTjtime2,0)%>
<%=formatnumber(TOTdtime2,0)%>
 <%=formatnumber(lspeedtot2,0)%>    
    TOTAL       <%=formatnumber(TOTITEMS,0)%>      
<%=formatnumber(TOTTARGET,0)%>
<%=formatnumber(TOTPROD,0)%>
<%=formatnumber(TOTML,0)%> M
<%=formatnumber(TOTM2,0)%> M2
<%=formatnumber(TOTbad,0)%>
<%=totwt2%>
<%=totdt2%>
 <%=formatnumber(lspeedtot,0)%>
<% 'Corr2.Close strConexao.Close Set strConexao=Nothing end if End If Rsfore0.Close Set Rsfore0 = Nothing ''''''''''''' %>