Retorno Xml - Consultarnfse

[julianamver]

Boa tarde! Consulto WebService de Sao Jose dos Campos pela funcao ConsultarNFSe e nao consigo pegar as variaveis Numero da NFSe e Numero da RPS do XML de jeito nenhum. Alguem ja fez isto? Help! Por favor! Segue xml em anexo. Grata, Juliana.

 

Codigo Fonte:

procedure TfNFeServico.Button1Click(Sender: TObject);
var oXML: TXMLDocument;
    No1,No2,No3,No4: IXMLNode;
    NumNFSe,NumRPS: String;
begin
  try
    oXML := TXMLDocument.Create(self);
    oXML.LoadFromFile('c:\tempnfseng2.xml');

    no1 := oXML.DocumentElement.childNodes.First.ChildNodes.FindNode('CompNfse');
    no1.ChildNodes.First;
    repeat
      Memo1.Lines.Add('no1');

      no2 := no1.ChildNodes['InfNfse'];
      no2.ChildNodes.First;
      repeat
        Memo1.Lines.Add('no2');
        Memo1.Lines.Add(no2.ChildNodes['Numero'].text);
        Memo1.Lines.Add(no2.ChildNodes['CodigoVerificacao'].text);

        no3 := no2.ChildNodes['IdentificacaoRps'];
        no3.ChildNodes.First;
        repeat
          Memo1.Lines.Add('no3');
          Memo1.Lines.Add(no3.ChildNodes['Numero'].text);
          Memo1.Lines.Add(no3.ChildNodes['Serie'].text);
          no3 := no3.NextSibling;
        until
          no3 = nil;

        no2 := no2.NextSibling;
      until
        no2 = nil;

      no1 := no1.NextSibling;
    until
      no1 = nil;

  Except
    oXML.Free;
  end;
end;

tempnfseng2.xml

Editado 12 Março, 2013 por julianamver