PushShareContext (CM)
De Wiki1000
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 :