ACBrNFeDANFeRL x Fortes Report

[joeldm]

Pessoal,

estou tentando usar o Fortes Report para imprimir uma NFe, mas sempre aparece a mensagem:

"Error reading RLPDFFilter1.ViewerOptions: Property ViewerOptions does not exist."

Estou usando o Delphi 7. Fiz os passos abaixo:

1. Baixei em http://sourceforge.net/projects/fortesreport/

2. Escolhei o arquivo FortesReport_src_D2010_3.69B.7z (prefiro o código-fonte)

3. Instalei o mesmo no Delphi7 sem erros

4. Instalei o componente TACBrNFeDANFeRL sem erros

Depois ao tentar imprimir apareceu a seguinte mensagem:

"Sistema não está de acordo com a versão do FortesReport."

"Versão atual 3.69B"

Então vi em alguma mensagens no fórum que deveria colocar a seguinte código:

initialization

RLConsts.SetVersion(3,70,'B');

e nada e mudei para RLConsts.SetVersion(3,70,'B');

e nada. Então mudei pra RLConsts.SetVersion(3,69,'B');

e a mensagem mudou pra: "Error reading RLPDFFilter1.ViewerOptions: Property ViewerOptions does not exist."

alguém tem idéia do que pode estar errado?

[juaumkiko]

Vc já tentou fazer uma busca do Forum?

Esse problema era semelhante ao seu.

[joeldm]

Cheguei a pesquisar mas acabei não vendo esse tópico. Devo não ter prestado atenção direto. Desculpe.

Quando você diz : "Bastei abrir os forms do Fortes e recompilar o projeto". Você quer dizer os forms de configuração do Fortes Report ou os forms do ACBr que usam os componentes do Fortes Report?

Porque eu abri os forms do Fortes Report e recompilei mas o erro persiste.

[juaumkiko]

Formulario do ACBr.

[]´s

[joeldm]

Funcionou!!!!

Obrigado

Só tenho mais uma dúvida. A espessura da linhas de grade estão quase invisíveis. No preview fica tudo no normal. Existe alguma propriedade no componente de impressão do ABCr que possamos modificar para alterar a espessura das linhas para deixa-las mais visíveis?

[joeldm]

Ao tentar resolver o problema das linhas encontrei um pequeno erro.

Pra não mexer no arquivo dfm modifique a seguinte procedure:

procedure TACBrNFeDANFeRL.ImprimirDANFE(NFE : TNFe = nil);

antes tem um case

for i := 0 to frlDANFeRL.ComponentCount - 1 do

if frlDANFeRL.Components is TRLDraw then

if TRLDraw(frlDANFeRL.Components).Pen.Width = 1 then

TRLDraw(frlDANFeRL.Components).Pen.Width := 2;

depois segue o resto do código.

O código acima não surtiu efeito mas descobrir a chamada ao método frlDANFeRL.Imprimir(...) no próximo loop gera um outro objeto de relatório.

A solução foi comentar --> {class }procedure TfrlDANFeRL.Imprimir(..);

Acho que o mesmo deve ser feito para --> class procedure TfrlDANFeRL.SavePDF