<% Response.Expires = 15 %> VIDA SIMPLES - CONTROLE DE PROPOSTA <% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao Dim wAcao, wProposta, wEmpresa, wVendedor, wFormaPg, wParcelas, wVigInicio, wVigFim, wDtVenda, wDtVencimento wAcao=request.item("Acao") wProposta=request.item("TProposta") wMatricula=request.item("Matricula") if wMatricula = "" then wMatricula = 0 end if wEmpresa=request.item("CBEmpresa") wOrigem=request.item("Origem") if wOrigem = "" then wOrigem=S end if wID_EMPRESA=request.item("ID_EMPRESA") wID_Vendedor=request.item("ID_Vendedor") if wEmpresa = "" then wEmpresa=wID_EMPRESA end if wVendedor=request.item("CBVendedor") wFormaPg=request.item("CBFormaPg") wParcelas=request.item("TParcelas") wDtVenda=Year(request.item("TDtVenda")) & "-" & Month(request.item("TDtVenda")) & "-" & Day(request.item("TDtVenda")) wSQL="SELECT R_DATA FROM PROC_DATA" Set TabData = Database.Execute(wSQL) wDtVencimento=Year(TabData("R_DATA")) & "-" & Month(TabData("R_DATA")) & "-" & Day("11") wDtVencimento=DateAdd("m", 1, wDtVencimento) if wAcao <> "C" then wVigInicio=DateAdd("m", 3, wDtVencimento) wVigFim=DateAdd("m", 11, wVigInicio) wVigInicio=Year(wVigInicio) & "-" & Month(wVigInicio) & "-" & Day(wVigInicio) wVigFim=Year(wVigFim) & "-" & Month(wVigFim) & "-" & Day(wVigFim) end if wDtVencimento=Year(wDtVencimento) & "-" & Month(wDtVencimento) & "-" & Day(wDtVencimento) wSQL="SELECT P.*, E.ID as ID_EMPRESA, E.NOME AS EMPRESA, V.ID as ID_VENDEDOR, V.NOME AS VENDEDOR" wSQL=wSQL & " FROM PROPOSTAS P" wSQL=wSQL & " LEFT JOIN EMPRESAS E" wSQL=wSQL & " ON E.ID = P.ID_EMPRESA" wSQL=wSQL & " LEFT JOIN VENDEDORES V" wSQL=wSQL & " ON V.ID = P.ID_VENDEDOR" wSQLProposta=wSQL if wProposta <> "" then wSQL=wSQL & " WHERE P.ID = " & wProposta else wSQL=wSQL & " WHERE P.MATRICULA = " & wMatricula end if Set TabProposta = Database.Execute(wSQL) if TabProposta.EOF then wProposta = Numera("PRO") if wMatricula = 0 then wMatricula = wProposta end if wSQLInsere="INSERT INTO PROPOSTAS (ID, MATRICULA,ID_EMPRESA,FORMA_PG,ID_VENDEDOR,DT_VENCIMENTO,PARCELAS,DT_VIG_INICIO,DT_VIG_FIM,DT_VENDA,STATUS,CA_USUARIO)" &_ "VALUES (" & wProposta & "," & wMatricula & "," & wEmpresa & ",'" & wFormaPg & "'," & wVendedor & ",'" & wDtVencimento & "'," & wParcelas & ",'" & wVigInicio & "','" & wVigFim & "','" & wDtVenda & "','-', 'Admim'" & ")" Set TabProposta = Database.Execute(wSQLInsere) wSQLProposta=wSQLProposta & " WHERE P.ID = " & wProposta Set TabProposta = Database.Execute(wSQLProposta) else if wAcao<>"C" then response.redirect("Reg_Ja_Cadastrado.htm") end if end if Dim wStatus if TabProposta("Status") = "-" then wStatus="Aguardando Confirmação" else wStatus="Ativa" end if wSQL="SELECT ID_CLIENTE, ID_PLANO, NOME, DESCRICAO, TITULAR " wSQL=wSQL & " FROM CLIENTES_PROPOSTAS(" & wPROPOSTA & ",'" & wOrigem & "')" Set TabClientes = Database.Execute(wSQL) wSQL="SELECT * FROM PROPOSTAS_PARCELAS WHERE ID_PROPOSTA=" & wPROPOSTA wSQL=wSQL & " ORDER BY DT_VENCIMENTO DESC" Set TabParcelas = Database.Execute(wSQL) if wEmpresa = "" then wEmpresa = TabProposta("ID_EMPRESA") end if if wID_EMPRESA = "" then wID_EMPRESA = TabProposta("ID_EMPRESA") end if if wVendedor = "" then wVendedor = TabProposta("ID_VENDEDOR") end if %>

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

<%=TabProposta("Empresa")%>

Inserir Cliente

"> Carta Reabilitação

">Históricos/Docs.

Imprimir
Vendedor :

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

<%=TabProposta("Forma_Pg")%>

Parcelas

:

<%=TabProposta("Parcelas")%>
Data Venda : <%=DataBr(TabProposta("Dt_Venda"))%> 1º Venc. : <%=DataBr(TabProposta("DT_Vencimento"))%>
Vigência :

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

à

:

<%=DataBr(TabProposta("Dt_VIG_Fim"))%>
Status : <% if TabProposta("STATUS") = "Ativo" then wCorStatus = "#0000FF" else wCorStatus = "red" end if %> ><%=TabProposta("STATUS")%>
<% While NOT TabClientes.EoF %> <% if TabClientes("TITULAR") = "S" then wCor="#FF0000" else wCor="#000000" end if%> <% TabClientes.MoveNext %> <% Wend %>
Clientes Planos
&Plano=<%=TabClientes("ID_PLANO")%>&Empresa=<%=wID_Empresa%>&Origem=<%=wOrigem%>&ID_Vendedor=<%=wID_Vendedor%>"> <%=TabClientes("NOME")%> <%=TabClientes("DESCRICAO")%>
<% While NOT TabParcelas.EoF %> <% if TabParcelas("DT_RECEBIMENTO") <> "" then wCor = "#000099" else wCor = "#000000" 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")%> <%=DataBr(TabParcelas("DT_VENCIMENTO"))%> <%=FormatarValor(TabParcelas("VALOR"))%><%=wDt_Receb%>