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 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>

Les paramètres sont :

aClassName	string	Ce paramètre indique la classe métier sur laquelle est réalisée la suppression.
ArgCount	integer	Ce paramètre 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	Ce paramètre contient le filtre Where pour le curseur de suppression.

Méthodes

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.

Exemple

<source lang='delphi'> Procedure doDelete; //Exemple avec un seul curseur de suppression var

 vDeleteObjects : TDeleteObjects;
 vDeleteList    : TDeleteList;

begin

 vDeleteList := ClassManager.CreateDeleteList;
 
 vDeleteObjects := vDeleteList.Add;
 vDeleteObjects.aClassName := 'TVentilationGroupeEspace';
 vDeleteObjects.ArgCount := 1;
 vDeleteObjects.Args[1] := oidEspaceAnalytique;
 vDeleteObjects.Filter := '(modeleVentilation.oidEspaceAnalytique=%1)';
 
 vDeleteList.Execute;

End; </source>

{{#if:Code métier|

{{#if:Code métier|— Code métier |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}