Discussion :

[edubourg]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

[Bibeleuh]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

?

[McM]

Mais pourquoi inverser ce qui marche ?

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

[Scriuiw]

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

EDIT : oups un peu tard...

[edubourg]

Mais pourquoi inverser ce qui marche ?

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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