Execute (TitTask)

<source lang='delphi'>function Execute(var aReason:string):boolean;</source> <source lang='delphi'>function Execute(var aReason:string):Integer;</source> <source lang='delphi'>function Execute:boolean;</source> <source lang='delphi'>function Execute:Integer;</source>

Cette fonction doit être supportée par la classe tâche.

Différentes signatures sont supportées.

aReason	Une information sur l'erreur
Result	Le résultat de la tâche

Exemple :

<source lang="delphi"> //Function Execute(var aReason:string):boolean; var aMsg:TdbmQueueMessage; idx:Integer; S:string; begin

 // Add messages to the log
 ProgressMessage('HelloWorld');
 ProgressMessage(Format('uneChaine:%s',[uneChaine]));

 if Assigned(UserContext.TaskContext) and Assigned(userContext.TaskContext.EventContext) then
  begin
    userContext.TaskContext.AddMessage('Task context');
    //
    aMsg := userContext.TaskContext.EventContext.ReceivedMsg;
    if Assigned(aMsg) then
     begin
       userContext.TaskContext.AddMessage('Task context message');
       for idx:=0 to aMsg.Count-1 do
        begin
          S := aMsg.DisplayStrings(idx);
          UserContext.TaskContext.AddMessage(S);
        end;
     end;

    // Add parameters to the message
    aMsg.AddParameter('Task1.uneChaine',uneChaine);
    aMsg.AddParameter('Task1.unEntier',unEntier);
    aMsg.AddParameter('Task1.uneDate',uneDate);
    aMsg.AddParameter('Task1.unMontant',unMontant.Value);
  end
  else ProgressMessage('no task context');

 aReason := ;
 Result := True;

end; </source>

Voir aussi

{{#if:Classe_tâche_(stereotype)|

{{#if:Classe_tâche_(stereotype)|— Classe_tâche_(stereotype) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}