Discussion :

[fatyben]

bonjour à tous,

je travaille avec paradox comme SGBD j'ai fait un query qui me donne des résultats ensuite j'ai ajouté un champ calculé pour l'avoir dans Rave , En rave j'ai mis une databand pou m'afficher tous les lignes de mes résultats

Ma question 1 : Comment je rempli le champ calculé par le biais d'un Edit1.

Ma question 2 : Et que le chiffre écrit et ajouté dans le l'état de rave soit +1 pour chaque ligne.

Par exemple : je saisi le chiffre 10 dans Edit1 et dans l'état rave j'ai la première ligne 10, la deuxième ligne 11, la troisième ligne 12 ...... dans le l'aperçu.
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
OU tout autre point de vue : faire ça manuellement dans l’événement de Rave avec des text ou datatext , Comment puis-je faire ça.

je suis débutant en la matière, aider moi SVP

[fatyben]

j'ai essayer ce code dans l'event de rave

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
if Value = '' then
 
  Value := '1';
 
  self.Text := Value;
 
else
 
  Value := FloatToStr(StrToFloat(Value) + 1);
 
  self.Text := Value;
 
end if;

Mais il m'ajoute +1 pour chaque ligne moi je veux qu'il ajoute à chaque fois 1 en plus de la ligne précédente.

[SergioMaster]

Bonjour,

oubliez le champ calculé, surtout si vous voulez le modifier avec un TEdit .

Passez par un paramètre (propriété parameters de l'état) de Rave pour faire ce que vous voulez faire.
pour initialiser la valeur du paramètre il faut utiliser TRvProject.SetParam(NomDuParam,Valeur)
attention valeur est toujours un string il faut donc dans votre cas vérifier avant que c'est bien une valeur numérique qui est saisie dans votre TEdit. Il vous sera ensuite relativement aisé d'incrémenter votre valeur que vous retrouverez comme étant une PIVAR

[fatyben]

bonjour Sergio, Merci pour ton aide

quel code je peux mettre dans l'event pour incrémenter mes ligne.

j'ai essayer le code précédent mais ça ne marche pas. quand je saisie 1 dans l'Edit le preview est :
2
2
2
2
2
2

Qu'est ce que je peux faire pour y remédier.

[SergioMaster]

Tout d'abord quel event ?
et ensuite j'ai indiqué

d'incrémenter votre valeur que vous retrouverez comme étant une PIVAR

c'est à dire celle de la variable de l'état, pas la valeur contenu dans la zone d'impression

une autre solution https://www.nevrona.com/tips/tip039.html

Drop down a regular text component on your band. Click on it and then click on the Event Editor tab. Select OnBeforeReport from the Available Events combobox. Now click in the edit area below the Compile button and type in the following code:

self.Text := '';

This will clear whatever text has been placed in the text component at design time. Now select the OnGetText event from the Available Events combobox and type in the following code:

if Value = '' then
Value := '1';
self.Text := Value;
else
Value := IntToStr(StrToInt(Value) + 1);
self.Text := Value;
end if;

Now click on the compile button and assuming that you have typed it in correctly you will get a message that it compiled successfully. You can now run the report and it will display the line number as specified.

à la seule différence que vous initialiserez Value avec votre paramètre d'état (au lieu de Value:='1' value:=votre paramètre)

[fatyben]

Salut,

le code suivant me donne le mème resultat que précedent :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
if Value = '' then
 
Value := 'Param.incr';
 
self.Text := Value; 
 
else
 
Value := IntToStr(StrToInt(Value) + 1);
 
self.Text := Value;
 
end if;

OnGetText

je saisi 1 ça me donne
2
2
2
2
moi je veux
2
3
4
5
6

[SergioMaster]

Bonjour
les informations que vous fournissez sont, comme d'habitude, plus que parcellaires il faut une bonne dose d'imagination, de divination et de contrôle de soi pour répondre.

selon votre dernier post, je pense que vous avez du tenter d'utiliser les instructions de Nevrona que j'ai citées mais certainement mal !

voici une méthode qui fonctionne, celle que je préconisai depuis le début : utilisation d'une variable d'état et incrémentation de celle-ci. Ce que vous n'avez pas du maitriser c'est l'incrémentation du paramètre Il m'a fallu ressortir mon D7 et voici les explications en image

la preuve à l'exécution

Il n'y a aucune utilisation de Rave Script, et pratiquement aucun code Delphi si ce n'est l'initialisation et l'exécution de l'état

Code :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
 RvProject1.SetParam('Compteur',Edit1.text);
 RvProject1.Execute;
end;

[fatyben]

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiii