Sicredi - Validador do CNAB não está aceitando caracter especial na Mensagem

[jaidomini]

Bom dia,

unit ACBrBoleto
procedure AdicionarMensagensPadroes

Quase no final da procedure, adicionei 2 linhas, logo após o código da DataLimitePagto.

      if DataLimitePagto <> 0 then
      begin
        if DataLimitePagto > Vencimento then
          AStringList.Add(ACBrStr('Não Receber após ' + IntToStr(DaysBetween(Vencimento, DataLimitePagto))+ ' dias'))
        else
          AStringList.Add(ACBrStr('Não Receber após o Vencimento'));
      end;
      if Banco.TipoCobranca = cobSicred then   
         AStringList.Text := TiraAcentos(AStringList.Text); 

Obrigado

Jaisson

[Juliana Tamizou]

Boa tarde,

Não é interessante colocar esse tipo de verificação em métodos padrões, como sugestão vc poderia passar diretamente sem os acentos ao componente.

At.

[jaidomini]

Eu fiz isso no meu software, porém deixei a sugestão porque outros terão o problema.

Att

Jaisson

[Juliana Tamizou]

Bom dia,

Entendi e faz sentido, porém o ideal é evitar esse tipo de condição nas classes bases, talvez  seria preferível sempre remover os acentos ao invés de condicionar a um banco.

 

Oque acha @José M. S. Junior ?

 

At.

[José M. S. Junior]

Bom dia, 

Já existe uma property que faz essa validação no arquivo completo no momento da geração. Propriedade do componente Boleto: "RemoveAcentoArqRemessa"