Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 1754 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá, ao tentar cancelar um MDFe que foi gerado a partir de um E-CPF me deparei com a seguinte mensagem:
Status Codigo = 202
Status Descrição: Rejeição: CPF do Emitente difere do CPF do Certificado Digital

Fiz uma alteração dentro de ACBRMDFE.pas:

function TACBrMDFe.Cancelamento(const AJustificativa: String; ALote: integer = 0): Boolean;
var
  i: integer;
begin
  if Manifestos.Count = 0 then
    GerarException(ACBrStr('ERRO: Nenhum MDF-e Informado!'));

  for i := 0 to Manifestos.Count - 1 do
  begin
    WebServices.Consulta.MDFeChave := Manifestos.Items.NumID;

    if not WebServices.Consulta.Executar then
      raise Exception.Create(WebServices.Consulta.Msg);

    EventoMDFe.Evento.Clear;
    with EventoMDFe.Evento.New do
    begin
      infEvento.CNPJCPF := Manifestos.Items.MDFe.Emit.CNPJCPF; //mudei o que esta na linha de baixo pra isso aqui
//      infEvento.CNPJCPF  := copy(OnlyNumber(WebServices.Consulta.MDFeChave), 7, 14);
      infEvento.cOrgao   := StrToIntDef(copy(OnlyNumber(WebServices.Consulta.MDFeChave), 1, 2), 0);
      infEvento.dhEvento := now;
      infEvento.tpEvento := teCancelamento;
      infEvento.chMDFe   := WebServices.Consulta.MDFeChave;

      infEvento.detEvento.nProt := WebServices.Consulta.Protocolo;
      infEvento.detEvento.xJust := AJustificativa;
    end;

    try
      EnviarEvento(ALote);
    except
      raise Exception.Create(WebServices.EnvEvento.EventoRetorno.xMotivo);
    end;
  end;
  Result := True;
end;
 

Resolvido o problema.

 

Conectiva Soft - Automação Comercial - Visite nosso site: www.conectivasoft.com.br

Skype: [email protected]

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Edson,

Qual a diferença entre:

infEvento.CNPJCPF := Manifestos.Items.MDFe.Emit.CNPJCPF; 

e

infEvento.CNPJCPF  := copy(OnlyNumber(WebServices.Consulta.MDFeChave), 7, 14);

Ambos não vão conter o CPF do emitente?

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

52 minutos atrás, Italo Jurisato Junior disse:

Bom dia Edson,

Qual a diferença entre:

infEvento.CNPJCPF := Manifestos.Items.MDFe.Emit.CNPJCPF; 

e

infEvento.CNPJCPF  := copy(OnlyNumber(WebServices.Consulta.MDFeChave), 7, 14);

Ambos não vão conter o CPF do emitente?

Então Italo, eu nao sei direito qual é a diferença, só sei te dizer que ao utilizar o codigo original do componente me foi mostrada a mensagem de erro e ao alterar o codigo, funcionou. Se voce quiser acessar aqui eu lhe concedo acesso remoto, assim voce ve na pratica. Muito Obrigado.

Conectiva Soft - Automação Comercial - Visite nosso site: www.conectivasoft.com.br

Skype: [email protected]

Link para o comentário
Compartilhar em outros sites

12 minutos atrás, Edson Fernandes disse:

Então Italo, eu nao sei direito qual é a diferença, só sei te dizer que ao utilizar o codigo original do componente me foi mostrada a mensagem de erro e ao alterar o codigo, funcionou. Se voce quiser acessar aqui eu lhe concedo acesso remoto, assim voce ve na pratica. Muito Obrigado.

 

ITALO.png

Conectiva Soft - Automação Comercial - Visite nosso site: www.conectivasoft.com.br

Skype: [email protected]

Link para o comentário
Compartilhar em outros sites

  • Consultores

Edson,

Se informar o CPF com 14 dígitos, o XML de pedido de evento vai ser gerado com a tag CNPJ e não a tag CPF, pelo que me recordo.

Se possível, favor anexar o XML de pedido de cancelamento mais o de retorno com a rejeição, quando informado o CPF com 11 dígitos.

E depois o XML de pedido de cancelamento com o CPF informado com 14 dígitos que não foi rejeitado.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1754 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

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.