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

De Wiki1000
(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]]
[[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

}}