NFSe em PDF...[Resolvido]

[Massao Aihara]

Galera...não estou conseguindo gerar o arquivo pdf da NFSe...

tem algo errado no meu fonte?

___________________________________________________________________________________________________________

procedure TfrmDemo_ACBrNFSe.bImprimirPDFClick(Sender: TObject);

begin

OpenDialog1.Title := 'Selecione a NFSe';

OpenDialog1.DefaultExt := '*-NFSe.xml';

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

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

if OpenDialog1.Execute then

begin

ACBrNFSeDANFSeQR1.PathPDF := ACBrNFSe1.Configuracoes.Geral.PathSalvar;

ACBrNFSe1.NotasFiscais.Clear;

ACBrNFSe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

ACBrNFSe1.NotasFiscais.ImprimirPDF;

end;

end;

___________________________________________________________________________________________________________

Não da erro...ja debugei...passa pelos processos, mas nao gera nada...

Agradeço a ajuda.

[Endrigo Rodrigues]

Se não me engano só funciona no QuickReport pago.

[Massao Aihara]

HUMMMM...achei o problema...

não tinha adicionado no "Conditional Defines" o "QReport_PDF"...

agora ta funcionando...=P...

[Endrigo Rodrigues]

Como você fez? No Delphi 7 funciona?

[Massao Aihara]

estou usando o Delphi 2007 e Delphi XE...e funcionou em ambos...

so precisei

adicionar na "Conditional Defines" do meu projeto (project options) o parametro "QReport_PDF".

[Italo Giurizzato Junior]

Boa tarde a todos,

Não há necessidade, basta editar o arquivo ACBr.inc que encontra-se na pasta ...\Fontes\ACBrComum

No final desse arquivo exite a definição da diretiva QReport_PDF, basta descomentar a linha que defini a diretiva.

Pronto, se a versão do seu Quick Report for posterior a 3.0 e possui o filtro para gerar o PDF, vai funcionar.

Isso é valido para o DANFE, DACTE e DANFSE feitos em Quick Report.