Em Criar\Enviar do MDFe como pegar hdrecbto

[Leao]

Olá, no MDF-e, como faço para pegar o hdrecbto ao Criar\Enviar?  na NFe- é assim:

    DNF.HORA_AUTORI.Conteudo   :=DateTimeToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.dhRecbto);

Obrigado,

Leão

[Italo Giurizzato Junior]

Boa tarde Leão,

Já tentou fazer algo semelhante?

   DNF.HORA_AUTORI.Conteudo   :=DateTimeToStr(ACBrMDFe1.Manifestos.Items[0].MDFe.procMDFe.dhRecbto);

[Leao]

Olá, (conforme o exemplo mdf-e) visando gravar informações básica, estou com dificuldade para pegar o retorno de:

Consultar carregando xml

já testei assim:

if (ACBrMDFe1.WebServices.Retorno.cStat = 100) or
   (ACBrMDFe1.WebServices.Retorno.cStat = 101) or
   (ACBrMDFe1.WebServices.Retorno.cStat = 132) or
   (ACBrMDFe1.WebServices.Retorno.cStat = 135) then
   begin
              if ACBrMDFe1.WebServices.Retorno.cStat = 100 then
              begin

              DDADOS.Modifica;

             DDADOS.STATUS.Conteudo      :='AUTORIZADO';

             DDADOS.Post;

            end;  //somente para exemplificar falta o 101,132 e 135,

end;

 

if (ACBrMDFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 100) or
   (ACBrMDFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 101) or
   (ACBrMDFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 132) or
   (ACBrMDFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 135) then
begin
              if ACBrMDFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 100 then
              begin

              DDADOS.Modifica;

             DDADOS.STATUS.Conteudo      :='AUTORIZADO';

             DDADOS.Post;

            end;

end;

======================{ agora Encerramento }=============================

if (ACBrMDFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 101) or
   (ACBrMDFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 132) or
   (ACBrMDFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 135) then
begin

como faço para pegar o retorno?

 

===================={ agora Cancelamento }================================

if (ACBrMDFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 101) or
   (ACBrMDFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 135) or
   (ACBrMDFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xEvento='Cancelamento') then
begin

Nenhum desses exemplos deu certo, gostaria que alguém informasse um exemplo de cada um (Consulta com xml, Cancelamento e Encerramento).

 

Obrigado,

Leão

 

 

 

[Italo Giurizzato Junior]

Bom dia Leão,

Sugestão:

ACBrMDFe1.Consultar;

ACBrMDFe1.Manifestos.Clear;
ACBrMDFe1.Manifestos.LoadFromFile(NomeArquivoXML);

if ACBrMDFe1.Manifestos.Items[0].MDFe.procMDFe.cStat = 100
then begin
   (...)
end;

 

Com relação ao Encerramento ou Cancelamento:

ACBrMDFe1.EnviarEventoMDFe(idLote);

if ACBrMDFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 135
then begin
   (...)
end;

 

 

 

[Leao]

Olá Italo, vou fazer o teste

obrigado,

Leão

[Leao]

Italo, deu certo, muito obrigado,

Leão