Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

logos

Texto.png

p200

click.png

click.png

click.png

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


Go to solution Solved by BigWings,

Recommended Posts

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);

 

 

uff.png

Edited by Murilo Bragança
Link to post
Share on other sites
  • Solution
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.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link to post
Share on other sites

Obrigado por reportar.

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

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to post
Share on other sites
Guest
This topic is now closed to further replies.
×
×
  • Create New...