Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- PROCEDURE LIRE_TRAVAIL(LE_NUPROJ IN NUMBER, LE_NUEMPL IN NUMBER, LISTE_TRAVAIL OUT CUR_TRAVAIL)IS
- BEGIN
- IF LE_NUPROJ = 0 AND LE_NUEMPL = 0 THEN
- 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;
- ELSE IF LE_NUPROJ = 0 AND LE_NUEMPL!=0 THEN
- 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;
- END IF;
- IF LE_NUPROJ != 0 AND LE_NUEMPL =0 THEN
- 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;
- END IF;
- IF LE_NUPROJ != 0 AND LE_NUEMPL!=0 THEN
- 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;
- END IF;
- END IF;
- EXCEPTION
- WHEN OTHERS THEN
- ROLLBACK;
- RAISE_APPLICATION_ERROR(-20701,'erreur innattendue');
- END;
Add Comment
Please, Sign In to add comment