<%
Option Explicit
%>
<%
Session.LCID = 2058
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link href="css/Modulo5.css" rel="stylesheet" />
<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 asc"
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 Title="<%=rs5.fields("ffacn")%>"></a>
<%
rs5.MoveNext
loop
%>
<%
Response.Flush
%>
</div>
<div align="center" style="position:absolute; top:100px; left:50%; transform: translateX(-50%);">
<br>
<br>
<Center>
<BR>
<B>***** BUSQUEDA DE FACTURAS *****</B>
<BR><BR>
<Form action="ffactura.asp" method="post" >
<Table Id="TablaOpc">
<Tr>
<Td>Numero Factura:</Td>
<Td>Nombre Cliente:</Td>
<Td>Fecha Inical:</Td>
<Td>Fecha Final:</Td>
</Tr>
<Tr>
<Td>
<input tabindex="1" type="text" placeholder="Numero Factura" Title="Número Factura" name="NumFac" Id="TablaOpc" id="NumFac" Size="15" value="<%= NumFac %>">
</td>
<Td>
<input tabindex="2" type="text" placeholder="Nombre Cliente" Title="Nombre Cliente" Id="TablaOpc" name="Nomcli" id="Nomcli" Size="15" value="<%= Nomcli %>">
</Td>
<td><input type=text class=normalb name="FechaInicio"Size="10" Id="TablaOpc" Value="<%= date()-365 %>" size=7 onChange="javascript:this.value=this.value.toUpperCase();"></td>
<td><input type=text class=normalb name="FechaFinal"Size="10" Id="TablaOpc" Value="<%= date()+1 %>" size=7 onChange="javascript:this.value=this.value.toUpperCase();"></td>
<Td>
<button tabindex="4" type="submit" name="Buscar" id="BuscarCli"/>Buscar</button>
</td>
</Tr>
</table>
</form>
<br>
<%
Response.Flush
%>
<%
Dim Numfac
Dim Nomcli
Dim FechaInicio, FechaFinal
Nomcli = Cstr(request("Nomcli"))
Numfac = request("Numfac")
FechaInicio = request("FechaInicio")
FechaFinal = request("FechaFinal")
If Numfac ="" and Nomcli ="" Then
Else
%>
<!--#include file="FFACList.asp"--><br>
<%
End If
rs5.close
%>
<%
Response.Flush
%>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>