<% wID=request.item("ID") Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao SQL=" SELECT P.ID, E.NOME AS EMPRESA, V.NOME AS VENDEDOR, P.FORMA_PG, " SQL=SQL & " P.PARCELAS, P.DT_VIG_INICIO, P.DT_VIG_FIM, P.DT_VENDA, P.STATUS " SQL=SQL & " FROM PROPOSTAS P " SQL=SQL & " LEFT JOIN EMPRESAS E " SQL=SQL & " ON E.ID = P.ID_EMPRESA " SQL=SQL & " LEFT JOIN VENDEDORES V " SQL=SQL & " ON V.ID = P.ID_VENDEDOR " SQL=SQL & " WHERE P.ID = " & wID Set TabProposta = Database.Execute(SQL) wSQL="SELECT ID_CLIENTE, ID_PLANO, C.NOME, P.DESCRICAO, PC.TITULAR FROM PROPOSTAS_CLIENTES PC " wSQL=wSQL & " LEFT JOIN CLIENTES C ON C.ID = PC.ID_CLIENTE " wSQL=wSQL & " LEFT JOIN PLANOS P ON P.ID = PC.ID_PLANO WHERE PC.ID_PROPOSTA = " & wID Set TabClientes = Database.Execute(wSQL) wSQL="SELECT * FROM PROPOSTAS_PARCELAS WHERE ID_PROPOSTA=" & wID wSQL=wSQL & " ORDER BY DT_VENCIMENTO DESC" Set TabParcelas = Database.Execute(wSQL) %>

Proposta
     
Proposta : <%=TabProposta("ID")%>
Empresa :

<%=TabProposta("Empresa")%>

 
Vendedor :

<%=TabProposta("Vendedor")%>
Forma de Pg. :

<%=TabProposta("Forma_Pg")%>

Parcelas

:

<%=TabProposta("Parcelas")%>
Vigência :

<%=DataBr(TabProposta("Dt_VIG_Inicio"))%>

à

:

<%=DataBr(TabProposta("Dt_VIG_Fim"))%>
Data Venda :

<%=DataBr(TabProposta("Dt_Venda"))%>
Status : <%=TabProposta("STATUS")%>
 
<% While NOT TabClientes.EoF %> <% if TabClientes("TITULAR") = "S" then wCor="#FF0000" else wCor="#000000" end if%> <% TabClientes.MoveNext %> <% Wend %>
Clientes Planos
&Cliente=<%=TabClientes("ID_CLIENTE")%>&Plano=<%=TabClientes("ID_PLANO")%>&Empresa=<%=wID_Empresa%>"> <%=TabClientes("NOME")%> <%=TabClientes("DESCRICAO")%>
<% While NOT TabParcelas.EoF %> <% if TabParcelas("DT_RECEBIMENTO") <> "" then wCor = "#000099" else wCor = "#000000" end if %> <% if (not (TabParcelas("DT_RECEBIMENTO") = "")) or (TabParcelas("DT_VENCIMENTO")>date()) then %> <% else %> <% end if %> <% if TabParcelas("DT_RECEBIMENTO") <> "" then wDt_Receb=DataBr(TabParcelas("DT_RECEBIMENTO")) else wDt_Receb="-" end if %> <% TabParcelas.MoveNext %> <% Wend %>
Parcelas
Nº Venc. Valor Receb.
<%=TabParcelas("ID_PARCELA")%>&Parcela=<%=TabParcelas("ID_PARCELA")%>"><%=TabParcelas("ID_PARCELA")%><%=DataBr(TabParcelas("DT_VENCIMENTO"))%> <%=FormatarValor(TabParcelas("VALOR"))%><%=wDt_Receb%>