<%@ LANGUAGE = "VBScript" %> <% 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") cmes=Request.Form("cmes") canno=Request.Form("canno") 'if cmes="" then ' cmes=month(date) ' canno=year(date) 'end if lspace=" " apostrofe="'" if Date_ini="" or Date_ini=null then Date_ini=date()-(day(date()))+1 Date_end=date() end if '''''''''''calcula layer=weekday(date()-1) minactual=minute(now) If layer = 1 Then Date_ini=date()-3 Date_end=date()-3 else if layer=7 then Date_ini=date()-2 Date_end=date()-2 else Date_ini=date()-1 Date_end=date()-1 end if 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 Dim objCDO Dim Conf Dim Fields set Rsfore0=cnn.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 correo="ilkim@shinwoousa.com" '''''''''''''''''''''''''''''''''''''' If xdate>xdate2 Then response.write (ErrorNo1) mensaje=ErrorNo1 ''''''''''' 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 .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;jamesoh@shinwoousa.com;vincent.shin@shinwoousa.com" .bcc = "sistemas@shinwoousa.com" if acthora=7 or acthora=14 then .Subject = "sending Automatic - Transfer (OB-ALL)" else .Subject = "sending Automatic - Transfer (OB-ALL)" end if '.TextBody = "Esta es una Prueba de envio automatico ASECO-Sergio" .HTMLBody= mensaje '.AddAttachment (archivopdf) '.AddAttachment (archivoxml) .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing else strday = Right("00" & Day(date), 2) lminactual=minute(now) lhractual=hour(Now) strmonth = Right("00" & Month(date), 2) stryear = Right("00" & Year(date), 4) strday2 = Right("00" & Day(date+1), 2) strmonth2 = Right("00" & Month(date)+1, 2) stryear2 = Right("00" & Year(date+1), 4) lmonth = Month(Date)-1 'lmonth =4 If lmonth = 1 Or lmonth = 3 Or lmonth = 5 Or lmonth = 7 Or lmonth = 8 Or lmonth = 10 Or lmonth = 0 Then ldiasmes = 31 End If If lmonth = 2 Then ldiasmes = 29 End If If lmonth = 4 Or lmonth = 6 Or lmonth = 9 Or lmonth = 11 Then ldiasmes = 30 End If lmonth1 = Month(Date) 'lmonth1 = 5 If lmonth1 = 1 Or lmonth1 = 3 Or lmonth1 = 5 Or lmonth1 = 7 Or lmonth1 = 8 Or lmonth1 = 10 Or lmonth1 = 12 Then ldiasmes1 = 31 End If If lmonth1 = 2 Then ldiasmes1 = 29 End If If lmonth1 = 4 Or lmonth1 = 6 Or lmonth1 = 9 Or lmonth1 = 11 Then ldiasmes1 = 30 End If strmesini = Right("00" & lmonth, 2) strday2 = Right("00" & ldiasmes, 2) if cmes="" then cmes=right("00"&month(date),2) canno=right("0000"&year(date),4) lhora=right("00"&hour(time),2) lmin=right("00"&minute(time),2) ltime=lhora&lmin if ltime<"0659" then cmesx=right("00"&month(date-1),2) cannox=right("0000"&year(date-1),4) lfecinicio= CStr(cannox & cmesx & right("00"&day(date-1),2)) ldaterep= Cstr(cmesx & "/" & right("00"&day(date-1),2) & "/" & cannox) lfecfinal= CStr(cannox & cmesx & right("00"&day(date-1),2)) lfecfinal2= CStr(cannox & cmesx & right("00"&day(date),2)) lfecrepo=(date-1) else lfecinicio= CStr(canno & cmes & right("00"&day(date),2)) lfecfinal= CStr(canno & cmes & right("00"&day(date),2)) ldaterep= Cstr(cmes & "/" & right("00"&day(date),2) & "/" & canno) lfecfinal2= CStr(canno & cmes & right("00"&day(date),2)) lfecrepo=(date) end if 'lfecinicial=CStr(right("00"&year(date),4)+right("00"&month(date),2) + "01") 'lfecinicio="20161031" 'lfecfinal="20161031" else lmonth = cmes 'lmonth =4 If lmonth = 1 Or lmonth = 3 Or lmonth = 5 Or lmonth = 7 Or lmonth = 8 Or lmonth = 10 Or lmonth = 0 Then ldiasmes = 31 End If If lmonth = 2 Then ldiasmes = 29 End If If lmonth = 4 Or lmonth = 6 Or lmonth = 9 Or lmonth = 11 Then ldiasmes = 30 End If cmes2=right("00"&cmes,2) canno=right("0000"&year(date),4) lfecinicio= CStr(canno & cmes2 & "01") lfecfinal= CStr(canno & cmes2 & ldiasmes) lfecfinal2= CStr(canno & cmes2 & ldiasmes) lfecinicial=CStr(right("00"&year(date),4)+right("00"&month(date),2) + "01") end if 'lfecinicio 'lfecfinal 'Set rsvende = Server.CreateObject("ADODB.RecordSet") xtipo="VENDEDOR" 'rsvende.CursorType = adOpenDynamic 'set rsvende=dbsql.execute("SELECT major_cd, minor_cd, code_nm FROM sta010t WHERE (((major_cd)='9001')) ORDER BY minor_cd") %> Report Transfer2022 View Graphic (intranet) <% header response.write(now) response.write(" min "&minactual) if minactual>49 and minactual<55 then ' ********** minuto 50 if busca="" or busca=null then origen=doc end if d="/" ctipomov1="FACTURA" ctipomov2="REMISION" sla="/" cero1="00" cero2="0000" 'lfecinicio= "20180606" 'lfecfinal= "20180607" 'lfecinicial="20180606" response.write("FROM: "&lfecinicio&" ") 'response.write(lfecinicio&" ") response.write("TO: "&lfecfinal&"
") ReDim TransDias(7,150) ReDim Trucking(7,5) Dim Rstrans Dim sqltrans set Rstrans=dbsql.execute("select b.local_cd, (select code_nm from sta010t(nolock) where major_cd = '9016' and minor_cd = b.local_cd) local_nm, right(a.real_trans ,6) trans_date,b.cust_cd, (select cust_nm from stb010t(nolock) where cust_cd = b.cust_cd) cust_nm, b.item, b.ord_no, a.pallet_cnt, b.qty prod_qty, b.price, c.mae_m2, round(b.qty * b.price,3) prod_amt, round(c.mae_m2 * b.qty,0) prod_m2, c.box_size1, (select code_nm from sta010t(nolock) where major_cd = '2004' and minor_cd = a.trans_class) work_gubun, case isnull(b.loc_no,'') when '' then '' else (select code_nm from sta010t(nolock) where major_cd = '9160' and minor_cd = b.loc_no) end loc_no, a.trans_time, right(a.prt_date,6) prt_day,d.item_class, 1 cnt, d.proc_cd1, d.good_type, b.rwk_flag from bar_code a(nolock), inout_table b(nolock), boa010t c(nolock), stb040t d(nolock) where a.bar_code = b.bar_code and b.class = '1' and a.chk_bit = '1' and a.crp_id = '10' and b.local_cd like '%' and a.goods_class = c.goods_class and a.ord_date = c.ord_date and a.ord_seq = c.ord_seq and c.cust_cd = d.cust_cd and c.good_cd = d.good_cd and a.real_trans between '" & lfecinicio & "' and '" & lfecfinal & "' and b.cust_cd like '%' and b.item like '%' and a.trans_class like '%' and b.loc_no like '%' and d.item_class like '%' and b.local_cd= (case when a.loc_no='TR' then '1' else '3' end) order by a.real_trans, a.trans_date, a.trans_time, b.cust_cd, b.item, b.ord_no,b.local_cd, a.trans_class, case when a.trans_date <> a.real_trans then '1' else '0' end , a.pallet_cnt") 'and b.prod_flag = '1' If Rstrans.EOF And Rstrans.BOF Then 'response.write("No existen datos") 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) Else lsamsungqty=0 lsamq1=0 lsamq2=0 lsammt1=0 lsammt2=0 lsama1=0 lsama2=0 lsamsungqty1s=0 lsamsungqty2s=0 lsamsungqty3s=0 lsamsungqty4s=0 lsamsungm2=0 lsamsungm21s=0 lsamsungm22s=0 lsamsungm23s=0 lsamsungm24s=0 lsamsungamt=0 lotherqty=0 lotherm2=0 lotheramt=0 lotherqtysh=0 lotherm2sh=0 lotheramtsh=0 lTotalQty = 0 lTotalM2 = 0 lTotalAmt =0 lOBxQty=0 lOBxM2=0 lOBxAmt=0 lqty12=0 lqty2s=0 lqty3s=0 lm21s=0 lm22s=0 lm23s=0 lsamvb=0 lOTsamsungqty=0 lOBxqty1s=0 lOBxqty2s=0 lOBxqty3s=0 lOBxM2B11s=0 lOBxM2B12s=0 lOBxM2B13s=0 lOBxAMTB11s=0 lOBxAMTB12s=0 lOBxAMTB13s=0 lOBxqtybd3s1=0 lOBxqtybd3s2=0 lOBxqtybd3s3=0 lOBxM2bd3s1=0 lOBxM2bd3s2=0 lOBxM2bd3s3=0 lOBxAMTbd3s1=0 lOBxAMTbd3s2=0 lOBxAMTbd3s3=0 lbd1sh1vb1qty=0 lbd1sh1vb2qty=0 lbd1sh2vb1qty=0 lbd1sh2vb2qty=0 lbd1sh3vb1qty=0 lbd1sh3vb2qty=0 lbd1sh1vb1m2=0 lbd1sh1vb2m2=0 lbd1sh2vb1m2=0 lbd1sh2vb2m2=0 lbd1sh3vb1m2=0 lbd1sh3vb2m2=0 lbd1sh1vb1amt=0 lbd1sh1vb2amt=0 lbd1sh2vb1amt=0 lbd1sh2vb2amt=0 lbd1sh3vb1amt=0 lbd1sh3vb2amt=0 lbd1sh1vb3qty=0 lbd1sh2vb3qty=0 lbd1sh3vb3qty=0 lbd1sh1vb3m2=0 lbd1sh2vb3m2=0 lbd1sh3vb3m2=0 lbd1sh1vb3amt=0 lbd1sh2vb3amt=0 lbd1sh3vb3amt=0 lbd1sh1rwk1qty=0 lbd1sh1rwk2qty=0 lbd1sh2rwk1qty=0 lbd1sh2rwk2qty=0 lbd1sh3rwk1qty=0 lbd1sh3rwk2qty=0 lbd1sh1rwk1m2=0 lbd1sh1rwk2m2=0 lbd1sh2rwk1m2=0 lbd1sh2rwk2m2=0 lbd1sh3rwk1m2=0 lbd1sh3rwk2m2=0 lbd1sh1rwk1amt=0 lbd1sh1rwk2amt=0 lbd1sh2rwk1amt=0 lbd1sh2rwk2amt=0 lbd1sh3rwk1amt=0 lbd1sh3rwk2amt=0 Rstrans.MoveFirst ltransdate1=Rstrans("trans_date") ltranstime1=Rstrans("trans_time") lcte=0 'response.write("hora: "&Rstrans("trans_time")) Do While Not Rstrans.EOF ltranstime=Rstrans("trans_time") lhrtran=int(mid(Rstrans("trans_time"),1,2)) lmintran=int(mid(Rstrans("trans_time"),3,2)) localm2=cdbl(Rstrans("prod_m2")) lTotalQty = lTotalQty+ cdbl(Rstrans("prod_qty")) lTotalM2 = lTotalM2 + cdbl(localm2) lTotalAmt = lTotalAmt+ cdbl(Rstrans("prod_amt")) litemclass="00" litemclass=Rstrans("item_class") 'response.write("Fecha: "&Rstrans("trans_date")) 'response.write("hora: "&Rstrans("trans_time")) if trim(Rstrans("trans_time"))>"064959" and trim(Rstrans("trans_time"))<"152000" then 'if Rstrans("work_gubun")="1S" then lqty1s=lqty1s+ cdbl(Rstrans("prod_qty")) lm21s= lm21s+ cdbl(localm2) '''''''''''''''' Vboard if Rstrans("proc_cd1")="301" then lbd1sh1vb1qty= lbd1sh1vb1qty + cdbl(Rstrans("prod_qty")) lbd1sh1vb1m2 = lbd1sh1vb1m2 + int(((cdbl(Rstrans("box_size1"))/1000)*cdbl(Rstrans("prod_qty")))) lbd1sh1vb1amt = lbd1sh1vb1amt + cdbl(Rstrans("prod_amt")) end if if Rstrans("proc_cd1")="302" then lbd1sh1vb2qty= lbd1sh1vb2qty + cdbl(Rstrans("prod_qty")) lbd1sh1vb2m2 = lbd1sh1vb2m2 + int(((cdbl(Rstrans("box_size1"))/1000)*cdbl(Rstrans("prod_qty")))) lbd1sh1vb2amt = lbd1sh1vb2amt + cdbl(Rstrans("prod_amt")) end if if Rstrans("proc_cd1")="306" then lbd1sh1vb3qty= lbd1sh1vb3qty + cdbl(Rstrans("prod_qty")) lbd1sh1vb3m2 = lbd1sh1vb3m2 + int(((cdbl(Rstrans("box_size1"))/1000)*cdbl(Rstrans("prod_qty")))) lbd1sh1vb3amt = lbd1sh1vb3amt + cdbl(Rstrans("prod_amt")) end if ''''''''''''''' fin Vboard '''''''''''''''' Rwk inicio if Rstrans("rwk_flag")="1" then lbd1sh1rwk1qty= lbd1sh1rwk1qty + cdbl(Rstrans("prod_qty")) lbd1sh1rwk1m2 = lbd1sh1rwk1m2 + cdbl(localm2) lbd1sh1rwk1amt = lbd1sh1rwk1amt + cdbl(Rstrans("prod_amt")) end if ''''''''''''''' fin Rwk if Rstrans("local_nm")="WH1" then lqty1sbd1=lqty1sbd1+ cdbl(Rstrans("prod_qty")) lm21sbd1= lm21sbd1+ cdbl(localm2) lamtb1s1= lamtb1s1+ cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh11= lotherqtysh11 + cdbl(Rstrans("prod_qty")) lotherm2sh11= lotherm2sh11 + cdbl(localm2) lotheramtsh11= lotheramtsh11 + cdbl(Rstrans("prod_amt")) end if else lqty1sbd3=lqty1sbd3+ cdbl(Rstrans("prod_qty")) lm21sbd3= lm21sbd3+ cdbl(localm2) lamtb3s1= lamtb3s1+ cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh21= lotherqtysh21 + cdbl(Rstrans("prod_qty")) lotherm2sh21= lotherm2sh21 + cdbl(localm2) lotheramtsh21= lotheramtsh21 + cdbl(Rstrans("prod_amt")) end if end if end if if trim(Rstrans("trans_time"))>"151959" and trim(Rstrans("trans_time"))<"232000" then 'if (ltranstime>"151959" and ltranstime<"232000") then 'if Rstrans("work_gubun")="2S" then lqty2s=lqty2s+ cdbl(Rstrans("prod_qty")) lm22s= lm22s+ cdbl(localm2) '''''''''''''''' Vboard if Rstrans("proc_cd1")="301" then lbd1sh2vb1qty= lbd1sh2vb1qty + cdbl(Rstrans("prod_qty")) lbd1sh2vb1m2 = lbd1sh2vb1m2 + int(((cdbl(Rstrans("box_size1"))/1000)*cdbl(Rstrans("prod_qty")))) lbd1sh2vb1amt = lbd1sh2vb1amt + cdbl(Rstrans("prod_amt")) end if if Rstrans("proc_cd1")="302" then lbd1sh2vb2qty= lbd1sh2vb2qty + cdbl(Rstrans("prod_qty")) lbd1sh2vb2m2 = lbd1sh2vb2m2 + int(((cdbl(Rstrans("box_size1"))/1000)*cdbl(Rstrans("prod_qty")))) lbd1sh2vb2amt = lbd1sh2vb2amt + cdbl(Rstrans("prod_amt")) end if if Rstrans("proc_cd1")="306" then lbd1sh2vb3qty= lbd1sh2vb3qty + cdbl(Rstrans("prod_qty")) lbd1sh2vb3m2 = lbd1sh2vb3m2 + int(((cdbl(Rstrans("box_size1"))/1000)*cdbl(Rstrans("prod_qty")))) lbd1sh2vb3amt = lbd1sh2vb3amt + cdbl(Rstrans("prod_amt")) end if ''''''''''''''' fin Vboard '''''''''''''''' Rwk inicio if Rstrans("rwk_flag")="1" then lbd1sh2rwk1qty= lbd1sh2rwk1qty + cdbl(Rstrans("prod_qty")) lbd1sh2rwk1m2 = lbd1sh2rwk1m2 + cdbl(localm2) lbd1sh2rwk1amt = lbd1sh2rwk1amt + cdbl(Rstrans("prod_amt")) end if ''''''''''''''' fin Rwk if Rstrans("local_nm")="WH1" then lqty2sbd1=lqty2sbd1+ cdbl(Rstrans("prod_qty")) lm22sbd1= lm22sbd1+ cdbl(localm2) lamtb1s2= lamtb1s2+ cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh12= lotherqtysh12 + cdbl(Rstrans("prod_qty")) lotherm2sh12= lotherm2sh12 + cdbl(localm2) lotheramtsh12= lotheramtsh12 + cdbl(Rstrans("prod_amt")) end if else lqty2sbd3=lqty2sbd3+ cdbl(Rstrans("prod_qty")) lm22sbd3= lm22sbd3+ cdbl(localm2) lamtb3s2= lamtb3s2+ cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh22= lotherqtysh22 + cdbl(Rstrans("prod_qty")) lotherm2sh22= lotherm2sh22 + cdbl(localm2) lotheramtsh22= lotheramtsh22 + cdbl(Rstrans("prod_amt")) end if end if end if if trim(Rstrans("trans_time"))>"231959" or trim(Rstrans("trans_time"))<"065000" then 'if (ltranstime>"231959" or ltranstime<"065000") then 'if Rstrans("work_gubun")="3S" then lqty4s=lqty4s+ cdbl(Rstrans("prod_qty")) lm24s= lm24s+ cdbl(localm2) lshift=4 ''''''''''''''''' Vboard if Rstrans("proc_cd1")="301" then lbd1sh3vb1qty= lbd1sh3vb1qty + cdbl(Rstrans("prod_qty")) lbd1sh3vb1m2 = lbd1sh3vb1m2 + int(((cdbl(Rstrans("box_size1"))/1000)*cdbl(Rstrans("prod_qty")))) lbd1sh3vb1amt = lbd1sh3vb1amt + cdbl(Rstrans("prod_amt")) end if if Rstrans("proc_cd1")="302" then lbd1sh3vb2qty= lbd1sh3vb2qty + cdbl(Rstrans("prod_qty")) lbd1sh3vb2m2 = lbd1sh3vb2m2 + int(((cdbl(Rstrans("box_size1"))/1000)*cdbl(Rstrans("prod_qty")))) lbd1sh3vb2amt = lbd1sh3vb2amt + cdbl(Rstrans("prod_amt")) end if if Rstrans("proc_cd1")="306" then lbd1sh3vb3qty= lbd1sh3vb3qty + cdbl(Rstrans("prod_qty")) lbd1sh3vb3m2 = lbd1sh3vb3m2 + int(((cdbl(Rstrans("box_size1"))/1000)*cdbl(Rstrans("prod_qty")))) lbd1sh3vb3amt = lbd1sh3vb3amt + cdbl(Rstrans("prod_amt")) end if ''''''''''''''' fin Vboard '''''''''''''''' Rwk inicio if Rstrans("rwk_flag")="1" then lbd1sh3rwk1qty= lbd1sh3rwk1qty + cdbl(Rstrans("prod_qty")) lbd1sh3rwk1m2 = lbd1sh3rwk1m2 + cdbl(localm2) lbd1sh3rwk1amt = lbd1sh3rwk1amt + cdbl(Rstrans("prod_amt")) end if ''''''''''''''' fin Rwk if Rstrans("local_nm")="WH1" then lqty3sbd1=lqty3sbd1+ cdbl(Rstrans("prod_qty")) lm23sbd1= lm23sbd1+ cdbl(localm2) lamtb1s3= lamtb1s3+ cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh13= lotherqtysh13 + cdbl(Rstrans("prod_qty")) lotherm2sh13= lotherm2sh13 + cdbl(localm2) lotheramtsh13= lotheramtsh13 + cdbl(Rstrans("prod_amt")) end if else lqty3sbd3=lqty3sbd3+ cdbl(Rstrans("prod_qty")) lm23sbd3= lm23sbd3+ cdbl(localm2) lamtb3s3= lamtb3s3+ cdbl(Rstrans("prod_amt")) if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh23= lotherqtysh23 + cdbl(Rstrans("prod_qty")) lotherm2sh23= lotherm2sh23 + cdbl(localm2) lotheramtsh23= lotheramtsh23 + cdbl(Rstrans("prod_amt")) end if end if end if '''''''''''''''' Fin Turno 3 if Rstrans("cust_cd")="20001" then 'CTE lcte=1 lsamsungqty=lsamsungqty+ cdbl(Rstrans("prod_qty")) lsamsungm2= lsamsungm2+ cdbl(localm2) lsamsungamt= lsamsungamt+ cdbl(Rstrans("prod_amt")) if litemclass="03" then 'lsamq1=lsamq1+ cdbl(Rstrans("prod_qty")) 'lsammt1= lsammt1+ cdbl(localm2) 'lsama1= lsama1+ cdbl(Rstrans("prod_amt")) lsamvb=lsamvb+ cdbl(Rstrans("prod_qty")) else ''''''''''''''''''''********* O/B SAMSUNG set Rsinven2=cnn.execute("select * from SamsungItems where good_nm='" & Rstrans("item") & "'") if not Rsinven2.eof then 'RS rsinven2.movefirst ltypeBox=rsinven2("Note_4") ltypeBox2=rsinven2("Note_5") if rsinven2("Note_5")= "INBOX / PAD" then lOTSamsungqty = lOTSamsungqty + cdbl(Rstrans("prod_qty")) litemx=rsinven2("Note_5")&"ot" end if if rsinven2("Note_5")= "NA" and rsinven2("Note_4")<> "FULL LITHO" and rsinven2("Note_4")<> "PRINTING" and rsinven2("Note_4")<> "SPOT" then 'PAD lOTSamsungqty = lOTSamsungqty + cdbl(Rstrans("prod_qty")) litemx=rsinven2("Note_5")&"ot" end if if rsinven2("Note_5")= "FULL LITHO" OR rsinven2("Note_5")= "PRINTING" OR rsinven2("Note_5")= "SPOT" OR rsinven2("Note_4")= "FULL LITHO" OR rsinven2("Note_4")= "PRINTING" OR rsinven2("Note_4")="SPOT" then 'PAD ''' if minactual<50 and hractual<15 then 'lactmin 'minactual if (lhrtran=lhractual and lmintran>49) then else if Rstrans("local_nm")="WH1" then lOBxqty = lOBxqty + cdbl(Rstrans("prod_qty")) if ltranstime>"064959" and ltranstime<"152000" then ' if Rstrans("work_gubun")="1S" then lOBxqty1s = lOBxqty1s + cdbl(Rstrans("prod_qty")) lOBxM2B11s=lOBxM2B11s+ cdbl(localm2) lOBxAMTB11s =lOBxAMTB11s + cdbl(Rstrans("prod_amt")) end if if (ltranstime>"151959" and ltranstime<"232000") then ' if Rstrans("work_gubun")="2S" then lOBxqty2s = lOBxqty2s + cdbl(Rstrans("prod_qty")) lOBxM2B12s=lOBxM2B12s+ cdbl(localm2) lOBxAMTB12s =lOBxAMTB12s + cdbl(Rstrans("prod_amt")) end if if ltranstime>"231959" or ltranstime<"065000" then ' if Rstrans("work_gubun")="3S" then lOBxqty3s = lOBxqty3s + cdbl(Rstrans("prod_qty")) lOBxM2B13s=lOBxM2B13s+ cdbl(localm2) lOBxAMTB13s =lOBxAMTB13s + cdbl(Rstrans("prod_amt")) end if else lOBxqtybd3 = lOBxqtybd3 + cdbl(Rstrans("prod_qty")) if ltranstime>"064959" and ltranstime<"152000" then ' if Rstrans("work_gubun")="1S" then lOBxqtybd3s1 = lOBxqtybd3s1 + cdbl(Rstrans("prod_qty")) lOBxM2BD3s1=lOBxM2BD3s1 + cdbl(localm2) lOBxAMTBD3s1 =lOBxAMTBD3s1 + cdbl(Rstrans("prod_amt")) end if if (ltranstime>"151959" and ltranstime<"232000") then ' if Rstrans("work_gubun")="2S" then lOBxqtybd3s2 = lOBxqtybd3s2 + cdbl(Rstrans("prod_qty")) lOBxM2BD3s2=lOBxM2BD3s2 + cdbl(localm2) lOBxAMTBD3s2 =lOBxAMTBD3s2 + cdbl(Rstrans("prod_amt")) end if if ltranstime>"231959" or ltranstime<"065000" then ' if Rstrans("work_gubun")="3S" then lOBxqtybd3s3 = lOBxqtybd3s3 + cdbl(Rstrans("prod_qty")) lOBxM2BD3s3=lOBxM2BD3s3 + cdbl(localm2) lOBxAMTBD3s3 =lOBxAMTBD3s3 + cdbl(Rstrans("prod_amt")) end if end if lOBxM2 = lOBxM2 + cdbl(localm2) lOBxAmt =lOBxAmt + cdbl(Rstrans("prod_amt")) litemx=rsinven2("Note_5") end if end if 'PAD else lOTSamsungqty = lOTSamsungqty + cdbl(Rstrans("prod_qty")) 'lOTsamsungM2 = lOTsamsungM2 + localm2 'lOTsamsungamt =lOTsamsungamt+ cdbl(Rstrans("prod_amt")) litemx="no" end if 'RS Rsinven2.Close Set Rsinven2 = Nothing '''''''''''''''''''''*********O/B SAMSUNG end if else lotherqty= lotherqty+ cdbl(Rstrans("prod_qty")) lotherm2= lotherm2+ cdbl(localm2) lotheramt= lotheramt+ cdbl(Rstrans("prod_amt")) litemx="No samsung" if Rstrans("proc_cd1")="11A" or Rstrans("proc_cd1")="22A" then lotherqtysh= lotherqtysh + cdbl(Rstrans("prod_qty")) lotherm2sh= lotherm2sh + cdbl(localm2) lotheramtsh= lotheramtsh + cdbl(Rstrans("prod_amt")) end if end if 'CTE Rstrans.MoveNext if not Rstrans.eof then ltransdate2=Rstrans("trans_date") ltranstime2=Rstrans("trans_time") end if if (ltransdate1<>ltransdate2 ) or Rstrans.eof then 'xdia=int(right(ltransdate1,2)) x=3 TransDias(xdia,0)=xdia TransDias(xdia,1)=lsamsungqty TransDias(xdia,2)=lsamsungm2 TransDias(xdia,3)=lsamsungamt TransDias(xdia,4)=lotherqty TransDias(xdia,5)=lotherm2 TransDias(xdia,6)=lotheramt TransDias(xdia,7)=lTotalQty TransDias(xdia,8)=lTotalM2 TransDias(xdia,9)=lTotalAmt TransDias(xdia,10)=lqty1s TransDias(xdia,11)=lqty2s TransDias(xdia,12)=lqty3s+lqty4s TransDias(xdia,13)=lm21s TransDias(xdia,14)=lm22s TransDias(xdia,15)=lm23s+lm24s TransDias(xdia,21)=lsamvb TransDias(xdia,22)=lOTsamsungqty TransDias(xdia,23)=lsama1 TransDias(xdia,24)=lOBxqty TransDias(xdia,25)=lOBxM2 TransDias(xdia,26)=lOBxAmt TransDias(xdia,27)=lOBxqtybd3 TransDias(xdia,28)=lOBxprodbd1 TransDias(xdia,29)=lOBxprodbd3 TransDias(xdia,61)=lOBxM2B11S TransDias(xdia,62)=lOBxM2B12S TransDias(xdia,63)=lOBxM2B13S TransDias(xdia,64)=lOBxAMTB11S TransDias(xdia,65)=lOBxAMTB12S TransDias(xdia,66)=lOBxAMTB13S TransDias(xdia,67)=lOBxM2bd3s1 TransDias(xdia,68)=lOBxM2bd3s2 TransDias(xdia,69)=lOBxM2bd3s3 TransDias(xdia,70)=lOBxAMTbd3s1 TransDias(xdia,71)=lOBxAMTbd3s2 TransDias(xdia,72)=lOBxAMTbd3s3 TransDias(xdia,36)=lOBxqty1s TransDias(xdia,37)=lOBxqty2s TransDias(xdia,38)=lOBxqty3s TransDias(xdia,39)=lOBxqtybd3s1 TransDias(xdia,40)=lOBxqtybd3s2 TransDias(xdia,41)=lOBxqtybd3s3 TransDias(xdia,42)=lqty1sbd1 TransDias(xdia,43)=lqty2sbd1 TransDias(xdia,44)=lqty3sbd1 TransDias(xdia,45)=lm21sbd1 TransDias(xdia,46)=lm22sbd1 TransDias(xdia,47)=lm23sbd1 TransDias(xdia,48)=lqty1sbd3 TransDias(xdia,49)=lqty2sbd3 TransDias(xdia,50)=lqty3sbd3 TransDias(xdia,51)=lm21sbd3 TransDias(xdia,52)=lm22sbd3 TransDias(xdia,53)=lm23sbd3 TransDias(xdia,73)=lamtb1s1 TransDias(xdia,74)=lamtb1s2 TransDias(xdia,75)=lamtb1s3 TransDias(xdia,76)=lamtb3s1 TransDias(xdia,77)=lamtb3s2 TransDias(xdia,78)=lamtb3s3 TransDias(xdia,79)=lotherqtysh TransDias(xdia,80)=lotherm2sh TransDias(xdia,81)=lotheramtsh TransDias(xdia,82)=lotherqtysh11 TransDias(xdia,83)=lotherm2sh11 TransDias(xdia,84)=lotheramtsh11 TransDias(xdia,85)=lotherqtysh12 TransDias(xdia,86)=lotherm2sh12 TransDias(xdia,87)=lotheramtsh12 TransDias(xdia,88)=lotherqtysh13 TransDias(xdia,89)=lotherm2sh13 TransDias(xdia,90)=lotheramtsh13 TransDias(xdia,91)=lotherqtysh21 TransDias(xdia,92)=lotherm2sh21 TransDias(xdia,93)=lotheramtsh21 TransDias(xdia,94)=lotherqtysh22 TransDias(xdia,95)=lotherm2sh22 TransDias(xdia,96)=lotheramtsh22 TransDias(xdia,97)=lotherqtysh23 TransDias(xdia,98)=lotherm2sh23 TransDias(xdia,99)=lotheramtsh23 TransDias(3,100)=lbd1sh1vb1qty TransDias(3,101)=lbd1sh1vb2qty TransDias(3,102)=lbd1sh2vb1qty TransDias(3,103)=lbd1sh2vb2qty TransDias(3,104)=lbd1sh3vb1qty TransDias(3,105)=lbd1sh3vb2qty TransDias(3,106)=lbd1sh1vb1m2 TransDias(3,107)=lbd1sh1vb2m2 TransDias(3,108)=lbd1sh2vb1m2 TransDias(3,109)=lbd1sh2vb2m2 TransDias(3,110)=lbd1sh3vb1m2 TransDias(3,111)=lbd1sh3vb2m2 TransDias(3,112)=lbd1sh1vb1amt TransDias(3,113)=lbd1sh1vb2amt TransDias(3,114)=lbd1sh2vb1amt TransDias(3,115)=lbd1sh2vb2amt TransDias(3,116)=lbd1sh3vb1amt TransDias(3,117)=lbd1sh3vb2amt TransDias(3,118)=lbd1sh1rwk1qty TransDias(3,119)=lbd1sh1rwk2qty TransDias(3,120)=lbd1sh2rwk1qty TransDias(3,121)=lbd1sh2rwk2qty TransDias(3,122)=lbd1sh3rwk1qty TransDias(3,123)=lbd1sh3rwk2qty TransDias(3,124)=lbd1sh1rwk1m2 TransDias(3,125)=lbd1sh1rwk2m2 TransDias(3,126)=lbd1sh2rwk1m2 TransDias(3,127)=lbd1sh2rwk2m2 TransDias(3,128)=lbd1sh3rwk1m2 TransDias(3,129)=lbd1sh3rwk2m2 TransDias(3,130)=lbd1sh1rwk1amt TransDias(3,131)=lbd1sh1rwk2amt TransDias(3,132)=lbd1sh2rwk1amt TransDias(3,133)=lbd1sh2rwk2amt TransDias(3,134)=lbd1sh3rwk1amt TransDias(3,135)=lbd1sh3rwk2amt TransDias(3,136)=lbd1sh1vb3qty TransDias(3,137)=lbd1sh2vb3qty TransDias(3,138)=lbd1sh3vb3qty TransDias(3,139)=lbd1sh1vb3m2 TransDias(3,140)=lbd1sh2vb3m2 TransDias(3,141)=lbd1sh3vb3m2 TransDias(3,142)=lbd1sh1vb3amt TransDias(3,143)=lbd1sh2vb3amt TransDias(3,144)=lbd1sh3vb3amt lsamsungqty=0 lsamsungm2=0 lsamsungamt=0 lqty1s=0 lqty2s=0 lqty3s=0 lqty4s=0 lm2=0 lm21s=0 lm22s=0 lm23s=0 lm24s=0 lgamt=0 lotherqty=0 lotherm2=0 lotheramt=0 lTotalQty = 0 lTotalM2 = 0 lTotalAmt =0 ltransdate1=ltransdate2 lsamvb=0 lOTsamsungqty=0 lsamq2=0 lsammt1=0 lsammt2=0 lsama1=0 lsama2=0 lOBxqty=0 lOBxM2=0 lOBxAmt=0 lOBxqtybd3=0 lOBxprodbd1=0 lOBxprodbd3=0 lOBxqty1s=0 lOBxqty2s=0 lOBxqty3s=0 lOBxM2B11s=0 lOBxM2B12s=0 lOBxM2B13s=0 lOBxAMTB11s=0 lOBxAMTB12s=0 lOBxAMTB13s=0 lOBxqtybd3s1=0 lOBxqtybd3s2=0 lOBxqtybd3s3=0 lOBxM2bd3s1=0 lOBxM2bd3s2=0 lOBxM2bd3s3=0 lOBxAMTbd3s1=0 lOBxAMTbd3s2=0 lOBxAMTbd3s3=0 lqty1sbd1=0 lqty2sbd1=0 lqty3sbd1=0 lm21sbd1=0 lm22sbd1=0 lm23sbd1=0 lqty1sbd3=0 lqty2sbd3=0 lqty3sbd3=0 lm21sbd3=0 lm22sbd3=0 lm23sbd3=0 lamtb1s1=0 lamtb1s2=0 lamtb1s3=0 lamtb3s1=0 lamtb3s2=0 lamtb3s3=0 lotherqtysh=0 lotherm2sh=0 lotheramtsh=0 lotherqtysh11=0 lotherm2sh11=0 lotheramtsh11=0 lotherqtysh12=0 lotherm2sh12=0 lotheramtsh12=0 lotherqtysh13=0 lotherm2sh13=0 lotheramtsh13=0 lotherqtysh21=0 lotherm2sh21=0 lotheramtsh21=0 lotherqtysh22=0 lotherm2sh22=0 lotheramtsh22=0 lotherqtysh23=0 lotherm2sh23=0 lotheramtsh23=0 lbd1sh1vb1qty=0 lbd1sh1vb2qty=0 lbd1sh2vb1qty=0 lbd1sh2vb2qty=0 lbd1sh3vb1qty=0 lbd1sh3vb2qty=0 lbd1sh1vb1m2=0 lbd1sh1vb2m2=0 lbd1sh2vb1m2=0 lbd1sh2vb2m2=0 lbd1sh3vb1m2=0 lbd1sh3vb2m2=0 lbd1sh1vb1amt=0 lbd1sh1vb2amt=0 lbd1sh2vb1amt=0 lbd1sh2vb2amt=0 lbd1sh3vb1amt=0 lbd1sh3vb2amt=0 lbd1sh1vb3qty=0 lbd1sh2vb3qty=0 lbd1sh3vb3qty=0 lbd1sh1vb3m2=0 lbd1sh2vb3m2=0 lbd1sh3vb3m2=0 lbd1sh1vb3amt=0 lbd1sh2vb3amt=0 lbd1sh3vb3amt=0 lbd1sh1rwk1qty=0 lbd1sh1rwk2qty=0 lbd1sh2rwk1qty=0 lbd1sh2rwk2qty=0 lbd1sh3rwk1qty=0 lbd1sh3rwk2qty=0 lbd1sh1rwk1m2=0 lbd1sh1rwk2m2=0 lbd1sh2rwk1m2=0 lbd1sh2rwk2m2=0 lbd1sh3rwk1m2=0 lbd1sh3rwk2m2=0 lbd1sh1rwk1amt=0 lbd1sh1rwk2amt=0 lbd1sh2rwk1amt=0 lbd1sh2rwk2amt=0 lbd1sh3rwk1amt=0 lbd1sh3rwk2amt=0 else end if 'end if Loop End If Rstrans.Close Set Rstrans = Nothing lxx=0 'if lxx=1 then lfecini2=lfecinicio 'lfecini2= Right("00" & year(Date()-1), 4)&Right("00" & month(Date()-1), 2)&Right("00" & Day(Date()-1), 2) lfecfin2=lfecinicio 'lfecfin2= Right("00" & year(Date()-1), 4)&Right("00" & month(Date()-1), 2)&Right("00" & Day(Date()-1), 2) 'response.write("fecha fin "&lfecfin2) do while lfecini2 <= lfecfinal 'response.write(" fecha ini "&lfecini2) 'response.write(" fecha fin "&lfecfin2) set Rsprod=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, a.work_gubun, case a.work_gubun when '0' then '1S' when '1' then '2S' when '2' then '3S' end as wrok_gubun_nm,b.cust_cd, 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 b.cust_cd='20001' 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) between '" & lfecini2 & "' and '" & lfecfin2 & "' order by a.prod_date, b.good_nm, 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 Rsprod.EOF And Rsprod.BOF Then 'response.write("No existen datos. Prod") Else lOBxprodbd1=0 lOBxprodbd3=0 lOBxprodbd1lam=0 lOBxprodbd3lam=0 Rsprod.MoveFirst TransDias(0,28)=lOBxprodbd1 TransDias(0,29)=lOBxprodbd3 TransDias(0,30)=lOBxprodbd1lam TransDias(0,31)=lOBxprodbd3lam lproddate1=Rsprod("prod_date") lcte=0 Do While Not Rsprod.EOF if Rsprod("cust_cd")="20001" then 'CTE lcte=1 ''''''''''''''''''''********* O/B SAMSUNG set Rsinven2=cnn.execute("select * from SamsungItems where good_nm='" & Rsprod("good_nm") & "'") if not Rsinven2.eof then 'RS rsinven2.movefirst if rsinven2("Note_5")= "INBOX / PAD" or rsinven2("Note_5")= "NA" then 'PAD else if rsinven2("Note_5")= "FULL LITHO" or rsinven2("Note_5")= "PRINTING" or rsinven2("Note_5")= "SPOT" then if Rsprod("proc_cd")=551 or Rsprod("proc_cd")=501 then if Rsprod("proc_cd")=551 then lOBxprodBD3 = lOBxprodBD3 + cdbl(Rsprod("real_prod_qty")) else lOBxprodBD3lam = lOBxprodBD3lam + cdbl(Rsprod("real_prod_qty")) end if lOBxprodBD3lam = lOBxprodBD3lam + cdbl(Rsprod("real_prod_qty")) else if (Rsprod("proc_cd")>230 and Rsprod("proc_cd")<241) or Rsprod("proc_cd")=246 or Rsprod("proc_cd")=247 then lOBxprodbd1 = lOBxprodbd1 + cdbl(Rsprod("real_prod_qty")) else lOBxprodbd1lam = lOBxprodbd1lam + cdbl(Rsprod("real_prod_qty")) end if end if ELSE END IF end if 'PAD else 'lOTSamsungqty = lOTSamsungqty + cdbl(Rsprod("real_prod_qty")) ' litemx="no" end if 'RS Rsinven2.Close Set Rsinven2 = Nothing '''''''''''''''''''''*********O/B SAMSUNG else 'lotherqty= lotherqty+ cdbl(Rsprod("real_prod_qty")) 'lotherm2= lotherm2+ cdbl(localm2) 'litemx="No samsung" end if 'CTE Rsprod.MoveNext if not Rsprod.eof then lproddate2=Rsprod("prod_date") end if if (lproddate1<>lproddate2 ) or Rsprod.eof then 'xdia=int(right(lproddate1,2)) xdia=3 TransDias(xdia,28)=lOBxprodbd1 TransDias(xdia,29)=lOBxprodbd3 TransDias(xdia,30)=lOBxprodbd1lam TransDias(xdia,31)=lOBxprodbd3lam lOBxprodbd1=0 lOBxprodbd3=0 lOBxprodbd1lam=0 lOBxprodbd3lam=0 else end if Loop End If lfecini3=int(lfecini2)+1 lfecini2=cstr(lfecini3) lfecfin2=cstr(lfecini3) loop Rsprod.Close Set Rsprod = Nothing dbsql.Close Set dbsql = Nothing dbsql2.Close Set dbsql2 = Nothing %>
TRANSFER (by day) <%=formatnumber(TransDias(i,29),0)%> <% xnumerodias=0 for i=lbound(TransDias) to ubound(TransDias) %> <% if TransDias(i,0)>0 then xnumerodias=xnumerodias+1 end if next xnumerodias=1 %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamq1=xtotalsamq1+TransDias(i,21) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xstotalsamq1=xstotalsamq1+TransDias(i,22) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xOBbd1f=xOBbd1f+TransDias(i,28) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xOBbd1l=xOBbd1l+TransDias(i,30) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOB1s=xtotalsamqtyOB1s+TransDias(i,36) xtotalsamM2OB1s=xtotalsamM2OB1s+TransDias(i,61) xtotalsamAMTOB1s=xtotalsamAMTOB1s+TransDias(i,64) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOB2s=xtotalsamqtyOB2s+TransDias(i,37) xtotalsamM2OB2s=xtotalsamM2OB2s+TransDias(i,62) xtotalsamAMTOB2s=xtotalsamAMTOB2s+TransDias(i,65) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOB3s=xtotalsamqtyOB3s+TransDias(i,38) xtotalsamM2OB3s=xtotalsamM2OB3s+TransDias(i,63) xtotalsamAMTOB3s=xtotalsamAMTOB3s+TransDias(i,66) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOB=xtotalsamqtyOB+TransDias(i,24) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xOBbd3f=xOBbd3f+TransDias(i,29) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xOBbd3l=xOBbd3l+TransDias(i,31) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd31s=xtotalsamqtyOBbd31s+TransDias(i,39) xtotalsamM2OBbd31s=xtotalsamM2OBbd31s+TransDias(i,67) xtotalsamAMTOBbd31s=xtotalsamAMTOBbd31s+TransDias(i,70) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd32s=xtotalsamqtyOBbd32s+TransDias(i,40) xtotalsamM2OBbd32s=xtotalsamM2OBbd32s+TransDias(i,68) xtotalsamAMTOBbd32s=xtotalsamAMTOBbd32s+TransDias(i,71) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd33s=xtotalsamqtyOBbd33s+TransDias(i,41) xtotalsamM2OBbd33s=xtotalsamM2OBbd33s+TransDias(i,69) xtotalsamAMTOBbd33s=xtotalsamAMTOBbd33s+TransDias(i,72) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd3=xtotalsamqtyOBbd3+TransDias(i,27) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotf=xtotf+TransDias(i,28)+TransDias(i,29) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotl=xtotl+TransDias(i,30)+TransDias(i,31) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd31=xtotalsamqtyOBbd31+TransDias(i,36)+TransDias(i,39) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd32=xtotalsamqtyOBbd32+TransDias(i,37)+TransDias(i,40) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtotalsamqtyOBbd33=xtotalsamqtyOBbd33+TransDias(i,38)+TransDias(i,41) next %> <% for i=lbound(TransDias) to ubound(TransDias) if TransDias(i,1)>0 then%> <%else%> <% end if xtott=xtott+TransDias(i,24)+TransDias(i,27) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamm2OB=xtotalsamm2OB+TransDias(i,25) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamamtOB=xtotalsamamtOB+TransDias(i,26) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamqty=xtotalsamqty+TransDias(i,1) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamm2=xtotalsamm2+TransDias(i,2) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamamt=xtotalsamamt+TransDias(i,3) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalothqty=xtotalothqty+TransDias(i,4) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalothm2=xtotalothm2+TransDias(i,5) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalothamt=xtotalothamt+TransDias(i,6) next %> <% ''''' qty bd1 %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty1sbd1=xqty1sbd1+TransDias(i,42) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty2sbd1=xqty2sbd1+TransDias(i,43) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty3sbd1=xqty3sbd1+TransDias(i,44) next %> <% ''''' qty bd1 end %> <% ''''' qty bd3 %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty1sbd3=xqty1sbd3+TransDias(i,48) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty2sbd3=xqty2sbd3+TransDias(i,49) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xqty3sbd3=xqty3sbd3+TransDias(i,50) next %> <% ''''' qty bd3 end %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamqty1s=xtotalsamqty1s+TransDias(i,10) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamqty2s=xtotalsamqty2s+TransDias(i,11) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamqty3s=xtotalsamqty3s+TransDias(i,12) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalqty=xtotalqty+TransDias(i,7) next %> <% ''''' qty bd1 %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xm21sbd1=xm21sbd1+TransDias(i,45) xamt1sbd1=xamt1sbd1+TransDias(i,73) xamt2sbd1=xamt2sbd1+TransDias(i,74) xamt3sbd1=xamt3sbd1+TransDias(i,75) xamt1sbd3=xamt1sbd3+TransDias(i,76) xamt2sbd3=xamt2sbd3+TransDias(i,77) xamt3sbd3=xamt3sbd3+TransDias(i,78) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM22sbd1=xM22sbd1+TransDias(i,46) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM23sbd1=xM23sbd1+TransDias(i,47) next %> <% ''''' M2 bd1 end %> <% ''''' M2 bd3 %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM21sbd3=xM21sbd3+TransDias(i,51) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM22sbd3=xM22sbd3+TransDias(i,52) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xM23sbd3=xM23sbd3+TransDias(i,53) next %> <% ''''' M2 bd3 end %> <% m2=0 if m2=1 then %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamm21s=xtotalsamm21s+TransDias(i,13) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamm22s=xtotalsamm22s+TransDias(i,14) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalsamm23s=xtotalsamm23s+TransDias(i,15) next %> <% end if %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalm2=xtotalm2+TransDias(i,8) next %> <% for i=lbound(TransDias) to ubound(TransDias) %> <% xtotalamt=xtotalamt+TransDias(i,9) next %>
<%=MonthName(Month(Date), False) %> Generated: <%=time%>
<%=TransDias(i,0)%>
 M2 AMT
TOTAL
AVG
Samsung VB  
<%=formatnumber(TransDias(i,21),0)%>
<%=formatnumber(xtotalsamq1,0)%>
<%=formatnumber(xtotalsamq1/xnumerodias,0)%>
Samsung Others  
<%=formatnumber(TransDias(i,22),0)%>
 . .
<%=formatnumber(xstotalsamq1,0)%>
<%=formatnumber(xstotalsamq1/xnumerodias,0)%>
Samsung O/B QTY BD 1 Prod F
<%=formatnumber(TransDias(i,28),0)%>
 . .
<%=formatnumber(TransDias(i,28),0)%>
<%=formatnumber(xOBbd1f,0)%>
<%=formatnumber(xOBbd1f/xnumerodias,0)%>
BD 1 Prod L
<%=formatnumber(TransDias(i,30),0)%>
 . .
<%=formatnumber(TransDias(i,30),0)%>
<%=formatnumber(xOBbd1l,0)%>
<%=formatnumber(xOBbd1l/xnumerodias,0)%>
T 1S
<%=formatnumber(TransDias(i,36),0)%>
<%=formatnumber(TransDias(i,61),0)%>
<%=formatnumber(TransDias(i,64),0)%>
<%=formatnumber(TransDias(i,36),0)%>
<%=formatnumber(TransDias(i,61),0)%>
<%=formatnumber(TransDias(i,64),0)%>
<%=formatnumber(xtotalsamqtyOB1s,0)%>
<%=formatnumber(xtotalsamqtyOB1s/xnumerodias,0)%>
T 2S
<%=formatnumber(TransDias(i,37),0)%>
<%=formatnumber(TransDias(i,62),0)%>
<%=formatnumber(TransDias(i,65),0)%>
<%=formatnumber(TransDias(i,37),0)%>
<%=formatnumber(TransDias(i,62),0)%>
<%=formatnumber(TransDias(i,65),0)%>
<%=formatnumber(xtotalsamqtyOB2s,0)%>
<%=formatnumber(xtotalsamqtyOB2s/xnumerodias,0)%>
T 3S
<%=formatnumber(TransDias(i,38),0)%>
<%=formatnumber(TransDias(i,63),0)%>
<%=formatnumber(TransDias(i,66),0)%>
<%=formatnumber(TransDias(i,38),0)%>
<%=formatnumber(TransDias(i,63),0)%>
<%=formatnumber(TransDias(i,66),0)%>
<%=formatnumber(xtotalsamqtyOB3s,0)%>
<%=formatnumber(xtotalsamqtyOB3s/xnumerodias,0)%>
BD 1 Trans
<%=formatnumber(TransDias(i,24),0)%>
<%=formatnumber(TransDias(i,61)+TransDias(i,62)+TransDias(i,63),0)%>
<%=formatnumber(TransDias(i,64)+TransDias(i,65)+TransDias(i,66),0)%>
<%=formatnumber(TransDias(i,24),0)%>
<%=formatnumber(xtotalsamqtyOB,0)%>
<%=formatnumber(xtotalsamqtyOB/xnumerodias,0)%>
BD 3 Prod F
<%=formatnumber(TransDias(i,29),0)%>
<%=formatnumber(xOBbd3f,0)%>
<%=formatnumber(xOBbd3f/xnumerodias,0)%>
BD 3 Prod L
<%=formatnumber(TransDias(i,31),0)%>
<%=formatnumber(TransDias(i,31),0)%>
<%=formatnumber(xOBbd3l,0)%>
<%=formatnumber(xOBbd3l/xnumerodias,0)%>
1S
<%=formatnumber(TransDias(i,39),0)%>
<%=formatnumber(TransDias(i,67),0)%>
<%=formatnumber(TransDias(i,70),0)%>
<%=formatnumber(TransDias(i,39),0)%>
<%=formatnumber(xtotalsamqtyOBbd31s,0)%>
<%=formatnumber(xtotalsamqtyOBbd31s/xnumerodias,0)%>
2S
<%=formatnumber(TransDias(i,40),0)%>
<%=formatnumber(TransDias(i,68),0)%>
<%=formatnumber(TransDias(i,71),0)%>
<%=formatnumber(TransDias(i,40),0)%>
<%=formatnumber(xtotalsamqtyOBbd32s,0)%>
<%=formatnumber(xtotalsamqtyOBbd32s/xnumerodias,0)%>
3S
<%=formatnumber(TransDias(i,41),0)%>
<%=formatnumber(TransDias(i,69),0)%>
<%=formatnumber(TransDias(i,72),0)%>
<%=formatnumber(TransDias(i,41),0)%>
<%=formatnumber(xtotalsamqtyOBbd33s,0)%>
<%=formatnumber(xtotalsamqtyOBbd33s/xnumerodias,0)%>
BD 3 Trans
<%=formatnumber(TransDias(i,27),0)%>
<%=formatnumber(TransDias(i,67)+TransDias(i,68)+TransDias(i,69),0)%>
<%=formatnumber(TransDias(i,70)+TransDias(i,71)+TransDias(i,72),0)%>
<%=formatnumber(TransDias(i,27),0)%>
<%=formatnumber(xtotalsamqtyOBbd3,0)%>
<%=formatnumber(xtotalsamqtyOBbd3/xnumerodias,0)%>
Total Prod
<%=formatnumber(TransDias(i,28)+TransDias(i,29),0)%>
<%=formatnumber(TransDias(i,28)+TransDias(i,29),0)%>
<%=formatnumber(xtotf,0)%>
<%=formatnumber(xtotf/xnumerodias,0)%>
<%=formatnumber(TransDias(i,30)+TransDias(i,31),0)%>
<%=formatnumber(TransDias(i,30)+TransDias(i,31),0)%>
<%=formatnumber(xtotl,0)%>
<%=formatnumber(xtotl/xnumerodias,0)%>
1s:
<%=formatnumber(TransDias(i,36)+TransDias(i,39),0)%>
<%=formatnumber(TransDias(i,36)+TransDias(i,39),0)%>
<%=formatnumber(xtotalsamqtyOBbd31,0)%>
<%=formatnumber(xtotalsamqtyOBbd31/xnumerodias,0)%>
2s:
<%=formatnumber(TransDias(i,37)+TransDias(i,40),0)%>
<%=formatnumber(TransDias(i,37)+TransDias(i,40),0)%>
<%=formatnumber(xtotalsamqtyOBbd32,0)%>
<%=formatnumber(xtotalsamqtyOBbd32/xnumerodias,0)%>
3s:
<%=formatnumber(TransDias(i,38)+TransDias(i,41),0)%>
<%=formatnumber(TransDias(i,38)+TransDias(i,41),0)%>
<%=formatnumber(xtotalsamqtyOBbd33,0)%>
<%=formatnumber(xtotalsamqtyOBbd33/xnumerodias,0)%>
Total Trans
<%=formatnumber(TransDias(i,24)+TransDias(i,27),0)%>
<%=formatnumber(TransDias(i,24)+TransDias(i,27),0)%>
<%=formatnumber(xtott,0)%>
<%=formatnumber(xtott/xnumerodias,0)%>
Samsung O/B M2  
<%=formatnumber(TransDias(i,25),0)%>
<%=formatnumber(xtotalsamm2OB,0)%>
<%=formatnumber(xtotalsamm2OB/xnumerodias,0)%>
Samsung O/B AMT  
<%=formatnumber(TransDias(i,26),0)%>
<%=formatnumber(xtotalsamamtOB,0)%>
<%=formatnumber(xtotalsamamtOB/xnumerodias,0)%>
Samsung QTY  
<%=formatnumber(TransDias(i,1),0)%>
<%=formatnumber(xtotalsamqty,0)%>
<%=formatnumber(xtotalsamqty/xnumerodias,0)%>
Samsung M2  
<%=formatnumber(TransDias(i,2),0)%>
<%=formatnumber(xtotalsamm2,0)%>
<%=formatnumber(xtotalsamm2/xnumerodias,0)%>
Samsung AMT  
<%=formatnumber(TransDias(i,3),0)%>
<%=formatnumber(xtotalsamamt,0)%>
<%=formatnumber(xtotalsamamt/xnumerodias,0)%>
Others QTY  
<%=formatnumber(TransDias(i,4),0)%>
<%=formatnumber(xtotalothqty,0)%>
<%=formatnumber(xtotalothqty/xnumerodias,0)%>
Others M2  
<%=formatnumber(TransDias(i,5),0)%>
<%=formatnumber(xtotalothm2,0)%>
<%=formatnumber(xtotalothm2/xnumerodias,0)%>
Others AMT  
<%=formatnumber(TransDias(i,6),0)%>
<%=formatnumber(xtotalothamt,0)%>
<%=formatnumber(xtotalothamt/xnumerodias,0)%>
Qty 1S BD1  <%=formatnumber(TransDias(i,42),0)%>
<%=formatnumber(xqty1sbd1,0)%>
<%=formatnumber(xqty1sbd1/xnumerodias,0)%>
Qty 2S BD1  <%=formatnumber(TransDias(i,43),0)%>
<%=formatnumber(xqty2sbd1,0)%>
<%=formatnumber(xqty2sbd1/xnumerodias,0)%>
Qty 3S BD1  <%=formatnumber(TransDias(i,44),0)%>
<%=formatnumber(xqty3sbd1,0)%>
<%=formatnumber(xqty3sbd1/xnumerodias,0)%>
Qty 1S BD3  <%=formatnumber(TransDias(i,48),0)%>
<%=formatnumber(xqty1sbd3,0)%>
<%=formatnumber(xqty1sbd3/xnumerodias,0)%>
Qty 2S BD3  <%=formatnumber(TransDias(i,49),0)%>
<%=formatnumber(xqty2sbd3,0)%>
<%=formatnumber(xqty2sbd3/xnumerodias,0)%>
Qty 3S BD3  <%=formatnumber(TransDias(i,50),0)%>
<%=formatnumber(xqty3sbd3,0)%>
<%=formatnumber(xqty3sbd3/xnumerodias,0)%>
Qty 1S  <%=formatnumber(TransDias(i,10),0)%>
<%=formatnumber(xtotalsamqty1s,0)%>
<%=formatnumber(xtotalsamqty1s/xnumerodias,0)%>
Qty 2S  <%=formatnumber(TransDias(i,11),0)%>
<%=formatnumber(xtotalsamqty2s,0)%>
<%=formatnumber(xtotalsamqty2s/xnumerodias,0)%>
Qty 3S  <%=formatnumber(TransDias(i,12),0)%>
<%=formatnumber(xtotalsamqty3s,0)%>
<%=formatnumber(xtotalsamqty3s/xnumerodias,0)%>
Total QTY  
<%=formatnumber(TransDias(i,7),0)%>
<%=formatnumber(xtotalqty,0)%>
<%=formatnumber(xtotalqty/xnumerodias,0)%>
M2 1S BD1  <%=formatnumber(TransDias(i,45),0)%>
<%=formatnumber(xM21sbd1,0)%>
<%=formatnumber(xM21sbd1/xnumerodias,0)%>
M2 2S BD1  <%=formatnumber(TransDias(i,46),0)%>
<%=formatnumber(xM22sbd1,0)%>
<%=formatnumber(xM22sbd1/xnumerodias,0)%>
M2 3S BD1  <%=formatnumber(TransDias(i,47),0)%>
<%=formatnumber(xM23sbd1,0)%>
<%=formatnumber(xM23sbd1/xnumerodias,0)%>
M2 1S BD3  <%=formatnumber(TransDias(i,51),0)%>
<%=formatnumber(xM21sbd3,0)%>
<%=formatnumber(xM21sbd3/xnumerodias,0)%>
M2 2S BD3  <%=formatnumber(TransDias(i,52),0)%>
<%=formatnumber(xM22sbd3,0)%>
<%=formatnumber(xM22sbd3/xnumerodias,0)%>
M2 3S BD3  <%=formatnumber(TransDias(i,53),0)%>
<%=formatnumber(xM23sbd3,0)%>
<%=formatnumber(xM23sbd3/xnumerodias,0)%>
M2 1S  
<%=formatnumber(TransDias(i,13),0)%>
<%=formatnumber(xtotalsamm21s,0)%>
<%=formatnumber(xtotalsamm21s/xnumerodias,0)%>
M2 2S  
<%=formatnumber(TransDias(i,14),0)%>
<%=formatnumber(xtotalsamm22s,0)%>
<%=formatnumber(xtotalsamm22s/xnumerodias,0)%>
M2 3S  
<%=formatnumber(TransDias(i,15),0)%>
<%=formatnumber(xtotalsamm23s,0)%>
<%=formatnumber(xtotalsamm23s/xnumerodias,0)%>
Total M2  
<%=formatnumber(TransDias(i,8),0)%>
<%=formatnumber(xtotalm2,0)%>
<%=formatnumber(xtotalm2/xnumerodias,0)%>
Total AMT  
<%=formatnumber(TransDias(i,9),0)%>
<%=formatnumber(xtotalamt,0)%>
<%=formatnumber(xtotalamt/xnumerodias,0)%>

 

<% correo="ilkim@shinwoousa.com;inwans@shinwoousa.com" 'correo=request.QueryString("correo") ' val1=xtotalsamqtyOB1s val2=xtotalsamqtyOB2s val3=xtotalsamqtyOB3s val4=xtotalsamqtyOB val5=xtotalsamqtyOBbd31s val6=xtotalsamqtyOBbd32s val7=xtotalsamqtyOBbd33s val8=xtotalsamqtyOBbd3 val9=xtotalsamqtyOBbd31 val10=xtotalsamqtyOBbd32 val11=xtotalsamqtyOBbd33 val12=xtott val61=xtotalsamM2OB1s val62=xtotalsamM2OB2s val63=xtotalsamM2OB3s val64=xtotalsamAMTOB1s val65=xtotalsamAMTOB2s val66=xtotalsamAMTOB3s val67=xtotalsamM2OBbd31s val68=xtotalsamM2OBbd32s val69=xtotalsamM2OBbd33s val70=xtotalsamAMTOBbd31s val71=xtotalsamAMTOBbd32s val72=xtotalsamAMTOBbd33s for i=lbound(TransDias) to ubound(TransDias) xtotalqtysh=xtotalqtysh+TransDias(i,79) xtotalm2sh=xtotalm2sh+TransDias(i,80) xtotalamtsh=xtotalamtsh+TransDias(i,81) 'xm21sbd1sh=xm21sbd1sh+TransDias(i,45) xqty1sbd1sh=xqty1sbd1sh+TransDias(i,82) xqty2sbd1sh=xqty2sbd1sh+TransDias(i,85) xqty3sbd1sh=xqty3sbd1sh+TransDias(i,88) xqty1sbd3sh=xqty1sbd3sh+TransDias(i,91) xqty2sbd3sh=xqty2sbd3sh+TransDias(i,94) xqty3sbd3sh=xqty3sbd3sh+TransDias(i,97) xm21sbd1sh=xm21sbd1sh+TransDias(i,83) xm22sbd1sh=xm22sbd1sh+TransDias(i,86) xm23sbd1sh=xm23sbd1sh+TransDias(i,89) xm21sbd3sh=xm21sbd3sh+TransDias(i,92) xm22sbd3sh=xm22sbd3sh+TransDias(i,95) xm23sbd3sh=xm23sbd3sh+TransDias(i,98) xamt1sbd1sh=xamt1sbd1sh+TransDias(i,84) xamt2sbd1sh=xamt2sbd1sh+TransDias(i,87) xamt3sbd1sh=xamt3sbd1sh+TransDias(i,90) xamt1sbd3sh=xamt1sbd3sh+TransDias(i,93) xamt2sbd3sh=xamt2sbd3sh+TransDias(i,96) xamt3sbd3sh=xamt3sbd3sh+TransDias(i,99) next 'xm21sbd1=xm21sbd1-xm21sbd1sh 'xamt1sbd1=xamt1sbd1-xamt1sbd1sh 'xamt2sbd1=xamt2sbd1-xamt2sbd1sh 'xamt3sbd1=xamt3sbd1-xamt3sbd1sh 'xamt1sbd3=xamt1sbd3-xamt1sbd3sh 'xamt2sbd3=xamt2sbd3xamt2sbd3sh 'xamt3sbd3=xamt3sbd3xamt3sbd3sh val21=0 if correo="" or correo=null then response.Write("No hay correo") else response.Write("Enviando.... "&correo) Dim aencab aencab = Session("encuesta1") session("encuesta1") = null '****************************************************** xlbd1qtys1=0 xlbd1m2s1=0 xlbd1amts1=0 xlbd1qtys2=0 xlbd1m2s2=0 xlbd1amts2=0 xlbd1qtys3=0 xlbd1m2s3=0 xlbd1amts3=0 xlbd3qtys1=0 xlbd3m2s1=0 xlbd3amts1=0 xlbd3qtys2=0 xlbd3m2s2=0 xlbd3amts2=0 xlbd3qtys3=0 xlbd3m2s3=0 xlbd3amts3=0 set Rstransfer=cnn.execute("select * from transfer") if not rstransfer.eof then ltransdate=rstransfer("transdate") xlbd1qtys1=cdbl(rstransfer("tbd1qtys1")) xlbd1m2s1=cdbl(rstransfer("tbd1m2s1")) xlbd1amts1=cdbl(rstransfer("tbd1amts1")) xlbd1qtys2=cdbl(rstransfer("tbd1qtys2")) xlbd1m2s2=cdbl(rstransfer("tbd1m2s2")) xlbd1amts2=cdbl(rstransfer("tbd1amts2")) xlbd1qtys3=cdbl(rstransfer("tbd1qtys3")) xlbd1m2s3=cdbl(rstransfer("tbd1m2s3")) xlbd1amts3=cdbl(rstransfer("tbd1amts3")) xlbd3qtys1=cdbl(rstransfer("tbd3qtys1")) xlbd3m2s1=cdbl(rstransfer("tbd3m2s1")) xlbd3amts1=cdbl(rstransfer("tbd3amts1")) xlbd3qtys2=cdbl(rstransfer("tbd3qtys2")) xlbd3m2s2=cdbl(rstransfer("tbd3m2s2")) xlbd3amts2=cdbl(rstransfer("tbd3amts2")) xlbd3qtys3=cdbl(rstransfer("tbd3qtys3")) xlbd3m2s3=cdbl(rstransfer("tbd3m2s3")) xlbd3amts3=cdbl(rstransfer("tbd3amts3")) xlbd1qty=cdbl(rstransfer("tbd1qty")) xlbd1m2=cdbl(rstransfer("tbd1m2")) xlbd1amt=cdbl(rstransfer("tbd1amt")) xlbd3qty=cdbl(rstransfer("tbd3qty")) xlbd3m2=cdbl(rstransfer("tbd3m2")) xlbd3amt=cdbl(rstransfer("tbd3amt")) end if mensaje=" TRANSFER (Samsung OB)

" 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&" " bd1qtys1=Val1 bd1m2s1=Val61 bd1amts1=0 mensaje=mensaje&" " if Val64>0 then mensaje=mensaje&" " bd1amts1=Val64 else mensaje=mensaje&" " end if mensaje=mensaje&" " bd3qtys1=Val5 bd3m2s1=Val67 bd3amts1=0 mensaje=mensaje&" " if Val70>0 then mensaje=mensaje&" " bd3amts1=Val70 else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (cdbl(Val64)+cdbl(Val70))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " bd1qtys2=Val2 bd1m2s2=Val62 bd1amts2=0 if Val65>0 then mensaje=mensaje&" " bd1amts2=Val65 else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " bd3qtys2=Val2 bd3m2s2=Val62 bd3amts2=0 if Val71>0 then mensaje=mensaje&" " bd3amts2=Val71 else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (cdbl(Val65)+cdbl(Val71))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " bd1qtys3=Val3 bd1m2s3=Val63 bd1amts3=0 if Val66>0 then mensaje=mensaje&" " bd1amts3=Val66 else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " bd3qtys3=Val7 bd3m2s3=Val69 bd3amts3=0 if Val72>0 then mensaje=mensaje&" " bd3amts3=Val72 else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (cdbl(Val66)+cdbl(VAL72))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " bd1qty=Val4 mensaje=mensaje&" " bd1m2=Val61+VAL62+VAL63 if (Val64+VAL65+VAL66)>0 then mensaje=mensaje&" " bd1amt=(Val64+VAL65+VAL66) else mensaje=mensaje&" " bd1amt=0 end if mensaje=mensaje&" " mensaje=mensaje&" " bd3qty=Val8 bd3m2=(Val67+VAL68+VAL69) if (Val70+VAL71+VAL72)>0 then mensaje=mensaje&" " bd3amt=(Val70+VAL71+VAL72) else mensaje=mensaje&" " bd3amt=0 end if mensaje=mensaje&" " mensaje=mensaje&" " if (Val64+VAL65+VAL66+VAL70+VAL71+VAL72)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " lbd1qtys1=0 lbd1m2s1=0 lbd1amts1=0 lbd1qtys2=0 lbd1m2s2=0 lbd1amts2=0 lbd1qtys3=0 lbd1m2s3=0 lbd1amts3=0 lbd3qtys1=0 lbd3m2s1=0 lbd3amts1=0 lbd3qtys2=0 lbd3m2s2=0 lbd3amts2=0 lbd3qtys3=0 lbd3m2s3=0 lbd3amts3=0 lbd1qty=0 lbd1m2=0 lbd1amt=0 lbd3qty=0 lbd3m2=0 lbd3amt=0 if ldaterep<>ltransdate then set rsupdate=cnn.execute("update transfer set transdate='"& ldaterep & "',tbd1qtys1="&bd1qtys1&",tbd1m2s1="&bd1m2s1&",tbd1amts1="&bd1amts1&",tbd1qtys2="&bd1qtys2&",tbd1m2s2="&bd1m2s2&",tbd1amts2="&bd1amts2&",tbd1qtys3="&bd1qtys3&",tbd1m2s3="&bd1m2s3&",tbd1amts3="&bd1amts3&",tbd3qtys1="&bd3qtys1&",tbd3m2s1="&bd3m2s1&",tbd3amts1="&bd3amts1&",tbd3qtys2="&bd3qtys2&",tbd3m2s2="&bd3m2s2&",tbd3amts2="&bd3amts2&",tbd3qtys3="&bd3qtys3&",tbd3m2s3="&bd3m2s3&",tbd3amts3="&bd3amts3&",tbd1qty="&bd1qty&",tbd1m2="&bd1m2&",tbd1amt="&bd1amt&",tbd3qty="&bd3qty&",tbd3m2="&bd3m2&",tbd3amt="&bd3amt) else lqe="update transfer set transdate='"& ldaterep & "',tbd1qtys1="&bd1qtys1&",tbd1m2s1="&bd1m2s1&",tbd1amts1="&bd1amts1&",tbd1qtys2="&bd1qtys2&",tbd1m2s2="&bd1m2s2&",tbd1amts2="&bd1amts2&",tbd1qtys3="&bd1qtys3&",tbd1m2s3="&bd1m2s3&",tbd1amts3="&bd1amts3&",tbd3qtys1="&bd3qtys1&",tbd3m2s1="&bd3m2s1&",tbd3amts1="&int(bd3amts1)&",tbd3qtys2="&bd3qtys2&",tbd3m2s2="&bd3m2s2&",tbd3amts2="&bd3amts2&",tbd3qtys3="&bd3qtys3&",tbd3m2s3="&bd3m2s3&",tbd3amts3="&bd3amts3&",tbd1qty="&bd1qty&",tbd1m2="&bd1m2&",tbd1amt="&bd1amt&",tbd3qty="&bd3qty&",tbd3m2="&bd3m2&",tbd3amt="&bd3amt response.write(lqe) set rsupdate=cnn.execute("update transfer set transdate='"& ldaterep & "',tbd1qtys1="&bd1qtys1&",tbd1m2s1="&bd1m2s1&",tbd1amts1="&bd1amts1&",tbd1qtys2="&bd1qtys2&",tbd1m2s2="&bd1m2s2&",tbd1amts2="&bd1amts2&",tbd1qtys3="&bd1qtys3&",tbd1m2s3="&bd1m2s3&",tbd1amts3="&bd1amts3&",tbd3qtys1="&bd3qtys1&",tbd3m2s1="&bd3m2s1&",tbd3amts1="&int(bd3amts1)&",tbd3qtys2="&bd3qtys2&",tbd3m2s2="&bd3m2s2&",tbd3amts2="&bd3amts2&",tbd3qtys3="&bd3qtys3&",tbd3m2s3="&bd3m2s3&",tbd3amts3="&bd3amts3&",tbd1qty="&bd1qty&",tbd1m2="&bd1m2&",tbd1amt="&bd1amt&",tbd3qty="&bd3qty&",tbd3m2="&bd3m2&",tbd3amt="&bd3amt) lbd1qty=bd1qty-xlbd1qty lbd1m2=bd1m2-xlbd1m2 lbd1amt=bd1amt-xlbd1amt 'lbd1qty=bd1qty-xlbd1qty 'lbd1m2=bd1m2-xlbd1m2 'lbd1amt=bd1amt-xlbd1amt 'lbd1qty=bd1qty-xlbd1qty 'lbd1m2=bd1m2-xlbd1m2 'lbd1amt=bd1amt-xlbd1amt lbd3qty=bd3qty-xlbd3qty lbd3m2=bd3m2-xlbd3m2 lbd3amt=int(bd3amt)-xlbd3amt lbd3qtys2=bd3qtys2-xlbd3qtys2 lbd3m2s2=bd3m2s2-xlbd3m2s2 lbd3amts2=bd3amts2-xlbd3amts2 lbd3qtys3=bd3qtys3-xlbd3qtys3 lbd3m2s3=bd3m2s3-xlbd3m2s3 lbd3amts3=bd3amts3-xlbd3amts3 response.write(" val "&int(bd3amt)&" v2 "&xlbd3amt) 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&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&"
"&ldaterep&"  BD1    BD3    Tot Shift  
  Qty    M2    AMT    Qty    M2    AMT    Qty    M2    AMT  
Sh 1"&Val1&""&Val61&""&formatnumber(Val64,0)&""&Val64&""&Val5&""&Val67&""&formatnumber(Val70,0)&""&Val70&""&Val9&""&Val61+VAL67&""&formatnumber(cdbl(Val64)+cdbl(VAL70),0)&""&Val64+VAL70&"
Sh 2"&Val2&""&Val62&""&formatnumber(Val65,0)&""&Val65&""&Val6&""&Val68&""&formatnumber(Val71,0)&""&Val71&""&Val10&""&Val62+VAL68&""&formatnumber(cdbl(Val65)+cdbl(VAL71),0)&""&Val65+VAL71&"
Sh 3 "&Val3&""&Val63&""&formatnumber(Val66,0)&""&Val66&""&Val7&""&Val69&""&formatnumber(Val72,0)&""&Val72&""&Val11&""&Val63+VAL69&""&formatnumber(Val66+VAL72,0)&""&Val66+VAL72&"
Tot BD"&Val4&""&Val61+VAL62+VAL63&""&formatnumber(Val64+VAL65+VAL66,0)&""&Val64+VAL65+VAL66&""&Val8&""&Val67+VAL68+VAL69&""&formatnumber(Val70+VAL71+VAL72,0)&""&Val70+VAL71+VAL72&""&Val12&""&Val61+VAL62+VAL63+VAL67+VAL68+VAL69&""&formatnumber(Val64+VAL65+VAL66+VAL70+VAL71+VAL72,0)&""&Val64+VAL65+VAL66+VAL70+VAL71+VAL72&"
Progress"&lbd1qty&""&lbd1m2&""&formatnumber(lbd1amt,0)&""&lbd3qty&""&lbd3m2&""&formatnumber(lbd3amt,0)&""&lbd1qty+lbd3qty&""&lbd1m2+lbd3m2&""&formatnumber(lbd1amt+lbd3amt,0)&"
" mensaje=mensaje&"
" '*************************************************************************************Tabla 2 mensaje=mensaje&" TRANSFER (VBOARD)

" 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&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if transdias(3,112)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if transdias(3,113)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " 'VB3 Qty mensaje=mensaje&" " 'VB3 LM if transdias(3,142)>0 then mensaje=mensaje&" " 'VB3 AMT else mensaje=mensaje&" " 'VB3 AMT end if mensaje=mensaje&" " mensaje=mensaje&" " if (cdbl(transdias(3,112))+cdbl(transdias(3,113))+cdbl(transdias(3,142)))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if transdias(3,114)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if transdias(3,115)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " 'VB3 Qty mensaje=mensaje&" " 'VB3 LM if transdias(3,143)>0 then mensaje=mensaje&" " 'VB3 AMT else mensaje=mensaje&" " 'VB3 AMT end if mensaje=mensaje&" " mensaje=mensaje&" " if (cdbl(transdias(3,114))+cdbl(transdias(3,115))+cdbl(transdias(3,143)))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if transdias(3,116)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if transdias(3,117)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " 'VB3 Qty mensaje=mensaje&" " 'VB3 LM if transdias(3,144)>0 then mensaje=mensaje&" " 'VB3 AMT else mensaje=mensaje&" " 'VB3 AMT end if mensaje=mensaje&" " mensaje=mensaje&" " if (cdbl(transdias(3,116))+cdbl(transdias(3,117))+cdbl(transdias(3,144)))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if (transdias(3,112)+transdias(3,114)+transdias(3,116))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (transdias(3,113)+transdias(3,115)+transdias(3,117))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (transdias(3,142)+transdias(3,143)+transdias(3,144))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (transdias(3,113)+transdias(3,115)+transdias(3,117)+transdias(3,112)+transdias(3,114)+transdias(3,116)+transdias(3,142)+transdias(3,143)+transdias(3,14))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&"
"&ldaterep&"  Vboard1    Vboard2    Vboard3    Tot Shift  
  Qty    Lm    AMT    Qty    Lm    AMT    Qty    Lm    AMT    Qty    Lm    AMT  
Sh 1"&transdias(3,100)&""&transdias(3,106)&""&formatnumber(transdias(3,112),0)&""&transdias(3,112)&""&transdias(3,101)&""&transdias(3,107)&""&formatnumber(transdias(3,113),0)&""&transdias(3,113)&""&transdias(3,136)&""&transdias(3,139)&""&formatnumber(transdias(3,142),0)&""&transdias(3,142)&""&transdias(3,100)+transdias(3,101)+transdias(3,136)&""&transdias(3,106)+transdias(3,107)+transdias(3,139)&""&formatnumber(cdbl(transdias(3,112))+cdbl(transdias(3,113))+cdbl(transdias(3,142)),0)&""&cdbl(transdias(3,112))+cdbl(transdias(3,113)+cdbl(transdias(3,142)))&"
Sh 2"&transdias(3,102)&""&transdias(3,108)&""&formatnumber(transdias(3,114),0)&""&transdias(3,114)&""&transdias(3,103)&""&transdias(3,109)&""&formatnumber(transdias(3,115),0)&""&transdias(3,115)&""&transdias(3,137)&""&transdias(3,140)&""&formatnumber(transdias(3,143),0)&""&transdias(3,143)&""&transdias(3,102)+transdias(3,103)+transdias(3,137)&""&transdias(3,108)+transdias(3,109)+transdias(3,140)&""&formatnumber(cdbl(transdias(3,114))+cdbl(transdias(3,115))+cdbl(transdias(3,143)),0)&""&cdbl(transdias(3,114))+cdbl(transdias(3,115))+cdbl(transdias(3,143))&"
Sh 3 "&transdias(3,104)&""&transdias(3,110)&""&formatnumber(transdias(3,116),0)&""&transdias(3,116)&""&transdias(3,105)&""&transdias(3,111)&""&formatnumber(transdias(3,117),0)&""&transdias(3,117)&""&transdias(3,138)&""&transdias(3,141)&""&formatnumber(transdias(3,144),0)&""&transdias(3,144)&""&transdias(3,104)+transdias(3,105)+transdias(3,138)&""&transdias(3,110)+transdias(3,111)+transdias(3,141)&""&formatnumber(cdbl(transdias(3,116))+cdbl(transdias(3,117))+cdbl(transdias(3,144)),0)&""&cdbl(transdias(3,116))+cdbl(transdias(3,117))+cdbl(transdias(3,144))&"
Tot BD"&(transdias(3,100)+transdias(3,102)+transdias(3,104))&""&(transdias(3,106)+transdias(3,108)+transdias(3,110))&""&formatnumber((transdias(3,112)+transdias(3,114)+transdias(3,116)),0)&""&(transdias(3,112)+transdias(3,114)+transdias(3,116))&""&(transdias(3,101)+transdias(3,103)+transdias(3,105))&""&(transdias(3,107)+transdias(3,109)+transdias(3,111))&""&formatnumber((transdias(3,113)+transdias(3,115)+transdias(3,117)),0)&""&(transdias(3,113)+transdias(3,115)+transdias(3,117))&""&(transdias(3,136)+transdias(3,137)+transdias(3,138))&""&(transdias(3,139)+transdias(3,140)+transdias(3,141))&""&formatnumber((transdias(3,142)+transdias(3,143)+transdias(3,144)),0)&""&(transdias(3,142)+transdias(3,143)+transdias(3,144))&""&(transdias(3,101)+transdias(3,103)+transdias(3,105)+transdias(3,100)+transdias(3,102)+transdias(3,104)+transdias(3,136)+transdias(3,137)+transdias(3,138))&""&(transdias(3,107)+transdias(3,109)+transdias(3,111)+transdias(3,106)+transdias(3,108)+transdias(3,110)+transdias(3,139)+transdias(3,140)+transdias(3,141))&""&formatnumber((transdias(3,113)+transdias(3,115)+transdias(3,117)+transdias(3,112)+transdias(3,114)+transdias(3,116)+transdias(3,142)+transdias(3,143)+transdias(3,14)),0)&""&(transdias(3,113)+transdias(3,115)+transdias(3,117)+transdias(3,112)+transdias(3,114)+transdias(3,116)+transdias(3,142)+transdias(3,143)+transdias(3,14))&"
" mensaje=mensaje&"
" '*************************************************************************************Tabla 3 RWK mensaje=mensaje&" TRANSFER (REWORK)

" 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&" " mensaje=mensaje&" " if transdias(3,130)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if transdias(3,131)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (cdbl(transdias(3,130))+cdbl(transdias(3,131)))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if transdias(3,132)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if transdias(3,133)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (cdbl(transdias(3,132))+cdbl(transdias(3,133)))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if transdias(3,134)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if transdias(3,135)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (cdbl(transdias(3,134))+cdbl(transdias(3,135)))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if (transdias(3,130)+transdias(3,132)+transdias(3,134))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (transdias(3,131)+transdias(3,133)+transdias(3,135))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (transdias(3,131)+transdias(3,133)+transdias(3,135)+transdias(3,130)+transdias(3,132)+transdias(3,134))>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&"
"&ldaterep&"  BD1    BD2    Tot Shift  
  Qty    M2    AMT    Qty    M2    AMT    Qty    M2    AMT  
Sh 1"&transdias(3,118)&""&transdias(3,124)&""&formatnumber(transdias(3,130),0)&""&transdias(3,130)&""&transdias(3,119)&""&transdias(3,125)&""&formatnumber(transdias(3,131),0)&""&transdias(3,131)&""&transdias(3,118)+transdias(3,119)&""&transdias(3,124)+transdias(3,125)&""&formatnumber(cdbl(transdias(3,130))+cdbl(transdias(3,131)),0)&""&cdbl(transdias(3,130))+cdbl(transdias(3,131))&"
Sh 2"&transdias(3,120)&""&transdias(3,126)&""&formatnumber(transdias(3,132),0)&""&transdias(3,132)&""&transdias(3,121)&""&transdias(3,127)&""&formatnumber(transdias(3,133),0)&""&transdias(3,133)&""&transdias(3,120)+transdias(3,121)&""&transdias(3,126)+transdias(3,127)&""&formatnumber(cdbl(transdias(3,132))+cdbl(transdias(3,133)),0)&""&cdbl(transdias(3,132))+cdbl(transdias(3,133))&"
Sh 3 "&transdias(3,122)&""&transdias(3,128)&""&formatnumber(transdias(3,134),0)&""&transdias(3,134)&""&transdias(3,123)&""&transdias(3,129)&""&formatnumber(transdias(3,135),0)&""&transdias(3,135)&""&transdias(3,122)+transdias(3,123)&""&transdias(3,128)+transdias(3,129)&""&formatnumber(cdbl(transdias(3,134))+cdbl(transdias(3,135)),0)&""&cdbl(transdias(3,134))+cdbl(transdias(3,135))&"
Tot BD"&(transdias(3,118)+transdias(3,120)+transdias(3,122))&""&(transdias(3,124)+transdias(3,126)+transdias(3,128))&""&formatnumber((transdias(3,130)+transdias(3,132)+transdias(3,134)),0)&""&(transdias(3,130)+transdias(3,132)+transdias(3,134))&""&(transdias(3,119)+transdias(3,121)+transdias(3,123))&""&(transdias(3,125)+transdias(3,127)+transdias(3,129))&""&formatnumber((transdias(3,131)+transdias(3,133)+transdias(3,135)),0)&""&(transdias(3,131)+transdias(3,133)+transdias(3,135))&""&(transdias(3,119)+transdias(3,121)+transdias(3,123)+transdias(3,118)+transdias(3,120)+transdias(3,122))&""&(transdias(3,125)+transdias(3,127)+transdias(3,129)+transdias(3,124)+transdias(3,126)+transdias(3,128))&""&formatnumber((transdias(3,131)+transdias(3,133)+transdias(3,135)+transdias(3,130)+transdias(3,132)+transdias(3,134)),0)&""&(transdias(3,131)+transdias(3,133)+transdias(3,135)+transdias(3,130)+transdias(3,132)+transdias(3,134))&"
" mensaje=mensaje&"
" ''''''''''''''''***************************************** Tabla Transfer ALL mensaje=mensaje&" TRANSFER (All Production)

" 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&" " mensaje=mensaje&" " if xamt1sbd1>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if xamt1sbd3>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (xamt1sbd1+xamt1sbd3)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " '****************************************************************Sheet 1 mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if xamt1sbd1sh>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if xamt1sbd3sh>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (xamt1sbd1sh+xamt1sbd3sh)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " '*************************** mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if xamt2sbd1>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if xamt2sbd3>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (xamt2sbd1+xamt2sbd3)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if xamt2sbd1sh>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if xamt2sbd3sh>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (xamt2sbd1sh+xamt2sbd3sh)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if xamt3sbd1>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if xamt3sbd3>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (xamt3sbd1+xamt3sbd3)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if xamt3sbd1sh>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if xamt3sbd3sh>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (xamt3sbd1sh+xamt3sbd3sh)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if (xamt1sbd1+xamt2sbd1+xamt3sbd1)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (xamt1sbd3+xamt2sbd3+xamt3sbd3)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (xamt1sbd1+xamt2sbd1+xamt3sbd1+xamt1sbd3+xamt2sbd3+xamt3sbd3)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if (xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh+xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " mensaje=mensaje&" " if (xamt1sbd1+xamt2sbd1+xamt3sbd1)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (xamt1sbd3+xamt2sbd3+xamt3sbd3)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&" " if (xamt1sbd1+xamt2sbd1+xamt3sbd1+xamt1sbd3+xamt2sbd3+xamt3sbd3)>0 then mensaje=mensaje&" " else mensaje=mensaje&" " end if mensaje=mensaje&" " mensaje=mensaje&"
"&ldaterep&"  BD1    BD3    Tot Shift  
  Qty    M2    AMT    Qty    M2    AMT    Qty    M2    AMT  
Sh 1 Box"&xqty1sbd1-xqty1sbd1sh&""&xM21sbd1-xM21sbd1sh&""&formatnumber(xamt1sbd1-xamt1sbd1sh,0)&""&xamt1sbd1-xamt1sbd1sh&""&xqty1sbd3-xqty1sbd3sh&""&xM21sbd3-xM21sbd3sh&""&formatnumber(xamt1sbd3-xamt1sbd3sh,0)&""&xamt1sbd3-xamt1sbd3&""&(xqty1sbd1+xqty1sbd3-xqty1sbd1sh-xqty1sbd3sh)&""&(xM21sbd1+xM21sbd3-xM21sbd1sh-xM21sbd3sh)&""&formatnumber((xamt1sbd1+xamt1sbd3)-(xamt1sbd1sh+xamt1sbd3sh),0)&""&(xamt1sbd1+xamt1sbd3)-(xamt1sbd1sh+xamt1sbd3sh)&"
Sh 1 Sheet"&xqty1sbd1sh&""&xM21sbd1sh&""&formatnumber(xamt1sbd1sh,0)&""&xamt1sbd1sh&""&xqty1sbd3sh&""&xM21sbd3sh&""&formatnumber(xamt1sbd3sh,0)&""&xamt1sbd3sh&""&(xqty1sbd1sh+xqty1sbd3sh)&""&(xM21sbd1sh+xM21sbd3sh)&""&formatnumber((xamt1sbd1sh+xamt1sbd3sh),0)&""&(xamt1sbd1sh+xamt1sbd3sh)&"
Sh 2"&xqty2sbd1-xqty2sbd1sh&""&xM22sbd1-xM22sbd1sh&""&formatnumber(xamt2sbd1-xamt2sbd1sh,0)&""&xamt2sbd1-xamt2sbd1sh&""&xqty2sbd3-xqty2sbd3sh&""&xM22sbd3-xM22sbd3sh&""&formatnumber(xamt2sbd3-xamt2sbd3sh,0)&""&xamt2sbd3-xamt2sbd3sh&""&(xqty2sbd1+xqty2sbd3)-(xqty2sbd1sh+xqty2sbd3sh)&""&(xM22sbd1+xM22sbd3)-(xM22sbd1sh+xM22sbd3sh)&""&formatnumber(xamt2sbd1+xamt2sbd3-(xamt2sbd1sh+xamt2sbd3sh),0)&""&(xamt2sbd1+xamt2sbd3)-(xamt2sbd1sh+xamt2sbd3sh)&"
Sh 2 Sheet"&xqty2sbd1sh&""&xM22sbd1sh&""&formatnumber(xamt2sbd1sh,0)&""&xamt2sbd1sh&""&xqty2sbd3sh&""&xM22sbd3sh&""&formatnumber(xamt2sbd3sh,0)&""&xamt2sbd3sh&""&(xqty2sbd1sh+xqty2sbd3sh)&""&(xM22sbd1sh+xM22sbd3sh)&""&formatnumber(xamt2sbd1sh+xamt2sbd3sh,0)&""&(xamt2sbd1sh+xamt2sbd3sh)&"
Sh 3 Box "&(xqty3sbd1-xqty3sbd1sh)&""&(xM23sbd1-xM23sbd1sh)&""&formatnumber(xamt3sbd1-xamt3sbd1sh,0)&""&xamt3sbd1-xamt3sbd1sh&""&xqty3sbd3-xqty3sbd3sh&""&xM23sbd3-xM23sbd3sh&""&formatnumber(xamt3sbd3-xamt3sbd3sh,0)&""&xamt3sbd3-xamt3sbd3sh&""&(xqty3sbd1+xqty3sbd3)-(xqty3sbd1sh+xqty3sbd3sh)&""&(xM23sbd1+xM23sbd3)-(xM23sbd1sh+xM23sbd3sh)&""&formatnumber(xamt3sbd1+xamt3sbd3-(xamt3sbd1sh+xamt3sbd3sh),0)&""&(xamt3sbd1+xamt3sbd3)-(xamt3sbd1sh+xamt3sbd3sh)&"
Sh 3 Sheet"&xqty3sbd1sh&""&xM23sbd1sh&""&formatnumber(xamt3sbd1sh,0)&""&xamt3sbd1sh&""&xqty3sbd3sh&""&xM23sbd3sh&""&formatnumber(xamt3sbd3sh,0)&""&xamt3sbd3sh&""&(xqty3sbd1sh+xqty3sbd3sh)&""&(xM23sbd1sh+xM23sbd3sh)&""&formatnumber(xamt3sbd1sh+xamt3sbd3sh,0)&""&(xamt3sbd1sh+xamt3sbd3sh)&"
Total Box"&(xqty1sbd1+xqty2sbd1+xqty3sbd1)-(xqty1sbd1sh+xqty2sbd1sh+xqty3sbd1sh)&""&(xM21sbd1+xM22sbd1+xM23sbd1)-(xM21sbd1sh+xM22sbd1sh+xM23sbd1sh)&""&formatnumber(xamt1sbd1+xamt2sbd1+xamt3sbd1-(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh),0)&""&(xamt1sbd1+xamt2sbd1+xamt3sbd1)-(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh)&""&(xqty1sbd3+xqty2sbd3+xqty3sbd3)-(xqty1sbd3sh+xqty2sbd3sh+xqty3sbd3sh)&""&(xM21sbd3+xM22sbd3+xM23sbd3)-(xM21sbd3sh+xM22sbd3sh+xM23sbd3sh)&""&formatnumber(xamt1sbd3+xamt2sbd3+xamt3sbd3-(xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh),0)&""&(xamt1sbd3+xamt2sbd3+xamt3sbd3)-(xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh)&""&(xqty1sbd1+xqty2sbd1+xqty3sbd1+xqty1sbd3+xqty2sbd3+xqty3sbd3)-(xqty1sbd1sh+xqty2sbd1sh+xqty3sbd1sh+xqty1sbd3sh+xqty2sbd3sh+xqty3sbd3sh)&""&(xM21sbd1+xM22sbd1+xM23sbd1+xM21sbd3+xM22sbd3+xM23sbd3)-(xM21sbd1sh+xM22sbd1sh+xM23sbd1sh+xM21sbd3sh+xM22sbd3sh+xM23sbd3sh)&""&formatnumber(xamt1sbd1+xamt2sbd1+xamt3sbd1+xamt1sbd3+xamt2sbd3+xamt3sbd3-(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh+xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh),0)&""&(xamt1sbd1+xamt2sbd1+xamt3sbd1+xamt1sbd3+xamt2sbd3+xamt3sbd3)-(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh+xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh)&"
Total Sheet"&(xqty1sbd1sh+xqty2sbd1sh+xqty3sbd1sh)&""&(xM21sbd1sh+xM22sbd1sh+xM23sbd1sh)&""&formatnumber(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh,0)&""&(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh)&""&(xqty1sbd3sh+xqty2sbd3sh+xqty3sbd3sh)&""&(xM21sbd3sh+xM22sbd3sh+xM23sbd3sh)&""&formatnumber(xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh,0)&""&(xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh)&""&(xqty1sbd1sh+xqty2sbd1sh+xqty3sbd1sh+xqty1sbd3sh+xqty2sbd3sh+xqty3sbd3sh)&""&(xM21sbd1sh+xM22sbd1sh+xM23sbd1sh+xM21sbd3sh+xM22sbd3sh+xM23sbd3sh)&""&formatnumber(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh+xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh,0)&""&(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh+xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh)&"
TOTAL"&(xqty1sbd1+xqty2sbd1+xqty3sbd1)&""&(xM21sbd1+xM22sbd1+xM23sbd1)&""&formatnumber(xamt1sbd1+xamt2sbd1+xamt3sbd1,0)&""&(xamt1sbd1+xamt2sbd1+xamt3sbd1)&""&(xqty1sbd3+xqty2sbd3+xqty3sbd3)&""&(xM21sbd3+xM22sbd3+xM23sbd3)&""&formatnumber(xamt1sbd3+xamt2sbd3+xamt3sbd3,0)&""&(xamt1sbd3+xamt2sbd3+xamt3sbd3)&""&(xqty1sbd1+xqty2sbd1+xqty3sbd1+xqty1sbd3+xqty2sbd3+xqty3sbd3)&""&(xM21sbd1+xM22sbd1+xM23sbd1+xM21sbd3+xM22sbd3+xM23sbd3)&""&formatnumber(xamt1sbd1+xamt2sbd1+xamt3sbd1+xamt1sbd3+xamt2sbd3+xamt3sbd3,0)&""&(xamt1sbd1+xamt2sbd1+xamt3sbd1+xamt1sbd3+xamt2sbd3+xamt3sbd3)&"
" comillas=chr(34) mensaje=mensaje&"

" mensaje=mensaje&"View Graphic (intranet)

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

" '********************* Machine Status acthora=int(hour(time())) if acthora=25 then Path="\\server3\TTD\Machine Status 20170724.xlsx" Set ConexionBD = Server.CreateObject("ADODB.Connection") if request.form("fecha")="" or request.form("fecha")=null then fecha=date end if ConexionBD.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & path & ";Extended Properties='Excel 12.0 Xml;HDR=no;IMEX=1';" Set rsVac = Server.CreateObject("ADODB.Recordset") 'Se abre el recordset, señalando como tabla el rango de celdas Excel llamado Feriado. rsVac.Open "Select * From [Sheet1$]", ConexionBD,3 ,3 if rsVac.eof or rsVac.bof then response.Write(" No data found 0") else rsVac.MoveFirst if not rsVac.eof then mensaje=mensaje&"
" mensaje=mensaje&"" mensaje=mensaje&"" mensaje=mensaje&"" 'rsVac.MoveNext if not rsVac.eof then mensaje=mensaje&"" & vbCrLf mensaje=mensaje&"" mensaje=mensaje&"" mensaje=mensaje&"" mensaje=mensaje&"" mensaje=mensaje&"" mensaje=mensaje&"" mensaje=mensaje&"" mensaje=mensaje&"" mensaje=mensaje&"" mensaje=mensaje&"" mensaje=mensaje&"" & vbCrLf rsVac.MoveNext else response.Write(" No data found ") end if 'rsVac.MoveNext 'rsVac.MoveNext if not rsVac.eof then mensaje=mensaje&"" & vbCrLf 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&"" col=11 mensaje=mensaje&"" & vbCrLf rsVac.MoveNext else response.Write(" No data found ") end if else response.Write(" No data found ") end if if not rsVac.eof then 'Y por último, el cuerpo de los datos Do While Not rsVac.EOF mensaje=mensaje&"" & vbCrLf mensaje=mensaje&"" cfondo="#ffffff" cfondo1="#ffffff" cfondo2="#ffffff" cfondo3="#ffffff" cfondo4="#ffffff" cfondo5="#ffffff" cfondo6="#ffffff" cfondo7="#ffffff" cfondo8="#ffffff" cfondo9="#ffffff" cfondo10="#ffffff" cfondo11="#ffffff" cfondo12="#ffffff" cfondo13="#ffffff" cfondo14="#ffffff" cfondo15="#ffffff" cfondo16="#ffffff" if rsVac(1)="Plant 1" then cfondo1="#92D050" cfondo2="#92D050" cfondo3="#92D050" cfondo4="#92D050" cfondo5="#92D050" cfondo6="#92D050" cfondo7="#92D050" cfondo8="#92D050" cfondo9="#92D050" cfondo10="#92D050" cfondo11="#92D050" cfondo12="#92D050" cfondo13="#92D050" cfondo14="#92D050" cfondo15="#92D050" cfondo16="#92D050" end if if rsVac(1)="Plant 3" then cfondo1="#00B0F0" cfondo2="#00B0F0" cfondo3="#00B0F0" cfondo4="#00B0F0" cfondo5="#00B0F0" cfondo6="#00B0F0" cfondo7="#00B0F0" cfondo8="#00B0F0" cfondo9="#00B0F0" cfondo10="#00B0F0" cfondo11="#00B0F0" cfondo12="#00B0F0" cfondo13="#00B0F0" cfondo14="#00B0F0" cfondo15="#00B0F0" cfondo16="#00B0F0" end if mensaje=mensaje&"" cfondo="#ffffff" if rsVac(2)="UR" then cfondo2="#FFB871" end if if rsVac(2)="BD" then cfondo2="#FF0000" end if if rsVac(3)="UR" then cfondo3="#FFB871" end if if rsVac(3)="BD" then cfondo3="#ff0000" end if if rsVac(4)="UR" then cfondo4="#FFB871" end if if rsVac(4)="BD" then cfondo4="#FF0000" end if if rsVac(5)="UR" then cfondo5="#FFB871" end if if rsVac(5)="BD" then cfondo5="#FF0000" end if if rsVac(6)="UR" then cfondo6="#FFB871" end if if rsVac(6)="BD" then cfondo6="#FF0000" end if if rsVac(7)="UR" then cfondo7="#FFB871" end if if rsVac(7)="BD" then cfondo7="#FF0000" end if if rsVac(8)="UR" then cfondo8="#FFB871" end if if rsVac(8)="BD" then cfondo8="#FF0000" end if if rsVac(9)="UR" then cfondo9="#FFB871" end if if rsVac(9)="BD" then cfondo9="#FF0000" end if if rsVac(10)="UR" then cfondo10="#FFB871" end if if rsVac(10)="BD" then cfondo10="#FF0000" end if if rsVac(11)="UR" then cfondo11="#FFB871" end if if rsVac(11)="BD" then cfondo11="#FF0000" end if if rsVac(12)="UR" then cfondo12="#FFB871" end if if rsVac(12)="BD" then cfondo12="#FF0000" end if if rsVac(13)="UR" then cfondo13="#FFB871" end if if rsVac(13)="BD" then cfondo13="#FF0000" end if if rsVac(14)="UR" then cfondo14="#FFB871" end if if rsVac(14)="BD" then cfondo14="#FF0000" end if if rsVac(15)="UR" then cfondo15="#FFB871" end if if rsVac(15)="BD" then cfondo15="#FF0000" end if if rsVac(16)="UR" then cfondo16="#FFB871" end if if rsVac(16)="BD" then cfondo16="#FF0000" end if mensaje=mensaje&"" cfondo="#ffffff" mensaje=mensaje&"" cfondo="#ffffff" mensaje=mensaje&"" cfondo="#ffffff" mensaje=mensaje&"" cfondo="#ffffff" mensaje=mensaje&"" cfondo="#ffffff" mensaje=mensaje&"" cfondo="#ffffff" mensaje=mensaje&"" cfondo="#ffffff" mensaje=mensaje&"" cfondo="#ffffff" mensaje=mensaje&"" cfondo="#ffffff" mensaje=mensaje&"" cfondo="#ffffff" mensaje=mensaje&"" cfondo="#ffffff" mensaje=mensaje&"" cfondo="#ffffff" mensaje=mensaje&"" cfondo="#ffffff" mensaje=mensaje&"" cfondo="#ffffff" mensaje=mensaje&"" mensaje=mensaje&"" & vbCrLf rsVac.MoveNext Loop else response.Write(" No data found ") end if ''' if not rsVac.eof mensaje=mensaje&"
" & rsVac(0) & "
" & rsVac(0) & "" & rsVac(1) & "" & rsVac(2) & "" & rsVac(3) & "" & rsVac(4) & "" & rsVac(5) & "" & rsVac(10) & "" & rsVac(11) & "" & rsVac(12) & "" & rsVac(16) & "
" & rsVac(0) & "" & rsVac(1) & "" & rsVac(2) & "" & rsVac(3) & "" & rsVac(4) & "" & rsVac(5) & "" & rsVac(6) & "" & rsVac(7) & "" & rsVac(8) & "" & rsVac(9) & "" & rsVac(10) & "" & rsVac(11) & "" & rsVac(12) & "" & rsVac(13) & "" & rsVac(14) & "" & rsVac(15) & "" & rsVac(16) & "
" & rsVac(0) & "" & rsVac(1) & "" & rsVac(2) & "" & rsVac(3) & "" & rsVac(4) & "" & rsVac(5) & "" & rsVac(6) & "" & rsVac(7) & "" & rsVac(8) & "" & rsVac(9) & "" & rsVac(10) & "" & rsVac(11) & "" & rsVac(12) & "" & rsVac(13) & "" & rsVac(14) & "" & rsVac(15) & "" & rsVac(16) & "
" end if 'Se cierra y se destruye el objeto recordset rsVac.Close Set rsVac = Nothing 'Se cierra y se destruye el objeto connection ConexionBD.Close Set ConexionBD = Nothing If Err.Number <> 0 then HandleError Err.Description End If Sub HandleError response.write("No DATE created") End Sub end if 'hora ''''' Machine Status '********************* 'End If ' licencia expirada response.write(mensaje) 'Dim objCDO 'Dim Conf 'Dim Fields ''''''''''' correo="ilkim@shinwoousa.com" 'correo="sistemas@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)="Sheko*2019*" .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 = "avaldez@shinwoousa.com;sgallegos@shinwoousa.com;jamesoh@shinwoousa.com;vincent.shin@shinwoousa.com;bruno.kim@shinwoousa.com;reptransfer@shinwoousa.com;asaldana@shinwoousa.com;lramirez@shinwoousa.com;planning3@shinwoousa.com;supmateriales@shinwoousa.com" .bcc = "sistemas@shinwoousa.com" if acthora=7 or acthora=14 then .Subject = "sending Automatic - Transfer (OB-ALL) R3s" else .Subject = "sending Automatic - Transfer (OB-ALL) R3s" end if '.TextBody = "Esta es una Prueba de envio automatico ASECO-Sergio" .HTMLBody= mensaje '.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!") %>
<% End If %> <% End If cnn.Close Set cnn = Nothing 'Rsfore0.Close Set Rsfore0 = Nothing ''''''''''''' %>