***********************************************************************************
***********************************************************************************
**                                                                               **
** Mise  jour du fichier AggirAide pour permettre une gestion plus prcise de   **
**                              l'enqute prcdente.                            **
**                                                                               **
**                                                                               **
** Le 21/04/01                                                  ves+           **
**                                                                               **
***********************************************************************************
***********************************************************************************




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

EXECUTE 'SELECT AGGIRAIDE'



W_FINI="FAUX"


LOOP
	READNEXT CLE ELSE W_FINI="VRAI"

WHILE W_FINI="FAUX" DO

     
	READ ENR_AGGIRAIDE FROM F.AGGIRAIDE,CLE ELSE ENR_AGGIRAIDE=""

	ENR_AGGIRAIDE<39>=ENR_AGGIRAIDE<20>
	ENR_AGGIRAIDE<20>=ENR_AGGIRAIDE<23>
	ENR_AGGIRAIDE<23>=""
	ENR_AGGIRAIDE<40>=ENR_AGGIRAIDE<21>
	ENR_AGGIRAIDE<21>=""
	ENR_AGGIRAIDE<22>=""

	ENR_AGGIRAIDE<41>=ENR_AGGIRAIDE<24>
	ENR_AGGIRAIDE<24>=""

	WRITE ENR_AGGIRAIDE ON F.AGGIRAIDE,CLE

REPEAT
