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

*PRINT "Anne  archiver :"
*INPUT Annee

W_RequeteAidantArchiveBull=""
W_AidantAv=""
W_AnneeAv=""
ENR_AIDANTSARCHIVEBULL=""
EXECUTE 'SELECT ARCHIVEBULL PAR AnneeArchive PAR CodeAidantArchive PAR MoisArchive PAR Employeur PAR PrenomEmployeur'
EXECUTE 'SAUVE-LISTE W_RequeteAidantArchiveBull'
EXECUTE "LISTE W_RequeteAidantArchiveBull" RETURNING MSGCODE

W_CleAnc=""
IF MSGCODE<1> # 209 THEN
   SELECT F.ARCHIVEBULL TO W_RequeteAidantArchiveBull

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteAidantArchiveBull ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      W_Aidant=W_Cle[1,5]
      W_Annee=W_Cle[9,4]
      W_Mois=W_Cle[13,2]

      IF W_Aidant # W_AidantAv AND W_CleAnc # "" OR W_Annee # W_AnneeAv AND W_CleAnc # "" THEN
         WRITE ENR_AIDANTSARCHIVEBULL ON F.AIDANTSARCHIVEBULL,W_AidantAv:W_AnneeAv
         ENR_AIDANTSARCHIVEBULL=""
      END

      ENR_AIDANTSARCHIVEBULL<W_Mois,-1>=W_Cle

      W_CleAnc=W_Cle
      W_AidantAv=W_CleAnc[1,5]
      W_AnneeAv=W_CleAnc[9,4]

   REPEAT

END

WRITE ENR_AIDANTSARCHIVEBULL ON F.AIDANTSARCHIVEBULL,W_AidantAv:W_AnneeAv

STOP
