Obter Xml Da Nfs Na Consulta Do Rps

[walter faria]

Boa tarde, no meu sistema tenho 2 botões :

 

1- envia NFS somente e se não houver nenhum problema já imprimi a NFS-e. OK

2- Obter protocolo da NFS e XML, clicando neste botão usuário consulta por RPS o XML da NFS

abaixo o código que nele eu utilizo mas esta dando erro:

ObterXML_NFS.txt

 

//Da erro de conversão de inteiro ( StrToInt )

*** não sei se os comandos abaixos esta corretos com a consulta do RPS no retorno !!!

 

 Arquivo:= FrmPrincipal.ACBrNFSe1.NotasFiscais.Items[0].NomeArq;

 NF:= StrToInt(FrmPrincipal.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero);

 RPS:= StrToInt(FrmPrincipal.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero);

 CodigoVerificacao:= FrmPrincipal.ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao;

 Protocolo:= FrmPrincipal.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo;

 

 

 

 

ObterXML_NFS.txt

[Italo Giurizzato Junior]

Boa tarde Walter,

 

mude para:

 

 NF:= StrToIntDef(FrmPrincipal.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero, 0);

 RPS:= StrToIntDef(FrmPrincipal.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, 0);

 

Em um desses dois o numero não deve estar sendo retornado, ficando a string vazia provocando o erro de conversão.

Desta forma não vai dar erro mas você vai descobrir qual é a informação que não esta sendo retornada, uma vez que não existe numero de nota e numero de RPS igual a zero.

 

[walter faria]

Bom dia, Italo.

 

Assim ele não da erro ele atualiza o banco de dados, porem meu numero de NFS fica ZERO. Não tem como pegar o numero NFS na consulta por RPS ou estou fazendo da forma errada ? ou seria o caso de receber o retorno , limpar o componente e ler novamente com o XML da NFS ?

 

Como eu posso pegar o Numero da NFS lendo o arquivo XML NFSe ?

 

Obrigado.