como utilizar a função ImprimirPDF do acbrnfe?

[cesaredc]

olá pessoal. estou com uma dúvida. Estou estudando o exemplo ACBrNFe_demo e qnd clico no botao gerar pdf, seleciono um arquivo xml de uma nfe qualquer ele executa mas não consigo verificar se foi gerado esse arquivo. não consigo verificar se ele foi salvo e onde indica o local onde salvar o pdf gerado.

alguém pode me ajudar nesta dúvida?

muito obrigado!

[Régys Silveira]

Ele será salvo no diretório informado na propriedade "PathPDF" do componente de impressão do DANFE.

[cesaredc]

ainda não consegui fazer o botão "Gerar PDF" do arquivo acbrnfe_demo fazer com que gere o arquivo pdf? alguém sabe me dizer porque nao está gerando o arquivo PDF?

[FocusRJ]

Cesar vc utiliza o Rave/FastReport/...? Qual desses para gerar?

Realmente é como o Régys lhe passou!

Aqui eu faço da seguinte forma, utilizo o FastReport e o componente frxPDFExport, e permito a exportação para pdf, dessa forma ao visualizar o usuário tem a opção de gerar o pdf selecionando o local onde deseja salvar. - Isso pro botão gerar PDF

Também implementei após o envio da nota o evento ACBrNFe1.NotasFiscais.ImprimirPDF que gera o pdf assim como o Régys mencionou no 'pathpdf'.

Coloque o código que está utilizando para gerar o pdf!

Att.

Rômulo Mayworm

[cesaredc]

Não entendi o que vc falou, eu simplesmente baixei o exemplo acbrnfe2, e não consigo utilizar esse botao gerar pdf, neste exemplo pesquisei no fonte e nem existe a propriedade pathpdf nas linhas de código dele

eu fiz o seguinte:

OpenDialog1.Title := 'Selecione a NFE';

OpenDialog1.DefaultExt := '*-nfe.XML';

OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;

ACBrNFe1.NotasFiscais.Clear;

if OpenDialog1.Execute then

begin

ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

ACBrNFeDANFERave1.PathPDF := ACBrNFe1.Configuracoes.Geral.PathSalvar;

ACBrNFe1.NotasFiscais.ImprimirPDF;

end;

[Régys Silveira]

Não entendi o que vc falou, eu simplesmente baixei o exemplo acbrnfe2, e não consigo utilizar esse botao gerar pdf, neste exemplo pesquisei no fonte e nem existe a propriedade pathpdf nas linhas de código dele

eu fiz o seguinte:

OpenDialog1.Title := 'Selecione a NFE';

OpenDialog1.DefaultExt := '*-nfe.XML';

OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;

ACBrNFe1.NotasFiscais.Clear;

if OpenDialog1.Execute then

begin

ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

ACBrNFeDANFERave1.PathPDF := ACBrNFe1.Configuracoes.Geral.PathSalvar;

ACBrNFe1.NotasFiscais.ImprimirPDF;

end;

Não mesmo?

[cesaredc]

ACBrNFeDANFERave1.PathPDF := ACBrNFe1.Configuracoes.Geral.PathSalvar;

essa linha eu inclui depois q li as respostas sobre não conseguir fazer funcionar esse botão

no código original q acabei de baixar agora com o svn checkout está assim o código desse botão:

OpenDialog1.Title := 'Selecione a NFE';

OpenDialog1.DefaultExt := '*-nfe.XML';

OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;

ACBrNFe1.NotasFiscais.Clear;

if OpenDialog1.Execute then

ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

ACBrNFe1.NotasFiscais.ImprimirPDF;

acabei de confirmar ... no codigo fonte do acbfnfe2 não existe "pathpdf" . acabei de baixar os fontes novamente

[peterson161]

A pasta PathPDF está nas propriedades do componente DANFE.

[cesaredc]

Resolvido!!!

Obrigado pela dica.

o código do botão ficou assim e deu certo:

OpenDialog1.Title := 'Selecione a NFE';

OpenDialog1.DefaultExt := '*-nfe.XML';

OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;

if OpenDialog1.Execute then

begin

ACBrNFeDANFERave1.PathPDF := ACBrNFe1.Configuracoes.Geral.PathSalvar;

ACBrNFe1.NotasFiscais.Clear;

ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

ACBrNFe1.NotasFiscais.ImprimirPDF;

end;