Guest User

Untitled

a guest
Apr 20th, 2018
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PL/SQL 1.39 KB | None | 0 0
  1.   PROCEDURE LIRE_TRAVAIL(LE_NUPROJ IN NUMBER, LE_NUEMPL IN NUMBER, LISTE_TRAVAIL OUT CUR_TRAVAIL)IS
  2.   BEGIN
  3.     IF LE_NUPROJ = 0 AND LE_NUEMPL = 0 THEN
  4.       OPEN LISTE_TRAVAIL FOR SELECT nomempl , TRAVAIL.nuempl , nomproj , TRAVAIL.nuproj  FROM TRAVAIL, PROJET, EMPLOYE WHERE TRAVAIL.NUEMPL = EMPLOYE.NUEMPL AND TRAVAIL.NUPROJ = PROJET.NUPROJ;
  5.     ELSE IF LE_NUPROJ = 0 AND LE_NUEMPL!=0 THEN
  6.             OPEN LISTE_TRAVAIL FOR SELECT nomempl , TRAVAIL.nuempl , nomproj , TRAVAIL.nuproj  FROM TRAVAIL, PROJET, EMPLOYE WHERE TRAVAIL.NUEMPL = LE_NUEMPL AND TRAVAIL.NUEMPL = EMPLOYE.NUEMPL AND TRAVAIL.NUPROJ = PROJET.NUPROJ;
  7.           END IF;
  8.           IF LE_NUPROJ != 0 AND LE_NUEMPL =0 THEN
  9.             OPEN LISTE_TRAVAIL FOR SELECT nomempl , TRAVAIL.nuempl , nomproj , TRAVAIL.nuproj  FROM TRAVAIL, PROJET, EMPLOYE WHERE TRAVAIL.NUPROJ = LE_NUPROJ AND TRAVAIL.NUEMPL = EMPLOYE.NUEMPL AND TRAVAIL.NUPROJ = PROJET.NUPROJ;          
  10.           END IF;
  11.           IF LE_NUPROJ != 0 AND LE_NUEMPL!=0 THEN
  12.             OPEN LISTE_TRAVAIL FOR SELECT nomempl , TRAVAIL.nuempl , nomproj , TRAVAIL.nuproj  FROM TRAVAIL, PROJET, EMPLOYE WHERE TRAVAIL.NUPROJ = LE_NUPROJ AND TRAVAIL.NUEMPL = LE_NUEMPL AND TRAVAIL.NUEMPL = EMPLOYE.NUEMPL AND TRAVAIL.NUPROJ = PROJET.NUPROJ;          
  13.           END IF;
  14.     END IF;
  15.   EXCEPTION
  16.   WHEN OTHERS THEN
  17.     ROLLBACK;
  18.     RAISE_APPLICATION_ERROR(-20701,'erreur innattendue');
  19.   END;
Add Comment
Please, Sign In to add comment