Carta de Correção

[stetika]

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 ?

 

 

[BigWings]

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?

[stetika]

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,

[Juliana Tamizou]

Bom dia.

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

Att.