BeforeExecute (TQueryExecuteTask )

De Wiki1000
Version du 10 mars 2020 à 09:08 par Syfre (discuter | contributions)
(diff) ← Version précédente | Voir la version courante (diff) | Version suivante → (diff)
procedure BeforeExecute;

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

Tip-20px.png 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





Whos here now:   Members 0   Guests 1   Bots & Crawlers 0
 
Outils personnels