<% ' ** DADOS DO REPRESENTANTE ** INICIO qrepre="SELECT * FROM T_REPRESENTANTE WHERE IDREPRESENTANTE="&Session("IDREPRESENTANTE") Set RSrepre=Conexao.Execute(qrepre) ' ** DADOS DO REPRESENTANTE ** FIM ' ** DADOS DO VENDEDOR ** INICIO qven="SELECT * FROM T_VENDEDOR WHERE IDVENDEDOR="&Session("IDVENDEDOR") Set RSven=Conexao.Execute(qven) ' ** DADOS DO VENDEDOR ** FIM ' ** GUARDANDO SESSION DO PRODUTO SELECIONADO ** INICIO qp="SELECT * FROM T_PRODREPRE,T_PRODUTO WHERE T_PRODREPRE.IDPRODUTO=T_PRODUTO.IDPRODUTO AND IDREPRESENTANTE="&Session("IDREPRESENTANTE") Set RSp=Conexao.Execute(qp) Do Until RSp.EOF if cInt(RSp("T_PRODUTO.IDPRODUTO"))=cInt(Request.QueryString("idp")) then Session("IDPRODUTO")=RSp("T_PRODUTO.IDPRODUTO") Session("MAXPARCELAS")=RSp("MAXPARCELAS") Session("TAC")=RSp("TAC") Session("VALORMIN")=RSp("VALORMIN") Session("VALORMAX")=RSp("VALORMAX") Session("TXMENSAL")=RSp("TXMENSAL") Session("TXANUAL")=RSp("TXANUAL") Session("TXMENSAL_INADI")=RSp("TXMENSAL_INADI") Session("TXANUAL_INADI")=RSp("TXANUAL_INADI") Session("MULTA")=RSp("MULTA") Session("ENCARGOS")=RSp("ENCARGOS") Session("GARANTIAS")=RSp("GARANTIAS") Session("FINALIDADE")=RSp("FINALIDADE") Session("ENTRADA")=RSp("ENTRADA") End if RSp.MoveNext Loop RSp.MoveFirst if Request.QueryString("idp")="" then Response.Redirect "cadastro.asp?idp="&RSp("T_PRODUTO.IDPRODUTO") End if ' ** GUARDANDO SESSION DO PRODUTO SELECIONADO ** FIM %> Credilon
Selecione o Produto:
<% if Request.QueryString("err")<>"" then qerr="SELECT * FROM T_ERRO WHERE NUMERRO="&Request.QueryString("err") Set RSerr=Conexao.Execute(qerr) %> <% End if %>
<%=RSerr("TITULO")%>
<%=RSerr("DESCRICAO")%>
"> Loja: <%=RSrepre("NOME")%>   "> Vendedor: <%=RSven("NOME")%>     Nº Contrato  
Dados do cliente:
Nome Completo / Razão social*
">
CPF/CNPJ* RG n.º* Orgão Emissor* UF Data Emissão (Ex.: 26/10/1986)
"> "> "> <%campo="ESTADORG"%> ">
Data de nascimento* (Ex.: 26/10/1976) Nacionalidade

Naturalidade (cidade)

 UF Sexo*
"> "> "> <%campo="ESTADONASC"%>
> M > F
Nome do Pai* Nome da Mãe*
"> ">
Estado Civil* Endereço p/correspondencia Grau de instrução Nº de dependentes
> Res. > Com.
">
Dados Residenciais:
Endereço* N.º* Complemento
"> "> ">
Bairro* Cidade* CEP Estado*
"> ">
"> - ">
<%campo="ESTADORESIDENCIAL"%>
Telefone* Tempo de Residencia Tipo de Residencia
"> "> anos <%campo="TIPORESIDENCIA"%>
Dados Profissionais:
Empresa* CNPJ Cargo/Função* Renda mensal* Data da Adminissão (MÊS/ANO)
"> "> "> "> " MAXLENGTH="7">
Endereço Comercial Cidade CEP Estado Telefone/Ramal*  
"> ">
"> - ">
<%campo="ESTADOCOMERCIAL"%> ">  
Dados do Conjuge: (*Obrigatório se o estado civil for Casado)
Nome completo
">
CPF RG Data de Nascimento (26/10/1979)
"> "> ">
Empresa onde trabalha Telefone Ocupação Renda
"> "> " class="forms"> ">
Avalistas:
Nome
CPF
RG
1)
Não será preenchido neste momento
2)
Referencias Pessoais:
Nome / Endereço / Telefone (Pessoa que não reside na mesma casa)
">
Referencias Comerciais:
Possui Cartão de Credito?
<% cartao=split(Session("CARTAO"),",") %> > Visa 0 then Response.Write " checked" End if Next %>> American Express   Outro " CLASS="forms">
Referencias Bancarias:*
Banco Agência N.º Conta Data de Abertura (MES/ANO)
"> "> "> ">
Especificação do Crédito:
Valor à Financiar (NF)* N.º Parcelas* (+) TAC Taxa Mensal Taxa Anual
"> "> ">   R$ <%=FormatNumber(Session("TAC"),2)%>  ">   <%=FormatNumber(Session("TXMENSAL"),2)%> % ">   <%=FormatNumber(Session("TXANUAL"),2)%> %
Garantias Multa Encargos Taxa Mensal (Inadimplência) Taxa Anual (Inadimplência)
<%=Session("GARANTIAS")%> ">   <%=FormatNumber(Session("MULTA"),2)%> % ">   <%=FormatNumber(Session("ENCARGOS"),2)%> % ">   <%=FormatNumber(Session("TXMENSAL_INADI"),2)%> % ">   <%=FormatNumber(Session("TXANUAL_INADI"),2)%> %
Finalidade     Entrada  
  <%=Session("FINALIDADE")%> "> <% if Session("ENTRADA")="S" then Response.Write "Com Entrada" else Response.Write "Sem Entrada" End if %>  
 
 

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

 

<% if Request.QueryString("errJ")<>"" then qerrJ="SELECT * FROM T_ERRO WHERE NUMERRO="&Request.QueryString("errJ") Set RSerrJ=Conexao.Execute(qerrJ) %> <% End if %>