Lister les numeros manquant à une liste [Résolu]

[Andry]

Salut à tous,

Alors, j'au une table qui contient les infos de dossiers clients avec comme Clé primaire un champs auto-incrementé.
Un dossier peut être effacé, du coup, j'ai des trout dans mes numéros.
Alors, j'aimerais créer un procédure qui me liste ces trous dans le but de les proposer à l'utilisateur lors d'une saisie de dossier.

Comment faire
Voici la table

Code :

1
2
3
4
5
6
7
8
9
 
CREATE TABLE TDOSSIER (
    DS_NO          INTEGER NOT NULL,
    DS_NUMEXTERNE  VARCHAR(15),
    DS_DTCREATION  DATE DEFAULT 'Today' NOT NULL,
    DS_HRCREATION  TIME DEFAULT 'Now' NOT NULL,
    TRT_DTALERTE    DATE,
    TRT_FLAG          SMALLINT DEFAULT 0 NOT NULL
);

DS_NO etant la clé primaire est sa valeur est alimenté par un generateur dans le trigger befor Insert.

Merci

[makowski]

va voir ce document :

http://www.ibobjects.com/docs/ti_AuditableSeries.ZIP

[Benjamin GAGNEUX]

Salut Andry,

Je pense que ce tutoriel peut peut etre t'intéresser Les générateurs purs Interbase

++

[Andry]

Salut à tous,

Alors, cette solution je peux dire est très bien mais je cherche encore plus simple vu que l'appli tourne en mono-poste.
Alors j'ai bidouillé une procedure stocké qui me permet de savoir quelles sont les trous dans le numéro DS_NO.
Supponson que notre generateur est GEN_DOSSIER_NO.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
CREATE PROCEDURE LIST_TROU 
RETURNS (
    TROU INTEGER)
AS
DECLARE VARIABLE I INTEGER;
BEGIN
  I = 1;
  WHILE (I <= GEN_ID(GEN_DOSSIER_NO,0)) DO
  BEGIN
   IF (NOT EXISTS(SELECT DS_NO FROM TDOSSIER WHERE (DS_NO =  :I))) THEN
   BEGIN
      TROU = I;
      suspend;
   END
   I = I +1;
  END
END

Coté optimisation, j'ai pas trop cherché, mais bon.

Voilà,