<% if Request.QueryString("acao")="cancelaritem" then if NOT(IsEmpty(Request.QueryString("id"))) Then qselp="SELECT * FROM T_PROPOSTA WHERE IDPROPOSTA="&Request.QueryString("id") Set RSselp=Conexao.Execute(qselp) qdelp="DELETE FROM T_PESSOA WHERE IDPESSOA="&RSselp("IDPESSOA") Conexao.Execute(qdelp) End If End if %> <% if Session("SQLPROPSTATUS")="" then Response.Redirect "sqlpropstatus.asp" End if if IsEmpty(Request.QueryString("ordem")) then qpro=Session("SQLPROPSTATUS")&" ORDER BY DTCADASTRO DESC" else qpro=Session("SQLPROPSTATUS")&" ORDER BY "&Request.QueryString("ordem") End if Set RSpro=Conexao.Execute(qpro) %> Administração
Busca Rápida:    
Por Nome:
Por CPF:
 
(só numeros)
  
<% qs="SELECT * FROM T_STATUS" Set RSs=Conexao.Execute(qs) %>
Por Status
  
[Todas as Propostas]
<%Do Until RSpro.EOF%> <% RSpro.MoveNext Loop %>
Legenda:
Proposta à imprimir
Proposta Bloqueada
Preencher ContratoPreencher Contrato
Cancelar Proposta
Proposta à imprimir
Proposta Bloqueada
Preencher Contrato
Imprimir Contrato
Cancelar Prop./Contr.
Cod.
  
Repre. (Vend.)
Nome (CPF)
Data
Valor
STATUS
  
<%=RSpro("IDPROPOSTA")%>
<% if RSpro("PARC_PREENCHIDA")=true then %> "> <% else if RSpro("T_PROPOSTA.IDSTATUS")=2 then %> ">"> <% else if RSpro("T_PROPOSTA.IDSTATUS")=3 then %> "> <% else %> "> <% End if End if End if %>
">
<%=RSpro("T_REPRESENTANTE.NOME")%>
 ">
<%=RSpro("T_PESSOAFISICA.NOME")%>
<%=RSpro("DTCADASTRO")%>
R$ <%=RSpro("VALOR")%>
<%=RSpro("TITULO")%>
 )">Cancelar Proposta