Jump to content
Notícias do ACBr

click.png

click.png

click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

click.png

click.png

click.png

  • Este tópico foi criado há 939 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

Boa noite Pessoal,

Na impressão da carta de correção está imprimindo a data/ hora de registro como 30/12/1899.

Li em em tópico que tenho que informar o

infEvento.chNFe

Já informei e mesmo assim não está trazendo está informação em branco, o que está faltando no caso estou informando os seguintes parâmetros na carta de correção

      ACBrNFe1.EventoNFe.Evento.Clear;

      with ACBrNFe1.EventoNFe.Evento.Add do
      begin
        infEvento.chNFe               := Chave;
        infEvento.CNPJ                := CNPJ;
        infEvento.dhEvento            := now;
        infEvento.tpEvento            := teCCe;
        infEvento.nSeqEvento          := StrToInt(nSeqEvento);
        infEvento.detEvento.xCorrecao := Correcao;
      end;

Alguém poderia me ajudar ?

 

 

Link to comment
Share on other sites

  • Moderadores
10 horas atrás, stetika disse:

Na impressão da carta de correção está imprimindo a data/ hora de registro como 30/12/1899.

A impressão não tem muito a haver com os dados informados no envio.

Ela é baseada nos XML da NFe e processamento de evento carregados no componente.

Fez o teste de impressão usando a opção "Imprimir evento" do demo do ACBrNFe?

  • Like 2
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link to comment
Share on other sites

Boa tarde BigWigs,

Estou fazendo sim.

Faço desta maneira

Citar

     ACBrNFeDANFeRL1.MostrarPreview := False;

     ACBrNFe1.NotasFiscais.Clear;

     ACBrNFe1.EventoNFe.Evento.Clear;
     ACBrNFe1.EventoNFe.LerXML(dmDados.dtsParametro.FieldByName('NOM_DIR_ENFE').AsString+'\'+StrZeros(dmDados.dtsEmpresaNF.FieldByName('COD_EMPRESA').AsString,4)+
                               '\CARTA_CORRECAO\'+StrZeros(IntToStr(RxMemoryData.FieldByName('NUM_NOTA').AsInteger),8)+'_'+nSeqEvento+'.xml');

     ACBrNFe1.ImprimirEvento;

 

 

grato,

Link to comment
Share on other sites

  • 2 weeks later...
  • Consultores

Bom dia.

Qual componente de impressão você está utilizando?

Att.

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 comment
Share on other sites

  • Este tópico foi criado há 939 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

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...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.