Retorno De Cancelamento

[Marcos Gerene]

Como pego o retorno do cancelamento do MDFe?

 

ACBrMDFe1.Manifestos.Clear;
ACBrMDFe1.Manifestos.LoadFromFile(arquivo);
with ACBrMDFe1.EventoMDFe.Evento.Add do
   begin
   infEvento.chMDFe     := Copy(ACBrMDFe1.Manifestos.Items[0].MDFe.infMDFe.ID, 5, 44);
   infEvento.CNPJ       := FrmPrincipal.QryEmpresaAtiva.FieldByName('EMP_CNPJ').AsString;
   infEvento.dhEvento   := now;
   infEvento.tpEvento   := teCancelamento;
   infEvento.nSeqEvento := 1;

   infEvento.detEvento.nProt := ACBrMDFe1.Manifestos.Items[0].MDFe.procMDFe.nProt;
   infEvento.detEvento.xJust := trim(justificativa);
   end;
ACBrMDFe1.EnviarEventoMDFe(1);



showmessage( 'recibo: '+inttostr(ACBrMDFe1.WebServices.Recibo.cStat)+#13+ 
             'consulta: '+inttostr(ACBrMDFe1.WebServices.Consulta.cStat)+#13+ 
             'retorno: '+inttostr(ACBrMDFe1.WebServices.Retorno.cStat));

 

 

Tenho certeza que o Mesmo está cancelando, pois sempre aparece cancelado quando consulto...

[Italo Giurizzato Junior]

Boa tarde Marcos,

 

Tente desta forma:

 

   sProtocolo := ACBrMDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;

   sStat      := IntToStr(ACBrMDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat);
   sMotivo    := ACBrMDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;
   sDataHora  := DateTimeToStr(ACBrMDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento);

[Marcos Gerene]

Boa tarde,

 

No status  retornou 135 e não 101, existe alguma forma de retornar 101 ou eu teria que fazer um if?

 

 

Obrigado

 

Edit:

 

Mudei o código para funcionar com o retorno 135 mesmo, obrigado pela ajuda Ítalo

Editado 24 Janeiro, 2014 por Marcos Spirito

[vencetex]

Depois que vc enviar o Evento, faz uma "consulta" para pegar o retorno.

 

dai vai dar certo

[GustavoKato]

boa tarde, tem como pegar o XML do evento pela consulta?

tentei pelo WebServices.Consulta.procEventoMDFe.Items[0].RetEventoMDFe.retEvento.Items[n].RetInfEvento.XML porém não retorna nada

[GustavoKato]

mais uma dúvida minha ignorada?

[Juliomar Marchetti]

mais uma dúvida minha ignorada?

Bom dia

você postou ontem a tarde

todos aqui ou possuem empresas ou são funcionários e não podem ficar o tempo todo lendo os posts e respondendo ou até mesmo que olhou não soube responder por não usar o componente então não passou nem 24 horas que tu postou aqui !

então em primeiro lugar tenha paciência e segundo mais consideração pelo pessoal que responde as perguntas!

 

caso queira respostas mais rápidas assine o SAC ele serve para isso!

[GustavoKato]

Bom dia, sou um destes funcionários.

Eu entendo Juliomar, se vc verificar meus posts pode ver que a maioria é para ajudar o pessoal e inclusive "debugo" ao máximo para tentar encontrar a solução se encontro posto aqui para algum commiter. 

desculpe se te ofendi, a intenção não é ofender ninguém.

 

Abraço

[EMBarbosa]

Bom dia, sou um destes funcionários.

Eu entendo Juliomar, se vc verificar meus posts pode ver que a maioria é para ajudar o pessoal e inclusive "debugo" ao máximo para tentar encontrar a solução se encontro posto aqui para algum commiter. 

desculpe se te ofendi, a intenção não é ofender ninguém.

 

Abraço

 

Você respondeu a um tópico com 3 meses de atraso, acho que é normal esperar que o Originador dos Posts (OP) não esteja mais procurando essa resposta. Mesmo que esteja, não deveria se surpreender se não obter uma resposta em menos de 24 horas.

[GustavoKato]

ok, mais uma vez desculpe a impaciência.

Todos sabemos quanto é frustrante ter uma dúvida que na maioria das vezes é simples, o que não deve ser o caso. Abraço

[Italo Giurizzato Junior]

Bom dia a todos,

 

Caro Gustavo, favor tentar desta forma:

 

sXML := ACBrMDFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML;

 

em vez de:

 

sXML := ACBrMDFe.WebServices.Consulta.procEventoMDFe.Items[0].RetEventoMDFe.retEvento.Items[n].RetInfEvento.XML 

[GustavoKato]

bom dia, Italo.

 

Tentei aqui e o mesmo também fica vazio, acredito que seja alimentado quando é executado a autorização. Estou testando a consulta (caso o evento tenha sido enviado, porém não foi obtida resposta da SEFAZ ou a aplicação/BD tem alguma exception , é raro mas acontece).

 

obrigado

[Italo Giurizzato Junior]

Boa tarde Gustavo,

 

Favor atualizar todos os fontes de todas as pastas e novamente realizar os testes.

 

Usando a forma de obter o XML na consulta.

[GustavoKato]

Boa tarde,

funcionou perfeitamente para a tag infEvento, é possível o XML completo como o que é gerado quando se envia o Evento?? 

 

Muito obrigado.

[Italo Giurizzato Junior]

Gustavo,

 

O arquivo completo de retorno a uma consulta a situação é salvo em disco com o nome *-sit.xml (caso o componente esteja configurado para salvar).

[GustavoKato]

é que trabalho pra uma topologia tipo estrela, todos terminais emitem em um "monitor" semelhante ao de vocês, porém além do arquivo, salvo também em BD evento por evento.

 

fiz as adaptações aqui, segue as units... veja se é de interesse comum

 

estão com o seguinte comentário '//Gustavo Kato XML Completo do evento'

 

Obrigado pela atenção

ACBrMDFeWebServices.pas

pmdfeRetConsSitMDFe.pas

pmdfeRetEnvEventoMDFe.pas

[Italo Giurizzato Junior]

Boa tarde Gustavo,

 

Muito obrigado pela colaboração.

 

Aproveitei e fiz as alterações nos componentes ACBrNFe e ACBrCTe.

 

As suas alterações e as minhas já estão disponíveis favor atualizar todos os fontes de todas as pastas.

[GustavoKato]

Eu que agradeço e fico feliz em ter colaborado.

[Dionatan Santos]

Pessoal apos o cancelamento o xml não esta sendo atualizado.... como posso forçar esta atualização e imprimir ? mesmo consultando o XML depois ele traz a impressão como "AUTORIZADO"... Valeu

[Italo Giurizzato Junior]

Bom dia Dionatan,

 

A partir do momento que o cancelamento se tornou um evento, não se atualiza mais o XML que foi assinado e autorizado pela SEFAZ.

Estou me referindo a NF-e, CT-e, NFC-e e MDF-e.

 

Temos agora 2 XMLs:

 

Um é o XML do MDF-e assinado e Autorizado, o outro é o processamento do evento (*-procEventoMDFe.xml) que contem a solicitação do cancelamento e a homologação do mesmo com o numero do protocolo e tudo mais.

 

Já existe uma especie de Documento Auxiliar para imprimir o evento, bastando carregar os 2 XMLs mencionados acima e executar o comando ImprimirEvento.

 

É possível ainda gerar esse DA em PDF.

 

Por favor estude o programa exemplo do MDF-e que nele você encontrar botões relacionados a Eventos.

 

Da para imprimir não somente o evento de cancelamento como também o de Encerramento.

[Dionatan Santos]

Perfeito e obrigado pela explanação.....

[Wislei de Brito Fernandes]

Boa tarde,

Ao realizar a consulta na trunk com o comando ACBrMDFe.WebServices.Consulta.Executar; eu conseguia receber o tipo de evento que o MDF-e estava na SEFAZ.

Ex: se estivesse cancelado, recebia 'teCancelamento', se estivesse encerrado, recebia 'teEncerramento'.

Ao atualizar para a trunk2, eu não consigo mais acessar esta propriedade.

Há uma outra forma de eu saber como está o MDF-e que estou consultando?

Preciso deste comando para eu atualizar minha base de dados caso estiver diferente.

Atenciosamente.

[Wislei de Brito Fernandes]

Pela propriedade ACBrMDFe.WebServices.Consulta.cStat eu consigo ver por exemplo que o código '101' indica que o MDF-e está Cancelado.

Porém, eu faço uso da função: ACBrMDFe.WebServices.Consulta.procEventoMDFe.Items[0].RetEventoMDFe.InfEvento.DescricaoTipoEvento( );

E com esta função eu indicava a descrição do envento.

Atenciosamente.

[Italo Giurizzato Junior]

Boa tarde Wislei,

E ao tentar usar a função mencionada o que você tem como retorno?

[Wislei de Brito Fernandes]

Bom dia Italo,

Eu obtenho o seguinte erro: Inaccessible value

Atenciosamente.