Jump to content

Search the Community

Showing results for tags 'aspboleto'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Desenvolvimento e Banco de Dados
    • HTML e CSS
    • Java
    • Javascript
    • .NET
    • PHP
    • Python
    • Ruby
    • Mobile
    • Ambientes de Desenvolvimento
    • Arquitetura e Métodos Ágeis
    • Banco de Dados
    • DevOps
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Algoritmos & Outras Tecnologias
  • Design e Produto
    • Fotografia
    • Photoshop
    • Design de interfaces e UX
    • Edição/Produção de Vídeos
    • Marketing Online
    • Desenho, Ilustração e 3D
  • Entretenimento e uso pessoal
    • Geral
    • Segurança & Malwares
    • Gadgets e wearable
    • Softwares e Apps
    • Entretenimento

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 1 result

  1. gabrieldmello

    Aspboleto.com.br ou Atual?

    Boa noite galera, Trabalho em uma empresa, sempre usamos uma forma de boleto do banco do brasil, assim desde quando entrei aqui. Hoje precisamos mudar para o boleto da caixa. Encontrei um código do VirtuaStore, porém é antigo, acho que os padrões mudaram, pois não consegui utiliza-lo. Ele pede umas informações sobre a conta, pedi todas que identifiquei como necessárias ao contador da empresa, não sei realmente quais são necessárias mexer, confesso. Resultado, estou pensando em comprar esse código de gerar boletos do aspboleto.com da caixa, por 60,00. O que me recomendam? O código que uso ainda é funcional? Boa Parte/Importante do Código: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="..\global.inc" --> <%response.Buffer = true%> <%session.LCID = 1046%> <% '######################################################################################### '#---------------------------------------------------------------------------------------- '# BOLETO CEF - VERSÃO 1.0 '# Adaptado por: MJSIERRA@IG.COM.BR '#---------------------------------------------------------------------------------------- '######################################################################################### '# '# 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) '... '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### %> <% '******************************** '****FUNÇÕES******************** '******************************** Function FormataData(Data) If Data <> "" Then FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data) End Function '******************************** ' CONSTANTES '******************************** cons_banco = "104" 'bol_banco, Num do Banco 03 posições cons_dvbanco = "0" 'bol_dvbanco, Digito verificador do banco 01 posição cons_agencia = "XXXX" 'bol_agencia, sem digito 04 posições cons_conta = "XXXXX" 'bol_conta, ContaCedente (Somente Números) 05 posições cons_dvconta = "X" 'Digito verificador da CC 01 posição cons_carteira= "SR" 'Código da Carteira: pode ser SR (Sem Registro) ou CR (Com Registro) - (Confirmar com gerente qual usar) - bol_carteira cons_moeda = "9" cons_especie = "R$" cons_cedente = "Empresa" 'bol_cedente cons_dadoscedente = "Rua Empresa, 111 - Bairro - CEP: 55555-005" 'bol_dadoscedente cons_codigocedente= "XXXXXXXXXXX" 'bol_nr_cedente - 11 Caracteres cons_dvcodigocedente= "X" cons_taxaboleto = "2.95" '******************************** ' CARREGAR PERFIL CLIENTE '******************************** id = request.QueryString("id") set rs = conn.execute ("select * from fisica where codcpf = '"& id &"' ") fisica = rs("codigo") nome = rs("nome") CPF = rs("cpf") bolsaestudo = rs("bolsaestudo") valordabolsa = rs("valordabolsa") prouni = rs("prouni") set rs = conn.execute ("select * from inscricao where fisica = '"&fisica&"' ") inscricao=rs("codigo") curso = rs("codcurso") if curso=4 then ' valor=400 'mensalidade else valor=5 'mensalidade end if if(bolsaestudo=2 and valordabolsa=1) then ' 50% valor=valor/2 elseif(bolsaestudo=2 and valordabolsa=2) then ' 100% valor=0 elseif(bolsaestudo=1) then 'espaço para plano end if datahoje = now datavencimento = dateAdd("d",5,date) set rs = conn.execute ("select * from boleto where fisica = '"& fisica &"' ") if rs.eof then set rs = conn.execute ("insert into boleto (fisica, inscricao, valor, dataemissao, datavencimento) values ('"& fisica &"', '"&inscricao&"', '"&valor&"', '"&datahoje&"', '"&datavencimento&"')") else set rs = conn.execute ("update boleto set valor='"&valor&"' where fisica = '"& fisica &"' ") end if '******************************** ' VARIÁVEIS '******************************** var_sacado = nome 'Request.QueryString("sacador") var_CPFSacado= CPF 'Request.QueryString("cpf") '*************************************** 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 '********************************** 'Data de Vencimento 5 dias após a data do servidor Ano = DatePart("yyyy", DateAdd("d", 5, date)) Mes = DatePart("m", DateAdd("d", 5, date)) if Len(Mes) < 5 then Mes = "0" & Mes end if Dia = DatePart("d", DateAdd("d", 5, date)) if Len(Dia) < 5 then Dia = "0" & Dia end if Dim dataHoje dataHoje = day(now)&"/"&month(now)&"/"&year(now) '********************************** set rs = conn.execute ("select * from boleto where fisica = '"& fisica &"' ") valorMensalidade= rs("valor") dataemissao = rs("dataemissao") datavencimento = rs("datavencimento") var_datadocumento = FormataData(dataemissao) 'Data de emissão do Boleto var_datavencimento = FormataData(datavencimento) 'Data de Vencimento do Boleto - REGRA: Formato DD/MM/AAAA var_valordocumento = Cstr(valorMensalidade)+",00" 'Valor do Documento var_numerodoc = rs("codigo") 'Num do Documento 'Carteira SR: 80, 81 ou 82 - Carteira CR: 90 (Confirmar com gerente qual usar) var_inicionossonumero = "80" 'var_nossonumero = CStr(Cint(var_inicionossonumero)+var_numerodoc) 'Nosso numero sem o DV - REGRA: Máximo de 8 caracteres! var_nossonumero = var_numerodoc 'Nosso numero sem o DV - REGRA: Máximo de 8 caracteres! var_instrucoes="<B><BR>Não receber após o vencimento.<BR> MULTA de 0,02% por dia de atraso<BR> </b>" var_intervalo = CDate(Var_datavencimento)-CDate(Var_datadocumento) if var_intervalo > 5 then var_observacoes="<B> <BR> Pagamento referente à Blá Blá Blá <BR> Outra Linha <BR> <BR></b>" else var_observacoes="<B> <BR> Pagamento referente à Blá Blá Blá <BR> Outra Linha <BR> <BR></b>" end if if var_numerodoc = "" then if var_CPFSacado<>"" then var_nossonumero = mid(var_CPFSacado,1,7) end if end if Informações que achei necessárias para gerar o boleto e que pedi ao contador:
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.