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

*PRINT "Anne  archiver :"
*INPUT Annee

W_RequeteAideArchivefact=""

EXECUTE 'SELECT ARCHIVEFACT PAR AnneeArchive PAR CodeAideArcFact PAR MoisArchive'

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

ENR_AIDESARCHIVEFACT=""
W_CleAnc=""
W_AideAv=""
W_AnneeAv=""
IF MSGCODE<1> # 209 THEN
   SELECT F.ARCHIVEFACT TO W_RequeteAideArchivefact

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteAideArchivefact ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      W_Aide=W_Cle[1,5]
      W_Annee=W_Cle[10,4]
      W_Mois=W_Cle[14,2]

      IF W_Aide # W_AideAv AND W_CleAnc # "" OR W_Annee # W_AnneeAv AND W_CleAnc # "" THEN
         WRITE ENR_AIDESARCHIVEFACT ON F.AIDESARCHIVEFACT,W_AideAv:W_AnneeAv
         ENR_AIDESARCHIVEFACT=""
      END

      ENR_AIDESARCHIVEFACT<W_Mois,-1>=W_Cle

      W_CleAnc=W_Cle
      W_AideAv=W_CleAnc[1,5]
      W_AnneeAv=W_CleAnc[10,4]

   REPEAT

END

WRITE ENR_AIDESARCHIVEFACT ON F.AIDESARCHIVEFACT,W_AideAv:W_AnneeAv

STOP
