Retorno NFC-e

[paulocsc]

Olá tenho um grande problema, que creio que desse ser tão fácil de resolver... quando envio a NFC-e ela tem retorno da chave de acesso, tem retorno de protocolo de autorização, data e hora, mas como eu pego essa informação pra mim salvar no banco ? ja tentei usar assim mas retorna em branco acho que estou tentando pega informação no lugar errado ! 

 

 ACBrNFCe1.WebServices.Retorno.ChaveNFe;
 ACBrNFCe1.WebServices.Retorno.Recibo;

[Juliomar Marchetti]

Tu olho o exemplo do SVN?

[paulocsc]

não, tu diz olhar no Demo é ? eu tentei de algumas forma e não consegui identificar esse retorno

[Marcelo Loiola Silva]

Consigo pegar desta forma:

            nchave := Principal_DFe.ACBrNFCe.NotasFiscais.Items[0].NFe.procNFe.chnfe;
            protocolo := Principal_DFe.ACBrNFCe.NotasFiscais.Items[0].NFe.procNFe.nProt;
 

[Juliomar Marchetti]

  Em 18/12/2020 at 09:24, paulocsc disse:

não, tu diz olhar no Demo é ? eu tentei de algumas forma e não consegui identificar esse retorno

Expandir  

Ele mesmo, mas está lá, basta olhar com calma e atenção

[paulocsc]

 

  Em 18/12/2020 at 09:28, Marcelo Loiola Silva disse:

Consigo pegar desta forma:

            nchave := Principal_DFe.ACBrNFCe.NotasFiscais.Items[0].NFe.procNFe.chnfe;
            protocolo := Principal_DFe.ACBrNFCe.NotasFiscais.Items[0].NFe.procNFe.nProt;
 

Expandir  

rapaz eu consegui com esse método muito obrigado, outra duvida quando a nota é enviada em contingencia eu consigo o numero de Chave ? 

[Juliomar Marchetti]

Também tem isso no exemplo, basta tu pegar ela antes de enviar, manda gerar a nota.

lembre-se dúvidas diferentes tópico novo.

[paulocsc]

  Em 18/12/2020 at 15:05, Juliomar Marchetti disse:

Também tem isso no exemplo, basta tu pegar ela antes de enviar, manda gerar a nota.

lembre-se dúvidas diferentes tópico novo.

Expandir  

Tentei já colocar no começo meio e fim e nada de retorno quando é contingencia ! 

[paulocsc]

 ficou assim meu código no  if ACBrNFCe1.WebServices.Enviar.cStat = 100 then -> Aqui eu recebo o retorno certo, mas no IF da contingencia não !

 

Try

          ACBrNFCe1.NotasFiscais.GerarNFe;
          ACBrNFCe1.NotasFiscais.Assinar;
          ACBrNFCe1.NotasFiscais.Validar;
          ACBrNFCe1.Enviar(NumNFCe, False, true);

      Except
         //exceção muda para pegar o cstat em seguida.
      End;
      //cstat = 204 nota já existe com mesmo número e mesma chave.
      begin
      if ACBrNFCe1.WebServices.Enviar.cStat = 539 then
        begin
           ShowMessage('erro nota já enviado com outro numero de XML '); //marca a flag da nota como enviada.
        end;

        if ACBrNFCe1.WebServices.Enviar.cStat = 100 then
          Begin
             ShowMessage('Nota Transmitida pode salvar ');
             nNFCeRecebida := IntToStr(ACBrNFCe1.NotasFiscais.Items[0].NFe.Ide.nNF);
             nchave := ACBrNFCe1.NotasFiscais.Items[0].NFe.procNFe.chnfe;
             dataHoraRetorno := DateTimeToStr(ACBrNFCe1.NotasFiscais.Items[0].NFe.procNFe.dhRecbto);
             numeroProtoco := ACBrNFCe1.NotasFiscais.Items[0].NFe.procNFe.nProt;

             ShowMessage('Chave: '+ nchave + ' PathRetorno: ' + pathNFCeRetorno + ' dataHora: ' + dataHoraRetorno + ' Protocolo NFCe: ' + numeroProtoco + ' XML: ' + xmlNFCeTeste + '!');
          End;

              if (ACBrNFCe1.WebServices.Enviar.cStat <> 100) and (ACBrNFCe1.WebServices.Enviar.cStat <> 539) then
               begin
                    dataHoraRetorno := DateTimeToStr(ACBrNFCe1.WebServices.Enviar.dhRecbto);
                    nchave := ACBrNFCe1.NotasFiscais.Items[0].NFe.procNFe.chnfe;
                    ShowMessage(dataHoraRetorno + 'Erro ao enviar NFCe, Enviada em contigencia: ' + nchave + IntToStr(ACBrNFCe1.WebServices.Recibo.cMsg) +'' + ACBrNFCe1.WebServices.Recibo.Recibo);

                  ACBrNFCe1.NotasFiscais.GerarNFe;
                  ACBrNFCe1.NotasFiscais.Assinar;
                  ACBrNFCe1.NotasFiscais.Validar;

                  ACBrNFCe1.NotasFiscais.Imprimir;
               end;

        end
 

[Juliomar Marchetti]

Olhou os eventos do componente/

[paulocsc]

  Em 18/12/2020 at 19:00, Juliomar Marchetti disse:

Olhou os eventos do componente/

Expandir  

  Em 18/12/2020 at 19:00, Juliomar Marchetti disse:

Olhou os eventos do componente/

Expandir  

Tentei dessas duas maneiras ! 

                   nchave :=  ACBrNFCe1.EventoNFe.Evento.Items[0].InfEvento.chNFe;
                   nchave :=  ACBrNFCe1.EventoNFe.Evento.Items[0].RetInfEvento.chNFe; 

 

[Cleber Ferreira]

  Em 18/12/2020 at 13:41, paulocsc disse:

 

rapaz eu consegui com esse método muito obrigado, outra duvida quando a nota é enviada em contingencia eu consigo o numero de Chave ? 

Expandir  

Boa tarde,

eu faço assim:

copy(DMACBr.NFe.NotasFiscais.Items[0].NFe.infNFe.ID,4,44);

 

[paulocsc]

  Em 18/12/2020 at 20:54, Cleber disse:

Boa tarde,

eu faço assim:

copy(DMACBr.NFe.NotasFiscais.Items[0].NFe.infNFe.ID,4,44);

 

Expandir  

Show funcionou perfeito ! 

[Kiko Fernandes]

Obrigado por reportar.
Fechando o tópico. Para nova dúvida abra novo tópico.