<%
Option Explicit
%>
<%
Session.LCID = 2058
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">
<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>
<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>
<div class="normal" style="position:absolute; top:60px; left:10">
<Center>
<Form action="Recegrat.asp" name="Toneladas" method="Post">
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<Tr>
<TD align="CENTER" class="normal" bgcolor="#FFFFFF">Mes</td>
<TD align="CENTER" class="normal" bgcolor="#FFFFFF">Año</td>
</tr>
<Tr>
<TD align="Left" class="normalw" bgcolor="#FFFFFF">
<SELECT NAME="Mes" class="normalb">
<OPTION value="1">ENERO</option>
<OPTION value="2">FEBRERO</option>
<OPTION value="3">MARZO</option>
<OPTION value="4">ABRIL</option>
<OPTION value="5">MAYO</option>
<OPTION value="6">JUNIO</option>
<OPTION value="7">JULIO</option>
<OPTION value="8">AGOSTO</option>
<OPTION value="9">SEPTIEMBRE</option>
<OPTION value="10">OCTUBRE</option>
<OPTION value="11">NOVIEMBRE</option>
<OPTION value="12">DICIEMBRE</option>
</select>
</td>
<TD align="Left" class="normal" bgcolor="#FFFFFF">
<input Type="Text" Name="Anio" size="12" Class="Normalc" style="background-color:#FFFFFF; text-align:right" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
<TD align="Left" class="normal" bgcolor="#FFFFFF">
<Input Type="Radio" Name="Edirecto" Value="1" checked> Con Embarques Directos
<Input Type="Radio" Name="Edirecto" Value="2"> Sin Embarques Directos
</td>
</tr>
<Tr>
<Td Colspan="2" Align="Center">
<input type="submit" value="Buscar" class=normalb>
</td>
</tr>
</Table>
</Form>
<%
Dim Rs11, Rs12, Rs13, Rs14
Dim Sql11, Sql12, Sql13, Sql14
Dim Porcentaje, AltoG
Dim Mes, Anio
Dim Edirecto
Mes = Request("Mes")
Anio = Request("Anio")
Edirecto = Request("Edirecto")
If Edirecto = "" Or Isnull(Edirecto) Then
Edirecto = 1
Else
Edirecto = Edirecto
End If
If Mes = "" or Isnull(Mes) Then
Mes = Month(date())
Else
Mes = Mes
End IF
If Anio = "" or Isnull(Anio) Then
Anio = Year(Date())
Else
Anio = Anio
End IF
If Edirecto = 1 Then
set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11="SELECT DAY(FECRENC) AS DIA, SUM((CRERDET * PESOINV)/1000) AS TONELADAS " &_
"FROM CRECENC, CRecDet, Inventarios " &_
"WHERE YEAR(FECRENC) = '"& Anio &"' AND MONTH(FECRENC) = '"& Mes &"' " &_
"AND NUMRDET = NUMRENC AND CODRDET = CVEINV " &_
"GROUP BY DAY(FECRENC) " &_
"ORDER BY DIA ASC;"
Rs11.Open Sql11,Cn1,1,2
set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12="SELECT DAY(FECRENC) AS DIA, SUM((CRERDET * PESOINV)/1000) AS TONELADAS " &_
"FROM CRECENC, CRecDet, Inventarios " &_
"WHERE YEAR(FECRENC) = '"& Anio &"' AND MONTH(FECRENC) = '"& Mes &"' " &_
"AND NUMRDET = NUMRENC AND CODRDET = CVEINV " &_
"GROUP BY DAY(FECRENC) " &_
"ORDER BY DIA ASC;"
Rs12.Open Sql12,Cn1,1,2
set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12="SELECT CONVERT(DATE,FECRENC) AS DIA, SUM((CRERDET * PESOINV)/1000) AS TONELADAS " &_
"FROM CRECENC, CRecDet, Inventarios " &_
"WHERE YEAR(FECRENC) = '"& Anio &"' AND MONTH(FECRENC) = '"& Mes &"' " &_
"AND NUMRDET = NUMRENC AND CODRDET = CVEINV " &_
"GROUP BY CONVERT(DATE,FECRENC) " &_
"ORDER BY DIA ASC;"
Rs12.Open Sql12,Cn1,1,2
set Rs14 = server.CreateObject("ADODB.Recordset")
Sql14="SELECT SUM((CRERDET * PESOINV)/1000) AS TONELADAS " &_
"FROM CRECENC, CRecDet, Inventarios " &_
"WHERE YEAR(FECRENC) = '"& Anio &"' AND MONTH(FECRENC) = '"& Mes &"' " &_
"AND NUMRDET = NUMRENC AND CODRDET = CVEINV;"
Rs14.Open Sql14,Cn1,1,2
Else
set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11="SELECT DAY(FECRENC) AS DIA, SUM((CRERDET * PESOINV)/1000) AS TONELADAS " &_
"FROM CRECENC, CRecDet, Inventarios " &_
"WHERE YEAR(FECRENC) = '"& Anio &"' AND MONTH(FECRENC) = '"& Mes &"' " &_
"AND NUMRDET = NUMRENC AND CODRDET = CVEINV AND Edirecto = 0 " &_
"GROUP BY DAY(FECRENC) " &_
"ORDER BY DIA ASC;"
Rs11.Open Sql11,Cn1,1,2
set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12="SELECT DAY(FECRENC) AS DIA, SUM((CRERDET * PESOINV)/1000) AS TONELADAS " &_
"FROM CRECENC, CRecDet, Inventarios " &_
"WHERE YEAR(FECRENC) = '"& Anio &"' AND MONTH(FECRENC) = '"& Mes &"' " &_
"AND NUMRDET = NUMRENC AND CODRDET = CVEINV AND Edirecto = 0 " &_
"GROUP BY DAY(FECRENC) " &_
"ORDER BY DIA ASC;"
Rs12.Open Sql12,Cn1,1,2
set Rs12 = server.CreateObject("ADODB.Recordset")
Sql12="SELECT CONVERT(DATE,FECRENC) AS DIA, SUM((CRERDET * PESOINV)/1000) AS TONELADAS " &_
"FROM CRECENC, CRecDet, Inventarios " &_
"WHERE YEAR(FECRENC) = '"& Anio &"' AND MONTH(FECRENC) = '"& Mes &"' " &_
"AND NUMRDET = NUMRENC AND CODRDET = CVEINV AND Edirecto = 0 " &_
"GROUP BY CONVERT(DATE,FECRENC) " &_
"ORDER BY DIA ASC;"
Rs12.Open Sql12,Cn1,1,2
set Rs14 = server.CreateObject("ADODB.Recordset")
Sql14="SELECT SUM((CRERDET * PESOINV)/1000) AS TONELADAS " &_
"FROM CRECENC, CRecDet, Inventarios " &_
"WHERE YEAR(FECRENC) = '"& Anio &"' AND MONTH(FECRENC) = '"& Mes &"' " &_
"AND NUMRDET = NUMRENC AND CODRDET = CVEINV AND Edirecto = 0;"
Rs14.Open Sql14,Cn1,1,2
End If
%>
<BR>
<Table border="1" cellspacing="0" cellpadding="0" class="normal">
<Tr>
<Td Colspan="<%=RS12.RecordCount%>" ALIGN="CENTER" class="normal">
TONELADAS RECIBIDAS EN EL MES: <%= Formatnumber(Rs14("TONELADAS")) %>
</TD>
</tR>
<TR>
<%
Do While Not Rs11.EOF
Porcentaje = (Cdbl(Rs11("TONELADAS")) / Cdbl(Rs14("TONELADAS"))) * 100
Altog = Round(((Cdbl(Rs11("TONELADAS")) / Cdbl(Rs14("TONELADAS"))) * 1000),0)
%>
<Td align="Center" Valign="Bottom" Bordercolor="#FFFFFF" class="normal">
<%= Formatnumber(Porcentaje) %> %
<Br>
<Img Src="GRAFICA/Blue.JPG" border="0" Height="<%= Altog %>px" width="35px">
<br>
<%= Formatnumber(Rs11("TONELADAS")) %>
<br>
TON.
</Td>
<%
Rs11.Movenext
Loop
%>
</tr>
<Tr>
<%
Do While Not Rs12.EOF
%>
<Td vAlign="TOP" Bordercolor="#000000" style="Font-size:12px"class="normalN">
<%= Rs12("DIA") %>
</Td>
<%
Rs12.Movenext
%>
<%
Loop
%>
</tr>
</Table>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>