WDForge.org - Forums

Re: Appel Fonction ORACLE

Sujet: Re: Appel Fonction ORACLE
par @lex sur 14/3/2006 9:55:56

La version d'ORACLE est la 9i - release 9.2.0.7.0

Voici le corps de la fonction :
CREATE OR REPLACE FUNCTION FONCTIONRETOUR(LeNomTable VARCHAR2, LePrefixe VARCHAR2) RETURN NUMBER IS

NumSuivant NUMBER(10);
Tampon NUMBER(10);
NvPrefixe VARCHAR2(40);

BEGIN
NvPrefixe := NVL(UPPER(LePrefixe), 'PREFIXE');
--
-- Recherche du numéro actuel
--
BEGIN
SELECT NumSeq INTO NumSuivant
FROM Ref_CII
WHERE NomTable = UPPER(LeNomTable)
AND Prefixe = NvPrefixe
FOR UPDATE;
EXCEPTION
WHEN NO_DATA_FOUND THEN
LOCK TABLE REF_CII IN Exclusive MODE;
NumSuivant := 0;
END;
NumSuivant := NumSuivant + 1;
--
-- Mise à jour de la table Ref_CII
--
UPDATE Ref_CII
SET NumSeq = NumSeq + 1
WHERE NomTable = UPPER(LeNomTable)
AND Prefixe = NvPrefixe;
IF SQL%NOTFOUND THEN
INSERT INTO Ref_CII(NomTable, Prefixe, NumSeq) VALUES (UPPER(LeNomTable), NvPrefixe, 1);
END IF;
RETURN NumSuivant;
END;

Je sais que les appels de fonctions sont possibles en Delphi et JAVA mais je n'en connais pas non plus la syntaxe.

Merci pour ton aide.