<%session.LCID=1046%> <% Sub WBarCode( Valor ) '************************** Dim f, f1, f2, i Dim texto Const fino = 1 Const largo = 3 Const altura = 50 Dim BarCodes(99) if isempty(BarCodes(0)) then BarCodes(0) = "00110" BarCodes(1) = "10001" BarCodes(2) = "01001" BarCodes(3) = "11000" BarCodes(4) = "00101" BarCodes(5) = "10100" BarCodes(6) = "01100" BarCodes(7) = "00011" BarCodes(8) = "10010" BarCodes(9) = "01010" for f1 = 9 to 0 step -1 for f2 = 9 to 0 Step -1 f = f1 * 10 + f2 texto = "" for i = 1 To 5 texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1) next BarCodes(f) = texto next next end if 'Desenho da barra ' Guarda inicial %> height=<%=altura%> border=0> height=<%=altura%> border=0> height=<%=altura%> border=0> height=<%=altura%> border=0> 0 then texto = "0" & texto end if ' Draw dos dados do while len(texto) > 0 i = cint( left( texto, 2) ) texto = right( texto, len( texto ) - 2) f = BarCodes(i) for i = 1 to 10 step 2 if mid(f, i, 1) = "0" then f1 = fino else f1 = largo end if %> src=2.gif width=<%=f1%> height=<%=altura%> border=0> src=1.gif width=<%=f2%> height=<%=altura%> border=0> src=2.gif width=<%=largo%> height=<%=altura%> border=0> height=<%=altura%> border=0> height=<%=altura%> border=0> <% '************************** end sub '************************** %> <% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wFatura=request.item("Fatura") wID_Empresa=request.item("ID_Empresa") SQL=" SELECT * FROM BOLETOS_BANCARIOS BB " SQL=SQL & " WHERE BB.DOCUMENTO = 'FAT'||" & wFatura Set TabBoleto = DataBase.Execute(SQL) SQL="SELECT ID, CNPJ FROM EMPRESAS WHERE ID=" & wID_Empresa Set TabEmpresa = DataBase.Execute(SQL) %>

 

 

Boleto Tickets

Imprima o boleto abaixo e pague preferencialmente nas casas lotéricas, podendo ser pago ainda na rede bancaria.

 

Após a confirmação de recebimento do boleto, seus tickets serão enviados no e-mail cadastrado, caso tenha alguma dúvida, entre em contato pelo telefone no menu FALE CONOSCO.

 

 

RECIBO DO SACADO

Cedente

Clube dos Amigos Vida Simples

Ag./Cod.Cedente

1284.870.00000274-7

Nosso Número

<%=TabBoleto("NOSSO_NUMERO")%>

Vencimento
<%=DataBr(TabBoleto("DT_VENC"))%>

Sacado

<%=TabBoleto("Nome")%>

Dt. Processamento

<%=TabBoleto("DT_PROCESSAMENTO")%>

Nº Documento

<%=TabBoleto("Documento")%>

(=) Valor do Documento
<%=FormatNumber(TabBoleto("VL_DOCUMENTO"), 2)%>

CPF / CNPJ

<%=TabEmpresa("CNPJ")%>

(-) Desc./Abatimento

 

(-) Outras Deduções

 

(+) Mora / Multa

 

(=) Valor Cobrado

 

Autenticação Mecânica

 

 

 

104-0

 

<%=TabBoleto("CD_BARRA_DIG")%>

Local de Pagamento
PAGÁVEL PREFERENC. NAS CASAS LOTÉRICAS AGÊNCIAS DA CAIXA E TODA REDE BANCÁRIA

Vencimento

<%=DataBr(TabBoleto("DT_VENC"))%>

Cedente
 Clube dos Amigos Vida Simples

Ag./Cod.Cedente
<%=TabBoleto("AG_COD_CEDENTE")%>

Dt. Emissão

<%=TabBoleto("DT_EMISSAO")%>

Nº Documento

<%=TabBoleto("Documento")%>

Esp. Doc.

DS

Aceite

N

Dt. Proc.

<%=TabBoleto("DT_PROCESSAMENTO")%>

Nosso Número
<%=TabBoleto("NOSSO_NUMERO")%>

Uso do Banco

Carteira

SR

Esp. Moeda

R$

Qtde Moeda

Vl. Moeda

(=) Vl. Documento
<%=FormatNumber(TabBoleto("VL_DOCUMENTO"))%>

Texto de Responsabilidade do cedente

 

BEM VINDO AO CLUBE DOS AMIGOS VIDA SIMPLES

 

Boleto referente a parcela <%=wParcela%> , vencida em <%=wRef_Venc%>, da proposta <%=wProposta%>.

 

 

(-) Desconto/Abatimento

 

(-) Outras Deduc/Abat.

 

(+) Mora/Multa

 

(=) Valor Cobrado

 

Sacado

<%=TabBoleto("Nome")%>

<%=TabBoleto("Endereco")%>

Autenticação Mecânica - Ficha de Compensação

<% call wbarcode(TabBoleto("CD_Barra")) %>