Execute (TQueryExecuteTask )

De Wiki1000
(Différences entre les versions)
(Page créée avec « <source lang='delphi'>function Execute(var aReason:string):boolean</source> Cette méthode exécute l'export. {|class="wikitable" |- |aReason |Raison de l'échec |- |Ret... »)
 
 
(Une révision intermédiaire par un utilisateur est masquée)
Ligne 13 : Ligne 13 :
  
 
Exemple :
 
Exemple :
 +
 +
'''Export dans un fichier:'''
  
 
<source lang="delphi">
 
<source lang="delphi">
 +
//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;
 +
</source>
 +
 +
'''Export dans un containeur:'''
 +
 +
<source lang="delphi">
 +
//Procedure Test;
 +
var qbe:TQueryExecuteTask; doc:TxmlDocument; AStr,AReason:string;
 +
begin
 +
  ...
 +
  qbe.OutputContainerName := 'MyContainerName';
 +
  qbe.OutputDocumentName := 'wfclassea';
 +
  ...
 +
end;
 +
</source>
 +
 +
'''Export dans une boîte à message:'''
 +
 +
<source lang="delphi">
 +
//Procedure Test;
 +
var qbe:TQueryExecuteTask; doc:TxmlDocument; AStr,AReason:string;
 +
begin
 +
  ...
 +
 +
  // @glbUserName will be translated to current user name
 +
  //
 +
  qbe.OutputMailTo := '@glbUserName';
 +
 +
  ...
 +
end;
 +
</source>
 +
 +
'''Export envoyé par email:'''
 +
 +
<source lang="delphi">
 +
//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;
 
</source>
 
</source>
  

Version actuelle en date du 15 janvier 2020 à 09:16

function Execute(var aReason:string):boolean

Cette méthode exécute l'export.

aReason Raison de l'échec
Return True si l'export c'est exécuté

Exemple :

Export dans un fichier:

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

Export dans un containeur:

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

Export dans une boîte à message:

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

Export envoyé par email:

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

Voir aussi:

TQueryExecuteTask_(class)Développement DSM

Outils personnels