PushShareContext (CM)

<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 :

PopShareContext

{{#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 —

}}