Retorno De Consulta De Uma Nfe Cancelada Com Motivo Acentuado

[Edilberto de Sousa]

Gostaria de sugerir essa correção na função "ParseText" da unit "ACBrUtil" chamando a função "TiraAcentos" antes de converter para utf8 que ocorre ao
ao consultar uma nfe pelo chave que está cancelar e seu motivo está com acentuação. chave da nfe: 23150307199482001767550020000047281000047289. nota feita em modo de produção.

código anterior:

    if IsUTF8 then
    begin
      {$IFDEF DELPHI12_UP}  // delphi 2009 em diante
       Texto := AnsiString(UTF8ToString(Texto)

);
      {$ELSE}
       Texto := AnsiString(UTF8Decode(Texto));
      {$ENDIF}
    end ;

código modificado (alterar em dois pontos):

    if IsUTF8 then
    begin
      Texto := TiraAcentos(Texto);
      {$IFDEF DELPHI12_UP}  // delphi 2009 em diante
       Texto := AnsiString(UTF8ToString(Texto));
      {$ELSE}
       Texto := AnsiString(UTF8Decode(Texto));
      {$ENDIF}
    end ;

 

[Régys Silveira]

Você precisa anexar o arquivo alterado para comparação e análise.