<%@ Language=VBScript %> <% session.LCID = 1046 'Database dim mySQL dim conntemp dim rstemp dim rstemp2 dim storeCommentsPriv if Request.QueryString("id") = "" Then response.redirect "sysMsg.asp?errMsg=" & server.URLEncode("Não foi possível gerar o boleto.") end if 'Open Database Connection call openDb() 'Store Configuration if loadConfig() = false then call errorDB(langErrConfig,"") end if 'Retrieve some information we may need from cartHead mySQL="SELECT idOrder,Total,name,Address,City,Zip,locState FROM cartHead WHERE randomKey = '" & Request.QueryString("id") & "' " set rsTemp = openRSexecute(mySQL) if not rstemp.eof then numerodoc = rstemp("idOrder") valordocumento = moneyS(trim(rstemp("Total"))) sacador = trim(rstemp("name")) endereco = trim(rstemp("Address")) cidade = trim(rstemp("City")) cep = trim(rstemp("Zip")) estado = trim(rstemp("locState")) else response.redirect "sysMsg.asp?errMsg=" & server.URLEncode("Não foi possível gerar o boleto.") end if call closeRS(rsTemp) bol_nr_cedente="" 'numero do seu codigo cedente (não é necessário para alguns bancos) bol_agencia = "0466" 'agencia bol_dagencia = "" 'digito da agencia (não é necessário para alguns bancos) bol_conta = "53197" 'conta (não é necessário para alguns bancos) bol_dconta = "7" 'digito da conta (não é necessário para alguns bancos) bol_carteira = "174" 'código da carteira bol_convenio = "" 'numero do seu convenio (não é necessário para alguns bancos) bol_cedente = "CYBERNET PROVIDER COMÉRCIO E SERVIÇOS Ltda" 'Geralmente é o nome da loja e o nome do cedente no banco '## Observações no Boleto ( Campos opcionas ) ' Voce pode colocar alguma instrução para o cliente, por exemplo "Obrigado por comprar em nossa loja" obs_linha1 = "Pagamento referente a compra efetuada na loja virtual HERBALIFE" ' Observação Linha 1 obs_linha2 = "Pedido nº: " & pOrderPrefix & "-" & numerodoc & "

Seja também um distribuidor HERBALIFE em sua cidade." ' Observação Linha 2 obs_linha3 = "E-Mail: herbalife@ahw.com.br
Site: www.ahw.com.br/herbalife/" ' Observação Linha 3 obs_linha4 = "Telefone: (11) 3858-9492" ' Observação Linha 4 obs_linha5 = "Celular: (11) 9764-2920" ' Observação Linha 5 '## Instruções ao Caixa do Banco (Por exemplo "Não Receber após o vencimento" ou "Cobrar multa de 2 % após o vencimento") instr_linha1 = "Após vencimento não receber." ' Instrucoes Linha 1 instr_linha2 = "Comprador deve reimprimir o boleto no site, acessando os detalhes de seu pedido." ' Instrucoes Linha 2 instr_linha3 = "" ' Instrucoes Linha 3 instr_linha4 = "" ' Instrucoes Linha 4 instr_linha5 = "" ' Instrucoes Linha 5 datavencimento = Date() + 2 x101 = valordocumento x81 = numerodoc x33 = datavencimento x109 = sacador x70 = endereco x74 = cep x67 = cidade x28 = 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 = "341" ' Banco x19 = "9" ' Moeda x160="R$" ' Especie 2 valor_doc = x101 dt_venc = x33 banco = "341" moeda = "9" agencia = x83 conta = x64 dv_conta = x72 carteira = x10 Select Case Len(x81) Case 1 num_doc = "0000000" & x81 nossonumero = "0000000" & x81 Case 2 num_doc = "000000" & x81 nossonumero = "000000" & x81 Case 3 num_doc = "00000" & x81 nossonumero = "00000" & x81 Case 4 num_doc = "0000" & x81 nossonumero = "0000" & x81 Case 5 num_doc = "000" & x81 nossonumero = "000" & x81 Case 6 num_doc = "00" & x81 nossonumero = "00" & x81 Case 7 num_doc = "0" & x81 nossonumero = "0" & x81 Case 8 num_doc = x81 nossonumero = x81 End Select '############$#$#$#$#$#$#$#$#$#$#$ dv_nossonumero = Calculo_DV10(agencia & conta & carteira & nossonumero) '*************************************************** Database = CDate("7/10/1997") fator = DateDiff("d", Database, dt_venc) valor = Int(valor_doc * 100) While Len(valor) < 10 valor = "0" & valor Wend codigo_sequencia = "3419" & fator & valor & carteira & nossonumero & dv_nossonumero & agencia & conta & dv_conta & "000" dvcb = calcula_DV_CodBarras(codigo_sequencia) Select Case dvcb Case "1" dvcb = "1" Case "0" dvcb = "1" Case "10" dvcb = "1" Case "11" dvcb = "1" Case Else dvcb = dvcb End Select Monta_CodBarras = Left(codigo_sequencia, 4) & dvcb & Right(codigo_sequencia, 39) '*************************************************** cod_barra = Monta_CodBarras linha_dig = Linha_Digitavel_itau(cod_barra) nossonumero = carteira & "/" & nossonumero & "-" & dv_nossonumero 'Conversão de valores x57 = linha_dig x104 = nossonumero x127 = agencia & "/" & conta & "-" & dv_conta x123 = cod_barra storeCommentsPriv = "Número do Boleto: " & x104 'ADICIONA O NÚMERO DO BOLETO NO PEDIDO mySQL="UPDATE cartHead SET " _ & "storeCommentsPriv='"& storeCommentsPriv &"' " _ & "WHERE idOrder = "& x81 set rsTemp = openRSexecute(mySQL) call closeRS(rsTemp) 'Close Database Connection call closeDB() '############################################################# Function Formata_Data(strData) dia = Day(strData) Mes = Month(strData) ano = Year(strData) If dia < 9 Then dia = "0" & dia If Mes < 9 Then Mes = "0" & Mes Formata_Data = dia & "/" & Mes & "/" & ano End Function Function Calculo_DV10(strNumero) fator = 2 total = 0 For I = Len(strNumero) To 1 Step -1 numero = Mid(strNumero, I, 1) * fator If numero > 9 Then numero = CInt(Left(numero, 1)) + CInt(Right(numero, 1)) End If total = total + numero If fator = 2 Then fator = 1 Else fator = 2 End If Next resto = total Mod 10 resto = 10 - resto If resto = 10 Then Calculo_DV10 = 0 Else Calculo_DV10 = resto End If End Function Function calcula_DV_CodBarras(sequencia) fator = 2 total = 0 For I = 43 To 1 Step -1 numero = Mid(sequencia, I, 1) If fator > 9 Then fator = 2 End If numero = numero * fator total = total + numero fator = fator + 1 Next resto = total Mod 11 resultado = 11 - resto If resultado = 10 Or resultado = 0 Then calcula_DV_CodBarras = 1 Else calcula_DV_CodBarras = resultado End If End Function Function Linha_Digitavel_itau(sequencia_codigo_barra) seq1 = Left(sequencia_codigo_barra, 4) & Mid(sequencia_codigo_barra, 20, 5) seq2 = Mid(sequencia_codigo_barra, 25, 10) seq3 = Mid(sequencia_codigo_barra, 35, 10) seq4 = Mid(sequencia_codigo_barra, 6, 14) dvcb = Mid(sequencia_codigo_barra, 5, 1) dv1 = Calculo_DV10(seq1) dv2 = Calculo_DV10(seq2) dv3 = Calculo_DV10(seq3) seq1 = Left(seq1 & dv1, 5) & "." & Mid(seq1 & dv1, 6, 5) seq2 = Left(seq2 & dv2, 5) & "." & Mid(seq2 & dv2, 6, 6) seq3 = Left(seq3 & dv3, 5) & "." & Mid(seq3 & dv3, 6, 6) Linha_Digitavel_itau = seq1 & " " & seq2 & " " & seq3 & " " & dvcb & " " & seq4 End Function %> Imprima seu Boleto!
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.

CLIQUE AQUI PARA IMPRIMIR

Recibo do Sacado
IMPRIMA SEU BOLETO!  

341-7
 <%=x57%>
CedenteAgência/Código do CedenteEspécieQuantidadeNosso número
<%=x136%> <%=x127%> <%=x160%> <%=x98%> <%=x104%>
Número do documentoCPF/CNPJVencimentoValor documento
<%=x89%> <%= x49%> <%= dt_venc %> <%=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


341-7
 <%=x57%>
Local de pagamentoVencimento
Pagável em qualquer Banco até o vencimento <%= dt_venc %>
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%>
<%= 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