<%@ LANGUAGE = "VBScript" %> <%Response.Buffer = False%> <% 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 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 Corrv = Server.CreateObject("ADODB.Recordset") ' seteas el recordset 'Set Corrv = dbsql5.Execute("SELECT * FROM tblcurrent") ' lo ejecutas set Rsfore0=dbsql3.execute("SELECT * FROM forecast WHERE id=49") '************** Transfer xday2 = Right("00" & Rsfore0("month"), 2) xmonth2 = Right("00" & Rsfore0("forecast"), 2) xyear2 = Right("00" & Rsfore0("year"), 4) xdate2=xyear2&xmonth2&xday2 'xdate2="20220821" layer=weekday(date()-1) hractual=hour(Now) minactual=minute(now) '''''''''''''''''''''''''''''''''''''' If xdate>xdate2 Then 'response.write (ErrorNo1) mensaje1=ErrorNo1 ''''''''''' else if Date_ini="" or Date_ini=null then 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 '''''''''''''''''''''''''''''''''''''' %> Report Corrugator I, II
       
Period:   <%=response.write(now)%>
         
<% header if minactual>50 and minactual<56 then ' ********** minuto 50 %>

<% '''''''''''calcula Date_end2=cdate(Date_end)+1 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_end2), 2) strmonth2 = Right("00" & Month(Date_end2), 2) stryear2 = Right("00" & Year(Date_end2), 4) fechainicial = CStr(stryear + strmonth + strday) fechafinal = CStr(stryear2 + strmonth2 + strday2) 'fechainicial = "20220302" 'fechafinal = "20220303" response.write(fechainicial)&" FI " response.write(fechafinal)&" Ff " %>

Production Corrugator Machine
Date: <%=Date_ini%> To: <%=Date_end%> Generated: <%=time%>
<% '************** Inventory 'lturno=0 Dim Rsinven1, Rsinven2, rswip, Rsmachine Dim Sqlinven1, sqlinven2, sqlwip ''''''''''''''''''''''''''''''''''''''' lq=" select GOL,JIJG,JANG,WPOK,QTY,PQTY,SUJUNO,JOBYMD,CUST,BOX_NM,eqty,jtime,dtime,JOBJO,STIME,Etime,sdate,Edate from SHPSOUT(nolock) where jobymd between '" & fechainicial & "' and '" & fechafinal & "' order by JOBYMD,JOBJO " response.write(lq) set Rscorr=dbsqlcorr.execute("select GOL,JIJG,JANG,WPOK,QTY,PQTY,SUJUNO,JOBYMD,CUST,BOX_NM,eqty,jtime,dtime,JOBJO,STIME,Etime,sdate,Edate,slsc from SHPSOUT(nolock) where jobymd between '" & fechainicial & "' and '" & fechafinal & "' order by JOBYMD,JOBJO,sdate,STIME,Etime") lturno1="1" lturno2="1" 'mensaje1=mensaje1&" Su licencia esta proxima a vencerse. Es necesario renovarla.
" 'mensaje1=mensaje1&" Your license is about to expire. You need to renew it.

" mensaje2=mensaje2&"Hourly Status of Corrugator 1 & 2
" mensaje1=mensaje1&"Hourly Status of Corrugator 1 & 2 " mensaje1=mensaje1&"" mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " TOTPROD2=0 TOTML2=0 TOTM22=0 xactualizado=0 If Rscorr.EOF And Rscorr.BOF Then response.Write(" No records exist for corr. this date. ") Else ' mensaje1=" TRANSFER (Samsung OB)

" TOTML=0 TOTM2=0 Rscorr.movefirst Do While Not Rscorr.EOF lehora1=mid(Rscorr("ETIME"),1,2) lehora2=mid(Rscorr("ETIME"),4,2) lehora3=mid(Rscorr("ETIME"),7,2) shoran=mid(RsCORR("STIME"),1,2)&mid(RsCORR("STIME"),4,2)&mid(RsCORR("STIME"),7,2) lhend=lehora1&lehora2&lehora3 lsdate1=mid(Rscorr("sdate"),1,4) lsdate2=mid(Rscorr("sdate"),6,2) lsdate3=mid(Rscorr("sdate"),9,2) lsdate=lsdate1&lsdate2&lsdate3 response.write(Rscorr("jobymd")) if (lsdatefechainicial and shoran>"065000") or trim(Rscorr("jobymd"))=fechafinal then response.write(" FI: "&lsdate&" etime: "&Rscorr("etime")&" x "&lhend) response.write(" skip ") if trim(Rscorr("jobymd"))=fechafinal then end if RsCORR.MoveNext else lstime=Rscorr("STIME") if left(Rscorr("JOBJO"),1)="A" then if Rscorr("jtime")>25000 then lstime="06:50:00" ehora1=int(mid(Rscorr("ETIME"),1,2))*3600 ehora2=int(mid(Rscorr("ETIME"),4,2))*60 ehora3=int(mid(Rscorr("ETIME"),7,2)) hend=ehora1+ehora2+ehora3 Tiempo2=hend-24600 else Tiempo2 = Rscorr("jtime") end if 'response.write(" 1 ") else lstime=Rscorr("STIME") Tiempo2 = Rscorr("jtime") 'response.write(" 2 ") end if lout=mid(Rscorr("SLSC"),instr(Rscorr("SLSC"),"/")-1,1) 'if instr(Rscorr("SLSC"),"/")>0 then ' response.write(" lout: "&Rscorr("SLSC")) 'end if 'lturno1=Rscorr("JOBJO") lstimex=mid(lstime,1,5) mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " totsh1=Rscorr("JOBJO") totalTiempo = Rscorr("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) Downtime = hores&":"&right("00"&minuts,2) 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) Worktime = hores2&":"&right("00"&minuts2,2) mensaje1=mensaje1&" " TOTTARGET=TOTTARGET+Rscorr("QTY") TOTWOc1=TOTWOc1+(Rscorr("QTY")*(lout)) TOTPROD=TOTPROD+Rscorr("PQTY") TotDif=TotDif+int(Rscorr("PQTY")-Rscorr("QTY")) TOTPROD3=TOTPROD3+(Rscorr("PQTY")*(lout)) TOTML=TOTML+(Rscorr("JANG")*Rscorr("PQTY")/1000) TOTM2=TOTM2+(Rscorr("JANG")*Rscorr("WPOK")*Rscorr("PQTY")/1000000) TOTbad=TOTbad+Rscorr("eQTY") TOTjtime=TOTjtime+Tiempo2 TOTdtime=TOTdtime+Rscorr("dtime") TOTITEMS=TOTITEMS+1 TOTITEMS2=TOTITEMS2+1 TOTTARGET2=TOTTARGET2+cdbl(Rscorr("QTY")) TOTWO2=TOTWO2+(cdbl(Rscorr("QTY"))*(lout)) TOTPROD2=TOTPROD2+cdbl(Rscorr("PQTY")) TotDif2=TotDif2+int(Rscorr("PQTY")-Rscorr("QTY")) TOTPROD32=TOTPROD32+(Rscorr("PQTY")*(lout)) TOTML2=TOTML2+(Rscorr("JANG")*Rscorr("PQTY")/1000) TOTM22=TOTM22+(Rscorr("JANG")*Rscorr("WPOK")*Rscorr("PQTY")/1000000) TOTbad2=TOTbad2+cdbl(Rscorr("eQTY")) TOTjtime2=TOTjtime2+cdbl(Tiempo2) TOTdtime2=TOTdtime2+cdbl(Rscorr("dtime")) RsCORR.MoveNext if not RsCORR.eof then shora2=int(mid(RsCORR("STIME"),1,2)&mid(RsCORR("STIME"),4,2)&mid(RsCORR("STIME"),7,2)) Ehora2=int(mid(RsCORR("ETIME"),1,2)&mid(RsCORR("ETIME"),4,2)&mid(RsCORR("ETIME"),7,2)) 'response.write(" sh "&shora2) 'response.write(" eh "&ehora2) if shora2>064959 and shora2<152000 then lturno2="1" end if if shora2>151959 and shora2<232000 then lturno2="2" 'response.write(" t2x "&ehora2) end if if shora2>231959 or shora2<065000 then lturno2="3" end if if shora2<065000 and Ehora2>064959 then 'response.write(" t20 "&ehora2) shora1x=int(mid(RsCORR("STIME"),1,2))*3600 shora2x=int(mid(RsCORR("STIME"),4,2))*60 shora3x=int(mid(RsCORR("STIME"),7,2)) hstartx=shora1x+shora2x+shora3x ehora1x=int(mid(RsCORR("ETIME"),1,2))*3600 ehora2x=int(mid(RsCORR("ETIME"),4,2))*60 ehora3x=int(mid(RsCORR("ETIME"),7,2)) hendx=ehora1x+ehora2x+ehora3x Shift1=24600 Sec1x=int(Shift1-hstartx) Sec2x=int(hendx-Shift1) if Sec2x>Sec1x then lturno2="1" end if end if 'response.write(RsCORR("STIME")&" ") 'response.write(RsCORR("ETIME")&" ") if (RsCORR("STIME")<"15:20:00" and RsCORR("ETIME")>"15:19:59") then 'response.write(" t21 "&ehora2) shn1=int(mid(RsCORR("STIME"),1,2))*3600 shn2=int(mid(RsCORR("STIME"),4,2))*60 shn3=int(mid(RsCORR("STIME"),7,2)) hstn=shn1+shn2+shn3 ehn1=int(mid(RsCORR("ETIME"),1,2))*3600 ehn2=int(mid(RsCORR("ETIME"),4,2))*60 ehn3=int(mid(RsCORR("ETIME"),7,2)) hend2n=ehn1+ehn2+ehn3 if (shora2<"152000" and Ehora2>"151959") then 'Shift2=67800 Shift2=55200 Sec1n=int(Shift2-hstn) Sec2n=int(hend2n-Shift2) if Sec1n>Sec2n then lturno2="1" else lturno2="2" end if 'response.write(" t2 "&Sec2n) end if end if ledate=mid(RsCORR("Edate"),1,4)&mid(RsCORR("Edate"),6,2)&mid(RsCORR("Edate"),9,2) lsdate=mid(RsCORR("Sdate"),1,4)&mid(RsCORR("Sdate"),6,2)&mid(RsCORR("Sdate"),9,2) if (RsCORR("STIME")<"23:20:00" and RsCORR("ETIME")>"23:19:59") or (RsCORR("STIME")<"23:20:00" and ledate>lsdate) then shn1=int(mid(RsCORR("STIME"),1,2))*3600 shn2=int(mid(RsCORR("STIME"),4,2))*60 shn3=int(mid(RsCORR("STIME"),7,2)) hstn=shn1+shn2+shn3 ehn1=int(mid(RsCORR("ETIME"),1,2))*3600 ehn2=int(mid(RsCORR("ETIME"),4,2))*60 ehn3=int(mid(RsCORR("ETIME"),7,2)) if ledate>lsdate then hend2n=ehn1+ehn2+ehn3+86400 else hend2n=ehn1+ehn2+ehn3 end if Shift3=84000 Sec1n3=int(Shift3-hstn) Sec2n3=int(hend2n-Shift3) if Sec1n3>Sec2n3 then lturno2="2" else lturno2="3" end if end if 'lturno2=Rscorr("JOBJO") end if if lturno1<>lturno2 or RsCorr.eof then if TOTML2>0 and (TOTjtime2+TOTdtime2)>0 then lspeedtot2=int(TOTML2/((TOTjtime2)/60)) else lspeedtot2=0 end if if TOTTARGET2>0 then hores5 = int((TOTjtime2/3600)) aux5 = int(TOTjtime2-(3600*hores5)) minuts5 = int(aux5/60) segons5 = TOTjtime2-hores5*3600-minuts5*60 Worktime5 = hores5&":"&right("00"&minuts5,2)&":"&right("00"&segons5,2) hores6 = int((TOTdtime2/3600)) aux6 = int(TOTdtime2-(3600*hores6)) minuts6 = int(aux6/60) segons6 = TOTdtime2-hores6*3600-minuts6*60 delaytime5 = hores6&":"&right("00"&minuts6,2)&":"&right("00"&segons6,2) if lturno1="1" then lshift="1st" end if if lturno1="2" then lshift="2nd" end if if lturno1="3" then lshift="3rd" end if mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " actfecha=mid(fechainicial,3,6) if lturno1="1" then set rsactprod=dbsql3.execute("update datagraph set c1s1lm="& TOTML2 &",c1s1m2="& TOTM22 &" where fecha="&actfecha&" and areaprod='C1'") set rsactprod= nothing xactualizado=1 end if if lturno1="2" then set rsactprod=dbsql3.execute("update datagraph set c1s2lm="& TOTML2 &",c1s2m2="& TOTM22 &" where fecha="&actfecha&" and areaprod='C1'") set rsactprod= nothing xactualizado=2 end if if lturno1="3" then set rsactprod=dbsql3.execute("update datagraph set c1s3lm="& TOTML2 &",c1s3m2="& TOTM22 &" where fecha="&actfecha&" and areaprod='C1'") set rsactprod= nothing xactualizado=2 end if TOTTARGETs=0 TOTPRODs=0 TOTMLs=0 TOTM2s=0 TOTITEMS2=0 lturno1=lturno2 TOTTARGET2=0 TOTWO2=0 TOTTARGET32=0 TOTPROD2=0 TOTPROD32=0 TotDif2=0 TOTML2=0 TOTM22=0 TOTbad2=0 TOTjtime2=0 TOTdtime2=0 end if end if 'lturno1=lturno2 end if 'si etime<065000 LOOP END IF rscorr.close '''''''''''''''''''''''' FIN rscorr Tiempod = TOTdtime hores3 = int((Tiempod/3600)) aux3 = int(Tiempod-(3600*hores3)) minuts3 = int(aux3/60) segons3 = Tiempod-hores3*3600-minuts3*60 totdt = hores3&":"&right("00"&minuts3,2) Tiempow = totjtime hores4 = int((Tiempow/3600)) aux4 = int(Tiempow-(3600*hores4)) minuts4 = int(aux4/60) segons4 = Tiempow-hores4*3600-minuts4*60 totwt = hores4&":"&right("00"&minuts4,2) mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&"
CORRUGATOR I
STTIMECUSTOMERBOX ITEMWO NO.COMBINATIONLWWOWO2OutProdProd 2+/-% DifMM2
"&Rscorr("JOBJO")&""&lstimex&""& left(Rscorr("CUST"),10)&""& left(Rscorr("BOX_NM"),10)&" "& Rscorr("SUJUNO")&" "& Rscorr("JIJG")&" "& Rscorr("JANG")&" "& Rscorr("WPOK")&" "& Rscorr("QTY")&" "& Rscorr("QTY")*(lout)&" "&lout&" "& Rscorr("PQTY")&" "& Rscorr("PQTY")*(lout)&" "& Rscorr("PQTY")-Rscorr("QTY")&" "& formatnumber(((Rscorr("PQTY")-Rscorr("QTY"))/Rscorr("QTY"))*100,1)&" % "& formatnumber((Rscorr("JANG")*Rscorr("PQTY")/1000),0)&" "& formatnumber((Rscorr("JANG")*Rscorr("WPOK")*Rscorr("PQTY")/1000000),0) &"
 Total Shift "& lshift &"AVG Speed"& formatnumber(lspeedtot2,0) &"  "&FORMATNUMBER(TOTTARGET2,0) &""&FORMATNUMBER(TOTWO2,0) &" 
"&FORMATNUMBER(TOTPROD2,0)&"
"&FORMATNUMBER(TOTPROD32,0)&"
"&FORMATNUMBER(TotDif2,0)&"
 
"&FORMATNUMBER(TOTML2,0) &"
"&FORMATNUMBER(TOTM22,0) &"
 TOTAL"& formatnumber(TOTITEMS,0) &"   "&FORMATNUMBER(TOTTARGET,0) &""&FORMATNUMBER(TOTWOc1,0) &" 
"&FORMATNUMBER(TOTPROD,0)&"
"&FORMATNUMBER(TOTPROD3,0)&"
"&FORMATNUMBER(TotDif,0)&"
 
"&FORMATNUMBER(TOTML,0) &"
"&FORMATNUMBER(TOTM2,0) &"

" if xactualizado=0 then actfecha=mid(fechainicial,3,6) set rsactprod=dbsql3.execute("update datagraph set c1s1lm=0,c1s1m2=0,c1s2lm=0,c1s2m2=0 where fecha="&actfecha&" and areaprod='C1'") set rsactprod= nothing end if ''''''''''''''''''**************************corr 2 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), 2) strday2 = Right("00" & Day(Date_end3), 2) strmonth2 = Right("00" & Month(Date_end3), 2) stryear2 = Right("00" & Year(Date_end3), 2) fechainicial = CStr(stryear + strmonth + strday) fechafinal2 = 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") Set dbsql5 = Server.CreateObject("ADODB.Connection") 'strsql5="DRIVER={SQL Server};SERVER=192.168.0.201;UID=sa;PWD=Shinwoo*2021;DATABASE=CARDBOARD20" strsql5="DRIVER={SQL Server};SERVER=192.168.1.194;UID=sa;PWD=Shin*20;DATABASE=CARDBOARD20" dbsql5.open strsql5 If Err.Number <> 0 then response.write(" No DATE created ") mensaje="Can't connect to Database. C2 Not running." mensaje1=mensaje1&"

Can't connect to Database. C2 Not running." 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 LEFT(STIME,8) between '" & fechainicial & "' and '" & fechafinal2 & "' and STAT='T' order by STIME,Etime") ' lo ejecutas Set Corr2 = dbsql5.Execute("SELECT * FROM PCSIN where (jobymd between '" & fechainicial & "' and '" & fechafinal2 & "') and left(STAT,1)='T' order by jobymd, jobjo,stime,etime") ' lo ejecutas lq=" SELECT * FROM PCSIN where (jobymd between '" & fechainicial & "' and '" & fechafinal2 & "') and left(STAT,1)='T' order by jobymd, jobjo,stime,etime " response.write(lq) lturno1="1" lturno2="1" mensaje1=mensaje1&"" mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " TOTPROD=0 TOTML=0 TOTM2=0 TOTITEMS=0 TotDifc22=0 TotDifc2=0 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 TOTPROD3=0 TOTML2=0 TOTM22=0 TOTbad2=0 TOTjtime2=0 TOTdtime2=0 corr2.movefirst 'lturno1=Corr2("JOBJO") lturno1="1" lturno2="1" letime2="06:50" pqtyant=0 Do While Not corr2.EOF lanterior=0 if mid(Corr2("STIME"),1,8)>"220227" then lanterior=1 end if ltargetn=0 if lanterior=1 then lestado=0 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) fecha1=mid(Corr2("STIME"),1,8) if (mid(Corr2("STIME"),1,8)=fechainicial and shora<"065000" and Ehora<"065001") then 'CORR2.MoveNext lestado=0 end if Sec1=0 Sec2=0 if shora<"065000" and Ehora>"064959" then shora1=int(mid(Corr2("STIME"),10,2))*3600 shora2=int(mid(Corr2("STIME"),13,2))*60 shora3=int(mid(Corr2("STIME"),16,2)) hstart=shora1+shora2+shora3 ehora1=int(mid(Corr2("ETIME"),10,2))*3600 ehora2=int(mid(Corr2("ETIME"),13,2))*60 ehora3=int(mid(Corr2("ETIME"),16,2)) hend=ehora1+ehora2+ehora3 Shift1=24600 Sec1=int(Shift1-hstart) Sec2=int(hend-Shift1) 'response.write(" Sec1 "&Sec1) 'response.write(" Sec2 "&Sec2) end if if (mid(Corr2("STIME"),1,8)=fechainicial) then if Sec1>Sec2 then 'CORR2.MoveNext lestado=0 else if Sec1"064959" then 'f lestado=1 Sec12=0 Sec13=0 Sec22=0 Sec23=0 if shora<"152000" and Ehora>"151959" then shora1=int(mid(Corr2("STIME"),10,2))*3600 shora2=int(mid(Corr2("STIME"),13,2))*60 shora3=int(mid(Corr2("STIME"),16,2)) hstart2=shora1+shora2+shora3 ehora1=int(mid(Corr2("ETIME"),10,2))*3600 ehora2=int(mid(Corr2("ETIME"),13,2))*60 ehora3=int(mid(Corr2("ETIME"),16,2)) hend2=ehora1+ehora2+ehora3 Shift2=55200 Sec12=int(Shift2-hstart2) Sec22=int(hend2-Shift2) end if if shora<"232000" and Ehora>"231959" then shora1=int(mid(Corr2("STIME"),10,2))*3600 shora2=int(mid(Corr2("STIME"),13,2))*60 shora3=int(mid(Corr2("STIME"),16,2)) hstart3=shora1+shora2+shora3 ehora1=int(mid(Corr2("ETIME"),10,2))*3600 ehora2=int(mid(Corr2("ETIME"),13,2))*60 ehora3=int(mid(Corr2("ETIME"),16,2)) hend3=ehora1+ehora2+ehora3 Shift3=84000 Sec13=int(Shift3-hstart3) Sec23=int(hend3-Shift3) end if if shora>"064959" and shora<"151959" then xTurno="1" end if if (shora>"151959" and shora<"232000") or Sec22>Sec12 then xTurno="2" end if if Sec22>Sec12 then xTurno="2" end if if shora>"231959" or shora<"064959" or Sec23>Sec13 then xTurno="3" end if end if 'F if (mid(Corr2("STIME"),1,8)=fechafinal2) then 'G if (shora>"064959") then 'CORR2.MoveNext lestado=0 else if Sec10 and corr2("ROWMOVEKEY")="D" then TOTTARGET=TOTTARGET+cdbl(corr2("QTY"))-pqtyant TOTWOc2=TOTWOc2+((cdbl(corr2("QTY"))-pqtyant)*cdbl(corr2("PokNo"))) TOTTARGET2=TOTTARGET2+cdbl(corr2("QTY"))-pqtyant TOTWO22=TOTWO22+((cdbl(corr2("QTY"))-pqtyant)*cdbl(corr2("PokNo"))) 'pqtyant=0 else TOTTARGET=TOTTARGET+cdbl(corr2("QTY")) TOTWOc2=TOTWOc2+(cdbl(corr2("QTY"))*cdbl(corr2("PokNo"))) TOTTARGET2=TOTTARGET2+cdbl(corr2("QTY")) TOTWO22=TOTWO22+(cdbl(corr2("QTY"))*cdbl(corr2("PokNo"))) end if end if 'lstime=mid(Corr2("etime"),10,8) letime=mid(Corr2("etime"),10,5) mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " if corr2("JOBSEQ")=1 then mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " ltargetn=cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY"))-cdbl(corr2("PQTY")) else if pqtyant>0 and corr2("ROWMOVEKEY")="D" then mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " ltargetn=cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY"))-(cdbl(corr2("QTY"))-cdbl(pqtyant)) pqtyant=0 else mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " ltargetn=cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY"))-cdbl(corr2("QTY")) end if end if mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " totsh=corr2("JOBJO") TOTPROD=TOTPROD+cdbl(corr2("PQTY"))-cdbl(Corr2("PREPQTY")) TOTPRODq=TOTPRODq+((cdbl(corr2("PQTY"))-cdbl(Corr2("PREPQTY")))*cdbl(corr2("PokNo"))) TotDifc2=TotDifc2+cdbl(ltargetn) TotDifc22=TotDifc22+cdbl(ltargetn) 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")) TOTPROD2=TOTPROD2+cdbl(corr2("PQTY"))-cdbl(Corr2("PREPQTY")) TOTPROD3=TOTPROD3+((cdbl(corr2("PQTY"))-cdbl(Corr2("PREPQTY")))*cdbl(corr2("PokNo"))) 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 CORR2.MoveNext if not Corr2.eof then 'J if lanterior=1 then shora2=mid(Corr2("STIME"),10,2)&mid(Corr2("STIME"),13,2)&mid(Corr2("STIME"),16,2) Ehora2=mid(Corr2("ETIME"),10,2)&mid(Corr2("ETIME"),13,2)&mid(Corr2("ETIME"),16,2) if shora2>"064959" and shora2<"152000" then lturno2="1" end if if shora2>"151959" and shora2<"232000" then lturno2="2" end if if shora2>"231959" or shora2<"065000" then lturno2="3" end if if shora2<"065000" and Ehora2>"064959" then shora1x=int(mid(Corr2("STIME"),10,2))*3600 shora2x=int(mid(Corr2("STIME"),13,2))*60 shora3x=int(mid(Corr2("STIME"),16,2)) hstartx=shora1x+shora2x+shora3x ehora1x=int(mid(Corr2("ETIME"),10,2))*3600 ehora2x=int(mid(Corr2("ETIME"),13,2))*60 ehora3x=int(mid(Corr2("ETIME"),16,2)) hendx=ehora1x+ehora2x+ehora3x Shift1=24600 Sec1x=int(Shift1-hstartx) Sec2x=int(hendx-Shift1) if Sec2x>Sec1x then lturno2="1" end if end if if (shora2<"152000" and Ehora2>"151959") or (shora2<"232000" and Ehora2>"231959") then shn1=int(mid(Corr2("STIME"),10,2))*3600 shn2=int(mid(Corr2("STIME"),13,2))*60 shn3=int(mid(Corr2("STIME"),16,2)) hstn=shn1+shn2+shn3 ehn1=int(mid(Corr2("ETIME"),10,2))*3600 ehn2=int(mid(Corr2("ETIME"),13,2))*60 ehn3=int(mid(Corr2("ETIME"),16,2)) hend2n=ehn1+ehn2+ehn3 if (shora2<"152000" and Ehora2>"151959") then Shift2=55200 Sec1n=int(Shift2-hstn) Sec2n=int(hend2n-Shift2) if Sec1n>Sec2n then lturno2="1" else lturno2="2" end if end if if (shora2<"232000" and Ehora2>"231959") then Shift3=84000 Sec1n3=int(Shift3-hstn) Sec2n3=int(hend2n-Shift3) if Sec1n3>Sec2n3 then lturno2="2" else lturno2="3" end if end if end if end if if corr2("jobjo")="A" or corr2("jobjo")="C" then lturno2="1" end if if corr2("jobjo")="B" or corr2("jobjo")="D" then lturno2="2" end if if corr2("jobymd")<"220228" then if corr2("jobjo")="A" or corr2("jobjo")="C" then lturno2="1" end if if corr2("jobjo")="B" or corr2("jobjo")="D" then lturno2="2" end if else if corr2("jobjo")="1" then lturno2="1" end if if corr2("jobjo")="2" then lturno2="2" end if if corr2("jobjo")="3" then lturno2="3" end if end if lfecha2=corr2("jobymd") end if 'J if Corr2.eof or lturno1<>lturno2 or lfecha1<>lfecha2 then if TOTML2>0 and (TOTjtime2+TOTdtime2)>0 then lspeedtot2=int(TOTML2/((TOTjtime2+TOTdtime2)/60)) else lspeedtot2=0 end if if TOTTARGET2>0 then hores5 = int((TOTjtime2/3600)) aux5 = int(TOTjtime2-(3600*hores5)) minuts5 = int(aux5/60) segons5 = TOTjtime2-hores5*3600-minuts5*60 Worktime5 = hores5&":"&right("00"&minuts5,2) hores6 = int((TOTdtime2/3600)) aux6 = int(TOTdtime2-(3600*hores6)) minuts6 = int(aux6/60) segons6 = TOTdtime2-hores6*3600-minuts6*60 delaytime5 = hores6&":"&right("00"&minuts6,2) if lturno1="1" then lshift=xturnox end if if lturno1="2" then lshift=xturnox end if mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " if totsh="1" then set rsactprod=dbsql3.execute("update datagraph set c2s1lm="& TOTML2 &",c2s1m2="& TOTM22 &" where fecha="&actfecha&" and areaprod='C1'") set rsactprod= nothing xactualizado=1 end if if totsh="2" then set rsactprod=dbsql3.execute("update datagraph set c2s2lm="& TOTML2 &",c2s2m2="& TOTM22 &" where fecha="&actfecha&" and areaprod='C1'") set rsactprod= nothing xactualizado=2 end if if totsh="3" then set rsactprod=dbsql3.execute("update datagraph set c2s3lm="& TOTML2 &",c2s3m2="& TOTM22 &" where fecha="&actfecha&" and areaprod='C1'") set rsactprod= nothing xactualizado=2 end if lturno1=lturno2 TOTTARGET2=0 TOTTARGET2q=0 TOTPROD2q=0 TOTWO22=0 TOTPROD2=0 TotDifc22=0 TOTPROD3=0 TOTML2=0 TOTM22=0 TOTbad2=0 TOTjtime2=0 TOTdtime2=0 lfecha1=lfecha2 end if end if 'else ' response.write(" lestado0= "&lestado) ' CORR2.MoveNext 'end if letime2=letime 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) 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) mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " mensaje1=mensaje1&" " end if mensaje1=mensaje1&"
CORRUGATOR 2
STTIMECUSTOMERBOX ITEMWO NO.COMBINATIONLWWOWO2OutProdProd 2+/-% DifMM2
"& corr2("JOBJO")&" "&lstime&" "&letime&""& left(corr2("CUST"),10)&""& left(corr2("BOXName"),10)&" "& corr2("SUJUNO")&" "& corr2("BEHAP")&" "& corr2("JANG")&" "& corr2("WPOK")&" "& corr2("PQTY")&" "& int(cdbl(corr2("PQTY"))*cdbl(corr2("PokNo")))&""& corr2("PokNo")&" "& cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY"))&" "& (cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY")))*corr2("PokNo")&" "& cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY"))-cdbl(corr2("PQTY"))&" "& formatnumber(((cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY"))-cdbl(corr2("PQTY")))/cdbl(corr2("PQTY")))*100,1)&" % "& int(cdbl(corr2("QTY"))-cdbl(pqtyant))&" "& int((cdbl(corr2("QTY"))-cdbl(pqtyant))*cdbl(corr2("PokNo")))&""& corr2("PokNo")&" "& cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY"))&" "& (cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY")))*cdbl(corr2("PokNo"))&" "& cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY"))-(cdbl(corr2("QTY"))-cdbl(pqtyant))&" 0 "& cdbl(corr2("QTY"))&" "& int(cdbl(corr2("QTY"))*cdbl(corr2("PokNo")))&""& corr2("PokNo")&" "& cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY"))&" "& (cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY")))*cdbl(corr2("PokNo"))&" "& cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY"))-cdbl(corr2("QTY"))&" "& formatnumber(((cdbl(Corr2("PQTY"))-cdbl(Corr2("PREPQTY"))-cdbl(corr2("QTY")))/cdbl(corr2("QTY")))*100,1)&" % "& formatnumber(lm,0)&" "& formatnumber(lm2,0) &"
 Total Shift "& totsh &"AVG Speed"& formatnumber(lspeedtot2,0) &"  "& formatnumber(TOTTarget2,0) &""& formatnumber(TOTWO22,0) &" 
"&FORMATNUMBER(TOTPROD2,0)&"
"&FORMATNUMBER(TOTPROD3,0)&"
"&FORMATNUMBER(TotDifc22,0)&"
 
"&FORMATNUMBER(TOTML2,0) &"
"&FORMATNUMBER(TOTM22,0) &"
 TOTAL "& formatnumber(TOTITEMS,0) &"   "& formatnumber(TOTTarget,0) &""& formatnumber(TOTWOc2,0) &" 
"&FORMATNUMBER(TOTPROD,0)&"
"&FORMATNUMBER(TOTPRODq,0)&"
"&FORMATNUMBER(TotDifc2,0)&"
 
"&FORMATNUMBER(TOTML,0) &"
"&FORMATNUMBER(TOTM2,0) &"
" End if comillas=chr(34) mensaje1=mensaje1&"

" mensaje1=mensaje1&"View Graphic (intranet)

" mensaje1=mensaje1&"View Graphic (Outside Sinil/mobile phone)" mensaje1=mensaje1&"

" '''''''''''''''''************************ corr 2 fin end if 'minutos End If ' licencia expirada response.write(mensaje1) If Err.Number <> 0 then HandleError Err.Description End If Sub HandleError response.write("No DATE created") End Sub if minactual>50 and minactual<56 then ' ********** minuto 50 '********************* correo="ilkim@shinwoousa.com" 'correo="sistemas@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)="Sheko*2019*" '.Item(cdoSMTPServerport)=587 .Item(cdoSMTPServerport)= 465 .Item(cdoSMTPusessl)= 1 .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 ="bruno.kim@shinwoousa.com;avaldez@shinwoousa.com;sgallegos@shinwoousa.com;jsyc300@shinwoousa.com;vincent.shin@shinwoousa.com;asaldana@shinwoousa.com;lramirez@shinwoousa.com;planning3@shinwoousa.com;planeacion2@shinwoousa.com;rgarcia@shinwoousa.com" .bcc = "sistemas@shinwoousa.com" .Subject = "sending Automatic - Corr I, II 3s" .HTMLBody = mensaje1 '.AddAttachment (archivopdf) '.AddAttachment (archivoxml) .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing ''termina envio de correo end if 'response.Redirect("reportdailytransfer.asp?msg=enviado!") %> <% Rsfore0.Close Set Rsfore0 = Nothing ''''''''''''' %>