ShareGroupMode (CM)

property ShareGroupMode:Boolean;

Propriété en lecture/écriture.

Tip : Cette information est positionable sur une écran (AccessRoles:farAdminfolder) et dans le contexte d'importation (ismAdminMode).

Retourne True si l'application est gérée en mode de partage groupe.

Exemple : Création de société par le code

//Procedure CreateSocieties(const iRoot:string; iCount:Integer);
var site:TSite; inst:TTiersSociete; idx,idp:Integer; pd:TdbfPerimetreDomaine; dm:TdbfDomaineMetier;
begin
  ClassManager.PushShareContext;
  try 
  ClassManager.ShareGroupMode := True; 
  WithP Transaction do
   begin
     for idx:=1 to Count do
     begin 

     site := TSite.Create;
     site.Code := iRoot+Format('%.4d',[idx]);
     site.Caption := site.Code; 
     site.Adresse := TAdresse.Create;
     site.Adresse.Pays := TPays.Find('(CodeISO=%1)','',True,['FRA']); 
     // 
     inst := TTiersSociete.Create; 
     inst.Code := Site.Code; 
     inst.Caption := inst.Code; 
     inst.raisonSociale := inst.Code;
     inst.sitesList.AddRef(site); 
     inst.Devise := TdbfCurrency.Find('CodeISO=%1','',True,['EUR']); 

     dm := TdbfDomaineMetier.Find('Code=%1','',True,['DomaineComptaGenerale']);  
     pd := TdbfPerimetreDomaine.Find('(oidPerimetrePartage=%1) and (oidDomaineMetier=%2)','',True,[inst.oidPerimetreSociete,dm.InstanceOID]);  
     pd.PerimetreAutorise := TdbfPerimetrePartage.Find('Caption=%1','',True,['plan gen']); 

     dm := TdbfDomaineMetier.Find('Code=%1','',True,['DomaineTiers']);  
     pd := TdbfPerimetreDomaine.Find('(oidPerimetrePartage=%1) and (oidDomaineMetier=%2)','',True,[inst.oidPerimetreSociete,dm.InstanceOID]);  
     pd.PerimetreAutorise := inst.PerimetreSociete;

     dm := TdbfDomaineMetier.Find('Code=%1','',True,['DomaineProduitsTarifs']);  
     pd := TdbfPerimetreDomaine.Find('(oidPerimetrePartage=%1) and (oidDomaineMetier=%2)','',True,[inst.oidPerimetreSociete,dm.InstanceOID]);  
     pd.PerimetreAutorise := inst.PerimetreSociete;

     end; 
   end; 
  finally
  ClassManager.PopShareContext; 
  end; 
end;

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