Gledson Santos

Bom dia, entrei em contato com o cliente diversas vezes para gerar o arquivo, mas ele recusou e acabou que o gerente do banco alterou o convênio dele para 7 posições. Agradeço sua ajuda na solução do problema. Por mim, pode fechar o tópico.

@Daniel InfoCotidiano Bom dia, fiz um teste aqui e aparetemente está tudo certo, irei entrar em contato com o cliente para ele gerar o arquivo e enviar para o banco validar, assim que tiver um retorno, posto aqui.

Resposta do banco referente ao arquivo gerado:

Temos um cliente tentando homologar o boleto para o banco do brasil, o convênio dele é com 6 posições, porém já geramos alguns arquivos e todos foram rejeitados pelo banco, quando fazíamos o ajuste que o banco solicitava, quebrava outro, por fim, analisando o código, vi que na linha 1218 da unit ACBrBancoBrasil tem o seguinte código: wLinha:= wLinha + PadLeft( trim(Cedente.Convenio), 6); // Número do convenio Isso faz com que o arquivo tenha espaços antes do número e o banco espera que seja zeros, eu não quero modificar local, por isso, trouxe aqui para que vocês verifiquem se procede a alteração: wLinha:= wLinha + PadLeft( trim(Cedente.Convenio), 6, '0'); // Número do convenio

Eu atualizei e realmente esse campo foi corrigido, irei passar o arquivo para o email informado. Desde já, obrigado pela atenção.

Gerei um arquivo de remessa, mas o banco recusou acusando algumas inconsistências, verifiquei nos fontes e verifiquei que na unit do Itaú existe a função: GerarRegistroHeader400, mas não existe a função: GerarRegistroHeader240, segue em anexo um print com a recusa do banco. link do manual Itaú: https://download.itau.com.br/bankline/cobranca_cnab240.pdf

Conseguiu resolver o problema?

Ao enviar o boleto pela API do BB, está dando erro se preencher Titulo.Mensagem.Text com mais de 30 caracteres, então tive que preencher Titulo.Instrucao1, Titulo.Instrucao2, Titulo.Instrucao3... No entanto a unit ACBrBoletoFCFortesFr não tem Titulo.Instrucao1, Titulo.Instrucao2, Titulo.Instrucao3... Por isso, na impressão não sai a mensagem definida. A solução que achei foi limpar ATitulo.Mensagem.Text e carregar Titulo.Instrucao1 no envio para API e carregar ATitulo.Mensagem.Text para impressão do boleto. Uma sugestão seria no ACBrBoletoFCFortesFr ler as propriedades Titulo.Instrucao1, Titulo.Instrucao2 , Titulo.Instrucao3... para não precisar fazer essa artimanha. Concorda ou tem uma outra sugestão?

Resolvido

Feito.

Uma outra solução seria: if ACBrBanco.ACBrBoleto.LerNossoNumeroCompleto then ACBrBanco.TamanhoMaximoNossoNum := 13 else ACBrBanco.TamanhoMaximoNossoNum := 12;

Eu olhei a tabela, mas não vi nada referente

@Daniel InfoCotidiano Desculpas pela demora, mas fiz o teste mudando a propriedade informada e o retorno foi o mesmo, nosso numero continua com o digito verificador. No exemplo o nosso numero é 10 e o digito verificador é 8, mas no retorno o nosso numero fica 108.

Ao ler o arquivo de retorno o nosso numero diverge do arquivo de remessa, pois na remessa é nosso numero + digito verificador, ja no retorno não há essa separação. Segue trecho do código: Sugestão: if copy(Linha, 14, 1) = 'T' then // se for segmento T cria um novo Titulo Titulo := ACBrBanco.ACBrBoleto.CriarTituloNaLista; with Titulo do begin if copy(Linha, 14, 1) = 'T' then begin NossoNumero := Copy(Linha, 41, 12); //colocar fixo 12 DigitoNossoNumero := Copy(Linha, 53, 1); //criar uma variavel para o digito verificador NumeroDocumento := Copy(Linha, 55, 15);

Me refiro ao ACBrSpedFiscal. Irei analisar e assim que tiver novidades, postarei aqui. Obrigado @Juliomar Marchetti