NFS-E BETHA SISTEMAS - xmlParseEntityRef: no name

[Procel Software]

Ao consultar um RPS estava retornando o erro xmlParseEntityRef: no name

Para a correção eu alterei a unit

\ACBR\Fontes\ACBrDFe\ACBrNFSeX\Provedores\Betha.Provider.pas

function TACBrNFSeXWebserviceBetha.TratarXmlRetornado(
  const aXML: string): string;
begin
  Result := inherited TratarXmlRetornado(aXML);
  Result := StringReplace(Result, '&', '\s\n', [rfReplaceAll]);
  Result := ParseText(AnsiString(Result), True, {$IfDef FPC}True{$Else}False{$EndIf});
  Result := RemoverPrefixosDesnecessarios(Result);
  Result := RemoverCaracteresDesnecessarios(Result);
end;

 

Betha.Provider.pas

[Italo Giurizzato Junior]

Boa tarde,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-3995

[Diego Foliene]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Italo Giurizzato Junior]

Boa tarde,

Já esta no SVN.