NFC-e com Duplicidade no primeiro envio

[Arnaldo Cruz]

procedure TFDataModule.AtualizaACBr;
var
    OK : Boolean;
    AnoA  : string ;
    iReto : Integer;
    NomeA,sTexto  : string ;
    Pat : string;
begin
    try
      AnoA := IntToStr(YearOf(Date));
      iReto:= MonthOf(Date);
      Pat :=  ExtractFilePath(Application.ExeName);
      if MultiEmpresa = 'S'  then
      begin
          NomeA := Pat + 'Envio\' + CnpjEmpresa + '\' + NomeDoMes(iReto,0) + AnoA ;
      end else begin
          NomeA := Pat + 'Envio\' + NomeDoMes(iReto,0) + AnoA ;
      end;
      if CAMINHOCERT <> '' then
      begin
          ACBrNFe1.Configuracoes.Certificados.ArquivoPFX  := CAMINHOCERT ;//LerCertificado(VsCaminho);
          ACBrNFe1.Configuracoes.Certificados.Senha       := SENHACERT ;
      end else begin
          ACBrNFe1.Configuracoes.Certificados.ArquivoPFX  := '';
          ACBrNFe1.Configuracoes.Certificados.NumeroSerie := SERIECERT;
          ACBrNFe1.Configuracoes.Certificados.Senha       := SENHACERT;
      end;
      ACBrNFe1.SSL.DescarregarCertificado;
      with ACBrNFe1.Configuracoes.Geral do
      begin
           SSLLib                    := TSSLLib(varCBSSLIB);
           SSLCryptLib               := TSSLCryptLib(varCBCRYPLIB);
           SSLHttpLib                := TSSLHttpLib(varCBHTTPLIB);
           SSLXmlSignLib             := TSSLXmlSignLib(varCBXMLSIG);
           ExibirErroSchema          := False ;
           FormatoAlerta             := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.';
           FormaEmissao              := StrToTpEmis(OK,IntToStr(FORMAEMISSAONFC));
           ModeloDF                  := moNFCe;
           VersaoDF                  := TpcnVersaoDF(VversaoDF);
           IdCSC                     := TOKEN; //000006
           CSC                       := CSC;  //804F6079-A0FF-066C-9BA9-1B5C0C7A3E0B
           Salvar                    := False;
           ValidarDigest             := True   ;
           RetirarAcentos            := False ;
           VersaoQRCode              := veqr300;
           ForcarGerarTagRejeicao938 := fgtNunca;
           AtualizarXMLCancelado     := False;
      end;
      ACBrNFe1.SSL.SSLType := TSSLType(varCBTYPE);

      if ACBrNFe1.DANFE <> nil then
      begin
          ACBrNFe1.DANFE.TipoDANFE  := StrToTpImp(OK,IntToStr(0));
      end;
      with ACBrNFe1.Configuracoes.WebServices do
      begin
           UF         := UFWEBNFC;
           if RBHOMONFC = True then
           begin
              Ambiente   := taHomologacao;
           end else begin
              Ambiente   := taProducao;
           end;
           Visualizar := false   ;
           Salvar     := false;
           AjustaAguardaConsultaRet := True;
           AguardarConsultaRet := TimeOut;
           IntervaloTentativas := 5000;
           TimeOut := TIMEOUT;
           Tentativas   := 5;
           ProxyHost := '';
           ProxyPort := '';
           ProxyUser := '';
           ProxyPass := '';
           VersaoQrCodeToStr(veqr300);
      end;
      with ACBrNFe1.Configuracoes.Arquivos do
      begin
           Salvar             := false;
           SepararPorMes      := false;
           AdicionarLiteral   := True;
           EmissaoPathNFe     := false;
           SalvarEvento       := false ;
           SepararPorCNPJ     := False;
           SepararPorModelo   := False;
           PathSalvar         := NomeA ;
           PathSchemas        := Pat + 'Schemas\';
           PathNFe            := NomeA;
           PathInu            := NomeA;
           if MultiEmpresa = 'S'  then
           begin
              PathEvento         := Pat +'Evento\' + CnpjEmpresa;
           end else begin
              PathEvento         := Pat +'Evento';
           end;
           if not DirectoryExists(PathEvento) then
           begin
               ForceDirectories(PathEvento);
           end;
           if FileExists(Pat + 'ACBrNFeServicos.ini') then
           begin
               IniServicos := Pat + 'ACBrNFeServicos.ini';
           end;
      end;
      ACBrNFe1.Configuracoes.WebServices.AguardarConsultaRet := 18000;
      ACBrNFe1.Configuracoes.WebServices.AjustaAguardaConsultaRet := True;
      ACBrNFe1.Configuracoes.WebServices.IntervaloTentativas := 1500;
      //NOMEIMPRESSORA
      if (POSPRINTER = True) or (POSPRINTERT = True)  then
      begin
          if POSPRINTER = True  then
          begin
            FDataModule.ConfiguraPosPrinter(0);
          end else begin
            FDataModule.ConfiguraPosPrinter(1);
          end;
      end else begin
          ACBrNFe1.DANFE                 := ACBrNFeDANFCEFR1;
          if FOLHAA4 = False then
          begin
              ACBrNFeDANFCEFR1.FastFile       := Pat +  'DANFeNFCe3_50.fr3';
          end else begin
              ACBrNFeDANFCEFR1.FastFile       := Pat +  'DANFeNFCeA4.fr3';
          end;
          if LOGOTIPO = '' then
          begin
              if FileExists(ExtractFilePath(Application.ExeName) + 'logo_nfe_transparente.png') then
              begin
                  ACBrNFeDANFCEFR1.Logo           := ExtractFilePath(Application.ExeName) + 'logo_nfe_transparente.png';
              end;
          end else begin
              ACBrNFeDANFCEFR1.Logo           := LOGOTIPO;
          end;
          ACBrNFeDANFCEFR1.FastFileInutilizacao := ExtractFilePath(Application.ExeName) + 'INUTILIZACAONFCE.fr3';
          ACBrNFeDANFCEFR1.ExpandeLogoMarca     := False;
          ACBrNFeDANFCEFR1.FastFileEvento       := Pat + 'EVENTOS.fr3';
          ACBrNFeDANFCEFR1.MostraPreview        := False   ;
          ACBrNFeDANFCEFR1.Sistema              := 'CAIXANFC';
          ACBrNFeDANFCEFR1.Site                 := '';
          ACBrNFeDANFCEFR1.Impressora           :=  NOMEIMPRESSORA;
          ACBrNFeDANFCEFR1.ImprimeEmUmaLinha    := True ;
          ACBrNFeDANFCEFR1.ImprimeTributos      := trbSeparadamente;
          ACBrNFeDANFCEFR1.DescricaoPagamentos  := [icaTipo,icaBandeira,icaAutorizacao];
          ACBrNFeDANFCEFR1.ViaConsumidor        := VIACONSUMIDOR;
          ACBrNFeDANFCEFR1.ImprimeQRCodeLateral := True;
          ACBrNFeDANFCEFR1.ImprimeItens         := True;
      end;
    except
     
    end;
end;

FDataModule.AtualizaACBr;
FDataModule.ACBrNFe1.NotasFiscais.Clear ;
FDataModule.ACBrNFe1.WebServices.Enviar.Sincrono := True;
FDataModule.ACBrNFe1.WebServices.Enviar.Lote := '1';
FDataModule.ACBrNFe1.Configuracoes.Arquivos.Salvar := False  ;
FDataModule.ACBrNFeDANFCEFR1.ViaConsumidor := VIACONSUMIDOR;
FDataModule.ACBrNFeDANFCEFR1.ImprimeItens := True;
FDataModule.ACBrNFeDANFCEFR1.vTroco := edtTroco.Value ;

try
  FDataModule.ACBrNFe1.Enviar('1', False ,True);
except
  on E: Exception do
  begin
      error := True;
      MensagemErro := E.Message;
  end;
end;
      
if error = False then
begin
  ChaveNfc  := FDataModule.ACBrNFe1.NotasFiscais[0].NFe.procNFe.chNFe;
  Protocol  := FDataModule.ACBrNFe1.NotasFiscais[0].NFe.procNFe.nProt;
  cStat     := IntToStr(FDataModule.ACBrNFe1.NotasFiscais[0].NFe.procNFe.cStat) ;
  xmotivo   := FDataModule.ACBrNFe1.NotasFiscais[0].NFe.procNFe.xMotivo ;
  Resultado   := TratarRetornoSemErro(cStat,xmotivo,Protocol,ChaveNfc,Caminho,ChaveAtual,NomeA,IDNFC);
end else begin //Voltou com erro
  Resultado := TratatarRetornoComErro(MensagemErro,ChaveNfc,ChaveAtual,Caminho,NomeA,IDNFC);
end;

Pessoal gostaria de saber de vocês se tem algum procedimento que está faltando, pois minhas notas
estão voltando com retorno de duplicidade no primeiro envio , e em alguma vezes cai no exeption
com Connection TimeOut, porem a nota é transmitida. mesmo eu colocando o time para 60.000
 

[Sérgio Assunção]

Se está acusando duplicidade é porque o número da NFCe que está tentando usar já foi emitido em outro momento.

Revise o seu código, pois está passando um valor fixo para o número do cupom ...

FDataModule.ACBrNFe1.Enviar('1', False ,True)

 

Editado 6 Setembro, 2025 por Sérgio Assunção

[Sérgio Assunção]

13 horas atrás, Sérgio Assunção disse:

Se está acusando duplicidade é porque o número da NFCe que está tentando usar já foi emitido em outro momento.

Revise o seu código, pois está passando um valor fixo para o número do cupom ...

FDataModule.ACBrNFe1.Enviar('1', False ,True)

 

Retificando ... no trecho de código acima, você está passando a numeração do lote de forma fixa, veja se no momento de gerar a NFC-e se você não está fazendo igual ou se está tendo controle da numeração.

[Arnaldo Cruz]

Sergio eu utilizo '1' porque eu envio nota a nota - e a duplicidade está acontecendo de fato no primeiro envio - isso foi a primeira coisa que verifiquei pra garantir que a numeração já estivesse sido usada.

a verificação da numeração foi xecada ardualmente pra garantir que cada nota tenha um numero sequencial

 

eu peguei  um Caixa do cliente e trouxe pra minha maquina pra poder debugar o codigo ,ele ficou usando a serie 2 e eu a serie 1 - verifiquei o ultimo numero de nota emitidas, liguei pro contador pedi pra ele puchar todas as notas emitidas dentro do mês,

exemplo no sistema ultima nota emitida 5755 informado pelo contador 5755 - proxima nota 5756 debugando no comando FDataModule.ACBrNFe1.Enviar('1', False ,True),

 

 Situação 1 emissão da nota 5756 - FDataModule.ACBrNFe1.Enviar('1', False ,True)

 retorno volta 204 

Pego a chave da nota e consulto no svrs e a nota consta como recebido.

Uma observação a nota constante da sefaz bate em data,hora, minuto e segundo com a nota enviada computado no sistema

 

Situação 2  emissão da nota 5757 - FDataModule.ACBrNFe1.Enviar('1', False ,True)

Protocolo ,Cstat,xmotivo volta vazio

Pego a chave da nota e consulto no svrs e a nota consta como recebido.

Uma observação a nota constante da sefaz bate em data,hora, minuto e segundo com a nota enviada

 

Situação 3 emissão da nota 5758 - FDataModule.ACBrNFe1.Enviar('1', False ,True)

Cai no exception com mensagem de Connection Time Out mesmo o time Out  mesmo alimentando o componenete com valor de  60.000

Pego a chave da nota e consulto no svrs e a nota consta como recebido.

Uma observação a nota constante da sefaz bate em data,hora, minuto e segundo com a nota enviada

Editado 8 Setembro, 2025 por Arnaldo Cruz

[Arnaldo Cruz]

Só pra reforcar acabou de acontecer, emiti a nota com a numeração 76519 deu a duplicidade, deixei na pendencia e emiti a 76520,76521,76522 sem dá problema,

quando fui emitir a 76523 voltou retorno 204 duplicidade

 

[Arnaldo Cruz]

Um exmplo pego pelo debug.

gero o XML com a chave >>>>25250912051558000185650010000765231281724681

volta retorno 204 e a chave da nota que supostamente já foi transmitida  25250912051558000185650010000765231281724681

observe que é a mesma chave.

porem se eu fizer um consulta pela chave 25250912051558000185650010000765231281724681 retorna nota não localizada

mas se eu for la no site da SRVS e consultar a nota pela chave 25250912051558000185650010000765231281724681 ela aparece.

 

Vejam que no processo todo, envio,retorno,consulta sem localizar e consulta no site a chave é a mesma 25250912051558000185650010000765231281724681

 

 

[Vilmardiogo]

23 horas atrás, Arnaldo Cruz disse:

Um exmplo pego pelo debug.

gero o XML com a chave >>>>25250912051558000185650010000765231281724681

volta retorno 204 e a chave da nota que supostamente já foi transmitida  25250912051558000185650010000765231281724681

observe que é a mesma chave.

porem se eu fizer um consulta pela chave 25250912051558000185650010000765231281724681 retorna nota não localizada

mas se eu for la no site da SRVS e consultar a nota pela chave 25250912051558000185650010000765231281724681 ela aparece.

 

Vejam que no processo todo, envio,retorno,consulta sem localizar e consulta no site a chave é a mesma 25250912051558000185650010000765231281724681

 

 

O que o Arnaldo Cruz relata faz sentindo. Percebi isso desde do dia 01/09/2025, diversos clientes relatando o problema de Duplicidade, sempre após o erro de Time Out. É enviado a NFC-e conforme descrito por ele, retorna erro de time out só que o xml é enviado e autorizado no webservice. O que não entendi é o motivo de não estar conseguindo pegar o retorno da autorização ao invés do erro de Time out. 

[datilas]

no meu caso, quando recebo um erro de time out faço uma consulta logo em seguida. isso resolveu eu problema.

[valterpatrick]

Coloca para gerar o número de lote de forma automática pelo ACBr, tem um exemplo no Demo e também verifique estas chaves de acesso que estão voltando como duplicidade, pode ser que para esta série já foi emitido uma nota fiscal com este número algum tempo atrás, se for o caso, aconselho a trocar a série, desta forma começaria uma nova série e ai não teria problema de duplicidade a não ser que tenha notas emitidas nesta série anteriormente.
 

[Vilmardiogo]

2 horas atrás, valterpatrick disse:

Coloca para gerar o número de lote de forma automática pelo ACBr, tem um exemplo no Demo e também verifique estas chaves de acesso que estão voltando como duplicidade, pode ser que para esta série já foi emitido uma nota fiscal com este número algum tempo atrás, se for o caso, aconselho a trocar a série, desta forma começaria uma nova série e ai não teria problema de duplicidade a não ser que tenha notas emitidas nesta série anteriormente.
 

Olá Valter, onde no Demo tem este exemplo. Já verifiquei e só achei o vNumLote := '1'.

[valterpatrick]

Você pode fazer o seguinte:

• Gerar o lote a partir de um número aleatório;
• Gerar o lote a partir de um número auto incremento do banco de dados;

Eu sei o ACBr tem um método para gerar o lote aleatoriamente ou baseado em alguns dados, mas não lembro o nome da função e em qual unit está, teria de pesquisar nos fontes, mas as soluções acima resolvem, eu mesmo uso a primeira.

Mas creio que o seu problema não esteja relacionado ao número do lote, mas sim as outras coisas que descrevi lá.

[Vilmardiogo]

Obrigado pelo retorno!

Mas com relação as demais coisa já foi feito checagem e está tudo certo. Como relatei nos posts acima isso começou acontecer a partir dia 01/09/2025. Única alteração foi no parametro do componente de Assíncrona para Síncrona. 

[valterpatrick]

12 horas atrás, Vilmardiogo disse:

Obrigado pelo retorno!

Mas com relação as demais coisa já foi feito checagem e está tudo certo. Como relatei nos posts acima isso começou acontecer a partir dia 01/09/2025. Única alteração foi no parametro do componente de Assíncrona para Síncrona. 

Mas está normal agora?

[Vilmardiogo]

Não está normal, em alguns clientes ainda continua acontecendo, mas percebi que tem diminuído. Estamos acompanhando pra tentar descobrir o que está causando isso. 

[Juliomar Marchetti]

Trate a questão de emissão e não vem o retorno ou quando dá algo diferente de não vir a nota para consultar ela. antes de emitir 

creio que não vá dá mais 

[Arnaldo Cruz]

Em 11/09/2025 at 12:06, Vilmardiogo disse:

Olá Valter, onde no Demo tem este exemplo. Já verifiquei e só achei o vNumLote := '1'.

 

Em 11/09/2025 at 17:17, valterpatrick disse:

Você pode fazer o seguinte:

• Gerar o lote a partir de um número aleatório;
• Gerar o lote a partir de um número auto incremento do banco de dados;

Eu sei o ACBr tem um método para gerar o lote aleatoriamente ou baseado em alguns dados, mas não lembro o nome da função e em qual unit está, teria de pesquisar nos fontes, mas as soluções acima resolvem, eu mesmo uso a primeira.

Mas creio que o seu problema não esteja relacionado ao número do lote, mas sim as outras coisas que descrevi lá.

meu envio é nota a nota e não em lote, se eu incrementar o numero de lote não vou acabar gerando outro problema ?.

De fato diminuiu bastante as ocorrências, mas continua acontecendo umas 5 notas por dia em cada cliente.

A questão da serie eu tenho absoluta certeza que não é, e que também as duplicidades as notas não foram enviadas duas vezes, a prova é que no primeiro envio quando volta a chave a duplicidade

ela é a mesma que estou enviando como primeiro envio, eu faço a consulta pela chave e volta nota não localizada, ai eu pego a chave da nota vou no site SVRS e faço a consulta e a nota

está lá.

[Juliomar Marchetti]

43 minutos atrás, Arnaldo Cruz disse:

meu envio é nota a nota e não em lote, se eu incrementar o numero de lote não vou acabar gerando outro problema ?.

não. pode usar até o mesmo. pois não faz diferença enão vai ser ele quem duplica a nota

44 minutos atrás, Arnaldo Cruz disse:

ela é a mesma que estou enviando como primeiro envio, eu faço a consulta pela chave e volta nota não localizada, ai eu pego a chave da nota vou no site SVRS e faço a consulta e a nota

está lá.

Então é quaase certo que essas notas desta serie já foram emitidas.

[Arnaldo Cruz]

8 horas atrás, Juliomar Marchetti disse:

não. pode usar até o mesmo. pois não faz diferença enão vai ser ele quem duplica a nota

Então é quaase certo que essas notas desta serie já foram emitidas.

Pra sanar esta duvida, eu peguei a chave da nota antes de transmitir e fiz a consulta direta no site, e retornou nota não localizada.

fiz a transmissão e voltou nota em duplicidade , e o engraçado é que no retorno a chave que diz está em duplicidade é a mesma que consultei e que faço o envio,

em alguns casos após uns dois minutos faço a consulta da nota ela é localizada no sefaz então eu faço só a validação do envio, porem em outros casos quando faço a consulta a nota não é localizada,

então eu faço a consulta direta pelo site ai sim ela é localizada ai eu baixo o XML(Pra confirmar que o xml baixado é o mesmo que envie eu abro o xml baixado e o que foi gerado pelo sistema, e estão igualzinho,

Chave,Valores,"DigestValue", "a unica diferença é que no que foi gerado pelo sistema ainda não tem numero de protocolo, porque quando peguei a chave gerada ainda não tinha sido enviado".

 

Outra questão não tem como numeração e serie já ter sido enviado antes- o cliente está na nota 15000 serie 1 com um único caixa.

[Juliomar Marchetti]

2 horas atrás, Arnaldo Cruz disse:

fiz a transmissão e voltou nota em duplicidade , e o engraçado é que no retorno a chave que diz está em duplicidade é a mesma que consultei e que faço o envio,

Então veja se tu não tá enviando duas vezes a nota

veja depurando e colocando pontos de paradas aos comandos enviar que existem no seu fonte em todos os locais e dispare

[lucasborges8068]

Está acontecendo comigo também. Tanto modelo 65, quanto 55.

No modelo 55 eu acompanho no debug todo o processo de geração do código numérico e chave, e no erro de duplicidade no primeiro envio ele retorna que já existe no sefaz só que com outro código numérico. 

Consegui reproduzir o erro forçando Time Out, como citado acima pelo colega. 

[Juliomar Marchetti]

26 minutos atrás, lucasborges8068 disse:

Está acontecendo comigo também. Tanto modelo 65, quanto 55.

No modelo 55 eu acompanho no debug todo o processo de geração do código numérico e chave, e no erro de duplicidade no primeiro envio ele retorna que já existe no sefaz só que com outro código numérico. 

Consegui reproduzir o erro forçando Time Out, como citado acima pelo colega. 

se salvar todos os soaps gerados pra enviar o xml nenhum deles bate do mo cNF?

[lucasborges8068]

18 horas atrás, Juliomar Marchetti disse:

se salvar todos os soaps gerados pra enviar o xml nenhum deles bate do mo cNF?

Não. Nenhum dos arquivos soaps bate com a chave que o sefaz retorna como duplicidade. 

[everson.turossi]

Nos primórdios do MDF-e enfrentei uma situação semelhante no uso do modo Síncrono. O que acontecia é que por erro interno de comunicação no próprio Sefaz, me era retornado um erro como se estivesse sem conectividade, toda via, o Sefaz havia recebido o MDF-e e processado, apenas não me dava o retorno correto. Quando tentava enviar novamente, dava como duplicidade.

Agora pude perceber que a propriedade Tentativas está definida como 5 e se o que aconteceu comigo aquela vez no MDF-e possa estar acontecendo em situações esporádicas e há de esperar que o ACBrNFe tente retransmitir se a resposta que teve foi uma negativa de conexão, mas pode o Sefaz ter recebido sim a NFe e a processou.

 

[Dyego Noé]

Olá bom dia, alguém encontou solução, para esse problema?

[Juliomar Marchetti]

Tentou a sugestões acima?