Pesquisar na Comunidade

Showing results for tags 'acbrboleto'.



More search options

  • Search By Tags

    Digite tags separadas por vírgulas
  • Search By Author

Tipo de Conteúdo


Fóruns

  • ACBrSAC
    • ACBr SAC
  • ACBr
    • ACBr News
    • Equipamentos testados
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrMonitor PLUS
    • ACBrDFe
    • ACBrTEFD e Dúvidas sobre TEF
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
  • Outros Assuntos
    • Legislação Fiscal e Tributária
    • Object Pascal - Delphi & Lazarus
    • Banco de Dados
    • Classificados
    • Dúvidas não relacionadas ao ACBr
  • Fabricantes
    • Epson
    • Bematech

Categorias

  • ACBrMonitorPLUS
    • ACBrMonitorPLUS - SAC
    • ACBrMonitorPLUS - Free
  • ACBrInstall
  • Demos / Testes
  • Utilitários ACBr
  • Utilitários ACBrSAC
  • Fabricantes
    • DASCOM
    • Bematech
  • SAC Webinar

Calendários

  • SAC - Webinars
  • Community Calendar

Encontrado 104 registros

  1. Estou tentando ler o retorno do santander, o problema é que ele esta pegando um caracter a mais no cnpj o que da o erro CNPJ\CPF do arquivo inválido. eu corrigi a linha 893 original: case StrToIntDef(Copy(ARetorno[0],17,1),0) of 1: rCNPJCPF := Copy(ARetorno[0],22,11); 2: rCNPJCPF := Copy(ARetorno[0],18,15); else rCNPJCPF := Copy(ARetorno[0],18,15); end; modifiquei para: case StrToIntDef(Copy(ARetorno[0],17,1),0) of 1: rCNPJCPF := Copy(ARetorno[0],22,11); 2: rCNPJCPF := Copy(ARetorno[0],19,14); else rCNPJCPF := Copy(ARetorno[0],18,15); end; a unit altera esta anexada tambem ACBrBancoSantander.pas
  2. Erro ao gerar Boleto - Banestes

    Boa Tarde, Estou tendo problemas ao gerar Boleto do Banestes. Segue em anexo o código fonte de como o componente é alimentado. Quando eu clico no botão e mando imprimir uma primeira vez, dá o seguinte erro: "LayoutBoleto: Erro durante a preparação do relatório EConvertError('" se eu der OK e clicar no botão para imprimir novamente, o erro não aparece. O problema é a primeira vez que clica. Debugando o procedimento ACBrBoleto1.Imprimir, o erro aparece na linha marcada em vermelho do código a seguir: if Filtro = fiNenhum then begin if MostrarPreview then RLLayout.PreviewModal else RLLayout.Print; end else ..... Obrigado! Código.txt
  3. Remessa - Multa por Valor e Percentual

    Boa Noite. Fiz um ajuste no Banco do Brasil e Sicoob, o mesmo não estava verificando se a multa é por valor ou percentual, vi o pessoal comentando sobre o problema, mais não foi commitado nos fontes oficiais. será que posso ajudar em algo pra que seja commitado? vou enviar aqui as duas units alteradas. linha Atual ==> IfThen((PercentualMulta > 0), '2', '0') linha Alterada ==> IfThen((PercentualMulta <> null) and (PercentualMulta > 0), IfThen(MultaValorFixo,'1','2'), '0') ACBrBancoBancoob.pas ACBrBancoBrasil.pas
  4. Alguém sabe me dizer para que serve a propriedade filtro do componente acbrboleto? Temos nela: nenhum, pdf e html.
  5. Saudacoes, ao gerar a remessa CNAB400 tudo vai bem com o campo OcorrenciaOriginal=1, mas se no comando for usado OcorrenciaOriginal=27 por exemplo, ele gera a remessa com 01 do mesmo jeito. segue anexo os txts usados de exemplo e para conferir no arquivo de remessa, ele teria que mudar na coluna 109 a 111 (tipo da ocorrencia). Tentei de varias formas e mudando o texto no txt da remessa, como OcorrenciaOriginal=27, OcorrenciaOriginal.TipoOcorrencia=27, TipoOcorrencia=27 e nenhum deles fez efeito. Alguem teria alguma sugestao ? 1-limpar.txt 2-config-dados-boleto.txt 3-boleto.txt 4-boleto.txt cb100704_remessa gerada_observar a coluna 109_so fica 01.rem
  6. Boa tarde! Estamos enviando a unit ajustada para sua apreciação e possível incorporação ao diretório SVN. Unit: ACBrBancoSantander.pas Procedure: GerarRegistroTransacao400 - Linha 755 Alterado De wLinha:= wLinha + #13#10 + '2' + space(16) + PadLeft(Cedente.CodigoTransmissao,20,'0') + Space(10) + '01' + PadRight(Mensagem,50) + Space(283) + 'I' + Copy( Cedente.Conta, length( Cedente.Conta ),1 ) + Cedente.ContaDigito + Space(6) + Protesto + ' ' + IntToStrZero( aRemessa.Count + I + 2 , 6 ); Para: // Alteração para adequação do Layout de Remessa Santander CNAB 400 // Página 9 - 386 394 X(009) Brancos wLinha:= wLinha + #13#10 + '2' + space(16) + PadLeft(Cedente.CodigoTransmissao,20,'0') + Space(10) + '01' + PadRight(Mensagem,50) + Space(283) + 'I' + Copy( Cedente.Conta, length( Cedente.Conta ),1 ) + Cedente.ContaDigito + // Jaqueline - 23/06/2017 // Alteração para adequação do Layout de Remessa Santander CNAB 400 // Página 9 - 386 394 X(009) Brancos //Space(6) + Protesto + ' ' + Space(9) + IntToStrZero( aRemessa.Count + I + 2 , 6 ); Cobrança Santander CNAB 400.pdf ACBrBancoSantander.pas
  7. Codigo da empresa invalido no arquivo

    Boa tarde, o codigo tem 20 digitos e um '0' char porem esta dizendo que esta incorreto segue o arquivo em anexo CB010400.RET
  8. Codigo da empresa invalido no arquivo

    Boa tarde, o codigo tem 20 digitos e um '0' char porem esta dizendo que esta incorreto segue o arquivo em anexo CB010400.RET
  9. Bom dia! Estou tentando utilizar múltiplas aplicações com a mesma instância do ACBrMonitor para fazer utilização dos recursos do componente BOLETO. O problema é a geração dos arquivos de boleto. Como estou utilizando o método TXT para efetuar a comunicação preciso salvar o arquivo de boleto com um nome específico. para que ele não seja interpretado como resposta à solicitação de outro client. Há como especificar o nome e o caminho do arquivo de boleto (html ou pdf tanto faz) através do ACBrMonitor ou ACBrMonitor Plus?
  10. acbrBoleto Homologacao Itaú

    Utilizo o AcbrPlus versão 1.1.0.9 com arquivo TXT e estou homologando boletos com o Banco Itaú. Recebi a mensagem de criticas abaixo e gostaria de saber como faço para corrigir essas mensagens e conseguir homologar os boletos. Em anexo um boleto impresso. CORRESPONDÊNCIA INTERNA Ref.: BLQ11409/2017 Data: 04/05/2017 Observações: ü A literal "Autenticação Mecânica" deve ser colocada na mesma linha e imediatamente a expressão "FICHA DE COMPENSAÇÃO" e com o mesmo tamanho de fonte; ü Na mesma linha da literal "Instruções" e mesmo tamanho de fonte, deve ser inserida a mensagem: "(Instruções de responsabilidade do beneficiário. Qualquer dúvida sobre este boleto, contate o beneficiário)"; boleto_carne_itau.pdf
  11. AcbrBoleto no AcbrFramework

    Olá pessoal, Alguém já está trabalhando para incluir o ACBRBoleto no ACBRFramework ? Tenho disponibilidade para trabalhar neste projeto.
  12. banco itau - erros de dados do cedente

    Estou preenchendo os dados aparentemente corretos para gerar o boleto do banco itau, so que quando eu vou gerar da erro nos dados do cedente. De acordo com o atendente do banco nao existe código do cedente para banco itau e ele disse que deveríamos usar a agenca+conta, achei meio estranho. no convenio ele mandou eu escrever "cobrança" no campo de convenio. os dados que eu to passando são esses: agencia : 8632 conta : 09937-3 cod. cedente : 863209937-3 variação : nao tem convenio : COBRANCA alguém que mexe com banco de dados itau tem como me ajudar? to com duvidas mesmo so de preencher esses dados.
  13. Alteracao unit acbrboleto

    Srs, alterei a unit acbrboleto na procedure TACBrBoleto.AdicionarMensagensPadroes(Titulo: TACBrTitulo; AStringList: TStrings); Adicionei a mensagem de cobrança acessoria, if ValorDespesaCobranca <> 0 then AStringList.Add(ACBrStr('Acrescimo de ' + FormatCurr('R$ #,##0.00',ValorDespesaCobranca)+' Referente a Desp. Acessoria')); e data limite para pagamento. if DataLimitePagto <> 0 then AStringList.Add(ACBrStr('Não Receber após ' + IntToStr(DaysBetween(Vencimento, DataLimitePagto))+ ' dias')); Segue a mesma para ser atualizada no svn ACBrBoleto.pas
  14. Boa tarde, estou tentando compilar o exemplo do boleto do Acbr AcbrBoletoDemo.dpr, utilizando o ACBR Boleto, porém, esta com o seguinte erro: Faltal erro uDMFonte.pas(6) File Not Found System.sysutils.dcu A Instalação foi feita pelo AcbrInstall.Trunk2.exe com o versão do Delphi7, foi instalado com sucesso, (conforme arquivo log_Delphi_7.txt em anexo) mais quando foi abrir o exemplo do ACBR BOLETO NA PASTA D:\Acbr\Exemplos\ACBrBoleto\Delphi\AcbrBoletoDemo.dpr abre sem erro, mais quando vai compilar ele esta procurado esta DCU System.sysutils.dcu (conforme tela em anexo) procurei esta dcu e não achei. será que alguém poderia ajudar Obrigado Carlos log_Delphi_7.txt
  15. Acabei de atualizar a versão do ACBr e agora quando vou compilar minha aplicação me vem a mensagem "ACBrBoletoFCFR was compiled with a different version of ACBrBoleto.TACBrBoletoFCClass", como resolvo? Não estou conseguindo compilar minha aplicação mais!
  16. Acabei de atualizar a versão do ACBr e agora quando vou compilar minha aplicação me vem a mensagem "ACBrBoletoFCFR was compiled with a different version of ACBrBoleto.TACBrBoletoFCClass", como resolvo? Não estou conseguindo compilar minha aplicação mais!
  17. Boa tarde, Gente, preciso ler a chave do codigo de barras do boleto, porque, caso o boleto estiver vencido, eu quero exibir uma mensagem com aquele numero do codigo de barras para que o cliente entre no site do banco e imprima a segunda via pelo site do banco. Existe alguma propriedade no componente ACBrBoleto que eu possa ler esta informação? Grato.
  18. Criado no ACBrMonitorPLUS um relatório para verificação do retorno dos bancos. Isso visa facilitar a leitura e conferência dos títulos recebidos no arquivo de remessa. O relatório, utiliza o arquivo de retorno do banco, carrega os dados do cedente e a lista de títulos do arquivo. A emissão pode ser feita pela interface do programa, como abaixo. É possível nesta tela também configurar um logotipo para o relatório. Ou ainda via comando, ao ler o retorno. BOLETO.LerRetorno(cDirArqRetorno,cNomeArqRetorno,bImprimeRelatorio)
  19. Mudanças no ACBrBoleto Gerando Erros

    Bom dia, sempre mantenho o ACBrMonitor Plus atualizado no meu sistema, a última versão que utilizei sem problemas, foi compilada através do código do SVN do dia 19 de dezembro. Ontem atualizei o repositório, vi que houveram várias modificações nos boletos. Depois dela, comecei a receber erros de tamanho do nosso número inválido no Banrisul, com aviso que o mesmo deveria ser 7, mas olhando o arquivo ACBrBancoBanrisul.pas, a variável fpTamanhoMaximoNossoNum está como 8 e em alguns casos 10. Verifiquei meu código que estava deixando este campo com 8 caracteres, adicionando zeros à esquerda. Corrigi isso e a emissão começou a funcionar, apesar do fato de que já estava no limite correto, mas removi os zeros à esquerda para conseguir a emissão. Ao tentar imprimí-lo, comecei a receber erros de carteira inválida, a mesma deveria ser 1 ou 3. Isso nunca aconteceu antes e a carteira que sempre utilizei no Banrisul tem 6 caracteres, não 1. Faço inclusões e emissões através da leitura de arquivos INI para incluir boletos. Hoje pela manhã um cliente reclamou que o sistema estava gerando os boletos dele do banco Santander como Caixa Econômica e dando erro de leitura de retorno pelo mesmo motivo, as listas de identificação foram modificadas? Sei que deveria ser mais detalhado com meu problema, incluindo alguns exemplos, mas esta primeira postagem é para ver se alguém esta tendo estes problemas ou se é algo exclusivo meu.
  20. Gerar Remessa CNAB240 CAIXA

    Gostaria de saber se existe alguma forma de exibir um log da geração da remessa após a executar a função ACBrBoleto.GerarRemessa(idRemessaCnab). O retorno dessa função é uma string que contém somente o caminho e o nome do arquivo gerado, o que eu estou precisando é mostrar as ocorrências da geração da remessa (em um memo, por exemplo).
  21. Problemas ao gerar PDF

    Boa tarde pessoal, Estou tendo problemas ao gerar o PDF do boleto. Quando eu chamo a rotina "Imprimir" do componente, o boleto é visualizado na tela perfeitamente, porém, se ao invés de chamar a rotina "Imprimir", chamar a "GerarPDF", ele até gera o PDF, com um tamanho de 58 KB, mas ao concluir o processo derrepente o tamanho cai para 0 KB, debugando, percebi que ocorre o seguinte erro: "raised exception class EVariantTypeCastError with message 'Could not convert variant of type (String) into type (Double)'." Porém, ao debugar chamando o "Imprimir" ocorre este mesmo erro, porém, o boleto é aberto normalmente. Alguém sabe me dizer o que pode estar acontecendo? Grato.
  22. Boa tarde, esse mês ao tentar enviar arquivo de boletos para o SICOOB começou a invalidar o convênio. O convênio estava indo zerado pelo ACBR, então fiz uma mudança e passou a validar novamente. linha 688 posição de 033 a 052 20 digitos para o convenio modificada a linha de: StringOfChar('0', 20) + // 33 a 52 - Brancos - Alteração para passar no validador para: PadRight(Convenio, 20, ' ') + // 33 a 52 - Convenio com Brancos a Direita Segue o arquivo em anexo caso interesse a alguém. Obrigado, Sandro Campos. ACBrBancoBancoob.zip
  23. Remessa de Boletos Registrados ITAU 400

    Prezados, boa tarde. é um feliz natal a todos. conforme anexo o itau esta informando que o CPF é invalido, porem eu só estou informando CNPJ, porem na posição 219 a 220 é obrigado a informar 01=Fisica e 02=Juridica, porem não consigo alterar mesmo passando somente numero no campo Sacado.CNPJCPF := OnlyNumber(CNPJCPF); existe como mudar isso? podem me ajudar? segue codigo var Titulo : TACBrTitulo; NomePdf : string; begin if LimpaBoleto = False then begin Titulo := Boleto.CriarTituloNaLista; with Titulo do begin Vencimento := dt_vencimento; DataDocumento := Data_Documento; NumeroDocumento := Numero_Documento; EspecieDoc := Especie_Doc; Aceite := atNao; DataProcessamento := Now; Carteira := carteira_banco; NossoNumero := Nosso_Numero; ValorDocumento := valor; NomePdf := NomeSacado; Sacado.NomeSacado := NomeSacado; Sacado.CNPJCPF := OnlyNumber(CNPJCPF); Sacado.Logradouro := Endereco; Sacado.Numero := complemento; Sacado.Bairro := bairro; Sacado.Cidade := cidade; Sacado.UF := uf; Sacado.CEP := cep; LocalPagamento := LocalPgto; Mensagem.Text := Descri_Boleto + Msg1 + #13 + Msg2; end; end cb211216.rem valida_cb211216rem.pdf
  24. Bom dia Estou homologando o boleto junto ao Santander. E percebi que após importar o arquivo retorno a linha digitável ficou diferente do esperado na remessa. Ao analisa o fonte ACBrBancoSantander.pas verifiquei que a divergência está no nosso número conforme detalhes: A Remessa: LInha 700: PadLeft(RightStr(NossoNumero,7),7,'0') + DigitoNossoNumero + // 63 a 70 O Retorno : Linha 1034: NossoNumero := Copy(Linha,63,08); Note a diferença, na remessa o nosso número tinha 8 dígitos sendo que os 7 primeiros é o nosso número e o 8º dígito é o Digito Verificador (que foi calculado anteriormente). No Retorno o fonte simplesmente lê os 8 dígitos como sendo o nosso número incorporando o dígito verificador. Sugiro a seguinte correção no retorno: Arquivo Fontes\Boleto\ACBrBancoSantander.pas Linha 1034: NossoNumero := Copy(Linha,63,07); //DigitoNossoNumero := Copy(Linha,70,01); //por hora comentando pois o digito é calculado sempre que necessário No meu caso após esta mudança a linha digitável ficou OK PS: Fonte trunk2 atualizado neste exato momento. Obrigado Márcio ACBrBancoSantander.pas
  25. Número da Conta Zero na Remessa Itau

    Boa noite, pessoal estou com problemas ao gerar remessa de boleto do banco itau. O número da conta está saindo zero, tanto no Header quanto nas linhas dos títulos, porém o dígito da conta estão saindo, e informo no mesmo momento tanto a conta quanto o seu respectivo dígito e também a agencia que também sai. Dados de agência : 0562 e Conta Corrente 40177-8 O que estou fazendo errado ?? Segue ilustração :