Layout Caixa 240 alteração

[K2 SOFTWARE]

Bom dia a todos.

Um cliente nos informou que ao validar a remessa da Caixa 240 cortou um dígito do Código do Beneficiário.

Ele nos enviou um layout mais novo de abril/2002(em anexo) com algumas mudanças, dentre elas o Código do Beneficiário eram 6 posições e agora são 7.

Obrigado.

 

 

Caixa economica federal febraban Manual_de_Leiaute_de_Arquivo_Eletronico_CNAB_240.pdf

[Victor H. Gonzales - Panda]

Em 12/09/2022 at 11:32, K2 SOFTWARE disse:

Bom dia a todos.

Um cliente nos informou que ao validar a remessa da Caixa 240 cortou um dígito do Código do Beneficiário.

Ele nos enviou um layout mais novo de abril/2002(em anexo) com algumas mudanças, dentre elas o Código do Beneficiário eram 6 posições e agora são 7.

Obrigado.

 

 

Caixa economica federal febraban Manual_de_Leiaute_de_Arquivo_Eletronico_CNAB_240.pdf 1 MB · 1 download

Bom dia,

poderia apontar qual coluna e segmento que mudou no atual e no novo, e onde vocês estão tendo problemas ?

anexar seus arquivos gerados e de configuração?

Obrigado.

[K2 SOFTWARE]

Bom dia Victor.

Hoje está gerando com 6 posições, pelo manual deve gerar com 7.

Na Unit ACBrBancoCaixa.pas, na função:

function TACBrCaixaEconomica.GerarRegistroHeader240(NumeroRemessa : Integer): String;

               PadLeft(CodigoCedente, 6, '0')                   + //59 a 64 - Código Cedente (Código do Convênio no Banco)
No layout que anexei, Página 21, item 10.0 - Código do Beneficiário. Posições 59 a 65.

               PadLeft(CodigoCedente, 6, '0')               +//34 a 39 - Código do convênio no banco (código do cedente)
No layout que anexei, Página 22, item 11.1 - Código do Beneficiário. Posições 34 a 40.

               PadLeft(CodigoCedente, 6, '0')               +//60 a 65 - Código do convênio no banco (código do cedente)
No layout que anexei, Página 22, item 14.1 - Código do Beneficiário. Segue observação:
Para beneficiário com código composto por 6 dígitos, informar conforme Nota Explicativa G007
Para beneficiário com código composto por 7 dígitos, informar ‘zeros’.

E na função:
function TACBrCaixaEconomica.GerarRegistroTransacao240(ACBrTitulo : TACBrTitulo): String;

               PadRight(ACBrBoleto.Cedente.CodigoCedente, 6, '0')             + //24 a 29 - Código do Convênio no Banco (Codigo do cedente)
No layout que anexei, Página 23, item 10.3P - Código do Beneficiário. Posições 24 a 30. 

 

Obrigado.

[Victor H. Gonzales - Panda]

Bom dia,

a classe da caixa ela é prevista para ambos convênios 6 ou 7 dígitos e baseado na versão do layout,

mas olhando as frações de códigos que você inseriu acima, não condiz com a implementação da classe, por exemplo :

function TACBrCaixaEconomica.DefineCodigoCedente(const ACBrCedente: TACBrCedente): String;
begin
  if ((fpLayoutVersaoArquivo = 107) and (fpLayoutVersaoLote = 67))
     or (fpLayoutVersaoArquivo = 007) then
    Result := PadLeft(  ACBrCedente.CodigoCedente, 7, '0')
  else
    Result := PadLeft(  ACBrCedente.CodigoCedente, 6, '0');
end;

ACodCedente := DefineCodigoCedente(ACBrBanco.ACBrBoleto.Cedente);

 

TACBrCaixaEconomica.GerarRegistroHeader240
PadRight(ACodCedente, 7, '0')                    + //59 a 65 - Código Cedente (Código do Convênio no Banco)

 

TACBrCaixaEconomica.GerarRegistroTransacao240
PadRight(ACodCedente, 7, '0')                              + //24 a 30 - Código do Convênio no Banco (Codigo do cedente)

 

 

 

[K2 SOFTWARE]

Realmente Victor, eu precisava apenas passar a linha abaixo:

ACBrBoleto1.Banco.LayoutVersaoArquivo := 007;
 

Obrigado pela ajuda.

 

 

[Victor H. Gonzales - Panda]

Obrigado por reportar.

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