<!--#include file="propperm.asp" -->
<!--#include file="../bd.asp" --> 
<%
if Request.Form("NUMCONTRATO")<>"" or Not(IsNumeric(Request.Form("NUMCONTRATO"))) then
	qu="UPDATE T_PROPOSTA SET IDSTATUS="&Request.Form("IDSTATUS")&",OBSSTATUS='"&Request.Form("OBSSTATUS")&"',OBS_PROPOSTA='"&Request.Form("OBS_PROPOSTA")&"', NUMCONTRATO="&Request.Form("NUMCONTRATO")&" WHERE IDPROPOSTA="&Request.Form("IDPROPOSTA")
	Conexao.Execute(qu)
	qsel="SELECT * FROM T_PROPOSTA, T_PESSOA, T_PESSOAFISICA WHERE T_PESSOA.IDPESSOA=T_PESSOAFISICA.IDPESSOA AND T_PROPOSTA.IDPESSOA=T_PESSOA.IDPESSOA AND IDPROPOSTA="&Request.Form("IDPROPOSTA")
	Set RSsel=Conexao.Execute(qsel)
	qu2="UPDATE T_PESSOAFISICA SET AVALISTA1_NOME='"&Request.Form("AVALISTA1_NOME")&"', AVALISTA1_CPF='"&Request.Form("AVALISTA1_CPF")&"', AVALISTA1_RG='"&Request.Form("AVALISTA1_RG")&"', AVALISTA1_ENDERECO='"&Request.Form("AVALISTA1_ENDERECO")&"', AVALISTA2_NOME='"&Request.Form("AVALISTA2_NOME")&"', AVALISTA2_CPF='"&Request.Form("AVALISTA2_CPF")&"', AVALISTA2_RG='"&Request.Form("AVALISTA2_RG")&"', AVALISTA2_ENDERECO='"&Request.Form("AVALISTA2_ENDERECO")&"' WHERE IDPESSOAFISICA="&RSsel("IDPESSOAFISICA")
	Conexao.Execute(qu2)
End if
Response.Redirect "proppropostas.asp"
%>