Tiago Ravache's post in Rave was marked as the answer
Veja no uses aonde está fazendo referencia ao Rave e remova... tem certeza que não instalou os pacotes do Rave?
Tiago Ravache's post in Erros Nfe was marked as the answer
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
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.
Tiago Ravache's post in Erro Webservices.consulta.executar was marked as the answer