Evento de ciencia da operação apos a manifestação final do destinatario acbr

[JoaoAugusto Galvao Almeida]

Evento de ciencia da operação apos a manifestação final do destinatario...  nao sei o  q ta ocorrendo.. alguem pode ajudar...

 

 

 

 uf := RetornaUFPeloCodigo(Copy(sChave,1,2));

 lblStatus.Font.Color:=clBlue;
 lblStatus.Caption   := 'Manifestando a nota...';
 Application.ProcessMessages;

 Result:=False;
 sChave := Trim(OnlyNumber(sChave));
 sCNPJ  := OnlyNumber(sCNPJ);

 Arquivo := edtDiretorio.Text+  sChave + '-nfe.xml';

 iEvento:=2;
 ACBrNFe1.EventoNFe.Evento.Clear;
 with ACBrNFe1.EventoNFe.Evento.Add do
  begin
    InfEvento.cOrgao   := 91;
    infEvento.chNFe    := sChave;
    infEvento.CNPJ     := sCNPJ;
    infEvento.dhEvento := now;
     case iEvento of
             1: infEvento.tpEvento := teManifDestConfirmacao;
             2: infEvento.tpEvento := teManifDestCiencia;
             3: infEvento.tpEvento := teManifDestDesconhecimento;
             4: infEvento.tpEvento := teManifDestOperNaoRealizada;
     end;
  end;

 if ACBrNFe1.EnviarEvento(iEvento) then
 begin
    with ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do
      begin
          if cStat = 135 then
          begin
            lblStatus.Font.Color:=clBlue;
            lblStatus.Caption   := 'Manisfestação Ok...';
            Application.ProcessMessages;
          end
          else
          begin

            lblStatus.Font.Color:=clBlue;
            lblStatus.Caption   := 'Manisfestação Error...';
            Application.ProcessMessages;

          end;
      end;

 end;

 ACBrNFe1.DistribuicaoDFe(UFtoCUF(UF),sCNPJ,ultNSU,ANSU);
 codStatus := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat;
 ultNSU    := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU;

 // faz o download do xml apos manifestar;
 ACBrNFe1.DistribuicaoDFePorChaveNFe(UFtoCUF(UF),sCNPJ,sChave);
 icount    := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count;

 for I := 0 to icount do
 begin

    lblStatus.Font.Color:=clBlue;
    lblStatus.Caption   := ' ... Fazendo download da nota ... ';
    Application.ProcessMessages;

    xml := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].XML;
 end;

 

[BigWings]

13 minutos atrás, JoaoAugusto Galvao Almeida disse:

Evento de ciencia da operação apos a manifestação final do destinatario...  nao sei o  q ta ocorrendo.. alguem pode ajudar...

Não ficou claro no que está pedindo ajuda.

Detalhe melhor o seu problema.

[JoaoAugusto Galvao Almeida]

o retono que estou tendo: Evento de ciencia da operação apos a manifestação final do destinatario... 

[douglaswf]

1 minuto atrás, JoaoAugusto Galvao Almeida disse:

o retono que estou tendo: Evento de ciencia da operação apos a manifestação final do destinatario... 

Você não está fazendo a Ciencia da Operação após já ter dado uma confirmação ou desconhecimento?

[BigWings]

23 minutos atrás, JoaoAugusto Galvao Almeida disse:

o retono que estou tendo: Evento de ciencia da operação apos a manifestação final do destinatario... 

Se a NFe já foi manifestada com um dos tipos de manifestação final (Confirmação de Operação, Desconhecimento da Operação ou Operação não realizada), não é mais permitido, nem necessário, fazer a Ciência.

[JoaoAugusto Galvao Almeida]

eu fiz a comfirmação da nota

[JoaoAugusto Galvao Almeida]

conseguir baixar a nota, fui fazer o mesmo procedimento com a mesma nota... agora deu: Falha no esquema XML do lote de NF-e...