ShareSocietyName (CM)
property ShareSocietyName:string;
Propriété en lecture / écriture.
- En lecture :
- Retourne le nom du du périmètre de partage de la société courante.
- En écriture :
- Positionne le contexte de partage de sorte que ce périmètre soit le périmètre courant de travail.
Exemple :
{Procedure _processThisPerimeter(aPerimeter:TOID);}
va aName:string;
var
begin
if not ClassManager.ShareEnable then Exit;
//
aName := GetSocietyNameFromSomewhere();
//
ClassManager.PushShareContext;
try
ClassManager.ShareRestitutionMode := False;
ClassManager.ShareSocietyName := aName;
shwoMessage(Format('Current society, Name:%s OID:%s',[ClassManager.ShareSocietyName,ClassManager.ShareSociety]));
....
finally
ClassManager.PopShareContext;
end;
end;
Voir aussi :