EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.FICHIER ELSE STOP

W_RequeteMoul=""

EXECUTE 'SELECT CONTRAT'

EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.FICHIER TO W_RequeteMoul

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_FICHIER FROM F.FICHIER,W_Cle ELSE PRINT "CLE":W_Cle
      Nombre = DCOUNT(ENR_FICHIER<15>,CHAR(253))
      ENR_FICHIER<100>=ENR_FICHIER<21,Nombre>
      ENR_FICHIER<101>=ENR_FICHIER<24,Nombre>
*      ENR_FICHIER=DELETE(ENR_FICHIER,100)
*      ENR_FICHIER=DELETE(ENR_FICHIER,101)
      WRITE ENR_FICHIER ON F.FICHIER,W_Cle
   REPEAT

END

STOP
