CLIENTE BOM DE SORTE

<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open session("stringconexaobomdesorte") wCliente=request.item("Cliente") wN_Ticket=UCASE(request.item("N_Ticket")) wSorteio=request.item("Sorteio") SQL="SELECT FT.FATURA, FT.TICKET, F.CD_EMPRESA, F.CD_PLANO, (F.VL_DOCUMENTO / F.QUANTIDADE) AS VL_TICKET, " & _ " F.DT_PAGAMENTO, F.QT_SORTEIO " & _ " FROM FATURA_TICKETS FT " &_ " INNER JOIN FATURAS F ON (F.FATURA = FT.FATURA) " & _ " WHERE F.FATURA > 0 " & _ " AND FT.CRIPT = '" & wN_Ticket & "'" & _ " AND FT.STATUS = 'I' " &_ " AND F.DT_VENC_TICKETS >= CURRENT_DATE " Set rsTicket = DataBase.Execute( SQL ) if not rsTicket.EOF then wJaCadastrado="N" SQLUpdate="UPDATE FATURA_TICKETS SET STATUS='C' " &_ " WHERE FATURA=" & rsTicket("FATURA") &_ " AND TICKET=" & rsTicket("Ticket") %> <% Dim I I=1 While not (I = (rsTicket("QT_SORTEIO")+1)) wTICKET=rsTicket("Ticket") wMES_VIGENCIA=Month(Date + (I * 31)) wANO_VIGENCIA=Year(Date + (I * 31)) wCD_EMPRESA=rsTicket("CD_Empresa") wCD_CLIENTE=wCliente wPLANO=rsTicket("CD_Plano") wVL_SORTEIO="1500" wVL_TICKET=replace(FormatNumber(CDbl(rsTicket("VL_Ticket"))), ".", "") wVL_TICKET=replace(wVL_TICKET, ",", ".") wDT_PAGAMENTO=Year(rsTicket("DT_Pagamento")) & "-" & Month(rsTicket("DT_Pagamento")) & "-" & Day(rsTicket("DT_Pagamento")) if wDT_PAGAMENTO <= "1899-01-01" then wDT_PAGAMENTO="1899-01-01" end if wDT_CADASTRO=Year(Date()) & "-" & Month(Date()) & "-" & Day(Date()) SQL="INSERT INTO TICKETS (TICKET,MES_VIGENCIA,ANO_VIGENCIA,CD_EMPRESA,CD_CLIENTE,PLANO,VL_SORTEIO,VL_TICKET,DT_PAGAMENTO,DT_CADASTRO, SORTEIO) " & _ " VALUES (" & wTICKET & ",'" & wMES_VIGENCIA & "','" & wANO_VIGENCIA & "'," & wCD_EMPRESA & "," & wCD_CLIENTE & "," & wPLANO & "," & wVL_SORTEIO & "," & wVL_TICKET & ",'" & wDT_PAGAMENTO & "','" & wDT_CADASTRO & "','" & wSorteio & "')" Set rsInsereTicket = DataBase.Execute( SQL ) I = (I + 1) Wend %> <% wDT_Liberacao=Year(Date + (I * 31)+31) & "-" & Month(Date + (I * 31)+31) & "-" & Day(Date + (I * 31)+31) SQL="UPDATE TICKETS_GERADOS SET STATUS = 'L', DT_LIBERADO= '" & wDT_Liberacao & "'" &_ " WHERE TICKET = " & wTICKET Set rsTicket = DataBase.Execute( SQL) Set rsTicket = DataBase.Execute( SQLUpdate) Set rsCliente = DataBase.Execute("SELECT * FROM CLIENTES WHERE Cliente = '" & wCLIENTE & "'") Set rsEmpresa = DataBase.Execute("SELECT NOME FROM EMPRESAS WHERE EMPRESA = " & wCD_EMPRESA & "") else wJaCadastrado="S" end if %> <% wTICKET= string(5 - len(wTICKET),"0") & wTICKET%> <% if wJaCadastrado = "N" then %> <% if wSorteio = "S" then %>

Regulamento para participar dos Benefícios do Ticket - Bom de Sorte

A Empresa

<%=rsEmpresa("NOME")%>

lhe deseja Boa sorte!

Cliente

<%=rsCliente("Nome")%>

Endereço

<%=rsCliente("Endereco")%>

Nº

<%=rsCliente("Numero")%>

Cidade

<%=rsCliente("Cidade")%>

Bairro

<%=rsCliente("Bairro")%>

Estado

<%=rsCliente("Estado")%>

Complemento

<%=rsCliente("Complemento")%>

CEP

<%=rsCliente("CEP")%>

BOM de SORTE

Ticket nº

<%=wTICKET%>

Você estará concorrendo a 4 Sorteios de R$ 1.500,00

Vigência

<%=wMES_VIGENCIA%>/<%=wANO_VIGENCIA%>

Se você tem entre 18 e 85 anos de idade e não é aposentado por invalidez, além de participar dos Sorteios dos Prêmios em dinheiro, contará com a cobertura de um Seguro em caso de Morte Acidental por Ticket Cadastrado. o valor do Seguro é de R$ 1.500,00 por Ticket Cadastrado.

Obs.: A cobertura máxima do Seguro está limitada em até R$ 22.500,00 (vinte e dois mil e quinhentos reais) por pessoa e por período de vigência.

Veja a Vigência do Seguro e do Sorteio no rodapé deste ticket de Participação.

A cobertura do Seguro é garantida pela TOKIO MARINE S\A, através da Apólice nº 820.00591100.

Se durante a vigência deste Ticket a combinação dos números acima coincidirem com os resultados dos números sorteados nos últimos 04 (quatro) Sábado do mês vigente. A empresa acima cede ao portador deste Ticket o direito de receber a importância sorteada no valor bruto de R$ 1.500,00 ( hum mil e quinhentos reais ), cujo valor liquido é de R$ 1.125,00 ( Hum mil cento e vinte e cinco reais), já descontados todos os Tributos Federais.

Do ganhador do prêmio: Como saber se o número de seu Ticket foi contemplado.
É muito simples! Basta que as últimas unidades do 1º ao 5º prêmio sorteados através da extração da Loteria Federal lidas de cima para baixo coincidam com o número impresso no alto do seu Ticket.

Exemplo de um Sorteio da Loteria Federal para o Ticket contemplado

- 1º Prêmio - 23.56 3
- 2º Prêmio - 85.95 8
- 3º Prêmio - 66.62 5
- 4º Prêmio - 00.45 8
- 5º Prêmio - 22.25 4

Neste caso o Certificado

Premiado seria o de

Nº - 38.584

Todos os Tickets contratados cujos direito de sorteio serão cedidos aos Clientes e/ou Parceiros do Clube dos Amigos Vida Simples SS Ltda são adquiridos junto à APLUB Capitalização S.A. - CNPJ 88.076.302/0001-94, emitidos em conformidade com a Nota Técnica aprovada pela Superintendência de Seguros Privados - SUSEP, conforme processo SUSEP nº15414.004811/97-46.

CERTIFICADO DE PARTICIPAÇÃO/CAPITALIZAÇÃO: O CLUBE DOS AMIGOS VIDA SIMPLES SS LTDA adquirirá Títulos de Capitalização Junto à APLUB Capitalização S.A. - CNPJ 88.076.302/0001-94 emitidos em conformidade com a Nota Técnica aprovada pela Superintendência de Seguros Privados - SUSEP, conforme processo SUSEP nº 15414.004811/97-46, e cederá ao portador, o direito de participação em sorteios proporcionados pelo Ticket no valor estabelecido acima.

Vigência deste Ticket

<%=wMES_VIGENCIA%>/<%=wANO_VIGENCIA%>

Código Cadastrado

<%=wN_Ticket%>

<% else %>

Regulamento para participar dos Benefícios do Ticket - Bom de Sorte

A Empresa

<%=rsEmpresa("NOME")%>

lhe deseja Boa sorte!

Cliente

<%=rsCliente("Nome")%>

Endereço

<%=rsCliente("Endereco")%>

Nº

<%=rsCliente("Numero")%>

Cidade

<%=rsCliente("Cidade")%>

Bairro

<%=rsCliente("Bairro")%>

Estado

<%=rsCliente("Estado")%>

Complemento

<%=rsCliente("Complemento")%>

CEP

<%=rsCliente("CEP")%>

BOM de SORTE

Ticket nº

<%=wTicket%>

Você estará concorrendo a 4 Notebooks

Vigência

<%=wMES_VIGENCIA%>/<%=wANO_VIGENCIA%>

Se você tem entre 18 e 85 anos de idade e não é aposentado por invalidez você já ganhou um Seguro por Morte Acidental no valor de R$ 1.500,00 por Ticket Cadastrado. E cada Ticket Cadastrado permite você concorrer a 4 Notebooks durante o mês de vigência deste Ticket Bom de Sorte. Ou seja você concorre a 01 Notebook nos últimos quatro sábados do mês vigente. Veja regulamento abaixo.

Obs.: A cobertura máxima do Seguro está limitada em até R$ 22.500,00 (vinte e dois mil e quinhentos reais) por pessoa e por período de vigência.

Veja a Vigência do Seguro e do Sorteio no rodapé deste ticket de Participação.

A cobertura do Seguro é garantida pela TOKIO MARINE S\A, através da Apólice nº 820.00591100.

Exemplo de um Sorteio da Loteria Federal para o Ticket contemplado

- 1º Prêmio - 23.56 3
- 2º Prêmio - 85.95 8
- 3º Prêmio - 66.62 5
- 4º Prêmio - 00.45 8
- 5º Prêmio - 22.25 4

Neste caso o Certificado

Premiado seria o de

Nº - 38.584

Vigência deste Ticket

<%=wMES_VIGENCIA%>/<%=wANO_VIGENCIA%>

Código Cadastrado

<%=wN_Ticket%>

<% end if %> <% else %> <% end if %>

Cadastrar outro Ticket	Imprimir
Ticket não encontrado ou já cadastrado.