[Forms] Problème de curseur

[ludo.guy]

Bnjour tout le monde.

Alors voilà j'ai un petit problème avec un procédure, un Bug que je n'arrivep as à expliquer.

J'ai un curseur

Code :

1
2
3
4
5
6
7
8
9
 
cursor cur_verif_cpt_sain IS
SELECT sum(solde_comptable) solde_comptable, code_devise
FROM tmpcompte
WHERE cdos = :PARAMETER.P_CDOS
AND numero_client = tmpcli.numero_client
AND code_produit != (SELECT col4 FROM cxparametre WHERE cdos = :PARAMETER.P_CDOS AND code_param = 'CPTREC')
AND numero_compte_genera NOT IN (SELECT numero_compte_genera FROM cxcompte_general WHERE cdos = :PARAMETER.P_CDOS AND nature IN ('G','P'))	
GROUP BY code_devise;

Bref, un petit curseur sympa quoi.

Pour le parcourir je fais la boucle suivante :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
open cur_verif_cpt_sain;
 
fetch cur_verif_cpt_sain INTO sum_wsolde_comptes,w_code_devise_cpt;
 
while cur_verif_cpt_sain%found loop
 
   wsolde_comptes := wsolde_comptes + une fonction(sum_wsolde_comptes);
 
   fetch cur_verif_cpt_sain INTO sum_wsolde_comptes,w_code_devise_cpt;
 
end loop;
 
close cur_verif_cpt_sain;

J'ai bien sûr vérifié qu'il y avait des enregistrements ramenés par mon curseur en faisant un select count(distinct code_devise) avant (j'ai un enregistrement). Et le programme passe pourtant sur le open, le fetch et le résultat de ce dernier donne bien sûr les valeurs null dans les deux variables de destination.

J'ai essayé aussi avec la syntaxe

Code :

1
2
3
 
FOR mavariable IN moncuseur loop
end loop;

Toujours le même problème.

Est-ce que quelqu'un pourrait m'expliquer ce qu'il se passe ?

[orafrance]

x + NULL = NULL

Modifie sum(solde_comptable) par SUM(NVL(solde_comptable,0) ou ajoute AND solde_comptable IS NOT NULL

[ludo.guy]

Le champ en question est not null. Mais effectivement, ça aurait pu.

[orafrance]

Essaye :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
open cur_verif_cpt_sain;
 
fetch cur_verif_cpt_sain INTO sum_wsolde_comptes,w_code_devise_cpt;
wsolde_comptes := 0;
 
while cur_verif_cpt_sain%found loop
 
   wsolde_comptes := wsolde_comptes + une fonction(sum_wsolde_comptes);
 
   fetch cur_verif_cpt_sain INTO sum_wsolde_comptes,w_code_devise_cpt;
 
end loop;
 
close cur_verif_cpt_sain;

Tu n'as pas initialisé wsolde_comptes à 0 surement

[McM]

Envoyé par ludo.guy

Le champ en question est not null. Mais effectivement, ça aurait pu.

Ou alors

Code :

une fonction(sum_wsolde_comptes);

qui renvoie NULL

Et puis tu n'as qu'à afficher les différentes variables avec du DBMS_OUTPUT et puis tu verras bien où ça foire.

[ludo.guy]

Bon, après quelques recherches il semblerait que ce soit un problème de déclaration de ROWTYPE, je trouve exactement et je vous dis ça.

Merci pour les indications en tout cas.

[ludo.guy]

Bon, le verdict est tombé, j'ai corrigé l'erreur.

en fait cette boucle sur le curseur était dans une autre boucle. Le tmpcli.numero_client faisait partie de la boucle mère. Or cette boucle (un curseur elle aussi) était déclarée sous la forme

for tmpcli in cur_client loop
end loop;

Depuis que j'ai modifié pour faire des open/fetch/close tout se passe mieux... Si quelqu'un a une explications je suis preneur ;-)

Merci de votre attention en tout cas.

[McM]

Moi je suis partisan du FOR IN LOOP et je n'ai jamais eu de pb.
Faudrait le code entier pour comprendre.