<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao Dim wID wID=request.item("edtCodigo") wNome=request.item("edtNome") wDataNasc=request.item("edtDataNasc") if wID = "" then SQL="SELECT ID FROM CLIENTES c " SQL=SQL & " WHERE UPPER(c.nome) LIKE UPPER('" & wNome & "%') " SQL=SQL & " AND C.DT_NASCIMENTO = '" & InverteData(wDataNasc) & "'" Set TabConsultaID = Database.Execute(SQL) wID = TabConsultaID("ID") end if SQL= "SELECT * FROM PCONSULTA_SITUACAO_CLIENTE(" & wID & "," & session("ID_Parceiro") & ")" Set TabConsulta = Database.Execute(SQL) SQL= "SELECT CC.DATA_HORA FROM CONSULTA_CLIENTE CC WHERE CAST(CC.DATA_HORA AS DATE) = CURRENT_DATE AND CC.ID_CLIENTE = " & wID Set TabConsulta_HJ = Database.Execute(SQL) SQL= "SELECT PB.NOME, PB.PARENTESCO, PB.DT_NASCIMENTO FROM PROPOSTAS_BENEFICIARIOS PB " SQL= SQL & " WHERE PB.ID_PROPOSTA = " & TabConsulta("RID_PROPOSTA") SQL= SQL & " AND PB.ID_CLIENTE = " & TabConsulta("RID_CLIENTE") Set TabConsulta_Beneficiarios = Database.Execute(SQL) %>
<% While NOT TabConsulta.EoF %> <% TabConsulta.MoveNext %> <% Wend %> <% end if %>
 

Resultado da Consulta
 
Cliente Nome Proposta Plano Situação
<%=TabConsulta("RID_CLIENTE")%> <%=TabConsulta("RNOME")%> <%=TabConsulta("RID_PROPOSTA")%> <%=TabConsulta("RPLANO")%> <% if TabConsulta("RSITUACAO") = "Ativo" then wCorSit="#0000FF" else wCorSit="#FF0000" end if %> ><%=TabConsulta("RSITUACAO")%>
         
         
Beneficiarios
<% While NOT TabConsulta_Beneficiarios.EoF %> <% TabConsulta_Beneficiarios.MoveNext %> <% Wend %>
Nome Parentesco Data Nasc.
<%=TabConsulta_Beneficiarios("NOME")%> <%=TabConsulta_Beneficiarios("PARENTESCO")%> <%=DataBr(TabConsulta_Beneficiarios("DT_NASCIMENTO"))%>
 
Consultas realizadas hoje para esse cliente:
<% if not TabConsulta_HJ.Eof then %> <% while not TabConsulta_HJ.Eof %> <% TabConsulta_HJ.MoveNext %> <% Wend %>
Data Hora:
<%=TabConsulta_HJ("DATA_HORA")%>
<% else %>

Nenhum consulta realizada hoje.

 
 

Voltar