[Rave Report] Variables globales

**dj_jojo_69** · 09/04/2004, 16h23

bonjour, je suis débutant en delphi (stage de fin d'étude) et j'ai pour mission de remplacer l'utilisation de quickreport par rave report dans l'appli sur laquelle je bosse, et ma question est la suivante :

comment dans rave report, afficher une variable qui n'est pas stoquée dans une table, mais en memoire (chargée a l'ouverture de l'appli dans un tableau) ???

exemple, l'appli gere 2 appareils connectés au pc, sur l'impression du resultat du travail d'un appareil, j'ai besoin de dire quel appareil m'a donné son resultat, pour cela, dans delphi, j'ai acces a un tableau qui me donne le nom de l'appareil qui demande l'impression, mais comment recuperer ce nom (cette variable) sous rave report ????

si j'ai manqué de clarté, contacter moi par MSN : dj_jojo69@hotmail.com

merci d'avance

**Harry** · 09/04/2004, 17h39

Il y a 2 solutions :
- créer un champ que tu remplis avec la variable juste avant d'imprimer.
- utiliser le composant CustomConnection qui est justement fait pour ca.

A++

**dj_jojo_69** · 09/04/2004, 22h30

merci pour le tuyau, mais (désolé d'abuser de ta science) mais t'aurais pas un exemple d'utilisation de TRvCustomConection a me donner ?? genre t'as un tableau de integer et tu veux en imprimer le contenu avec Rave Report ??

si tu peux pas tant pis je chercherai, mais vu qe je debute en delphi (en cours on a appris C++ et Java...) j'risque de patauger dans la semoule...

a moins que quelqu'un d'autre puisse m'aider ??

**Harry** · 14/04/2004, 10h01

Bon, voici un exemple :

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
16
17
procedure TFEdition.RvCustomConnection1GetRow(
  Connection: TRvCustomConnection);
begin
 
     Connection.WriteStrData('',dm1.userprenom + ' ' + dm1.usernom);
 
end;
 
procedure TFEdition.RvCustomConnection1GetCols(
  Connection: TRvCustomConnection);
 begin
  With Connection do begin
 
    WriteField('transfert', dtString, 30, '', '');
 
  end; { with }
 end;

Tu dois avoir un guide du developpeur ou c expliqué, dedans c le tuto 5(page 13) et p 15 pour le OnGetRow.

Dans ton report tu va avoir une table RvCustomConnection1 (dans mon exemple) contenant un champ 'transfert'.

**Harry** · 14/04/2004, 10h07

Je sais pas trop pour interpréter le tableau de integer dans rave, par contre l'exemple ci dessus te donne pour le string, tu peu faire du integer et meme des contenus de pointeurs si tu ve, tu peu faire autant de champs que tu veux (faut multiplier les éléments dans un meme RvCustomconnection).

Voila j'espere que ca va t'aider, n'hésite pas à poser d'autres questions.

**dj_jojo_69** · 21/04/2004, 10h40

merci pour ton aide, en fait j'ai trouvé une autre solution, tu peux utiliser une fonction qui recherche un element dans ton document rave par son nom et remplacer cet élément par un autre (comme un variable issue de delphi par exemple)
si cela interesse quelqu'un, voila le code :

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
16
17
18
19
20
21
 
  // ouverture du composant rave
  Ma_fiche_delphi.nom_du_composant_TRvProject.Open;
 
  // création du champs texte_a_remplacer
  With Ma_fiche_delphi.nom_du_composant_TRvProject.ProjMan do begin
 
      ma_page := FindRaveComponent('Nom_rapport_dans_rave.nom_de_la_page_dans_rave',nil) as TRavePage;
      champs := FindRaveComponent('texte_a_remplacer',ma_page) as TRaveText;
     champs.Text := 'le texte, ou la variable que je veux afficher'; // ne pas mettre les '' '' s'il s'agit d'une variable (String)
      champs.Color := clBlack; // pour choisir la couleur du texte
      champs.Font.Size := 14; // pour choisir la taille du texte
      champs.Font.Style := [fsBold]; // pour choisir le style du texte : gras, italique...
 
  end;
// définition du chemin vers le fichier .rav et ouverture du rapport
  Chemin:=mon_chemin\nom_du_rapport.rav'; 
  Ma_fiche_delphi.nom_du_composant_TRvProject.SelectReport(Chemin,true);
  Chemin:='Nom_rapport_dans_rave';
  Ma_fiche_delphi.nom_du_composant_TRvProject.ExecuteReport(Chemin);
  Ma_fiche_delphi.nom_du_composant_TRvProject.Close;

Résultat : Le texte statique ''texte_a_remplacer'' du rapport Rave Reports sera remplacé par '' le texte, ou la variable que je veux afficher ''.

si quelqu'un a des questions concernant l'utilisation de ce code dj_jojo69@hotmail.com

++jon

-------------------------------------------------------------------------------------

vive le Grain ®

http://groups.msn.com/LeGrainenfolie

-------------------------------------------------------------------------------------

**cdlr27** · 08/08/2005, 11h07

Pour enrichire la liste des possibilités sur le passage de variables globales ou autres :

Code :

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

1
2
3
4
// ouverture du composant rave 
  Ma_fiche_delphi.nom_du_composant_TRvProject.Open; 
// passage de la variable 
  Ma_fiche_delphi.nom_du_composant_TRvProject.SetParam('DeDate', DateTostr(QueryCustDlg.FromDate);

DeDate : Parametre défini sur le DataField d'un DataTextComposant
DateTostr(QueryCustDlg.FromDate) retourne une date au format "01/08/2005"

ce code est l'événement Open du composant DataSetConnection

Marcel

**karimdady** · 04/03/2007, 16h31

Salut
Je dispose d’une table avec une clef numérique et je voudrai qu à l’affichage elle apparaisse formater ex :
‘A00395’ au lieu de ‘ 395’
‘A00005’ au lieu de ‘ 5’
En passant par un TRaveDataText bien sure ; j’ai déclaré un paramètre dans mon état mais je ne sais pas l’utilisé…

Merci d’avance