CPF não aparece na Carta de Correção

[Werner_Marques]

Bom dia 

Estou com um problema na Carta de Correção, quando o destinatário é pessoa física, CPF,  não sai na  impressão da carta, quando CNPJ está saindo normalmente. Estou usando o CCeImp, VMXCCePrint.pas para impressão, alguém poderia explicar o que pode esta acontecendo?

[André Ferreira de Moraes]

O que são esses arquivos CCeImp, VMXCCePrint.pas?

[Werner_Marques]

No processo de impressão ele executa isso:

   CCeImp1.defineLayOut(fp_Portrait); // implementado impressão retrato
  CCeImp1.defineSoftHouse('Empresa.');
  try
    CCeImp1.Execute;
  except
    raise erro.create('Erro na impressão do CC-e!');
  end;
  CCeImp1.Free;
 

Em seguida ele entra no  VMXCCePrint.pas

 

[André Ferreira de Moraes]

Esses arquivos são do ACBr?

[Werner_Marques]

Amigo, peço desculpas pois analisei o código e verifiquei que não é componente ACBr,  apenas o de gerar a Carta de Correção.

[André Ferreira de Moraes]

Use a impressão de eventos do componente, veja o demo.

  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
  end;
    
  OpenDialog1.Title := 'Selecione o Evento';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.EventoNFe.LerXML(OpenDialog1.FileName) ;
    ACBrNFe1.ImprimirEvento;
  end;     

 

[Werner_Marques]

Obrigado pela sugestão, vou analisar.