<% Session.Lcid = "1046" cobra_boleto=false valor_minimo_para_taxar_boleto = 50 'Valor menor que este será acrescido de taxa de boleto (coloque 0 para não usar esta função if Request.QueryString("valordocumento") < valor_minimo_para_taxar_boleto then valor=2.80 'valor do boleto! pode definir a variavel no config.asp x101=valor+Request.QueryString("valordocumento") else x101=Request.QueryString("valordocumento") end if 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 x128 = "356" x19 = "9" 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 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 If x102 = 10 Then x102 = 0 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 x91(x78) x91 = Mid(x135, x78, 1) 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 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 If x10 = "57" Then x81 = x32(x81, 13) Else x81 = x32(x81, 7) End If If x89 = "" Then x89 = x81 x119 = CStr(x81) x83 = x32(x83, 4) x64 = x32(x64, 7) x121 = x102(x119 & x83 & x64) x100 = x64 x127 = x83 & "/" & x100 & "/" & x121 x5 = x83 & x64 & x121 & x32(x119, 13) x123 = x17(x128, x19, CDate(x33), CCur(x101), x5) x57 = x147(x128, x19, CDate(x33), CCur(x101), x5) x104 = x119 %> <%= 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.
Imprimir Boleto

Recibo do Sacado
356-5
 <%=x57%>
Cedente Agência/Código do Cedente Espécie Quantidade Nosso número
<%=x136%> <%=x127%> <%=x160%> <%=x98%> <%=x104%>
Número do documento CPF/CNPJ Vencimento Valor documento
<%=x89%> <%= x49%> <%=x33%> <%=x101%>
(-) Desconto / Abatimentos (-) Outras deduções (+) Mora / Multa (+) Outros acréscimos (=) Valor cobrado
Sacado
<%=x109 %>
Instruções
Autenticação mecânica
<%response.write x12 & "
" : response.write x20 & "
" response.write x48 & "
" : response.write x21 & "
" : response.write x1%>
Corte na linha pontilhada


356-5
 <%=x57%>
Local de pagamento Vencimento
Pagável em qualquer Banco até o vencimento <%=x33%>
Cedente Agência/Código cedente
<%=x136%> <%=x127%>
Data do documento No documento Espécie doc. Aceite Data proces. 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