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

[francinaldoac]

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

[Juliomar Marchetti]

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

[antonio.carlos]

estamos analisando ... 

[francinaldoac]

bom dia!

Alguma novidade?

[antonio.carlos]

bom dia @francinaldoac ainda esta em analise... assim que tiver retorno dos nossos consultores, vamos atualizar você, ok ?

[francinaldoac]

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.

[BigWings]

Olhando o fonte, a implementação já está feita.

Se usa o componente basta atualizar e reinstalar.

[francinaldoac]

OK. Obrigado, fiquei aguardando o retorno aqui no tópico.

[José M. S. Junior]

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

[antonio.carlos]

Obrigado por reportar.

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