Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Codigo de Geração Inválido boleto sicredi


Nalso
Go to solution Solved by Juliana Tamizou,
  • Este tópico foi criado há 1005 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde!

Estou gerando um boleto do banco sicredi para um cliente e quando chega no campo CodigoGeracao da o seguinte erro ( Codigo de Geração Inválido ), eu verifiquei o AValue,ACBrBoleto.Banco.CodigosGeracaoAceitos que diz que o numeros aceitos são 23456789. Neste caso como o Posto é o 14 ele não aceita.

Estou gerando para clientes com o Posto = 3 e está rodando tudo normal.
Este outro cliente com o Posto = 14 é de Lucas do Rio Verde - MT e da erro.

Como devo proceder neste caso.

 

Agencia: 0810   Posto : 14 Conta Corrente: 98628-4

 

Link to comment
Share on other sites

Boa noite José!

Sim o campo UA/Posto está sendo preenchido na propriedade "AgenciaDigito". Como mencionei, aqui em Rondonópolis o Posto é o "3", e está gerando boleto para vários clientes sem problemas.

O Problema se deu nos clientes de Lucas do Rio Verde, pois lá o Posto é "14".

Link to comment
Share on other sites

  • Administradores

Bom dia.

Note que o erro informado em sua primeira postagem se refere a validação do componente na propriedade CodigoGeraco, mas o Junior lhe orientou a usar a propriedade AgenciaDigito. Por favor informe como esta setando as propriedades do componentes casoo problema persista.

Att.

  • Like 2
Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

Bom dia Juliana!

    Esta é a configuração que estou usando

    dm.ACBrBoleto.Cedente.TipoInscricao:= pJuridica;
    dm.ACBrBoleto.Cedente.CNPJCPF:= TB_EMPRESAS.FieldValues['CNPJ_CPF'];
    dm.ACBrBoleto.Cedente.Nome:= TB_EMPRESAS.FieldValues['RazaoSocial_NomeEmpresa'];

    dmForte.ACBrBoleto.Banco.Digito           := 10;
    dmForte.ACBrBoleto.Banco.Numero           := 748;
    dmForte.ACBrBoleto.Banco.Nome             := 'SICREDI';
    dmForte.ACBrBoleto.Banco.LocalPagamento   := 'PAGAR PREFERENCIALMENTE NAS AGENCIAS DO SICREDI';

    dmForte.ACBrBoleto.Banco.TipoCobranca     := cobSicred;

    dmForte.ACBrBoleto.Cedente.CodigoCedente  := '98628'; // Conta Corrente

    dmForte.ACBrBoleto.Cedente.Agencia        := '0810'; // Agencia banco

    dmForte.ACBrBoleto.Cedente.AgenciaDigito  := '14'; // Posto Sicredi

    dmForte.ACBrBoleto.Cedente.Conta          := '98628'; // Conta Corrente

    dmForte.ACBrBoleto.Cedente.ContaDigito    := '4';

    dmForte.ACBrBoleto.Cedente.UF             := 'MT';

    if ComboBox1.Text = 'cobSicred' then
    begin
    mm:=FormatDateTime('M',Now);
    if mm = '10' then
    mm:= '0';
    if mm = '11' then
    mm:= 'N';
    if mm = '12' then
    mm:= 'D';
    dd:=FormatDateTime('DD',Now);
    dmForte.ACBrBoleto.NomeArqRemessa := '98628'+mm+dd+'.crm';
    end;

    dmForte.ACBrBoleto.LayoutRemessa:=c400;


    O erro se dá quando vou gerar o boleto

    Titulo := dm.ACBrBoleto.CriarTituloNaLista;

    with Titulo do
    begin

      Vencimento := QrPedidoPagamentos.FieldValues['Vencimento']; //StrToDate(edtVencimento.Text);
      DataDocumento := QrPedido.FieldValues['DataPedido']; //StrToDate(edtDataDoc.Text);
      NumeroDocumento := QrPedidoPagamentos.fieldvalues['DocumentoNro']; //edtNumeroDoc.Text;
      EspecieDoc := edtEspecieDoc.Text;
      if cbxAceite.ItemIndex = 0 then
        Aceite := atSim
      else
        Aceite := atNao;

      if ComboBox1.Text = 'cobSicred' then
      CodigoGeracao:= '14'; // Posto Sicredi // somente para o sicredi Posto Sicredi

      Erro
      " O erro é aqui neste campo  ( CodigoGeracao ) , ele só aceita os numeros 23456789 "
      Erro

Para o Sicredi este campo tem que ser preenchido com o Posto e como o Posto é 14 da o erro.

      DataProcessamento := Now;
    end;

Link to comment
Share on other sites

  • Administradores
  • Solution

Boa tarde.

 

Conforme pode ser observado na página 7 do manual de cobrança CNAB400 do Sicredi,  para a composição do nosso número é utilizada uma informação denominada pelo banco de Byte a qual tem valores válidos entre 2 e 9,  esta informação é tratada no componente na propriedade CodigoGeracao.

Já o posto beneficiário com 2 caracteres, é tratado na propriedade DigitoAgencia mencionada anteriormente pelo Junior.

Conclusão

Você deve informar o valor '14' em DigitoAgencia e verificar junto ao banco qual seria o Byte correto.

Att.

 

  • Like 1
Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.