<%
Dim Rs11, Sql11
Dim num_registros, num_campos, Campo, registros_mostrados

Numrec = request("Numrec")
NumORD = request("NumORD")
Nomprv = Cstr(request("Nomprv"))
FacPro = Cstr(request("FacPro"))


Dim Numrec
Numrec = request.Form("Numrec")
If Numrec = "" Then
Numrec = request.Querystring("Numrec")
else
Numrec = Numrec
end if

Dim NumoRD
NumoRD = request.Form("NumORD")
If NumORD = "" Then
NumORD = request.Querystring("NumORD")
else
NumORD = NumORD
end if

Dim  Nomprv
Nomprv = request.Form("Nomprv")
If Nomprv = "" Then
Nomprv = request.Querystring("Nomprv")
else
Nomprv = Nomprv
end if

Dim  FacPro
FacPro = request.Form("FacPro")
If FacPro = "" Then
FacPro = request.Querystring("FacPro")
else
FacPro = FacPro
end if

'Numero de Paginas
If Request.QueryString("pag")<>"" Then
   Session("pagina")=Request.QueryString("pag")
Else
   Session("pagina")=1
End If


set rs11 = server.CreateObject("ADODB.Recordset")
SQL11="SELECT * from Lrece " &_
"where entrada like '%" & UCase(Request("Numrec")) & "%' " &_
"and ORDEN like '%" & UCase(Request("NUMORD")) & "%' " &_
"and Proveedor like '%" & UCase(Request("Nomprv")) & "%' "&_
"and FacProveedor like '%" & UCase(Request("FacPro")) & "%' order by entrada desc;"
rs11.open sql11,cn1,1,2

If rs11.Eof then
Response.Write("No Exiten Registros bajo esa busqueda")
Else

If Numrec= "" and Nomprv = "" and Numord = "" and FacPro = "" then
Response.Write("Buscar por Proveedor o Entrada	")
else



'Registros por Pagina
num_registros = 25

'Dimensionamos las paginas y determinamos la pagina actual
RS11.PageSize=num_registros
RS11.AbsolutePage=Session("pagina")
%>
<hr>
Pagina  <b><%=Session("pagina")%></b> De <b><%=RS11.PageCount%></b>
<br>
Registros Encontrados: <b><%=RS11.RecordCount%></b>
<br><br>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>

<%
'Contamos el numero de campos
num_campos=RS11.Fields.Count 
For campo=0 to num_campos-1%>
   <td align="center" Class="normal" bgcolor="#d8d8d8"><%=RS11(campo).Name%></td>
<%
Next
%>
<td align="Center" class="normal" bgcolor="#d8d8d8">Doc</td>
<%

registros_mostrados = 0
Dim Color, Colorfila
While (Not RS11.eof And registros_mostrados < num_registros)
   registros_mostrados = registros_mostrados +1
   
if colorfila = 0 then
Color= "#d8d8d8"
Colorfila = 1
else
Color= "#ffffff"
Colorfila = 0
end if   
   
   
%> 
   <tr>
<td class="normal" align="right" bgcolor=<%=Color%>><%= rs11("Entrada") %></td>
<td class="normal" align="right" bgcolor=<%=Color%>><%= rs11("fecha") %></td>
<td class="normal" align="Left" bgcolor=<%=Color%>><%= rs11("Proveedor") %></td>
<td class="normal" align="Center" bgcolor=<%=Color%>><%= rs11("Status") %></td>
<td class="normal" align="Left" bgcolor=<%=Color%>><%= rs11("Moneda") %></td>

<td class="normal" align="right" bgcolor=<%=Color%>><%= FormatCurrency(rs11("Importe")) %></td>
<td class="normal" align="right" bgcolor=<%=Color%>><%= rs11("orden") %></td>
<td class="normal" align="right" bgcolor=<%=Color%>><%= rs11("FacProveedor") %></td>
<td class="normal" align="right" bgcolor=<%=Color%>>
<a href="OrdentAlm.asp?Numrec=<%=rs11("Entrada")%>&Empresa=<%= Negocio %>" onclick="NewWindow(this.href,'Cotizacion','790','470','yes');return false;">
<img src="image/print.gif" border="0" Alt="Recepcion Numero <%= rs11("Entrada") %>">
</td>
   </tr>
<%
   RS11.MoveNext
Wend

%>
<tr>
<td colspan="<%=num_campos + 1 %>" align="center">
<%
   i=0
While i<RS11.PageCount 
   i=i+1
%>
   <b><a href="OrdenAlmE.asp?pag=<%=i%>&Nomprv=<%= Nomprv %>&Numrec=<%= Numrec %>"><%=i%></a></b>
<%
Wend
%>
</td>
</tr>
</table>
<%
End If
End If
RS11.Close
%>