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

W_RequeteMoul=""


PRINT "Periode (AAAAMM) : ":
INPUT W_Periode

EXECUTE 'SELECT DETAILMANDAT AVEC 0 ="[':W_Periode:'"'

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

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

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
	DELETE F.DETAILMANDAT,W_Cle
   REPEAT

END
EXECUTE 'EFFACER-LISTE W_RequeteMoul'
STOP
