Précédent   Forum des professionnels en informatique > Logiciels > Solutions d'entreprise > Business Intelligence > Rave
Rave Forum d'entraide sur Rave Reports
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 14/07/2008, 10h32   #1
Membre éclairé
 
Avatar de JP.NUAGE
 
Inscription : avril 2006
Messages : 498
Détails du profil
Informations personnelles :
Âge : 69

Informations forums :
Inscription : avril 2006
Messages : 498
Points : 372
Points : 372
Envoyer un message via Skype™ à JP.NUAGE
Par défaut Récupérer un CalcText

Bonjour à tous

Je sais pas si ce que je veux faire est possible, mais voici le code

Code :
1
2
3
4
5
6
7
8
9
myPage := rvProject4.ProjMan.FindRaveComponent('INVENTSTOCK.PageEntete',nil) AS TRavePage;
myBand := rvproject4.ProjMan.FindRaveComponent('Band1', myPage) AS TRaveBand;
FOR xi := 0 TO Myband.ChildCount -1 do
   if MyBand.Child[xi].Name = 'CalcText1' then
      begin
           ici j'aimerais récupérer la VALEUR de CalcText1
           Break;
     end;
myBand.Visible := false
et je n'ai pas trouvé de propriété du style Value affectable à CalcText ou à un TRaveComponent.

Merci d'avance
__________________
Ce qui se conçoit bien s'énonce clairement
Et les mots pour le dire viennent aisément (Boileau)
JP.NUAGE est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 14/07/2008, 10h58   #2
Modérateur
 
Avatar de SergioMaster
 
Serge Girard
Développeur informatique
Inscription : janvier 2007
Messages : 3 634
Détails du profil
Informations personnelles :
Nom : Serge Girard
Âge : 55
Localisation : France

Informations professionnelles :
Activité : Développeur informatique
Secteur : Industrie

Informations forums :
Inscription : janvier 2007
Messages : 3 634
Points : 4 537
Points : 4 537
tu veux dire que tu veux récupéré une valeur calculé par Rave

[edit] ce n'était qu'un sparing partner

ajouter RVCSData aux clauses uses

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TForm4.RvDataSetConnection1ValidateRow(
  Connection: TRvCustomConnection; var ValidRow: Boolean);
var myPage : TRavePage;
    myBand : TRaveBand;
    myCalcText : TRaveCalcText;
begin
if rvsystem1.BaseReport.CurrentPage=1
      then begin
            myPage := rvProject1.ProjMan.FindRaveComponent('report1.Page1',nil) as TRavePage;
            myCalcText:=rvproject1.ProjMan.FindRaveComponent('CalcText2', myPage) AS TRaveCalcText;
      end
      else begin
         myPage := rvProject1.ProjMan.FindRaveComponent('report1.Page2',nil) as TRavePage;
         myCalcText:=rvproject1.ProjMan.FindRaveComponent('CalcText1', myPage) AS TRaveCalcText;
      end;
myBand := rvproject1.ProjMan.FindRaveComponent('Band1', myPage) AS TRaveBand;
ShowMessage(format('valeur %5.2f',[myCalctext.Value]));
if Connection.GetEOF then
begin
   if rvsystem1.BaseReport.CurrentPage=1 then
     begin
       mypage.GotoMode:=gmGotoDone;
       mypage.GotoPage:=rvProject1.ProjMan.FindRaveComponent('report1.PageFin',nil) as TRavePage;
     end;

   myband.Visible:=false;
end;
end;
bon , d'accord ce n'est certainement pas dans le bon évènement , par contre la valeur elle est bien récupérée
__________________
La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein
J'entends et j'oublie. Je vois et je me souviens. Je fais et je comprends . Confucius
SergioMaster est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 14/07/2008, 13h56   #3
Membre éclairé
 
Avatar de JP.NUAGE
 
Inscription : avril 2006
Messages : 498
Détails du profil
Informations personnelles :
Âge : 69

Informations forums :
Inscription : avril 2006
Messages : 498
Points : 372
Points : 372
Envoyer un message via Skype™ à JP.NUAGE


Impécable : j'ai absolument ce que je désire.

Je sentais bien que ce ne serait pas très compliqué. C'est toujours pareil : quand on sait c'est beaucoup plus facile
__________________
Ce qui se conçoit bien s'énonce clairement
Et les mots pour le dire viennent aisément (Boileau)
JP.NUAGE est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 04h37.


 
 
 
 
Partenaires

Hébergement Web