<%
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">
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
// End -->
</script>
</head>
<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</div>
<div style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>
<br><br><br><br><br>
<center>
<b>
**** Venta de productos por Mes *****
<br>
<br>
<Form action="RepEximes.asp" name="RepEximes" method="Post¨">
Periodo : <input type="text" class="normalb" name="Periodo" size=7>
</form>
<%
Dim Rs11
Dim Sql11
Dim Periodo
Periodo = Request("Periodo")
If Periodo = "" or Isnull(Periodo) Then
Periodo = Year(Date())
Else
Periodo = Periodo
End If
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11 = "Select Almmul, Artmul, desmul, " &_
"Exirmul, " &_
"(Exirmul - Capmul - Rsem) as Disponible, " &_
"SUM(CASE WHEN MONTH(FECFFACE) = 1 THEN (CANFFACD - CDEFFACD) ELSE 0 END) AS ENERO, " &_
"SUM(CASE WHEN MONTH(FECFFACE) = 2 THEN (CANFFACD - CDEFFACD) ELSE 0 END) AS FEBRERO, " &_
"SUM(CASE WHEN MONTH(FECFFACE) = 3 THEN (CANFFACD - CDEFFACD) ELSE 0 END) AS MARZO, " &_
"SUM(CASE WHEN MONTH(FECFFACE) = 4 THEN (CANFFACD - CDEFFACD) ELSE 0 END) AS ABRIL, " &_
"SUM(CASE WHEN MONTH(FECFFACE) = 5 THEN (CANFFACD - CDEFFACD) ELSE 0 END) AS MAYO, " &_
"SUM(CASE WHEN MONTH(FECFFACE) = 6 THEN (CANFFACD - CDEFFACD) ELSE 0 END) AS JUNIO, " &_
"SUM(CASE WHEN MONTH(FECFFACE) = 7 THEN (CANFFACD - CDEFFACD) ELSE 0 END) AS JULIO, " &_
"SUM(CASE WHEN MONTH(FECFFACE) = 8 THEN (CANFFACD - CDEFFACD) ELSE 0 END) AS AGOSTO, " &_
"SUM(CASE WHEN MONTH(FECFFACE) = 9 THEN (CANFFACD - CDEFFACD) ELSE 0 END) AS SEPTIEMBRE, " &_
"SUM(CASE WHEN MONTH(FECFFACE) = 10 THEN (CANFFACD - CDEFFACD) ELSE 0 END) AS OCTUBRE, " &_
"SUM(CASE WHEN MONTH(FECFFACE) = 11 THEN (CANFFACD - CDEFFACD) ELSE 0 END) AS NOVIEMBRE, " &_
"SUM(CASE WHEN MONTH(FECFFACE) = 12 THEN (CANFFACD - CDEFFACD) ELSE 0 END) AS DICIEMBRE, " &_
"SUM(CASE WHEN YEAR(FECFFACE) = "& Periodo &" THEN (CANFFACD - CDEFFACD) ELSE 0 END) AS TOTAL " &_
"From multialmacen left join ffacdet on Artmul = codffacd and almmul = almffacd " &_
"left join ffacenc on nfaffacd = numfface and year(fecfface) = "& Periodo &" " &_
"where Almmul = 1 " &_
"and exirmul > 0 " &_
"And stafface = 'A' " &_
"group by Almmul, Artmul, desmul, Exirmul, (Exirmul - Capmul - Rsem) " &_
"order by Artmul;"
Rs11.open Sql11,cn1,1,2
%>
<Table border="0" cellspacing="1" cellpadding="1" bordecolor="#000000">
<Tr bgcolor="#c0c0c0">
<Td class="Normalb">Codigo</td>
<Td class="Normalb">Descripcion</td>
<Td class="Normalb">Existencias</td>
<Td class="Normalb">Enero</td>
<Td class="Normalb">Febrero</td>
<Td class="Normalb">Marzo</td>
<Td class="Normalb">Abril</td>
<Td class="Normalb">Mayo</td>
<Td class="Normalb">Junio</td>
<Td class="Normalb">Julio</td>
<Td class="Normalb">Agosto</td>
<Td class="Normalb">Septiembre</td>
<Td class="Normalb">Octubre</td>
<Td class="Normalb">Noviembre</td>
<Td class="Normalb">Diciembre</td>
<Td class="Normalb">Totales</td>
</Tr>
<%
Do While Not Rs11.Eof
%>
<Tr>
<Td class="Normalc"><%= Rs11("Artmul") %></td>
<Td class="Normalc"><%= Rs11("Desmul") %></td>
<Td class="Normalc" Align="Right"><%= Formatnumber(Rs11("EXIRMUL")) %></td>
<Td class="Normalc" Align="Right"><%= Formatnumber(Rs11("Enero")) %></td>
<Td class="Normalc" Align="Right"><%= Formatnumber(Rs11("Febrero")) %></td>
<Td class="Normalc" Align="Right"><%= Formatnumber(Rs11("Marzo")) %></td>
<Td class="Normalc" Align="Right"><%= Formatnumber(Rs11("Abril")) %></td>
<Td class="Normalc" Align="Right"><%= Formatnumber(Rs11("Mayo")) %></td>
<Td class="Normalc" Align="Right"><%= Formatnumber(Rs11("Junio")) %></td>
<Td class="Normalc" Align="Right"><%= Formatnumber(Rs11("Julio")) %></td>
<Td class="Normalc" Align="Right"><%= Formatnumber(Rs11("Agosto")) %></td>
<Td class="Normalc" Align="Right"><%= Formatnumber(Rs11("Septiembre")) %></td>
<Td class="Normalc" Align="Right"><%= Formatnumber(Rs11("Octubre")) %></td>
<Td class="Normalc" Align="Right"><%= Formatnumber(Rs11("Noviembre")) %></td>
<Td class="Normalc" Align="Right"><%= Formatnumber(Rs11("Diciembre")) %></td>
<Td class="Normalc" Align="Right"><%= Formatnumber(Rs11("Total")) %></td>
</Tr>
<%
Rs11.Movenext
Response.Flush
Loop
%>
</Table>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>