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