(Resolvido) RAVE / SQL

[topa]

Help no rave com delphi:

Alguém saberia me dizer se tem como:

pegar um informação que foi digitada no edit no form e jogar para dentro do relatorio(rave)?

exp:

1 form para chamar um relatorio(rave),

coloco data inicial e final e chama a sql para buscar os dados(beleza!!),

queria pegar essa data inicial e data final e jogar para dentro do relatorio em um text,

alguém saberia me dizer se tem como?

obrigado

Mauro

[Jhonas]

2 maneiras

procedure TForm1.Button1Click(Sender: TObject);
var
   Pag: TRavePage;
   DataIni: TRaveText;
   DataFim:  TRaveText;
begin
   with RvProj.MeuProj do
      begin
         Pag := FindRaveComponent ('Report1.Page1', nil) as TRavePage;
         DataIni := FindRaveComponent('Data Inicio', Pag) as TRaveText;
         DataIni.Text := Edit1.Text; // 01/12/2010
         DataFim := FindRaveComponent('Data Fim', Pag) as TRaveText;
         DataFim.Text := Edit2.Text; // 15/12/2010
         RvProject1.Execute;
      end;
end;

mais informações: http://www.delphibr.com.br/artigos/listarave.php você pode enviar o valor como um parâmetro através do componente RvProject assim:

begin
   RvProject1.SetParam('DataInicial', '01/05/2008');
   RvProject1.SetParam('DataFinal', '31/05/2008');
   RvProject1.ExecuteReport('Report1');
end;

no seu relatório basta colocar um DataText com o seguinte valor na propriedade DataField:

'Período: ' + Param.DataInicial + ' a ' + Param.DataFinal

mais informações:

http://www.delphibr.com.br/artigos/param_rave.php

abraço

[topa]

2 maneiras

procedure TForm1.Button1Click(Sender: TObject);
var
   Pag: TRavePage;
   DataIni: TRaveText;
   DataFim:  TRaveText;
begin
   with RvProj.MeuProj do
      begin
         Pag := FindRaveComponent ('Report1.Page1', nil) as TRavePage;
         DataIni := FindRaveComponent('Data Inicio', Pag) as TRaveText;
         DataIni.Text := Edit1.Text; // 01/12/2010
         DataFim := FindRaveComponent('Data Fim', Pag) as TRaveText;
         DataFim.Text := Edit2.Text; // 15/12/2010
         RvProject1.Execute;
      end;
end;

mais informações: http://www.delphibr.com.br/artigos/listarave.php você pode enviar o valor como um parâmetro através do componente RvProject assim:

begin
   RvProject1.SetParam('DataInicial', '01/05/2008');
   RvProject1.SetParam('DataFinal', '31/05/2008');
   RvProject1.ExecuteReport('Report1');
end;

no seu relatório basta colocar um DataText com o seguinte valor na propriedade DataField:

'Período: ' + Param.DataInicial + ' a ' + Param.DataFinal

mais informações:

http://www.delphibr.com.br/artigos/param_rave.php

abraço

show, valeu mesmo, funcionou 100%

obrigado