Voir la source de Curseur de suppression (tech)

===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é :

<source lang='delphi'>Var vDeleteObjects : TDeleteObjects;</source>

===Création d'un curseur de suppression ===
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 :

<source lang='delphi'>vDeleteList.Add : TDeleteObjects; </source>

===Propriétés===
{|class="wikitable"
|-
|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===
{|class="wikitable"
|-
|CLEAR
|<source lang='delphi'>procedure Clear;</source>
|Vide le curseur de suppression.
|-
|EXECUTE
|<source lang='delphi'>procedure Execute;</source>
|Exécute la requête sur ce curseur.
|}

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

Voir aussi :

*[[Liste de curseurs de suppression (tech)|TDeleteList]].


{{Footer|Code métier}}
[[category:Objets techniques]]
[[category:Import]]