<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wProposta=request.item("Proposta") wDATA=InverteData(Date) wHORA=Time wDESCRICAO="Impressa a carta de Reabilitação." wSQL="SELECT * FROM RET_CARTA_REABILITACAO(" & wProposta & ")" Set TabTitular = Database.Execute(wSQL) wCLIENTE=TabTitular("RID_CLIENTE") wSQL="INSERT INTO CLIENTES_HISTORICOS (ID, ID_CLIENTE, ID_PROPOSTA, DATA, HORA, DESCRICAO, CA_USUARIO)" wSQL=wSQL & " VALUES (-1," & wCLIENTE & "," & wPROPOSTA & ",'" & wDATA & "','" & wHORA & "','" & wDESCRICAO & "','Site')" Set TabHistorico = Database.Execute(wSQL) wSQL="UPDATE propostas P SET P.dt_reabilitacao = current_timestamp WHERE P.id =" & wPROPOSTA Set TabDtReabilitacao = Database.Execute(wSQL) %>
 
 

Carta de Reabilitação

   

Voltar    

    Imprimir
<%=TabTitular("RCIDADE")%>

<%=TabTitular("RDATA")%>

 

A

<%=TabTitular("RSEGURADORA")%>

 

Ref.: Reabilitação de meu plano.

 

Venho por meio desta, solicitar a reabilitação de meu plano, conforme novo período de vigência.

 

Estou ciente que o novo início de vigência será a partir do dia <%=TabTitular("RINICIO_VIG")%>.

 

Também estou ciente que as doenças ou qualquer acidente ocasionado anteriormente a

<%=TabTitular("RINICIO_VIG")%>, não estão cobertos pelo Seguro e nem pela Assistência Funeral, quando contratado.

 

Certo do pronto atendimento, antecipo meus agradecimentos.

 

Sem mais,

 

 

<%=TabTitular("RCLIENTE")%>

CPF: <%=TabTitular("RCPF")%>