************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","ORIGINEAIDE" TO F.ORIGINEAIDE ELSE STOP

EXECUTE 'SELECT CIVILAIDE AVEC CodeEntiteActivite = ""'
EXECUTE 'SAUVE-LISTE W_RESULTAT' 
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE

W_Fini="FAUX"
SELECT F.CIVILAIDE TO W_RESULTAT

LOOP
   READNEXT W_Cle FROM W_RESULTAT ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO

   W_Exist = "Vrai"

   READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,W_Cle ELSE W_Exist = "Faux"
	
   IF W_Exist = "Faux" THEN
	DELETE F.CIVILAIDE,W_Cle
	DELETE F.ORIGINEAIDE,W_Cle
   END   

REPEAT

STOP
