Tiago Ravache

antes da linha WebServices.Consulta.Executar. coloque a Configuracoes.Geral.VersaoDF := ve310; e tente

Chegou a usar o apagaracbr.bat em todos os seus drives? tente usando ele e depois o AcbrInstall

ACBrNFe1.Configurações.Geral.Salvar := True;
 
já testou com essa tbm?

Veja no uses aonde está fazendo referencia ao Rave e remova... tem certeza que não instalou os pacotes do Rave?

PathWithDelim é uma função da unit ACBrUtil.pas verifica se vc tem esse arquivo, se está atualizado e se ele está na cláusula USES da unit desse teu form TfrmManutencaoNotasFiscais
 
depois posta o resultado aqui pra eu ter certeza que eu não to viajando

while (indCont=icPossuiMaisDocumentos) and (BtCancelar.Tag = 0 ) and (not Erro) do //aqui faz a consulta begin try ACBrNFe.ConsultaNFeDest(QyBuscaCodEmpresa.FieldByName('Cnpj_Cpf').AsString, StrToIndicadorNFe(ok,indNFe), StrToIndicadorEmissor(ok,IndEmi), ultNSU); except if ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest .cStat <> 0 then Mensagem(tpAviso, IntToStr(ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest .cStat)+' - '+ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.xMotivo); Mensagem(tpAviso, 'Erro na consulta.'+#13#10+ACBrNFe.WebServices.ConsNFeDest.RetWS); Erro := True; end; IndCont := ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.indCont; ultNSU := ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.ultNSU; Inc(QtdeNSUEncontrado); ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[0]; if (ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.cStat=138) then //a partir daqui está armazenando o retorno no meu banco begin CrNfd_Mdf.ParamByName('Chave_Acesso').AsString := ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[0].resNFe.chNFe; CrNfd_Mdf.Open; if (CrNfd_Mdf.FieldByName('Id').IsNull) and (Trim(ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[0].resNFe.chNFe)<>'') then begin QyNfd_Mdf_Manifestar.Append; QyNfd_Mdf_Manifestar.FieldbyName('Ge_Emp_CodEmpresa').AsInteger := QyBuscaCodEmpresa.FieldByName('CodEmpresa').AsInteger; QyNfd_Mdf_Manifestar.FieldbyName('Chave_Acesso') .AsString := ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[0].resNFe.chNFe; QyNfd_Mdf_Manifestar.FieldbyName('Cnpj_Emitente') .AsString := FormataCNPJ_CPF(ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[0].resNFe.CNPJCPF); QyNfd_Mdf_Manifestar.FieldbyName('Nome_Emitente') .AsString := ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[0].resNFe.xNome; QyNfd_Mdf_Manifestar.FieldbyName('IE_Emitente') .AsString := ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[0].resNFe.IE; QyNfd_Mdf_Manifestar.FieldbyName('Data_Emissao') .AsDate := ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[0].resNFe.dEmi; QyNfd_Mdf_Manifestar.FieldbyName('Valor') .AsCurrency := ACBrNFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[0].resNFe.vNF; QyNfd_Mdf_Manifestar.FieldbyName('NSU') .AsString := ultNSU; QyNfd_Mdf_Manifestar.FieldbyName('nSeqEvento') .AsInteger := 0; QyNfd_Mdf_Manifestar.FieldbyName('Operacao') .AsString := '1'; QyNfd_Mdf_Manifestar.FieldbyName('Situacao') .AsString := '0'; QyNfd_Mdf_Manifestar.FieldbyName('Download') .AsString := 'N'; try QyNfd_Mdf_Manifestar.Post; except Mensagem(tpAviso, 'Erro ao Salvar registro.'+#13#10+ACBrNFe.WebServices.ConsNFeDest.RetWS); end; Nesse trecho estou disparando a consulta, pego o retorno e coloco no DB, estou usando os componentes IBO no projeto, pelo que vi vc tbm, veja se esse código lhe ajuda