*********************************************
* Objectif de la moulinette :               *
*       dans les contrats, attribut 16,     *
*       remplac les "" par des "E"        *
*                                           *
* Grgory -> 11/07/03 - > Cration du prog  *
*********************************************

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

*********************************************

W_ModifCarac = ""

*********************************************

	EXECUTE 'SSELECT CONTRAT AVEC 16 = "EMPLOY]" AND AVEC 1 <> "02"'
	EXECUTE 'SAUVE-LISTE W_ModifCarac'
	EXECUTE "LISTE W_ModifCarac" RETURNING MSGCODE

	IF MSGCODE<1> <> 209 THEN
		SELECT F.CONTRAT TO W_ModifCarac
		W_Fin = "FAUX"
		LOOP
			READNEXT W_Cle FROM W_ModifCarac ELSE W_Fin = "VRAI"
		WHILE W_Fin = "FAUX"
			READ ENR_CONTRAT FROM F.CONTRAT, W_Cle ELSE PRINT W_Cle
			I=0
			LOOP
				I=I+1			
			WHILE ENR_CONTRAT<16,I> <> "" DO
				IF ENR_CONTRAT<16,I> = "EMPLOYE A DOMICILE" THEN
					ENR_CONTRAT<16,I> = "EMPLOYEE A DOMICILE"
				END
			REPEAT			
			WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle
		REPEAT
	END ELSE
		PRINT "CONTRAT"
	END

STOP
