EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TPSDETAILSINTERV" TO F.TPS ELSE STOP

EXECUTE 'SELECT TPSDETAILSINTERV'

W_Fin = "F"
W_NB = 0
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
   READ ENR FROM F.TPS, W_Cle THEN
	IF ENR<1> < W_Cle[11,5] AND ENR<1> # "" THEN
		PRINT W_Cle:" ":OCONV(W_Cle[11,5],"D4/"):" ":OCONV(ENR<1>,"D4/")
		DELETE F.TPS, W_Cle
		W_NB = W_NB + 1
	END
   END
REPEAT
PRINT W_NB:" interventions invalides supprimes" 
STOP
