Fonction pluviométrie PL/SQL

Version imprimable

Bonjour,

J'ai testé avec SQL Command de APEX 3.1 ces commandes, qui me permettent d'obtenir pour la date de la veille la pluviométrie en interrogeant une table adéquate.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
WITH RAINFALL AS
(
	SELECT  DATE1	RAINFALLDATE,
    		VALEUR	VALUE
  	FROM	EVV_STPL
  	WHERE	CLEF_VAR	= 4723
  	AND	TO_DATE(DATE1, 'DD/MM/YYYY') = TO_DATE(sysdate-1, 'DD/MM/YYYY')
  )
 
	SELECT	  SUM (TOTO) 		CUMUL
  	FROM      (
		    SELECT  TRUNC (RAINFALLDATE)	AS datte,
      		    	    VALUE,
      			    LEAD (VALUE) OVER ( PARTITION BY  TRUNC (RAINFALLDATE) 
			    	 	      	ORDER BY      RAINFALLDATE
					      ) - VALUE		AS TOTO
    		    FROM    RAINFALL
    		  )
  	WHERE 	  TOTO	>= 0
  	GROUP BY  datte

J'obtiens bien ce que je veux, mais maintenant je veux transformer cela en fonction.

Donc j'ai créé cette fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
create or replace function "CALC_PLUVIO" (clef_var in NUMBER)
return number
is
stmt number;
 
BEGIN
 
SELECT	  SUM (TOTO)  	INTO	CUMUL
  	FROM      (
		    SELECT  TRUNC (RAINFALLDATE)	AS datte,
      		    	    VALUE,
      			    LEAD (VALUE) OVER ( PARTITION BY  TRUNC (RAINFALLDATE) 
			    	 	      	ORDER BY      RAINFALLDATE
					      ) - VALUE		AS TOTO
    		    FROM    RAINFALL
    		  )
  	WHERE 	  TOTO	>= 0
  	GROUP BY  datte
 
WITH RAINFALL AS
(
	SELECT  DATE1	RAINFALLDATE,
    		VALEUR	VALUE
  	FROM	EVV_STPL
  	WHERE	CLEF_VAR	= clef_var
  	AND	TO_DATE(DATE1) = TO_DATE(sysdate-1)
  );
RETURN CUMUL;
END;

et là ça ne fonctionne plus, :

Citation:

Compilation failed,line 18 (10:55:34)
PL/SQL: ORA-00933: la commande SQL ne se termine pas correctementCompilation failed,line 7 (10:55:34)
PL/SQL: SQL Statement ignored

Je ne dois pas être très loin de la solution, que je ne vois pas.

Sinon je ne comprends pas pourquoi le WITH qui fait parti de la requête SQL se trouve après le SQL dans ta fonction.

Tu ne voulais pas faire plutôt :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
create or replace function "CALC_PLUVIO" (clef_var in NUMBER)
return number
is
stmt number;
 
BEGIN
 
WITH RAINFALL AS
(
SELECT DATE1 RAINFALLDATE,
VALEUR VALUE
FROM EVV_STPL
WHERE CLEF_VAR = clef_var
AND TO_DATE(DATE1) = TO_DATE(sysdate-1)
)
SELECT SUM (TOTO) INTO CUMUL
FROM (
SELECT TRUNC (RAINFALLDATE) AS datte,
VALUE,
LEAD (VALUE) OVER ( PARTITION BY TRUNC (RAINFALLDATE)
ORDER BY RAINFALLDATE
) - VALUE AS TOTO
FROM RAINFALL
)
WHERE TOTO >= 0
GROUP BY datte;
 
 
RETURN CUMUL;
END;

01/06/2012, 11h13
McM

Mais pourquoi inverser ce qui marche 8O ?

Dans ton premier code, tu met le with avant, et dans la fonction tu le mets après ...
01/06/2012, 11h18
Scriuiw

Tape "sho err" pour voir les erreurs
Ensuite on pourra avaner un peu plus loin

EDIT : oups un peu tard...

Citation:

Envoyé par McM

Mais pourquoi inverser ce qui marche 8O ?

Dans ton premier code, tu met le with avant, et dans la fonction tu le mets après ...

Merci, ça fonctionne impec.

Maintenant je pense que j'ai un souci quand même avec cette fonction.

Je copie la procédure appelante sous APEX :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 DECLARE stmt number; CURSOR curs1 is select site, nom, clef_var, type_pluvio from site_pluviometre; v_site site_pluviometre.site%TYPE; v_nom site_pluviometre.nom%TYPE; v_clef_var site_pluviometre.clef_var%TYPE; v_type_pluvio site_pluviometre.type_pluvio%TYPE; BEGIN OPEN curs1; LOOP FETCH curs1 into v_site, v_nom, v_clef_var, v_type_pluvio; EXIT WHEN curs1%NOTFOUND; stmt := testval (v_clef_var); INSERT INTO pluvio_data values (v_clef_var, stmt); END LOOP; CLOSE curs1; END;
Je me suis créé une fonction testval qui est toute simple, justement pour tester cette procédure. Cette fonction fait uniquement ceci :

Code:

stmt := 10 * clef_var;

Et lorsque je vais regarder si la table pluvio_data a été mise à jour, je constate qu'elle l'a bien été. Donc ma procédure appelante est correcte. Je ne me plante pas dans les curseurs.

En remplaçant la fonction testval par la fonction calc_pluvio, j'obtiens lorsque j'exécute l'appli APEX le message d'erreur suivant, et ma table n'a pas été mise à jour :

ORA-01830: Le modèle du format de date se termine avant la conversion de la chaîne d'entrée entière