EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "ACCORD" TO F.ACCORD ELSE STOP
OPEN "", "MT2" TO F.MT2 ELSE STOP 
OPEN "", "FUSION" TO F.FUSION ELSE STOP

EXECUTE 'SELECT MT2 AVEC 1 = "001" AND AVEC 6 = "':ICONV("31/12/2005","D4/"):'" AND AVEC 18 = "" PAR NomPrenomAide'
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
   READ ENR_ACC FROM F.MT2, W_Cle THEN
     IF ENR_ACC<5> <= ICONV("01/11/2005","D4/") THEN
	W_Trouve = "F"
	W_Fini = "F"
	W_NumOrdre = W_Cle[6,3]
	LOOP
	   IF W_Trouve = "F" AND W_Fini = "F" THEN
	     W_NumOrdre = W_NumOrdre+1
	     W_NumOrdre = W_NumOrdre"R%3"
	   END
	WHILE W_Trouve = "F" AND W_Fini = "F"
	   READ ENR_ACC2 FROM F.ACCORD, W_Cle[1,5]:W_NumOrdre THEN
		IF ENR_ACC2<1> = "039" THEN
		   * Un des accords se terminant au 31/12 : n'aurait pas du tre mis en CRAM GARDE
		   W_Trouve = "V"
		END
	   END ELSE
		W_Fini = "V"
	   END
	   
	REPEAT
	IF W_Fini = "V" THEN
		* anomalie : accord CRAM se terminant au 31/12 qui n'aurait pas t mis en CRAM GARDE ???
		PRINT W_Cle[1,5]:" : Pas pass en CRAM GARDE ?"
	END ELSE
		* Nb : W_Trouve = "V"
		IF W_Trouve # "V" THEN
			* Anomalie impossible :
			PRINT W_Cle[1,5]:" : Pas pass en CRAM GARDE ? *"
		END ELSE
			ENR_ACC2<1> = "001"
			ENR_ACC2<13> = ENR_ACC<13,1>
			WRITE ENR_ACC2 ON F.ACCORD, W_Cle[1,5]:W_NumOrdre			
		END
			
	END
     END ELSE
	PRINT W_Cle[1,5]:" : Date de dbut au ":OCONV(ENR_ACC<5>,"D4/")	
     END
   END
REPEAT
STOP

