<%@ LANGUAGE = "VBScript" %>
<%
Path_index=Request.ServerVariables("PATH_INFO")
'Check if user is already signed in
if session("custid")="" or session("custid")=null then
'response.redirect("firmar.asp?Origen=" & Path_index)
end if
busca=request.QueryString("busca")
doc=request.QueryString("doc")
origen=request.QueryString("origen")
Rango=Request.Form("rango")
criterio=Request.Form("criterio")
campo=Request.Form("campo")
if criterio="" or criterio=null then
criterio="%"
campo=""
end if
%>
Buscar datos
<%
header
if busca="" or busca=null then
origen=doc
end if
%>
LISTA DE CLIENTES BLOQUEADOS
<%
sla="/"
cero1="00"
cero2="0000"
If Rango=1 or Rango="" Then
if campo<>"" then
criterio="%"&criterio&"%"
'SELECT a.crp_id, a.job_date, a.job_seq, a.cust_cd, b.cust_nm, a.po_chk, a.plan_chk, a.ship_chk, a.pack_chk, a.user_id, (select user_nm from sta300t(nolock) where user_id = a.user_id) user_nm, a.update_date, a.update_time FROM stb012t a(nolock), stb010t b(nolock) WHERE a.crp_id = :as_crp_id AND a.cust_cd = b.cust_cd AND a.job_date = :as_job_date AND a.cust_cd like :as_cust_cd AND b.sale_cd like :as_sale_cd order by a.job_date, a.job_seq
set rsprod=dbsql.execute("SELECT a.crp_id, a.job_date, a.job_seq, a.cust_cd, b.cust_nm, a.po_chk, a.plan_chk, a.ship_chk, a.pack_chk, a.user_id, (select user_nm from sta300t(nolock) where user_id = a.user_id) user_nm, a.update_date, a.update_time FROM stb012t a(nolock), stb010t b(nolock) WHERE b.cust_nm like '"&(criterio)&"' and a.cust_cd = b.cust_cd order by a.job_date, a.job_seq")
end if
if campo="" then
set rsprod=dbsql.execute("SELECT a.crp_id, a.job_date, a.job_seq, a.cust_cd, b.cust_nm, a.po_chk, a.plan_chk, a.ship_chk, a.pack_chk, a.user_id, (select user_nm from sta300t(nolock) where user_id = a.user_id) user_nm, a.update_date, a.update_time FROM stb012t a(nolock), stb010t b(nolock) WHERE a.cust_cd = b.cust_cd order by a.job_date, a.job_seq")
end if
End If
' rsprod.movefirst
If rsprod.BOF And rsprod.EOF Then
%>
No se ha encontrado ningun registro que reuna las condiciones del criterio <%=Request("Criterio")%> en la Base de Datos
<%
Else
' facturas
cpc1=0
cpc2=0
cpc3=0
cpc4=0
cpc5=0
cpcd1=0
cpcd2=0
cpcd3=0
cpcd4=0
cpcd5=0
cpv1=0
cpv2=0
cpv3=0
cpv4=0
cpv5=0
cpvd1=0
cpvd2=0
cpvd3=0
cpvd4=0
cpvd5=0
rsprod.movefirst
%>
| Fecha: |
Bloqueo: |
Nombre del Cliente: |
|
<% While Not rsprod.EOF
if renglon=1 then
color="#9BCAE3"
renglon=0
else
color="#FFFFFF"
renglon=1
end if
%>
| <%=rsprod("job_date")%> |
<%=rsprod("job_seq")%> |
<%=rsprod("cust_nm")%> |
* |
<%
rsprod.MoveNext
Wend
rsprod.Close
End If
'end if
%>