<!--#include file="permvend.asp" --> 
<!--#include file="../bd.asp" --> 
<!--#include file="../config.asp" --> 
<%
'****************Criando Pessoa - T_PESSOA
q1="INSERT INTO T_PESSOA (CPF_CNPJ,IDREPRESENTANTE,IDVENDEDOR,DTCADASTRO) VALUES ('"&Session("CNPJ_CPF")&"',"&Session("IDREPRESENTANTE")&","&Session("IDVENDEDOR")&",'"&Day(Now)&"/"&Month(Now)&"/"&Year(Now)&"')"
Conexao.Execute(q1)
'****************Criando Pessoa Física - T_PESSOAFISICA

'PROCURANDO PESSOA CADASTRADA ACIMA ** INICIO
   q2="SELECT * FROM T_PESSOA WHERE IDVENDEDOR="&Session("IDVENDEDOR")&" ORDER BY IDPESSOA DESC"
   Set RSpe=Conexao.Execute(q2)
   Session("IDPESSOA")=RSpe("IDPESSOA")
   'PROCURANDO PESSOA CADASTRADA ACIMA ** FIM

'CADASTRANDO PESSOA NA TABELA T_PESSOAFISICA ** INICIO
q3a="INSERT INTO T_PESSOAFISICA "

q3b="(IDREPRESENTANTE,IDVENDEDOR,IDPESSOA,NOME,DTNASC,NATURALIDADE,NACIONALIDADE,ESTADONASC,ESTCIVIL,NUMDEPEND,SEXO,ESCOLARIDADE,RG,RGORGAO,RGUF,RGDTEMISSAO,NOMEPAI,NOMEMAE,ENDERTIPO,ENDERECO,ENDERNUM,ENDERBAIRRO,ENDERCOMPLE,ENDERCEP,ENDERCIDADE,ENDERUF,ENDERTEL,ENDERCEL,ENDEREMAIL,ENDERTEMPO,COMRAZAO,COMCNPJ,COMTEL,COMENDERECO,COMCARGO,COMBAIRRO,COMCIDADE,COMESTADO,COMCEP,COMADMISSAO,COMRENDA,ENDERECOCORRES,EMPREGOANTNOME,EMPREGOANTTEL,EMPREGOANTTEMPO,CONJUGENOME,CONJUGECPF,CONJUGERG,CONJUGENASC,CONJUGETEL,CONJUGEEMPRESA,CONJUGECARGO,CONJUGERENDA, AVALISTA1_NOME, AVALISTA1_CPF, AVALISTA1_RG, AVALISTA2_NOME, AVALISTA2_CPF, AVALISTA2_RG) VALUES "

q3c="("&Session("IDREPRESENTANTE")&","&Session("IDVENDEDOR")&","&Session("IDPESSOA")&",'"&Session("NOME")&"','"&Session("DTNASC")&"',"

'**Configurando INFORMAÇÕES ** INICIO
	if Session("NUMDEPENDENTES")="" then
		numdependentes=0
	else
		numdependentes=cInt(Session("NUMDEPENDENTES"))
	End if
'**Configurando INFORMAÇÕES ** FIM

q3d="'"&Session("NATURALIDADE")&"','"&Session("NACIONALIDADE")&"','"&Session("ESTADONASC")&"','"&Session("ESTADOCIVIL")&"','"&numdependentes&"','"&Session("SEXO")&"','"&Session("GRAUINSTRUCAO")&"','"&Session("RG")&"','"&Session("RGEMISSOR")&"','"&Session("ESTADORG")&"','"&Session("DTEMISSAO")&"','"&Session("NOMEPAI")&"','"&Session("NOMEMAE")&"','"&Session("TIPORESIDENCIA")&"','"&Session("ENDRESIDENCIAL")&"','"&Session("NUMRESIDENCIAL")&"','"&Session("BAIRRORESIDENCIAL")&"','"&Session("COMPLERESIDENCIAL")&"','"&Session("CEP1")&"-"&Session("CEP2")&"',"

if Session("RENDACONJUGE")="" then
	Session("RENDACONJUGE")=0
End if

q3e="'"&Session("CIDADERESIDENCIAL")&"','"&Session("ESTADORESIDENCIAL")&"','"&Session("TELRESIDENCIAL")&"','"&Session("CELRESIDENCIAL")&"','"&Session("EMAIL")&"','"&Session("TEMPORESIDENCIAL")&" anos','"&Session("NOMEEMPRESA")&"','"&Session("NUMCNPJ")&"','"&Session("TELCOMERCIAL")&"','"&Session("ENDECOMERCIAL")&"','"&Session("FUNCAOEMPRESA")&"','"&Session("BAIRROCOMERCIAL")&"','"&Session("CIDADECOMERCIAL")&"','"&Session("ESTADOCOMERCIAL")&"','"&Session("CEP1COMERCIAL")&"-"&Session("CEP2COMERCIAL")&"','"&Session("TEMPOEMPREGO")&"',"&Replace(Replace(Session("RENDAEMPRESA"),".",""),",",".")&",'"&Session("ENDCORRE")&"','"&Session("EMPREGOANT")&"','"&Session("TELEMPREGOANT")&"','"&Session("TEMPOEMPREGOANT")&"','"&Session("NOMECONJUGE")&"','"&Session("CPFCONJUGE")&"','"&Session("RGCONJUGE")&"','"&Session("DTNASCCONJUGE")&"','"&Session("TELCONJUGE")&"','"&Session("EMPRESACONJUGE")&"','"&Session("OCUPACAOCONJUGE")&"',"&Replace(Replace(Session("RENDACONJUGE"),".",""),",",".")&",'"&Session("AVALISTA1_NOME")&"','"&Session("AVALISTA1_CPF")&"','"&Session("AVALISTA1_RG")&"','"&Session("AVALISTA2_NOME")&"','"&Session("AVALISTA2_CPF")&"','"&Session("AVALISTA2_RG")&"')"

	query= q3a & q3b & q3c & q3d & q3e
	Conexao.Execute(query)
'CADASTRANDO PESSOA NA TABELA T_PESSOAFISICA ** FIM

'****************Criando Proposta - T_PROPOSTA ** INICIO
qx="INSERT INTO T_PROPOSTA (IDPESSOA,IDREPRESENTANTE,IDVENDEDOR,VALOR,NUMPARCELAS,TAC,TXMENSAL,TXANUAL,ENCARGOS,FINALIDADE,TXMENSAL_INADI,TXANUAL_INADI,MULTA,VALORPARCELA_PRIMEIRA,VALORPARCELA,IDPRODUTO,IDSTATUS) VALUES ("&Session("IDPESSOA")&","&Session("IDREPRESENTANTE")&","&Session("IDVENDEDOR")&","&Replace(Replace(Session("VALORVENDA"),".",""),",",".")&","&Session("NUMPARCELAS")&","&Replace(Replace(Session("TAC"),".",""),",",".")&","&Replace(Replace(Session("TXMENSAL"),".",""),",",".")&","&Replace(Replace(Session("TXANUAL"),".",""),",",".")&","&Replace(Replace(Session("ENCARGOS"),".",""),",",".")&",'"&Session("FINALIDADE")&"',"&Replace(Replace(Session("TXMENSAL_INADI"),".",""),",",".")&","&Replace(Replace(Session("TXANUAL_INADI"),".",""),",",".")&","&Replace(Replace(Session("MULTA"),".",""),",",".")&","&Replace(Replace(Session("VALORPARCELA_PRIMEIRA"),".",""),",",".")&","&Replace(Replace(Session("VALORPARCELA"),".",""),",",".")&","&Session("IDPRODUTO")&",1)"
Conexao.Execute(qx)
'****************Criando Proposta - T_PROPOSTA ** FIM

'CADASTRANDO REFERENCIAS PESSOAIS ** INICIO

if Session("REF1")<>"" then
	qrefp="INSERT INTO T_PESSOAREF (IDPESSOA,INFORMACOES)VALUES("&Session("IDPESSOA")&",'"&Session("REF1")&"')"
	Conexao.Execute(qrefp)
End if

'CADASTRANDO REFERENCIAS PESSOAIS ** FIM

'CADASTRANDO REFERENCIAS BANCARIAS ** INICIO

qban="INSERT INTO T_PESSOABANCO (IDPESSOA,NOMEBANCO,AGENCIA,CONTA,DATAABERTURA)VALUES("&Session("IDPESSOA")&",'"&Session("NOMEBANCO")&"','"&Session("AGENCIABANCO")&"','"&Session("CONTABANCO")&"','"&Session("DTABERBANCO")&"')"
Conexao.Execute(qban)

'CADASTRANDO REFERENCIAS BANCARIAS ** FIM

'CADASTRANDO CARTOES ** INICIO
if Session("CARTAO")<>"" then
	cartao=split(Session("CARTAO"),",")
	For u=0 to UBound(cartao)
		qc="INSERT INTO T_PESSOACARTAO (IDPESSOA,TITULO)VALUES("&Session("IDPESSOA")&",'"&cartao(u)&"')"
		Conexao.Execute(qc)
	Next
End if
if Session("CARTAOOUTRO")<>"" then
	qc="INSERT INTO T_PESSOACARTAO (IDPESSOA,TITULO)VALUES("&Session("IDPESSOA")&",'"&Session("CARTAOOUTRO")&"')"
	Conexao.Execute(qc)
End if
'CADASTRANDO CARTOES ** FIM

'**** ENVIANDO EMAIL ** INICIO
q="SELECT * FROM T_REPRESENTANTE WHERE IDREPRESENTANTE="&Session("IDREPRESENTANTE")
qven="SELECT * FROM T_VENDEDOR WHERE IDVENDEDOR="&Session("IDVENDEDOR")
Set RSq=Conexao.Execute(q)
Set RSven=Conexao.Execute(qven)
titulo_email="Proposta - Representante:"&RSq("NOME")&"/"&RSven("NOME")
descricao_email="Existe uma Proposta do Representante "&RSq("NOME")&" e vendedor "&RSven("NOME")&" para ser analizada."

Dim objMailer 'Mailer control

'create instance of Mailer control
Set objMailer = Server.CreateObject("Dundas.Mailer")

'set Mailer control properties and collection items

objMailer.TOs.Add to_email
objMailer.FromAddress = from_email
objMailer.Priority = 1
objMailer.Subject = ".:CREDILON:. - PROPOSTA - "&RSq("NOME")
objMailer.SMTPRelayServers.Add smtp_server
objMailer.HTMLBody = "<html><head><meta name='generator' content='HTML Tidy for Windows (vers 1st April 2002), see www.w3.org'><title>.: Credilon :.</title><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'></head><body leftmargin='0' topmargin='0' marginwidth='0' marginheight='0'><table width='300' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#CCCCCC'><tr><td height='30' bgcolor='#CCCCCC'><div align='center'><font color='#0033CC' size='3' face='Verdana, Arial, Helvetica, sans-serif'><strong>.: CREDILON:.</strong></font></div></td></tr><tr><td valign='top' bgcolor='#F4F4F4'><table width='300' border='0' cellspacing='0' cellpadding='3'><tr><td height='20' bgcolor='#FFFFFF'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Titulo:<font color='#FF0000'><strong>"&titulo_email&"</strong></font></font></td></tr><tr><td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><strong>Descri&#231;&#227;o:</strong></font></td></tr><tr><td><table width='100%' border='0' cellpadding='0' cellspacing='0' bgcolor='#FFFFCC'><tr><td><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>"&descricao_email&"</font></td></tr></table></td></tr></table></td></tr></table></body></html>"

objMailer.SendMail
'you can test for the success/failure of the operation by examining VBScript's Err object here

Set objMailer = Nothing

Response.Redirect "delsprop.asp"
%>