<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% on error resume next %> <% 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() Date_end=date() lhora=right("00"&hour(time),2) lmin=right("00"&minute(time),2) ltime=lhora&lmin if ltime<"0659" then Date_ini=date()-1 Date_end=date()-1 end if end if Date_end3=cdate(Date_end) + 1 'response.write(Date_end) dia1=right("00"&day(Date_ini),2) mes1=right("00"&month(Date_ini),2) anno1=right("00"&year(Date_ini),4) 'Date_inii=cdate(dia1+"/"+mes1+"/"+anno1) cfechai=cdbl(anno1+mes1+dia1) dia2=right("00"&day(Date_end3),2) mes2=right("00"&month(Date_end3),2) anno2=right("00"&year(Date_end3),4) 'cfechaf=cdate((dia2+"/"+mes2+"/"+anno2)) cfechaf=cdbl(anno2+mes2+dia2) '''''''''''calcula strday = Right("00" & Day(Date_ini), 2) strmonth = Right("00" & Month(Date_ini), 2) stryear = Right("00" & Year(Date_ini), 4) strday2 = Right("00" & Day(Date_end3), 2) strmonth2 = Right("00" & Month(Date_end3), 2) stryear2 = Right("00" & Year(Date_end3), 4) fechainicial = CStr(stryear + strmonth + strday) fechafinal2 = CStr(stryear2 + strmonth2 + strday2) 'response.write(fechainicial&" ") 'response.write("FF "&fechafinal) %> traer los datos Report Corrugator II datepicker demo <% 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") Dim objCDO Dim Conf Dim Fields ''''''''''' If Err.Number <> 0 then 'HandleError Err.Description response.write("No DATE created") mensaje="Can't connect to Database." '********************* correo="ilkim@shinwoousa.com;inwans@shinwoousa.com" 'Dim objCDO 'Dim Conf 'Dim Fields ''''''''''' Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail.shinwoousa.com" '"64.87.26.218" .Item(cdoSMTPauthenticate)=1 .Item(cdoSendUsername)="sechevarria@shinwoousa.com" .Item(cdoSendPassword)="Sergio586*" .Item(cdoSMTPServerport)=587 .Update End With Set cdoMessage = CreateObject("CDO.Message") Set Fields = Nothing Set objCDO = Nothing Set Conf = Nothing With cdoMessage Set .Configuration = cdoConfig .From = "sechevarria@shinwoousa.com" '.To = correo '.cc = "jamesoh@shinwoousa.com" '.cc = "hlimon@shinwoousa.com;lcorona@shinwoousa.com;avaldez@shinwoousa.com;jmontano@shinwoousa.com;alara@shinwoousa.com;yvizcarra@shinwoousa.com;jamesoh@shinwoousa.com;jvaldez@shinwoousa.com;jmedina@shinwoousa.com;clopez@shinwoousa.com; lramirez@shinwoousa.com; asaldana@shinwoousa.com;kbarrera@shinwoousa.com;dvilchis@shinwoousa.com" .bcc = "sechevarria@shinwoousa.com" if acthora=7 or acthora=14 then .Subject = "sending Automatic - Corr 2" else .Subject = "sending Automatic - Corr 2" end if '.TextBody = "Esta es una Prueba de envio automatico ASECO-Sergio" .HTMLBody= mensaje '.HTMLBody="hola" '.AddAttachment (archivopdf) '.AddAttachment (archivoxml) .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing else '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 '" & fechafinal2 & "' and STAT='T' order by JOBYMD,JOBJO,STIME") 'where jobymd between '" & fechainicial & "' and '" & fechafinal & "' order by JOBYMD,JOBJO") ' lo ejecutas 'JOBJO,JOBYMD, JOBSEQ lturno1="1" lturno2="1" %> <% header %>
       
Period:  
        <%=time%>
<% mensaje=mensaje&"" mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if Not corr2.EOF and Not corr2.BOF then TOTML=0 TOTM2=0 TOTTARGET=0 TOTPROD=0 TOTML=0 TOTM2=0 TOTTARGET2=0 TOTPROD2=0 TOTML2=0 TOTM22=0 TOTbad2=0 TOTjtime2=0 TOTdtime2=0 TOTITEMS=0 corr2.movefirst 'lturno1=Corr2("JOBJO") lturno1="1st" lturno2="1st" Do While Not corr2.EOF shora=mid(Corr2("STIME"),10,2)&mid(Corr2("STIME"),13,2)&mid(Corr2("STIME"),16,2) Ehora=mid(Corr2("ETIME"),10,2)&mid(Corr2("ETIME"),13,2)&mid(Corr2("ETIME"),16,2) if (mid(Corr2("STIME"),1,8)=fechainicial and shora<"065001" and Ehora<"065001") then CORR2.MoveNext else if (mid(Corr2("STIME"),1,8)=fechafinal2 and shora>"065000") then CORR2.MoveNext else if (shora<"065000" and Ehora>"065000") then end if lm=int(cdbl(Corr2("Jang"))*cdbl(Corr2("PQTY")))/1000 lm2=int((cdbl(Corr2("Jang"))*cdbl(Corr2("WPOK")))*cdbl(Corr2("PQTY")))/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) mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&"" mensaje=mensaje&"" mensaje=mensaje&"" mensaje=mensaje&" " TOTTARGET=TOTTARGET+cdbl(corr2("QTY")) TOTPROD=TOTPROD+cdbl(corr2("PQTY")) 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")) 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 TOTITEMS2=TOTITEMS2+1 if shora>"065000" and shora<"152001" then lTurno1="1st" end if if shora>"152000" and shora<"232001" then lTurno1="2nd" end if if shora>"232000" or shora<"065001" then lTurno1="3rd" end if CORR2.MoveNext if not Corr2.eof then shora2=mid(Corr2("STIME"),10,2)&mid(Corr2("STIME"),13,2)&mid(Corr2("STIME"),16,2) if shora2>"065000" and shora2<"152001" then lturno2="1st" end if if shora2>"152000" and shora2<"232001" then lturno2="2nd" end if if shora2>"232000" or shora2<"065001" then lturno2="3rd" end if 'lturno2=xTurno end if end if end if if Corr2.eof or lturno1<>lturno2 then if TOTML2>0 and (TOTjtime2+TOTdtime2)>0 then lspeedtot2=int(TOTML2/((TOTjtime2+TOTdtime2)/60)) else lspeedtot2=0 end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " TOTITEMS2=0 if TOTTARGET2>0 then lturno1=lturno2 TOTTARGET2=0 TOTPROD2=0 TOTML2=0 TOTM22=0 TOTbad2=0 TOTjtime2=0 TOTdtime2=0 lspeedtot2=0 end if end if LOOP 'END IF corr2.close end if '''''''''''''''''''''''' if totitems>0 then 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) mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " end if mensaje=mensaje&"
"& fechainicial &"-"&fechafinal&"
CORRUGATOR 2
PROD DATE ShiftStartORDER NO.CUSTOMERBOX ITEMFLUTEPAPER COMBINATIONLENGTHWIDTHTARGETPROD QTYTOTAL LENGTH (M)TOTAL M2Bad QtyWork HrStop Hr
"&mid(Corr2("STIME"),1,8)&""& corr2("JOBJO")&" "&lstime&"-"&letime&""& corr2("SUJUNO")&" "& corr2("CUST")&""& corr2("BOXName")&" "& corr2("GOL")&""& corr2("BEHAP")&" "& corr2("JANG")&" "& corr2("WPOK")&" "& corr2("QTY")&""& corr2("PQTY")&" "& formatnumber(lm,0)&" "& formatnumber(lm2,0) &""&corr2("EQTY")&" "& worktime&" "& downtime&"
  Total Shift   "& formatnumber(TOTITEMS2,0) &"   
"&FORMATNUMBER(TOTTARGET2,0)&"
"&FORMATNUMBER(TOTPROD2,0)&"
"&FORMATNUMBER(TOTML2,0) &" M
"&FORMATNUMBER(TOTM22,0) &" M2
"&FORMATNUMBER(TOTbad2,0) &" 
  TOTAL    "& formatnumber(TOTITEMS,0) &"   
"&FORMATNUMBER(TOTTARGET,0)&"
"&FORMATNUMBER(TOTPROD,0)&"
"&FORMATNUMBER(TOTML,0) &" M
"&FORMATNUMBER(TOTM2,0) &" M2
"&FORMATNUMBER(TOTbad,0) &" 
"&TOTwt2 &" hrs
"&TOTdt2 &" hrs
" 'Corr2.Close strConexao.Close Set strConexao=Nothing '********************* correo="ilkim@shinwoousa.com;inwans@shinwoousa.com" 'Dim objCDO 'Dim Conf 'Dim Fields ''''''''''' Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail.shinwoousa.com" '"64.87.26.218" .Item(cdoSMTPauthenticate)=1 .Item(cdoSendUsername)="sechevarria@shinwoousa.com" .Item(cdoSendPassword)="Sergio586*" .Item(cdoSMTPServerport)=587 .Update End With Set cdoMessage = CreateObject("CDO.Message") Set Fields = Nothing Set objCDO = Nothing Set Conf = Nothing With cdoMessage Set .Configuration = cdoConfig .From = "sechevarria@shinwoousa.com" '.To = correo '.cc = "jamesoh@shinwoousa.com" '.cc = "hlimon@shinwoousa.com;lcorona@shinwoousa.com;avaldez@shinwoousa.com;jmontano@shinwoousa.com;alara@shinwoousa.com;yvizcarra@shinwoousa.com;jamesoh@shinwoousa.com;jvaldez@shinwoousa.com;jmedina@shinwoousa.com;clopez@shinwoousa.com; lramirez@shinwoousa.com; asaldana@shinwoousa.com;kbarrera@shinwoousa.com;dvilchis@shinwoousa.com" .bcc = "sechevarria@shinwoousa.com" if acthora=7 or acthora=14 then .Subject = "sending Automatic - Corr 2" else .Subject = "sending Automatic - Corr 2" end if '.TextBody = "Esta es una Prueba de envio automatico ASECO-Sergio" .HTMLBody= mensaje '.HTMLBody="hola" '.AddAttachment (archivopdf) '.AddAttachment (archivoxml) .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing end if ' si hay error %>