|
<%if request("texto_txt")<>"" then%>
Se encontraron estos requerimiento(s) que contienen: <%=request("texto_txt")%>
<%sql = "select * from ciec_compradores_reqdetalle where (requerimiento LIKE '%"&trim(request("texto_txt"))&"%' or espec LIKE '%"&trim(request("texto_txt"))&"%' or unidad LIKE '%"&trim(request("texto_txt"))&"%') order by id desc"
registros.open sql,conexion,1
if not registros.bof and not registros.eof then
do while not registros.eof
sql = "select * from ciec_compradores_requerimiento where id='"®istros("id_req")&"' and fechacompra<'"&hoy&"'"
registros2.open sql,conexion,1
if not registros2.bof and not registros2.eof then%>
">
» <%=registros2("nro")%>
<%end if
registros2.close
registros.movenext
loop
else%>
<%end if
registros.close%>
<%else%>
<%mostrar = 10
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
registros.PageSize = mostrar
registros.CacheSize = mostrar
hoy=datepart("m",date)&"/"&datepart("d",date)&"/"&datepart("yyyy",date)
sql = "select * from ciec_compradores_requerimiento where status=1 and fechacompra>'"&hoy&"' order by id desc"
registros.open sql,conexion,3,1
cant_paginas = registros.PageCount
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
If cant_paginas = 0 Then%>
|
No se han formulado requerimientos recientemente |
<%Else
registros.AbsolutePage = pagina_actual
sql = "Select count(*) as total from ciec_compradores_requerimiento where status=1 and fechacompra>'"&hoy&"'"
registros2.open sql,conexion,1
total_var=0
total_var=cint(registros2("total"))
registros2.close
sql = "select * from ciec_compradores_requerimiento where status=1 and fechacompra>'"&hoy&"' order by id"
registros2.open sql,conexion,3,1
primero=registros2("id")
registros2.close
sql = "select * from ciec_compradores_requerimiento where status=1 and fechacompra>'"&hoy&"' order by id desc"
registros2.open sql,conexion,3,1
ultimo=registros2("id")
registros2.close
sql="select count(*) as total from ciec_compradores_reqdetalle where (id_req>='"&primero&"') and (id_req<='"&ultimo&"')"
registros2.open sql,conexion,1
total2_var=registros2("total")
registros2.close%>
En este momento hay cotizando <%=total_var%> Requerimientos que contienen <%=total2_var%> rubros
| Nro. |
Productos o servicios |
<%registro_mostrado = 0
Do While registro_mostrado < mostrar And Not registros.EOF%>
" title="Nomenclatura: (h) horas restantes en que se recibirán cotizaciones (ac) analizando cotizaciones recibidas">
<%=registros("nro")%>
<%sql="select count(id) as total from ciec_compradores_reqdetalle where id_req='"®istros("id")&"'"
registros2.open sql,conexion,1
total_var=registros2("total")
registros2.close
randomize
j=int((rnd*total_var)+1)
sql="select * from ciec_compradores_reqdetalle where id_req='"®istros("id")&"'"
registros2.open sql,conexion,1
if not registros2.bof and not registros2.eof then
i=0
sw=0
do while registros2.EOF=False
i=i+1
if i=j then%>
<%status=((registros("fechacompra")-1)-date)*24%>
(<%if status>0 then%><%=status%> h<%else%>ac<%end if%>)
<%sw=sw+1
end if
if sw=2 then
exit do
end if
registros2.movenext
loop
end if
registros2.close%>
<%sql = "select count(*) as total from ciec_compradores_cotizacion where nroreq='"®istros("nro")&"'"
registros2.open sql,conexion,1
if registros2("total")>0 then%>
(<%=registros2("total")%> cotizaciones)
<%end if
registros2.close%>
<%sql = "select count(*) as total from ciec_compradores_comentario where idreq='"®istros("id")&"'"
registros2.open sql,conexion,1
if registros2("total")>0 then%>
(<%=registros2("total")%> comentarios)
<%end if
registros2.close%>
|
<%sql="select count(id) as total from ciec_compradores_reqdetalle where id_req='"®istros("id")&"'"
registros2.open sql,conexion,1
total_var=registros2("total")
registros2.close
sql="select * from ciec_compradores_reqdetalle where id_req='"®istros("id")&"'"
registros2.open sql,conexion,1
if not registros2.bof and not registros2.eof then
i=0
do while registros2.EOF=False%>
<%=registros2("requerimiento")%><%if registros2("espec")<>"" then%> (<%=registros2("espec")%>)<%end if%>
<%i=i+1
if i=3 and total_var<>3 then%>
">contiene otros <%=total_var-i%> rubros...
<%exit do
end if
registros2.movenext
loop
end if
registros2.close%>
|
|
<%registro_mostrado = registro_mostrado + 1
registros.MoveNext
Loop%>
<%end if
registros.close%>
|
|
|
<%If pagina_actual > 1 Then%>
[<< Anteriores]
<%
End If
For I = 1 To cant_paginas
If I = pagina_actual Then%>
<%= I %>
<%Else%>
<%= I %>
<%End If
Next 'I
If pagina_actual < cant_paginas Then%>
[Próximos >>]
<%End If%> |
|
|
<%end if%>
|
