********************************************
* MISE DE L ATT 20 DU FICHIER ACTIVTES     *
*                                          *
* ALAIN                        JUIN 2005   *
*                                          *
********************************************

************
* FICHIERS *
************

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


*************
* VARIABLES *
*************
	W_ListContrat = ""

*********************
* TRAITEMENT GLOBAL *
*********************

EXECUTE 'SELECT ACTIVITES'
EXECUTE 'SAUVE-LISTE W_ListContrat'
EXECUTE "LISTE W_ListContrat" RETURNING MSGCODE

ENR_CONTRAT = ""

IF MSGCODE<1> # 209 THEN

	SELECT F.ACTIVITES TO W_ListContrat		

	W_Fini = "FAUX"

	LOOP
		READNEXT W_CleContrat FROM W_ListContrat ELSE W_Fini = "VRAI"
		
	WHILE W_Fini = "FAUX" DO
		i = 1
		READ ENR_ACTIVITES FROM F.ACTIVITES, W_CleContrat THEN
		
			IF ENR_ACTIVITES<15> # "" THEN
	
				LOOP

				WHILE ENR_ACTIVITES<15,i> <> "" DO
					ENR_ACTIVITES<20,i> = "1"
					i = i + 1
				REPEAT

				WRITE ENR_ACTIVITES ON F.ACTIVITES,W_CleContrat
			END
		END
	REPEAT
END ELSE
	PRINT "Aucun enregistrement"
END

STOP
