ACBrNFSeX erro ao enviar lote para Sorocaba: Input is not proper UTF-8

[Paulo C. L. Vicente]

Boa tarde

Ao enviar lote para Sorocaba: ocorre a mensagem de erro: Input is not proper UTF-8

ACBrXmlDocument.LoadFromXml(1261)
ACBrNFSeXWebServiceBase.ExtrairRetorno(846)
ACBrNFSeXWebserviceBase.Executar(1024)
ACBrNFSeXProviderBase.Emite(1642)

Está sendo retornada uma mensagem de erro de alíquota que está acentuada.
Ao ser lida essa mensagem, ocorre o erro.

Para prosseguir preciso contornar esse erro. 
Desde já agradeço pelo apoio.
 

65556750-env-lot-sinc-soap.xml 65556750-lista-nfse-sinc-soap.xml

[Italo Giurizzato Junior]

Bom dia Paulo,

Notei que apesar de ter no inicio do XML o encoding UTF-8 o arquivo em si esta no formato ANSI.

Por favor entre em contato com o provedor e expõe essa questão.

O Provedor tem que gerar o XML em UTF-8 e incluir no seu inicio o encoding.

[Paulo C. L. Vicente]

Bom dia Italo

Pesquisando um pouco mais encontrei os tópicos

onde já aconteceu o mesmo.
 

function TACBrNFSeXWebserviceDSF200.TratarXmlRetornado(
  const aXML: string): string;
begin
  Result := inherited TratarXmlRetornado(aXML);

  Result := ParseText(AnsiString(Result), True, {$IfDef FPC}True{$Else}False{$EndIf});
  Result := StringReplace(Result, '&', '&', [rfReplaceAll]);
  Result := string(NativeStringToUTF8(Result));
end;

Acrescentando a linha em negrito na unit TACBrNFSeXWebserviceDSF200.TratarXmlRetornado resolve o problema.

 

DSF.Provider.pas

[Italo Giurizzato Junior]

Boa tarde Paulo,

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

[Italo Giurizzato Junior]

Boa tarde Paulo,

Já esta no SVN.

[Paulo C. L. Vicente]

Obrigado!

[Italo Giurizzato Junior]

Obrigado por reportar.

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