API (partage)
De Wiki1000
Version du 4 novembre 2017 à 12:23 par Syfre (discuter | contributions)
Sommaire |
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
Propriété | Accès | Signification |
---|---|---|
property ShareLevel:Integer; |
Lecture
Ecriture |
Le niveau de partage de l'objet, le niveau de partage est défini par les constantes suivantes :
Changer ShareLevel est équivalent à affecter l'oidShare correspondant. |
property oidShare:TOID; |
Lecture
Ecriture |
L'oid du périmètre de partage auquel appartient l'objet. |
property ShareInfo:String; |
Lecture | Une chaîne de caractère identifiant le périmètre de partage auquel appartient l'objet. |
property ShareInstanceLevel:Integer; |
Lecture | Niveau de partage des attributs privés de l'objet. |
property ShareInstanceInfo:string; |
Lecture | Une chaîne de caractère identifiant le périmètre de partage des attributs privés de l'objet. |
Déclenchement de règle sur un changement du niveau de partage
Utiliser ShareLevel comme déclencheur.
Variables globale du contexte
Variable | Type | Signification |
---|---|---|
GlbShareEnable | Boolean | La base de données contient des informations de partage |
GlbShareGroupMode | Boolean | Mode groupe (Application de gestion de dossier) |
GlbShareRestitution | Boolean | Mode restitution |
GlbShareAllPerimeters | Boolean | Mode restitution sur tous les périmètres |
GlbShareGroupPerimeter | OID | Périmètre de partage du dossier |
GlbShareSocietyPerimeter | OID | Périmètre de partage de la société actif |
GlbSharePerimeters | OIDs | Liste de tous les périmètres de la société active |
GlbShareSocieties | OIDs | Liste des sociétés de restitution |
API du ClassManager
Propriétés
ShareEnable | Cette propriété retourne True si la base de données courante (defDataBase) supporte le partage. |
ShareRestitutionMode | Cette propriété retourne True si le contexte de partage est en mode restitution. |
ShareGroupMode | Cette propriété retourne True si le contexte de partage est en mode groupe. |
ShareSociety | Cette propriété retourne l'OID du périmètre de partage de la société de travail courante. |
ShareSocietyPerimeter | Cette propriété retourne l'objet périmètre de partage de la société de travail courante. |
ShareGroup | Cette propriété retourne l'OID du périmètre de partage du groupe. |
ShareGroupPerimeter | Cette propriété retourne l'objet périmètre de partage du dossier. |
ShareUserSocietyCount | Cette propriété retourne le nombre de société, sur lequel l'utilisateur à accès, dans le dossier. |
ShareUserSocieties | Cette propriété retourne l'OID de partage d'une société, sur lequel l'utilisateur à accès, du dossier. |
ShareUserSocietyPerimeters | Cette propriété retourne l'objet périmètre d'une société, sur lequel l'utilisateur à accès, du dossier. |
ShareRestitutionSocietyCount | Cette propriété retourne le nombre de société actuellement en restitution. |
ShareRestitutionSocieties | Cette propriété retourne l'OID de partage d'une société actuellement en restitution. |
ShareUserSocietyCount | Cette propriété retourne le nombre de société utilisable par l'utilisateur. |
ShareUserSocieties | Cette propriété retourne l'OID de partage d'une société utilisable par l'utilisateur. |
ShareUserSocietyPerimeters | Cette propriété retourne l'objet périmètre de partage d'une société utilisable par l'utilisateur. |
Fonctions
CreateSocietyPerimeter | Création d'un périmètre Société. |
FindObjectAnyWhere | Recherche un objet en incluant tous les périmètres de partage. |
PushShareContext | Empile le contexte de partage. |
PopShareContext | Dépile le contexte de partage. |
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
GlbShareEnable | Le Dossier est en mode partage (multi-sociétés) |
GlbShareGroupPerimeter | OID du périmètre Dossier |
GlbShareSocietyPerimeter | OID du périmètre Société actif |
GlbSharePerimeters | Liste des OIDs de tous les périmètres de la société active |
GlbShareRestitution | Le contexte de partage est en mode restitution |
GlbShareAllSocieties | La restitution est sur toutes les sociétés |
GlbShareSocieties | Liste des OIDs des périmètres sociétés de restitution |
GlbShareGroupMode | Le contexte de partage est en mode Administration de dossier |
Whos here now: Members 0 Guests 0 Bots & Crawlers 1 |