Por Marcos P. Gomes

Quando utilizamos o Quick Report torna-se fácil acessar nossas variáveis, pois os componentes do Quick Report interagem diretamente com o nosso código Delphi. Já no Rave Report não é passível acessar uma variável que foi declarada dentro do nosso projeto Delphi.

Calma, não fique apavorado. Para contornar essa dificuldade, assim como no Crystal Report, o Rave Report nos disponibiliza um recurso muito legal. Devemos passar esse valor como parâmetro.

Caso prático

Imagine que temos uma variável global em nosso sistema, onde é gravada a versão do sistema e nos relatórios você tem que imprimir o número da versão ou seja temos que imprimir o conteúdo dessa variável que foi declara lá dentro do projeto Delphi.

O conteúdo dessa variável deve ser passado como parâmetro na hora de imprimir o relatório e o Rave “enxerga” essa variável como se fosse uma variável interna dele.

No Delphi

Crie uma nova aplicação e deixe-a conforme a figura abaixo.

Agora dê um duplo clique no RvProject e o Rave Visual Design será aberto, na guia Report, selecione o componente Region, dimensione ele de forma que ocupe toda a área que será impressa.

No Tree Panel em Report Library e escolha o relatório Report1, após isso clique em Parameters no Object Inspector  digite o nome de nosso parâmetro que será Versao

Adicione um Band Component e marque a opção Body Header que esta localizada na opção Band Style.

Adicione um DataText e clique na opção DataField, no Project Parameters selecione o parâmetro que acabamos de criar que foi o versão, após selecionar clique em Insert Parameter

O Resultado final será conforme a figura abaixo.

Salve seu projeto, como Project1 mesmo, agora volte lá no Delphi e no RvProject associe a propriedade ProjectFile ao projeto que acabamos de criar

Adicione o seguinte código no Button.

procedure      TForm1.Button1Click(Sender: TObject);
begin
       //Seta o Parametro versão com o conteúdo do Label1
       RvProject1.SetParam('Versao',Label1.Caption);

       //Executa o relatorio
       RvProject1.ExecuteReport('Report1');
end;

Agora é só compilar, e testar e nosso resultado final será semelhante a imagem abaixo.

Preview do Rave com o Valor do parâmetro que foi recebido

 
Faça download desse exemplo