Nota fala q não foi, depois fala q ta em duplicidade

[guimamonteiro]

Seguinte, um cliente SEMPRE da essas coisas, tenho 15 clientes q usam o mesmo sistema, mas com ele sempre da isso ... Aparece a mensagem em vermelho q a nota não foi enviada e depois tenta mandar de novo e ela realmente já tinha sido enviada. Abro o xml e tem a chave de resposta e tudo mais, consulto e ela realmente foi enviada, só q o cliente não consegue imprimir sem esse escrito em vermelho, não da pra mandar para o cliente dele isso. 

Alguém tem ideia do q pode estar ocorrendo ? Alguma dica ou direção ??

Da problema em 20% das notas enviadas.

No aguardo e MUITO OBRIGADO

Guilherme

[Ricardo Miquinioty]

Boa tarde, isso acontece quando a SEFAZ não retorna o número de protocolo, dá para você tratar isto verificando se não veio o número de protocolo, assim, faz uma consulta, se vier o número de protocolo o XML fica atualizado para posterior impressão, se não vier o número de protocolo avisa o usuário para enviar novamente.

Sds,

Ricardo.

[felipetomm]

Em 03/03/2017 at 15:37, Ricardo Miquinioty disse:

Boa tarde, isso acontece quando a SEFAZ não retorna o número de protocolo, dá para você tratar isto verificando se não veio o número de protocolo, assim, faz uma consulta, se vier o número de protocolo o XML fica atualizado para posterior impressão, se não vier o número de protocolo avisa o usuário para enviar novamente.

Sds,

Ricardo.

Boa tarde. Na mosca Ricardo.

Estava com o mesmo problema.

Para garantir (não sei se é "válido"), adicionei uma verificação da chave na sefaz. Assim, qualquer problema que tenha ocorrido no bloco abaixo, verifica na sefaz e atualiza o valor do protocolo.

try
	EnviouSefaz:= NFeNFCe.WebServices.Enviar.Executar;
except
    EnviouSefaz:= False;
end;

Esta é a função que faço a validação da chave:

try
    NFe.WebServices.Consulta.NFeChave:= Copy(NFe.NotasFiscais.Items[Pos].NFe.infNFe.ID,4,44);
    if NFe.WebServices.Consulta.Executar then
    begin
      if NFe.WebServices.Consulta.cStat = 100 then
      begin
        Result:= True;
        NFe.NotasFiscais.Items[Pos].NFe.procNFe.nProt:= NFe.WebServices.Consulta.protNFe.nProt;
        NFe.NotasFiscais.Items[Pos].NFe.procNFe.digVal:= NFe.WebServices.Consulta.protNFe.digVal;
        NFe.NotasFiscais.Items[Pos].NFe.procNFe.dhRecbto:= NFe.WebServices.Consulta.protNFe.dhRecbto;
      end
      else
      begin
        Tfrms_mensagem.Mensagem('MasterNFE: Nota '+NFe.WebServices.Consulta.NFeChave+' apresentou o seguinte retorno:'+sLineBreak+
                                NFe.WebServices.Consulta.XMotivo,'C',[mbOk]);
        Result:= False;
      end;
    end
    else Result:= False;
  except
    Result:= False;
  end;

 

[Ricardo Miquinioty]

Boa tarde @felipetomm , não sei analisar sua rotina, programo em outra linguagem, uso o ACBrMonitorPLUS, mas se deu certo, legal.

Sds,

Ricardo.