ExecuteUrl (rtl)

De Wiki1000

<source lang='delphi'>Procedure ExecuteUrl(const iURL:string);</source>

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

<source lang='delphi'> //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; </source>

Voir aussi:

{{#if:Développement DSM|

{{#if:Développement DSM|— Développement DSM |}} — Développement DSM

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM

}}