PushShareContext (CM)

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 :

• PopShareContext

— Gestion du contexte de partage (CM) — Développement DSM —