Geração de Remessa Banco Credisis

[André Melim]

Prezados senhores,

Estou enviando uma sugestão para alteração no componente do ACBr que faz a geração do arquivo de remessa (banco Credisis). As alterações são nas untis 'ACBrBoletoConversao.pas' e 'ACBrBancoCredisis.pas'.
A situação é que o cliente do sistema nos solicitou uma alteração para contemplar todas as possíveis situações para o campo 'Código para Protesto/Negativação' (posição 221 do arquivo de remessa) para o banco Credisis:
1 - Protestar Dias Corridos - Através do Cartório;
2 - Protestar Dias Úteis - Através do Cartório;
3 - Não Protestar - Através do Cartório;
4 - Negativar Dias Corridos - Através do SERASA;
5 - Negativar Dias Úteis - Através do SERASA;
6 - Não Negativar - Através do SERASA;

ACBrBoletoConversao.pas
- Antes da alteração
  {Definir se o titulo será protestado, não protestado ou negativado }
  TACBrCodigoNegativacao = (cnNenhum, cnProtestarCorrido, cnProtestarUteis, cnNaoProtestar, cnNegativar, cnNaoNegativar, cnCancelamento);

- Depois da alteração <<<
  {Definir se o titulo será protestado, não protestado ou negativado }
  TACBrCodigoNegativacao = (cnNenhum, cnProtestarCorrido, cnProtestarUteis, cnNaoProtestar, cnNegativarDiasCorridosSerasa, cnNegativarDiasUteisSerasa, cnNaoNegativarSerasa, cnNegativar, cnNaoNegativar, cnCancelamento); 

ACBrBancoCredisis.pas
- Antes da alteração
  function TACBrBancoCredisis.GerarRegistroTransacao240(ACBrTitulo : TACBrTitulo): String;
  ...
  if (DataProtesto > 0) then
  begin
    case TipoDiasProtesto of
      diCorridos : ProtestoBaixa := '1';
      diUteis    : ProtestoBaixa := '2';
    end;
  end
  else
    ProtestoBaixa:= '3';

- Depois da alteração <<<
  function TACBrBancoCredisis.GerarRegistroTransacao240(ACBrTitulo : TACBrTitulo): String;
  ...
  case CodigoNegativacao of
    cnProtestarCorrido            : ProtestoBaixa := '1';
    cnProtestarUteis              : ProtestoBaixa := '2';
    cnNaoProtestar                : ProtestoBaixa := '3';
    cnNegativarDiasCorridosSerasa : ProtestoBaixa := '4';
    cnNegativarDiasUteisSerasa    : ProtestoBaixa := '5';
    cnNaoNegativarSerasa          : ProtestoBaixa := '6';
  else
  begin
    if (DataProtesto > 0) then
    begin
      case TipoDiasProtesto of
        diCorridos : ProtestoBaixa := '1';
        diUteis    : ProtestoBaixa := '2';
      end;
    end
    else
      ProtestoBaixa:= '3';
  end;
  end;

ANEXOS.rar

[Alexandre de Paula]

Boa tarde André,

Em primeiro lugar obrigado pela contribuição.

Em relação ao "recorte do manual", poderia anexar no topico o manual completo utilizado?

Obrigado.

[André Melim]

Certo, assim que eu conseguir o manual completo eu já te passo, grato.

[André Melim]

Conforme solicitado segue em anexo o arquivo do layout do banco Credisis, o manual completo.

LAYOUT CNAB 240 - REMESSA_RETORNO.pdf

[Alexandre de Paula]

Bom dia,

Criada a TK-4704 para avaliação.

Obrigado pela contribuição.

[BigWings]

Em 03/11/2023 at 15:40, André Melim disse:

- Antes da alteração
  {Definir se o titulo será protestado, não protestado ou negativado }
  TACBrCodigoNegativacao = (cnNenhum, cnProtestarCorrido, cnProtestarUteis, cnNaoProtestar, cnNegativar, cnNaoNegativar, cnCancelamento);

- Depois da alteração <<<
  {Definir se o titulo será protestado, não protestado ou negativado }
  TACBrCodigoNegativacao = (cnNenhum, cnProtestarCorrido, cnProtestarUteis, cnNaoProtestar, cnNegativarDiasCorridosSerasa, cnNegativarDiasUteisSerasa, cnNaoNegativarSerasa, cnNegativar, cnNaoNegativar, cnCancelamento); 

Não ficaram enumerados demais e redundantes?

Minha opinião, bastava criar um a mais para o por dias úteis.

  TACBrCodigoNegativacao = (cnNenhum, cnProtestarCorrido, cnProtestarUteis, cnNaoProtestar, cnNegativarCorrido, cnNaoNegativar, cnCancelamento, cnNegativarUteis);

[André Melim]

Acredito que poderia ser assim também, se for essa realmente a solução a ser adotada favor me informar aqui para que eu possa alterar la no meu sistema para se adequar a esse formato que voce sugeriu, grato.

[André Melim]

Fiz o teste conforme o sugerido por vocês no que se refere a diminuir a quantidade dos 'Enumerados' e aconteceu o que eu temia... Alterando enumerados ja existentes vai dar erro em outras units como a do Banco do Brasil, por exemplo, como segue no print em anexo. Portanto, chega-se a conclusão que os enumerados a mais acabam preservando a codificação ja existente de dar conflitos em outras units, então sugiro que mantenham a minha idéia inicial mesmo. O que vocês me dizem?

[BigWings]

Renomeando o enumerado, vai precisar ajustar nos outros bancos.

Mas ainda é melhor que ter enumerados redundantes que não vão estar referenciados nos outros bancos e causando confusão futuramente.

[BigWings]

@André Melim Por favor, reverta o seu arquivo ACBrBoletoConversao.pas e substitua o ACBrBancoCredisis.pas com o arquivo anexo.

Para a negativação não vai ser necessário criar outro item no enumerado, basta informar:

Titulo.CodigoNegativacao := cnNegativar;
Titulo.TipoDiasNegativacao := diUteis;

 

ACBrBancoCredisis.pas

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo