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

PRINT "***** Regnration de l'att. 81 de CONTRAT *****"
PRINT "Periode (AAAAMM) ?"
INPUT W_Periode

EXECUTE 'SELECT DETAILPREST = "[':W_Periode:'" AVEC 3 # "0" AND # ""'

W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
   READ ENR_CONTRAT FROM F.CONTRAT, W_Cle[1,8] THEN
	IF ENR_CONTRAT<81> <= W_Periode THEN
		ENR_CONTRAT<81> = W_Periode 
		WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle[1,8]
	END
   END
REPEAT

EXECUTE 'SELECT DETAILPREST = "[':W_Periode:'" AVEC 6 # "0" AND # ""'

W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
   READ ENR_CONTRAT FROM F.CONTRAT, W_Cle[1,8] THEN
	IF ENR_CONTRAT<81> <= W_Periode THEN
		ENR_CONTRAT<81> = W_Periode 
		WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle[1,8]
	END
   END
REPEAT

STOP
