« OnChangeEventId (class) » : différence 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... ») |
Aucun résumé des modifications |
||
(4 versions intermédiaires par le même utilisateur non affiché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]] | ||
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 —
}}