<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wProposta=request.item("Proposta") wSQL=" SELECT FIRST 1 C.ID, C.NOME " wSQL= wSQL & " FROM PROPOSTAS_CLIENTES PC " wSQL= wSQL & " LEFT JOIN CLIENTES C " wSQL= wSQL & " ON C.ID = PC.ID_CLIENTE " wSQL= wSQL & " WHERE PC.ID_PROPOSTA = " & wProposta wSQL= wSQL & " AND PC.TITULAR = 'S' " Set TabTitular = Database.Execute(wSQL) wSQL="SELECT * FROM CLIENTES_HISTORICOS WHERE ID_PROPOSTA = " & wProposta & " ORDER BY DATA DESC " Set TabHistorico = Database.Execute(wSQL) %>

Históricos
     
Proposta : <%=wProposta%>

&Titular=<%=TabTitular("Nome")%>"> Novo     Voltar

Titular : <%=TabTitular("Nome")%>

 
     
<% While NOT TabHistorico.EoF %> <% else %> - <% end if %> <% TabHistorico.MoveNext %> <% Wend %>
Data Hora Descrição Usuario  
<%=DataBr(TabHistorico("Data"))%> <%=TabHistorico("Hora")%> <%=TabHistorico("Descricao")%> <%=TabHistorico("Usuario")%>

<% if 1=2 then %> &Hora=<%=TabHistorico("Hora")%>&Descricao=<%=TabHistorico("Descricao")%>&Cliente=<%=TabTitular("ID")%>&Proposta=<%=wProposta%>&Historico_ID=<%=TabHistorico("ID")%>">

     
   

Voltar