Curseur de suppression (tech)
De Wiki1000
(Différences entre les versions)
(Page créée avec « ===Introduction=== Les curseurs d’importation sont des curseurs particuliers permettant à un processus de contrôler une session d’importation. ===Déclaration d'un... ») |
m |
||
(9 révisions intermédiaires par 2 utilisateurs sont masquées) | |||
Ligne 9 : | Ligne 9 : | ||
===Création d'un curseur de suppression === | ===Création d'un curseur de suppression === | ||
− | Le [[ | + | Le [[Liste de curseurs de suppression (tech)|TDeleteList]] expose une fonction pour créer un Curseur de suppression. |
Pour créer un curseur de suppression dans la base de données par défaut, il faut passer par la liste que l'on a précédemment créée : | Pour créer un curseur de suppression dans la base de données par défaut, il faut passer par la liste que l'on a précédemment créée : | ||
Ligne 15 : | Ligne 15 : | ||
<source lang='delphi'>vDeleteList.Add : TDeleteObjects; </source> | <source lang='delphi'>vDeleteList.Add : TDeleteObjects; </source> | ||
− | + | ===Propriétés=== | |
{|class="wikitable" | {|class="wikitable" | ||
|- | |- | ||
|aClassName | |aClassName | ||
|string | |string | ||
− | | | + | |Cette propriété indique la classe métier sur laquelle est réalisée la suppression. |
|- | |- | ||
|ArgCount | |ArgCount | ||
|integer | |integer | ||
− | | | + | |Cette propriété indique le nombre de paramètres du curseur de suppression |
|- | |- | ||
|Args[n] | |Args[n] | ||
Ligne 32 : | Ligne 32 : | ||
|Filter | |Filter | ||
|string | |string | ||
− | | | + | |Cette propriété contient le filtre Where pour le curseur de suppression. |
+ | |- | ||
+ | |Anywhere | ||
+ | |booléen | ||
+ | |Dans le cadre du multi-société, permet une suppression sur toutes les sociétés.(V8.00) | ||
|} | |} | ||
Ligne 47 : | Ligne 51 : | ||
|} | |} | ||
− | |||
<source lang='delphi'> | <source lang='delphi'> | ||
− | |||
//Exemple avec un seul curseur de suppression | //Exemple avec un seul curseur de suppression | ||
var | var | ||
− | |||
vDeleteList : TDeleteList; | vDeleteList : TDeleteList; | ||
+ | vDeleteObjects : TDeleteObjects; | ||
begin | begin | ||
vDeleteList := ClassManager.CreateDeleteList; | vDeleteList := ClassManager.CreateDeleteList; | ||
Ligne 62 : | Ligne 64 : | ||
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; | ||
End; | End; | ||
</source> | </source> | ||
+ | |||
+ | Voir aussi : | ||
+ | |||
+ | *[[Liste de curseurs de suppression (tech)|TDeleteList]]. | ||
+ | |||
{{Footer|Code métier}} | {{Footer|Code métier}} | ||
[[category:Objets techniques]] | [[category:Objets techniques]] | ||
[[category:Import]] | [[category:Import]] |
Version actuelle en date du 8 décembre 2016 à 16:25
Sommaire |
Introduction
Les curseurs d’importation sont des curseurs particuliers permettant à un processus de contrôler une session d’importation.
Déclaration d'une variable Curseur d'importation
Les curseurs d'importation doivent être déclaré :
Var vDeleteObjects : TDeleteObjects;
Création d'un curseur de suppression
Le TDeleteList expose une fonction pour créer un Curseur de suppression.
Pour créer un curseur de suppression dans la base de données par défaut, il faut passer par la liste que l'on a précédemment créée :
vDeleteList.Add : TDeleteObjects;
Propriétés
aClassName | string | Cette propriété indique la classe métier sur laquelle est réalisée la suppression. |
ArgCount | integer | Cette propriété indique le nombre de paramètres du curseur de suppression |
Args[n] | variant | Ce tableau optionnel de paramètre(s) dont l'indice commence à 1 fournit le(s) paramètre(s) nécessaire pour le filtre de la requête de suppression. |
Filter | string | Cette propriété contient le filtre Where pour le curseur de suppression. |
Anywhere | booléen | Dans le cadre du multi-société, permet une suppression sur toutes les sociétés.(V8.00) |
Méthodes
CLEAR | procedure Clear; |
Vide le curseur de suppression. |
EXECUTE | procedure Execute; |
Exécute la requête sur ce curseur. |
//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étier — Développement DSM —