ExecuteUrl (rtl)
De Wiki1000
(Différences entre les versions)
| Ligne 1 : | Ligne 1 : | ||
| − | |||
<source lang='delphi'>Procedure ExecuteUrl(const iURL:string);</source> | <source lang='delphi'>Procedure ExecuteUrl(const iURL:string);</source> | ||
| − | + | Cette procédure exécute une [[URL ligne 1000|URL ligne 1000]]. | |
{|class="wikitable" | {|class="wikitable" | ||
|- | |- | ||
|iURL | |iURL | ||
| − | | | + | |URL à exécuter. |
|} | |} | ||
| + | |||
| + | {{info|Les URLs ligne 1000 permettent d'invoquer des fonctions de l'application.}} | ||
Exemple | Exemple | ||
<source lang='delphi'> | <source lang='delphi'> | ||
| + | //Procedure InterfaceDuplicate; | ||
| + | var | ||
| + | c_ProfilName : String; | ||
| + | vDetailDest : TDetailEngagement; | ||
| + | vDatabaseInfo : TDataBaseInfo; | ||
| + | vURL : String; | ||
begin | 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; | end; | ||
</source> | </source> | ||
Voir aussi: | Voir aussi: | ||
| + | |||
| + | *[[ExecuteForm (rtl)|ExecuteForm]] | ||
{{Footer|Développement DSM}} | {{Footer|Développement DSM}} | ||
[[category:RTL Application]] | [[category:RTL Application]] | ||
Version actuelle en date du 11 août 2009 à 15:03
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:
