Execute (TitTask)

function Execute(var aReason:string):boolean;

function Execute(var aReason:string):Integer;

function Execute:boolean;

function Execute:Integer;

//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
     // May be used in an other task triggered by this one
     //
     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;