Report By Routing

<%@ LANGUAGE = "VBScript" %> <%Response.Buffer = False%> <% 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) 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) ''''''''''''''''''''''''''''''' 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 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) '''''''''''''''''''''''''''''''''''''' %> Report By Routing datepicker demo <% 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 " set Rsheadc=dbsql3.execute("select * from headcount where dia=" & Day(Date_ini) & " and month=" & Month(Date_ini) & " and year=" & Year(Date_ini)) 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 - Progress
Date: <%=Date_ini%> to <%=Date_end%> 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.nap_date, 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 ' lqtyinven = lqtyinven + cdbl(Rsinven1("inv_qty1")) + cdbl(Rsinven1("inv_qty2")) + cdbl(Rsinven1("inv_qty3")) ' lamtinven = lamtinven + cdbl(Rsinven1("inv_amt1")) + cdbl(Rsinven1("inv_amt2")) + cdbl(Rsinven1("inv_amt3")) 'response.write((Rsinven1("real_prod_qty"))&" / "&Rsinven1("plan_qty")) 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"),"/") %> <%if posicion>0 then%> <%else%> <% end if%> <% 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 'aturno(6,nmachine)=lturno1 'response.write(lmaquina1) 'response.write(lturno1) xadv=0 if xadv=1 then %> <% end if 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 if xadv=1 then %> <% end if lturno1=lturno2 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 if xadv=1 then %> <% end if end if Loop Rsinven1.Close Set Rsinven1 = Nothing %>

W. O. Details

PROD DATE

D/O DATE

SHIFT

MACHINE

ORDER NO

CUSTOMER

ITEM

ORD QTY

PLAN_QTY

PROD QTY

PROD M2

BAD QTY

% Prod Vs Plan

<%= Rsinven1("prod_day")%>

<%= Rsinven1("nap_date")%>

<%= Rsinven1("wrok_gubun_nm")%>

<%= Rsinven1("proc_nm")%>

<%= Rsinven1("ord_no")%>

<%= Rsinven1("cust_nm")%>

<%= mid(Rsinven1("good_nm"),1,posicion-1)%>

<%= Rsinven1("good_nm")%>

<%= Rsinven1("ord_qty")%>

<%= Rsinven1("plan_qty")%>

<%= Rsinven1("real_prod_qty")%>

<%= Rsinven1("prod_m2")%>

<%= Rsinven1("bad_qty")%>

<%= formatnumber(porclogro,1)%> %

<%=xturno%>

Total <%= lmaquina1%>

<%=formatnumber(lplanqtym,0)%>

<%=formatnumber(lprodqtym,0)%>

<%=formatnumber( lprodm2m,0)%>

<%=formatnumber( lbadqtym,0)%>

<%=formatnumber(lcumplimiento2,1)%> %

Total turno: <%= lturno1%>

<%=formatnumber(lplanqty,0)%>

<%=formatnumber(lprodqty,0)%>

<%=formatnumber(lprodm2,0)%>

<%=formatnumber(lbadqty,0)%>

<%=formatnumber(lcumplimiento,1)%> %