tiagoadvir

Faz tempo essa modificação. Pelo que me lembro a caixa, passou a recusar o arquivo remessa que foi o que me levou abrir esse tópico. Feito as alterações aceitou.

Bom dia, a unit que foi feita a alteração foi a dacaixa, segue. Visto que há outras modificações, atentar-se para a linha onde originalmente mensionei as alterações.ACBrBancoCaixa.pas ACBrBancoCaixa.pas

Segue anexo, unit com a modificação feita. Comentei a linha 1070 e 1070 Essa linha valida se o código do cedente é >6, ifthen(Length(ACodCedente) > 6, '000', RightStr(OnlyNumber(ACBrBoleto.Cedente.Agencia), 4 )) + // 18 até 21 - Código da Agência o Código acima, recupera o número da agencia, quando o cedente não obedece a regra. Porém a documentação da caixa manda preencher esse valor com zero Código da agencia por exemplo 1563 substituir por zeros, que seria assim 0000 E2500043.REM porém o validador manda preencher com tres zeros e um espaço ficando assim '000 '. NE004. Alinha de código que adicionei foi a linha 1073. que Ficou como abaixo: ifthen(Length(ACodCedente) > 6, '000', '000 ' ) + // 18 até 21 - Código da Agência envio também o arquivo remessa para visualisação, a primeira linha é a linha que está sendo gerada pelo código original.

sendo que o código do cedente existe, porem é >6 se não adicionar essa condição, ele preenche com zero o código do cedente está nesse formato : 555555.

Bom dia, Juliomar! Obrigado pela resposta, não sei se me expressei bem, mas veja o que retorna no validados quando preencho na forma que o validador recusa https://www.caixa.gov.br/Downloads/cobranca-caixa/Manual_de_Leiaute_de_Arquivo_Eletronico_CNAB_400.pdf

Olá boa tarde à todos, sou iniciante com o projeto ACBr, Recebi uma demanda onde estava gerando arquivo remessa para o layout CNAB400 e não estava sendo aceito pelo banco caixa, ao dar uma lida na documentação da caixa para geração do arquivo vi que é informado que o campos que se referem a agencia, devem ser preenchidos com 3 zero, e posterior mente um espaço. O Código atual do acbr, gera o aquivo com a seguinte formatação Após analizar a unidade responsável pela linha das duplicatas, ifthen(Length(ACodCedente) > 6, '000', RightStr(OnlyNumber(ACBrBoleto.Cedente.Agencia), 4 )) Verifiquei que se o valor do Código do Cedente for > 6 então o valor da agenicia será substituído por zero, do contrário, será preenchido com o valor da agencia, o que causa erro durante a validação, pois segundo a a documentação, esse campo é desprezado (pelo que entendi) e deve ser preenchido com 3 zeros e um espaço, devendo ficar assim : A tratativa no código ficou assim : ifthen(Length(ACodCedente) > 6, '000', '000 ' ) + // 18 até 21 - Código da Agência O que gerou o arquivo conforme esperado e validado, pelo sistema da caixa (Validados). Deixo a observação para que seja analisado por quem possuir maior conhecimento que eu. Essa foi a solução que encontrei, e não sei se seria exatamente esse ponto, mas foi aí que consegui contornar esse problema. Unit AcbrBancoCaixa