Perda do XML da NFC-e de SP

[Claudio Stein Junior]

Meu cliente ao enviar o xml perdeu pois o caminho não estava marcado, ao tentar enviar novamente deu duplicidade. Quando consulta com o XML diz que está autorizado, porém quando imprimo diz que NFC-e não enviado ao sefaz. Como resolver?

Obrigado

[Juliomar Marchetti]

1 hora atrás, Claudio Stein Junior disse:

Meu cliente ao enviar o xml perdeu pois o caminho não estava marcado, ao tentar enviar novamente deu duplicidade. Quando consulta com o XML diz que está autorizado, porém quando imprimo diz que NFC-e não enviado ao sefaz. Como resolver?

Obrigado

temque estar com as opção de salvar true e carregar o xml assinado e fazer a consulta de protocolo com o xml

mas deve ser o xml exatamente ao que foi enviado e dai ele vai adicionar o protocolo no xml

[Niets]

1 hora atrás, Juliomar Marchetti disse:

temque estar com as opção de salvar true e carregar o xml assinado e fazer a consulta de protocolo com o xml

mas deve ser o xml exatamente ao que foi enviado e dai ele vai adicionar o protocolo no xml

Então usei o botão de adicionar protocolo, porém de 3 notas apenas 1 delas adicionou. O Sefaz de SP hoje começou a dar problemas com a mensagem de consumo indevido. Vou aguardar amanhã para tentar enviar mais uma nfc-e e adicionar o protocolo nas duas notas restantes. Aí aviso aqui se deu tudo certo. Obrigado. 

[Claudio Stein Junior]

Hoje testei novamente no cliente, dois XMLs  já prontos não adicionam protocolo. E tenho mensagem de consumo indevido ao enviar uma nova nfc-e para SP. Vou postar parte do código para analise se estou fazendo algo errado? Acredito que o envio do sefaz de SP ainda é assíncrono. Após enviar dá consumo indevido, mas a nota é enviada corretamente, depois disso dá consumo indevido e  preciso adicionar o protocolo em outro botão e imprimir em outro botão ainda pois a procedure não consegue chegar na parte da impressão devido ao consumo indevido. Estou aberto a sugestões.

 

  ACBrNFe1.NotasFiscais.Clear;

  AcbrNfe1.Configuracoes.Arquivos.Salvar:=true;

  ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
  ACBrNFe1.Configuracoes.Geral.VersaoDF :=  TpcnVersaoDF(ve400);
  ACBrNFe1.Configuracoes.Geral.IdCSC := '000001';   // Exatamente 6 dígitos
  ACBrNFe1.Configuracoes.Geral.CSC := '' //codigo do meu cliente; 
  ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200;


  GerarNFCe(vAux);
  
  ACBrNFe1.Enviar(0);
  
  Recibo := ACBrNFe1.WebServices.Retorno.Recibo;
  
  // 6. VERIFICA SE O RECIBO FOI RETORNADO
  if Trim(Recibo) = '' then
  begin
      ShowMessage('Erro: Recibo não retornado pela SEFAZ.');
      Exit;
  end;

 // 7. CONSULTA O RECIBO PARA OBTER O PROTOCOLO DE AUTORIZAÇÃO
    ACBrNFe1.WebServices.Recibo.Recibo := Recibo;
    ACBrNFe1.WebServices.Recibo.Executar;
	
  ACBrNFe1.DANFE := ACBrNFeDANFCeFortes1;
  ACBrNFeDANFCeFortes1.TipoDANFE := tiNFCe;
  ACBrNFeDANFCeFortes1.MostraPreview := True; // mostra na tela
  ACBrNFeDANFCeFortes1.MostraSetup := False;  // não mostra diálogo da impressora


  if ACBrNFe1.WebServices.Recibo.cStat = 104 then
  begin
    ACBrNFe1.NotasFiscais.Imprimir;
  end
  else
  begin
      ShowMessage('Erro na autorização: ' + ACBrNFe1.WebServices.Recibo.xMotivo);
  end;

 ACBrNFe1.NotasFiscais.Clear;

 

 

Editado 18 Julho por Claudio Stein Junior

[leandroaoa]

Voce tem que carregar o arquivo XML no componente atraves do loadfromfile pra depois efetuar a consulta 

 

[Niets]

5 minutos atrás, leandroaoa disse:

Voce tem que carregar o arquivo XML no componente atraves do loadfromfile pra depois efetuar a consulta 

 

Na hora que vou emitir a nfc-e? Antes de consultar o recibo? 

[leandroaoa]

Antes de consultar
      ACBrNFe1.NotasFiscais.Clear;
      ACBrNFe1.NotasFiscais.LoadFromFile(CaminhoXML);
      ACBrNFe1.Consultar;
 

[Claudio Stein Junior]

Fiz assim agora:

 

  ACBrNFe1.NotasFiscais.Clear;

  AcbrNfe1.Configuracoes.Arquivos.Salvar:=true;

  ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
  ACBrNFe1.Configuracoes.Geral.VersaoDF :=  TpcnVersaoDF(ve400);
  ACBrNFe1.Configuracoes.Geral.IdCSC := '000001';   // Exatamente 6 dígitos
  ACBrNFe1.Configuracoes.Geral.CSC := '2a736a7f-bc18-41dd-94dc-7d4c80484477'; 
  ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200;


  GerarNFCe(vAux);
  
  ACBrNFe1.Enviar(0);
  
  Recibo := ACBrNFe1.WebServices.Retorno.Recibo;
  
  // 6. VERIFICA SE O RECIBO FOI RETORNADO
  if Trim(Recibo) = '' then
  begin
      ShowMessage('Erro: Recibo não retornado pela SEFAZ.');
      Exit;
  end;
  
  // 7. Pega o nome do arquivo XML salvo
    nomeXML := ACBrNFe1.NotasFiscais.Items[0].NomeArq;
   
  // 8. Recarrega o XML com LoadFromFile
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(NomeXML);

 // 9. CONSULTA O RECIBO PARA OBTER O PROTOCOLO DE AUTORIZAÇÃO
    ACBrNFe1.WebServices.Recibo.Recibo := Recibo;
    ACBrNFe1.WebServices.Recibo.Executar;
	
  ACBrNFe1.DANFE := ACBrNFeDANFCeFortes1;
  ACBrNFeDANFCeFortes1.TipoDANFE := tiNFCe;
  ACBrNFeDANFCeFortes1.MostraPreview := True; // mostra na tela
  ACBrNFeDANFCeFortes1.MostraSetup := False;  // não mostra diálogo da impressora


  if ACBrNFe1.WebServices.Recibo.cStat = 104 then
  begin
    ACBrNFe1.NotasFiscais.Imprimir;
  end
  else
  begin
      ShowMessage('Erro na autorização: ' + ACBrNFe1.WebServices.Recibo.xMotivo);
  end;

Testei e continua dando consumo indevido em SP.

[Claudio Stein Junior]

Inclusive testei sincrono e assincrono.

[Juliomar Marchetti]

no envio é só Sincrono de NFCe isso é nacional.

consumo indevido ou e consultar N vezes o status, ou ter alguma thread ou robo que fica fazendo esse tipo de consulta de xml um atrás do outro.

ou se está usando a distribuicaoDFe em varios locais

[Niets]

9 minutos atrás, Juliomar Marchetti disse:

no envio é só Sincrono de NFCe isso é nacional.

consumo indevido ou e consultar N vezes o status, ou ter alguma thread ou robo que fica fazendo esse tipo de consulta de xml um atrás do outro.

ou se está usando a distribuicaoDFe em varios locais

Resolvido o problema é que no enviar passava apenas 1 parâmetro. Enviar(1), agira passei os 3 parâmetros e deu certo. 
 

Obrigado mais uma vez. 

[leandroaoa]

Nao entendi esse seu processo voce esta gerando a NFCe e enviando ou so quer consutar ?
se voce estiver emitindo NFCe é so fazer 
ACBrNFe1.Enviar(idLote,False,True); e depois pegar o o resultado 
     protocolo     := ACBrNFe1.NotasFiscais[0].NFe.procNFe.nProt;
     recibo          := ACBrNFe1.WebServices.Enviar.Recibo;
     chave          := ACBrNFe1.NotasFiscais[0].NFe.procNFe.chNFe+'-nfe.xml';
     digestvalue := ACBrNFe1.NotasFiscais[0].NFe.procNFe.digVal;
     dthrautorizacao := ACBrNFe1.NotasFiscais[0].NFe.procNFe.dhRecbto;
     cstatus   := ACBrNFe1.WebServices.Enviar.cStat;
nao precisa recarregar o componente e fazer consulta novamente. voce so recarrega o componente novamente e faz consulta se precisar alterar o xml com dados de retorno sugiro dar uma olhada nos fontes

[Juliomar Marchetti]

48 minutos atrás, leandroaoa disse:

Nao entendi esse seu processo voce esta gerando a NFCe e enviando ou so quer consutar ?
se voce estiver emitindo NFCe é so fazer 
ACBrNFe1.Enviar(idLote,False,True); e depois pegar o o resultado 
     protocolo     := ACBrNFe1.NotasFiscais[0].NFe.procNFe.nProt;
     recibo          := ACBrNFe1.WebServices.Enviar.Recibo;
     chave          := ACBrNFe1.NotasFiscais[0].NFe.procNFe.chNFe+'-nfe.xml';
     digestvalue := ACBrNFe1.NotasFiscais[0].NFe.procNFe.digVal;
     dthrautorizacao := ACBrNFe1.NotasFiscais[0].NFe.procNFe.dhRecbto;
     cstatus   := ACBrNFe1.WebServices.Enviar.cStat;
nao precisa recarregar o componente e fazer consulta novamente. voce so recarrega o componente novamente e faz consulta se precisar alterar o xml com dados de retorno sugiro dar uma olhada nos fontes

Ele deve estar tratando para casos em que perdeu a conexão e não veio o xml completo.

que no caso seguiria,

gerar xml

assina

consulta protocolo

se existir gera o xml e pronto encerra

senão vai para o envio ao sefaz

não vai ter problemas de duplicidade ou perca de xml