************************************************
* Moulinette d'apurations es exceptions :
* Il a t constat que des exceptions persistent aprs arrt de l'intervention  laquelle elles se rapportent.
* cette moulinette les isole et les supprime.
* Nb : descriptuer "Valide" cr dans BASEVIERGE.

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TPSEXCEPTIONS" TO F.EXCEPT ELSE STOP
EXECUTE 'SELECT TPSEXCEPTIONS AVEC Valide = "0"'
W_Fin = "0"
LOOP
READNEXT W_Cle ELSE W_Fin = "1"
WHILE W_Fin # "1"
	DELETE F.EXCEPT, W_Cle
REPEAT
STOP
