Codigo de Geração Inválido boleto sicredi

[Nalso]

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

 

[Felipe E. Resende Mesquita]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[José M. S. Junior]

Boa tarde

Para este banco o campo UA/Posto deve ser preenchido na propriedade "AgenciaDigito". Está preenchendo dessa forma?

[Nalso]

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".

[Juliana Tamizou]

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.

[Nalso]

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;

[Juliana Tamizou]

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.