********************************************
* CHANGE LA DATE DE PAIEMENT DES BULLETINS *
* A PARTIR DES ARCHIVEBULL                 *
*                                          *
********************************************

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

* SELECTION PERIODE
PRINT "PERIODE A MODIFIER="
INPUT W_PERIODE

* SELECTION TYPE PERSONNEL
PRINT "TYPE PERSONNEL="
INPUT W_PERSONNEL

* SELECTION ACTIVITE
PRINT "TYPE ACTIVITE="
INPUT W_ACTIVITE

* SELECTION ANCIENNE DATE
PRINT "ANCIENNE DATE DE PAIEMENT="
INPUT W_ANCDATE

* SELECTION NOUVELLE DATE
PRINT "NOUVELLE DATE DE PAIEMENT="
INPUT W_NEWDATE

EXECUTE 'SSELECT ARCHIVEBULL AVEC PeriodeArchive = "':W_PERIODE:'" AND AVEC TypeActivite = "':W_ACTIVITE:'" AND AVEC TypePersonnel = "':W_PERSONNEL:'"'

W_FIN=0
LOOP
     READNEXT CLE ELSE W_FIN=1
     UNTIL W_FIN=1 DO

     READ ENR_ARCHIVEBULL FROM F.ARCHIVEBULL,CLE ELSE ENR_ARCHIVEBULL=""

     * RECHERCHE RANG PERIODE  
     W_RANGDATE=INDEX(ENR_ARCHIVEBULL<3>,W_ANCDATE,1)
     IF W_RANGDATE<>0 THEN
         ENR_ARCHIVEBULL<3>[W_RANGDATE,10]=W_NEWDATE
	 WRITE ENR_ARCHIVEBULL ON F.ARCHIVEBULL,CLE
     END

REPEAT
