Jump to content

dev botao

Problema no campo Identificação do Título na Empresa da remessa - CEF


francinaldoac
  • Este tópico foi criado há 1399 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Bom dia!

Temos um problema com o campo "Identificação do Título na Empresa" na Caixa Econômica, layout CNAB400, arquivo de remessa, na procedure que grava o registro de detalhe, a formatação e o tratamento do campo estão errados de acordo com o manual.

procedure TACBrCaixaEconomica.GerarRegistroTransacao400(ACBrTitulo: TACBrTitulo; aRemessa: TStringList);
...
      with ACBrBoleto do
      begin
         wLinha:= '1'                                                              + //  1 até 1   -  ID Registro - Preencher com ‘1'
                  ATipoCendente                                                    + //  2 até 3   -  Tipo de inscrição da empresa 01-CPF / 02-CNPJ
                  PadLeft(OnlyNumber(ACBrBoleto.Cedente.CNPJCPF),14,'0')           + //  4  até 17 - Inscrição da empresa
                  ifthen(Length(ACodCedente) > 6, '000',
                         RightStr(OnlyNumber(ACBrBoleto.Cedente.Agencia), 4 ))     + // 18 até 21  - Código da Agência
                  ifthen(Length(ACodCedente) > 6, PadRight(ACodCedente, 7, '0'),
                         ACodCedente )                                             + // 22 até 27  - Código do Cedente
                  ATipoBoleto                                                      + // 28 a 29    - Quem emite e quem distribui
                  '00'                                                             + // 30 a 31    - Comissão de permanência - informar 00
                  PadLeft(OnlyNumber(ACBrTitulo.SeuNumero), 25)                    + // 32 até 56  - Seu numero
...

Na linha " PadLeft(OnlyNumber(ACBrTitulo.SeuNumero), 25)                    + // 32 até 56  - Seu numero" o componente está colocando "espaços" a esquerda e retirando caracteres não numéricos, visto que o campo é alfanumérico isso não devia acontecer.

Acho que o ideal seria alterar essa linha para PadRight(ACBrTitulo.SeuNumero, 25, ' ') 

Em anexo manual, verificar página 20.

Grato 

Manual_de_Leiaute_de_Arquivo_Eletronico_CNAB_400 (1).pdf

Link to comment
Share on other sites

  • Membros Pro

Bom dia!

Olha esse tópico foi criado há quase 15 dias, olhei o meu histórico anterior e antes de me tornar membro SAC pago meus tópicos eram resolvidos no mesmo dia ou no máximo em 6 dias, convenci nossa gerência a contribuir monetariamente pelo excelente trabalho que vocês fazem mantendo esses componentes com código aberto e grátis, mas desse jeito fico sem justificativa para manter o suporte pago, visto que tivemos essa piora no atendimento.

Link to comment
Share on other sites

  • Moderadores

Bom dia, sempre quando entra nas tarefas da semana é disponibilizado na próxima semana e informamos no tópico. Como esse ajuste foi disponibilizado a um dia não tinhamos atualizando o mesmo ainda....

  • Like 1
Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link to comment
Share on other sites

  • 2 weeks later...
  • Este tópico foi criado há 1399 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • 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.