« OnChangeEventId (class) » : différence entre les versions

De Wiki1000
Aucun résumé des modifications
Aucun résumé des modifications
 
(3 versions intermédiaires par le même utilisateur non affichées)
Ligne 24 : Ligne 24 :


<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;
//Procedure TestRegisterTasks;
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>


Voir aussi
Voir aussi :
 
* [[RegisterOnChangeEvent (class)|RegisterOnChangeEvent]]




Ligne 37 : Ligne 64 :
[[category:Classes métiers]]
[[category:Classes métiers]]
[[Category:Version1100]]
[[Category:Version1100]]
[[Category:Latest]]

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
Tip : La valeur NULL peut être utilisée pour indiquer "toute valeur"

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

}}