UF não pode ser vazia. - Reenviar NFC-e

[Murilo Bragança]

Bom dia! 

Faço a emissão da NFC-e em modo de emissão teOffLine

  NotaF.NFe.Ide.natOp     := 'VENDA';
//  NotaF.NFe.Ide.indPag    := ipVista;
  NotaF.NFe.Ide.modelo    := 65;
  NotaF.NFe.Ide.serie     := dm.sql_configuracoesserienfce.AsInteger;
  NotaF.NFe.Ide.nNF       := SEQUENCIA_NFCE_PDV;
  Notaf.NFe.ide.cNF       := GerarCodigoDFe(SEQUENCIA_NFCE_PDV);
  NotaF.NFe.Ide.dEmi      := Now;
  NotaF.NFe.Ide.dSaiEnt   := Now;
  NotaF.NFe.Ide.hSaiEnt   := Now;
  NotaF.NFe.Ide.tpNF      := tnSaida;
  NotaF.NFe.Ide.tpEmis    := teOffLine;
  NotaF.NFe.Ide.tpAmb     := taProducao;  //Lembre-se de trocar esta variável quando for para ambiente de produção
  NotaF.NFe.Ide.verProc   := 'itasoftware_01'; //Versão do seu sistema
  NotaF.NFe.Ide.cUF       := 33;    //CODIGO DO ESTADO
  NotaF.NFe.Ide.cMunFG    := dm.SQL_empresaCodMunicipio.AsInteger;
  NotaF.nfe.ide.indPres   := pcPresencial;
  NotaF.NFe.ide.tpImp     := tiNFCe;
  NotaF.NFe.Ide.indFinal  := cfConsumidorFinal;
  NotaF.NFe.Ide.indPres   := pcPresencial;
  NotaF.NFe.Ide.xJust     := 'Sem conexão com a internet';
  NotaF.NFe.Ide.dhCont    := Now;
  Notaf.NFe.ide.idDest    := TpcnDestinoOperacao(0);

/*/*/*/*/*/*/

DEPOIS FAÇO O ENVIO

 

     dm.ACBrNFce1.NotasFiscais.Clear;
     dm.ACBrNFce1.NotasFiscais.LoadFromString(DM.SQL_nfceXmlNFCe.AsString, False);
     if dm.sql_configuracoesnota_ambiente.Value = '1' then
      begin
      dm.ACBrNFCe1.NotasFiscais.Add.NFe.Ide.tpAmb     := taProducao;  //Lembre-se de trocar esta variável quando for para ambiente de produção
      end
      else
      begin
      dm.ACBrNFCe1.NotasFiscais.Add.NFe.Ide.tpAmb    := taHomologacao;
      end;
     dm.ACBrNFce1.Enviar(0, False);

 

 

Editado 4 Maio, 2021 por Murilo Bragança

[BigWings]

18 minutos atrás, Murilo Bragança disse:

     if dm.sql_configuracoesnota_ambiente.Value = '1' then
      begin
      dm.ACBrNFCe1.NotasFiscais.Add.NFe.Ide.tpAmb     := taProducao;  //Lembre-se de trocar esta variável quando for para ambiente de produção
      end
      else
      begin
      dm.ACBrNFCe1.NotasFiscais.Add.NFe.Ide.tpAmb    := taHomologacao;
      end;

Está chamando o NotasFiscais.Add indevidamente, isso cria uma nova nota no lote.

[Murilo Bragança]

Obrigado

Tinha cometido outro erro também, na hora de gravar o xml

resolvido

 

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.