<%
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>
</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">
<%
dim rs5, sql5
set rs5 = server.CreateObject("ADODB.Recordset")
sql5 = "select * from Ffacm where (usuario like '" & nombre & "') order by Ffacs"
rs5.open sql5,cn1,1,2
%>
<%
do while not rs5.EOF
%>
<a href="<%=rs5.fields("Ffacm")%>.asp"><img src="Image/<%=rs5.fields("ffacn")%>.gif" border=0 Alt=<%=rs5.fields("ffacn")%>></a>
<%
rs5.MoveNext
loop
%>
</div>
<div class="normal" style="position:absolute; top:100px; left:1">
<center>
<hr>
<BR>
<B>REPORTE DE VENTAS POR CLIENTE POR MES</B>
<BR><BR>
<HR>
<%
Dim DiaA, MesA, YearA, MesH
Dim ClienteI, ClienteF
Clientei = Request("ClienteI")
ClienteF = Request("ClienteF")
IF ClienteI = "" or Isnull(ClienteI) then
ClienteI = "000000"
Else
ClienteI = ClienteI
End IF
IF ClienteF = "" or Isnull(ClienteF) then
ClienteF = "000000"
Else
ClienteF = ClienteF
End IF
DiaA = "01"
MesH = Month(date())
If MesH < 10 then
MesA = "0" & MesH
Else
MesA = MesH
End If
YearA = Year(Date())
%>
<Form action="Clifacxmesb.asp" name="ReporteVentas" method='post'>
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<tr>
<td Class="Normalb">Cliente Inicial: </td>
<td>
<a href="BClifac.asp?ClienteI=<%= ClienteI %>&ClienteF=<%= ClienteF %>"
onclick="NewWindow(this.href,'Bclifac','640','480','yes');return false;"">
<%= ClienteI %> </a>
</td>
<td Class="Normalb"> Cliente Final: </td>
<td>
<a href="BClifacb.asp?ClienteI=<%= ClienteI %>&ClienteF=<%= ClienteF %>"
onclick="NewWindow(this.href,'Bclifac','640','480','yes');return false;"">
<%= ClienteF %> </a>
</td>
</tr>
<tr>
<td Class="Normalb"><br>Vendedor: </td>
<td class="normal" Colspan= "3"><br>
<%
Dim Rs11, Sql11
set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 ="select * from vendedores"
Rs11.Open Sql11, cn1
%>
<SELECT NAME="Vendedor" class="Normalb">
<optgroup label="Vendedor:">
<option value="0" selected>Todos </option>
<%
While Not Rs11.EOF
%>
<OPTION value="<%= Rs11("cvevend") %>"> <%= Rs11("nomvend") %> </option>
<%
Rs11.MoveNext
Wend
%>
</select>
</td>
</tr>
<tr>
<td Class="Normalb"><br>Fecha Inicial: </td>
<td><br><input type=text class=normalb name="FechaI" size="12" Value=<%= DiaA & "/" & MesA & "/" & YearA %>> </td>
<td Class="Normalb"><br> Fecha Final: </td>
<td><br>
<input type=text class=normalb name="FechaF" size="12" Value=<%= Date() %>>
<input type="Hidden" class=normalb name="ClienteI" size="12" Value=<%= ClienteI %>>
<input type="Hidden" class=normalb name="ClienteF" size="12" Value=<%= ClienteF %>>
</td>
</tr>
<tr>
<td Colspan="4" Align="Center"><br>  <input type="submit" value="Buscar" class=normalb></td>
</tr>
</table>
</form>
</Table>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>