<%
Dim Rs11, Sql11
Dim num_registros, num_campos, Campo, registros_mostrados
'Numero de Paginas
If Request.QueryString("pag")<>"" Then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina")=1
End If
Response.Flush
set rs11 = server.CreateObject("ADODB.Recordset")
SQL11="SELECT * from Lfactura " &_
"where convert (date,fecha) between '"& UCase(Request("FechaInicio")) &"' and '"& UCase(Request("FechaFinal")) &"' " &_
"and Factura like '%" & UCase(Request("Numfac")) & "%' " &_
"and Cliente like '%"& UCase(Request("Nomcli")) &"%' order by fecha desc, factura desc;"
rs11.open sql11,cn1,1,2
If rs11.Eof then
Response.Write("No Exiten Registros bajo esa busqueda")
Else
If Numfac = "" and Nomcli = "" then
Response.Write("Buscar por Cliente o Factura")
else
'Registros por Pagina
num_registros = 30
'Dimensionamos las paginas y determinamos la pagina actual
RS11.PageSize=num_registros
RS11.AbsolutePage=Session("pagina")
%>
<br>
Pagina <b><%=Session("pagina")%></b> De <b><%=RS11.PageCount%></b>
<br>
Registros Encontrados: <b><%=RS11.RecordCount%></b>
<br><br>
<TABLE id="KardexTd" align="justify" style="width: 100%; border-collapse: border; table-auto; ">
<%
'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">Esp</td>
<td align="Center" class="normal" bgcolor="#d8d8d8">Ing</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 style=" padding: 5px 10px;" bgcolor=<%=Color%>><%= rs11("fecha") %></td>
<td class="normal" align="right" bgcolor=<%=Color%>><%= rs11("Factura") %></td>
<td class="normal" align="Left" bgcolor=<%=Color%>><%= rs11("Referencia") %></td>
<td class="normal" align="Left" bgcolor=<%=Color%>><%= rs11("Clavec") %></td>
<td class="normal" align="Left" bgcolor=<%=Color%>><%= rs11("Cliente") %></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%>>
<a href="Ffacesp.asp?ffacnum=<%=rs11("Factura")%>&Empresa=<%= Negocio %>" onclick="NewWindow(this.href,'Factura','790','470','yes');return false;">
<img src="image/print.gif" border="0" Alt="Factura Numero <%= rs11("Factura") %>">
</td>
<td class="normal" align="right" bgcolor=<%=Color%>>
<a href="FfacIng.asp?ffacnum=<%=rs11("Factura")%>&Empresa=<%= Negocio %>" onclick="NewWindow(this.href,'Factura','790','470','yes');return false;">
<img src="image/EngPrint.gif" border="0" Alt="Factura Numero <%= rs11("Factura") %>" Height="20px">
</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="Ffactura.asp?pag=<%=i%>&Nomcli=<%= Nomcli %>&Numfac=<%= Numfac %>&FechaInicio=<%= FechaInicio %>&FechaFinal=<%= FechaFinal %>"><%=i%></a></b>
<%
Wend
%>
</td>
</tr>
</table>
<%
End If
RS11.Close
End If
%>