<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wID_EMPRESA=request.item("ID_EMPRESA") wID_Vendedor=request.item("ID_VENDEDOR") wOrigem=request.item("Origem") if wOrigem="" then wOrigem="S" end if Dim wProposta, wNome, wCodigo, wCertificado, wCPF_CNPJ, wCidade, wEmpresa wProposta=request.item("Proposta") wMatricula=request.item("Matricula") wNome=request.item("Nome") wCodigo=request.item("Codigo") wCertificado=request.item("Certificado") wCPF_CNPJ=request.item("CPF_CNPJ") wCidade=request.item("Cidade") wEmpresa=request.item("Empresa") wCod_Vend=request.item("Cod_Vend") wNome_Vend=request.item("Nome_Vend") wOrdenar=request.item("Ordenar") if wID_Vendedor = "" then wID_Vendedor = "0" end if wSQL= " SELECT ID_PROPOSTA, MATRICULA, NOME_CLIENTE, DESC_PLANO, STATUS, NOME_EMPRESA, ID_EMPRESA, ID_VENDEDOR " wSQL=wSQL & " FROM LISTA_PROPOSTAS('" & wOrigem & "'," & wID_Vendedor & ")" wSQL=wSQL & " WHERE 1=1 " if wOrigem = "P" then wSQL=wSQL & " AND ID_EMPRESA = " & wID_EMPRESA end if if wOrigem = "V" then wSQL=wSQL & " AND (ID_Vendedor = " & wID_Vendedor & " OR CONSULTA_COMPLETA = 'S')" end if if wProposta <> "" then wSQL=wSQL & " AND ID_PROPOSTA = " & wProposta end if if wMatricula <> "" then wSQL=wSQL & " AND MATRICULA = " & wMatricula end if if wCertificado<> "" then wSQL=wSQL & " AND CERTIFICADO = '" & wCertificado & "'" end if if wEmpresa <> "" then wSQL=wSQL & " AND NOME_EMPRESA LIKE '%" & wEmpresa & "%'" end if if wCod_Vend <> "" then wSQL=wSQL & " AND ID_VENDEDOR = " & wCod_Vend end if if wCodigo <> "" then wSQL=wSQL & " AND ID_CLIENTE = " & wCodigo end if if wNome<> "" then wSQL=wSQL & " AND NOME_CLIENTE LIKE '%" & wNome& "%'" end if if wCidade <> "" then wSQL=wSQL & " AND CIDADE LIKE '%" & wCidade & "%'" end if if wCPF_CNPJ<> "" then wCPF_CNPJ=Replace(wCPF_CNPJ, ".", "") wCPF_CNPJ=Replace(wCPF_CNPJ, "-", "") wCPF_CNPJ=Replace(wCPF_CNPJ, "/", "") wCPF_CNPJ=FormatarCPF(wCPF_CNPJ) wSQL=wSQL & " AND CPF_CNPJ = '" & wCPF_CNPJ & "'" end if if wOrdenar = "Nome" then wSQL=wSQL & " ORDER BY NOME_CLIENTE " else wSQL=wSQL & " ORDER BY Dt_Venda " end if Set TabProposta = Database.Execute(wSQL) %>
<% if TabProposta.EOF then %> <% else %> <% While NOT TabProposta.EoF %> <% TabProposta.MoveNext %> <% Wend %> <% end if %>

Consulta de Proposta
 
 
Nenhuma proposta encontrada com o parāmetro especificado.
 
 

 
Empresa: <%=TabProposta("NOME_EMPRESA")%>
Proposta Nome Plano Vendedor Status
&ID_EMPRESA=<%=wID_EMPRESA%>&ID_Vendedor=<%=wID_Vendedor%>&Origem=<%=wOrigem%>"><%=TabProposta("ID_PROPOSTA")%> <%=TabProposta("Nome_CLIENTE")%> <%=TabProposta("DESC_PLANO")%>

<%=TabProposta("ID_VENDEDOR")%>

 <%=TabProposta("Status")%>