EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
 OPEN "","DETAILECRITUREGENE" TO F.DETAILECRITUREGENE ELSE STOP
 EXECUTE 'SELECT DETAILECRITUREGENE AVEC 3 = "0014]" AND AVEC 11 # ""'
 W_Fini="FAUX"
 LOOP
    READNEXT W_Cle ELSE W_Fini="VRAI"
 WHILE W_Fini="FAUX" DO
    READ ENR_DETAILECRITUREGENE FROM F.DETAILECRITUREGENE,W_Cle ELSE STOP
    ENR_DETAILECRITUREGENE<11> = ""
    WRITE ENR_DETAILECRITUREGENE ON F.DETAILECRITUREGENE,W_Cle
 REPEAT

STOP

