PROCEDURE dbo.GetSequence
(
   @tablename varchar(255)
)
AS

DECLARE @CurrentValue int


BEGIN TRANSACTION LaTransaction

SET @CurrentValue = (SELECT ncurrentvalue FROM Tsequence WHERE ltablename = @Tablename);

SET @CurrentValue = @CurrentValue + 1;

UPDATE Tsequence SET ncurrentvalue = ncurrentvalue + 1 WHERE ltablename = @Tablename
SELECT @CurrentValue;

IF @@ERROR <> 0
    ROLLBACK TRANSACTION LaTransaction;
ELSE
    COMMIT TRANSACTION LaTransaction;

//Ceci est le code d'une procédure de ma DWControle parente d'où héritent toutes mes autres DWControles
//La procédure est appelée à chaque insertion d'un nouvel enregistrement.

DECLARE proc_GetSequence PROCEDURE FOR dbo.GetSequence
@tablename = :is_tablename; //variable d'instance contenant le nom de la table
EXECUTE  proc_GetSequence;

    FETCH proc_GetSequence INTO :ll_currentvalue;

    ls_err    = sqlca.sqlerrtext
    CLOSE proc_GetSequence ;
   
     if SQLCA.sqlcode <> 0 THEN     
        messagebox("Erreur",ls_err)
    END IF
    
CLOSE proc_GetSequence ;

 return ll_currentvalue