<% Option Explicit %>
<% Session.LCID = 2058 %>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="refe.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:0px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>
<div class="normalw" style="position:absolute; top:5px;">
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>
<BR>
<b> <<<<< ESTADO DE CUENTA POR PROVEEDOR >>>>> </B>
<Form action="CxpEdoPrv.asp" Name="Filtro" method="Post">
<TABLE Border="0" Cellspacing="1" Cellpadding="2" bordercolor="#000000">
<Tr>
<td Class="Normalb">Filtrar Por: </td>
<td Class="Normalb">
<Select NAME="FiltroA" Class="Normalb">
<Option Value="Cveprv">Clave</Option>
<Option Value="Nomprv">Nombre</Option>
</Select>
</td>
<td Class="Normalb">
<Select NAME="FiltroB" Class="HtablaB">
<Option Value="Like">Contiene</Option>
<Option Value="=">Igual que</Option>
<Option Value="<>">Diferente a</Option>
</Select>
</td>
<Td Class="Normalb">
<Input Type="Text" Class="Normalb" Name="FiltroC" Size="15" Value="" Style="Text-Align:Right" OnChange="javascript:this.value=this.value.toUpperCase();">
</td>
<Td Class="Normalb">
<input type="Submit" value="Filtrar" class="Normalb">
</td>
</tr>
</Table>
</form>
<HR>
<%
Dim Rs11, Sql11
Dim FiltroA, FiltroB, FiltroC, FiltroD
Dim msa
FiltroA = Request("FiltroA")
FiltroB = Request("FiltroB")
FiltroC = Request("FiltroC")
If FiltroC = "" Or Isnull(FiltroC) Then
Else
If FiltroB = "Like" then
FiltroD = "'%" & UCase(Request("FiltroC")) & "%'"
Else
FiltroD = FiltroC
FiltroD = "'"&FiltroD&"'"
End If
msa = " and " & FiltroA & " " & FiltroB & " " & FiltroD
'*************** RECORDSET PARA BUSCAR EL CLIENTE ******
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select Cveprv As Clave, Nomprv as Nombre, Staprv as Status " &_
"From Proveedores, Status " &_
"Where Clasta = Staprv " & msa & " " &_
"Order By Nomprv;"
Rs11.open Sql11,Cn1,1,2
If Rs11.Eof Then
Else
%>
<TABLE Border="1" Cellspacing="1" Cellpadding="2" bordercolor="#c3c3c3">
<Tr>
<td Class="Normalb">Clave </td>
<td Class="Normalb">Nombre </td>
<td Class="Normalb">Status </td>
<td Class="Normalb"> </td>
<%
Do While Not Rs11.Eof
%>
<Tr>
<td Class="Normalb"><%= Rs11("Clave") %></td>
<td Class="Normalb"><%= Rs11("Nombre") %></td>
<td Class="Normalb" Align="Center"><%= Rs11("Status") %></td>
<td Class="Normalb">
<a Href="CxpEdoprvPdf.asp?Clave=<%= Rs11("Clave") %>&Empresa=<%= Negocio %>" target="DiredoCpdf"
onClick="window.open(this.href, this.target, 'width=1000,height=500,scrollbars=yes,resizable=yes'); return false;">
<img src="image/pdf.gif" border="0" height="20"></a>
</td>
<%
Rs11.Movenext
Loop
%>
</Table>
<%
End If
End If
%>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>