<% qpro="SELECT * FROM T_PROPOSTA, T_PESSOA, T_PESSOAFISICA, T_STATUS, T_REPRESENTANTE, T_VENDEDOR, T_PRODUTO WHERE T_PRODUTO.IDPRODUTO=T_PROPOSTA.IDPRODUTO AND T_VENDEDOR.IDVENDEDOR=T_PROPOSTA.IDVENDEDOR AND T_PROPOSTA.IDREPRESENTANTE=T_REPRESENTANTE.IDREPRESENTANTE AND T_PROPOSTA.IDPESSOA=T_PESSOA.IDPESSOA AND T_PESSOA.IDPESSOA=T_PESSOAFISICA.IDPESSOA AND T_STATUS.IDSTATUS=T_PROPOSTA.IDSTATUS AND IDPROPOSTA="&Request.QueryString("idpro") Set RSpro=Conexao.Execute(qpro) %>
Produto: <%=RSpro("T_PRODUTO.NOME")%>
Loja: <%=RSpro("T_REPRESENTANTE.NOME")%> Vendedor: <%=RSpro("T_VENDEDOR.NOME")%>
Dados do Cliente:
Nome Completo / Razão social CPF/CNPJ RG n.º Orgão Emissor UF Data Emissão
 <%=RSpro("T_PESSOAFISICA.NOME")%>  <%=RSpro("CPF_CNPJ")%>  <%=RSpro("RG")%>  <%=RSpro("RGORGAO")%>  <%=RSpro("RGUF")%>  <%=RSpro("RGDTEMISSAO")%>
Data Nasc. Nacionalidade Natalidade (cidade) Sexo Endereço para Correspondencia
 <%=RSpro("DTNASC")%>  <%=RSpro("NACIONALIDADE")%>  <%=RSpro("NATURALIDADE")%> <%=RSpro("SEXO")%> <%=RSpro("ENDERECOCORRES")%>
Estado Civil Grau de instrução Nº de dependentes
<%=RSpro("ESTCIVIL")%>
<%=RSpro("ESCOLARIDADE")%>
<%=RSpro("NUMDEPEND")%>
Nome do Pai Nome da Mãe
 <%=RSpro("NOMEPAI")%>  <%=RSpro("NOMEMAE")%>
Dados Residenciais:
Endereço N.º Complemento Bairro Cidade
<%=RSpro("ENDERECO")%> <%=RSpro("ENDERNUM")%> <%=RSpro("ENDERCOMPLE")%> <%=RSpro("ENDERBAIRRO")%> <%=RSpro("ENDERCIDADE")%>
CEP Estado Telefone Tempo de Residencia
<%=RSpro("ENDERCEP")%> <%=RSpro("ENDERUF")%> <%=RSpro("ENDERTEL")%> <%=RSpro("ENDERTEMPO")%>
Telefone Celular E-mail
 <%=RSpro("ENDERTEL")%>  <%=RSpro("ENDERCEL")%>  <%=RSpro("ENDEREMAIL")%>
Dados Profissionais:
Empresa CNPJ(no caso de empresa própria) Cargo/Função Renda mensal/Faturamento Data de Admissão
<%=RSpro("COMRAZAO")%> <%=RSpro("COMCNPJ")%> <%=RSpro("COMCARGO")%> <%=FormatNumber(RSpro("COMRENDA"),2)%> <%=RSpro("COMADMISSAO")%>
Endereço Comercial Cidade CEP Estado Telefone
 <%=RSpro("COMENDERECO")%>  <%=RSpro("COMCIDADE")%> <%=RSpro("COMCEP")%> <%=RSpro("COMESTADO")%>  <%=RSpro("EMPREGOANTTEL")%> 
Dados do Conjuge:
Nome completo CPF RG Data Nasc.
 <%=RSpro("CONJUGENOME")%>  <%=RSpro("CONJUGECPF")%>  <%=RSpro("CONJUGECARGO")%>  <%=RSpro("CONJUGENASC")%>
Empresa onde trabalha Telefone Ocupação Renda
 <%=RSpro("CONJUGEEMPRESA")%>  <%=RSpro("CONJUGETEL")%>  <%=RSpro("CONJUGECARGO")%>  <%=RSpro("CONJUGERENDA")%>
Avalistas:
Nome CPF RG
  <%=RSpro("AVALISTA1_NOME")%>   <%=RSpro("AVALISTA1_CPF")%>   <%=RSpro("AVALISTA1_RG")%>
  <%=RSpro("AVALISTA2_NOME")%>   <%=RSpro("AVALISTA2_CPF")%>   <%=RSpro("AVALISTA2_RG")%>
Referencias Pessoais:
<% qrefp="SELECT * FROM T_PESSOAREF WHERE IDPESSOA="&RSpro("T_PESSOA.IDPESSOA") Set RSrefp=Conexao.Execute(qrefp) Do Until RSrefp.EOF %> <% RSrefp.MoveNext Loop %>
Nome / Endereço / Telefone
<%=RSrefp("INFORMACOES")%>
Referencias Comerciais:
Cartões de Credito
<% qcartao="SELECT * FROM T_PESSOACARTAO WHERE IDPESSOA="&RSpro("T_PESSOA.IDPESSOA") Set RScartao=Conexao.Execute(qcartao) Do Until RScartao.EOF Response.Write RScartao("TITULO")&" - " RScartao.MoveNext Loop %>
Referencias Bancarias:
<% qbanco="SELECT * FROM T_PESSOABANCO WHERE IDPESSOA="&RSpro("T_PESSOA.IDPESSOA") Set RSbanco=Conexao.Execute(qbanco) Do Until RSbanco.EOF %> <% RSbanco.MoveNext Loop %>
Banco Agência N.º Conta Dara de Abertura
<%=RSbanco("NOMEBANCO")%> <%=RSbanco("AGENCIA")%> <%=RSbanco("CONTA")%> <%=RSbanco("DATAABERTURA")%>
Especificação do Crédito:
Valor Financiado: Valor por Extenso: Valor da 1ª Parcela Valor da Parcela
     R$ <%=FormatNumber(RSpro("VALOR"),2)%>      <%=Extenso(Replace(RSpro("VALOR"),".",","))%>      R$ <%=FormatNumber(RSpro("VALORPARCELA_PRIMEIRA"),2)%>      R$ <%=FormatNumber(RSpro("VALORPARCELA"),2)%>
Prazo: Vencimento: Encargos: Finalidade:
     <%=RSpro("NUMPARCELAS")%> meses     ">   <%=DateAdd("m",(RSpro("NUMPARCELAS")-1)*1,Date)%>       <%if cdbl(RSpro("T_PROPOSTA.ENCARGOS"))=cdbl(0) then Response.Write "NIHIL" else Response.Write FormatNumber(RSpro("T_PROPOSTA.ENCARGOS"),2) End if%>      <%=RSpro("T_PROPOSTA.FINALIDADE")%>
Juros(a/m): Juros(a/a): Juros Inadimplência (a/m): Juros Inadimplência (a/a):
     <%=FormatNumber(RSpro("T_PROPOSTA.TXMENSAL"),2)%>%      <%=FormatNumber(RSpro("T_PROPOSTA.TXANUAL"),2)%>%      <%=FormatNumber(RSpro("T_PROPOSTA.TXMENSAL_INADI"),2)%>%      <%=FormatNumber(RSpro("T_PROPOSTA.TXANUAL_INADI"),2)%>%
Multa: TARIFAS: Taxas de Abertura de Crédito GARANTIAS SUBSIDIÁRIAS:
     <%=FormatNumber(RSpro("T_PROPOSTA.MULTA"),2)%>%      R$ <%=FormatNumber(RSpro("T_PROPOSTA.TAC"),2)%>      <%=RSpro("GARANTIAS")%>
Declaro estar de acordo com as condições da operação, formalizada por contrato em separado, cujo teor é do meu conhecimento, forma de pagamento do crédito, taxa de abertura de crédito no contrato, tarifa de emissão de boleto, prestações, e que o bem adquirido encontra-se em perfeitas condições de uso por mim vistoriado, declaro ainda que as informações aqui prestadas são a expressão da verdade. Estou ciente e autorizo a obter informações e confirmações cadastrais e a disponibilizarem informações deste cadastro e as relativas a operação financeira ora contratada à Central de Risco do Banco Central e de Instituições autorizadas a manter Banco de Dados, tais como SERASA, SCI, SPC e outro

 


______________________
CLIENTE