1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| declare
numdoss number (1);
begin
select num_dossier into numdoss from dossier;
if numdoss := num_dossier then
(select
MATRICULE_ASSURE,NOM_ASSURE ,PRENOM_ASSURE,DATE_NAI,SEX_ASSURE,CIN_ASSURE into :MATRICULE_ASSURE ,:NOM_ASSURE,:PRENOM_ASSURE,:DATE_NAI,:SEX_ASSURE,:CIN_ASSURE from assure);
(select
COD_TYP_ACCIDENT, DATE_ACC, HEUR_ACC into :COD_TYP_ACCIDENT,:DATE_ACC ,:HEUR_ACC from accident);
(select
TAUX_IPP,DATE_DEBU_JOUI, TYP_DECIS,DATE_DECIS into :TAUX_IPP,:DATE_DEBU_JOUI, :TYP_DECIS,:DATE_DECIS from decision);
else
message ('Le Numéro De Dossier Incorrest !!!!')
End if
End ; |
Partager