**********
* SI TOUTES LES ACTIVITES DE L'AIDE SONT TERMINEES ALORS METTRE DATE DE SORTIE
* DE FACON A CONSIDERER LE DOSSIER SUPPRIME
**********

OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP
EXECUTE "SELECT ACTIVITESAIDE"
10 READNEXT CLE ELSE STOP
READ ENRACTIVITESAIDE FROM F.ACTIVITESAIDE,CLE ELSE GOTO 10
I=1
INACTIF="OUI"
MOTIFFIN=""
DATEFIN=""
LOOP
 ACTIVITEAIDE=EXTRACT(ENRACTIVITESAIDE,1,I)
 UNTIL ACTIVITEAIDE="" OR INACTIF="NON" DO
  IF EXTRACT(ENRACTIVITESAIDE,3,I)="" THEN
   INACTIF="NON"
  END ELSE
   MOTIF=EXTRACT(ENRACTIVITESAIDE,4,I)
   FINACTIVITE=EXTRACT(ENRACTIVITESAIDE,3,I)
   IF DATEFIN="" THEN
    DATEFIN=FINACTIVITE
    MOTIFFIN=MOTIF
   END ELSE
    IF DATEFIN<FINACTIVITE THEN
     DATEFIN=FINACTIVITE
     MOTIFFIN=MOTIF
    END
   END
  END
  I=I+1
REPEAT
IF INACTIF="OUI" THEN
 IF DATEFIN#"" THEN
  READ ENRCIVILAIDE FROM F.CIVILAIDE,CLE ELSE GOTO 10
  ENRCIVILAIDE=REPLACE(ENRCIVILAIDE,43;DATEFIN)
  ENRCIVILAIDE=REPLACE(ENRCIVILAIDE,44;MOTIFFIN)
  WRITE ENRCIVILAIDE ON F.CIVILAIDE,CLE
 END
END
GOTO 10
 
 
   