NFE Autorizada e impressa, mas PDF gerado como pendente...

[paulobergo]

Olá pessoal...

Estamos enviando as NF-e com o ACBrNFeMonitor... quase tudo ok até agora...

O único problema é que o PDF que segue junto com o xml pelo email do destinatário vai como pendente de autorização (NFE Ainda não foi autorizada pela SEFAZ)...

Com isso, nossa solução até agora foi imprimir a NF-e em PDF (em troca de fazer a impressão diretamente na impressora laser), usando a impressora doPDF v7, e salvando estes PDFs em Meus Documentos\NF-e\Autorizadas... e, depois, encaminhando por email para os destinatários...

A sequência que usamos é esta:

a) Criamos a NF-e a partir de um arquivo texto

NFe.CriarNFe(c:\temp\nfe.txt,0)

Enviamos o xml, validando, assinando e imprimindo

NFe.EnviarNFe('+NFe.XMLArq+',1,1,1,'+

'"'+NFe.ImpressDanfe+'")

* Neste momento, a impressora PDF (doPDF v7) abre sua caixa de diálogo, é gerado o PDF da NFE, devidamente autoriazado e tudo mais... e gravamos este PDF na pasta Meus Documentos\NF-e\Autorizadas...

c) Enviamos o email...

NFe.EnviarEmail('+Trim(NFe.Email2Send)+','+

NFe.XMLArq+',1,"Nota Fiscal")

Pronto... PDF impresso (no passo , depois impresso em papel e mercadoria despachada...

Então, se olharmos o PDF no email, veremos que está diferente daquele que foi impresso

no passo (, isto é, o PDF no email consta não autorizado...

Tentamos também usar a opção de impressão do DANFE em PDF

NFe.ImprimirDANFEPDF('+NFe.XMLArq+')

Mas também gera um PDF com a NF-e ainda não autorizada...

O que está faltando fazer?

Grato por qualquer dica!!!

Ah... o código é o seguinte...

(...pulando aqui a geração do arquivo texto tipo "ini" com os dados da NF-e...)

  NFe.slResposta.Clear;

  If FileExists(NFe.ArqResposta) then

    Begin

      DeleteFile(NFe.ArqResposta);

    End;

  {EndIf}


  Nfe.Pedido := 'CriarNFe';

  NFeForm.Show;

  NFe.slEnvio.Clear;

  NFe.slEnvio.Add('NFe.CriarNFe(c:\temp\nfe.txt,0)');

  NFe.Status := -1;

  NFe.slEnvio.SaveToFile(NFe.ArqEnvio);

  NFe.Waiting := True;

  bStatus('Aguardando Resposta da NFe...');

  While NFe.Status<0 do Begin

    Application.ProcessMessages;

  End;

  If NFe.Status=1 then

    Begin

      // Resposta da NFe Ok. Pegar o XML. Assinar. ******************** Início.

      sTemp := NFe.slResposta.Strings[0];

      NFe.XMLArq := TrimLeft(TrimRight(Copy(sTemp, 4, Length(sTemp)-3)));

      iPosXML    := Pos('.xml', NFe.XMLArq);

      If iPosXML>0 then

        NFe.XMLArq := Copy(NFe.XMLArq, 1, iPosXML+3)

      Else

        iPosXML := 0;

      {EndIf}

      If iPosXML=0 then

        ShowMessage('Falha no Arquivo ('+IntToStr(iPosXML)+')'+cr+NFe.XMLArq)

      Else

        Begin

          // ********************* Enviar NFe ********** Início.

          Nfe.Pedido := 'EnviarNFe';

          NFe.slEnvio.Clear;

          NFe.slEnvio.Add('NFe.EnviarNFe('+NFe.XMLArq+',1,1,1,'+

                          '"'+NFe.ImpressDanfe+'")');

          NFe.Status := -1;

          NFe.slEnvio.SaveToFile(NFe.ArqEnvio);

          NFe.Waiting := True;

          bStatus('Aguardando Resposta da NFe...');

          While NFe.Status<0 do Begin

            Application.ProcessMessages;

          End;

          // ********************* Enviar NFe ********** Final.


          If (NFe.Status=1) and (NFe.EnviarEmail) then

            Begin

              // ************** Enviar Email e PDF. ************* Início.

              Nfe.Pedido := 'EnviarEmail';

              NFe.slEnvio.Clear;

              NFe.slEnvio.Add('NFe.EnviarEmail('+Trim(NFe.Email2Send)+','+

                              NFe.XMLArq+',1,"Nota Fiscal")');

              NFe.Status := -1;

              NFe.slEnvio.SaveToFile(NFe.ArqEnvio);

              NFe.Waiting := True;

              bStatus('Aguardando Resposta da NFe...');

              While NFe.Status<0 do Begin

                Application.ProcessMessages;

              End;

              // ************** Enviar Email e PDF. ************* Fim.

            End;

          {EndIf}


          If (NFe.Status=1) and NFe.GerarPDF then

            Begin

              // ******************* Gerar Arquivo PDF *********** Início.

              Nfe.Pedido := 'ImprimirDANFEPDF';

              NFe.slEnvio.Clear;

              NFe.slEnvio.Add('NFe.ImprimirDANFEPDF('+NFe.XMLArq+')');

              NFe.Status := -1;

              NFe.slEnvio.SaveToFile(NFe.ArqEnvio);

              NFe.Waiting := True;

              bStatus('Aguardando Resposta da NFe...');

              While NFe.Status<0 do Begin

                Application.ProcessMessages;

              End;

              // ******************* Gerar Arquivo PDF *********** Fim.

            End;

          {EndIf}


          // ********************* Enviar NFe ********** Fim.

        End;

      {If iPosXML=0}

      // Resposta da NFe Ok. Pegar o XML. Assinar. ******************** Início.

    End;

  {EndIf NFe.Status=1}

  If NFe.Autorizada=1 then

    Begin

      sMsg := 'NF-e Autorizada. '+cr+

              'Protocolo Número: '+NFe.Protocolo_Nr+cr+

              'Data: '+DateToStr(NFe.Protocolo_Data)+' '+NFe.Protocolo_Hora+cr+

              'Chave: '+NFe.Chave+cr+

              'Email/Destino: '+NFe.Email2Send+cr;

      If not (NFe.Status=1) then

        sMsg := sMsg+'Mas houve uma falha. Verificar as mensagens.';

      {EndIf}

      NFe.Detalhe := sMsg;

    End

  Else

    NFe.Detalhe := 'Falha na geração ou autorização da NF-e. Verificar as mensagens.';

  {EndIf}

[André Ferreira de Moraes]

Vc precisa configurar o ACBrNFeMonitor para salvar os arquivos enviados e recebidos dos WebServices.

Use a busca antes de postar, já existem outros tópicos sobre o mesmo assunto.

[paulobergo]

Grato pela resposta!

Claro que pesquisei bastante, mas realmente não encontrei (ainda) nada sobre como configurar o ACBrNFeMonitor para salvar os arquivos enviados e recebidos dos WebServices e que isso afeta diretamente o envio do DANFE em PDF quando encaminhado por email junto com o XML... daí postar a pergunta...

Quanto à solução, observei que:

a) no computador que está enviando as NF-e no ambiente de produção, a opção Salvar Arquivos de Envio e Resposta, do box WebService, com UF de destino = MG, já estava marcada e a pasta selecionada é C:\ACBrNFeMonitor\Logs.

Então, irei mudar a pasta para C:\ACBrNFeMonitor\WebService para ver se resolve...

c) Em outro computador, usado para desenvolvimento, com o ambiente de homologação ativado, também WebService MG, que estava previamente com a opção desmarcada, ao ativar a opção e escolher uma pasta como a C:\ACBrNFeMonitor\WebService resolveu o problema, ou seja, o PDF do DANFE encaminhado junto com o XML passou a ser o mesmo já devidamente autorizado e impresso.

Assim que testar a solução (, posto a resposta aqui...

Grato e abraços!

[nasser]

alguma solução encontrada para este problema?