Correção tratamento RPS método TACBrNFSeProviderABRASFv1.PreencherNotaRespostaConsultaNFSe

[Rodrigo - Digibyte]

Adicionado "IF" pois o node IdentificacaoRps pode ser null ocasionando AV

    if Node <> nil then
    begin
      NumRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Numero'), tcStr);
      SerieRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Serie'), tcStr);
    end;

function TACBrNFSeProviderABRASFv1.PreencherNotaRespostaConsultaNFSe(Node,
  parentNode: TACBrXmlNode; Response: TNFSeConsultaNFSeResponse): Boolean;
var
  NumNFSe, CodVerif, NumRps, SerieRps: String;
  ANota: TNotaFiscal;
  AResumo: TNFSeResumoCollectionItem;
begin
  Result := False;

  if Node <> nil then
  begin
    Node := Node.Childrens.FindAnyNs('InfNfse');
    NumNFSe := ObterConteudoTag(Node.Childrens.FindAnyNs('Numero'), tcStr);
    CodVerif := ObterConteudoTag(Node.Childrens.FindAnyNs('CodigoVerificacao'), tcStr);
    Node := Node.Childrens.FindAnyNs('IdentificacaoRps');
    if Node <> nil then
    begin
      NumRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Numero'), tcStr);
      SerieRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Serie'), tcStr);
    end;

    AResumo := Response.Resumos.New;
    AResumo.NumeroNota := NumNFSe;
    AResumo.CodigoVerificacao := CodVerif;
    AResumo.NumeroRps := NumRps;
    AResumo.SerieRps := SerieRps;

    ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(NumRps);

    ANota := CarregarXmlNfse(ANota, parentNode.OuterXml);
    SalvarXmlNfse(ANota);
    Result := True; // Processado com sucesso pois retornou a nota
  end;
end;

 

[Italo Giurizzato Junior]

Boa tarde Rodrigo,

Favor anexar a unit alterada para que possamos avaliar.

Desde já muito obrigado pela colaboração.

[Rodrigo - Digibyte]

O fórum não permite que eu anexe arquivos maiores que 3.94 kB

[Juliomar Marchetti]

1 hora atrás, Rodrigo - Digibyte disse:

O fórum não permite que eu anexe arquivos maiores que 3.94 kB

limpe seus arquivos nas configurações e dai ele vai deixar

[Rodrigo - Digibyte]

17 horas atrás, Italo Giurizzato Junior disse:

Boa tarde Rodrigo,

Favor anexar a unit alterada para que possamos avaliar.

Desde já muito obrigado pela colaboração.

 

ACBrNFSeXProviderABRASFv1.pas

[Italo Giurizzato Junior]

Bom dia Rodrigo,

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

[Italo Giurizzato Junior]

Boa tarde Rodrigo,

Já esta no SVN.