Discussion :

[taska]

J'avais oublié que tu avais un bouton recherche 'Maison'

essaies ceci dans le code du WBP. Cela permettra déja de voir si des données sont retournées ...

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
Declare
ret number(4);
begin
	begin
		Select count(*) into ret 
                FROM BIEN, EXSISTER,FIGURER
                where BIEN.CODE_BIEN = EXSISTER.CODE_BIEN
               AND BIEN.CODE_BIEN = FIGURER.CODE_BIEN
                AND BIEN.CODE_BIEN like :BIEN.CODE_BIEN;
		message (ret); message (ret);
	exception when others then
		message ( sqlcode ||''||sqlerrm);	message ( sqlcode ||''||sqlerrm);
 
	end;
end;

CDLT

[samba2005kanoute]

J'avais oublié que tu avais un bouton recherche 'Maison'

essaies ceci dans le code du WBP. Cela permettra déja de voir si des données sont retournées ...

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
Declare
ret number(4);
begin
	begin
		Select count(*) into ret 
                FROM BIEN, EXSISTER,FIGURER
                where BIEN.CODE_BIEN = EXSISTER.CODE_BIEN
               AND BIEN.CODE_BIEN = FIGURER.CODE_BIEN
                AND BIEN.CODE_BIEN like :BIEN.CODE_BIEN;
		message (ret); message (ret);
	exception when others then
		message ( sqlcode ||''||sqlerrm);	message ( sqlcode ||''||sqlerrm);
 
	end;
end;

CDLT

Bonjours,
J'ai insère le script comme vous m'aviez demande, lorsque j' exécute ; la machine me retourner le nombre d'enregistrement qui se trouve dans la base. Je dois faire quoi maintenant.

Merci.

[plaineR]

Bonjours,
J'ai insère le script comme vous m'aviez demande, lorsque j' exécute ; la machine me retourner le nombre d'enregistrement qui se trouve dans la base. Je dois faire quoi maintenant.

Merci.

Il te retourne tous les enregistrements que tu as dans ta base ou uniquement ceux qui concerne ton critère de sélection ?

Tu en as combien ? 0, 1 ou plus ?

[taska]

et bien maintenant tu fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
for rec in ( Select BIEN.CODE_BIEN, NOM_BIEN, EXSISTER.NUM_BON_ENTRE, DATE_ENTRE, QTE_ENTRE,FIGURER.NUM_BON_SORTIE,QTE_SORTIE,DATE_SORTIE
FROM BIEN, EXSISTER,FIGURER
where BIEN.CODE_BIEN = EXSISTER.CODE_BIEN
AND BIEN.CODE_BIEN = FIGURER.CODE_BIEN
AND BIEN.CODE_BIEN like :BIEN.CODE_BIEN; ) loop
  go_block ('BIEN');
  next_record;
   copy ( rec.code_bien, 'BIEN.CODE_BIEN')
    etc ...
   go_block ('EXSISTER')
 next_record;
   copy ( rec.NUM_BON_ENTRE, 'EXSISTER.NUM_BON_ENTRE')
  etc ...
end loop;

... mais tout ça, ca ne rime pas à grand chose ...
Tu devrais baser ton bloc sur une procédure et ne me demandes pas comment, tu trouveras ton bonheur dans les Tutoriels ...

CDLT.

[samba2005kanoute]

Il te retourne tous les enregistrements que tu as dans ta base ou uniquement ceux qui concerne ton critère de sélection ?

Tu en as combien ? 0, 1 ou plus ?

Non il m'affiche le chiffre 12 seulement.

[samba2005kanoute]

et bien maintenant tu fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
for rec in ( Select BIEN.CODE_BIEN, NOM_BIEN, EXSISTER.NUM_BON_ENTRE, DATE_ENTRE, QTE_ENTRE,FIGURER.NUM_BON_SORTIE,QTE_SORTIE,DATE_SORTIE
FROM BIEN, EXSISTER,FIGURER
where BIEN.CODE_BIEN = EXSISTER.CODE_BIEN
AND BIEN.CODE_BIEN = FIGURER.CODE_BIEN
AND BIEN.CODE_BIEN like :BIEN.CODE_BIEN; ) loop
  go_block ('BIEN');
  next_record;
   copy ( rec.code_bien, 'BIEN.CODE_BIEN')
    etc ...
   go_block ('EXSISTER')
 next_record;
   copy ( rec.NUM_BON_ENTRE, 'EXSISTER.NUM_BON_ENTRE')
  etc ...
end loop;

... mais tout ça, ca ne rime pas à grand chose ...
Tu devrais baser ton bloc sur une procédure et ne me demandes pas comment, tu trouveras ton bonheur dans les Tutoriels ...

CDLT.

J’aimerais savoir etc… signifie quoi ?, je dois mettre quoi à sa place.
Vous savez sa me fait mal de mande mais j’ai pas le choix. En plus quand on demande à un aveugle de chercher dix gramme d’or dans l’océan pacifique, il ne faut pas t’attendre de le revoir si tôt.
Merci pour votre patience.

[taska]

J’aimerais savoir etc… signifie quoi ?,

j'abandonne et je m'avoue vaincu

etc

Et cetera is an expression that means "and other things". It is taken directly from the Latin expression which literally means "and the rest (of such things)." Et means "and"; cetera (plural of ceterum/caeterum) means "the rest."

CDLT.

[plaineR]

... mais tout ça, ca ne rime pas à grand chose ...
Tu devrais baser ton bloc sur une procédure

+1 ou alors sur une from clause query plus simple à gérer.

[plaineR]

En plus quand on demande à un aveugle de chercher dix gramme d’or dans l’océan pacifique, il ne faut pas t’attendre de le revoir si tôt.

Excellent, je ne la connaissais pas celle là !

Mais bon à la différence de l'aveugle, toi tu as un remède... A mon avis tu as besoin d'une formation sur forms pour bien comprendre le fonctionnement de cet outil et tu verras qu'il est possible de faire les choses simplement presque sans ligne de code.

[taska]

il est possible de faire les choses simplement presque sans ligne de code.

... et il ne faudra pas s'attendre à te revoir de si tôt car tu auras vraisemblablement trouvé du temps pour chercher les pépites ...

CDLT.

[samba2005kanoute]

Un bonjour à toute la communauté,
Voila j’ai pus résoudre mon problème avec la procédure suivante. Va tout je tiens à remercie tout les personnes qui mon aide, plus particulièrement Plainer

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
 1 – Déclencheur principale
  On met le formulaire en mode interrogation avec cette commande :
 
Dans WHEN – NEW – FORM – INSTANCE on sassier
 
   IF : SYSTEM.MODE !=”ENTER-QUERYE-“
         THEN ENTER-QUERY;
  END IF;
 
2- Déclencheur du formulaire principale
 
DANS WHEN – VALIDATE – ITEM
     On appelle la procédure  saisie dans unités de programme pour mon cas je vais appeler 
     « get-qte-sort » qui est le nom que j’ai donne à mon programme qui calcule la quantité totale des produits sortie, puis «get – qte – ent » qui calcule la quantité totale des produits entre. 
 
3- On choisir un bouton qui sera utilise comme bouton de rechercher
     Dans WHEN – BOUTTON – PRESSED on saisie « EXECUTE – QUERY » 
 
4 – dans unite de programme 
On va faire une procédure qui va calcule la quantité total sortie
 
PRCEDURE GAT – QTE – SORTIS
BEGIN
    SELECT SUM 5FIGURER.QTE_SORTIE) INTO   :TOT_QTE_SORTIE 
     FROM FIGURER
    WHERE FUGURER.CODE_BIEN=:BIEN.CODE_BIEN;
    END;