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.