Forum APEX - Développement Oracle Application Express

Bonjour et merci pour ton aide.
mon MCD me donne deux entités "entreprises" et "adresses", le lien étant l' association "clientadres".
Une entreprise possède 1 à n adresses.
une adresse appartient 0 à n entreprises.

ENTREPRISES(NUM_ENTRP<pk>,NUMERO_CONTRAT_INFO<fk>,TITRE, NOM_ENTRP,TEL_ENTRP,TELECOPIE_ENTREPRISE,EMAIL_ENTREPRISE,...)

ADRESSES(ID_ADRESSE<pk>,CD_TYP_ADR<fk2>,CD_INSEE<fk1>,LIGNE1_ADRESSE,LIGNE2_ADRESSE,LIGNE3_ADRESSE)

CLIENTADRES(NUM_ENTRP<pk,fk2>,ID_ADRESSE<pk,fk1>)

J'ai une séquence pour les clés primaires de la table ENTREPRISES et ADRESSES.
J'aimerai un panneau ou pourquoi pas 3 panneaux (ENTREPRISES, ADRESSES LIVRAISON, ADRESSES FACTURATION) mais comment gérer les clés
primaires?: ENTREPRISES.NUM_ENTRP=CLIENTADRES.NUM_ENTRP
            ADRESSES.ID_ADRESSE=CLIENTADRES.ID_ADRESSE

En attente d'un exemple de code

Mon MCD:je donne le lien direct: http://img199.imageshack.us/img199/3133/final1e.png

Une vue des éléments: http://img196.imageshack.us/img196/5774 … eadrec.png

Dernière modification par thomasx25 (2011-07-24 10:11:47)

Bonjour Admin,
je reviens vers toi, j'ai bien compris le principe des 2 processus.
Mais après correction de quelques coquilles, j' ai un message d'erreur sur ce deuxième.
J'ai essayé de modifier celui-ci, sans succés(ne manque-t-il pas un begin et un select?). Le processus est en fin page.

declare
    v_NUM_ENTRP   number;
    v_ID_ADRESSE  number;     

  if :P3_NUM_ENTRP is not null and :P3_ID_ADRESSE is not null then
    insert into ENTREPRISES (NOM_ENTRP, TEL_ENTRP) VALUES (:P3_NOM_ENTRP, :P3_TEL_ENTRP) returning NUM_ENTRP into v_NUM_ENTRP;

    insert into ADRESSES (CD_TYP_ADR, CD_INSEE) VALUES (:P3_CD_TYP_ADR, :P3_CD_INSEE) returning ID_ADRESSE into v_ID_ADRESSE;
   
    insert into CLIENTADRES (1, 2) VALUES(v_NUM_ENTRP, v_ID_ADRESSE);
  else

    update into ENTREPRISES set NOM_ENTRP = :P3_NOM_ENTRP, TEL_ENTRP = :P3_TEL_ENTRP  where NUM_ENTRP = :P3_NUM_ENTRP;

    update into ADRESSES    set CD_TYP_ADR = :P3_CD_TYP_ADR, CD_INSEE = :P3_CD_INSEE  where ID_ADRESSE = :P3_ID_ADRESSE;

  end if;   

  commit;

--merci pour ton aide.

Dernière modification par thomasx25 (2011-07-20 21:12:10)

Bonjour Admin, de nouveau bloqué, je me permets de te solliciter.

L'insert des données sur les 3 tables lors d'une création fonctionne.

Par contre lors d'un update, je rencontre 2 problèmes:
je passe par une région état(page1), j'ai crée un lien de colonne sur un attribut (ID_ADRESSE) renvoyant les clés primaires sur les éléments
P2_ID_ADRESSE et P2_NUM_ENTRP .Les clés primaires sont bien affichés lors du passage à la page2.

J'ai bien crée un processus Aprés en-tête dont voici le code simplifié:

declare
      cursor c is  SELECT   E.NOM_ENTRP, E.TITRE,E.TEL_ENTRP,       E.TELECOPIE_ENTREPRISE,  E.EMAIL_ENTREPRISE,
        E.REMARQUES_ENTREPRISE,A.CD_TYP_ADR ,A.CD_INSEE, A.LIGNE1_ADRESSE  ,A.LIGNE_LIGNE2_ADRESSE,A.LIGNE3_ADRESSE
       
        FROM     ENTREPRISES E ,ADRESSES A, CLIENTADRES C
        WHERE  A.ID_ADRESSE=C.ID_ADRESSE
        AND    E.NUM_ENTRP=C.NUM_ENTRP
         AND    :P2_NUM_ENTRP=E.NUM_ENTRP
        AND    :P2_ID_ADRESSE=A.ID_ADRESSE     ;
       
      begin
        for m in c loop
        :P2_NOM_ENTRP  :=  m.NOM_ENTRP;
        :P2_TEL_ENTRP   :=  m.TEL_ENTRP;
        :P2_CD_TYP_ADR :=  m.CD_TYP_ADR;
        :P2_CD_INSEE     :=  m.CD_INSEE;
       
       
        end loop;
      end;

le champs des éléments reste null malgré des valeurs saisies lors de la création (mon premier problème).
Si malgré tout, je valide l'update (bouton "appliquer les modifications"), Oracle me renvoit:

ORA-02292: violation de contrainte (THOMAS.FK_CLIENTAD_CLIENTADR_ENTREPRI) d'intégrité - enregistrement fils existant

J'ai modifié les clés étrangères:
         ALTER TABLE CLIENTADRES ADD (
         CONSTRAINT FK_CLIENTAD_CLIENTADR_ADRESSES CHECK (ID_ADRESSE IS NOT NULL)
         DEFERRABLE INITIALLY DEFERRED);

Je n'ai plus de message d'erreur;

L'update ne se fait toujours pas.
Je pense que le  problème vient du bouton "appliquerles modifications" (Action SQL UPDATE), il valide
l 'update que de la table ENTREPRISES (oracle crée une nouvelle ligne avec une clé primaire<>).
D'où ma question,  Comment créer un bouton de fonction SQL UPDATE qui me permet de valider la mise à jour de mes tables?

declare
    v_NUM_ENTRP   number;
    v_ID_ADRESSE  number;     

  if :P2_NUM_ENTRP is null and :P2_ID_ADRESSE is null then
    insert into ENTREPRISES (NOM_ENTRP, TEL_ENTRP) VALUES (:P2_NOM_ENTRP, :P2_TEL_ENTRP) returning NUM_ENTRP into v_NUM_ENTRP;

    insert into ADRESSES (CD_TYP_ADR, CD_INSEE) VALUES (:P2_CD_TYP_ADR, :P2_CD_INSEE) returning ID_ADRESSE into v_ID_ADRESSE;
   
    insert into CLIENTADRES (NUM_ENTRP, ID_ADRESSE) VALUES(v_NUM_ENTRP, v_ID_ADRESSE);
  else

    update into ENTREPRISES set NOM_ENTRP = :P2_NOM_ENTRP, TEL_ENTRP = :P2_TEL_ENTRP  where NUM_ENTRP = :P2_NUM_ENTRP;

    update into ADRESSES    set CD_TYP_ADR = :P2_CD_TYP_ADR, CD_INSEE = :P2_CD_INSEE  where ID_ADRESSE = :P2_ID_ADRESSE;

  end if;   

  commit;

Dernière modification par thomasx25 (2011-08-03 22:05:15)

Bonsoir,
tout cela semble bien compliqué et surtout manque à mon avis de "design" de base de données.

1 -  pk ID_ADRESSE de la table partagée entres clients et fournisseurs et techniciens :
on crée une séquence SEQ_ID_ADRESSE puis un trigger before insert sur la table qui mets à jour cet ID.

2- pourquoi vouloir tout faire en une seule opération ? Un client = plusieurs adresses non ?

je verrais plutôt ça comme ça...

déjà ton select
SELECT   E.NUM_ENTRP ,     E.TITRE,  E.NOM_ENTRP,  E.TEL_ENTRP,  E.TELECOPIE_ENTREPRISE,  E.EMAIL_ENTREPRISE, E.REMARQUES_ENTREPRISE,
                  A.ID_ADRESSE,  A.CD_TYP_ADR ,   A.CD_INSEE  ,A.LIGNE1_ADRESSE  ,A.LIGNE_LIGNE2_ADRESSE,  A.LIGNE3_ADRESSE,
                  C.NUM_ENTRP ,C.ID_ADRESSE
     FROM     ENTREPRISES E ,ADRESSES A, CLIENTADRES C
    WHERE  A.ID_ADRESSE=C.ID_ADRESSE
       AND    E.NUM_ENTRP=C.NUM_ENTRP

qu'est ce qui se passe si une entreprise n'a pas d'adresse de déclarée ? ben tu vas passer à côté (pas de jointure externe) et donc tu risque de recréer la même ....

je ferais un IR (interactive report) avec la liste des entreprises et adresses basée sur une vue. de là je brancherais un formulaire de modification / création du client et un autre pour les adresses .

tu pourras ainsi créer de nouveaux clients sans avoir à te soucier de renseigner l'adresse de suite et de même tu pourras enrichir un client existant de nouvelles adresses sans passer par ta euh mécanique .....

3- declare
    v_NUM_ENTRP   number;
    v_ID_ADRESSE  number;     

  if :P2_NUM_ENTRP is null and :P2_ID_ADRESSE is null then
    insert into ENTREPRISES (NOM_ENTRP, TEL_ENTRP) VALUES (:P2_NOM_ENTRP, :P2_TEL_ENTRP) returning NUM_ENTRP into v_NUM_ENTRP;

    insert into ADRESSES (CD_TYP_ADR, CD_INSEE) VALUES (:P2_CD_TYP_ADR, :P2_CD_INSEE) returning ID_ADRESSE into v_ID_ADRESSE;
   
    insert into CLIENTADRES (NUM_ENTRP, ID_ADRESSE) VALUES(v_NUM_ENTRP, v_ID_ADRESSE);
  else

    update into ENTREPRISES set NOM_ENTRP = :P2_NOM_ENTRP, TEL_ENTRP = :P2_TEL_ENTRP  where NUM_ENTRP = :P2_NUM_ENTRP;

    update into ADRESSES    set CD_TYP_ADR = :P2_CD_TYP_ADR, CD_INSEE = :P2_CD_INSEE  where ID_ADRESSE = :P2_ID_ADRESSE;

  end if;   

  commit;

là tu cours à la catastrophe tôt ou tard (et plutôt tôt que tard....)
insert ...... pas d'exception de gérée  (ORA-02292: violation de contrainte (THOMAS.FK_CLIENTAD_CLIENTADR_ENTREPRI) d'intégrité - enregistrement fils existant)
...else update....

ça ne passe pas alors on commence à modifier les contraintes d'intégrité , pas bon pas bon du tout.....

plutôt que d'écrire tout le pl/sql dans apex comme tu as fait je prendrais le temps d'écrire une vrai procédure stockée avec gestion des exceptions et tout et tout.

Ce ne sont que quelques pistes écrites vite fait, je ne suis pas un spécialiste apex, par contre en design d'applis et sur oracle j'ai plus de 10ans d'expérience.

N'hésite pas si tu veux approfondir le sujet et voir d'autres pistes (basée sur une vue et trigger instead of par ex)

Cordialement
JeanYves