EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","CONVENTIONCOL" TO F.CONVENTIONCOL ELSE STOP
READ ENR_CONVENTIONCOL FROM F.CONVENTIONCOL,"07" ELSE STOP
PRIXPOINT=EXTRACT(ENR_CONVENTIONCOL,8,1)
5 PRINT "DATE NOUVEAU PRIX DU POINT (JJ/MM/AAAA) : ":
INPUT DATEBUTOIR
IF DATEBUTOIR="" THEN GOTO 5
DATEBUTOIR=ICONV(DATEBUTOIR,"D4/")
IF DATEBUTOIR="" THEN GOTO 5
EXECUTE 'SELECT CONTRAT AVEC 8 = "" OR AVEC 8 >= "':DATEBUTOIR:'"'
10 READNEXT CLE ELSE STOP
READ ENR_CONTRAT FROM F.CONTRAT,CLE ELSE GOTO 10
I=DCOUNT(EXTRACT(ENR_CONTRAT,15),CHAR(253))
COEFFICIENT=EXTRACT(ENR_CONTRAT,22,I)
NOUVTAUX=INT(COEFFICIENT*PRIXPOINT/16900+1/2)
ENR_CONTRAT=REPLACE(ENR_CONTRAT,23,I;NOUVTAUX)
WRITE ENR_CONTRAT ON F.CONTRAT,CLE
GOTO 10
