Execute (TQueryExecuteTask )

function Execute(var aReason:string):boolean

//Procedure Test;
var qbe:TQueryExecuteTask; doc:TxmlDocument; AStr,AReason:string;
begin
  qbe := TQueryExecuteTask.Create;
 
  doc := CreateDescriptor();
  AStr := doc.SaveToString;
 
  // This will recreate the document with the correct classes
  qbe.Descriptor.Document.LoadFromString(AStr);
 
  qbe.OutputFileName := 'c:\temp\exports\wfclassea.csv'; 
 
  if not qbe.canExecute then
   raise Exception.Create('can''t execute');
 
  if qbe.Execute(aReason) 
   then showMessage('execute OK')
   else showMessage('execute NOK '+aReason) 
end;

//Procedure Test;
var qbe:TQueryExecuteTask; doc:TxmlDocument; AStr,AReason:string;
begin
  ...
  qbe.OutputContainerName := 'MyContainerName'; 
  qbe.OutputDocumentName := 'wfclassea'; 
  ...
end;

//Procedure Test;
var qbe:TQueryExecuteTask; doc:TxmlDocument; AStr,AReason:string;
begin
  ...
 
  // @glbUserName will be translated to current user name
  //
  qbe.OutputMailTo := '@glbUserName';
 
  ...
end;

//Procedure Test;
var qbe:TQueryExecuteTask; doc:TxmlDocument; AStr,AReason:string;
begin
  ...
 
  // Will be send by email using configured smtp service
  //
  qbe.OutputMailTo := '[email protected]';
  qbe.OutputMailBody := 'This is an export of ... from Sage FRP 1000';
 
  ...
end;