Discussion :

[PhilLU]

Bonjour,
Question basique!!!
Comment passer un paramètre de mon apps vers rave???
J'ai bien sûr un
- RvProject1 (qui renseigne Engine: RvSystem1 et le chemin du .rav)
- RvSystem1
sur ma form;
J'ai créé un report avec rave et ai ajouté un text1 sur ma page;
voici ensuite mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
begin
With RvProject1 do
try
  Open;
  SetParam('Text1.text',edit1.Text);
finally
  Close;
  RvProject1.ExecuteReport('Report1');
end;
end;

j'encode qq caractères dans mon edit1 puis au "enter" je fais préview, et là, la page affichée est vide???

Qui peux m'aider???
Merci d'avance
PhilLu

[SergioMaster]

Bonjour,

l'erreur est que tu confonds param et zone de texte Rave !

un param (qui sera toujours un string) doit être déclaré pour l'état
par exemple : MONTEXT
la Zone texte sur l'état devra un RvDataText et non une Zone Texte simple , la valeur du champ quelquechose comme param:MONTEXT

perso , je n'aime pas trop cette technique et préfère utiliser directement les objets rave (il y a de nombreux exemples sur ce forum)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
// il faudra rajouter quelques uses  :   RvProj,RvClass, RvCsStd ,RvCsRpt, RvCsDraw , RvDefine, RvCsData
// en gras celle dont je suis sûr 
 
procedure TForm1.RvProject1AfterOpen(Sender: TObject);
var  MyPage : TRavePage;
      MyRaveText : TRavetext;
begin
MyPage := RvProject1.ProjMan.FindRaveComponent('Report1.Page1',nil) AS TRavePage;
myRaveText := RvProject1.ProjMan.FindRaveComponent('Text1',MyPage) AS TRaveText;
if Assigned(MyRaveText) then
 MyRavetext.text:=Edit1.Text; 
else showmessage('oops raté');   
....
end;

[PhilLU]

Bonjour,

l'erreur est que tu confonds param et zone de texte Rave !

un param (qui sera toujours un string) doit être déclaré pour l'état
par exemple : MONTEXT
la Zone texte sur l'état devra un RvDataText et non une Zone Texte simple , la valeur du champ quelquechose comme param:MONTEXT

perso , je n'aime pas trop cette technique et préfère utiliser directement les objets rave (il y a de nombreux exemples sur ce forum)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
// il faudra rajouter quelques uses  :   RvProj,RvClass, RvCsStd ,RvCsRpt, RvCsDraw , RvDefine, RvCsData
// en gras celle dont je suis sûr 
 
procedure TForm1.RvProject1AfterOpen(Sender: TObject);
var  MyPage : TRavePage;
      MyRaveText : TRavetext;
begin
MyPage := RvProject1.ProjMan.FindRaveComponent('Report1.Page1',nil) AS TRavePage;
myRaveText := RvProject1.ProjMan.FindRaveComponent('Text1',MyPage) AS TRaveText;
if Assigned(MyRaveText) then
 MyRavetext.text:=Edit1.Text; 
else showmessage('oops raté');   
....
end;

C'est exactement ce que je cherchais!!!
Merci 1000x

Très bon week-end!
PhilLu