<% response.buffer=True %> <% '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### '# '# CÓDIGO: VirtuaStore Versão OPEN - Copyright 2001-2004 VirtuaStore '# URL: http://comunidade.virtuastore.com.br '# E-MAIL: corpsjc@megapaper.com.br '# AUTORES: Otávio Dias(Desenvolvedor) '# GRUPO DE DISCUSSÃO: Virtua Developer (http://br.groups.yahoo.com/group/virtuadeveloper) '# '# 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 3.0" 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 serconsiderado Open-source(gratuito) e o uso sem autorização '# // terá penalidades judiciais de acordo com as leis de pirataria de software. '# // '# // Se você concordar, pedimos que visando divulgar o nosso grupo de discussão, pedimos '# // que seja mantido o link para o Grupo Virtua Developer '# // (http://br.groups.yahoo.com/group/virtuadeveloper) '# // '# //-------------------------------------------------------------------------------------- '# '# 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 ajuda e suporte acesse um dos sites abaixo: '# http://comunidade.virtuastore.com.br '# http://br.groups.yahoo.com/group/virtuadeveloper '# '# ******************************** '# Créditos do Código Original '# ******************************** '# Os arquivos originais da versão 3.0 foram baixados do Grupo VirtuaStore '# (http://www.bondhost.com.br) e revisados e adaptados pela '# equipe do Grupo Virtua Developer (http://br.groups.yahoo.com/group/virtuadeveloper) '# '# BOM PROVEITO! '# Equipe VirtuaStore & Grupo Virtua Developer '# []'s '# '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### %> <% '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 'Atenção: Este arquivo não pode ser distrubuído ou separado desta VirtuaStore OPEN '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Session.Lcid = "1046" '=============== DADOS DO CEDENTE (Configurado no Config.asp) ================= cedente = bol_cedente '"SUA EMPRESA LTDA" cpf_cnpj = "" '"03.213.418/0001-75" agencia = bol_agencia '"3552"' Numero da Agência dac_agencia = bol_dagencia '"1" ' Digito da Agência conta = bol_conta '"6038" ' Numero da Conta dac_conta = bol_dconta '"0" ' 1 Digito da Conta carteira = bol_carteira '"18" convenio = bol_convenio '"298502" ' Antigo "295292" '================ DADOS DO BOLETO ================== if hoje ="" then systime=now() dia = cstr(day(systime)) if dia < 10 then dia = "0" & dia mes = cstr(month(systime)) if mes < 10 then mes = "0" & mes ano = cstr(year(systime)) hoje= dia & "/" & mes & "/" & ano end if if Request.QueryString("valordocumento") < 50 then valor=2.80 valor=valor+Request.QueryString("valordocumento") else valor=Request.QueryString("valordocumento") end if if now()>cdate(Request.QueryString("datavencimento")) then data_vencimento=now()+5 else data_vencimento=Request.QueryString("datavencimento") end if data_documento = hoje numero_documento = 9000000000+cint(Request.QueryString("numerodoc")) nosso_numero = 9000000000+cint(Request.QueryString("numerodoc")) ' ATENÇÃO Maximo de 5 Digitos '=========== DADOS DA SACADO ======================= nome_sacado = Request.QueryString("sacador") endereco_sacado = Request.QueryString("endereco") endereco_sacado2 = Request.QueryString("bairro") & Request.QueryString("cidade") & Request.QueryString("estado") & Request.QueryString("cep") '================INSTRUÇÕES DO BOLETO ============== instrucoes1 = instr_linha1 instrucoes2 = instr_linha2 instrucoes3 = instr_linha3 instrucoes4 = instr_linha4 instrucoes5 = instr_linha5 '===================================================== especie = "R$" especie_doc = "RC" aceite = "N" fvencimento = Cstr(fvenc(data_vencimento)) valor_str = Cstr(formatar(valor,10,"0","v")) agencia = Cstr(formatar(agencia,4,"0","e")) '*** Convenio com 7 digitos if len(convenio) = 7 then convenio = CStr(formatar(convenio, 7, "0", "e")) nosso_numero = CStr(formatar(nosso_numero, 10, "0", "e")) end if '*** Convenio com 6 digitos if len(convenio) = 6 then convenio = CStr(formatar(convenio, 6, "0", "e")) nosso_numero = CStr(formatar(nosso_numero, 5, "0", "e")) end if nosso_numero = Cstr(convenio) & Cstr(nosso_numero) ' Conv + NN 'response.Write("nosso_numero="&nosso_numero&"ok") conta = Cstr(formatar(conta,8,"0","e")) carteira = Cstr(formatar(carteira,2,"0","e")) '*** Convenio com 7 digitos if len(convenio) = 7 then 'response.Write("6zeros=000000ok
") 'response.Write("convenio="&convenio &"ok
") 'response.Write("nosso_numero="&right(nosso_numero,10)&"ok
") 'response.Write("carteira="&carteira&"ok") livre = CStr("000000" & convenio & right(nosso_numero,10) & carteira) 'response.Write("livre="&livre&"ok
") end if '*** Convenio com 6 digitos if len(convenio) = 6 then livre = CStr(nosso_numero & agencia & conta & carteira) end if codbar = Cstr("0019" & fvencimento & valor_str & livre) dac = Cstr(mod11(codbar,9,0)) codbar = Cstr("0019" & dac & fvencimento & valor_str & livre) linha_digitavel = linhadigitavel(codbar) nosso_numero = nosso_numero &"-"& mod11(nosso_numero,9,0) agencia_codigo = agencia &"-"& dac_agencia & " / " & conta &"-"& dac_conta valor = formatnumber(Ccur(valor),2,-2,-2,-2) function data_bol(entra) data_bol = day(entra) & "/" & month(entra) & "/" & year(entra) end function FUNCTION mod11(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 mod11=nresto else if nresto=0 or nresto=1 or nresto=10 then ndig=1 else ndig=11 - nresto end if mod11=ndig end if END FUNCTION FUNCTION mod10(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 ) mod10=total END FUNCTION FUNCTION linhadigitavel(codigobarras) '************************** cmplivre=mid(codigobarras,20,25) campo1=left(codigobarras,4)&mid(cmplivre,1,5) campo1=campo1&mod10(campo1) campo1=mid(campo1,1,5)&"."&mid(campo1,6,5) campo2=mid(cmplivre,6,10) campo2=campo2&mod10(campo2) campo2=mid(campo2,1,5)&"."&mid(campo2,6,6) campo3=mid(cmplivre,16,10) campo3=campo3&mod10(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 function fvenc(entra) fvenc = DateDiff("d", CDate("7/10/1997"), CDate(entra)) end function function formatar(valor, comp, ench, tipo) dim str str = valor if tipo = "v" then str = Ccur(str) str = formatnumber(str,2,-2,-2,-2) tipo = "e" : str = cstr(str) str = replace(str,",","") str = replace(str,".","") end if for a=len(str) to (comp - 1) if tipo = "e" then str = ench & str else str = str & ench end if next formatar = str end function function d1d2(entra) d1 = mod10(entra) Do d2 = mod11(entra & d1,7,1) if d2 = 1 then if d2 = 9 then d1 = 0 elseif d1 < 9 then d1 = d1 + 1 else d1 = 0 end if end if Loop while d2 = 1 if d2 > 0 then d2 = 11 - d2 end if d1d2 = Cstr(Cstr(entra) & Cstr(d1) & Cstr(d2)) end function %> <%= 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
001-9
 <%=linha_digitavel%>
Cedente Agência/Cód. Cedente Espécie Qtde. Nosso número
<%=cedente%> <%=agencia_codigo%> <%=especie%> <%=x98%> <%=nosso_numero%>
Número do documentoCPF/CNPJVencimentoValor documento
<%=numero_documento%> <%= cpf_cnpj%> <%=data_vencimento%> <%=valor%>
(-) Desconto / Abatimento (-) Outras deduções(+) Mora / Multa(+) Outros acréscimos(=) Valor cobrado
 
Sacado
<%=nome_sacado %>
Instruções
Autenticação mecânica
<%=obs_linha1%>
<%=obs_linha2%>
<%=obs_linha3%>
<%=obs_linha4%>
<%=obs_linha5%>
Corte na linha pontilhada


001-9
 <%=linha_digitavel%>
Local de pagamentoVencimento
ATÉ O VENCIMENTO, PAGÁVEL EM QUALQUER AGÊNCIA BANCÁRIA <%=data_vencimento%>
CedenteAgência/Código cedente
<%=cedente%> <%=agencia_codigo%>
Data do documento No documento Espécie doc. Aceite Data process. Nosso número
<%=date()%>
<%=numero_documento%>
<%=especie_doc%>
<%=aceite%>
<%=date()%>
<%=nosso_numero%>
Uso do banco Carteira Espécie Quantidade Valor Doc. (=) Valor documento
<%=x163%>
<%=carteira%>
<%=especie%>
<%=v_quant%> <%=v_vl%> <%=valor%>
Instruções (Texto de responsabilidade do cedente)
<%response.write x80 & "
" : response.write x171 & "
" response.write instrucoes1 & "
" response.write instrucoes2 & "
" %>
(-) Desconto / Abatimentos
(-) Outras deduções
(+) Mora / Multa
(+) Outros acréscimos
(=) Valor cobrado
Sacado
<%=nome_sacado %>
<%=endereco_sacado %>
<%=endereco_sacado2 %> Cód. baixa
Sacador/Avalista
Autenticação mecânica - Ficha de Compensação
<%cod_bar(codbar) Sub cod_bar( 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