<%
Dim Rs11, Sql11
Dim num_registros, num_campos, Campo, registros_mostrados
Dim origen, Lorigen
Dim FirmaD
numord = Cstr(request("Numord"))
Nomprv = request("Nomprv")
FechaInicio = request("FechaInicio")
FechaFinal = request("FechaFinal")

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

Dim FechaFinal
FechaFinal = request.Form("FechaFinal")
If FechaFinal = "" Then
FechaFinal = request.Querystring("FechaFinal")
else
FechaFinal = FechaFinal
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

'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 proveedores, cordenc where nomprv like '%" & UCase(Request("nomprv")) & "%' " &_
"and convert (date,FecOre) between '"& UCase(Request("FechaInicio")) &"' and '"& UCase(Request("FechaFinal")) &"' " &_
"and Numore like '%" & UCase(Request("NumOrd")) & "%' and cveprv = proore order by numore desc;"
rs11.open sql11,cn1,1,2


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

If Numord = "" and Nomprv = "" then
Response.Write("Buscar Orden O proveedor")
Response.Write("<hr>")
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; ">
<tr >
<TD  align="left" class="normalb"><b>Orden</b></td>

<TD   align="left" class="normalb"><b>Proveedor</b></td>
<TD  align="left" class="normalb"><b>Elaborado</b></td>
<TD  align="left" class="normalb"><b>Status</b></td>
<TD  align="left" class="normalb"><b>Autorizacion</b></td>
<TD align="right" class="normalb"><b>Importe</b></td>
<TD  align="right" class="normalb"><b>Origen</b></td>
<TD  align="center" class="normalb" colspan=2><b>Accion</b></td>
</tR>
<%

registros_mostrados = 0
Dim Color, Colorfila, Status
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   
   
Status = rs11("Staore")

If Status = 0 Then
Status = "PENDIENTE"
else if Status = 1 then
Status = "COMPRADA"
else if Status = 2 then
Status = "CANCELADA"
End If
End If
End If   

Firmad = Rs11("FirmaD")

If Isnull(FirmaD) Then
Firmad = "SIN AUTORIZAR"
ELSE
FIRMAD = "AUTORIZADA"
END IF

Origen = Rs11("oriore")

%> 
<tr>
<TD style=" padding: 5px 10px;" align="right" class="normal" bgcolor=<%= Color %>><%= rs11("NumOre")%></td>

<TD  align="Left" class="normal" bgcolor=<%= Color %>><%Response.Write rs11("nomprv")%></td>
<TD  align="Left" class="normal" bgcolor=<%= Color %>><%Response.Write rs11("FecOre")%></td>
<TD  align="Left" class="normal" bgcolor=<%= Color %>><%= Status %></td>
<TD  align="Left" class="normal" bgcolor=<%= Color %>><%= FIRMAD %></td>
<TD  align="right" class="normal" bgcolor=<%= Color %>><%Response.Write Formatcurrency(rs11("TotOre"))%></td>


<%
If Origen = 0 then
Lorigen = "Nacional"
%>

<TD width="150" align="right" class="normal" bgcolor=<%= Color %>><%= Lorigen %></td>
<TD align="center" class="normal" bgcolor=<%= Color %>>
<a href="Ordesp.asp?numord=<%= rs11("Numore")%>&Empresa=<%= Negocio %>" onclick="NewWindow(this.href,'Ordenes','790','470','yes');return false;">
<img src="image/print.gif" border=0 Alt="Original"></a>
 <!--
<a href="OrdespA.asp?numord=<%= rs11("Numore")%>&Empresa=<%= Negocio %>" onclick="NewWindow(this.href,'OrdenesA','790','470','yes');return false;">
<img src="image/print.gif" border=0 Alt="Ordenado Por Partida del Pedido"></a>
</TD>
-->

<%
Else
LOrigen = "Importacion"
%>
<TD width="100" align="right" class="normal" bgcolor=<%= Color %>><%= Lorigen %></td>
<TD align="center" class="normal" bgcolor=<%= Color %>>
<a href="Ording.asp?numord=<%= rs11("Numore")%>&Empresa=<%= Negocio %>" onclick="NewWindow(this.href,'Ordenes','790','470','yes');return false;">
<img src="image/print.gif" border=0 Alt="Original"></a>
</TD>
<%End If %>



</tr>
<%
   RS11.MoveNext
Wend

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