BeforeExecute (TQueryExecuteTask )

Syfre (discuter | contributions)
(Page créée avec « <source lang='delphi'>procedure BeforeExecute;</source> Si cette méthode existe elle est appelé avant l'export. {|class="wikitable" |- ! ! |} {{Tip|Utilisez cette mé... »)

---

Version actuelle en date du 10 mars 2020 à 09:08

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 —