ExecuteUrl (rtl)

Procedure ExecuteUrl(const iURL:string);

Cette procédure exécute une URL ligne 1000.

iURL	URL à exécuter.

Note : Les URLs ligne 1000 permettent d'invoquer des fonctions de l'application.

Exemple

//Procedure InterfaceDuplicate;
var
  c_ProfilName : String;
  vDetailDest : TDetailEngagement;
  vDatabaseInfo : TDataBaseInfo;
  vURL : String;
begin
  if ClassManager.TranCount = 0 then
    ClassManager.BeginTran;
 
  c_ProfilName := 'dup_detailengagement.xml';
  vDataBaseInfo := ClassManager.DataBaseByURL(ClassManager.DefDataBaseURL);
  vDetailDest := ClassManager.CreateInstance('TDetailEngagement');
  ClassManager.ReplicateObject(c_ProfilName,self,vDetailDest,vDatabaseInfo);
 
  vURL := 'frm://eengagement_detailengagementfiche.dfm/';
  vURL := vURL + vDetailDest.instanceOid + '/';
  vURL := vURL + '?seoModal=Yes&seoKeepContext=Yes&seoNoNavigate=Yes&seoOKCancel=Yes';
  ExecuteURL(vURL);
end;

Voir aussi:

• ExecuteForm

— Développement DSM — Développement DSM —