BOLETO SICREDI Letras no Código Digitavel

[gralak]

Pessoal estou com uma situação que o DIGITO da AGENCIA são LETRAS no CASO AI

Observei que no fonte  ACBrBancoSicredi.pas na function a baixo esta assim, conforme destacado.

Montando um código semelhante a esse

 74891.12420 00012.507182 AI108.281080 1 99140000000600

Como devo proceder nesse caso ? Fontes atualizados dia 26/11/2024

 

 

function TACBrBancoSicredi.MontarCodigoBarras ( const ACBrTitulo: TACBrTitulo) : String;
var
  CodigoBarras, FatorVencimento, DigitoCodBarras, CampoLivre, Modalidade:String;
  DigitoNum: Integer;
begin
   with ACBrTitulo.ACBrBoleto do
   begin
      FatorVencimento := CalcularFatorVencimento(ACBrTitulo.Vencimento);

        Modalidade := IfThen(Trim(Cedente.Modalidade) = '', '1', Copy(Trim(Cedente.Modalidade),1,1));

      { Monta o campo livre }
      CampoLivre :=   Modalidade                                      + { 1-Com registro ou 3-Sem registro. Por enquanto vou deixar 1 mais tenho que tratar menhor essa informação }
                      '1'                                             + { 1-Carteira simples }
                      OnlyNumber(MontarCampoNossoNumero(ACBrTitulo))  +
                      PadLeft(OnlyNumber(Cedente.Agencia),4,'0')      + { Código agência (cooperativa) }
                      PadLeft(Cedente.AgenciaDigito,2,'0')            + { Dígito da agência (posto da cooperativa) }
                      PadLeft(OnlyNumber(Cedente.CodigoCedente),5,'0')+ { Código cedente }  //  Ver manual página 86 - CNAB240 ou 51 - CNAB400
                      '1'                                             + { Filler - zero. Obs: Será 1 quando o valor do documento for diferente se zero }
                      '0'; 

[Victor H. Gonzales - Panda]

55 minutos atrás, gralak disse:

Pessoal estou com uma situação que o DIGITO da AGENCIA são LETRAS no CASO AI

Observei que no fonte  ACBrBancoSicredi.pas na function a baixo esta assim, conforme destacado.

Montando um código semelhante a esse

 74891.12420 00012.507182 AI108.281080 1 99140000000600

Como devo proceder nesse caso ? Fontes atualizados dia 26/11/2024

 

 

function TACBrBancoSicredi.MontarCodigoBarras ( const ACBrTitulo: TACBrTitulo) : String;
var
  CodigoBarras, FatorVencimento, DigitoCodBarras, CampoLivre, Modalidade:String;
  DigitoNum: Integer;
begin
   with ACBrTitulo.ACBrBoleto do
   begin
      FatorVencimento := CalcularFatorVencimento(ACBrTitulo.Vencimento);

        Modalidade := IfThen(Trim(Cedente.Modalidade) = '', '1', Copy(Trim(Cedente.Modalidade),1,1));

      { Monta o campo livre }
      CampoLivre :=   Modalidade                                      + { 1-Com registro ou 3-Sem registro. Por enquanto vou deixar 1 mais tenho que tratar menhor essa informação }
                      '1'                                             + { 1-Carteira simples }
                      OnlyNumber(MontarCampoNossoNumero(ACBrTitulo))  +
                      PadLeft(OnlyNumber(Cedente.Agencia),4,'0')      + { Código agência (cooperativa) }
                      PadLeft(Cedente.AgenciaDigito,2,'0')            + { Dígito da agência (posto da cooperativa) }
                      PadLeft(OnlyNumber(Cedente.CodigoCedente),5,'0')+ { Código cedente }  //  Ver manual página 86 - CNAB240 ou 51 - CNAB400
                      '1'                                             + { Filler - zero. Obs: Será 1 quando o valor do documento for diferente se zero }
                      '0'; 

Desconheço Agencia com DV sendo AlphaNumber... sendo que geralmente é modulo 10 ou 11...

isso ai conta na documentação?

[gralak]

Recebi um retorno do PJTech deve ser substituido por ZEROS quando o DIGITO da AGENCIA conter LETRAS na composição 
EXEMPLO:

AI = 00

A3 = 00

[Daniel InfoCotidiano]

Agora, gralak disse:

Recebi um retorno do PJTech deve ser substituido por ZEROS quando o DIGITO da AGENCIA conter LETRAS na composição 

por favor pode anexar o manual para que nos possamos conferir?
pois existem vários usuario utilizando e por enquanto nao fomos notificados.

[Victor H. Gonzales - Panda]

1 minuto atrás, gralak disse:

Recebi um retorno do PJTech deve ser substituido por ZEROS quando o DIGITO da AGENCIA conter LETRAS na composição 
EXEMPLO:

AI = 00

A3 = 00

isso está em documentação?

[gralak]

Segue a imagem da documentação !

https://www.sicredi.com.br/media/produtos/filer_public/2022/09/26/manual_cnab_240_1-8_260922.pdf

[Victor H. Gonzales - Panda]

TK-6273

[Aggille Sistemas de Gestão]

aqui na minha cidade, tem uma agência do Banco do Brasil que é 0314-X ...mas acho que o acbr ja converte em '0'...

 

[Victor H. Gonzales - Panda]

ACBrBancoSicredi.pas

 

verifica com essa unit

[gralak]

Bom dia Fiz o teste de envio, impressão e pagamento 
Tudo certo agora 100%

[Daniel InfoCotidiano]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.