[resolvido] ACBrNFe - Consultar nota e pegar o xml válido e salvar no BD

[RenataAlbergoni]

Olá Pessoal, pesquisei nos tópicos existentes e não encontrei uma resposta. Caso exista um tópico solucionando o meu problema e alguém me indicar ficarei agradecida.

Estou tentando consultar a nota pela chave e salvar o xml válido no banco de dados. Estou fazendo da seguinte maneira.

      sAux := ACBrNFe1.WebServices.Retorno.ChaveNFe;
      ACBrNFe1.NotasFiscais.Clear;
      ACBrNFe1.WebServices.Consulta.NFeChave := sAux;
      ACBrNFe1.WebServices.Consulta.Executar;

      case ACBrNFe1.WebServices.Consulta.cStat of
        // 100|Autorizado o uso da NF-e
        // 150|Autorizado o uso da NF-e, autorização fora de prazo
        100,150: Begin
          // Alterar no banco de dados como enviado
          ModelMOVCAB_NFECAB.NFEEMISSAO         := 'CONCLUIDO';
          ModelMOVCAB_NFECAB.ENVIO_AMBIENTE     := StrToIntDef(TpAmbToStr(ACBrNFe1.WebServices.Consulta.TpAmb),0);
          ModelMOVCAB_NFECAB.ENVIO_CSTAT        := ACBrNFe1.WebServices.Consulta.cStat;
          //ModelMOVCAB_NFECAB.ENVIO_RECIBO       := ACBrNFe1.WebServices.Consulta.Recibo;
          ModelMOVCAB_NFECAB.ENVIO_PROTOCOLO    := ACBrNFe1.WebServices.Consulta.Protocolo;
          ModelMOVCAB_NFECAB.CHAVE_ACESSO       := ACBrNFe1.WebServices.Consulta.NFeChave;
          ModelMOVCAB_NFECAB.MSTAT              := '[DUPLICIDADE+ENVIO] ' + ACBrNFe1.WebServices.Consulta.xMotivo;
          ModelMOVCAB_NFECAB.XML_NFE              := ACBrNFe1.WebServices.Consulta.protNFe.XML_NFe;

         ...

O campo que estou tentando pegar o xml válido é "ACBrNFe1.WebServices.Consulta.protNFe.XML_NFe", mas creio que seja o errado.
Todos os campos estão preenchidos "belezinha", só preciso mesmo do XML válido!
Como devo proceder, alguem pode me dar uma força? Obrigada

Editado 13 Julho, 2016 por RenataAlbergoni

[RenataAlbergoni]

Pessoal já resolvi, fui mto dêr! kkkkkkk

 

procedure TForm1.btnConsultarClick(Sender: TObject);
Var
  sAux: String;
begin
  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*-nfe.XML';
  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
    sAux := ACBrNFe1.NotasFiscais.Items[0].XML;
    ACBrNFe1.Consultar;
    sAux := ACBrNFe1.NotasFiscais.Items[0].XML;
    ShowMessage(ACBrNFe1.WebServices.Consulta.Protocolo);
    MemoResp.Lines.Text := ACBrNFe1.WebServices.Consulta.RetWS;
    memoRespWS.Lines.Text := ACBrNFe1.WebServices.Consulta.RetornoWS;
    LoadXML(ACBrNFe1.WebServices.Consulta.RetornoWS, WBResposta);
    LoadConsulta201(ACBrNFe1.WebServices.Consulta.RetWS);
  end;
end;
 

Obrigada!