AcbrPagFor - Bradesco

[rodrigofernandes]

Bom dia, tudo bem?

É possível utilizar o AcbrPagFor para enviar de arquivos para a ferramenta MultiPag do banco Bradesco?

Desde já agradeço a atenção e de todos.

[Diego Foliene]

4 minutos atrás, rodrigofernandes disse:

Bom dia, tudo bem?

É possível utilizar o AcbrPagFor para enviar de arquivos para a ferramenta MultiPag do banco Bradesco?

Desde já agradeço a atenção e de todos.

Bom dia!
Para verificar quais bancos são suportados pelo componente ACBrPagFor, por favor, siga as instruções descritas neste tópico:

Adiantando a sua dúvida, SIM, o ACBrPagFor gera arquivos para o Bradesco.

Como complemento, sugiro ouvir:
https://anchor.fm/projeto-acbr/episodes/Dia-do-ACBr-2022-ACBrPagFor--o-outro-lado-da-moeda----Principais-dvidas-mapeadas-e-respondidas-e1pdcci
 

[rodrigofernandes]

Boa noite o áudio é muito esclarecedor, utilizando o exemplo do AcbrPagFor o arquivo foi gerado, mas ainda tenho dúvidas, estou com o primeiro tipo de pagamento que é boleto, ao tentar validar na ferramenta de validação do banco recebo o seguinte retorno:

Linha 3, Segmento J, colunas 021 a 021, Código de barras moeda inválida.
Linha 3, Segmento J, colunas 022 a 022, Dígito do código de barras inválido.
Linha 3, Segmento J, colunas 092 a 099, Data de vencimento divergente do fator de vencimento do código de barras.
Linha 3, Segmento J, colunas 100 a 114, Valor nominal do título divergente do valor no código de barras.
Linha 3, Segmento J, não informado próxima linha Segmento J-52 Dados do beneficiário. Obrigatório a partir de 30/08/2019.

Estou inserindo os dados da seguinte maneira:

    with SegmentoJ.New do
          begin
            TipoMovimento := tmInclusao;
            CodMovimento := imInclusaoRegistroDetalheLiberado;
            CodigoBarras := QryPesquisaMovtoCOD_BARRAS.Value;
            NomeCedente := QryPesquisaMovtoRAZAOSOCIAL.Value;
            DataVencimento := QryPesquisaMovtoDATA_VENCIMENTO.Value;
            ValorTitulo := QryPesquisaMovtoVALOR_MOVTO.AsFloat;
            Desconto := 0.0;
            Acrescimo := 0.0;
            DataPagamento := QryPesquisaMovtoDATA_PREV_RECEBIMENTO.Value;
            ValorPagamento := QryPesquisaMovtoVALOR_MOVTO.AsFloat;
            QtdeMoeda := 0.0;
            ReferenciaSacado := '';
            CodigoMoeda := 09;
            TotalLote := TotalLote + ValorPagamento;
          end;

 

Desde já agradeço

 

a linha do arquivo de remessa

 

2370001300001J000                                            CPFL                          0611202200000000010000000000000000000000000000000000006112022000000000100000000000000000000                                        09                
23700015         000003000000000000100000000000000000000000000000                                                                                                                                                                               
23799999         000001000005000000     

[rodrigofernandes]

a linha do arquivo de remessa

 

2370001300001J000                                            CPFL                          0611202200000000010000000000000000000000000000000000006112022000000000100000000000000000000                                        09                
23700015         000003000000000000100000000000000000000000000000                                                                                                                                                                               
23799999         000001000005000000     

 

 

Alguém teria um forma de como são criados os segmentos ?

[Diego Foliene]

13 horas atrás, rodrigofernandes disse:

Boa noite o áudio é muito esclarecedor, utilizando o exemplo do AcbrPagFor o arquivo foi gerado, mas ainda tenho dúvidas, estou com o primeiro tipo de pagamento que é boleto, ao tentar validar na ferramenta de validação do banco recebo o seguinte retorno:

Linha 3, Segmento J, colunas 021 a 021, Código de barras moeda inválida.
Linha 3, Segmento J, colunas 022 a 022, Dígito do código de barras inválido.
Linha 3, Segmento J, colunas 092 a 099, Data de vencimento divergente do fator de vencimento do código de barras.
Linha 3, Segmento J, colunas 100 a 114, Valor nominal do título divergente do valor no código de barras.
Linha 3, Segmento J, não informado próxima linha Segmento J-52 Dados do beneficiário. Obrigatório a partir de 30/08/2019.

Estou inserindo os dados da seguinte maneira:

    with SegmentoJ.New do
          begin
            TipoMovimento := tmInclusao;
            CodMovimento := imInclusaoRegistroDetalheLiberado;
            CodigoBarras := QryPesquisaMovtoCOD_BARRAS.Value;
            NomeCedente := QryPesquisaMovtoRAZAOSOCIAL.Value;
            DataVencimento := QryPesquisaMovtoDATA_VENCIMENTO.Value;
            ValorTitulo := QryPesquisaMovtoVALOR_MOVTO.AsFloat;
            Desconto := 0.0;
            Acrescimo := 0.0;
            DataPagamento := QryPesquisaMovtoDATA_PREV_RECEBIMENTO.Value;
            ValorPagamento := QryPesquisaMovtoVALOR_MOVTO.AsFloat;
            QtdeMoeda := 0.0;
            ReferenciaSacado := '';
            CodigoMoeda := 09;
            TotalLote := TotalLote + ValorPagamento;
          end;

 

Desde já agradeço

 

a linha do arquivo de remessa

 

2370001300001J000                                            CPFL                          0611202200000000010000000000000000000000000000000000006112022000000000100000000000000000000                                        09                
23700015         000003000000000000100000000000000000000000000000                                                                                                                                                                               
23799999         000001000005000000     

Bom dia, sobre os erros relacionados ao código de barras da a entender que você está passando a informação de maneira incorreta.
Vale lembrar que os números que ficam em cima do código de barras no boleto são a linha ditável do boleto e apesar de refletirem as informações do código de barras possuem conteúdo diferente dele.
Sobre o segmento J52, consulte o programa exemplo disponível na pasta dos fontes no caminho ..\ACBr\Exemplos\ACBrPagFor na procedure AlimentarComponente para ver um exemplo de preenchimento deste e de outros segmentos.

[rodrigofernandes]

O arquivo está sendo gerado, mas tenho algumas dúvidas na questão dos tipos de serviços
     Registro1.Servico.Operacao := toCredito;
     Registro1.Servico.TipoServico := tsCobranca;
     Registro1.Servico.TipoServico := tsPagamentoFornecedor;
     Registro1.Servico.FormaLancamento :=

Meu cliente vai utilizar as seguintes formas de pagamentos e não localizei ao certo no manual quais informações devo passar para da forma de pagamento.

Boleto de Consumo e de Cobrança
Pix
Doc e Ted

Desde já agradeço.

Editado 1 Novembro, 2022 por rodrigofernandes

[rodrigofernandes]

O boleto de consumo consegui a validação utilizando o Segmento O.

Agora vou ver do DOC/TED.

[rodrigofernandes]

Notei que a classe não está gerando o registro referente ao tipo de conta

Conta.TipoConta

Alguém saberia me informar se estou fazendo algo errado .. ou a classe realmente não está gerando essa informação que teria que ser CC ou PP ?

 

[rodrigofernandes]

Os boletos referente a CPFL, consumo de água está sendo validado, estou criando da seguinte forma 

       Registro1.Servico.Operacao := toCredito;
       Registro1.Servico.TipoServico := tsPagamentoContas;
       Registro1.Servico.FormaLancamento := flPagamentoContas;

 

Estou com problemas na geração dos boletos com código de barras com menos números, quais opções devo selecionar ??