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

W_RequeteMoul=""
PRINT "Voulez vous payer les congs au mois ? (O/N)"
INPUT W_AuMois
IF W_AuMois # "O" AND W_AuMois # "o" THEN
	PRINT "Voulez vous grer la provision de congs ? (O/N)"
	INPUT W_Prov
END

EXECUTE 'SELECT CONTRAT AVEC 1 = "02" AND AVEC 8 >= "12571" OR = ""'

EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.CONTRAT TO W_RequeteMoul

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_CONTRAT FROM F.CONTRAT,W_Cle THEN
		IF W_AuMois # "O" AND W_AuMois # "o" THEN
			
			ENR_CONTRAT<31>="0"
			
			IF W_Prov = "O" OR W_Prov = "o" THEN
	      		ENR_CONTRAT<94>="1"
			END ELSE
				ENR_CONTRAT<94> = "0"
			END

		END ELSE
			
			ENR_CONTRAT<31>="1"
				
      		ENR_CONTRAT<94>="0"
		END
		
      	WRITE ENR_CONTRAT ON F.CONTRAT,W_Cle

	END
   REPEAT

END

STOP

