Ir para conteúdo
  • Cadastre-se

dev botao

Erro Ao Imprimir Danfe Em Pdf


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

Recommended Posts

Fiz uma aplicação para o usuário selecionar um arquivo xml de um DANFE e imprimir em PDF.

Ao tentar imprimir é exibida a mensagem de erro da imagem em anexo.

Com certeza estou fazendo algo errado.

Não sei em que propriedade devo informar o caminho solicitado.

Aguardo a ajuda dos colegas e desde já agradeço.

 

 

Obrigado.

 

Tadeu.

post-16189-0-58812000-1383669063.gif

Link para o comentário
Compartilhar em outros sites

Meu caro já fiz isso porém o projeto de exemplo trabalha com o Rave e não tenho ele instalado no meu Delphi.

Preciso utilizar com o Fast Report ou com o Fortes Report.

 

Obrigado.

unit fXMLtoPDF;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ACBrNFeDANFEClass, ACBrNFeDANFEFR,
  ACBrNFe, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Buttons, ACBrBase, ACBrEnterTab,
  ACBrCTeDACTEClass, ACBrCTeDACTEFR, ACBrCTe;
 
type
  TfrmXMLtoPDF = class(TForm)
    OpenDialog1: TOpenDialog;
    ACBrNFe1: TACBrNFe;
    ACBrNFeDANFEFR1: TACBrNFeDANFEFR;
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ACBrEnterTab1: TACBrEnterTab;
    ACBrCTe1: TACBrCTe;
    ACBrCTeDACTEFR1: TACBrCTeDACTEFR;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  frmXMLtoPDF: TfrmXMLtoPDF;
 
implementation
 
{$R *.dfm}
 
procedure TfrmXMLtoPDF.BitBtn1Click(Sender: TObject);
begin
  ACBrNFe1.NotasFiscais.ImprimirPDF;
end;
 
procedure TfrmXMLtoPDF.BitBtn2Click(Sender: TObject);
begin
  Application.Terminate;
end;
 
procedure TfrmXMLtoPDF.FormCreate(Sender: TObject);
begin
  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*-nfe.XML';
  OpenDialog1.Filter := 'Arquivos NFE (*.XML)|*.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := 'C:\';
end;
 
procedure TfrmXMLtoPDF.SpeedButton1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Edit1.Text  :=  OpenDialog1.FileName;
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
  end;
end;
 
end.
Link para o comentário
Compartilhar em outros sites

Ocorreu um fato muito estranho, eu informei o caminho via código compilei e rodei e deu certo na primeira vez mas depois quando tentei rodar novamente ele exibe a mensagem de erro em anexo.

Este programa tem que ler o xml e imprimir o DANFE partindo das informações do XML, com certeza preciso mexer em algumas propriedades.

Aguardo sua ajuda.

Obrigado.

 

Tadeu.

post-16189-0-36579900-1383740885.gif

Link para o comentário
Compartilhar em outros sites

Boa tarde Régys.

O DANFE em PDF funcionou era mesmo o arquivo errado, estava pegando o DANFE.fr3 e não o DANFERetrato.fr3, obrigado.

No entando estou tentando fazer o mesmo com o CTE no caso o DACTE e o erro da mensagem anterior continua acontecendo.

Já tentei com todos os arquivos fr3 disponíveis para o DACTE e não da certo.

Se puder ajudar agradeço.

 

Tadeu.

Link para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.