« OnChangeEventId (class) » : différence entre les versions
Aucun résumé des modifications |
Aucun résumé des modifications |
||
| Ligne 52 : | Ligne 52 : | ||
begin | begin | ||
WFClasseA.RegisterOnChangeEvent('unEtat'); | WFClasseA.RegisterOnChangeEvent('unEtat'); | ||
TTestTask.Subscribe(WFClasseA.OnChangeEventId('unEtat',NULL,WFCAState_Etat2),['unCode','unEntier'],['X',2]); | TTestTask.Subscribe(WFClasseA.OnChangeEventId('unEtat',NULL {NULL means any value} ,WFCAState_Etat2),['unCode','unEntier'],['X',2]); | ||
end; | end; | ||
</source> | </source> | ||
Dernière version du 5 décembre 2024 à 10:23
(Version 11) <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.
| iProperty | Nom de l'attribut |
| oldValue | Ancienne valeur de l'attribut |
| newValue | Nouvelle valeur de l'attribut |
| Return | L'identifiant de l'évènement |
Exemple :
<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>
Voir aussi :
{{#if:Classes métiers (tech)|
{{#if:Classes métiers (tech)|— Classes métiers (tech) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}