Pegar Numero Nfs-E Com Xml

[walter faria]

Boa tarde, como posso pegar com XML o numero da Nota Fiscal de Serviço.

 

 OpenDialog1.Title := 'Selecione a NFSe';

 OpenDialog1.DefaultExt := '*-NFSe.xml';

 OpenDialog1.Filter := 'Arquivos NFSe (*-NFSe.xml)|*-NFSe.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';

 OpenDialog1.InitialDir := ACBrNFSe1.Configuracoes.Geral.PathSalvar;

 if OpenDialog1.Execute then

  begin

 

    //Aqui eu queria mostrar o NUMERO da NFS-e selecionada !!!

    Showmessage(  ACBrNFSe1. ????? );

 

  end;

 

[IMATECH]

  ACBrNFSe1.NotasFiscais.Clear;

  ACBrNFSe1.NotasFiscais.LoadFromFile( 'variavel com o nome do arquivo XML' );

  ShowMessage( ACBrNFSe1.NotasFiscais.Items[0].NFSe.????? );

 

[Hetosoft Sistemas]

Sempre atualize os fontes do ACBrNFSe , blz,

 

 

 

procedure TfrmDemo_ACBrNFSe.btnGerarEnviarLoteClick(Sender: TObject);
var
 vAux, vNumLote : String;
begin
 if not(InputQuery('Gerar e Enviar Lote', 'Numero do RPS', vAux))
  then exit;

 if not(InputQuery('Gerar e Enviar Lote', 'Numero do Lote', vNumLote))
  then exit;

 ACBrNFSe1.NotasFiscais.Clear;
 GerarNFSe(vAux);


 ACBrNFSe1.Enviar(vNumLote);


    Memo1.Lines.Add( ACBrNFSe1.WebServices.RecepcaoLoteRps );
    Memo1.Lines.Add( ACBrNFSe1.WebServices.ConsLote.Protocolo );
    Memo1.Lines.Add( ACBrNFSe1.WebServices.ConsSitLote.Protocolo );


    Memo1.Lines.Add( ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo );
    Memo1.Lines.Add( DateToStr( ACBrNFSe1.NotasFiscais.Items[0].NFSe.dhRecebimento ) );
    Memo1.Lines.Add( ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero );
    Memo1.Lines.Add( ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao );

[Geraconst]

estou com o seguinte problema

 

if OpenDialog1.Execute then

      begin

         ACBrNFSe1.NotasFiscais.Clear;

         ACBrNFSe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

         memo_retorno.Lines.Add(ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero);

      end;

não retorna nda.

nfse de São José do Rio Preto.

 

<?xml version = '1.0' encoding = 'UTF-8'?>

<ns2:NFSE xmlns:ns2="http://www.w3.org/2000/09/xmldsig#" xmlns:ns4="http://www.ginfes.com.br/servico_consultar_nfse_envio" xmlns:ns3="http://www.ginfes.com.br/tipos" xmlns:ns5="http://www.ginfes.com.br/servico_cancelar_nfse_envio"><ns2:Nfse><ns3:IdentificacaoNfse><ns3:Numero>335</ns3:Numero><ns3:CodigoVerificacao>259430783</ns3:CodigoVerificacao></ns3:IdentificacaoNfse><ns3:DataEmissao>2013-05-02T14:36:35</ns3:DataEmissao><ns3:NaturezaOperacao>2</ns3:NaturezaOperacao><ns3:RegimeEspecialTributacao>0</ns3:RegimeEspecialTributacao><ns3:OptanteSimplesNacional>2</ns3:OptanteSimplesNacional><ns3:IncetivadorCultural>2</ns3:IncetivadorCultural><ns3:Competencia>2013-05-01</ns3:Competencia><ns3:Servico><ns3:Valores><ns3:ValorServicos>1701983.98</ns3:ValorServicos><ns3:IssRetido>2</ns3:IssRetido><ns3:ValorIss>5786.75</ns3:ValorIss><ns3:BaseCalculo>1701983.98</ns3:BaseCalculo><ns3:Aliquota>0.0034</ns3:Aliquota><ns3:ValorLiquidoNfse>1701983.98</ns3:ValorLiquidoNfse></ns3:Valores><ns3:ItemListaServico>702</ns3:ItemListaServico><ns3:CodigoTributacaoMunicipio>07.02.00</ns3:CodigoTributacaoMunicipio><ns3:Discriminacao>VALOR CORRESPONDENTE A 07ª MEDIÇÃO REFERENTE A EXECUÇÃO DAS OBRAS E SERVIÇOS DA DUPLICAÇÃO DA RODOVIA ARNALDO JÚLIO MAUERBERG (SPA 119/330), INCLUSIVE IMPLANTAÇÃO DE 05 (CINCO) ROTATÓRIAS NO TRECHO DE ACESSO Á NOVA ODESSA.

CONTRATO Nº18.202-3

 

PERIODO DE OBRAS: 26/03/2013 A 25/04/2013</ns3:Discriminacao><ns3:MunicipioPrestacaoServico>3533403</ns3:MunicipioPrestacaoServico></ns3:Servico><ns3:ValorCredito>0.00</ns3:ValorCredito><ns3:PrestadorServico><ns3:IdentificacaoPrestador><ns3:Cnpj>00437218000108</ns3:Cnpj><ns3:InscricaoMunicipal>1309190</ns3:InscricaoMunicipal></ns3:IdentificacaoPrestador><ns3:RazaoSocial>TCL TECNOLOGIA E CONSTRUCOES LTDA</ns3:RazaoSocial><ns3:Endereco><ns3:Endereco>R  QUINZE DE NOVEMBRO</ns3:Endereco><ns3:Numero>3057</ns3:Numero><ns3:Complemento>SALA 504 507 50</ns3:Complemento><ns3:Bairro>CENTRO - BAIRRO</ns3:Bairro><ns3:Cidade>3549805</ns3:Cidade><ns3:Estado>SP</ns3:Estado><ns3:Cep>15015907</ns3:Cep></ns3:Endereco><ns3:Contato><ns3:Telefone>1732315579</ns3:Telefone><ns3:Email>[email protected]</ns3:Email></ns3:Contato></ns3:PrestadorServico><ns3:TomadorServico><ns3:IdentificacaoTomador><ns3:CpfCnpj><ns3:Cnpj>43052497000102</ns3:Cnpj></ns3:CpfCnpj><ns3:InscricaoMunicipal/></ns3:IdentificacaoTomador><ns3:RazaoSocial>DEPARTAMENTO DE ESTRADAS DE RODAGEM DE SÃO PAULO (177)</ns3:RazaoSocial><ns3:Endereco><ns3:Endereco>AVENIDA DO ESTADO</ns3:Endereco><ns3:Numero>777</ns3:Numero><ns3:Complemento/><ns3:Bairro>PONTE PEQUENA</ns3:Bairro><ns3:Cidade>3550308</ns3:Cidade><ns3:Estado>SP</ns3:Estado><ns3:Cep>01107901</ns3:Cep></ns3:Endereco><ns3:Contato><ns3:Telefone>1133111435</ns3:Telefone><ns3:Email/></ns3:Contato></ns3:TomadorServico><ns3:OrgaoGerador><ns3:CodigoMunicipio>3549805</ns3:CodigoMunicipio><ns3:Uf>SP</ns3:Uf></ns3:OrgaoGerador><ns3:ConstrucaoCivil><ns3:CodigoObra>477301</ns3:CodigoObra><ns3:Art>477301</ns3:Art></ns3:ConstrucaoCivil></ns2:Nfse><ns2:Nfse><ns3:IdentificacaoNfse><ns3:Numero>336</ns3:Numero><ns3:CodigoVerificacao>692292503</ns3:CodigoVerificacao></ns3:IdentificacaoNfse><ns3:DataEmissao>2013-05-02T14:38:43</ns3:DataEmissao><ns3:NaturezaOperacao>2</ns3:NaturezaOperacao><ns3:RegimeEspecialTributacao>0</ns3:RegimeEspecialTributacao><ns3:OptanteSimplesNacional>2</ns3:OptanteSimplesNacional><ns3:IncetivadorCultural>2</ns3:IncetivadorCultural><ns3:Competencia>2013-05-01</ns3:Competencia><ns3:Servico><ns3:Valores><ns3:ValorServicos>95373.70</ns3:ValorServicos><ns3:IssRetido>2</ns3:IssRetido><ns3:ValorIss>324.27</ns3:ValorIss><ns3:BaseCalculo>95373.70</ns3:BaseCalculo><ns3:Aliquota>0.0034</ns3:Aliquota><ns3:ValorLiquidoNfse>95373.70</ns3:ValorLiquidoNfse></ns3:Valores><ns3:ItemListaServico>702</ns3:ItemListaServico><ns3:CodigoTributacaoMunicipio>07.02.00</ns3:CodigoTributacaoMunicipio><ns3:Discriminacao>VALOR CORRESPONDENTE AO 07º REAJUSTAMENTO REFERENTE A EXECUÇÃO DAS OBRAS E SERVIÇOS DA DUPLICAÇÃO DA RODOVIA ARNALDO JÚLIO MAUERBERG (SPA 119/330), INCLUSIVE IMPLANTAÇÃO DE 05 (CINCO) ROTATÓRIAS NO TRECHO DE ACESSO Á NOVA ODESSA.

CONTRATO Nº18.202-3

 

PERIODO DE OBRAS: 26/03/2013 A 25/04/2013</ns3:Discriminacao><ns3:MunicipioPrestacaoServico>3533403</ns3:MunicipioPrestacaoServico></ns3:Servico><ns3:ValorCredito>0.00</ns3:ValorCredito><ns3:PrestadorServico><ns3:IdentificacaoPrestador><ns3:Cnpj>00437218000108</ns3:Cnpj><ns3:InscricaoMunicipal>1309190</ns3:InscricaoMunicipal></ns3:IdentificacaoPrestador><ns3:RazaoSocial>TCL TECNOLOGIA E CONSTRUCOES LTDA</ns3:RazaoSocial><ns3:Endereco><ns3:Endereco>R  QUINZE DE NOVEMBRO</ns3:Endereco><ns3:Numero>3057</ns3:Numero><ns3:Complemento>SALA 504 507 50</ns3:Complemento><ns3:Bairro>CENTRO - BAIRRO</ns3:Bairro><ns3:Cidade>3549805</ns3:Cidade><ns3:Estado>SP</ns3:Estado><ns3:Cep>15015907</ns3:Cep></ns3:Endereco><ns3:Contato><ns3:Telefone>1732315579</ns3:Telefone><ns3:Email>[email protected]</ns3:Email></ns3:Contato></ns3:PrestadorServico><ns3:TomadorServico><ns3:IdentificacaoTomador><ns3:CpfCnpj><ns3:Cnpj>43052497000102</ns3:Cnpj></ns3:CpfCnpj><ns3:InscricaoMunicipal/></ns3:IdentificacaoTomador><ns3:RazaoSocial>DEPARTAMENTO DE ESTRADAS DE RODAGEM DE SÃO PAULO (177)</ns3:RazaoSocial><ns3:Endereco><ns3:Endereco>AVENIDA DO ESTADO</ns3:Endereco><ns3:Numero>777</ns3:Numero><ns3:Complemento/><ns3:Bairro>PONTE PEQUENA</ns3:Bairro><ns3:Cidade>3550308</ns3:Cidade><ns3:Estado>SP</ns3:Estado><ns3:Cep>01107901</ns3:Cep></ns3:Endereco><ns3:Contato><ns3:Telefone>1133111435</ns3:Telefone><ns3:Email/></ns3:Contato></ns3:TomadorServico><ns3:OrgaoGerador><ns3:CodigoMunicipio>3549805</ns3:CodigoMunicipio><ns3:Uf>SP</ns3:Uf></ns3:OrgaoGerador><ns3:ConstrucaoCivil><ns3:CodigoObra>477301</ns3:CodigoObra><ns3:Art>477301</ns3:Art></ns3:ConstrucaoCivil></ns2:Nfse></ns2:NFSE>

[Italo Giurizzato Junior]

Boa noite GeraConst,

 

Por favor ao postar fragmento de código ou arquivos XMLs, postem como anexo, fica muito mais facil de ajudarmos, alem do post ficar bem mais curto.