URGENTE - Erro "xmlParseEntityRef: no name" provedor DSF Sorocaba - Prestador com & na Razão Social

[José Jair de Oliveira]

Bom dia
Desde o dia 11/10, um único cliente que contém & na sua Razão Social no cadastro da prefeitura de Sorocaba(DSF) retorna o erro "xmlParseEntityRef: no name" ao enviar NFS e ao Consultar o Lote.

Todos os demais clientes que emitem NFS estão obtendo o retorno normalmente.

A NF é gerada e consta o lote de retorno, porém o componente dispara o erro acima e estão parados sem poder emitir notas.

Provedor: DSF
ERRO Código  : X999 Erro de Conexão: xmlParseEntityRef: no name

Correção:
---------

Agradeço a atenção

1-env-lot-sinc.xml 1-env-lot-sinc-soap.xml 1-lista-nfse-sinc-soap.xml 017122476-con-lot.xml 017122476-con-lot-soap.xml 017122476-lista-nfse-con-lot-soap.xml

[José Jair de Oliveira]

UNIT   ACBrNFSeXWebserviceBase (modificada)

function TACBrNFSeXWebservice.ExtrairRetorno(const ARetorno: string;
  responseTag: array of string): string;
var
  Document: TACBrXmlDocument;
  ANode: TACBrXmlNode;
  I: Integer;
  xRetorno: string;
begin
  Result := '';

  xRetorno := TratarXmlRetornado(ARetorno);

  if xRetorno = '' then
    Exit;

  if not StringIsXML(xRetorno) then
  begin
    Result := xRetorno;
    Exit;
  end;

  if (Length(responseTag) = 0) then
  begin
    Result := xRetorno;
    Exit;
  end;

  Document := TACBrXmlDocument.Create;
  try
    xRetorno := ReplaceString( TratarXmlRetornado(ARetorno), 'R & J','R J');   // Forçando a remoção do & no nome do prestador apenas
    Document.LoadFromXml(xRetorno);   //<== Gerava erro nesse ponto

 

UNIT ACBrXmlDocument (não modifiquei)

procedure TACBrXmlDocument.LoadFromXml(AXmlDocument: string);
var
  loadedDoc: xmlDocPtr;
  loadedRoot: xmlNodePtr;
begin
  loadedDoc := xmlParseDoc(PAnsiChar(ansistring(AXmlDocument)));

A variável loadedDoc  retornava vazia sem a remoção do & na razão social

 

Na urgência tive que fazer o que não se faz...até termos a solução adequada.

Obrigado

 

[Italo Giurizzato Junior]

Boa tarde José,

Devemos evitar ao máximo alterar as units que são utilizadas por todos os provedores e sim as units destinadas aos provedores.

Na unit provider do provedor se não tiver podemos incluir a função TratarXmlRetornado, essa função tem como objetivo tratar o XML retornado pelo webservice, desta forma é possível contornar esse problema do "&" através dessa função.

[José Jair de Oliveira]

Boa tarde Italo.

Ajustei a DSF.Provider como segue:

adicionei StrUtilsEx em USES

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

  Result := ParseText(AnsiString(Result), True, False);

  Result := FaststringReplace(Result, '&#xD;&#xA;', '!#xD;!#xA;', [rfReplaceAll]);
  Result := FaststringReplace(Result, '&', ' ', [rfReplaceAll]);
  Result := FaststringReplace(Result, '!#xD;!#xA;', '&#xD;&#xA;', [rfReplaceAll]);
end;

Dessa forma substituirá todos os & por espaço, mantendo os que compõem a expressão que pula linha.

Obrigado

DSF.Provider.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-3167

[Italo Giurizzato Junior]

Boa tarde José,

O XML não deve ter quebra de linhas.

Favor anexar o XML (soap) retornado pelo provedor para que possamos analisar.

[José Jair de Oliveira]

Boa tarde Italo
Conforme retornado pelo provedor, no XML tem os caracteres   &#xD;&#xA;   que é a quebra de linha na tag  <Discriminacao>

Na procedure TACBrNFSeProviderDSF200.Configuracao tem seu tratamento na propriedade ConfigGeral.QuebradeLinha := '&#xD;&#xA;';

 

Jair

017117065-lista-nfse-con-lot-soap.xml 017122476-lista-nfse-con-lot-soap.xml

[Italo Giurizzato Junior]

José,

Veja se a proposta abaixo não resolve o problema.

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

  Result := ParseText(AnsiString(Result), True, False);
  Result := StringReplace(Result, '&', '&', [rfReplaceAll]);
end;

 

[José Jair de Oliveira]

Bom dia Italo

Teste feito e sim, resolveu o problema.
Muito obrigado.

[Italo Giurizzato Junior]

Obrigado por reportar.

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

[Italo Giurizzato Junior]

Boa tarde José,

A alteração já se encontra no SVN.