API (partage)

Version du 4 novembre 2017 à 12:23

Contexte de partage

Le contexte de partage est une sous partie du contexte de l'utilisateur qui contient l'ensemble des informations de partages (société de travail, entité authentifiée, sociétés de restitution .... )

• Lorsqu'aucune transaction n'est démarrée le contexte de partage utilisé par le framework est le contexte contenu dans le contexte de l'utilisateur.

• Lorsqu'une transaction est démarrée le contexte de partage utilisé par le framework est une copie du contexte de partage de l'utilsiateur créée au moment du démarrage de la transaction. Cette copie est propre à la transaction et à la même durée de vie que la transaction.

Le contexte de partage modifié par le dialogue de partage est toujours celui du contexte de l'utilisateur.

Attributs de partage sur un objet métier

property ShareLevel:Integer;

property oidShare:TOID;

property ShareInfo:String;

property ShareInstanceLevel:Integer;

property ShareInstanceInfo:string;

Déclenchement de règle sur un changement du niveau de partage

Utiliser ShareLevel comme déclencheur.

Variables globale du contexte

API du ClassManager

Propriétés

Fonctions

Example

//Procedure TestShareAPI;
var idx:Integer; s,stag,save:string;
begin
  stag := #10;
  s := stag+'Mode Restitution';
  if ClassManager.ShareRestitutionMode
     then s := s+' :Yes'
     else s := s+' :No';
  s := s+stag+'Mode group';
  if ClassManager.ShareGroupMode
     then s := s+' :Yes'
     else s := s+' :No';
  //
  s := s+stag+'Group (oid)';
  s := s+stag+ClassManager.ShareGroup;
  //
  s := s+stag+'Group (perimeter)';
  s := s+stag+ClassManager.ShareGroupPerimeter.Caption;
  //
  s := s+stag+'Current Society (oid)';
  s := s+stag+ClassManager.ShareSociety;
  //
  s := s+stag+'Current Society (perimeter)';
  s := s+stag+ClassManager.ShareSocietyPerimeter.Caption;
  //
  s := s+stag+'Restitutions'; stag := #10;
  for idx:=0 to ClassManager.ShareRestitutionSocietyCount-1 do
   s := s+stag+ClassManager.ShareRestitutionSocieties[idx];
  //
  s := s+stag+'User Societies (oids)';;
  for idx:=0 to ClassManager.ShareUserSocietyCount-1 do
   s := s+stag+ClassManager.ShareUserSocieties[idx];
  //
  s := s+stag+'User Societies (names)';
  for idx:=0 to ClassManager.ShareUserSocietyCount-1 do
   s := s+stag+ClassManager.ShareUserSocietyPerimeters[idx].Caption;
  //
  s := s+stag+'Change Current Society';
  save := ClassManager.ShareSociety;
  for idx:=0 to ClassManager.ShareSocietyCount-1 do
   try
    ClassManager.ShareSociety := ClassManager.ShareSocieties[idx];
    s := s+stag+ClassManager.ShareSocietyPerimeters[idx].Caption+': OK';
   except
    s := s+stag+ClassManager.ShareSocietyPerimeters[idx].Caption+': Failed';
   end;
  ClassManager.ShareSociety := save;
  ShowMessage(s);
end;

Traitement multi-société :

//Procedure ModifierClasseA;
var idx,ido:Integer; ls:ClasseAList; ss,stag,SaveCtx:string; obj:ClasseA;
begin
  ss := ''; stag := #13;
  SaveCtx := ClassManager.ShareSociety;
  try
  ClassManager.BeginTran;
  try
   for idx:=0 to ClassManager.ShareSocietyCount-1 do
    begin
      ClassManager.ShareSociety := ClassManager.ShareSocieties[idx];
      //
      ls := ClasseA.CreateList;
      ls.AddWhere('oidShare=%1','','Caption',True,-1,[ClassManager.ShareSociety]);
      for ido:=0 to ls.Count-1 do
       begin
         obj := ls.Refs[ido];
         obj.unEntier := obj.unEntier+1;
         ss := ss+stag+obj.uneChaine;
         stag := #13;
       end;
    end;
  showMessage(ss);
  ClassManager.Commit;
  except
  ClassManager.RollBack;
  end;
  finally
  ClassManager.ShareSociety := SaveCtx;
  end;
end;

Variables globales d'environnement

Ces variables sont contenues dans le context de l'utilisateur