ShareGroupMode (CM)

<source lang='delphi'>property ShareGroupMode:Boolean;</source>

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

<source lang='delphi'> //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; </source>

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

}}