PushShareContext (CM)
De Wiki1000
(Différences 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… ») |
|||
| 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> | ||
Version actuelle en date du 20 janvier 2010 à 14:16
procedure PushShareContext;
Cette procédure empile le contexte de partage.
| Pas de paramètre |
Exemple :
{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;
Voir aussi :
