Jump to content

110.png

Curso Gratuito para todos Usuários
+ Super Treinamento Assinando o SAC Anual

botao_campanha_thulio.png

sem_ttulo-620.fw_-e1583866078274.png 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

renato.pavan

Validar Lote de NFe, nova propriedade

Recommended Posts

Boa tarde a todos!

Gero um lote com várias NFe no componente ACBRNFe, após carregar todas as propriedades do componente com várias notas, chamo os métodos conforme abaixo:

  dmPrincipal.NFe.NotasFiscais.GerarNFe;

  try
    dmPrincipal.NFe.NotasFiscais.Assinar;
  except
  end;

  try
    dmPrincipal.NFe.NotasFiscais.Validar;
  except
    //dmPrincipal.NFe.NotasFiscais.ItemIndex propriedade nova que eu criei
    dmPrincipal.NFe.NotasFiscais.Delete(dmPrincipal.NFe.NotasFiscais.ItemIndex);
  end;

Criei esta propriedade ItemIndex porque se alguma nota do lote esta com problema, removo ela do lote e prossigo com as que estão corretas.

Vocês acham viável a inclusão dessa propriedade no componente oficial, talvez com outro nome, uma vez que uso ela apenas no método validar.

Em anexo a unit alterada.

ACBrNFeNotasFiscais.pas


Renato Pavan

Desenvolvedor Delphi / PHP  – Campinas (SP)

 

RWA Sistemas

Share this post


Link to post
Share on other sites

Acho que é desnecessário... tente:

ACBrNFe1.NotasFiscais.Items[N].Index

 

 


Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

Obrigado Daniel,

Eu fiz como você disse:

dmPrincipal.NFe.NotasFiscais.Delete(dmPrincipal.NFe.NotasFiscais.Items[0].Index);

Eu imaginava que desta forma iria apagar a primeira nota do lote, devido ao Items[0], mas não, apagou exatamente a Nfe que simulei o erro.

Daniel,

Me enganei, ele apagou a primeira nota do lote, desta forma não da certo, preciso daquela propriedade que criei, justamente porque não tenho o N que você passou como sugestão.

No validar eu atribuo o valor de I pra esta nova propriedade,

Obrigado.


Renato Pavan

Desenvolvedor Delphi / PHP  – Campinas (SP)

 

RWA Sistemas

Share this post


Link to post
Share on other sites
  try
    for I := 0 to dmPrincipal.NFe.NotasFiscais.Count - 1 do
      dmPrincipal.NFe.NotasFiscais.Items[I].Validar;
  except
    dmPrincipal.NFe.NotasFiscais.Delete(I);
  end;

 


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

Projeto ACBr

 

 

Share this post


Link to post
Share on other sites
1 hora atrás, Daniel Simoes disse:

Acho que é desnecessário... tente:

ACBrNFe1.NotasFiscais.Items[N].Index

Obrigado BigWings.

 

Daniel,

Me enganei, ele apagou a primeira nota do lote, desta forma não da certo, preciso daquela propriedade que criei, justamente porque não tenho o N que você passou como sugestão.

No validar eu atribuo o valor de I pra esta nova propriedade,

Obrigado.


Renato Pavan

Desenvolvedor Delphi / PHP  – Campinas (SP)

 

RWA Sistemas

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...