Salvar O Xml Do Evento Da Pasta Para O Banco

[LUMORAES]

Ola.

 

Estou tentando importar o xml de eventos da pasta para minha tabela

 

Estou tentando da seguinte maneira:

 

DM_NFE.ACBrNFe1.NotasFiscais.LoadFromFile(DM.OpenDialog1.FileName);

 

Porem o arquivo XML por nao ser o completo e sim do evento da erro.

 

Como eu poderia puxar o xml de eventos pra dentro do componente ACBrNFe1 e dai conseguir salvar chave, protocolo, evento dentro do banco???

 

 

Grato

 

[Régys Silveira]

ACBrNFe.EventoNFe.LerXML(...);

[LUMORAES]

Ola boa tarde Regys

 

depois de carregar o xml pra eu pegar os dados como por exemplo o protocolo eu faria assim?

 

ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[iUltimoIndice].RetInfEvento.nProt;

 

ACredito que neste caso nao seja mais WebServices. como seria???

 

Grato

[LUMORAES]

Ola Regys, fiz assim porem nao consigo pegar o Protocolo:

 

    DM.QCuringa2.Close;

    DM.QCuringa2.SQL.Text:='Insert Into nfe_eventos(id_nfe,xml,data,protocolo,historico,chave,codigo_status,ambiente)';

    DM.QCuringa2.SQL.Add('Values(:id_nfe,:xml,:data,:protocolo,:historico,:chave,:codigo_status,:ambiente)');

    DM.QCuringa2.ParamByName('id_nfe').AsInteger        :=QNotaid_nfe.AsInteger;

    //DM.QCuringa2.ParamByName('Xml').Value             :=//DM_NFE.ACBrNFe1.EventoNFe. DM_NFE.ACBrNFe1.NotasFiscais.Items[0].XML;

    DM.QCuringa2.ParamByName('Xml').LoadFromFile(DM.OpenDialog1.FileName,ftMemo);

    DM.QCuringa2.ParamByName('data').AsDateTime        :=DM_NFE.ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.dhEvento;

    DM.QCuringa2.ParamByName('Protocolo').AsString     :='';

    DM.QCuringa2.ParamByName('Chave').AsString         :=DM_NFE.ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.chNFe;

    DM.QCuringa2.ParamByName('historico').AsString     :=DM_NFE.ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.detEvento.xJust;

    DM.QCuringa2.ParamByName('codigo_status').AsInteger:=DM_NFE.ACBrNFe1.EventoNFe.Evento.Items[0].RetInfEvento.cStat;

    DM.QCuringa2.ExecSQL;

[Régys Silveira]

ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[X].RetInfEvento.dhRegEvento,

ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[X].RetInfEvento.nProt,

ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[X].RetInfEvento.cStat,

ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[X].RetInfEvento.xMotivo,

ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[X].RetInfEvento.XML

[medeiros.sunsystem]

Consigo usar isto também, interagindo com o ACBRNFemonitor ?

Se sim, como ficaria para pegar uma determinada tag ?

[Régys Silveira]

O retorno para um evento no monitor será no formato:

[EVENTOXXX]
id=
tpAmb=
verAplic=
cOrgao=
cStat=
xMotivo=
chNFe=
tpEvento=
xEvento=
nSeqEvento=
CNPJDest=
emailDest=
dhRegEvento=
nProt=