BeforeExecute (TQueryExecuteTask )

procedure BeforeExecute;

Si cette méthode existe elle est appelé avant l'export.

Tip : Utilisez cette méthode si vous créez dynamiquement le descriptif d'export

Exemple :

//Procedure BeforeExecute;
var doc:TxmlDocument; AStr,AReason:string;
begin
  // Create and set the descriptor 
  doc := CreateDescriptor();
  AStr := doc.SaveToString;
  Descriptor.Document.LoadFromString(AStr);
  //
  // Set the descriptif's parameters from the processus's attributes
  Parameters.Values['ArgDateDebut'] := GetAbsoluteDate(dateDebut); 
  Parameters.Values['ArgDateFin'] := GetAbsoluteDate(dateFin); 
  Parameters.Values['ArgNonLettre'] := nonLettre; 
  Parameters.Values['ArgSimulation'] := simulation;
  Parameters.Values['ArgCodeCompteDebut'] := codeCompteDebut; 
  Parameters.Values['ArgCodeCompteFin'] := codeCompteFin;
  Parameters.Values['ArgCodeEtablissementDebut'] := codeEtablissementDebut; 
  Parameters.Values['ArgCodeEtablissementFin'] := codeEtablissementFin;
  Parameters.Values['ArgApprocheComptable'] := ApprocheComptable.code;
end;

Voir aussi:

— TQueryExecuteTask_(class) — Développement DSM —