EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TPSMOI" TO F.TPSMOI ELSE STOP
W_Req = ""
W_Req<1> = "00850"
W_Req<-1>= "03615"
W_Req<-1> = "03484"
W_Req<-1> = "02707"
W_Req<-1> = "01282"
W_Req<-1> = "03769"
W_Req<-1> = "01029"
W_Req<-1> = "01683"
W_Req<-1> = "03845"
W_Req<-1> = "01789"
W_Req<-1> =  "03024"
W_Req<-1> = "00564"
FOR i = 1 TO 12
EXECUTE 'SELECT TPSMOI AVEC 0 = "':W_Req<i>:']" AND AVEC DateMoi >= "14178" AND AVEC 3 = "022"'
W_Fin = "F" 
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
 DELETE F.TPSMOI, W_Cle
REPEAT
NEXT i
STOP
