Cobrança SIGEB CNAB 400 - Sugestão de Ajustes

[romerofartura 4]

Bom dia, fiz o ajuste a algum tempo, já estão em produção e funcionando. Atualizei o componente e alguns ajustes ainda foram necessários, outros verifiquei que foram feitos.
Segue o que ajustei, se for possível atualizar o componente ajudaria a quem mais for utilizar.

Versão do manual 67.126 v018 micro
https://www.caixa.gov.br/Downloads/cobranca-caixa/Manual_de_Leiaute_de_Arquivo_Eletronico_CNAB_400.pdf

REMESSA CNAB 400

HEADER - REGISTROS TIPO 0
Quando a versão do layout for nula nas posições 101 a 103 o código do beneficiário nas posições 31 a 37 será com 7 casas sendo a última em branco e NÃO 0. Pág. 20, NE004 pág. 35.
Como já possui o tratamento do código do cedente para ajustar em 6 ou 7 dígitos na 

function TACBrCaixaEconomica.DefineCodigoCedente(const ACBrCedente: TACBrCedente): String;

Ao sair desta função sugiro apenas alterar a linha PadRight(ACodCedente, 7, '0') para PadRight(ACodCedente, 7, ' ');

 

DETALHES - REGISTROS TIPO 1
Posição 32 a 56 X(25) - Identificação do título na empresa é alfanumérico. Pág. 21, NE014 pág. 37.
Hoje os valores permitem somente números conforme a Linha 1040:

PadLeft(OnlyNumber(ACBrTitulo.SeuNumero), 25)

Tirar a função OnlyNumber.

 

Posição 57 a 58 - Modalidade de identificação. pág 21, NE015.
Se a CAIXA for responsável pela emissão do boleto: o campo Nosso Número (posições 57-73) pode ser preenchido com zeros. Nesse caso, a numeração será feita pelo Banco.
Hoje as validações das posições 57 a 58 não contemplam a modalidade 00;

 

MENSAGENS - REGISTROS TIPO 2
Posições 22 a 28 segue a mesma regra de validação do HEADER (código do beneficiário) pág. 23 NE004. pág. 35. Já descrita no primeiro tópico desta mensagem.
 

Por favor validem e se for possível a atualização ficarei grato.

Obrigado.

[Juliomar Marchetti 3,845]

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

[José M. S. Junior 3,051]

Vamos verificar, mas se possível anexe sua unit com essas alterações.

[romerofartura 4]

Segue unit.

ACBrBancoCaixa.pas

[José M. S. Junior 3,051]

Obrigado, vamos validar assim que possível.

[José M. S. Junior 3,051]

Atualizado no SVN, favor atualizar os fontes. Obrigado!