« PushShareContext (CM) » : différence entre les versions
(Page créée avec « <source lang='delphi'>procedure PushShareContext;</source> Cette procédure empile le contexte de partage. {|class="wikitable" |- |Pas de paramètre |} '''Exemple :''' <s… ») |
Aucun résumé des modifications |
||
| Ligne 10 : | Ligne 10 : | ||
'''Exemple :''' | '''Exemple :''' | ||
<source lang='delphi'> | <source lang='delphi'> | ||
{Procedure _executerSociete(aTiersSociete:TTiersSociete);} | |||
begin | begin | ||
ProgressMessage(' '); | |||
ProgressMessage(Format(_TP('TRAITEMENT SOCIETE %s'),[aTiersSociete.Code])); | |||
if ClassManager.ShareEnable then ClassManager.PushShareContext; | |||
try | |||
if ClassManager.ShareEnable then | |||
begin | |||
ClassManager.ShareRestitutionMode := False; | |||
ClassManager.ShareSociety := aTiersSociete.oidPerimetreSociete; | |||
end; | |||
//... process this society .... | |||
finally | |||
if ClassManager.ShareEnable then ClassManager.PopShareContext; | |||
end; | |||
end; | |||
end; | end; | ||
</source> | </source> | ||
Dernière version du 20 janvier 2010 à 13:16
<source lang='delphi'>procedure PushShareContext;</source>
Cette procédure empile le contexte de partage.
| Pas de paramètre |
Exemple : <source lang='delphi'> {Procedure _executerSociete(aTiersSociete:TTiersSociete);} begin
ProgressMessage(' ');
ProgressMessage(Format(_TP('TRAITEMENT SOCIETE %s'),[aTiersSociete.Code]));
if ClassManager.ShareEnable then ClassManager.PushShareContext;
try
if ClassManager.ShareEnable then
begin
ClassManager.ShareRestitutionMode := False;
ClassManager.ShareSociety := aTiersSociete.oidPerimetreSociete;
end;
//... process this society .... finally if ClassManager.ShareEnable then ClassManager.PopShareContext; end;
end; end; </source>
Voir aussi :
{{#if:Gestion du contexte de partage (CM)|
{{#if:Gestion du contexte de partage (CM)|— Gestion du contexte de partage (CM) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}