<% response.buffer=false %> <% '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### '# '# CÓDIGO: VirtuaStore Versão OPEN - Copyright 2001-2004 VirtuaStore '# URL: http://comunidade.virtuastore.com.br '# E-MAIL: comunidade@virtuastore.com.br '# AUTORES: Otávio Dias(Desenvolvedor) '# '# Este programa é um software livre; você pode redistribuí-lo e/ou '# modificá-lo sob os termos do GNU General Public License como '# publicado pela Free Software Foundation. '# É importante lembrar que qualquer alteração feita no programa '# deve ser informada e enviada para os criadores, através de e-mail '# ou da página de onde foi baixado o código. '# '# //------------------------------------------------------------------------------------- '# // LEIA COM ATENÇÃO: O software VirtuaStore OPEN deve conter as frases '# // "Powered by VirtuaStore OPEN" ou "Software derivado de VirtuaStore 1.2" e '# // o link para o site http://comunidade.virtuastore.com.br no créditos da '# // sua loja virtual para ser utilizado gratuitamente. Se o link e/ou uma das '# // frases não estiver presentes ou visiveis este software deixará de ser '# // considerado Open-source(gratuito) e o uso sem autorização terá '# // penalidades judiciais de acordo com as leis de pirataria de software. '# //-------------------------------------------------------------------------------------- '# '# Este programa é distribuído com a esperança de que lhe seja útil, '# porém SEM NENHUMA GARANTIA. Veja a GNU General Public License '# abaixo (GNU Licença Pública Geral) para mais detalhes. '# '# Você deve receber a cópia da Licença GNU com este programa, '# caso contrário escreva para '# Free Software Foundation, Inc., 59 Temple Place, Suite 330, '# Boston, MA 02111-1307 USA '# '# Para enviar suas dúvidas, sugestões e/ou contratar a VirtuaWorks '# Internet Design entre em contato através do e-mail '# contato@virtuaworks.com.br ou pelo endereço abaixo: '# Rua Venâncio Aires, 1001 - Niterói - Canoas - RS - Brasil. Cep 92110-000. '# '# Para ajuda e suporte acesse um dos sites abaixo: '# http://comunidade.virtuastore.com.br '# http://br.groups.yahoo.com/group/virtuastore '# '# BOM PROVEITO! '# Equipe VirtuaStore '# []'s '# '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### %> <% '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 'Atenção: Este arquivo não pode ser distrubuído ou separado desta VirtuaStore OPEN '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Session.Lcid = "1046" '====== NÃO MEXER DAQUI PRA BAIXO ================================================== x101 = Request.QueryString("valordocumento") x81 = Request.QueryString("numerodoc") x33 = Request.QueryString("datavencimento") x109 = Request.QueryString("sacador") x70 = Request.QueryString("endereco") x79 = Request.QueryString("bairro") x74 = Request.QueryString("cep") x67 = Request.QueryString("cidade") x28 = Request.QueryString("estado") x136= bol_cedente x49 = "" x10 = bol_carteira x154 = bol_convenio x83 = bol_agencia x121 = bol_dagencia x64 = bol_conta x89 = x81 x72 = bol_dconta x12= obs_linha1 x20= obs_linha2 x48= obs_linha3 x21= obs_linha4 x1= obs_linha5 x80= instr_linha1 x171= instr_linha2 x130= instr_linha3 x97= instr_linha4 x73= instr_linha5 x163="" ' Uso do Banco x98="" ' Quantidade x34= "R$" ' Especie x174= "N" ' Aceite x128 = "237" ' Banco x19 = "9" ' Moeda x160="R$" ' Especie 2 Function x32(x126, x13) Dim x51, x27, x122, x150, x151, cnum x126 = RTrim(LTrim(x126)) For x150 = 1 To Len(x126) x151 = Mid(x126, x150, 1) If IsNumeric(x151) Then cnum = cnum & x151 End If Next x126 = cnum x122 = "0000000000000000000000000000": x51 = CInt(x51) If Len(x126) < x13 Then x51 = Abs(x13) - Abs(Len(x126)): x27 = Mid(x122, 1, x51) & CStr(x126) x32 = x27 ElseIf Len(x126) > x13 Then x32 = Right(x126, x13) Else x32 = x126 End If End Function Function x16(x15, x36, x94) Dim x87, x69, x45 x45 = x36 + 1 x87 = "" Do If IsNumeric(Mid(x15, (x45), 1)) Then x87 = x87 & Mid(x15, (x45), 1) x45 = x45 + 1 End If Loop While IsNumeric(Mid(x15, (x45), 1)) For x69 = 1 To x87 x94 = x94 & (x91(53)) Next x36 = x36 + 2 x16 = x94 End Function Function x14(x15) Dim x36, x78, x60, x94 x94 = "" For x36 = 1 To Len(x15) x78 = 0 If Mid(x15, (x36), 1) = "¹" Then x94 = x16(x15, x36, x94) x78 = 0 End If x78 = InStr(1, x135, Mid(x15, (x36), 1), vbBinaryCompare) If x78 > 0 Then If x78 <= 113 Then x94 = x94 & (x91(x78 + 1)) Else x94 = x94 & (x91(1)) End If End If Next x14 = x94 : response.write x14 End Function Function x23(x15) For x18 = 1 To Len(x15) Step 3 x78 = 0 : x78 = Mid(x15, (x18), 3) : x94 = x94 & x91(x78) Next x23 = x94 End Function Function x31(x36) Dim x59, x30, x173, x68, x82, x120, x113 x68 = 2 For x59 = 1 To 43 x113 = Mid(Right(x36, x59), 1, 1) If x68 > 9 Then x68 = 2: x30 = 0 End If x30 = x113 * x68: x173 = x173 + x30: x68 = x68 + 1 Next x82 = x173 Mod 11 x120 = 11 - x82 If x120 = 0 Or x120 = 1 Or x120 > 9 Then x31 = 1 Else x31 = x120 End If End Function Function x102(x124) Dim x59, x30, x173, x68, x82, x25 If Not IsNumeric(x124) Then x102 = "" Exit Function End If x68 = 2 For x59 = Len(x124) To 1 Step -1 x30 = CInt(Mid(x124, x59, 1)) * x68 If x30 > 9 Then x30 = CInt(Left(x30, 1) + CInt(Right(x30, 1))) End If x173 = x173 + x30 If x68 = 2 Then x68 = 1 Else x68 = 2 End If Next x25 = (x173 / 10) * -1: x25 = Int([x25]) * -1: x25 = x25 * 10 x82 = x25 - x173: x102 = x82 End Function Function x134(x124) Dim x59, x30, x173, x68, x82, x170 If Not IsNumeric(x124) Then x134 = "" Exit Function End If x68 = 2 For x59 = Len(x124) To 1 Step -1 x30 = Mid(x124, x59, 1) * x68: x173 = x173 + x30 If x68 > 7 Then x68 = 2 Else x68 = x68 + 1 End If If x68 = 8 Then x68 = 2 Next x82 = x173 Mod 11 x134 = 11 - x82 If x82 = 1 Then x134 = "P" ElseIf x82 = 0 Then x134 = "0" End If End Function Function x77(x36, x66, x92, x142) Dim x112, x55, x42, x65, x105, x87, x69, x45 x112 = Left(x36, 9): x55 = Mid(x36, 10, 10): x42 = Right(x36, 10) x105 = CCur(x142): x65 = x32(x105, 10) x87 = x102(x112): x69 = x102(x55): x45 = x102(x42) x112 = Left(x112 & x87, 5) & "." & Right(x112 & x87, 5) x55 = Left(x55 & x69, 5) & "." & Right(x55 & x69, 6) x42 = Left(x42 & x45, 5) & "." & Right(x42 & x45, 6) x77 = x112 & "  " & x55 & "  " & x42 & "  " & x66 & "  " & x92 & x65 End Function Function x17(x108, x140, x106, x142, x58) Dim x116, x146, x75, x46 If x106 <> "" Then x75 = CDate("7/10/1997") x146 = DateDiff("d", x75, CDate(x106)) Else x146 = "0000" End If x142 = Int(x142 * 100) x116 = x108 & x140 & x146 & x32(x142, 10) & x58: x46 = x31(x116) x17 = (Left(x116, 4) & x46 & Right(x116, 39)) End Function Function x147(x108, x140, x106, x142, x58) Dim x116, x146, x75, x46 If x106 <> "" Then x75 = CDate("7/10/1997") x146 = DateDiff("d", x75, CDate(x106)) Else x146 = "0000" End If x142 = Int(x142 * 100): x116 = x108 & x140 & x146 & x32(x142, 10) & x58 x46 = x31(x116): x147 = x77(x108 & x140 & x58, CStr(x46), x146, x32(x142, 10)) End Function Function x138(x143, x36) Dim x170 x170 = x134(x32(x143, 2) & x32(x36, 11)) x138 = x32(x143, 2) & x32(x36, 11) End Function Function x148(x143, x36) Dim x170 x170 = x134(x32(x143, 2) & x32(x36, 11)) x148 = x32(x143, 2) & "/" & x32(x36, 11) & "-" & x170 End Function Function x91(x78) x91 = Mid(x135, x78, 1) End Function Function x4(x15) For x18 = 1 To Len(x15) Step 3 x78 = 0 : x78 = Mid(x15, (x18), 3) : x94 = x94 & x91(x78) Next x4 = x94 : response.write x4 End Function x11= x136 x81 = x32(x81, 11) x101 = FormatNumber((x101), 2,-2,-2,-2) x83 = x32(x83, 4) x121 = x32(x121, 1) x103 = x83 & "-" & x121 x64 = x32(x64, 7) x72 = x32(x72, 1) x100 = x64 & "-" & x72 x127 = x103 & "/" & x100 : x119 = x138(x10, CStr(x81)) x5 = x83 & x119 & x64 & "0" : x123 = x17(x128, x19, CDate(x33), CCur(x101), x5) x57 = x147(x128, x19, CDate(x33), CCur(x101), x5) x104 = x148(x10, CStr(x81)) %> <%= nomeloja %> - <%= Slogan_da_sua_loja %>
Instruções de Impressão
Imprimir em impressora jato de tinta (ink jet) ou laser em qualidade normal. (Não use modo econômico).
Utilize folha A4 (210 x 297 mm) ou Carta (216 x 279 mm) - Corte na linha indicada.
Caso não apareça os Códigos de Barra no fim do boleto, clique em F5 do seu teclado.

Recibo do Sacado
IMPRIMA SEU BOLETO!  

237-2
 <%=x57%>
CedenteAgência/Código do CedenteEspécieQuantidadeNosso número
<%=x136%> <%=x127%> <%=x160%> <%=x98%> <%=x104%>
Número do documentoCPF/CNPJVencimentoValor documento
<%=x89%> <%= x49%> <%=x33%> <%=x101%>
(-) Desconto / Abatimentos(-) Outras deduções(+) Mora / Multa(+) Outros acréscimos(=) Valor cobrado
Sacado
<%=x109 %>
InstruçõesAutenticação mecânica
<%response.write x12 & "
" : response.write x20 & "
" response.write x48 & "
" : response.write x21 & "
" : response.write x1%>
Corte na linha pontilhada


237-2
 <%=x57%>
Local de pagamentoVencimento
Pagável em qualquer Banco até o vencimento <%=x33%>
CedenteAgência/Código cedente
<%=x136%> <%=x127%>
Data do documento No documento Espécie doc. Aceite Data processamento Nosso número
<%=date()%>
<%=x89%>
<%=x34%>
<%=x174%>
<%=date()%>
<%=x104%>
Uso do banco Carteira Espécie Quantidade Valor (=) Valor documento
<%=x163%>
<%=x10%>
<%=x160%>
<%=x98%> <%=x101%> <%=x101%>
Instruções (Texto de responsabilidade do cedente)
<%response.write x80 & "
" : response.write x171 & "
" response.write x130 & "
" : response.write x97 & "
" : response.write x73%>
(-) Desconto / Abatimentos
(-) Outras deduções
(+) Mora / Multa
(+) Outros acréscimos
(=) Valor cobrado
Sacado
<%=x109 %>
<%=x70 & " - " & x79 %>
<%= x74 & " - " & x67 & " - " & x28 %> Cód. baixa
Sacador/Avalista
Autenticação mecânica - Ficha de Compensação
<%x129( x123 ) Sub x129( x22 ) Dim x2(99) Const x85 = 1 : Const x131 = 3 : Const x44 = 50 if isempty(x2(0)) then x2(0) = "00110" : x2(1) = "10001" : x2(2) = "01001" : x2(3) = "11000" x2(4) = "00101" : x2(5) = "10100" : x2(6) = "01100" : x2(7) = "00011" x2(8) = "10010" : x2(9) = "01010" for x99 = 9 to 0 step -1 for x3 = 9 to 0 Step -1 x125 = x99 * 10 + x3 : x126 = "" for x18 = 1 To 5 x126 = x126 & mid(x2(x99), x18, 1) + mid(x2(x3), x18, 1) next x2(x125) = x126 next next end if %> height=<%=x44%> border=0> height=<%=x44%> border=0> height=<%=x44%> border=0> height=<%=x44%> border=0> 0 then x126 = "0" & x126 end if do while len(x126) > 0 x18 = cint(left( x126, 2)) : x126 = right(x126, len(x126) - 2) : x125 = x2(x18) for x18 = 1 to 10 step 2 if mid(x125, x18, 1) = "0" then x99 = x85 else x99 = x131 end if %> src=adm_imagens/p.gif width=<%=x99%> height=<%=x44%> border=0> src=adm_imagens/b.gif width=<%=x3%> height=<%=x44%> border=0> src=adm_imagens/p.gif width=<%=x131%> height=<%=x44%> border=0> height=<%=x44%> border=0> height=<%=x44%> border=0> <% end sub %>
Corte na linha pontilhada