[Problema No Cancelamento Nprot]

Bom dia Italo,

 

Passei só para avisar que os cancelamentos foram feitos com sucesso.

 

Muito obrigado pelo apoio.

[Problema No Cancelamento Nprot]

Bom dia Italo,

 

Muito obrigado pelo retorno, fiz as alterações indicadas, vou fazer os testes agora.

[Problema No Cancelamento Nprot]

Boa tarde Italo,

 

Obrigado pela resposta, alguma configuração pode gerar um XML sem o numero do protocolo? Preciso cancelar esse CTe, como faze-lo sem o numero do protocolo?

 

Agradeço novamente

[Problema No Cancelamento Nprot]

Estou com problema para gerar o evento de cancelamento de um CTe em especial.

O programa é bem simples, o usuario seleciona qual o XML ele deseja cancelar e digita uma justificativa. O XML foi gerado pelo componente e isso já funciona a algum tempo, não consigo entender porque nesse CTe em especial ele não está funcionando.

 

Desde já agradeço a quem puder me dar uma luz;

 

Estou anexando o XML;

 

O erro que foi apresentado:

 

 

Segue trecho do código que foi citado:

  if OpenDialog1.Execute then

  begin

    ACBrCTe1.Conhecimentos.Clear;

    ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName);

    if not(InputQuery('Cancelamento do CTe:', 'Justificativa', vAux))then

    begin                                  -

      exit;

    end;

 

    ACBrCTe1.EventoCTe.Evento.Clear;

 

    qryEmpresa.Close;

    qryEmpresa.Open;

 

    with ACBrCTe1.EventoCTe.Evento.Add do

    begin

      infEvento.nSeqEvento      := 1; // Para o Evento de Cancelamento: nSeqEvento sempre = 1

      infEvento.chCTe           := Copy(ACBrCTe1.Conhecimentos.Items[0].CTe.infCTe.Id, 4, 44);

      infEvento.CNPJ            := qryEmpresacnpj.AsString;

      infEvento.dhEvento        := now;

      infEvento.tpEvento        := teCancelamento;

      infEvento.detEvento.xJust := trim(vAux);

      infEvento.detEvento.nProt := ACBrCTe1.Conhecimentos.Items[0].CTe.procCTe.nProt;

    end;

 

    iLote := 1; // Numero do Lote do Evento

    ACBrCTe1.EnviarEventoCTe(iLote);

 

    Memo1.Lines.Text :=  UTF8Encode(ACBrCTe1.WebServices.EnvEvento.RetWS);

    memo1.Lines.Text :=  UTF8Encode(ACBrCTe1.WebServices.EnvEvento.RetWS);

    LoadXML(Memo1, WBResposta);

    ShowMessage(IntToStr(ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat));

    ShowMessage(ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt);

  end;

35140809602853000178570000000039661220776052-cte.xml

[Erro Ao Instalar Acbrctedactefrpkg.dpk]

Obrigado Juliomar Marchetti,

Reinstalei o Fasteport e adicionei os componentes seguindo esse tutorial: www.devmedia.com.br/instalando-fastreport4-0-no-delphi-7/5309

 

resolveu meu problema.

[Erro Ao Instalar Acbrctedactefrpkg.dpk]

Estou tentando fazer a instalação do componente ACBrCTeDacteFRpkg.dpk é o único que está dando erro no ACBRInstall.

Já atualizei todos os arquivos da pasta do acbr, ela está verde.

Todos os outros componentes do ACBr funcionam perfeitamente.

 

Segue log em anexo e screenshots abaixo.

log_Delphi_7.txt