*************************************************************************
* passer les att 24, 25, 26 et 27 du fichier AGGIRAIDE en sous valeur	*
*************************************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","AGGIRAIDE" TO F.AGGIRAIDE ELSE PRINT "OUVERTURE AGGIRAIDE" ;* en lecture criture

	EXECUTE 'SELECT AGGIRAIDE' 
	W_End="FAUX"

	LOOP
		READNEXT W_Cle ELSE W_End = "VRAI"
	WHILE W_End = "FAUX" DO
		READ ENR_AGGIRAIDE FROM F.AGGIRAIDE,W_Cle THEN
     
			FOR i = 24 TO 27
				IF ENR_AGGIRAIDE<i,2> # "" THEN
					ENR_AGGIRAIDE<i,1,2>=ENR_AGGIRAIDE<i,2>
				END
				IF ENR_AGGIRAIDE<i,3> # "" THEN
					ENR_AGGIRAIDE<i,1,3>=ENR_AGGIRAIDE<i,3>
				END
				IF ENR_AGGIRAIDE<i,4> # "" THEN
					ENR_AGGIRAIDE<i,1,4>=ENR_AGGIRAIDE<i,4>
				END

				ENR_AGGIRAIDE=DELETE(ENR_AGGIRAIDE,i,4)
				ENR_AGGIRAIDE=DELETE(ENR_AGGIRAIDE,i,3)
				ENR_AGGIRAIDE=DELETE(ENR_AGGIRAIDE,i,2)
			NEXT i

			WRITE ENR_AGGIRAIDE ON F.AGGIRAIDE,W_Cle
		END

	REPEAT

STOP
