OnChangeEventId (class)
De Wiki1000
(Différences entre les versions)
(Page créée avec « {{Version1100}} <source lang='delphi'>class function OnChangeEventID(const iProperty:string):string;</source> Retire l'identifiant de l'évènement de modification d'un a... ») |
|||
| (4 révisions intermédiaires par un utilisateur sont masquées) | |||
| Ligne 1 : | Ligne 1 : | ||
{{Version1100}} | {{Version1100}} | ||
| − | <source lang='delphi'>class function OnChangeEventID(const iProperty:string):string;</source> | + | <source lang='delphi'>class function OnChangeEventID(const iProperty:string; const iOldValue:variant; const iNewValue:variant):string;</source> |
Retire l'identifiant de l'évènement de modification d'un attribut d'un objet de cette classe. | Retire l'identifiant de l'évènement de modification d'un attribut d'un objet de cette classe. | ||
{|class="wikitable" | {|class="wikitable" | ||
| + | |- | ||
| + | |iProperty | ||
| + | |Nom de l'attribut | ||
| + | |- | ||
| + | |oldValue | ||
| + | |Ancienne valeur de l'attribut | ||
| + | |- | ||
| + | |newValue | ||
| + | |Nouvelle valeur de l'attribut | ||
|- | |- | ||
|Return | |Return | ||
| Ligne 10 : | Ligne 19 : | ||
|} | |} | ||
| − | Exemple | + | {{tip|La valeur NULL peut être utilisée pour indiquer "toute valeur"}} |
| + | |||
| + | Exemple : | ||
<source lang='delphi'> | <source lang='delphi'> | ||
| + | |||
| + | //function TTestTask.doExecute(obj:TitObject):boolean; | ||
| + | begin | ||
| + | if obj is WFClasseA then | ||
| + | begin | ||
| + | //.... do something | ||
| + | Result := True; | ||
| + | end | ||
| + | else Result := False; | ||
| + | end; | ||
| + | |||
| + | //function TTestTask.Execute:boolean; | ||
| + | var aMsg:TdbmQueueMessage; | ||
| + | begin | ||
| + | Result := False; | ||
| + | aMsg := ReceivedMsg as TdbmQueueMessage; | ||
| + | if Assigned(aMsg) then | ||
| + | begin | ||
| + | if Assigned(SourceObject) then | ||
| + | begin | ||
| + | Result := doExecute(SourceObject); | ||
| + | end; | ||
| + | end; | ||
| + | end; | ||
| + | |||
| + | //Procedure TestRegisterTasks; | ||
| + | begin | ||
| + | WFClasseA.RegisterOnChangeEvent('unEtat'); | ||
| + | TTestTask.Subscribe(WFClasseA.OnChangeEventId('unEtat',NULL {NULL means any value} ,WFCAState_Etat2),['unCode','unEntier'],['X',2]); | ||
| + | end; | ||
</source> | </source> | ||
| − | Voir aussi | + | Voir aussi : |
| + | |||
| + | * [[RegisterOnChangeEvent (class)|RegisterOnChangeEvent]] | ||
| Ligne 21 : | Ligne 64 : | ||
[[category:Classes métiers]] | [[category:Classes métiers]] | ||
[[Category:Version1100]] | [[Category:Version1100]] | ||
| − | |||
Version actuelle en date du 5 décembre 2024 à 11:23
(Version 11)
class function OnChangeEventID(const iProperty:string; const iOldValue:variant; const iNewValue:variant):string;
Retire l'identifiant de l'évènement de modification d'un attribut d'un objet de cette classe.
| iProperty | Nom de l'attribut |
| oldValue | Ancienne valeur de l'attribut |
| newValue | Nouvelle valeur de l'attribut |
| Return | L'identifiant de l'évènement |
|
Tip : La valeur NULL peut être utilisée pour indiquer "toute valeur" |
Exemple :
//function TTestTask.doExecute(obj:TitObject):boolean; begin if obj is WFClasseA then begin //.... do something Result := True; end else Result := False; end; //function TTestTask.Execute:boolean; var aMsg:TdbmQueueMessage; begin Result := False; aMsg := ReceivedMsg as TdbmQueueMessage; if Assigned(aMsg) then begin if Assigned(SourceObject) then begin Result := doExecute(SourceObject); end; end; end; //Procedure TestRegisterTasks; begin WFClasseA.RegisterOnChangeEvent('unEtat'); TTestTask.Subscribe(WFClasseA.OnChangeEventId('unEtat',NULL {NULL means any value} ,WFCAState_Etat2),['unCode','unEntier'],['X',2]); end;
Voir aussi :
