<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->
<%@ LANGUAGE = "VBScript" %>
<!-- #include file="db1.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)

 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
  
 '************** Transfer
 
 strday = Right("00" & Day(date), 2)

 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))
  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)
  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)
  lfecinicial=CStr(right("00"&year(date),4)+right("00"&month(date),2) + "01")
end if
lfecinicio="20170501"
'lfecfinal="20170511"


'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="3600">
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>Report Transfer</title>

<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
if busca="" or busca=null then
 origen=doc
end if

d="/"    
ctipomov1="FACTURA"
ctipomov2="REMISION"
sla="/"    
cero1="00"
cero2="0000"

 'lfecinicio= "20160501"
 'lfecfinal=  "20160601"
 'lfecinicial="20160501"
 response.write("FROM: "&lfecinicio&" ")
 'response.write(lfecinicio&" ")
 response.write("TO: "&lfecfinal&"<br>")
 
ReDim TransDias(7,80)
ReDim Trucking(7,5)
Dim Rstrans
Dim sqltrans

set Rstrans=dbsql2.execute("select right(a.trans_date,6) trans_date, a.cust_cd,   	 (select cust_nm from stb010t(nolock) where cust_cd = b.cust_cd) cust_nm,       b.good_nm,		 dbo.usf_no('C', '1', a.ord_date, a.ord_seq, '-')  ord_no,       a.pallet_cnt,       case a.prod_qty when 0 then a.plan_qty else a.prod_qty end  prod_qty,       case a.trans_class when '0' then '1S'   when '1' then '2S'  when '2' then '3S' end work_gubun,   case isnull(a.loc_no,'') when '' then '' else (select code_nm from sta010t(nolock) where major_cd = '9160' and minor_cd = a.loc_no) end loc_no,       a.trans_time,       right(a.prt_date,6) prt_day,       1 cnt,       isnull(b.po_no,'') po_no, b.good_price  from bar_code a(nolock), ooa010t b(nolock)	where a.crp_id           = b.crp_id   and a.goods_class      = b.goods_class   and a.ord_date         = b.ord_date   and a.ord_seq          = b.ord_seq   and a.chk_bit          = '1'   and a.trans_date between '" & lfecinicio & "'  and '" & lfecfinal & "' 	order by a.trans_date, b.cust_cd, b.good_nm, dbo.usf_no('C', '1', a.ord_date, a.ord_seq, '-'), 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
  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

  Rstrans.MoveFirst
    'ltransdate1=Rstrans("prod_date")
	'ltranstime1=Rstrans("trans_time")
	ltransdate1=Rstrans("trans_date")
	ltranstime1=Rstrans("trans_time")
	lcte=0
	'response.write("hora: "&Rstrans("trans_time"))
	%>
	<table width="900" border="1">
  <tr>
    <td>Trans Date</td>
    <td>Customer</td>
    <td>Item</td>
    <td>Qty</td>
    <td>Price</td>
	<td>Subtotal</td>
  </tr>


	
	<%
	
llocal_cd="A"
  Do While Not Rstrans.EOF

 	 ltranstime=Rstrans("trans_time")
     'lqtyinven = lqtyinven + cdbl(Rstrans("jego_qty"))
	 'lamtinven = lamtinven + cdbl(Rstrans("price"))
      'localm2=cdbl(Rstrans("prod_m2"))
	  localm2=0
      lTotalQty = lTotalQty+ cdbl(Rstrans("prod_qty"))
      lTotalM2 = lTotalM2 + cdbl(localm2)
      lTotalAmt = lTotalAmt+ (cdbl(Rstrans("prod_qty"))*cdbl(Rstrans("good_price")))
	 litemclass="00"

     
     'lm2inven = lm2inven + cdbl(localm2)
	 'litemclass=Rstrans("item_class")

      'if ltranstime>"064959" and ltranstime<"152000" then
	  if Rstrans("work_gubun")="1S" then
	   'lsamsungqty1s=lsamsungqty1s+ cdbl(Rstrans("prod_qty"))
	   'lsamsungm21s= lsamsungm21s+ cdbl(localm2)
       lqty1s=lqty1s+ cdbl(Rstrans("prod_qty"))
	   lm21s= lm21s+ cdbl(localm2)
	   
       if llocal_cd="A" then
         lqty1sbd1=lqty1sbd1+ cdbl(Rstrans("prod_qty"))
         lm21sbd1= lm21sbd1+ cdbl(localm2)
		 lamtb1s1= lamtb1s1+ (cdbl(Rstrans("prod_qty"))*cdbl(Rstrans("good_price")))
       else
         lqty1sbd3=lqty1sbd3+ cdbl(Rstrans("prod_qty"))
         lm21sbd3= lm21sbd3+ cdbl(localm2)
		 lamtb3s1= lamtb3s1+ (cdbl(Rstrans("prod_qty"))*cdbl(Rstrans("good_price")))
       end if
	  end if
	  'if ltranstime>"151959" and ltranstime<"232000" then
	  if Rstrans("work_gubun")="2S" then
	   'lsamsungqty2s=lsamsungqty2s+ cdbl(Rstrans("prod_qty"))
	   'lsamsungm22s= lsamsungm22s+ cdbl(localm2)
       lqty2s=lqty2s+ cdbl(Rstrans("prod_qty"))
	   lm22s= lm22s+ cdbl(localm2)
       if llocal_cd="A" then
         lqty2sbd1=lqty2sbd1+ cdbl(Rstrans("prod_qty"))
         lm22sbd1= lm22sbd1+ cdbl(localm2)
		 lamtb1s2= lamtb1s2+ (cdbl(Rstrans("prod_qty"))*cdbl(Rstrans("good_price")))
       else
         lqty2sbd3=lqty2sbd3+ cdbl(Rstrans("prod_qty"))
         lm22sbd3= lm22sbd3+ cdbl(localm2)
         lamtb3s2= lamtb3s2+ (cdbl(Rstrans("prod_qty"))*cdbl(Rstrans("good_price")))
       end if
	  end if
	  'if ltranstime>"231959" then
	  'if Rstrans("work_gubun")="3S" then
      ' lqty4s=lqty4s+ cdbl(Rstrans("prod_qty"))
	  ' lm24s= lm24s+ cdbl(localm2)
	  ' lshift=4
      '  if local_cd="A" then
      '   lqty3sbd1=lqty3sbd1+ cdbl(Rstrans("prod_qty"))
      '   lm23sbd1= lm23sbd1+ cdbl(localm2)
	'	 lamtb1s3= lamtb1s3+ (cdbl(Rstrans("prod_qty"))*cdbl(Rstrans("good_price")))
    '   else
    '     lqty1sbd3=lqty1sbd3+ cdbl(Rstrans("prod_qty"))
    '     lm21sbd3= lm21sbd3+ cdbl(localm2)
    '     lamtb3s3= lamtb3s3+ (cdbl(Rstrans("prod_qty"))*cdbl(Rstrans("good_price")))
    '   end if
	'  end if
	  'if ltranstime<"065000" then
	  if Rstrans("work_gubun")="3S" then
	   lshift=3
	   'lsamsungqty3s=lsamsungqty3s+ cdbl(Rstrans("prod_qty"))
	   'lsamsungm23s= lsamsungm23s+ cdbl(localm2)
       lqty3s=lqty3s+ cdbl(Rstrans("prod_qty"))
	   lm23s= lm23s+ cdbl(localm2)
       if llocal_nm="A" then
         lqty3sbd1=lqty3sbd1+ cdbl(Rstrans("prod_qty"))
         lm23sbd1= lm23sbd1+ cdbl(localm2)
		 lamtb1s3= lamtb1s3+ (cdbl(Rstrans("prod_qty"))*cdbl(Rstrans("good_price")))
       else
         lqty3sbd3=lqty3sbd3+ cdbl(Rstrans("prod_qty"))
         lm23sbd3= lm23sbd3+ cdbl(localm2)
         lamtb3s3= lamtb3s3+ (cdbl(Rstrans("prod_qty"))*cdbl(Rstrans("good_price")))
       end if
	  end if

     if Rstrans("cust_cd")="99999" then     'CTE
       lcte=1
	   lsamsungqty=lsamsungqty+ cdbl(Rstrans("prod_qty"))
       lsamsungm2= lsamsungm2+ cdbl(localm2)
       lsamsungamt= lsamsungamt+ (cdbl(Rstrans("prod_qty"))*cdbl(Rstrans("good_price")))
	   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='BN69-15907B-00/65MU7000'")
       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 llocal_cd="A" 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_qty"))*cdbl(Rstrans("good_price")))
				 
               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_qty"))*cdbl(Rstrans("good_price")))
				 
               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_qty"))*cdbl(Rstrans("good_price")))
				 
               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_qty"))*cdbl(Rstrans("good_price")))
				 
               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_qty"))*cdbl(Rstrans("good_price")))
				 
               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_qty"))*cdbl(Rstrans("good_price")))
				 
               end if

             end if
             lOBxM2 = lOBxM2 + cdbl(localm2)
	         lOBxAmt =lOBxAmt + (cdbl(Rstrans("prod_qty"))*cdbl(Rstrans("good_price")))
             
             litemx=rsinven2("Note_5")
		 
	     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_qty"))*cdbl(Rstrans("good_price")))
       litemx="No samsung"
     end if     'CTE
 
 %>
  <tr>
    <td><%=Rstrans("trans_date")%></td>
    <td><%=Rstrans("cust_nm")%></td>
    <td><%=Rstrans("good_nm")%></td>
    <td><%=Rstrans("prod_qty")%></td>
    <td><%=Rstrans("good_price")%></td>
	<td><%=cdbl(Rstrans("prod_qty"))*cdbl(Rstrans("good_price"))%></td>
  </tr>
<%
     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
	   
       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
	 else
	  
	 end if
   'end if

  Loop
 End If
Rstrans.Close
 Set Rstrans = Nothing
 
 %>
   <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
	<td>&nbsp;</td>
  </tr>
</table>

 
 <%
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)
 
'Rsprod.Close
 Set Rsprod = Nothing
dbsql.Close
Set dbsql = Nothing 
dbsql2.Close
Set dbsql2 = Nothing 
dbsql3.Close
Set dbsql3 = Nothing 

%>

<div align="center"><center>
 
<span class="style1 style6"> TRANSFER OFFSET (by day) </span>
<%=formatnumber(TransDias(i,29),0)%>
<table border="2">
  <tr bgcolor="#C1FFC1">
    <th colspan="2" bgcolor="#FF8000" scope="col"><%=MonthName(Month(Date), False) %>&nbsp;Generated: <%=time%></th>
    <% 
xnumerodias=0
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#C1FFC1"><div align="center"><%=TransDias(i,0)%></div></th>
    <th width="101" scope="col" bgcolor="#FFD2D2">M2</th>
    <th width="101" scope="col" bgcolor="#FFD2D2">AMT</th>
    <% 
 if TransDias(i,0)>0 then
  xnumerodias=xnumerodias+1
 end if
next
xnumerodias=1
%>
    <th width="101" bgcolor="#C1FFC1"  scope="col"><div align="center">TOTAL</div></th>
    <th width="67" bgcolor="#C1FFC1"  scope="col"><div align="center">AVG</div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#FFFFB0" align="right">Samsung VB</th>
    <th scope="col" bgcolor="#FFFFB0">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFB0"><div align="right"><%=formatnumber(TransDias(i,21),0)%></div></th>
    <th width="101" scope="col" bgcolor="#FFD2D2"></th>
    <th width="101" scope="col" bgcolor="#FFD2D2"></th>
    <%
  xtotalsamq1=xtotalsamq1+TransDias(i,21)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamq1,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamq1/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#FFFFB0" align="right">Samsung Others </th>
    <th scope="col" bgcolor="#FFFFB0">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFB0"><div align="right"><%=formatnumber(TransDias(i,22),0)%></div></th>
    <th width="101" scope="col" bgcolor="#FFD2D2">.</th>
    <th width="101" scope="col" bgcolor="#FFD2D2">.</th>
    <%
  xstotalsamq1=xstotalsamq1+TransDias(i,22)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xstotalsamq1,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xstotalsamq1/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th valign="middle" rowspan="18" width="94" scope="col" bgcolor="#FFB7B7">Samsung O/B QTY</th>
    <th valign="middle" bgcolor="#FFB7B7" scope="col">BD 1 Prod F </th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
 if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(TransDias(i,28),0)%></div></th>
    <th width="101" scope="col" bgcolor="#FFD2D2">.</th>
    <th width="101" scope="col" bgcolor="#FFD2D2">.</th>
    <%else%>
    <th width="101" scope="col" bgcolor="#FFD2D2"><div align="right"> <%=formatnumber(TransDias(i,28),0)%></div></th>
    <%
end if
  xOBbd1f=xOBbd1f+TransDias(i,28)
 
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xOBbd1f,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xOBbd1f/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th valign="middle" bgcolor="#FFB7B7" scope="col">BD 1 Prod L</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
 if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(TransDias(i,30),0)%></div></th>
    <th width="101" scope="col" bgcolor="#FFD2D2">.</th>
    <th width="101" scope="col" bgcolor="#FFD2D2">.</th>
    <%else%>
    <th width="101" scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(TransDias(i,30),0)%></div></th>
    <%
end if
  xOBbd1l=xOBbd1l+TransDias(i,30)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xOBbd1l,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xOBbd1l/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th bgcolor="#CCFFE6" scope="col"><div align="right">T 1S</div></th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,36),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,61),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,64),0)%></div></th>
    <%else%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,36),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,61),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,64),0)%></div></th>
    <%

end if
  xtotalsamqtyOB1s=xtotalsamqtyOB1s+TransDias(i,36)
  xtotalsamM2OB1s=xtotalsamM2OB1s+TransDias(i,61)
  xtotalsamAMTOB1s=xtotalsamAMTOB1s+TransDias(i,64)
next

%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOB1s,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOB1s/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#CCFFE6"><div align="right">T 2S</div></th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,37),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,62),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,65),0)%></div></th>
    <%else%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,37),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,62),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,65),0)%></div></th>
    <%
end if
  xtotalsamqtyOB2s=xtotalsamqtyOB2s+TransDias(i,37)
  xtotalsamM2OB2s=xtotalsamM2OB2s+TransDias(i,62)
  xtotalsamAMTOB2s=xtotalsamAMTOB2s+TransDias(i,65)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOB2s,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOB2s/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#CCFFE6"><div align="right">T 3S</div></th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,38),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,63),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,66),0)%></div></th>
    <%else%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,38),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,63),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,66),0)%></div></th>
    <%
end if
  xtotalsamqtyOB3s=xtotalsamqtyOB3s+TransDias(i,38)
  xtotalsamM2OB3s=xtotalsamM2OB3s+TransDias(i,63)
  xtotalsamAMTOB3s=xtotalsamAMTOB3s+TransDias(i,66)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOB3s,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOB3s/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th width="73" scope="col" bgcolor="#CCFFE6">BD 1 Trans </th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,24),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,61)+TransDias(i,62)+TransDias(i,63),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,64)+TransDias(i,65)+TransDias(i,66),0)%></div></th>
    <%else%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,24),0)%></div></th>
    <%
end if
  xtotalsamqtyOB=xtotalsamqtyOB+TransDias(i,24)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOB,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOB/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#FFB7B7">BD 3 Prod F</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#FFD2D2"><div align="right"></div></th>
    <%else%>
    <th width="101" scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(TransDias(i,29),0)%></div></th>
    <%
end if
  xOBbd3f=xOBbd3f+TransDias(i,29)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xOBbd3f,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xOBbd3f/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#FFB7B7">BD 3 Prod L </th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(TransDias(i,31),0)%></div></th>
    <%else%>
    <th width="101" scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(TransDias(i,31),0)%></div></th>
    <%
end if
  xOBbd3l=xOBbd3l+TransDias(i,31)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xOBbd3l,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xOBbd3l/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#CCFFE6"><div align="right">1S</div></th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,39),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,67),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,70),0)%></div></th>
    <%else%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,39),0)%></div></th>
    <%
end if
  xtotalsamqtyOBbd31s=xtotalsamqtyOBbd31s+TransDias(i,39)
  xtotalsamM2OBbd31s=xtotalsamM2OBbd31s+TransDias(i,67)
  xtotalsamAMTOBbd31s=xtotalsamAMTOBbd31s+TransDias(i,70)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOBbd31s,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOBbd31s/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#CCFFE6"><div align="right">2S</div></th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,40),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,68),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,71),0)%></div></th>
    <%else%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,40),0)%></div></th>
    <%
end if
  xtotalsamqtyOBbd32s=xtotalsamqtyOBbd32s+TransDias(i,40)
  xtotalsamM2OBbd32s=xtotalsamM2OBbd32s+TransDias(i,68)
  xtotalsamAMTOBbd32s=xtotalsamAMTOBbd32s+TransDias(i,71)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOBbd32s,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOBbd32s/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#CCFFE6"><div align="right">3S</div></th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,41),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,69),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,72),0)%></div></th>
    <%else%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,41),0)%></div></th>
    <%
end if
  xtotalsamqtyOBbd33s=xtotalsamqtyOBbd33s+TransDias(i,41)
  xtotalsamM2OBbd33s=xtotalsamM2OBbd33s+TransDias(i,69)
  xtotalsamAMTOBbd33s=xtotalsamAMTOBbd33s+TransDias(i,72)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOBbd33s,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOBbd33s/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th width="73" scope="col" bgcolor="#CCFFE6">BD 3 Trans </th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,27),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,67)+TransDias(i,68)+TransDias(i,69),0)%></div></th>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,70)+TransDias(i,71)+TransDias(i,72),0)%></div></th>
    <%else%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,27),0)%></div></th>
    <%
end if
  xtotalsamqtyOBbd3=xtotalsamqtyOBbd3+TransDias(i,27)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOBbd3,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOBbd3/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th valign="middle" rowspan="2" bgcolor="#FFB7B7" scope="col">Total Prod </th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(TransDias(i,28)+TransDias(i,29),0)%></div></th>
    <%else%>
    <th scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(TransDias(i,28)+TransDias(i,29),0)%></div></th>
    <%
end if
  xtotf=xtotf+TransDias(i,28)+TransDias(i,29)
next
%>
    <th scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(xtotf,0)%></div></th>
    <th scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(xtotf/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(TransDias(i,30)+TransDias(i,31),0)%></div></th>
    <%else%>
    <th scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(TransDias(i,30)+TransDias(i,31),0)%></div></th>
    <%
end if

  xtotl=xtotl+TransDias(i,30)+TransDias(i,31)
next
%>
    <th scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(xtotl,0)%></div></th>
    <th scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(xtotl/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#CCFFE6"><div align="right">1s:</div></th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,36)+TransDias(i,39),0)%></div></th>
    <%else%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,36)+TransDias(i,39),0)%></div></th>
    <%
end if
  xtotalsamqtyOBbd31=xtotalsamqtyOBbd31+TransDias(i,36)+TransDias(i,39)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOBbd31,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOBbd31/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#CCFFE6"><div align="right">2s:</div></th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,37)+TransDias(i,40),0)%></div></th>
    <%else%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,37)+TransDias(i,40),0)%></div></th>
    <%
end if
  xtotalsamqtyOBbd32=xtotalsamqtyOBbd32+TransDias(i,37)+TransDias(i,40)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOBbd32,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOBbd32/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#CCFFE6"><div align="right">3s:</div></th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,38)+TransDias(i,41),0)%></div></th>
    <%else%>
    <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,38)+TransDias(i,41),0)%></div></th>
    <%
end if
  xtotalsamqtyOBbd33=xtotalsamqtyOBbd33+TransDias(i,38)+TransDias(i,41)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOBbd33,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqtyOBbd33/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#CCFFE6">Total Trans</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
if TransDias(i,1)>0 then%>
    <th scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,24)+TransDias(i,27),0)%></div></th>
    <%else%>
    <th scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,24)+TransDias(i,27),0)%></div></th>
    <%
end if
  xtott=xtott+TransDias(i,24)+TransDias(i,27)
next
%>
    <th scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(xtott,0)%></div></th>
    <th scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(xtott/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th width="94" scope="col" bgcolor="#FFB7B7">Samsung O/B M2</th>
    <th width="73" scope="col" bgcolor="#FFB7B7">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(TransDias(i,25),0)%></div></th>
    <%
  xtotalsamm2OB=xtotalsamm2OB+TransDias(i,25)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamm2OB,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamm2OB/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th width="94" scope="col" bgcolor="#FFB7B7">Samsung O/B AMT</th>
    <th width="73" scope="col" bgcolor="#FFB7B7">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#FFD2D2"><div align="right"><%=formatnumber(TransDias(i,26),0)%></div></th>
    <%
  xtotalsamamtOB=xtotalsamamtOB+TransDias(i,26)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamamtOB,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamamtOB/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th width="94" scope="col" bgcolor="#82CDFF">Samsung QTY</th>
    <th width="73" scope="col" bgcolor="#82CDFF">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#82CDFF"><div align="right"><%=formatnumber(TransDias(i,1),0)%></div></th>
    <%
  xtotalsamqty=xtotalsamqty+TransDias(i,1)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqty,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqty/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th width="94" scope="col" bgcolor="#82CDFF">Samsung M2</th>
    <th width="73" scope="col" bgcolor="#82CDFF">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#82CDFF"><div align="right"><%=formatnumber(TransDias(i,2),0)%></div></th>
    <%
  xtotalsamm2=xtotalsamm2+TransDias(i,2)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamm2,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamm2/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th width="94" scope="col" bgcolor="#82CDFF">Samsung AMT</th>
    <th width="73" scope="col" bgcolor="#82CDFF">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#82CDFF"><div align="right"><%=formatnumber(TransDias(i,3),0)%></div></th>
    <%
  xtotalsamamt=xtotalsamamt+TransDias(i,3)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamamt,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamamt/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th width="94" scope="col" bgcolor="#FFE6E6">Others QTY</th>
    <th width="73" scope="col" bgcolor="#FFE6E6">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#FFE6E6"><div align="right"><%=formatnumber(TransDias(i,4),0)%></div></th>
    <%
  xtotalothqty=xtotalothqty+TransDias(i,4)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalothqty,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalothqty/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th width="94" scope="col" bgcolor="#FFE6E6">Others M2</th>
    <th width="73" scope="col" bgcolor="#FFE6E6">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#FFE6E6"><div align="right"><%=formatnumber(TransDias(i,5),0)%></div></th>
    <%
  xtotalothm2=xtotalothm2+TransDias(i,5)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalothm2,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalothm2/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th width="94" scope="col" bgcolor="#FFE6E6">Others AMT</th>
    <th width="73" scope="col" bgcolor="#FFE6E6">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#FFE6E6"><div align="right"><%=formatnumber(TransDias(i,6),0)%></div></th>
    <%
  xtotalothamt=xtotalothamt+TransDias(i,6)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalothamt,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalothamt/xnumerodias,0)%></div></th>
  </tr>
  <%  ''''' qty bd1 %>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">Qty 1S BD1</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,42),0)%></th>
    <%
  xqty1sbd1=xqty1sbd1+TransDias(i,42)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xqty1sbd1,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xqty1sbd1/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">Qty 2S BD1</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,43),0)%></th>
    <%
  xqty2sbd1=xqty2sbd1+TransDias(i,43)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xqty2sbd1,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xqty2sbd1/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">Qty 3S BD1</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,44),0)%></th>
    <%
  xqty3sbd1=xqty3sbd1+TransDias(i,44)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xqty3sbd1,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xqty3sbd1/xnumerodias,0)%></div></th>
  </tr>
  <% ''''' qty bd1 end %>
  <%  ''''' qty bd3 %>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">Qty 1S BD3</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,48),0)%></th>
    <%
  xqty1sbd3=xqty1sbd3+TransDias(i,48)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xqty1sbd3,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xqty1sbd3/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">Qty 2S BD3</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,49),0)%></th>
    <%
  xqty2sbd3=xqty2sbd3+TransDias(i,49)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xqty2sbd3,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xqty2sbd3/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">Qty 3S BD3</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,50),0)%></th>
    <%
  xqty3sbd3=xqty3sbd3+TransDias(i,50)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xqty3sbd3,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xqty3sbd3/xnumerodias,0)%></div></th>
  </tr>
  <% ''''' qty bd3 end %>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">Qty 1S</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,10),0)%></th>
    <%
  xtotalsamqty1s=xtotalsamqty1s+TransDias(i,10)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqty1s,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqty1s/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">Qty 2S</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,11),0)%></th>
    <%
  xtotalsamqty2s=xtotalsamqty2s+TransDias(i,11)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqty2s,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqty2s/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">Qty 3S</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,12),0)%></th>
    <%
  xtotalsamqty3s=xtotalsamqty3s+TransDias(i,12)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqty3s,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamqty3s/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th width="94" scope="col" bgcolor="#F0E1FF">Total QTY</th>
    <th width="73" scope="col" bgcolor="#F0E1FF">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#F0E1FF"><div align="right"><%=formatnumber(TransDias(i,7),0)%></div></th>
    <%
  xtotalqty=xtotalqty+TransDias(i,7)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalqty,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalqty/xnumerodias,0)%></div></th>
  </tr>
  <%  ''''' qty bd1 %>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">M2 1S BD1</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,45),0)%></th>
    <%
  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
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xM21sbd1,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xM21sbd1/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">M2 2S BD1</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,46),0)%></th>
    <%
  xM22sbd1=xM22sbd1+TransDias(i,46)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xM22sbd1,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xM22sbd1/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">M2 3S BD1</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,47),0)%></th>
    <%
  xM23sbd1=xM23sbd1+TransDias(i,47)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xM23sbd1,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xM23sbd1/xnumerodias,0)%></div></th>
  </tr>
  <% ''''' M2 bd1 end %>
  <%  ''''' M2 bd3 %>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">M2 1S BD3</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,51),0)%></th>
    <%
  xM21sbd3=xM21sbd3+TransDias(i,51)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xM21sbd3,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xM21sbd3/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">M2 2S BD3</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,52),0)%></th>
    <%
  xM22sbd3=xM22sbd3+TransDias(i,52)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xM22sbd3,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xM22sbd3/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th scope="col" bgcolor="#F0E1FF" align="right">M2 3S BD3</th>
    <th scope="col" bgcolor="#FFFFFF" align="right">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th scope="col" bgcolor="#FFFFFF" align="right"><%=formatnumber(TransDias(i,53),0)%></th>
    <%
  xM23sbd3=xM23sbd3+TransDias(i,53)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xM23sbd3,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xM23sbd3/xnumerodias,0)%></div></th>
  </tr>
  <% ''''' M2 bd3 end %>
  <% m2=0
if m2=1 then
%>
  <tr bgcolor="#C1FFC1">
    <th width="94" scope="col" bgcolor="#82CDFF" align="right">M2 1S</th>
    <th width="73" scope="col" bgcolor="#FFFFFF">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(TransDias(i,13),0)%></div></th>
    <%
  xtotalsamm21s=xtotalsamm21s+TransDias(i,13)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamm21s,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamm21s/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th width="94" scope="col" bgcolor="#82CDFF" align="right">M2 2S</th>
    <th width="73" scope="col" bgcolor="#FFFFFF">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(TransDias(i,14),0)%></div></th>
    <%
  xtotalsamm22s=xtotalsamm22s+TransDias(i,14)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamm22s,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamm22s/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th width="94" scope="col" bgcolor="#82CDFF" align="right">M2 3S</th>
    <th width="73" scope="col" bgcolor="#FFFFFF">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(TransDias(i,15),0)%></div></th>
    <%
  xtotalsamm23s=xtotalsamm23s+TransDias(i,15)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamm23s,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalsamm23s/xnumerodias,0)%></div></th>
  </tr>
  <%
end if
%>
  <tr bgcolor="#C1FFC1">
    <th width="94" scope="col" bgcolor="#F0E1FF">Total M2</th>
    <th width="73" scope="col" bgcolor="#FFFFFF">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(TransDias(i,8),0)%></div></th>
    <%
  xtotalm2=xtotalm2+TransDias(i,8)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalm2,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalm2/xnumerodias,0)%></div></th>
  </tr>
  <tr bgcolor="#C1FFC1">
    <th width="94" scope="col" bgcolor="#F0E1FF">Total AMT</th>
    <th width="73" scope="col" bgcolor="#FFFFFF">&nbsp;</th>
    <% 
for i=lbound(TransDias) to ubound(TransDias)
%>
    <th width="101" scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(TransDias(i,9),0)%></div></th>
    <%
  xtotalamt=xtotalamt+TransDias(i,9)
next
%>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalamt,0)%></div></th>
    <th scope="col" bgcolor="#FFFFFF"><div align="right"><%=formatnumber(xtotalamt/xnumerodias,0)%></div></th>
  </tr>
</table>
<p>&nbsp;</p>

<%
correo="ilkim@shinwoousa.com;iwshin@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

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

'******************************************************
 

 mensaje=" <strong> TRANSFER OFFSET(Samsung OB)</strong> <br><br>"
 
mensaje=mensaje&"<table border='2'>"

mensaje=mensaje&"  <tr rowspan=2>"
mensaje=mensaje&"    <td>"&ldaterep&"</td>"
mensaje=mensaje&"    <td></td>"
mensaje=mensaje&"    <td align='center' colspan=2>&nbsp;&nbsp;BD 2&nbsp;&nbsp;</td>"
'mensaje=mensaje&"    <td align='center' colspan=3>&nbsp;&nbsp;BD3&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td align='center' colspan=2>&nbsp;&nbsp;Tot Shift&nbsp;&nbsp;</td>"
mensaje=mensaje&"  </tr>"
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td></td>"
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>Samsung</td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val1&"</strong></td>"
'mensaje=mensaje&"    <td align='right'><strong>"&Val61&"</strong></td>"
if Val64>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val64,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&Val64&"</strong></td>"
end if
'mensaje=mensaje&"    <td align='right'><strong>"&Val5&"</strong></td>"
'mensaje=mensaje&"    <td align='right'><strong>"&Val67&"</strong></td>"
'if Val70>0 then
' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val70,0)&"</strong></td>"
'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>"
'************************************** others 1
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td></td>"
mensaje=mensaje&"    <td>Others</td>"
mensaje=mensaje&"    <td align='right'><strong>"&xqty1sbd1-Val1&"</strong></td>"
'mensaje=mensaje&"    <td align='right'><strong>"&Val61&"</strong></td>"
if Val64>0 or xamt1sbd1>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd1-Val64,0)&"</strong></td>"
else
 mensaje=mensaje&"    <td align='right'><strong>"&Val64&"</strong></td>"
end if
'mensaje=mensaje&"    <td align='right'><strong>"&Val5&"</strong></td>"
'mensaje=mensaje&"    <td align='right'><strong>"&Val67&"</strong></td>"
'if Val70>0 then
' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val70,0)&"</strong></td>"
'else
' mensaje=mensaje&"    <td align='right'><strong>"&Val70&"</strong></td>"
'end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd1+xqty1sbd3)-Val9&"</strong></td>"
'mensaje=mensaje&"    <td align='right'><strong>"&Val61+VAL67&"</strong></td>"
if (cdbl(Val64)+cdbl(Val70))>0 or (xamt1sbd1+xamt1sbd3)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber((xamt1sbd1+xamt1sbd3)-(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>Samsung</td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val2&"</strong></td>"
'mensaje=mensaje&"    <td align='right'><strong>"&Val62&"</strong></td>"
if Val65>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val65,0)&"</strong></td>"
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>"
'if Val71>0 then
' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val71,0)&"</strong></td>"
'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>"
'************************************** others 2
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td></td>"
mensaje=mensaje&"    <td>Others</td>"
mensaje=mensaje&"    <td align='right'><strong>"&xqty2sbd1-Val2&"</strong></td>"
'mensaje=mensaje&"    <td align='right'><strong>"&Val62&"</strong></td>"
if Val65>0 or xamt2sbd1>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt2sbd1-Val65,0)&"</strong></td>"
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>"
'if Val71>0 then
' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val71,0)&"</strong></td>"
'else
' mensaje=mensaje&"    <td align='right'><strong>"&Val71&"</strong></td>"
'end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty2sbd1+xqty2sbd3)-Val10&"</strong></td>"
'mensaje=mensaje&"    <td align='right'><strong>"&Val62+VAL68&"</strong></td>"
if (cdbl(Val65)+cdbl(Val71))>0 or (xamt2sbd1+xamt2sbd3)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber((xamt2sbd1+xamt2sbd3)-(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>Sh 3</td>"
mensaje=mensaje&"    <td>Samsung</td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val3&"</strong></td>"
'mensaje=mensaje&"    <td align='right'><strong>"&Val63&"</strong></td>"
if Val66>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val66,0)&"</strong></td>"
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>"
'if Val72>0 then
' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val72,0)&"</strong></td>"
'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>"
'************************************** others 3
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td></td>"
mensaje=mensaje&"    <td>Others</td>"
mensaje=mensaje&"    <td align='right'><strong>"&xqty3sbd1-Val3&"</strong></td>"
'mensaje=mensaje&"    <td align='right'><strong>"&Val63&"</strong></td>"
if Val66>0 or xamt3sbd1>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt3sbd1-Val66,0)&"</strong></td>"
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>"
'if Val72>0 then
' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val72,0)&"</strong></td>"
'else
' mensaje=mensaje&"    <td align='right'><strong>"&Val72&"</strong></td>"
'end if
mensaje=mensaje&"    <td align='right'><strong>"&(xqty3sbd1+xqty3sbd3)-Val11&"</strong></td>"
'mensaje=mensaje&"    <td align='right'><strong>"&Val63+VAL69&"</strong></td>"
if (cdbl(Val66)+cdbl(VAL72))>0 or (xamt3sbd1+xamt3sbd3)>0 then
 mensaje=mensaje&"    <td align='right'><strong>"&formatnumber((xamt3sbd1+xamt3sbd3)-(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></td>"
'mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd1+xqty2sbd1+xqty3sbd1)&"</strong></td>"
''mensaje=mensaje&"    <td align='right'><strong>"&Val61+VAL62+VAL63&"</strong></td>"
'if (Val64+VAL65+VAL66)>0 then
' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val64+VAL65+VAL66,0)&"</strong></td>"
'else
' mensaje=mensaje&"    <td align='right'><strong>"&Val64+VAL65+VAL66&"</strong></td>"
'end if
''mensaje=mensaje&"    <td align='right'><strong>"&Val8&"</strong></td>"
''mensaje=mensaje&"    <td align='right'><strong>"&Val67+VAL68+VAL69&"</strong></td>"
''if (Val70+VAL71+VAL72)>0 then
'' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(Val70+VAL71+VAL72,0)&"</strong></td>"
''else
'' mensaje=mensaje&"    <td align='right'><strong>"&Val70+VAL71+VAL72&"</strong></td>"
''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>"

mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Total</td>"
mensaje=mensaje&"    <td></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>"


mensaje=mensaje&"<br>"
'mensaje=mensaje&" <strong> TRANSFER OFFSET(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=2>&nbsp;&nbsp;BD 2&nbsp;&nbsp;</td>"
''mensaje=mensaje&"    <td align='center' colspan=3>&nbsp;&nbsp;BD3&nbsp;&nbsp;</td>"
'mensaje=mensaje&"    <td align='center' colspan=2>&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>"&xqty1sbd1&"</strong></td>"
''mensaje=mensaje&"    <td align='right'><strong>"&xM21sbd1&"</strong></td>"
'if xamt1sbd1>0 then
' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd1,0)&"</strong></td>"
'else
' mensaje=mensaje&"    <td align='right'><strong>"&xamt1sbd1&"</strong></td>"
'end if
''mensaje=mensaje&"    <td align='right'><strong>"&xqty1sbd3&"</strong></td>"
''mensaje=mensaje&"    <td align='right'><strong>"&xM21sbd3&"</strong></td>"
''if xamt1sbd3>0 then
'' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt1sbd3,0)&"</strong></td>"
''else
''mensaje=mensaje&"    <td align='right'><strong>"&xamt1sbd3&"</strong></td>"
''end if
'mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd1+xqty1sbd3)&"</strong></td>"
''mensaje=mensaje&"    <td align='right'><strong>"&(xM21sbd1+xM21sbd3)&"</strong></td>"
'if (xamt1sbd1+xamt1sbd3)>0 then
' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber((xamt1sbd1+xamt1sbd3),0)&"</strong></td>"
'else
' mensaje=mensaje&"    <td align='right'><strong>"&(xamt1sbd1+xamt1sbd3)&"</strong></td>"
'end if
'mensaje=mensaje&"  </tr>"'

'mensaje=mensaje&"  <tr>"
'mensaje=mensaje&"    <td>Sh 2</td>"
'mensaje=mensaje&"    <td align='right'><strong>"&xqty2sbd1&"</strong></td>"
''mensaje=mensaje&"    <td align='right'><strong>"&xM22sbd1&"</strong></td>"
'if xamt2sbd1>0 then
' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt2sbd1,0)&"</strong></td>"
'else
' mensaje=mensaje&"    <td align='right'><strong>"&xamt2sbd1&"</strong></td>"
'end if
''mensaje=mensaje&"    <td align='right'><strong>"&xqty2sbd3&"</strong></td>"
''mensaje=mensaje&"    <td align='right'><strong>"&xM22sbd3&"</strong></td>"
''if xamt2sbd3>0 then
'' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt2sbd3,0)&"</strong></td>"
''else
'' mensaje=mensaje&"    <td align='right'><strong>"&xamt2sbd3&"</strong></td>"
''end if
'mensaje=mensaje&"    <td align='right'><strong>"&(xqty2sbd1+xqty2sbd3)&"</strong></td>"
''mensaje=mensaje&"    <td align='right'><strong>"&(xM22sbd1+xM22sbd3)&"</strong></td>"
'if (xamt2sbd1+xamt2sbd3)>0 then
' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt2sbd1+xamt2sbd3,0)&"</strong></td>"
'else
' mensaje=mensaje&"    <td align='right'><strong>"&(xamt2sbd1+xamt2sbd3)&"</strong></td>"
'end if
'mensaje=mensaje&"  </tr>"''

'mensaje=mensaje&"  <tr>"
'mensaje=mensaje&"    <td>Sh 3</td>"
'mensaje=mensaje&"    <td align='right'><strong>"&xqty3sbd1&"</strong></td>"
''mensaje=mensaje&"    <td align='right'><strong>"&xM23sbd1&"</strong></td>"
'if xamt3sbd1>0 then
' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt3sbd1,0)&"</strong></td>"
'else
' mensaje=mensaje&"    <td align='right'><strong>"&xamt3sbd1&"</strong></td>"
'end if
''mensaje=mensaje&"    <td align='right'><strong>"&xqty3sbd3&"</strong></td>"
''mensaje=mensaje&"    <td align='right'><strong>"&xM23sbd3&"</strong></td>"
''if xamt3sbd3>0 then
'' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt3sbd3,0)&"</strong></td>"
''else
'' mensaje=mensaje&"    <td align='right'><strong>"&xamt3sbd3&"</strong></td>"
''end if
'mensaje=mensaje&"    <td align='right'><strong>"&(xqty3sbd1+xqty3sbd3)&"</strong></td>"
''mensaje=mensaje&"    <td align='right'><strong>"&(xM23sbd1+xM23sbd3)&"</strong></td>"
'if (xamt3sbd1+xamt3sbd3)>0 then
' mensaje=mensaje&"    <td align='right'><strong>"&formatnumber(xamt3sbd1+xamt3sbd3,0)&"</strong></td>"
'else
' mensaje=mensaje&"    <td align='right'><strong>"&(xamt3sbd1+xamt3sbd3)&"</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>"

'*********************
 Dim objCDO
 Dim Conf
 Dim Fields
'''''''''''
 Set cdoConfig = CreateObject("CDO.Configuration")

 With cdoConfig.Fields
  .Item(cdoSendUsingMethod) = 2
  .Item(cdoSMTPServer) = "mail.shinwoousa.com"
  '"64.87.26.218"
  .Item(cdoSMTPauthenticate)=1
  .Item(cdoSendUsername)="sechevarria@shinwoousa.com"
  .Item(cdoSendPassword)="Sergio586*"
  .Item(cdoSMTPServerport)=587
  .Update
 End With

  Set cdoMessage = CreateObject("CDO.Message")
  Set Fields = Nothing
 Set objCDO = Nothing
 Set Conf = Nothing
  With cdoMessage
    'Set .Configuration = cdoConfig
    '.From = "sechevarria@shinwoousa.com"
    '.To = correo
    '.cc = "hlimon@shinwoousa.com;dvilchis@shinwoousa.com;sgallegos@shinwoousa.com;jamesoh@shinwoousa.com;tommykim@shinwoousa.com;jesusv@shinwoousa.com;yblee@shinwoousa.com;eluevanos@shinwoousa.com;clopez@shinwoousa.com"
    '.bcc = "sechevarria@shinwoousa.com"
    '.Subject = "sending Automatic - BD2 OFFSET Transfer"
    '.HTMLBody= mensaje
    '.Send
  End With
   
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing
  ''termina envio de correo
end if
'response.Redirect("reportdailytransfer.asp?msg=enviado!")
%>

</center>
</div>
</body>
</html>
