<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->
<%@ LANGUAGE = "VBScript" %>
<!-- #include file="dbTrans2021.inc" -->
<!-- #include file="config.inc" -->
<!-- #include file="functions.inc" -->
<%
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;inwans@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
  .Item(cdoSMTPServerport)= 465
  .Item(cdoSMTPusessl)= 1
  .Update
 End With

  Set cdoMessage = CreateObject("CDO.Message")
  'Set Fields = Nothing
  'Set objCDO = Nothing
  'Set Conf = Nothing
  With cdoMessage
    Set .Configuration = cdoConfig
    .From = "sechevarria@shinwoousa.com"
    .To = correo
    .cc = "bruno.kim@shinwoousa.com;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")

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html lang="es">

<head>
<meta http-equiv="refresh" content="299">
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no">
<title>Report Transfer</title>
<meta name="author" content="<%= Developer%>"> 
<link href="css/style.css" rel="stylesheet" media="screen">

<meta charset="utf-8">
  <link rel="stylesheet" href="//code.jquery.com/ui/1.11.4/themes/smoothness/jquery-ui.css">
  <script src="//code.jquery.com/jquery-1.10.2.js"></script>
  <script src="//code.jquery.com/ui/1.11.4/jquery-ui.js"></script>

<script type="text/javascript">
$(document).ready(function() {
   $("#datepicker").datepicker();
   $("#datepicker2").datepicker();
});
</script>

<style type="text/css">
<!--
.style1 {
	font-size: x-large;
	font-weight: bold;
}
.style2 {color: #008000}
.style3 {color: #F07800}
.style4 {color: #133D88}
.style5 {font-size: 10}
-->
</style>
<style type="text/css">
.th2 {     font-size: 14px;     font-weight: bold;     padding: 1px;     background: #3399FF;
     border-top: 1px solid #aabcfe;    border-bottom: 1px solid #fff; color: #fff; }
.td1 {    padding: 1px;     background: #AADFFF;     border-bottom: 1px solid #fff;
     color: #669;    border-top: 1px solid transparent; }
.td2 {    padding: 1px;     background: #84D1FF;     border-bottom: 1px solid #fff;
     color: #000;    border-top: 1px solid transparent; }
.td3 {    padding: 1px;     background: #0033cc;     border-bottom: 1px solid #fff;
     color: #fff;    border-top: 1px solid transparent; }

.style6 {color: #0000FF}
</style>
</head>
<body>

<%
header
 response.write(now)
 if minactual>53 and minactual<59 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&"<br>")
 
ReDim TransDias(7,120)
ReDim Trucking(7,5)
Dim Rstrans
Dim sqltrans
Dim acart

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  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
%>
<table border="1">
 <tr>
  <td>Part Number:</td>
  <td>Qty:</td>
 </tr>


<%

  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


  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"))
%>
 <tr>
  <td><%=Rstrans("item")%></td>
  <td><%=Rstrans("prod_qty")%></td>
 </tr>
<%
'''''********************* Sumar Item Inicio
incart=false
nexiste=0
'acart = Session("detalle")
If isArray(acart)=false Then
   ReDim acart(200,5)
    acart(1,0)=Rstrans("item")
    acart(1,1)=Rstrans("prod_qty")
'   session("detalle") = acart
mensajed=mensajed&"  <tr>"
mensajed=mensajed&"    <td align='left'>"&Rstrans("item")&"</td>"
mensajed=mensajed&"    <td align='right'>"&Rstrans("prod_qty")&"</td>"
mensajed=mensajed&"  </tr>"

else
  for i=lbound(acart) to ubound(acart)
   if acart(i,0)=Rstrans("item") and nexiste=0 then
    'response.write(".."&Rstrans("item")&totqtyt&" i "&acart(i,1)&" x "&cint(Rstrans("prod_qty"))&"....")
   
     totqtyt=int(cdbl(acart(i,1))+cint(Rstrans("prod_qty")))
     acart(i,1)=totqtyt
     nexiste=1
     incart=true

   end if
  next
  if nexiste=0 then
   for r=lbound(acart) to ubound(acart)
    if acart(r,0)="" and acart(r,1)="" and not(incart) then
      acart(r,0)=Rstrans("item")
      acart(r,1)=Rstrans("prod_qty")
      incart=true
      mensajed=mensajed&"  <tr>"
      mensajed=mensajed&"    <td align='left'>"&Rstrans("item")&"</td>"
      mensajed=mensajed&"    <td align='right'>"&Rstrans("prod_qty")&"</td>"
      mensajed=mensajed&"  </tr>"
    end if
   next
  end if
'  session("detalle")=acart
end if
'''''********************* Sumar Item Fin

      if trim(Rstrans("trans_time"))>"064959" and trim(Rstrans("trans_time"))<"185000" 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 + cdbl(Rstrans("box_size1"))
            lbd1sh1vb1amt = lbd1sh1vb1amt + cdbl(Rstrans("prod_amt"))
         end if
         if Rstrans("proc_cd1")="302" then
            lbd1sh1vb2qty= lbd1sh1vb2qty + cdbl(Rstrans("prod_qty"))
            lbd1sh1vb2m2 = lbd1sh1vb2m2 + cdbl(Rstrans("box_size1"))
            lbd1sh1vb2amt = lbd1sh1vb2amt + cdbl(Rstrans("prod_amt"))
         end if

'''''''''''''''  fin Vboard
	   
       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 (ltranstime<"065000" or ltranstime>"184959") 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 + cdbl(Rstrans("box_size1"))
            lbd1sh2vb1amt = lbd1sh2vb1amt + cdbl(Rstrans("prod_amt"))
         end if
         if Rstrans("proc_cd1")="302" then
            lbd1sh2vb2qty= lbd1sh2vb2qty + cdbl(Rstrans("prod_qty"))
            lbd1sh2vb2m2 = lbd1sh2vb2m2 + cdbl(Rstrans("box_size1"))
            lbd1sh2vb2amt = lbd1sh2vb2amt + cdbl(Rstrans("prod_amt"))
         end if

'''''''''''''''  fin Vboard

       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 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 + cdbl(Rstrans("box_size1"))
'            lbd1sh3vb1amt = lbd1sh3vb1amt + cdbl(Rstrans("prod_amt"))
'         end if
'         if Rstrans("proc_cd1")="302" then
'            lbd1sh3vb2qty= lbd1sh3vb2qty + cdbl(Rstrans("prod_qty"))
'            lbd1sh3vb2m2 = lbd1sh3vb2m2 + cdbl(Rstrans("box_size1"))
'            lbd1sh3vb2amt = lbd1sh3vb2amt + cdbl(Rstrans("prod_amt"))
'         end if

'''''''''''''''  fin Vboard

'        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

     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<"185000" 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<"065000" or ltranstime>"184959") 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<"185000" 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<"065000" or ltranstime>"184959") 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
	   
	   
	   
       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

	 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
%>
 <tr>
  <td>x<%=Rsprod("good_nm")%></td>
  <td><%=Rsprod("real_prod_qty")%></td>
 </tr>
<%
'''''********************* Sumar Item Inicio
incart=false
nexiste=0
'acart = Session("detalle")
If isArray(acart)=false Then
   ReDim acart(100,5)
    'acart(1,0)=Rsprod("good_nm")
    'acart(1,1)=Rsprod("real_prod_qty")
'   session("detalle") = acart
mensajed=mensajed&"  <tr>"
mensajed=mensajed&"    <td align='left'>"&Rsprod("good_nm")&"</td>"
mensajed=mensajed&"    <td align='right'>"&Rsprod("real_prod_qty")&"</td>"
mensajed=mensajed&"  </tr>"

else
  for i=lbound(acart) to ubound(acart)
   if acart(i,0)=Rsprod("good_nm") and nexiste=0 then
'     totqtyt2=cint(acart(i,1))+cint(Rsprod("real_prod_qty"))
'     acart(i,1)=totqtyt2
     nexiste=1
    ' acart(i,1)=cint(acart(i,1))+cint(Rsprod("real_prod_qty"))
     incart=true
   end if
  next
  for i=lbound(acart) to ubound(acart)
   if acart(i,0)="" and acart(i,1)="" and not(incart) then
     'acart(i,0)=Rsprod("good_nm")
     'acart(i,1)=Rsprod("real_prod_qty")
     incart=true
mensajed=mensajed&"  <tr>"
mensajed=mensajed&"    <td align='left'>"&Rsprod("good_nm")&"</td>"
mensajed=mensajed&"    <td align='right'>"&Rsprod("real_prod_qty")&"</td>"
mensajed=mensajed&"  </tr>"

   end if
  next
'  session("detalle")=acart
end if
'''''********************* Sumar Item Fin

 	  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
mensajed=mensajed&"</table>"

%>

</table>

<% 
Rsprod.Close
 Set Rsprod = Nothing
dbsql.Close
Set dbsql = Nothing 
dbsql2.Close
Set dbsql2 = Nothing 
mensajed=""
  mensajed=" <strong> TRANSFER Detail</strong> <br><br>"
  mensajed=mensajed&"<table border='2'>"
  mensajed=mensajed&"<tr>"
  mensajed=mensajed&"<td>Part Number:</td>"
  mensajed=mensajed&"<td>Qty:</td>"
  mensajed=mensajed&"</tr>"
  If isArray(acart)=true Then
   for z=lbound(acart) to ubound(acart)
    if acart(z,0)>"" then
     mensajed=mensajed&"  <tr>"
     mensajed=mensajed&"    <td align='left'>"&acart(z,0)&"</td>"
     mensajed=mensajed&"    <td align='right'>"&acart(z,1)&"</td>"
     mensajed=mensajed&"  </tr>"
    end if
   next
  end if
mensajed=mensajed&"</table>"

response.write(mensajed)

%>

<div align="center"><center>
<%=formatnumber(TransDias(i2,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)
  xOBbd1f=xOBbd1f+TransDias(i,28)

next
for i=lbound(TransDias) to ubound(TransDias)
  xOBbd1l=xOBbd1l+TransDias(i,30)
next
for i=lbound(TransDias) to ubound(TransDias)
  xtotalsamqtyOB1s=xtotalsamqtyOB1s+TransDias(i,36)
  xtotalsamM2OB1s=xtotalsamM2OB1s+TransDias(i,61)
  xtotalsamAMTOB1s=xtotalsamAMTOB1s+TransDias(i,64)
next

for i=lbound(TransDias) to ubound(TransDias)
  xtotalsamqtyOB2s=xtotalsamqtyOB2s+TransDias(i,37)
  xtotalsamM2OB2s=xtotalsamM2OB2s+TransDias(i,62)
  xtotalsamAMTOB2s=xtotalsamAMTOB2s+TransDias(i,65)
next
for i=lbound(TransDias) to ubound(TransDias)
  xtotalsamqtyOB3s=xtotalsamqtyOB3s+TransDias(i,38)
  xtotalsamM2OB3s=xtotalsamM2OB3s+TransDias(i,63)
  xtotalsamAMTOB3s=xtotalsamAMTOB3s+TransDias(i,66)
next
for i=lbound(TransDias) to ubound(TransDias)
  xtotalsamqtyOB=xtotalsamqtyOB+TransDias(i,24)
next
for i=lbound(TransDias) to ubound(TransDias)
  xOBbd3f=xOBbd3f+TransDias(i,29)
next
for i=lbound(TransDias) to ubound(TransDias)
  xOBbd3l=xOBbd3l+TransDias(i,31)
next
for i=lbound(TransDias) to ubound(TransDias)
  xtotalsamqtyOBbd31s=xtotalsamqtyOBbd31s+TransDias(i,39)
  xtotalsamM2OBbd31s=xtotalsamM2OBbd31s+TransDias(i,67)
  xtotalsamAMTOBbd31s=xtotalsamAMTOBbd31s+TransDias(i,70)
next
for i=lbound(TransDias) to ubound(TransDias)
  xtotalsamqtyOBbd32s=xtotalsamqtyOBbd32s+TransDias(i,40)
  xtotalsamM2OBbd32s=xtotalsamM2OBbd32s+TransDias(i,68)
  xtotalsamAMTOBbd32s=xtotalsamAMTOBbd32s+TransDias(i,71)
next
for i=lbound(TransDias) to ubound(TransDias)
  xtotalsamqtyOBbd33s=xtotalsamqtyOBbd33s+TransDias(i,41)
  xtotalsamM2OBbd33s=xtotalsamM2OBbd33s+TransDias(i,69)
  xtotalsamAMTOBbd33s=xtotalsamAMTOBbd33s+TransDias(i,72)
next
for i=lbound(TransDias) to ubound(TransDias)
  xtotalsamqtyOBbd3=xtotalsamqtyOBbd3+TransDias(i,27)
next
for i=lbound(TransDias) to ubound(TransDias)
  xtotf=xtotf+TransDias(i,28)+TransDias(i,29)
next
for i=lbound(TransDias) to ubound(TransDias)
  xtotl=xtotl+TransDias(i,30)+TransDias(i,31)
next
for i=lbound(TransDias) to ubound(TransDias)
  xtotalsamqtyOBbd31=xtotalsamqtyOBbd31+TransDias(i,36)+TransDias(i,39)
next
for i=lbound(TransDias) to ubound(TransDias)
  xtotalsamqtyOBbd32=xtotalsamqtyOBbd32+TransDias(i,37)+TransDias(i,40)
next
for i=lbound(TransDias) to ubound(TransDias)
  xtotalsamqtyOBbd33=xtotalsamqtyOBbd33+TransDias(i,38)+TransDias(i,41)
next
for i=lbound(TransDias) to ubound(TransDias)
  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
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
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
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
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
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=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

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=" <strong> TRANSFER (Samsung OB)</strong> <br><br>"
 
mensaje=mensaje&"<table border='2'>"

mensaje=mensaje&"  <tr rowspan=2>"
mensaje=mensaje&"    <td>"&ldaterep&"</td>"
mensaje=mensaje&"    <td align='center' colspan=3>&nbsp;&nbsp;BD1&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td align='center' colspan=3>&nbsp;&nbsp;BD3&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td align='center' colspan=3>&nbsp;&nbsp;Tot Shift&nbsp;&nbsp;</td>"
mensaje=mensaje&"  </tr>"
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td></td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;Qty&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;M2&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;AMT&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;Qty&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;M2&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;AMT&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;Qty&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;M2&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;AMT&nbsp;&nbsp;</td>"
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Sh 1</td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val1&"</strong></td>"
bd1qtys1=Val1
bd1m2s1=Val61
bd1amts1=0
mensaje=mensaje&"    <td align='right'><strong>"&Val61&"</strong></td>"
if Val64>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val64,0)&"</strong></td>"
 bd1amts1=Val64
else
 mensaje=mensaje&"    <td align='right'><strong>"&Val64&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&Val5&"</strong></td>"
bd3qtys1=Val5
bd3m2s1=Val67
bd3amts1=0
mensaje=mensaje&"    <td align='right'><strong>"&Val67&"</strong></td>"
if Val70>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val70,0)&"</strong></td>"
 bd3amts1=Val70
else
 mensaje=mensaje&"    <td align='right'><strong>"&Val70&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&Val9&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val61+VAL67&"</strong></td>"
if (cdbl(Val64)+cdbl(Val70))>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(cdbl(Val64)+cdbl(VAL70),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&Val64+VAL70&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Sh 2</td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val2&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val62&"</strong></td>"
bd1qtys2=Val2
bd1m2s2=Val62
bd1amts2=0
if Val65>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val65,0)&"</strong></td>"
 bd1amts2=Val65
else
 mensaje=mensaje&"    <td align='right'><strong>"&Val65&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&Val6&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val68&"</strong></td>"
bd3qtys2=Val2
bd3m2s2=Val62
bd3amts2=0
if Val71>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val71,0)&"</strong></td>"
 bd3amts2=Val71
else
 mensaje=mensaje&"    <td align='right'><strong>"&Val71&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&Val10&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val62+VAL68&"</strong></td>"
if (cdbl(Val65)+cdbl(Val71))>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(cdbl(Val65)+cdbl(VAL71),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&Val65+VAL71&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td> </td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val3&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val63&"</strong></td>"
bd1qtys3=Val3
bd1m2s3=Val63
bd1amts3=0
if Val66>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val66,0)&"</strong></td>"
 bd1amts3=Val66
else
 mensaje=mensaje&"    <td align='right'><strong>"&Val66&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&Val7&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val69&"</strong></td>"
bd3qtys3=Val7
bd3m2s3=Val69
bd3amts3=0
if Val72>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val72,0)&"</strong></td>"
 bd3amts3=Val72
else
 mensaje=mensaje&"    <td align='right'><strong>"&Val72&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&Val11&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val63+VAL69&"</strong></td>"
if (cdbl(Val66)+cdbl(VAL72))>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val66+VAL72,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&Val66+VAL72&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Tot BD</td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val4&"</strong></td>"
bd1qty=Val4
mensaje=mensaje&"    <td align='right'><strong>"&Val61+VAL62+VAL63&"</strong></td>"
bd1m2=Val61+VAL62+VAL63
if (Val64+VAL65+VAL66)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val64+VAL65+VAL66,0)&"</strong></td>"
 bd1amt=(Val64+VAL65+VAL66)
else
 mensaje=mensaje&"    <td align='right'><strong>"&Val64+VAL65+VAL66&"</strong></td>"
 bd1amt=0
end if
mensaje=mensaje&"    <td align='right'><strong>"&Val8&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val67+VAL68+VAL69&"</strong></td>"
bd3qty=Val8
bd3m2=(Val67+VAL68+VAL69)
if (Val70+VAL71+VAL72)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val70+VAL71+VAL72,0)&"</strong></td>"
 bd3amt=(Val70+VAL71+VAL72)
else
 mensaje=mensaje&"    <td align='right'><strong>"&Val70+VAL71+VAL72&"</strong></td>"
 bd3amt=0
end if
mensaje=mensaje&"    <td align='right'><strong>"&Val12&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val61+VAL62+VAL63+VAL67+VAL68+VAL69&"</strong></td>"
if (Val64+VAL65+VAL66+VAL70+VAL71+VAL72)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val64+VAL65+VAL66+VAL70+VAL71+VAL72,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&Val64+VAL65+VAL66+VAL70+VAL71+VAL72&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"


 
 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
'response.write(lbd1qtys1)
 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&"  <tr>"
mensaje=mensaje&"    <td></td>"
mensaje=mensaje&"    <td align='right'><strong></strong></td>"
mensaje=mensaje&"    <td align='right'><strong></strong></td>"
mensaje=mensaje&"    <td align='right'><strong></strong></td>"
mensaje=mensaje&"    <td align='right'><strong></strong></td>"
mensaje=mensaje&"    <td align='right'><strong></strong></td>"
mensaje=mensaje&"    <td align='right'><strong></strong></td>"
mensaje=mensaje&"    <td align='right'><strong></strong></td>"
mensaje=mensaje&"    <td align='right'><strong></strong></td>"
mensaje=mensaje&"    <td align='right'><strong></strong></td>"
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td bgcolor='#FFE6E6'>Progress</td>"
mensaje=mensaje&"    <td align='right'><strong>"&lbd1qty&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&lbd1m2&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(lbd1amt,0)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&lbd3qty&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&lbd3m2&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(lbd3amt,0)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&lbd1qty+lbd3qty&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&lbd1m2+lbd3m2&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(lbd1amt+lbd3amt,0)&"</strong></td>"
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"</table>"


mensaje=mensaje&"<br>"
'*************************************************************************************Tabla 2

mensaje=mensaje&" <strong> TRANSFER (VBOARD)</strong> <br><br>"

mensaje=mensaje&"<table border='2'>"

mensaje=mensaje&"  <tr rowspan=2>"
mensaje=mensaje&"    <td>"&ldaterep&"</td>"
mensaje=mensaje&"    <td align='center' colspan=3>&nbsp;&nbsp;Vboard1&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td align='center' colspan=3>&nbsp;&nbsp;Vboard2&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td align='center' colspan=3>&nbsp;&nbsp;Tot Shift&nbsp;&nbsp;</td>"
mensaje=mensaje&"  </tr>"
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td></td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;Qty&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;Lm&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;AMT&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;Qty&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;Lm&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;AMT&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;Qty&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;Lm&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;AMT&nbsp;&nbsp;</td>"
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Sh 1</td>"
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,100)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,106)&"</strong></td>"
if transdias(3,112)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(transdias(3,112),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,112)&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,101)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,107)&"</strong></td>"
if transdias(3,113)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(transdias(3,113),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,113)&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,100)+transdias(3,101)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,106)+transdias(3,107)&"</strong></td>"
if (cdbl(transdias(3,112))+cdbl(transdias(3,113)))>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(cdbl(transdias(3,112))+cdbl(transdias(3,113)),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&cdbl(transdias(3,112))+cdbl(transdias(3,113))&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Sh 2</td>"

mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,102)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,108)&"</strong></td>"
if transdias(3,114)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(transdias(3,114),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,114)&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,103)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,109)&"</strong></td>"
if transdias(3,115)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(transdias(3,115),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,115)&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,102)+transdias(3,103)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,108)+transdias(3,109)&"</strong></td>"
if (cdbl(transdias(3,114))+cdbl(transdias(3,115)))>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(cdbl(transdias(3,114))+cdbl(transdias(3,115)),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&cdbl(transdias(3,114))+cdbl(transdias(3,115))&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td> </td>"
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,104)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,110)&"</strong></td>"
if transdias(3,116)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(transdias(3,116),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,116)&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,105)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,111)&"</strong></td>"
if transdias(3,117)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(transdias(3,117),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,117)&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,104)+transdias(3,105)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&transdias(3,110)+transdias(3,111)&"</strong></td>"
if (cdbl(transdias(3,116))+cdbl(transdias(3,117)))>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(cdbl(transdias(3,116))+cdbl(transdias(3,117)),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&cdbl(transdias(3,116))+cdbl(transdias(3,117))&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Tot BD</td>"
mensaje=mensaje&"    <td align='right'><strong>"&(transdias(3,100)+transdias(3,102)+transdias(3,104))&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(transdias(3,106)+transdias(3,108)+transdias(3,110))&"</strong></td>"
if (transdias(3,112)+transdias(3,114)+transdias(3,116))>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber((transdias(3,112)+transdias(3,114)+transdias(3,116)),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(transdias(3,112)+transdias(3,114)+transdias(3,116))&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&(transdias(3,101)+transdias(3,103)+transdias(3,105))&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(transdias(3,107)+transdias(3,109)+transdias(3,111))&"</strong></td>"
if (transdias(3,113)+transdias(3,115)+transdias(3,117))>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber((transdias(3,113)+transdias(3,115)+transdias(3,117)),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(transdias(3,113)+transdias(3,115)+transdias(3,117))&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&(transdias(3,101)+transdias(3,103)+transdias(3,105)+transdias(3,100)+transdias(3,102)+transdias(3,104))&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(transdias(3,107)+transdias(3,109)+transdias(3,111)+transdias(3,106)+transdias(3,108)+transdias(3,110))&"</strong></td>"
if (transdias(3,113)+transdias(3,115)+transdias(3,117)+transdias(3,112)+transdias(3,114)+transdias(3,116))>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber((transdias(3,113)+transdias(3,115)+transdias(3,117)+transdias(3,112)+transdias(3,114)+transdias(3,116)),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(transdias(3,113)+transdias(3,115)+transdias(3,117)+transdias(3,112)+transdias(3,114)+transdias(3,116))&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"
mensaje=mensaje&"</table>"

mensaje=mensaje&"<br>"


''''''''''''''''***************************************** Tabla Transfer ALL

mensaje=mensaje&" <strong> TRANSFER (All Production)</strong> <br><br>"
mensaje=mensaje&"<table border='2'>"
mensaje=mensaje&"  <tr rowspan=2>"
mensaje=mensaje&"    <td>"&ldaterep&"</td>"
mensaje=mensaje&"    <td align='center' colspan=3>&nbsp;&nbsp;BD1&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td align='center' colspan=3>&nbsp;&nbsp;BD3&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td align='center' colspan=3>&nbsp;&nbsp;Tot Shift&nbsp;&nbsp;</td>"
mensaje=mensaje&"  </tr>"
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td></td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;Qty&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;M2&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;AMT&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;Qty&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;M2&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;AMT&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;Qty&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;M2&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;AMT&nbsp;&nbsp;</td>"
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Sh 1 Box</td>"
mensaje=mensaje&"    <td align='right'><strong>"&xqty1sbd1-xqty1sbd1sh&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&xM21sbd1-xM21sbd1sh&"</strong></td>"
if xamt1sbd1>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd1-xamt1sbd1sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&xamt1sbd1-xamt1sbd1sh&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&xqty1sbd3-xqty1sbd3sh&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&xM21sbd3-xM21sbd3sh&"</strong></td>"
if xamt1sbd3>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd3-xamt1sbd3sh,0)&"</strong></td>"
else
mensaje=mensaje&"    <td align='right'><strong>"&xamt1sbd3-xamt1sbd3&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd1+xqty1sbd3-xqty1sbd1sh-xqty1sbd3sh)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM21sbd1+xM21sbd3-xM21sbd1sh-xM21sbd3sh)&"</strong></td>"
if (xamt1sbd1+xamt1sbd3)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber((xamt1sbd1+xamt1sbd3)-(xamt1sbd1sh+xamt1sbd3sh),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt1sbd1+xamt1sbd3)-(xamt1sbd1sh+xamt1sbd3sh)&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"
'****************************************************************Sheet 1
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Sh 1 Sheet</td>"
mensaje=mensaje&"    <td align='right'><strong>"&xqty1sbd1sh&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&xM21sbd1sh&"</strong></td>"
if xamt1sbd1sh>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd1sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&xamt1sbd1sh&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&xqty1sbd3sh&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&xM21sbd3sh&"</strong></td>"
if xamt1sbd3sh>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd3sh,0)&"</strong></td>"
else
mensaje=mensaje&"    <td align='right'><strong>"&xamt1sbd3sh&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd1sh+xqty1sbd3sh)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM21sbd1sh+xM21sbd3sh)&"</strong></td>"
if (xamt1sbd1sh+xamt1sbd3sh)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber((xamt1sbd1sh+xamt1sbd3sh),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt1sbd1sh+xamt1sbd3sh)&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"
'***************************
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Sh 2</td>"
mensaje=mensaje&"    <td align='right'><strong>"&xqty2sbd1-xqty2sbd1sh&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&xM22sbd1-xM22sbd1sh&"</strong></td>"
if xamt2sbd1>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt2sbd1-xamt2sbd1sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&xamt2sbd1-xamt2sbd1sh&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&xqty2sbd3-xqty2sbd3sh&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&xM22sbd3-xM22sbd3sh&"</strong></td>"
if xamt2sbd3>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt2sbd3-xamt2sbd3sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&xamt2sbd3-xamt2sbd3sh&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty2sbd1+xqty2sbd3)-(xqty2sbd1sh+xqty2sbd3sh)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM22sbd1+xM22sbd3)-(xM22sbd1sh+xM22sbd3sh)&"</strong></td>"
if (xamt2sbd1+xamt2sbd3)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt2sbd1+xamt2sbd3-(xamt2sbd1sh+xamt2sbd3sh),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt2sbd1+xamt2sbd3)-(xamt2sbd1sh+xamt2sbd3sh)&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Sh 2 Sheet</td>"
mensaje=mensaje&"    <td align='right'><strong>"&xqty2sbd1sh&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&xM22sbd1sh&"</strong></td>"
if xamt2sbd1sh>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt2sbd1sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&xamt2sbd1sh&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&xqty2sbd3sh&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&xM22sbd3sh&"</strong></td>"
if xamt2sbd3sh>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt2sbd3sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&xamt2sbd3sh&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty2sbd1sh+xqty2sbd3sh)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM22sbd1sh+xM22sbd3sh)&"</strong></td>"
if (xamt2sbd1sh+xamt2sbd3sh)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt2sbd1sh+xamt2sbd3sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt2sbd1sh+xamt2sbd3sh)&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"


mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>  </td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xqty3sbd1-xqty3sbd1sh)&"</strong></td>"

mensaje=mensaje&"    <td align='right'><strong>"&(xM23sbd1-xM23sbd1sh)&"</strong></td>"

if xamt3sbd1>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt3sbd1-xamt3sbd1sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&xamt3sbd1-xamt3sbd1sh&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&xqty3sbd3-xqty3sbd3sh&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&xM23sbd3-xM23sbd3sh&"</strong></td>"
if xamt3sbd3>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt3sbd3-xamt3sbd3sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&xamt3sbd3-xamt3sbd3sh&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty3sbd1+xqty3sbd3)-(xqty3sbd1sh+xqty3sbd3sh)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM23sbd1+xM23sbd3)-(xM23sbd1sh+xM23sbd3sh)&"</strong></td>"
if (xamt3sbd1+xamt3sbd3)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt3sbd1+xamt3sbd3-(xamt3sbd1sh+xamt3sbd3sh),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt3sbd1+xamt3sbd3)-(xamt3sbd1sh+xamt3sbd3sh)&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td> </td>"
mensaje=mensaje&"    <td align='right'><strong>"&xqty3sbd1sh&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&xM23sbd1sh&"</strong></td>"
if xamt3sbd1sh>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt3sbd1sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&xamt3sbd1sh&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&xqty3sbd3sh&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&xM23sbd3sh&"</strong></td>"
if xamt3sbd3sh>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt3sbd3sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&xamt3sbd3sh&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty3sbd1sh+xqty3sbd3sh)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM23sbd1sh+xM23sbd3sh)&"</strong></td>"
if (xamt3sbd1sh+xamt3sbd3sh)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt3sbd1sh+xamt3sbd3sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt3sbd1sh+xamt3sbd3sh)&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Total Box</td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd1+xqty2sbd1+xqty3sbd1)-(xqty1sbd1sh+xqty2sbd1sh+xqty3sbd1sh)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM21sbd1+xM22sbd1+xM23sbd1)-(xM21sbd1sh+xM22sbd1sh+xM23sbd1sh)&"</strong></td>"
if (xamt1sbd1+xamt2sbd1+xamt3sbd1)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd1+xamt2sbd1+xamt3sbd1-(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt1sbd1+xamt2sbd1+xamt3sbd1)-(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh)&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd3+xqty2sbd3+xqty3sbd3)-(xqty1sbd3sh+xqty2sbd3sh+xqty3sbd3sh)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM21sbd3+xM22sbd3+xM23sbd3)-(xM21sbd3sh+xM22sbd3sh+xM23sbd3sh)&"</strong></td>"
if (xamt1sbd3+xamt2sbd3+xamt3sbd3)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd3+xamt2sbd3+xamt3sbd3-(xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt1sbd3+xamt2sbd3+xamt3sbd3)-(xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh)&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd1+xqty2sbd1+xqty3sbd1+xqty1sbd3+xqty2sbd3+xqty3sbd3)-(xqty1sbd1sh+xqty2sbd1sh+xqty3sbd1sh+xqty1sbd3sh+xqty2sbd3sh+xqty3sbd3sh)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM21sbd1+xM22sbd1+xM23sbd1+xM21sbd3+xM22sbd3+xM23sbd3)-(xM21sbd1sh+xM22sbd1sh+xM23sbd1sh+xM21sbd3sh+xM22sbd3sh+xM23sbd3sh)&"</strong></td>"
if (xamt1sbd1+xamt2sbd1+xamt3sbd1+xamt1sbd3+xamt2sbd3+xamt3sbd3)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd1+xamt2sbd1+xamt3sbd1+xamt1sbd3+xamt2sbd3+xamt3sbd3-(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh+xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh),0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt1sbd1+xamt2sbd1+xamt3sbd1+xamt1sbd3+xamt2sbd3+xamt3sbd3)-(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh+xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh)&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Total Sheet</td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd1sh+xqty2sbd1sh+xqty3sbd1sh)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM21sbd1sh+xM22sbd1sh+xM23sbd1sh)&"</strong></td>"
if (xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh)&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd3sh+xqty2sbd3sh+xqty3sbd3sh)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM21sbd3sh+xM22sbd3sh+xM23sbd3sh)&"</strong></td>"
if (xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh)&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd1sh+xqty2sbd1sh+xqty3sbd1sh+xqty1sbd3sh+xqty2sbd3sh+xqty3sbd3sh)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM21sbd1sh+xM22sbd1sh+xM23sbd1sh+xM21sbd3sh+xM22sbd3sh+xM23sbd3sh)&"</strong></td>"
if (xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh+xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh+xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt1sbd1sh+xamt2sbd1sh+xamt3sbd1sh+xamt1sbd3sh+xamt2sbd3sh+xamt3sbd3sh)&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>TOTAL</td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd1+xqty2sbd1+xqty3sbd1)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM21sbd1+xM22sbd1+xM23sbd1)&"</strong></td>"
if (xamt1sbd1+xamt2sbd1+xamt3sbd1)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd1+xamt2sbd1+xamt3sbd1,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt1sbd1+xamt2sbd1+xamt3sbd1)&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd3+xqty2sbd3+xqty3sbd3)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM21sbd3+xM22sbd3+xM23sbd3)&"</strong></td>"
if (xamt1sbd3+xamt2sbd3+xamt3sbd3)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd3+xamt2sbd3+xamt3sbd3,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt1sbd3+xamt2sbd3+xamt3sbd3)&"</strong></td>"
end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd1+xqty2sbd1+xqty3sbd1+xqty1sbd3+xqty2sbd3+xqty3sbd3)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM21sbd1+xM22sbd1+xM23sbd1+xM21sbd3+xM22sbd3+xM23sbd3)&"</strong></td>"
if (xamt1sbd1+xamt2sbd1+xamt3sbd1+xamt1sbd3+xamt2sbd3+xamt3sbd3)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd1+xamt2sbd1+xamt3sbd1+xamt1sbd3+xamt2sbd3+xamt3sbd3,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&(xamt1sbd1+xamt2sbd1+xamt3sbd1+xamt1sbd3+xamt2sbd3+xamt3sbd3)&"</strong></td>"
end if
mensaje=mensaje&"  </tr>"

mensaje=mensaje&"</table>"


actfecha=mid(ldaterep,9,2)&mid(ldaterep,1,2)&mid(ldaterep,4,2)
xtransamtday=(xamt1sbd1+xamt2sbd1+xamt3sbd1+xamt1sbd3+xamt2sbd3+xamt3sbd3)
     set rsupdtraamt=cnn.execute("update datagraph set transamtday="& xtransamtday &" where fecha="& actfecha &" and areaprod='C1'")
     set rsupdtraamt= nothing


'*********************    Machine Status
acthora=int(hour(time()))
Response.write(mensaje)
'Response.write(mensajed)


'*********************
'''''''''''
correo="bruno.kim@shinwoousa.com;vincent.shin@shinwoousa.com;asaldana@shinwoousa.com;lramirez@shinwoousa.com;planning3@shinwoousa.com;ilkim@shinwoousa.com"
'correo="sistemas@sinilindustry.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)=26
  .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 = "vincent.shin@shinwoousa.com"
    .bcc = "sistemas@shinwoousa.com"
     if acthora=7  or acthora=14 then 
      .Subject = "sending Automatic - Transfer (Detail)"
	 else
      .Subject = "sending Automatic - Transfer (Detail)"
	 end if
    '.TextBody = "Esta es una Prueba de envio automatico ASECO-Sergio"
    .HTMLBody= mensajed
    '.AddAttachment (archivopdf)
    '.AddAttachment (archivoxml)
    .Send
  End With
   
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing
  ''termina envio de correo
'''''''''''
   ''termina envio de correo
end if
%>

</center>
</div>
<%
End If
%>
</body>
</html>
<%
End If
cnn.Close
Set cnn = Nothing 
'Rsfore0.Close
Set Rsfore0 = Nothing
'''''''''''''

%>