<!--
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<"0650" 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
'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="3580">
<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= "20161201"
 lfecfinal=  "20161201"
 'lfecinicial="20160501"
 response.write("FROM: "&lfecinicio&" ")
 'response.write(lfecinicio&" ")
 response.write("TO: "&lfecfinal&"<br>")
 
ReDim TransDias(7,60)
ReDim Trucking(7,5)
Dim Rstrans
Dim sqltrans

set Rstrans=dbsql.execute("select b.local_cd, (select code_nm from sta010t(nolock) where major_cd = '9016' and minor_cd = b.local_cd) local_nm, right(a.real_trans  ,6) trans_date,b.cust_cd, (select cust_nm from stb010t(nolock) where cust_cd = b.cust_cd) cust_nm, b.item, b.ord_no,     a.pallet_cnt,       b.qty prod_qty,       b.price,       c.mae_m2,       round(b.qty * b.price,3) prod_amt,   round(c.mae_m2 * b.qty,0) prod_m2,       (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  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_time, b.cust_cd, b.item, b.ord_no,b.local_cd,  a.trans_class, case when a.trans_date <> a.real_trans then '1' else '0' end , a.pallet_cnt")
'and b.prod_flag = '1'   

 If Rstrans.EOF And Rstrans.BOF Then
   'response.write("No existen datos")
   ExisteUsuario = False   
   Msg = "No records exist for this date."
   Style = vbDefaultButton2
   Title = "Msg from System"
   Help = ""
   ctxt = 1000
   'Response = MsgBox(Msg, Style, Title, Help, ctxt)
 Else
  lsamsungqty=0
  lsamq1=0
  lsamq2=0
  lsammt1=0
  lsammt2=0
  lsama1=0
  lsama2=0
  lsamsungqty1s=0
   lsamsungqty2s=0
   lsamsungqty3s=0
   lsamsungqty4s=0
   lsamsungm2=0
   lsamsungm21s=0
   lsamsungm22s=0
   lsamsungm23s=0
   lsamsungm24s=0
	   
  lsamsungamt=0
  lotherqty=0
  lotherm2=0
  lotheramt=0
  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
lOBxqtybd3s1=0
lOBxqtybd3s2=0
lOBxqtybd3s3=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")
     'lqtyinven = lqtyinven + cdbl(Rstrans("prod_qty"))
	 'lamtinven = lamtinven + cdbl(Rstrans("price"))
      localm2=cdbl(Rstrans("prod_m2"))
      lTotalQty = lTotalQty+ cdbl(Rstrans("prod_qty"))
      lTotalM2 = lTotalM2+ cdbl(localm2)
      lTotalAmt = lTotalAmt+ cdbl(Rstrans("prod_amt"))
	 litemclass="00"

     
     'lm2inven = lm2inven + cdbl(localm2)
	 litemclass=Rstrans("item_class")

      if ltranstime>"064959" and ltranstime<"152000" then
	   'lsamsungqty1s=lsamsungqty1s+ cdbl(Rstrans("prod_qty"))
	   'lsamsungm21s= lsamsungm21s+ cdbl(localm2)
       lqty1s=lqty1s+ cdbl(Rstrans("prod_qty"))
	   lm21s= lm21s+ cdbl(localm2)
       if Rstrans("local_nm")="WH1" then
         lqty1sbd1=lqty1sbd1+ cdbl(Rstrans("prod_qty"))
         lm21sbd1= lm21sbd1+ cdbl(localm2)
       else
         lqty1sbd3=lqty1sbd3+ cdbl(Rstrans("prod_qty"))
         lm21sbd3= lm21sbd3+ cdbl(localm2)
        
       end if
	  end if
	  if ltranstime>"151959" and ltranstime<"232000" then
	   'lsamsungqty2s=lsamsungqty2s+ cdbl(Rstrans("prod_qty"))
	   'lsamsungm22s= lsamsungm22s+ cdbl(localm2)
       lqty2s=lqty2s+ cdbl(Rstrans("prod_qty"))
	   lm22s= lm22s+ cdbl(localm2)
       if Rstrans("local_nm")="WH1" then
         lqty2sbd1=lqty2sbd1+ cdbl(Rstrans("prod_qty"))
         lm22sbd1= lm22sbd1+ cdbl(localm2)
       else
         lqty2sbd3=lqty2sbd3+ cdbl(Rstrans("prod_qty"))
         lm22sbd3= lm22sbd3+ cdbl(localm2)
        
       end if
	  end if
	  if ltranstime>"231959" then
	   'lsamsungqty4s=lsamsungqty4s+ cdbl(Rstrans("prod_qty"))
	   'lsamsungm234= lsamsungm24s+ cdbl(localm2)
       lqty4s=lqty4s+ cdbl(Rstrans("prod_qty"))
	   lm24s= lm24s+ cdbl(localm2)
	   lshift=4
        if Rstrans("local_nm")="WH1" then
         lqty3sbd1=lqty3sbd1+ cdbl(Rstrans("prod_qty"))
         lm23sbd1= lm23sbd1+ cdbl(localm2)
       else
         lqty1sbd3=lqty1sbd3+ cdbl(Rstrans("prod_qty"))
         lm21sbd3= lm21sbd3+ cdbl(localm2)
        
       end if
	  end if
	  if ltranstime<"065000" then
	   lshift=3
	   'lsamsungqty3s=lsamsungqty3s+ cdbl(Rstrans("prod_qty"))
	   'lsamsungm23s= lsamsungm23s+ cdbl(localm2)
       lqty3s=lqty3s+ cdbl(Rstrans("prod_qty"))
	   lm23s= lm23s+ cdbl(localm2)
       if Rstrans("local_nm")="WH1" then
         lqty3sbd1=lqty3sbd1+ cdbl(Rstrans("prod_qty"))
         lm23sbd1= lm23sbd1+ cdbl(localm2)
       else
         lqty3sbd3=lqty3sbd3+ cdbl(Rstrans("prod_qty"))
         lm23sbd3= lm23sbd3+ cdbl(localm2)
        
       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" or rsinven2("Note_5")= "NA" then  'PAD
	        lOTSamsungqty = lOTSamsungqty + cdbl(Rstrans("prod_qty"))
           'lOTsamsungM2 = lOTsamsungM2 + localm2
	       'lOTsamsungamt =lOTsamsungamt+ cdbl(Rstrans("prod_amt"))
            litemx=rsinven2("Note_5")&"ot"
	       'lOTSamsungWH3 = lOTSamsungWH3 +  cdbl(Rstrans("prod_qty"))
           'lOTSamsungWH4 = lOTSamsungWH4 +  cdbl(Rstrans("prod_qty"))
		   'lOTSamsungWH1 = lOTSamsungWH1 +  cdbl(Rstrans("prod_qty"))
	      else
	         if Rstrans("local_nm")="WH1" then
	           lOBxqty = lOBxqty + cdbl(Rstrans("prod_qty"))
              if ltranstime>"064959" and ltranstime<"152000" then
                lOBxqty1s = lOBxqty1s + cdbl(Rstrans("prod_qty"))
              end if
	          if ltranstime>"151959" and ltranstime<"232000" then
                lOBxqty2s = lOBxqty2s + cdbl(Rstrans("prod_qty"))
              end if
              if ltranstime>"231959" or ltranstime<"065000" then
                lOBxqty3s = lOBxqty3s + cdbl(Rstrans("prod_qty"))
              end if

             else

              lOBxqtybd3 = lOBxqtybd3 + cdbl(Rstrans("prod_qty"))
              if ltranstime>"064959" and ltranstime<"152000" then
                lOBxqtybd3s1 = lOBxqtybd3s1 + cdbl(Rstrans("prod_qty"))
              end if
              if ltranstime>"151959" and ltranstime<"232000" then
                lOBxqtybd3s2 = lOBxqtybd3s2 + cdbl(Rstrans("prod_qty"))
              end if
              if ltranstime>"231959" or ltranstime<"065000" then
                lOBxqtybd3s3 = lOBxqtybd3s3 + cdbl(Rstrans("prod_qty"))
              end if

             end if
             lOBxM2 = lOBxM2 + localm2
	         lOBxAmt =lOBxAmt + cdbl(Rstrans("prod_amt"))

             litemx=rsinven2("Note_5")
		    'lOBSamsung2WH3 = lOBSamsung2WH3 + cdbl(Rstrans("prod_qty"))
            'lOBSamsung2WH4 = lOBSamsung2WH4 + cdbl(Rstrans("prod_qty"))
		    'lOBSamsung2WH1 = lOBSamsung2WH1 + cdbl(Rstrans("prod_qty"))
	 	 
	     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"
     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,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

       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
       lOBxqtybd3s1=0
       lOBxqtybd3s2=0
       lOBxqtybd3s3=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
	 else
	  
	 end if
   'end if

  Loop
 End If
Rstrans.Close
 Set Rstrans = Nothing
lxx=0
'if lxx=1 then
lfecini2=lfecinicio
'lfecini2= Right("00" & year(Date()-1), 4)&Right("00" & month(Date()-1), 2)&Right("00" & Day(Date()-1), 2)
lfecfin2=lfecinicio
'lfecfin2= Right("00" & year(Date()-1), 4)&Right("00" & month(Date()-1), 2)&Right("00" & Day(Date()-1), 2)
'response.write("fecha fin "&lfecfin2)
do while lfecini2 <= lfecfinal
'response.write(" fecha ini "&lfecini2)
'response.write(" fecha fin "&lfecfin2)
set Rsprod=dbsql.execute("select a.prod_date, right(a.prod_date,6) prod_day, case a.proc_cd1 when '' then case a.proc_cd2 when '' then a.proc_cd3 else a.proc_cd2 end else a.proc_cd1 end proc_cd, a.work_gubun, case a.work_gubun when '0' then '1S' when '1' then '2S' when '2' then '3S' end as wrok_gubun_nm,b.cust_cd, b.good_nm, b.ord_qty, c.plan_qty, a.real_prod_qty, round(a.real_prod_qty * b.mae_m2 , 0) as prod_m2,a.bad_qty, a.extra_qty, isnull(a1.inv_qty,0) as inv_qty from bob030t a(nolock) left outer join ( select crp_id, goods_class, ord_date, ord_seq, plan_date, plan_seq, sum(plan_qty) plan_qty from bob010t(nolock) group by crp_id, goods_class, ord_date, ord_seq, plan_date, plan_seq) c  on a.crp_id = c.crp_id and a.goods_class = c.goods_class and a.ord_date = c.ord_date and a.ord_seq = c.ord_seq and  a.plan_date = c.plan_date and a.plan_seq = c.plan_seq left outer join ( select a.crp_id, a.ord_no, sum(a.qty) inv_qty   from inout_table a(nolock), bar_code b(nolock) where a.ord_no = 'B1' + substring(b.ord_date,3,6) + '-' + right('0000' + convert(varchar(4), b.ord_seq), 4) and b.chk_bit = '1' and b.bar_code = a.bar_code and b.trans_date = a.job_date and a.class = '1' group by a.crp_id, a.ord_no) a1 on a.crp_id = a1.crp_id and 'B1' + substring(a.ord_date,3,6) + '-' + right('0000' + convert(varchar(4), a.ord_seq), 4) = a1.ord_no, boa010t b(nolock) where a.crp_id = b.crp_id and b.cust_cd='20001' and a.goods_class = b.goods_class and a.ord_date = b.ord_date and a.ord_seq = b.ord_seq and b.del_yn = '0' and a.crp_id = '10' and (a.prod_date) between '" & lfecini2 & "' and '" & lfecfin2 & "' order by a.prod_date, b.good_nm, case a.proc_cd1 when '' then case a.proc_cd2 when '' then a.proc_cd3  else a.proc_cd2 end  else a.proc_cd1 end, a.ord_date, a.ord_seq")

 If Rsprod.EOF And Rsprod.BOF Then
   'response.write("No existen datos. Prod")
  
 Else
  lOBxprodbd1=0
  lOBxprodbd3=0
  lOBxprodbd1lam=0
  lOBxprodbd3lam=0
  Rsprod.MoveFirst
       TransDias(0,28)=lOBxprodbd1
       TransDias(0,29)=lOBxprodbd3
       TransDias(0,30)=lOBxprodbd1lam
       TransDias(0,31)=lOBxprodbd3lam
    lproddate1=Rsprod("prod_date")
	lcte=0
  Do While Not Rsprod.EOF
 	  if Rsprod("cust_cd")="20001" then     'CTE
       lcte=1
	''''''''''''''''''''********* O/B SAMSUNG
        set Rsinven2=cnn.execute("select * from SamsungItems where good_nm='" & Rsprod("good_nm") & "'")
        if not Rsinven2.eof then    'RS
          rsinven2.movefirst
	    
	      if rsinven2("Note_5")= "INBOX / PAD" or rsinven2("Note_5")= "NA" then  'PAD
	
	      else
            if rsinven2("Note_5")= "FULL LITHO" or rsinven2("Note_5")= "PRINTING" or rsinven2("Note_5")= "SPOT" then
	         if Rsprod("proc_cd")=551 or Rsprod("proc_cd")=501 then
               if Rsprod("proc_cd")=551 then
                 lOBxprodBD3 = lOBxprodBD3 + cdbl(Rsprod("real_prod_qty"))
                else
	             lOBxprodBD3lam = lOBxprodBD3lam + cdbl(Rsprod("real_prod_qty"))
	            end if

             else
                 
               if (Rsprod("proc_cd")>230 and Rsprod("proc_cd")<241) or  Rsprod("proc_cd")=246 or  Rsprod("proc_cd")=247 then
                lOBxprodbd1 = lOBxprodbd1 + cdbl(Rsprod("real_prod_qty"))
               else
                 lOBxprodbd1lam = lOBxprodbd1lam + cdbl(Rsprod("real_prod_qty"))
               end if
             end if
  	        ELSE
            END IF
	     end if     'PAD
       else
	       'lOTSamsungqty = lOTSamsungqty + cdbl(Rsprod("real_prod_qty"))
           ' litemx="no"
      end if  'RS
       Rsinven2.Close
       Set Rsinven2 = Nothing
'''''''''''''''''''''*********O/B SAMSUNG
     else
	   'lotherqty= lotherqty+ cdbl(Rsprod("real_prod_qty"))
       'lotherm2= lotherm2+ cdbl(localm2)
       'litemx="No samsung"
     end if     'CTE
 
     Rsprod.MoveNext
     if not Rsprod.eof then
      lproddate2=Rsprod("prod_date")
	 end if
	 
	 if (lproddate1<>lproddate2 ) or Rsprod.eof then
	   'xdia=int(right(lproddate1,2))
       xdia=3
	   TransDias(xdia,28)=lOBxprodbd1
       TransDias(xdia,29)=lOBxprodbd3
       TransDias(xdia,30)=lOBxprodbd1lam
       TransDias(xdia,31)=lOBxprodbd3lam

	   lOBxprodbd1=0
       lOBxprodbd3=0
       lOBxprodbd1lam=0
       lOBxprodbd3lam=0
	 else
	  
	 end if
  Loop
 End If
 lfecini3=int(lfecini2)+1
 lfecini2=cstr(lfecini3)
 lfecfin2=cstr(lfecini3)
loop

 
Rsprod.Close
 Set Rsprod = Nothing
dbsql.Close
Set dbsql = Nothing 
dbsql2.Close
Set dbsql2 = Nothing 
dbsql3.Close
Set dbsql3 = Nothing 

%>

<div align="center"><center>
 
<span class="style1 style6"> TRANSFER (by day) </span>
<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>
<% 
 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>
    <%
  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>
    <%
  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>

<%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>

<%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>
<%else%>
   <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,36),0)%></div></th>
<%

end if
  xtotalsamqtyOB1s=xtotalsamqtyOB1s+TransDias(i,36)
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>
<%else%>
   <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,37),0)%></div></th>
<%
end if
  xtotalsamqtyOB2s=xtotalsamqtyOB2s+TransDias(i,37)
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>
<%else%>
   <th width="101" scope="col" bgcolor="#CCFFE6"><div align="right"><%=formatnumber(TransDias(i,38),0)%></div></th>
<%
end if
  xtotalsamqtyOB3s=xtotalsamqtyOB3s+TransDias(i,38)
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>
<%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"><%=formatnumber(TransDias(i,29),0)%></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>
<%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)
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>
<%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)
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>
<%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)
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>
<%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)
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

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 (Samsung OB)</strong> <br><br>"
 
mensaje=mensaje&"<table border='2'>"
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>"&ldaterep&"</td>"
mensaje=mensaje&"    <td align='center'>&nbsp;BD1&nbsp;</td>"
mensaje=mensaje&"    <td align='center'>&nbsp;BD3&nbsp;</td>"
mensaje=mensaje&"    <td align='center'>Tot Shift</td>"
mensaje=mensaje&"  </tr>"
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Sh 1</td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val1&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val5&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val9&"</strong></td>"
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>"&Val6&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val10&"</strong></td>"
mensaje=mensaje&"  </tr>"
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Sh 3</td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val3&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val7&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val11&"</strong></td>"
mensaje=mensaje&"  </tr>"
mensaje=mensaje&"  <tr>"
mensaje=mensaje&"    <td>Tot BD</td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val4&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val8&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&Val12&"</strong></td>"
mensaje=mensaje&"  </tr>"
mensaje=mensaje&"</table>"
mensaje=mensaje&"<br>"
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=2>&nbsp;&nbsp;BD1&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td align='center' colspan=2>&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;Qty&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;M2&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;Qty&nbsp;&nbsp;</td>"
mensaje=mensaje&"    <td >&nbsp;&nbsp;M2&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>"
mensaje=mensaje&"    <td align='right'><strong>"&xqty1sbd3&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&xM21sbd3&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd1+xqty1sbd3)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM21sbd1+xM21sbd3)&"</strong></td>"
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>"
mensaje=mensaje&"    <td align='right'><strong>"&xqty2sbd3&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&xM22sbd3&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xqty2sbd1+xqty2sbd3)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM22sbd1+xM22sbd3)&"</strong></td>"
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>"
mensaje=mensaje&"    <td align='right'><strong>"&xqty3sbd3&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&xM23sbd3&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xqty3sbd1+xqty3sbd3)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM23sbd1+xM23sbd3)&"</strong></td>"
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>"
mensaje=mensaje&"    <td align='right'><strong>"&(xqty1sbd3+xqty2sbd3+xqty3sbd3)&"</strong></td>"
mensaje=mensaje&"    <td align='right'><strong>"&(xM21sbd3+xM22sbd3+xM23sbd3)&"</strong></td>"
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>"
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;gcastro@shinwoousa.com;lcorona@shinwoousa.com;avaldez@shinwoousa.com;jvaldez@shinwoousa.com;jmontano@shinwoousa.com;sgallegos@shinwoousa.com;alara@shinwoousa.com;hpchae@shinwoousa.com;yvizcarra@shinwoousa.com"
    .bcc = "sechevarria@shinwoousa.com"
    .Subject = "sending Automatic - Transfer (OB-ALL)"
    '.TextBody = "Esta es una Prueba de envio automatico ASECO-Sergio"
    .HTMLBody= mensaje
    '.AddAttachment (archivopdf)
    '.AddAttachment (archivoxml)
    .Send
  End With
   
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing
  ''termina envio de correo
end if
'response.Redirect("reportdailytransfer.asp?msg=enviado!")
%>

</center>
</div>
</body>
</html>
