Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

logos

Texto.png

p200

click.png

click.png

click.png

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


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

Recommended Posts

  • Usuários SAC

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 post
Share on other sites

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

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to post
Share on other sites
  • Usuários SAC

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 post
Share on other sites

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 post
Share on other sites
  • 2 weeks later...
  • Este tópico foi criado há 146 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...