Récupérer un CalcText [Résolu]

[JP.NUAGE]

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

[SergioMaster]

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

[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