Boa Noite.
Estou realizando a migração de uma implementação de CNAB240 da CEF para o ACBr, e no código em questão, o nosso número é atribuido com 17 zeros ('00000000000000000') pois a configuração do responsavel pelo emissão é o Banco.
No ACBr, mesmo com o título tendo o nossonumero zerado, o valor gerado sempre traz nas duas primeiras posições valores diferentes de zero.
No PDF do layout, (https://www.caixa.gov.br/Downloads/cobranca-caixa/Manual_de_Leiaute_de_Arquivo_Eletronico_CNAB_240.pdf) na nota G069, está sendo informado o conteúdo abaixo, que atende o meu requisito, mas não consegui gerar um arquivo de remessa com essa configuração:
Para Código de Movimento (posições 16-17 do Segmento P) igual a '01' (Entrada de Títulos): Se a CAIXA for responsável pela emissão do boleto: o campo Carteira/Nosso Número (posições 41- 42/43-57) pode ser preenchido com zeros. Nesse caso, a numeração será feita pelo Banco.
Na unit ACBrBancoCaixa.pas, na funcão RetornaModalidade , é realizada a configuração dos 2 primeiros digitos do nossonumero para geração do registro do Segmento P, mas aparentemente essa configuração não está implementada.
function TACBrCaixaEconomica.RetornaModalidade(const ACBrTitulo :TACBrTitulo): String;
var
AModalidade : String;
begin
with ACBrTitulo do
begin
AModalidade := OnlyNumber(ACBrBoleto.Cedente.Modalidade);
if (ACBrTitulo.Carteira = 'RG') then {carterira registrada}
begin
if ACBrTitulo.CarteiraEnvio = tceCedente then
AModalidade := '14'
else
AModalidade := '11'
end
else if (ACBrTitulo.Carteira = 'SR')then {carteira 2 sem registro}
begin
if ACBrTitulo.CarteiraEnvio = tceCedente then
AModalidade := '24'
else
AModalidade := '21'
end
else
raise Exception.Create( ACBrStr('Carteira Inválida.'+sLineBreak+'Utilize "RG" ou "SR"') ) ;
end;
Result := AModalidade;
end;
Existe alguma configuração ou maneira de gerar o nosso numero zerado para CNAB 240 da CEF?
Obrigado.