problème bloc multi-ligne

[melleweb]

Bonjour

je suis entrain de developper une application sous Oracle 10g.
j'essai maintenant de remplir un Bloc multiligne a partir d'un type Clob de la base de donnée (le Clob contien une chaine de caractère volumineuse)

je vé expliquer la loguique du raisonement:

si le bloc multiligne est vide donc :je doit creer un nouveau record et le remplir apartir du clob

sinon :je doit comparer l'enregistrement en cours avec les autre déja saisi dans le bloc (la comparaison se fé sur une colonne qui s'appele x_sh)
s'il existe deja je passe
sinon je l'ajoute


voila le code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
go_block('X_ARTICLE');	
while :System.Last_Record <> 'TRUE' 
loop 
IF  :article.x_sh = SUBSTR(var_ligne, 28, 10)) then	
flag:=false;// flag de type BOOLEAN
end IF;
next_record;
end loop;
IF flag = true then
          CREATE_RECORD;
          	             :article.x_sh:=SUBSTR(var_ligne, 28, 10);
                          :article.x_valeur:=SUBSTR(var_ligne, 95, 13);
                          :article.x_poida:=SUBSTR(var_ligne, 108, 13);
              	:article.x_rsa:=SUBSTR(var_ligne, 1, 0);
              	:article.x_qtcompl:=SUBSTR(var_ligne, 121, 13);
              	:article.x_payso:=SUBSTR(var_ligne, 142, 2);
              	:article.x_asp:=SUBSTR(var_ligne, 136, 1);
              	:article.x_libsh:=SUBSTR(var_ligne, 180, 210);
              	:article.x_uc2:=SUBSTR(var_ligne, 403, 2);
              	:article.x_CODEUC:=SUBSTR(var_ligne, 134,2);
        END IF;
else flag :=true;

j'ai toujours de problème dans ce code, il n'afiche rien , je compte bq sur votre aide
merci

[laurentschneider]

c'est quoi :article ?

[melleweb]

:article.sh c'é (:nom_du_bloc.nom_du_champs)

[c.langlet]

Ce qui m'etonne c'est le go_block('X_ARTICLE'); alors que le bloc est nommé
:article aprés
et je pense qu'il faudrait positionné a true flag avant la boucle de parcours du block

[melleweb]

non j'ai mis x_article dans mon code et non pas article (j'ai ecri article eu lieu de x_article parceque x_ vaut une emoticonne dans ce forum)

[c.langlet]

et concernnant l'initialisation de flag avant la boucle ?
de plus je pense qu'il faudrait un first_record avant la boucle.

[laurentschneider]

je n'ai sans doute pas tout compris, c'est du code serveur ou du plsql outil style Forms ?

[salim11]

salut Laurent,

C'est du Style Forms, le post n'est pas dans le bon sous forum

[salim11]

salut ,

essaie ce code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
go_block('X_ARTICLE'); 
first_record;   
while :System.Last_Record <> 'TRUE' 
loop 
IF  :article.x_sh != SUBSTR(var_ligne, 28, 10)) then    
          CREATE_RECORD;
                  :article.x_sh:=SUBSTR(var_ligne, 28, 10);
                  :article.x_valeur:=SUBSTR(var_ligne, 95, 13);
                  :article.x_poida:=SUBSTR(var_ligne, 108, 13);
                  :article.x_rsa:=SUBSTR(var_ligne, 1, 0);
                  :article.x_qtcompl:=SUBSTR(var_ligne, 121, 13);
                  :article.x_payso:=SUBSTR(var_ligne, 142, 2);
                  :article.x_asp:=SUBSTR(var_ligne, 136, 1);
                  :article.x_libsh:=SUBSTR(var_ligne, 180, 210);
                  :article.x_uc2:=SUBSTR(var_ligne, 403, 2);
END IF;
next_record;
end loop;

[Garuda]

Il faudrait peut-être déja initialiser flag à true au début.

[salim11]

Salut,

la condition suffit, il n'a pas besoin de rajouter la variable flag.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
if  :article.x_sh != SUBSTR(var_ligne, 28, 10)) then    
          CREATE_RECORD;
                  :article.x_sh:=SUBSTR(var_ligne, 28, 10);
                  :article.x_valeur:=SUBSTR(var_ligne, 95, 13);
                  :article.x_poida:=SUBSTR(var_ligne, 108, 13);
                  :article.x_rsa:=SUBSTR(var_ligne, 1, 0);
                  :article.x_qtcompl:=SUBSTR(var_ligne, 121, 13);
                  :article.x_payso:=SUBSTR(var_ligne, 142, 2);
                  :article.x_asp:=SUBSTR(var_ligne, 136, 1);
                  :article.x_libsh:=SUBSTR(var_ligne, 180, 210);
                  :article.x_uc2:=SUBSTR(var_ligne, 403, 2);
END IF;

[Garuda]

Salim 11, je pense que ton code ne fait pas ce qui est demandé.
Il va créer une ligne nouvelle a chaque enregistrement existant !

Il faut d'abord parcourir TOUTES les lignes existantes pour savoir si celui qu'on veut créer existe !
D'ou l'utilisation du flag (= enreg a creer).
L'algo est bon, me semble-t-il.
Mais il faut initialiser le flag a TRUE (enreg inexistant par défaut) pour que ca marche !

[salim11]

Salut,
Oui tu as raison Garuda. Je vois flou aujourd'hui .

mais on peut l'améliorer, en rajoutant une condition à la boucle while dés qu'il le trouve il sort .

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
go_block('X_ARTICLE');
first_record;
flag:=TRUE;    
while :System.Last_Record <> 'TRUE' and  flag
loop 
if  :article.x_sh = SUBSTR(var_ligne, 28, 10)) then    
flag:=false;// flag de type boolean
end if;
next_record;
end loop;
if flag = true then
          CREATE_RECORD;
                  :article.x_sh:=SUBSTR(var_ligne, 28, 10);
                  :article.x_valeur:=SUBSTR(var_ligne, 95, 13);
                  :article.x_poida:=SUBSTR(var_ligne, 108, 13);
                  :article.x_rsa:=SUBSTR(var_ligne, 1, 0);
                  :article.x_qtcompl:=SUBSTR(var_ligne, 121, 13);
                  :article.x_payso:=SUBSTR(var_ligne, 142, 2);
                  :article.x_asp:=SUBSTR(var_ligne, 136, 1);
                  :article.x_libsh:=SUBSTR(var_ligne, 180, 210);
                  :article.x_uc2:=SUBSTR(var_ligne, 403, 2);
                  :article.x_CODEUC:=SUBSTR(var_ligne, 134,2);
END IF;