<%@ LANGUAGE = "VBScript" %> <%Response.Buffer = False%> <% on error resume next %> <% Session("turno")="" 'Session.Timeout = 120 Server.ScriptTimeout = 10000 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() end if 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) xday = Right("00" & Day(Date), 2) xmonth = Right("00" & Month(Date), 2) xyear = Right("00" & Year(Date), 4) xdate=xyear&xmonth&xday dia2=right("00"&day(Date_end),2) mes2=right("00"&month(Date_end),2) anno2=right("00"&year(Date_end),4) 'cfechaf=cdate((dia2+"/"+mes2+"/"+anno2)) cfechaf=cdbl(anno2+mes2+dia2) layer=weekday(date()-1) hractual=hour(Now) minactual=minute(now) if hractual<7 then Date_ini=date()-1 Date_end=date()-1 end if ''''''''''''''''''''''''''''''' inicio maquinas Session("turno")=null Dim aturno aturno = Session("turno") If isArray(aturno)=false Then ReDim aturno(60,20) for xx=1 to 60 aturno(xx,1)="" next aturno(0,1)="SUPER JUMBO" aturno(1,1)="JUMBO FLEXO" aturno(2,1)="MARTIN-1" aturno(3,1)="MARTIN-2" aturno(4,1)="WARD" aturno(5,1)="ISOWA" aturno(6,1)="ICHIKAWA" aturno(7,1)="LANGSTON" aturno(8,1)="McKinley" aturno(9,1)="MARTIN 3" aturno(10,1)="AIFEIER" aturno(11,1)="MARTIN 4" aturno(12,1)="RAPIDEX 2" aturno(13,1)="PIEMME" aturno(14,1)="ISHIKAWA" aturno(15,1)="MITSUBISHI" aturno(16,1)="ISOWA 2" aturno(17,1)="RAPIDEX 1" aturno(18,1)="AUTOMAX 1" aturno(19,1)="AUTOMAX 2" aturno(20,1)="AUTOMAX 3" aturno(21,1)="LABEL(STOCK)" aturno(22,1)="Stock II" aturno(23,1)="LABEL(MANUAL)" aturno(24,1)="GLUING" aturno(25,1)="FOSHAN DUPLEX GLUER" aturno(26,1)="SLITTER" aturno(27,1)="STITCHING" aturno(28,1)="PALLETIZE / STACK" aturno(29,1)="V BOARDER 1" aturno(30,1)="V BOARDER 2" aturno(31,1)="V BOARDER 3" aturno(0,19)="FLEXO" aturno(1,19)="FLEXO" aturno(2,19)="FLEXO" aturno(3,19)="FLEXO" aturno(4,19)="FLEXO" aturno(5,19)="FLEXO" aturno(6,19)="FLEXO" aturno(7,19)="FLEXO" aturno(8,19)="FLEXO" aturno(9,19)="FLEXO" aturno(10,19)="FLEXO" aturno(11,19)="FLEXO" aturno(12,19)="FLEXO" aturno(13,19)="FLEXO" aturno(14,19)="FLEXO" aturno(15,19)="FLEXO" aturno(16,19)="FLEXO" aturno(17,19)="FLEXO" aturno(23,19)="LABEL" aturno(24,19)="LABEL" aturno(25,19)="LABEL" aturno(26,19)="LABEL" aturno(27,19)="LABEL" aturno(28,19)="LABEL" aturno(29,19)="OTHER" aturno(30,19)="OTHER" aturno(31,19)="OTHER" aturno(32,19)="OTHER" aturno(33,19)="OTHER" aturno(34,19)="OTHER" aturno(35,19)="OTHER" aturno(36,19)="OTHER" session("turno") = aturno end if aturno = Session("turno") '''''''''''''''''''''''''''''''''''' fin maquinas 'set Rstarget=dbsql3.execute("select * from headcount where dia month year='" & aturno(i,1) & "'") lturno1t=1 lturno2t=1 lturno3t=1 lturnotot=3 lturno1m=34 lturno2m=24 lturno3m=8 ltotmach=66 lturno1a=14 lturno2a=5 lturno3a=7 ltotaut=26 ''''''''******* PERSONAL POR TURNO Dim Rsfore0 Dim Sqlfore0 set Rsfore0=dbsql3.execute("SELECT * FROM forecast WHERE id=49") 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_end), 2) strmonth2 = Right("00" & Month(Date_end), 2) stryear2 = Right("00" & Year(Date_end), 4) fechainicial = CDbl(stryear + strmonth + strday) fechafinal = CDbl(stryear2 + strmonth2 + strday2) 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 By Routing / Hourly
       
Period:  
         
<% header %>

<% '''''''''''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_end), 2) strmonth2 = Right("00" & Month(Date_end), 2) stryear2 = Right("00" & Year(Date_end), 4) fechainicial = CStr(stryear + strmonth + strday) fechafinal = CStr(stryear2 + strmonth2 + strday2) response.write(fechainicial)&" FI " response.write(fechafinal)&" Ff " if minactual>49 and minactual<55 then set Rsheadc=dbsql3.execute("select * from headcount where (convert(nvarchar(4),anno)+right('0'+convert(nvarchar(2),mes),2)+right('0'+convert(nvarchar(2),dia),2))>= '" & fechainicial & "' and (convert(nvarchar(4),anno)+right('0'+convert(nvarchar(2),mes),2)+right('0'+convert(nvarchar(2),dia),2))<= '" & fechafinal & "'") response.write(day(Date_ini)&" "&month(Date_ini)&" "&year(Date_ini)) If Rsheadc.EOF And Rsheadc.BOF Then ' else lturno1t=0 lturno2t=0 lturno3t=0 lturnotot=0 Rsheadc.movefirst Do While Not Rsheadc.EOF if Rsheadc("planta")=1 or Rsheadc("planta")=3 then if Rsheadc("turno")=1 then lturno1t=lturno1t+cdbl(Rsheadc("directo"))+cdbl(Rsheadc("indirecto")) end if if Rsheadc("turno")=2 then lturno2t=lturno2t+cdbl(Rsheadc("directo"))+cdbl(Rsheadc("indirecto")) end if if Rsheadc("turno")=3 then lturno3t=lturno3t+cdbl(Rsheadc("directo"))+cdbl(Rsheadc("indirecto")) end if lturnotot=lturnotot+cdbl(Rsheadc("directo"))+cdbl(Rsheadc("indirecto")) end if Rsheadc.MoveNext Loop end if Rsheadc.close set Rsheadc=nothing if lturno1t=0 then lturno1t=1 end if if lturno2t=0 then lturno2t=1 end if if lturno3t=0 then lturno3t=1 end if if lturnotot=0 then lturnotot=1 end if %>

SINIL INDUSTRY
Production By Machine - Shift
Date: <%=fechainicial%> to <%=fechafinal%> Generated: <%=time%>
<% '************** Inventory 'lturno=0 Dim Rsinven1, Rsinven2, rswip, Rsmachine Dim Sqlinven1, sqlinven2, sqlwip 'do while lturno<3 set Rsinven1=dbsql.execute("select a.prod_date, right(a.prod_date,6) prod_day, case a.proc_cd1 when '' then case a.proc_cd2 when '' then a.proc_cd3 else a.proc_cd2 end else a.proc_cd1 end proc_cd,(select proc_nm from stb160t(nolock) where proc_cd = (case a.proc_cd1 when '' then case a.proc_cd2 when '' then a.proc_cd3 else a.proc_cd2 end else a.proc_cd1 end) ) as proc_nm, a.work_gubun, case a.work_gubun when '0' then '1S' when '1' then '2S' when '2' then '3S' end as wrok_gubun_nm, dbo.usf_no('B', '1', a.ord_date, a.ord_seq, 4, '-') as ord_no, b.cust_cd, (select cust_nm from stb010t(nolock) where cust_cd = b.cust_cd) as cust_nm, b.good_nm, b.ord_qty, c.plan_qty, a.real_prod_qty, round(a.real_prod_qty * b.mae_m2 , 0) as prod_m2, a.bad_qty, a.extra_qty, isnull(a1.inv_qty,0) as inv_qty " & _ "from bob030t a(nolock) left outer join ( select crp_id, goods_class, ord_date, ord_seq, plan_date, plan_seq, sum(plan_qty) plan_qty from bob010t(nolock) group by crp_id, goods_class, ord_date, ord_seq, plan_date, plan_seq) c on a.crp_id = c.crp_id and a.goods_class = c.goods_class and a.ord_date = c.ord_date and a.ord_seq = c.ord_seq and a.plan_date = c.plan_date and a.plan_seq = c.plan_seq left outer join ( select a.crp_id, a.ord_no, sum(a.qty) inv_qty from inout_table a(nolock), bar_code b(nolock) where a.ord_no = 'B1' + substring(b.ord_date,3,6) + '-' + right('0000' + convert(varchar(4), b.ord_seq), 4) and b.chk_bit = '1' and b.bar_code = a.bar_code and b.trans_date = a.job_date and a.class = '1' group by a.crp_id, a.ord_no) a1 on a.crp_id = a1.crp_id and 'B1' + substring(a.ord_date,3,6) + '-' + right('0000' + convert(varchar(4), a.ord_seq), 4) = a1.ord_no , boa010t b(nolock) " & _ "where a.crp_id = b.crp_id and a.goods_class = b.goods_class and a.ord_date = b.ord_date and a.ord_seq = b.ord_seq and b.del_yn = '0' and a.crp_id = '10' and (a.prod_date) >= '" & fechainicial & "' and (a.prod_date) <= '" & fechafinal & "'order by a.prod_date, a.work_gubun, case a.proc_cd1 when '' then case a.proc_cd2 when '' then a.proc_cd3 else a.proc_cd2 end else a.proc_cd1 end, a.ord_date, a.ord_seq") If Rsinven1.EOF And Rsinven1.BOF Then ExisteUsuario = False Msg = "No records exist for this date." Style = vbDefaultButton2 Title = "Msg from System" Help = "" ctxt = 1000 'Response = MsgBox(Msg, Style, Title, Help, ctxt) response.Write("No records exist for this date.") Else %>
<% 'Rsinven1.MoveFirst nmachine=1 lworkorder1="a" lworkorder2="b" lmaquina1="a" lmaquina2="b" Rsinven1.movefirst Do While Not Rsinven1.EOF if not isnull(Rsinven1("real_prod_qty")) and not isnull(Rsinven1("plan_qty")) then Porclogro=cdbl(Rsinven1("real_prod_qty"))/cdbl(Rsinven1("plan_qty"))*100 else Porclogro=0 end if lturno1=Rsinven1("wrok_gubun_nm") lmaquina1=Rsinven1("proc_nm") Posicion= Instr(Rsinven1("good_nm"),"/") %> <% lprodqty=lprodqty+cdbl(Rsinven1("real_prod_qty")) lprodm2=lprodm2+cdbl(Rsinven1("prod_m2")) lbadqty=lbadqty+cdbl(Rsinven1("bad_qty")) xturno=Rsinven1("wrok_gubun_nm") if not isnull(Rsinven1("plan_qty")) then xplanqty=cdbl(Rsinven1("plan_qty")) else xplanqty=cdbl(Rsinven1("real_prod_qty")) end if lprodqtym=lprodqtym+cdbl(Rsinven1("real_prod_qty")) lprodm2m=lprodm2m+cdbl(Rsinven1("prod_m2")) lbadqtym=lbadqtym+cdbl(Rsinven1("bad_qty")) Rsinven1.MoveNext if not rsinven1.eof then 'if lworkorder1<>lworkorder2 then 'end if lturno2=Rsinven1("wrok_gubun_nm") lmaquina2=Rsinven1("proc_nm") lworkorder2=Rsinven1("ord_no") if xplanqty>0 and ((lworkorder1<>lworkorder2) or (lmaquina1<>lmaquina2)) then lplanqty=lplanqty+xplanqty end if if xplanqty>0 and ((lworkorder1<>lworkorder2) or (lmaquina1<>lmaquina2)) then lplanqtym=lplanqtym+xplanqty end if lworkorder1=lworkorder2 if lturno1<>lturno2 or lmaquina1<>lmaquina2 then if lmaquina1<>lmaquina2 then if lprodqtym>0 and lplanqtym>0 then lcumplimiento2=(lprodqtym/lplanqtym)*100 else if lprodqtym>0 and lplanqtym=0 then lplanqtym=lprodqtym lcumplimiento2=(lprodqtym/lplanqtym)*100 else lcumplimiento2=0 end if end if incart=false 'Dim aturno 'aturno = Session("turno") If isArray(aturno)=false Then ReDim aturno(60,18) aturno(1,1)=lmaquina1 if lturno1="1S" then aturno(1,2)=aturno(1,2)+lprodqtym aturno(1,3)=aturno(1,3)+lprodm2m aturno(1,8)=aturno(1,8)+lplanqtym aturno(1,9)=aturno(1,9)+lbadqtym aturno(1,10)=aturno(1,10)+lcumplimiento2 aturno(1,18)=aturno(1,18)+1 end if if lturno1="2S" then aturno(1,4)=aturno(1,4)+lprodqtym aturno(1,5)=aturno(1,5)+lprodm2m aturno(1,11)=aturno(1,11)+lplanqtym aturno(1,12)=aturno(1,12)+lbadqtym aturno(1,13)=aturno(1,13)+lcumplimiento2 aturno(1,18)=aturno(1,18)+1 end if if lturno1="3S" then aturno(1,6)=aturno(1,6)+lprodqtym aturno(1,7)=aturno(1,7)+lprodm2m aturno(1,14)=aturno(1,14)+lplanqtym aturno(1,15)=aturno(1,15)+lbadqtym aturno(1,16)=aturno(1,16)+lcumplimiento2 aturno(1,18)=aturno(1,18)+1 end if session("turno") = aturno else numprod=0 for i=lbound(aturno) to ubound(aturno) if aturno(i,1)=lmaquina1 then if lturno1="1S" then aturno(i,2)=aturno(i,2)+lprodqtym aturno(i,3)=aturno(i,3)+lprodm2m aturno(i,8)=aturno(i,8)+lplanqtym aturno(i,9)=aturno(i,9)+lbadqtym aturno(i,10)=aturno(i,10)+lcumplimiento2 aturno(i,18)=aturno(i,18)+1 end if if lturno1="2S" then aturno(i,4)=aturno(i,4)+lprodqtym aturno(i,5)=aturno(i,5)+lprodm2m aturno(i,11)=aturno(i,11)+lplanqtym aturno(i,12)=aturno(i,12)+lbadqtym aturno(i,13)=aturno(i,13)+lcumplimiento2 aturno(i,18)=aturno(i,18)+1 end if if lturno1="3S" then aturno(i,6)=aturno(i,6)+lprodqtym aturno(i,7)=aturno(i,7)+lprodm2m aturno(i,14)=aturno(i,14)+lplanqtym aturno(i,15)=aturno(i,15)+lbadqtym aturno(i,16)=aturno(i,16)+lcumplimiento2 aturno(i,18)=aturno(i,18)+1 end if incart=true else if aturno(i,1)="" and not(incart) then aturno(i,1)=lmaquina1 if lturno1="1S" then aturno(i,2)=aturno(i,2)+lprodqtym aturno(i,3)=aturno(i,3)+lprodm2m aturno(i,8)=aturno(i,8)+lplanqtym aturno(i,9)=aturno(i,9)+lbadqtym aturno(i,10)=aturno(i,10)+lcumplimiento2 aturno(i,18)=aturno(i,18)+1 end if if lturno1="2S" then aturno(i,4)=aturno(i,4)+lprodqtym aturno(i,5)=aturno(i,5)+lprodm2m aturno(i,11)=aturno(i,11)+lplanqtym aturno(i,12)=aturno(i,12)+lbadqtym aturno(i,13)=aturno(i,13)+lcumplimiento2 aturno(i,18)=aturno(i,18)+1 end if if lturno1="3S" then aturno(i,6)=aturno(i,6)+lprodqtym aturno(i,7)=aturno(i,7)+lprodm2m aturno(i,14)=aturno(i,14)+lplanqtym aturno(i,15)=aturno(i,15)+lbadqtym aturno(i,16)=aturno(i,16)+lcumplimiento2 aturno(i,18)=aturno(i,18)+1 end if incart=true end if end if numprod=numprod+1 next session("turno")=aturno end if 'is array %> <% lmaquina1=lmaquina2 lprodqtym=0 lprodm2m=0 lbadqtym=0 lplanqtym=0 nmachine=nmachine+1 end if 'si maquina if lturno1<>lturno2 then lcumplimiento=100 if lprodqty>0 and lplanqty>0 then lcumplimiento=(lprodqty/lplanqty)*100 end if %> <% lturno1=lturno2 gtot1=gtot1+lplanqty gtot2=gtot2+lprodqty gtot3=gtot3+lprodm2 gtot4=gtot4+lbadqty lprodqty=0 lprodm2=0 lbadqty=0 lplanqty=0 end if 'turno end if 'si maquina o turno else 'si eof if xplanqty>0 then lplanqty=lplanqty+xplanqty end if if xplanqty>0 then lplanqtym=lplanqtym+xplanqty end if lcumplimiento=(lprodqty/lplanqty)*100 if lprodqtym>0 and lplanqtym>0 then lcumplimiento2=(lprodqtym/lplanqtym)*100 else if lprodqtym>0 and lplanqtym=0 then lplanqtym=lprodqtym lcumplimiento2=(lprodqtym/lplanqtym)*100 else lcumplimiento2=0 end if end if incart=false 'Dim aturno 'aturno = Session("turno") If isArray(aturno)=false Then ReDim aturno(60,20) aturno(1,1)=lmaquina1 if lturno1="1S" then aturno(1,2)=aturno(1,2)+lprodqtym aturno(1,3)=aturno(1,3)+lprodm2m aturno(1,8)=aturno(1,8)+lplanqtym aturno(1,9)=aturno(1,9)+lbadqtym aturno(1,10)=aturno(1,10)+lcumplimiento2 aturno(1,18)=aturno(1,18)+1 end if if lturno1="2S" then aturno(1,4)=aturno(1,4)+lprodqtym aturno(1,5)=aturno(1,5)+lprodm2m aturno(1,11)=aturno(1,11)+lplanqtym aturno(1,12)=aturno(1,12)+lbadqtym aturno(1,13)=aturno(1,13)+lcumplimiento2 aturno(1,18)=aturno(1,18)+1 end if if lturno1="3S" then aturno(1,6)=aturno(1,6)+lprodqtym aturno(1,7)=aturno(1,7)+lprodm2m aturno(1,14)=aturno(1,14)+lplanqtym aturno(1,15)=aturno(1,15)+lbadqtym aturno(1,16)=aturno(1,16)+lcumplimiento2 aturno(1,18)=aturno(1,18)+1 end if session("turno") = aturno else numprod=0 for i=lbound(aturno) to ubound(aturno) if aturno(i,1)=lmaquina1 then if lturno1="1S" then aturno(i,2)=aturno(i,2)+lprodqtym aturno(i,3)=aturno(i,3)+lprodm2m aturno(i,8)=aturno(i,8)+lplanqtym aturno(i,9)=aturno(i,9)+lbadqtym aturno(i,10)=aturno(i,10)+lcumplimiento2 aturno(i,18)=aturno(i,18)+1 end if if lturno1="2S" then aturno(i,4)=aturno(i,4)+lprodqtym aturno(i,5)=aturno(i,5)+lprodm2m aturno(i,11)=aturno(i,11)+lplanqtym aturno(i,12)=aturno(i,12)+lbadqtym aturno(i,13)=aturno(i,13)+lcumplimiento2 aturno(i,18)=aturno(i,18)+1 end if if lturno1="3S" then aturno(i,6)=aturno(i,6)+lprodqtym aturno(i,7)=aturno(i,7)+lprodm2m aturno(i,14)=aturno(i,14)+lplanqtym aturno(i,15)=aturno(i,15)+lbadqtym aturno(i,16)=aturno(i,16)+lcumplimiento2 aturno(i,18)=aturno(i,18)+1 end if incart=true else if aturno(i,1)="" and not(incart) then aturno(i,1)=lmaquina1 if lturno1="1S" then aturno(i,2)=aturno(i,2)+lprodqtym aturno(i,3)=aturno(i,3)+lprodm2m aturno(i,8)=aturno(i,8)+lplanqtym aturno(i,9)=aturno(i,9)+lbadqtym aturno(i,10)=aturno(i,10)+lcumplimiento2 aturno(i,18)=aturno(i,18)+1 end if if lturno1="2S" then aturno(i,4)=aturno(i,4)+lprodqtym aturno(i,5)=aturno(i,5)+lprodm2m aturno(i,11)=aturno(i,11)+lplanqtym aturno(i,12)=aturno(i,12)+lbadqtym aturno(i,13)=aturno(i,13)+lcumplimiento2 aturno(i,18)=aturno(i,18)+1 end if if lturno1="3S" then aturno(i,6)=aturno(i,6)+lprodqtym aturno(i,7)=aturno(i,7)+lprodm2m aturno(i,14)=aturno(i,14)+lplanqtym aturno(i,15)=aturno(i,15)+lbadqtym aturno(i,16)=aturno(i,16)+lcumplimiento2 aturno(i,18)=aturno(i,18)+1 end if incart=true end if end if numprod=numprod+1 next session("turno")=aturno end if ' is array %> <% gtot1=gtot1+lplanqty gtot2=gtot2+lprodqty gtot3=gtot3+lprodm2 gtot4=gtot4+lbadqty if gtot2>0 and gtot1>0 then 'lplanqtym=lprodqtym lcumplimiento3=(gtot2/gtot1)*100 else lcumplimiento3=0 end if 'gtot5=gtot5+lplanqty end if Loop Rsinven1.Close Set Rsinven1 = Nothing %> <% End If '''''''''''''''''''''************************ Tabla de maquinas %>
Production Summary by Machine /Shift (<%=Date_ini%> to <%=Date_end%>) <% 'If isArray(aturno) Then mensaje2=" HOURLY PERFORMANCE BY MACHINE" mensaje2=mensaje2&"
Generated:
1S
2S
3S
Total
<%=lturno1t%>
<%=lturno2t%>
<%=lturno3t%>
<%=lturnotot%>
<%=time%> Qty M2 Qty M2 Qty M2 Qty M2 Shift Qty 
" mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " 'buscar producto duplicado for i=lbound(aturno) to ubound(aturno) if aturno(i,1)<>"" and (aturno(i,2)>0 or aturno(i,4)>0 or aturno(i,6)>0)then if aturno(i,1)="V BOARDER 1" or aturno(i,1)="V BOARDER 2" or aturno(i,1)="V BOARDER 3" then lstotqtymvb=ltotqtymvb+aturno(i,2)+aturno(i,4)+aturno(i,6) lstotm2mvb=ltotm2mvb+aturno(i,3)+aturno(i,5)+aturno(i,7) lstotqtys1vb=lstotqtys1vb+aturno(i,2) lstotqtys2vb=lstotqtys2vb+aturno(i,4) lstotqtys3vb=lstotqtys3vb+aturno(i,6) lstotm2s1vb=lstotm2s1vb+aturno(i,3) lstotm2s2vb=lstotm2s2vb+aturno(i,5) lstotm2s3vb=lstotm2s3vb+aturno(i,7) lstotbads1vb=lstotbads1vb+aturno(i,9) lstotbads2vb=lstotbads2vb+aturno(i,12) lstotbads3vb=lstotbads3vb+aturno(i,15) end if %> <% mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " ltotqtym=aturno(i,2)+aturno(i,4)+aturno(i,6) ltotm2m=aturno(i,3)+aturno(i,5)+aturno(i,7) %> <% set Rstarget=dbsql3.execute("select * from target3 where machine='" & aturno(i,1) & "'") if not Rstarget.eof then lm21s=Rstarget("m21s") lm22s=Rstarget("m22s") lm23s=Rstarget("m23s") else lm21s=0 lm22s=0 lm23s=0 end if if aturno(i,2)>0 then 'llogro=(ltotm2m/lm21s)*100 ltarget=lm21s if aturno(i,4)>0 then ltarget=lm21s+lm22s if aturno(i,6)>0 then ltarget=lm21s+lm22s+lm23s end if else if aturno(i,6)>0 then ltarget=lm21s+lm23s end if end if else if aturno(i,4)>0 then ltarget=lm22s if aturno(i,6)>0 then ltarget=lm22s+lm23s end if else if aturno(i,6)>0 then ltarget=lm23s end if end if end if llogro=(ltotm2m/ltarget)*100 mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " mensaje2=mensaje2+" " 'end if ltotbadm=aturno(i,9)+aturno(i,12)+aturno(i,15) lstotqtys1=lstotqtys1+aturno(i,2) lstotqtys2=lstotqtys2+aturno(i,4) lstotqtys3=lstotqtys3+aturno(i,6) lstotm2s1=lstotm2s1+aturno(i,3) lstotm2s2=lstotm2s2+aturno(i,5) lstotm2s3=lstotm2s3+aturno(i,7) lstotbads1=lstotbads1+aturno(i,9) lstotbads2=lstotbads2+aturno(i,12) lstotbads3=lstotbads3+aturno(i,15) ltotqtys1=ltotqtys1+aturno(i,2) ltotqtys2=ltotqtys2+aturno(i,4) ltotqtys3=ltotqtys3+aturno(i,6) ltotm2s1=ltotm2s1+aturno(i,3) ltotm2s2=ltotm2s2+aturno(i,5) ltotm2s3=ltotm2s3+aturno(i,7) ltotbads1=ltotbads1+aturno(i,9) ltotbads2=ltotbads2+aturno(i,12) ltotbads3=ltotbads3+aturno(i,15) end if if aturno(i,1)="RAPIDEX 1" then %> <% 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " lstotqtyday=lstotqtys1+lstotqtys2+lstotqtys3 lstotm2day=lstotm2s1+lstotm2s2+lstotm2s3 %> <% 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " lstotqtyday=lstotqtys1+lstotqtys2+lstotqtys3 lstotm2day=lstotm2s1+lstotm2s2+lstotm2s3 lflexoqtys1=lstotqtys1 lflexom2s1=lstotm2s1 lflexoqtys2=lstotqtys2 lflexom2s2=lstotm2s2 lflexoqtys3=lstotqtys3 lflexom2s3=lstotm2s3 %> <% 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " lstotqtys1=0 lstotqtys2=0 lstotqtys3=0 lstotm2s1=0 lstotm2s2=0 lstotm2s3=0 lstotbads1=0 lstotbads2=0 lstotbads3=0 lstotqtyday=0 lstotm2day=0 end if if aturno(i,1)="V BOARDER 3" then %> <% lstotqtydayvb=lstotqtys1vb+lstotqtys2vb+lstotqtys3vb lstotm2dayvb=lstotm2s1vb+lstotm2s2vb+lstotm2s3vb %> <% lstotqtys1vb=0 lstotqtys2vb=0 lstotqtys3vb=0 lstotm2s1vb=0 lstotm2s2vb=0 lstotm2s3vb=0 lstotbads1vb=0 lstotbads2vb=0 lstotbads3vb=0 lstotqtydayvb=0 lstotm2dayvb=0 end if if aturno(i,1)="LABEL(MANUAL)" then %> <% lstotqtyday=lstotqtys1+lstotqtys2+lstotqtys3 lstotm2day=lstotm2s1+lstotm2s2+lstotm2s3 %> <% lstotqtyday=lstotqtys1+lstotqtys2+lstotqtys3 lstotm2day=lstotm2s1+lstotm2s2+lstotm2s3 lflexoqtys1=lflexoqtys1+lstotqtys1 lflexom2s1=lflexom2s1+lstotm2s1 lflexoqtys2=lflexoqtys2+lstotqtys2 lflexom2s2=lflexom2s2+lstotm2s2 lflexoqtys3=lflexoqtys3+lstotqtys3 lflexom2s3=lflexom2s3+lstotm2s3 %> <% lstotqtys1=0 lstotqtys2=0 lstotqtys3=0 lstotm2s1=0 lstotm2s2=0 lstotm2s3=0 lstotbads1=0 lstotbads2=0 lstotbads3=0 lstotqtyday=0 lstotm2day=0 end if next 'else ' ReDim aturno(60,9) 'end if if ubound(aturno) then %> <% lstotqtyday=lstotqtys1+lstotqtys2+lstotqtys3 lstotm2day=lstotm2s1+lstotm2s2+lstotm2s3 %> <% lstotqtyday=lstotqtys1+lstotqtys2+lstotqtys3 lstotm2day=lstotm2s1+lstotm2s2+lstotm2s3 lflexoqtys1=lflexoqtys1+lstotqtys1 lflexom2s1=lflexom2s1+lstotm2s1 lflexoqtys2=lflexoqtys2+lstotqtys2 lflexom2s2=lflexom2s2+lstotm2s2 lflexoqtys3=lflexoqtys3+lstotqtys3 lflexom2s3=lflexom2s3+lstotm2s3 %> <% lstotqtys1=0 lstotqtys2=0 lstotqtys3=0 lstotm2s1=0 lstotm2s2=0 lstotm2s3=0 lstotbads1=0 lstotbads2=0 lstotbads3=0 lstotqtyday=0 lstotm2day=0 end if %> <% 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " ltotqtyday=ltotqtys1+ltotqtys2+ltotqtys3 ltotm2day=ltotm2s1+ltotm2s2+ltotm2s3 %> <% 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " 'mensaje2=mensaje2+" " lstotqtyday=lstotqtys1+lstotqtys2+lstotqtys3 lstotm2day=lstotm2s1+lstotm2s2+lstotm2s3 lflexoqtytot=lflexoqtys1+lflexoqtys2+lflexoqtys3 lflexom2tot=lflexom2s1+lflexom2s2+lflexom2s3 %>
"& Date_ini &" 1S2S3STotal
"& time &"QtyM2QtyM2QtyM2QtyM2Logro M2
<%=aturno(i,1)%>
<%=aturno(i,2)%>
<%=aturno(i,3)%>
<%=aturno(i,4)%>
<%=aturno(i,5)%>
<%=aturno(i,6)%>
<%=aturno(i,7)%>
"& aturno(i,1) &""& aturno(i,2) &""&aturno(i,3) &""&aturno(i,4) &""&aturno(i,5) &""&aturno(i,6) &""&aturno(i,7) &"
<%=ltotqtym%>
<%=ltotm2m%>
<%=aturno(i,18)%> 
"& ltotqtym &""& ltotm2m &""& formatnumber(llogro,1) &"%
SubTotal
<%=formatnumber(lstotqtys1,0)%>
<%=formatnumber(lstotm2s1,0)%>
<%=formatnumber(lstotqtys2,0)%>
<%=formatnumber(lstotm2s2,0)%>
<%=formatnumber(lstotqtys3,0)%>
<%=formatnumber(lstotm2s3,0)%>
SubTotal
"&formatnumber(lstotqtys1,0)&"
"&formatnumber(lstotm2s1,0)&"
"&formatnumber(lstotqtys2,0)&"
"&formatnumber(lstotm2s2,0)&"
"&formatnumber(lstotqtys3,0)&"
"&formatnumber(lstotm2s3,0)&"
<%=formatnumber(lstotqtyday,0)%>
<%=formatnumber(lstotm2day,0)%>
  
AVG
<%=formatnumber(lstotqtys1/lturno1t,0)%>
<%=formatnumber(lstotm2s1/lturno1t,0)%>
<%=formatnumber(lstotqtys2/lturno2t,0)%>
<%=formatnumber(lstotm2s2/lturno2t,0)%>
<%=formatnumber(lstotqtys3/lturno3t,0)%>
<%=formatnumber(lstotm2s3/lturno3t,0)%>
"&formatnumber(lstotqtyday,0)&"
"&formatnumber(lstotm2day,0)&"
 
AVG
"&formatnumber(lstotqtys1/lturno1t,0)&"
"&formatnumber(lstotm2s1/lturno1t,0)&"
"&formatnumber(lstotqtys2/lturno2t,0)&"
"&formatnumber(lstotm2s2/lturno2t,0)&"
"&formatnumber(lstotqtys3/lturno3t,0)&"
"&formatnumber(lstotm2s3/lturno3t,0)&"
<%=formatnumber(lstotqtyday/lturnotot,0)%>
<%=formatnumber(lstotm2day/lturnotot,0)%>
  
"&formatnumber(lstotqtyday/lturnotot,0)&"
"&formatnumber(lstotm2day/lturnotot,0)&"
 
Total VBOARD
<%=formatnumber(lstotqtys1vb,0)%>
<%=formatnumber(lstotm2s1vb,0)%>
<%=formatnumber(lstotqtys2vb,0)%>
<%=formatnumber(lstotm2s2vb,0)%>
<%=formatnumber(lstotqtys3vb,0)%>
<%=formatnumber(lstotm2s3vb,0)%>
<%=formatnumber(lstotqtydayvb,0)%>
<%=formatnumber(lstotm2dayvb,0)%>
  
SubTotal
<%=formatnumber(lstotqtys1,0)%>
<%=formatnumber(lstotm2s1,0)%>
<%=formatnumber(lstotqtys2,0)%>
<%=formatnumber(lstotm2s2,0)%>
<%=formatnumber(lstotqtys3,0)%>
<%=formatnumber(lstotm2s3,0)%>
<%=formatnumber(lstotqtyday,0)%>
<%=formatnumber(lstotm2day,0)%>
  
AVG
<%=formatnumber(lstotqtys1/lturno1t,0)%>
<%=formatnumber(lstotm2s1/lturno1t,0)%>
<%=formatnumber(lstotqtys2/lturno2t,0)%>
<%=formatnumber(lstotm2s2/lturno2t,0)%>
<%=formatnumber(lstotqtys3/lturno3t,0)%>
<%=formatnumber(lstotm2s3/lturno3t,0)%>
<%=formatnumber(lstotqtyday/lturnotot,0)%>
<%=formatnumber(lstotm2day/lturnotot,0)%>
  
SubTotal Others
<%=formatnumber(lstotqtys1,0)%>
<%=formatnumber(lstotm2s1,0)%>
<%=formatnumber(lstotqtys2,0)%>
<%=formatnumber(lstotm2s2,0)%>
<%=formatnumber(lstotqtys3,0)%>
<%=formatnumber(lstotm2s3,0)%>
<%=formatnumber(lstotqtyday,0)%>
<%=formatnumber(lstotm2day,0)%>
  
AVG
<%=formatnumber(lstotqtys1/lturno1t,0)%>
<%=formatnumber(lstotm2s1/lturno1t,0)%>
<%=formatnumber(lstotqtys2/lturno2t,0)%>
<%=formatnumber(lstotm2s2/lturno2t,0)%>
<%=formatnumber(lstotqtys3/lturno3t,0)%>
<%=formatnumber(lstotm2s3/lturno3t,0)%>
<%=formatnumber(lstotqtyday/lturnotot,0)%>
<%=formatnumber(lstotm2day/lturnotot,0)%>
  
Total Shift
<%=formatnumber(ltotqtys1,0)%>
<%=formatnumber(ltotm2s1,0)%>
<%=formatnumber(ltotqtys2,0)%>
<%=formatnumber(ltotm2s2,0)%>
<%=formatnumber(ltotqtys3,0)%>
<%=formatnumber(ltotm2s3,0)%>
Total Shift
"&formatnumber(ltotqtys1,0)&"
"&formatnumber(ltotm2s1,0)&"
"&formatnumber(ltotqtys2,0)&"
"&formatnumber(ltotm2s2,0)&"
"&formatnumber(ltotqtys3,0)&"
"&formatnumber(ltotm2s3,0)&"
<%=formatnumber(ltotqtyday,0)%>
<%=formatnumber(ltotm2day,0)%>
  
AVG
<%=formatnumber(lflexoqtys1/lturno1t,0)%>
<%=formatnumber(lflexom2s1/lturno1t,0)%>
<%=formatnumber(lflexoqtys2/lturno2t,0)%>
<%=formatnumber(lflexom2s2/lturno2t,0)%>
<%=formatnumber(lflexoqtys3/lturno3t,0)%>
<%=formatnumber(lflexom2s3/lturno3t,0)%>
"&formatnumber(ltotqtyday,0)&"
"&formatnumber(ltotm2day,0)&"
 
AVG
"&formatnumber(lflexoqtys1/lturno1t,0)&"
"&formatnumber(lflexom2s1/lturno1t,0)&"
"&formatnumber(lflexoqtys2/lturno2t,0)&"
"&formatnumber(lflexom2s2/lturno2t,0)&"
"&formatnumber(lflexoqtys3/lturno3t,0)&"
"&formatnumber(lflexom2s3/lturno3t,0)&"
<%=formatnumber(lflexoqtytot/lturnotot,0)%>
<%=formatnumber(lflexom2tot/lturnotot,0)%>
  

<% 'mensaje2=mensaje2+"
<"&formatnumber(lflexoqtytot/lturnotot,0)&"
" 'mensaje2=mensaje2+"
"&formatnumber(lflexom2tot/lturnotot,0)&"
" 'mensaje2=mensaje2+"  " 'mensaje2=mensaje2+" " mensaje2=mensaje2+"" '********************************************** '********************* 'Dim objCDO 'Dim Conf 'Dim Fields 'correo="sistemas@shinwoousa.com" correo="ikejung@shinwoousa.com" '''''''''''; 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 = "avaldez@shinwoousa.com;jmontano@shinwoousa.com;sgallegos@shinwoousa.com;ysalazar@shinwoousa.com;yvizcarra@shinwoousa.com;jamesoh@shinwoousa.com;jmedina@shinwoousa.com;dvilchis@shinwoousa.com;jguzman@shinwoousa.com;mahernandez@shinwoousa.com;ehernandez@shinwoousa.com;abecerra@shinwoousa.com;ikejung@shinwoousa.com" .bcc = "sistemas@shinwoousa.com" .Subject = "sending Automatic - HOURLY PERFORMANCE BY MACHINE" '.TextBody = "Esta es una Prueba de envio automatico ASECO-Sergio" .HTMLBody= mensaje2 '.AddAttachment (archivopdf) '.AddAttachment (archivoxml) .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing ''termina envio de correo %>
<% end if 'minuto 50-55 End If Rsfore0.Close Set Rsfore0 = Nothing ''''''''''''' %>