Lendo Os Campos Do Xml Da Nota De Serviço

[antoniojr]

Bom dia pessoal, minha duvida é o seguinte preciso ler os dados do xml de uma nota de serviço,

só q quando eu coloco:

  

  ACBrNFSe1.NotasFiscais.Clear;
  ACBrNFSe1.NotasFiscais.LoadFromFile(DIRETORIO);
    cnpjTomador:=ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.RazaoSocial;

    cnpjPrestador:=ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.Cnpj;
 

ele não lê a razão social do meu xml e tambem de nenhum campo do ACBrNFSe1.

 

Alguem tem alguma ideia como faço pra ler estes campos do xml.

 

Obrigado desde já Valeu.

Editado 8 Abril, 2014 por antoniojr

[Italo Giurizzato Junior]

Bom dia Antonio,

 

Você esta carregando o XML do RPS ou da NFS-e?

 

Todos os fontes estão atualizados?

[antoniojr]

bom dia  estou carregando o xml pelo NFS-e e os fontes atualizados.

Sera que tem alguma coisa a ver que o xml é da cidade de Bauru -SP IBGE 3506003 ?

[antoniojr]

Eu só quero ler o que esta dentro do xml será que estou configurando ou faznedo alguma coisa errada?

Estou fazendo apenas assim:

 

    ACBrNFSe1.Configuracoes.Geral.Salvar:=false;
    ACBrNFSe1.Configuracoes.Geral.PathSchemas:='D:\Analistas\Schemas';
    ACBrNFSe1.Configuracoes.WebServices.Ambiente:=StrToTpAmb(ok,'1');  //1-produção
    ACBrNFSe1.Configuracoes.WebServices.Visualizar:=false;
     ACBrNFSe1.Configuracoes.Arquivos.AdicionarLiteral:=True;
     ACBrNFSe1.Configuracoes.Arquivos.EmissaoPathNFSe:=True;
     ACBrNFSe1.Configuracoes.Arquivos.PastaMensal:=True;
     ACBrNFSe1.Configuracoes.Arquivos.PathCan:='D:\Analistas';
     ACBrNFSe1.Configuracoes.Arquivos.PathNFSe:='D:\Analistas';
     ACBrNFSe1.Configuracoes.Arquivos.Salvar:=True;
     ACBrNFSe1.Configuracoes.Geral.Salvar      := true;
     ACBrNFSe1.Configuracoes.Geral.PathSalvar  := 'D:\Analistas';
     ACBrNFSe1.Configuracoes.WebServices.CodigoMunicipio := StrToIntDef('3506003', 0);
     ACBrNFSe1.Configuracoes.WebServices.SetConfigMunicipio(ACBrNFSe1.Configuracoes.Geral.PathSchemas);
 

e depois assim:

 

    ACBrNFSe1.NotasFiscais.Clear;
    ACBrNFSe1.NotasFiscais.LoadFromFile('D:\DIRETORIO\NOTA10.xml');
    cnpj:='';
{*}    cnpj:=ACBrNFSe1.NotasFiscais.Items[0].NFSe.Tomador.IdentificacaoTomador.CpfCnpj;

 

quando o cnpj vai receber da erro.

 

Alguem pode me ajudar, a descobrir o que esta errado?  Esta nota é da cidade de Bauru-SP
 

[Italo Giurizzato Junior]

Boa tarde Antonio,

 

Você chegou a abrir o XML da NFS-e de Bauru utilizando o navegador (Internet Explorer por exemplo) e outro XML de outra cidade por exemplo Araraquara, Ribeirão Preto, São José do Rio Preto?

 

Se não me falha a memória Bauru não segue o padrão ABRASF.

 

O componente atende o padrão ABRASF e DSF.

[antoniojr]

Então Italo ou só tenho este xml de exemplo não abri de outra cidade.

Vou ver se consigo de outra cidade

Mas beleza valeu obrigado por responder.

[Italo Giurizzato Junior]

Antonio,

 

Se possível post como anexo o XML da NFS-e de Bauru.

 

Eu lhe digo se segue o padrão ABRASF ou não.

[Leandro Araújo]

Também estou com esse problema, no provedor Coplan.

Se eu consultar logo após o envio e o RPS for processado, ele me imprime o Danfe completo, mas se tento consultar depois, o Danfe vem incompleto, faltando informações e os campos da NFS-e.

Fiz o teste tentando carregar de um TStringStream mas mesmo assim vem incompleto.

DMNFSe.ObjetoNFSe.NotasFiscais.Clear;
OpenDialogNFSe.Execute;

WArquivoXML := TXMLDocument.Create(Self);
 WArquivoXML.LoadFromFile(OpenDialogNFSe.FileName);

 WStreamArquivoXML := TStringStream.Create('');
 WArquivoXML.SaveToStream(WStreamArquivoXML);

 DMNFSe.ObjetoNFSe.NotasFiscais.LoadFromStream(WStreamArquivoXML);
 DMNFSe.ObjetoNFSe.NotasFiscais.Imprimir;

 WArquivoXML.Free;
 WStreamArquivoXML.Free;

Obrigado pessoal.

[Italo Giurizzato Junior]

Leandro,

 

Não post o seu problema em vários tópicos, por favor siga as regras do fórum.

 

Obs: já lhe respondi sobre o seu problema em outro tópico.

[Leandro Araújo]

Leandro,

 

Não post o seu problema em vários tópicos, por favor siga as regras do fórum.

 

Obs: já lhe respondi sobre o seu problema em outro tópico.

 

Desculpe italojjr, vou tomar mais cuidado ao observar os tópicos.

Ok, muito obrigado, estarei verificando.