Danfe consta no portal mas imprime como não enviada.

[porter]

olá pessoal,
Fiz uma consulta pelo portal da nota fiscal eletrônica de uma determinada DANFE, pela chave de acesso,
consta que foi Autorizada, tem o numero do protocolo tudo correto, faço a consulta pelo AcbrMonitor
mas quando imprimo, continua sendo impresso na DANFE: "NF-E NÃO ENVIADA PARA SEFAZ".

cNFeLog é o XML referente a essa DANFE
@ nLin,0 say "NFE.ConsultarNFe(" + cNFeLog + ")"

Se no portal consta como autorizada e faço a consulta, porque continua sendo impresso na DANFE como não enviada ?
Alguém já teve esse problema, obrigado.

Harbour 3.2.0dev (console)

[fladimir]

Já tive... vc usa o ACBr correto? Caso sim o problema ocorreu qdo retornou como autorizada e não foi gravado / atualizado o status e depois teu sistema tentou enviar novamente (ai acredito q tenha criado outro arquivo INI) q gerou um novo XML de mesma chave mas sem estar assinado, pra resolver isto a solução encontrada (caso não localize o XML assinado/autorizado é a seguinte)

pegue a chave da NF-e que esta com o problema e consulte no site da sefaz
vá em consulta/informações da NF-e detalhada.
na consulta detalhada, aparece o campo " DIGESTVALUE DA NF-E
copiar o que esta no campo
encontrar o XML da NF-e dentro da pasta RESPOSTA e editar o XML
para ajudar a encontrar o campo , dentro do bloco de notas pressione as tecla Ctrl+F e pesquise digestvalue
vai aparecer em apenas dois campos o primeiro que vai estar preenchido como por exemplo
digestevalue>HetadkmakasdJSFDKAHasdaksfna=<
e o segundo vai estar em branco disgestvalue>< ( esse não faz nada pode deixar assim mesmo )
substitui o digestvalue do XML da NF-e (que esta preenchido), pelo digestvalue que aparece no site do governo quando consultou
após, salvar o xml e contultar pelo ACBR o XML...
logo, o status esta autorizada o uso da NF-e.
só mandar imprimir que da certo e aparece protocolo de autorização etc...

Acredito q tenha solução mais simples, mas a q adotei e funcionou foi a acima... até o presente isto ocorreu 1 unica vez mês passado em um cliente q estava com uma versão desatualizada e após atualização etc não mais ocorreu.

[rubens]

Tá mandando imprimir o XMl Autorizado?
Quando consulta a chave não atualiza o xml.
Eu sempre mando consultar o xml porque aí se houve alguma atualização já atualiza o seu xml.
E sempre mando imprimir também o XML autorizado..

Rubens

[porter]

olá Rubens,
Sempre deu certo dessa forma, eu consulto o XML, apenas nesse caso que estou consultando mas não
surte efeito, o arquivo XML se encontra em:

C:\AcbrMonitorPlus\ARQS\99999999999999\NFE\201705\NFE\351799999999999999999999999999999999\NFE

cNFeLog é o XML referente a essa DANFE
@ nLin,0 say "NFE.ConsultarNFe(" + cNFeLog + ")"

[Jairo Maia]

Olá Pessoal,

faço a consulta pelo AcbrMonitor mas quando imprimo, continua sendo impresso na DANFE: "NF-E NÃO ENVIADA PARA SEFAZ"

Porter, nesse caso seu XML não será atualizado pelo ACBr. A atualização que o ACBr faz é colocar o protocolo quando falha o recebimento, mas ele não altera o corpo do XMl.

Para você resolver esse problema, você ou seu cliente terá que consultar a nota usando o certificado e baixar o XML diretamente da SEFAZ. Substitua esse errado pelo da SEFAZ e faça a impressão do DANFE.

[Toledo]

Amigos, eu criei uma função para fazer a atualização do xML, caso ele não tenha sido atualizado pelo ACBr na consulta.

Código: Selecionar todos

Function COMPL_NFE(c_VerAplic,c_cStat,c_xMotivo,c_DataHs,c_nProt,c_digVal,vChave,c_Lote)
Local vArq_Cp:=cDirNFe+SUBS(vChave,3,4)+"\nfe\"+vChave+"-NFe.xml"
Local vArq_Cp2:="C:\TEMP\"+vChave+"-NFx.xml"
Local vArq_Cp3:="C:\TEMP\"+vChave+"-NFe.xml"
if file(vArq_Cp2)
  FErase(vArq_Cp2)
endif
if file(vArq_Cp3)
  FErase(vArq_Cp3)
endif

if file(vArq_Cp)
  FErase(vArq_Cp)
endif

if !file(vArq_Cp)
  cFile:=cDrvAcbr+"ACBrMonitorPLUS\Lotes\Lote"+ALLTRIM(STR(val(c_Lote),10,0))+"\"+vChave+"-NFe.xml"
  if file(cFile)
    COPY FILE (cFile) TO (vArq_Cp)
  endif
endif
COPY FILE (vArq_Cp) TO (vArq_Cp2)
vcp_arq:=FOPEN(vArq_Cp2)
nFileSize = FSEEK( vcp_arq, 0, 2 )
FSEEK( vcp_arq, 0, 0 )
if FREADSTR( vcp_arq, 4 ) == "<NFe"
 FSEEK( vcp_arq, 0, 0 )
 vxcp_2:=FREADSTR( vcp_arq, nFileSize-2 )
 FCLOSE(vcp_arq)
 vcp_arq:=FCREATE(vArq_Cp3,0)
 vcp_txt:='<?xml version="1.0" encoding="UTF-8"?><nfeProc versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe">'
 FWRITE(vcp_arq,vcp_txt)
 FWRITE(vcp_arq,vxcp_2)
 vcp_dt:=SUBS(c_DataHs,7,4)+'-'+SUBS(c_DataHs,4,2)+'-'+LEFT(c_DataHs,2)
 vcp_hr:=RIGHT(c_DataHs,8)

 vcp_txt:='<protNFe versao="3.10"><infProt><tpAmb>1</tpAmb><verAplic>'+c_VerAplic+'</verAplic>'+;
          '<chNFe>'+vChave+'</chNFe>'+;
          '<dhRecbto>'+vcp_dt+'T'+vcp_hr+'</dhRecbto>'+;
          '<nProt>'+c_nProt+'</nProt>'+;
          '<digVal>'+c_digVal+'</digVal>'+;
          '<cStat>'+c_cStat+'</cStat>'+;
          '<xMotivo>'+c_xMotivo+'</xMotivo></infProt></protNFe></nfeProc>'+hb_eol()
 FWRITE(vcp_arq,vcp_txt)
 FCLOSE(vcp_arq)
 FErase(vArq_Cp2)
 FErase(vArq_Cp)
 COPY FILE (vArq_Cp3) TO (vArq_Cp)
 FErase(vArq_Cp3)
else
 FErase(vArq_Cp2)
endif
Return Nil

Os parâmetros que estou passando nesta função, pego todos eles no TXT de retorno da consulta no ACBr (SAINFE.TXT).

[NFExxx]
...
VerAplic=SP_NFE_PL_005d
CStat=100
XMotivo=Autorizado o uso da NF-e
...
ChNFe=35061700000000000130550000000000020000000027
DhRecbto=06/09/2009 11:29:00
NProt=135090013038101
DigVal=w7Ff+0camK1goMtr41AwiXx5xTE=

Na linha 26 da função acima, eu verifico se o xML foi atualizado, caso não tenha sido, então atualizo o xML.

Abraços

[fladimir]

Vlw Toledo, show de bola!!!