Problema ao ler o xml do RPS na NFSeX

[Márcio Baroni]

Bom dia, após o commit do dia 28/09 referente a uma mudança na leitura do campo "IssRetido", o carregamento do XML do RPS referente a tal campo não funciona mais....

Na procedure "LerServico" da unit "ACBrNFSeXLerXml_ABRASFv2.pas" foi adicionado uma condição se "IssRetido = stNenhum", mas essa condição nunca vai ser verdadeira porque por padrão o campo é "IssRetido = stNormal".

Só é definido como "stNenhum" na procedure "LerInfNfse" que não é o caso do carregamento do XML do RPS.

procedure TNFSeR_ABRASFv2.LerServico(const ANode: TACBrXmlNode);
...
  
   with Valores do
      begin
        if IssRetido = stNenhum then  <<----
          IssRetido := FpAOwner.StrToSituacaoTributaria(Ok, ObterConteudo(AuxNode.Childrens.FindAnyNs('IssRetido'), tcStr));
...

Uma solução foi:

function TNFSeR_ABRASFv2.LerXmlRps(const ANode: TACBrXmlNode): Boolean;
begin
  Result := True;

  if not Assigned(ANode) or (ANode = nil) then Exit;

  NFSe.Servico.Valores.IssRetido := stNenhum; <<<---
  LerInfDeclaracaoPrestacaoServico(ANode);
end;

 

[Juliana Tamizou]

Boa tarde, 

Obrigada pela análise, é sempre muito bem vinda.

Poderia por favor anexar o pas alterado?

At.

[Márcio Baroni]

Boa tarde, unit em anexo...

ACBrNFSeXLerXml_ABRASFv2.pas

[Italo Giurizzato Junior]

Boa tarde Marcio,

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

[Italo Giurizzato Junior]

Bom dia Márcio,

Já esta no SVN.