Problema na leitura de XML de RPS provedor Ginfes

windsoft · January 18

Olá bom dia!

Estou convertendo o NFSe para NFSeX e encontrei um "problema" na letura do XML do RPS.

Na function:

function TNFSeRClass.TipodeXMLLeitura(const aArquivo: string): TtpXML;
begin
  if (Pos('nfse>', LowerCase(Arquivo)) > 0) then
    Result := txmlNFSe
  else
    Result := txmlRPS;
end;

da unit ACBrNFSeLerXML
ele verifica se existe o texto 'nfse>' pra definir se está lendo uma NFse ou um RPS.
Acontece que no XML do RPS existe uma tag Valornfse> que faz o componente identificar incorretamente o tipo do XML

Como fazer pra contornar este problema? ( O provedor é Ginfes )

Minha sugestão é inverter a lógica alterando o código para

function TNFSeRClass.TipodeXMLLeitura(const aArquivo: string): TtpXML;
begin
  if (Pos('identificacaorps>', LowerCase(Arquivo)) = 0) then
    Result := txmlNFSe
  else
    Result := txmlRPS;
end;

Ou

function TNFSeRClass.TipodeXMLLeitura(const aArquivo: string): TtpXML;
begin
  if (Pos('<nfse>', LowerCase(Arquivo)) > 0) or 
     (Pos(':nfse>', LowerCase(Arquivo)) > 0) then
    Result := txmlNFSe
  else
    Result := txmlRPS;
end;