Liste de curseurs de suppression (tech)

De Wiki1000
(Différences entre les versions)
m
m
Ligne 1 : Ligne 1 :
 +
Liste de curseurs de suppression
 +
https://frp.sage.fr/wiki1000/index.php/Liste_de_curseurs_de_suppression
 +
 
===Introduction===
 
===Introduction===
 
Les listes de curseurs de suppression sont des listes particulieres permettant à un processus de créer des curseurs de suppression afin de supprimer des instances d'objets.
 
Les listes de curseurs de suppression sont des listes particulieres permettant à un processus de créer des curseurs de suppression afin de supprimer des instances d'objets.
Ligne 56 : Ligne 59 :
 
   vDeleteObjects.Args[1] := oidEspaceAnalytique;
 
   vDeleteObjects.Args[1] := oidEspaceAnalytique;
 
   vDeleteObjects.Filter := '(modeleVentilation.oidEspaceAnalytique=%1)';
 
   vDeleteObjects.Filter := '(modeleVentilation.oidEspaceAnalytique=%1)';
 +
  vDeleteObjects.AnyWhere := True;
 
    
 
    
 
   vDeleteList.Execute;
 
   vDeleteList.Execute;

Version du 8 décembre 2016 à 17:27

Liste de curseurs de suppression https://frp.sage.fr/wiki1000/index.php/Liste_de_curseurs_de_suppression

Sommaire

Introduction

Les listes de curseurs de suppression sont des listes particulieres permettant à un processus de créer des curseurs de suppression afin de supprimer des instances d'objets.

Déclaration d'une variable liste Curseur de suppression

Les listes de curseurs de suppression doivent être déclaré :

Var vDeleteList : TDeleteList;

Création d'une liste de curseur de suppression

Le ClassManager expose une fonction pour créer une liste de Curseurs de suppression.

Pour créer une liste de curseurs de suppression dans la base de données par défaut :

function ClassManager.CreateDeleteList : TDeleteList;

Propriétés

Count Integer Cette propriété indique le nombre de curseurs de suppression contenu dans la liste.
Items[n] TDeleteObjects Cette propriété retourne la référence d'indice n, commençant à zéro, du curseur de suppression contenu dans la liste.

Méthodes

ADD
Function Add : TDeleteObjects;
Ajoute à la liste un nouveau curseur de suppression et en donne la référence.
CLEAR
Procedure Clear;
Vide la liste de tous les curseurs existants.
EXECUTE
Procedure Execute;
Exécute la requête sur l'intégralité de la liste des curseurs de suppression dans une transaction.

Exemple

Procedure doDelete;
//Exemple avec un seul curseur de suppression
var
  vDeleteList    : TDeleteList;
  vDeleteObjects : TDeleteObjects;
begin 
  vDeleteList := ClassManager.CreateDeleteList;
 
  vDeleteObjects := vDeleteList.Add;
  vDeleteObjects.aClassName := 'TVentilationGroupeEspace';
  vDeleteObjects.ArgCount := 1;
  vDeleteObjects.Args[1] := oidEspaceAnalytique;
  vDeleteObjects.Filter := '(modeleVentilation.oidEspaceAnalytique=%1)';
  vDeleteObjects.AnyWhere := True;
 
  vDeleteList.Execute;
End;

Voir aussi :

Code métierDéveloppement DSM





Whos here now:   Members 0   Guests 0   Bots & Crawlers 1
 
Outils personnels