OnChangeEventId (class)

(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 :

• RegisterOnChangeEvent

— Classes métiers (tech) — Développement DSM —