« ExecuteUrl (rtl) » : différence entre les versions
Aucun résumé des modifications |
Aucun résumé des modifications |
||
| 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]] | ||
Dernière version du 11 août 2009 à 14:03
<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 —
}}