OPEN "","FACTURAIDE" TO F.FACTURATIDE ELSE STOP
OPEN "","AIDESARCHIVEFACT" TO F.AIDESARCHIVEFACT ELSE STOP
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
PRINT "Periode ?"
INPUT W_Per
PRINT "Numero depart ?"
INPUT W_Num
W_Num = W_Num - 1
EXECUTE 'SELECT FACTURAIDE AVEC TypeActivite = "':W_TypeAct:'" AND AVEC PeriodeCleFactAide = "':W_Per:'" PAR @ID' 
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "F"
WHILE W_Fin = "F"
READ ENR_FACTURAIDE FROM F.FACTURAIDE, W_Cle THEN
    W_NumTemp = W_Cle[16,10]
    IF W_NumTemp # W_AncNum THEN
	W_Num = W_Num+1
    END
    W_CleTemp = W_Cle[1,15]:W_Num"R%10":W_Cle[26,1]
    IF ENR_FACTURAIDE<11> = "1" THEN
	READ ENR FROM F.AIDESARCHIVEFACT, W_Cle[1,5]:W_Per[1,4] THEN
		i = 0
		LOOP
			i = i + 1
		WHILE ENR<W_Per[5,2],i> #""
			IF ENR<W_Per[5,2],i> = W_Cle[1,25] THEN
				ENR<W_Per[5,2],i> = W_CleTemp[1,25]
			END
		REPEAT
		WRITE ENR ON F.AIDESARCHIVEFACT, W_Cle[1,5]:W_Per[1,4]
    	END
    	DELETE ARCHIVEFACT, W_Cle[1,25]
    END
    ENR_FACTURAIDE<11> = "0"
    WRITE ENR_FACTURAIDE ON F.FACTURAIDE, W_CleTemp
    DELETE F.FACTURAIDE, W_Cle
    W_AncNum = W_NumTemp
END
REPEAT
STOP