Retorno XML de NFS não encontrado!

[brunoinfosis]

Bom Dia,

Estou enviando nota fiscal de serviço em homologação para o servidor fiorilli, porem quando tento pegar o retorno do XML ele não retorna para mim.

Estou pegando o retorno dessa forma:

                UTF8Encode(ACBRNFS.WebServices.RetWS);

Além disso quando eu tento ler o XML pela função ACBRNFS.NotasFiscais.LoadFromFile(CaminhoXML) ele não me retorna a chave da nota, nem o protocolo nem a data de emissão da NFS.

Estou tentando pegar dessa forma:

                

ParamByName('nfs_numero').AsInteger := StrToInt(ACBRNFS.NotasFiscais.Items[0].NFSe.Numero);
ParamByName('nfs_rps_numero').AsInteger := StrToInt(ACBRNFS.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero);
ParamByName('nfs_chave').AsString := ACBRNFS.NotasFiscais.Items[0].NFSe.ChaveNFSe;
ParamByName('nfs_verificacao').AsString := ACBRNFS.NotasFiscais.Items[0].NFSe.CodigoVerificacao;

if ACBRNFS.NotasFiscais.Items[0].Confirmada then
          ParamByName('nfs_status').AsString := 'Nota Fiscal de Serviço - Autorizada'
 else ParamByName('nfs_status').AsString := '';
        
 ParamByName('nfs_xml').AsString := ACBRNFS.NotasFiscais.Items[0].XML_NFSe;
 ParamByName('nfs_consulta').AsString := '';
 ParamByName('nfs_cancelado').AsString := '';
 ParamByName('nfs_protocolo_arq').AsString := ACBRNFS.NotasFiscais.Items[0].NFSe.Protocolo;
 ParamByName('nfs_data_emissao').AsDateTime := ACBRNFS.NotasFiscais.Items[0].NFSe.DataEmissao;

 

Obrigado pela atenção! Se eu tiver fazendo alguma coisa erra por favor se possível me informar o que devo fazer.

[brunoinfosis]

Estou pegando o retorno dessa forma:

 UTF8Encode(ACBRNFS.WebServices.RetWS);

Formar que estou tentando pegar os arquivos:

ParamByName('nfs_numero').AsInteger := StrToInt(ACBRNFS.NotasFiscais.Items[0].NFSe.Numero);
ParamByName('nfs_rps_numero').AsInteger := StrToInt(ACBRNFS.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero);
ParamByName('nfs_chave').AsString := ACBRNFS.NotasFiscais.Items[0].NFSe.ChaveNFSe;
ParamByName('nfs_verificacao').AsString := ACBRNFS.NotasFiscais.Items[0].NFSe.CodigoVerificacao;

if ACBRNFS.NotasFiscais.Items[0].Confirmada then
  ParamByName('nfs_status').AsString := 'Nota Fiscal de Serviço - Autorizada'
else ParamByName('nfs_status').AsString := '';
        
ParamByName('nfs_xml').AsString := ACBRNFS.NotasFiscais.Items[0].XML_NFSe;
ParamByName('nfs_consulta').AsString := '';
ParamByName('nfs_cancelado').AsString := '';
ParamByName('nfs_protocolo_arq').AsString := ACBRNFS.NotasFiscais.Items[0].NFSe.Protocolo;
ParamByName('nfs_data_emissao').AsDateTime := ACBRNFS.NotasFiscais.Items[0].NFSe.DataEmissao;

 

Ficou melhor para ver agora se alguém puder me ajudar.

Editado 5 Agosto, 2015 por brunoinfosis

[Italo Giurizzato Junior]

Bom dia Bruno,

A propriedade ChaveNFSe só é preenchida quando o provedor for Infisc sendo que no seu caso é Fiorilli.

Outra coisa, ao carregar o XML usando o LoadFromFile, você esta carregando qual arquivo (*-rps.xml ou *-nfse.xml)?

[brunoinfosis]

Está Carregando o *-nfse.xml.

Dentro do XML está a chave então eu dei um jeito de pegar a chave via código mesmo.,

Formar que utilizei para pegar a chave:

_ChaveNFs := ACBRNFS.NotasFiscais.Items[0].XML_NFSe;
_ChaveNFs:= copy(_ChaveNFs, PosEx('Id=', _ChaveNFs, 6)+4,length(_ChaveNFs));
_ChaveNFs := copy(_ChaveNFs, 1, PosEx('"', _ChaveNFs, 0)-1);

 

[EMBarbosa]

Tópico na área incorreta. Movido.