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 à 08: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 —

Récupérée de « https://frp.sage.fr/wiki1000/index.php?title=Execute_(TQueryExecuteTask_)&oldid=13135 »
Outils personnels