<% SDIG="" CDIG="" LDIG="" NOSSONUMERO="" Dim atab(99) '******************************** ' CONSTANTES '******************************** cons_banco = "409" cons_dvbanco = "0" cons_agencia = bol_agencia cons_conta = bol_conta cons_carteira = "ESPECIAL" cons_moeda = "9" cons_especie = "REAL" cons_cedente = bol_cedente cons_dadoscedente= bol_dadoscedente '"Empresa teste s/a
Rua sobe desce, 448 CEP: 04124200
Fone: (11)5061-1111
E-Mail: jusivansjc@yahoo.com.br
Site: www.teste.com.br
" cons_codigocedente= bol_nr_cedente cons_CVT = "5" cons_fixo= "00" '******************************** ' VARIÁVEIS '******************************** var_sacado = Request.QueryString("sacador") var_CPFSacado= Request.QueryString("cpf") var_endereco = Request.QueryString("endereco") var_bairro = Request.QueryString("bairro") var_cidade = Request.QueryString("cidade") var_estado = Request.QueryString("estado") var_cep = Request.QueryString("cep") var_cpfcnpj = CNPJ_da_sua_empresa '*************************************** Function Converten(pNumeron) Converten = Right(String(8,"0") &_ cstr(pNumeron * 100),8) End Function '**************************************** '************************************ 'Preencher com zeros a esquerda Function strZeros(strValor,Tamanho) while len(strValor) < Tamanho strValor = "0" & strValor wend StrZeros=strValor End Function '********************************** 'Colocar somente numeros da string Function SoNumeros(str) s="" for x=1 to len(str) ch=mid(str,x,1) if asc(ch)>=48 and asc(ch)<=57 then s=s & ch end if next SoNumeros=s End Function 'var_nossonumero = Converten(ccur(Request.QueryString("nossonumero"))) var_datadocumento = Request.QueryString("datadocumento") var_datavencimento = Request.QueryString("datavencimento") var_valordocumento = Request.QueryString("valordocumento") var_numerodoc = Request.QueryString("numerodoc") 'Nosso Número var_nossonumero = var_numerodoc & mid(var_datadocumento,1,2) & mid(var_datadocumento,4,2) & mid(var_datadocumento,9,2) '***linha para instruções, colocar no config.asp if instr_linha3="" and instr_linha4="" and instr_linha5="" then var_instrucoes="
MORA DIÁRIA: 0,17% - INSTRUÇÕES - 30.
MULTA: 0,07 - INSTRUÇÕES - 30
OPERAÇÃO SEM DESCONTO
" else var_instrucoes="
"&instr_linha3&"
"&instr_linha4&"
"&instr_linha5&"" end if '***Linha da observação var_intervalo = CDate(Var_datavencimento)-CDate(Var_datadocumento) if var_intervalo > 5 then var_observacoes="
Pagamento referente a compra efetuada em "&application("nomeloja")&"
REIMPRESSÃO DO BOLETO
" else var_observacoes="
Pagamento referente a compra efetuada em "&application("nomeloja")&"
" end if var_observacoes = var_observacoes & obs_linha1 & "
" var_observacoes = var_observacoes & obs_linha2 & "
" var_observacoes = var_observacoes & obs_linha3 & "
" var_observacoes = var_observacoes & obs_linha4 & "
" var_observacoes = var_observacoes & obs_linha5 & "
" if var_numerodoc = "" then if var_CPFSacado<>"" then var_nossonumero = var_CPFSacado end if end if '******************************** ' INICIO DO CÁLCULO '******************************** dvnossonumero=Modulo11(strZeros(var_nossonumero,14),2) 'dvagconta=calcdig10(cons_agencia&cons_conta) valordia=date() var_data=Day(valordia) & "/" & Month(valordia) & "/" & YEAR(valordia) valorvalor1=var_valordocumento valorvalor2=replace(valorvalor1,",","") valorvalor2=replace(valorvalor2,".","") valorvalor3=len(valorvalor2) valorvalor4=10-valorvalor3 var_valor= String(""&valorvalor4&"","0") & (""&valorvalor2&"") if valorvalor1=0 then var_valor="" end if var_fatorvencimento=fatorvencimento(""&var_datavencimento&"") if var_fatorvencimento="0000" then var_datavencimento="Contra Apresentação" end if var_codigobarras=codbar(""&cons_banco&"",""&cons_moeda&"",""&var_fatorvencimento&"",""&var_valor&"",""&cons_CVT&"",""&cons_codigocedente&"",""&cons_fixo&"",""&strZeros(var_nossonumero,14)&"",""&dvnossonumero&"") var_linhadigitavel=linhadigitavel(""&var_codigobarras&"") '************************** FUNCTION linhadigitavel(codigobarras) '************************** cmplivre=mid(codigobarras,20,25) campo1=left(codigobarras,4)&mid(cmplivre,1,5) campo1=campo1&calcdig10(campo1) campo1=mid(campo1,1,5)&"."&mid(campo1,6,5) campo2=mid(cmplivre,6,10) campo2=campo2&calcdig10(campo2) campo2=mid(campo2,1,5)&"."&mid(campo2,6,6) campo3=mid(cmplivre,16,10) campo3=campo3&calcdig10(campo3) campo3=mid(campo3,1,5)&"."&mid(campo3,6,6) campo4=mid(codigobarras,5,1) campo5=int(mid(codigobarras,6,14)) if campo5=0 then campo5="000" end if linhadigitavel=campo1&"  "&campo2&"  "&campo3&"  "&campo4&"  "&campo5 '************************* END FUNCTION '************************* 'Calculo do Dv Nosso número Function Modulo11(strNumero,strTipo) fator = 2 total = 0 For i = Len(strNumero) To 1 Step -1 numero = Mid(strNumero, i, 1) * fator total = total + numero fator=fator+1 if fator = 10 then fator = 2 Next Total = Total * 10 resto = total Mod 11 if resto = 10 or resto=0 then if strTipo=2 then Modulo11 = "0" else Modulo11 = "1" end if else Modulo11 = cStr(resto) end if End Function 'Calculo do Dv geral do codigo de barras 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 'Calculo dos dvs linha digitavel 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 'valortal=CALCdig10("11513024791005193100033") 'response.write valortal '************************** FUNCTION CALCDIG10(cadeia) '************************** mult=(len(cadeia) mod 2) mult=mult+1 total=0 for pos=1 to len(cadeia) res= mid(cadeia, pos, 1) * mult if res>9 then res=int(res/10) + (res mod 10) end if total=total+res if mult=2 then mult=1 else mult=2 end if next total=((10-(total mod 10)) mod 10 ) CALCDIG10=total '************************* END FUNCTION '************************* 'valortal1=CALCdig11("0339000000000103581481302647800076960003348",9,0) 'response.write valortal1 '************************** FUNCTION CALCDIG11(cadeia,limitesup,lflag) '************************** mult=1 + (len(cadeia) mod (limitesup-1)) if mult=1 then mult=limitesup end if total=0 for pos=1 to len(cadeia) total=total+(mid(cadeia,pos,1) * mult) mult=mult-1 if mult=1 then mult=limitesup end if Next nresto=(total mod 11) if lflag = 1 then calcdig11=nresto else if nresto=0 or nresto=1 or nresto=10 then ndig=1 else ndig=11 - nresto end if calcdig11=ndig end if '************************* END FUNCTION '************************* '************************** FUNCTION fatorvencimento(vencimento) '************************** if len(vencimento)<8 then fatorvencimento="0000" else fatorvencimento=datevalue(""&vencimento&"")-datevalue("1997/10/07") end if '************************* END FUNCTION '************************* '************************** FUNCTION codbar(banco,moeda,vencimento,valor,CVT,codCedente,Fixo,nossonumero,dvnossonumero) '************************** strcodbar=banco&moeda&vencimento&valor&CVT&codCedente&Fixo&nossonumero&dvnossonumero dv3=calcdig11(strcodbar,9,0) codbar=banco&moeda&dv3&vencimento&valor&CVT&codCedente&Fixo&nossonumero&dvnossonumero '************************* END FUNCTION '************************* %>
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
SEM DIGITAÇÃO: Os dados do Boleto serão
enviados ao site do Unibanco. ">

Recibo do Sacado
<%=cons_banco%>-<%=cons_dvbanco%>
 <%=var_linhadigitavel%>
Cedente Agência/Cód. Cedente Espécie Qtde. Nosso número
<%=cons_cedente%> <%=cons_agencia%>/<%=cons_conta%> <%=valorespecie%> <%=x98%> <%=var_nossonumero%>-<%=dvnossonumero%>
Número do documento CPF/CNPJ Vencimento Valor documento
<%=var_numerodoc%> <%=var_cpfcnpj%> <%=var_datavencimento%> <%=var_valordocumento%>
(-) Desconto / Abatimento (-) Outras deduções (+) Mora / Multa (+) Outros acréscimos (=) Valor cobrado
 
Sacado
<%=var_sacado%> - CPF: <%=var_cpfSacado%>
Instruções
Autenticação mecânica
<%=obs_linha1%>
<%=obs_linha2%>
<%=obs_linha3%>
<%=obs_linha4%>
<%=obs_linha5%>
Corte na linha pontilhada



<%=cons_banco%>-<%=cons_dvbanco%>
 <%=var_linhadigitavel%>
Local de pagamento Vencimento
Pagável em qualquer Banco até o vencimento <%=var_datavencimento%>
Cedente Agência/Código cedente
<%=cons_cedente%> <%=cons_agencia%>/<%=cons_conta%>
Data do documento No documento Espécie doc. Aceite Data process. Nosso número
<%=var_datadocumento%>
<%=var_numerodoc%>
D.M.
<%=x174%>
<%=var_data%>
<%=var_nossonumero%>-<%=dvnossonumero%>
Uso do banco Carteira Espécie Quantidade Valor (=) Valor documento
<%=x163%>
<%=cons_carteira%>
<%=cons_especie%>
 <%=x98%> <%=x101%> <%=var_valordocumento%>
Instruções (Texto de responsabilidade do cedente)

<%=obs_linha1%>
<%=obs_linha2%>
<%=obs_linha3%>
(-) Desconto / Abatimentos
(-) Outras deduções
(+) Mora / Multa
(+) Outros acréscimos
(=) Valor cobrado
Sacado
<%=var_sacado%>-<%=var_cpfsacado%>
<%=var_endereco%> - <%=var_bairro%>
<%=var_cep%> - <%=var_cidade%> - <%=var_estado%> Cód. baixa
Sacador/Avalista
Autenticação mecânica - Ficha de Compensação
Cód.Transação CVT: 7744-5
<% Valor = var_codigobarras 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 %> 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=/adm_imagens/p.gif width=<%=f1%> height=<%=altura%> border=0> src=/adm_imagens/b.gif width=<%=f2%> height=<%=altura%> border=0> src=/adm_imagens/p.gif width=<%=largo%> height=<%=altura%> border=0> height=<%=altura%> border=0> height=<%=altura%> border=0>
Corte na linha pontilhada