Discussion :

[Silvermoon86]

Saluttttt tout le monde;
j'utilise le composant DxfExpressionExplorer de Devexpression mais je pense que le principe est le même .

Pour Commencer on doit déclarer les variables et leur chemin de données dans l’événement OnConvertWord.
Exemple:

Code :

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

1
2
3
4
5
6
7
 
procedure TFrm_Traitement.ExpPaieConvertWord(Sender: TObject;
  var CurrentWord: String);
 
begin
 if CurrentWord = 'NBJ' then CurrentWord := IntToStr(enbj.value);
end;

Mais sachant que les variables changes d'un salariés à un autre alors j'ai préféré généré cette partie automatiquement mais le problème qui se pose une fois la chaine construite:
exemple: Générer automatiquement est placé dans un memo

Code :

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

1
2
3
4
if CurrentWord = 'NBJ' then CurrentWord := IntToStr(enbj.value);
if CurrentWord = 'VPRI' then CurrentWord := IntToStr(etpri.value);
if CurrentWord = 'VTRSS' then CurrentWord := IntToStr(etretss.value);
if CurrentWord = 'VRETJA' then CurrentWord := IntToStr(etretJA.value);

Comment faire pour l’affecter à l’événement OnconvertWord automatiquement

Code :

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

1
2
3
4
5
6
procedure TFrm_Traitement.ExpPaieConvertWord(Sender: TObject;
  var CurrentWord: String);
 
begin
           .........  Inséré le résultat généré  
end;

Cordialement