* RATTRAPPAGE DU SUIVI DE CONTRAT POUR ATT 80 DANS CONTRAT (DIFFERENCE HEURES EN COURS)
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
EXECUTE 'SELECT CONTRAT AVEC 65 # "O" AND AVEC 68 # "1"'

10 READNEXT CLE ELSE STOP

READ ENRCONTRAT FROM F.CONTRAT,CLE ELSE GOTO 10
MODIF="NON"
I=1
LOOP
 PERANCOURSCONTRAT=EXTRACT(ENRCONTRAT,76,I)
 UNTIL PERANCOURSCONTRAT="" DO
  HREELANCOURSCONTRAT=EXTRACT(ENRCONTRAT,79,I)
  HMENSANCOURSCONTRAT=EXTRACT(ENRCONTRAT,77,I)
  HABSANCOURSCONTRAT=EXTRACT(ENRCONTRAT,78,I)
  DIFFANCOURSCONTRAT=HREELANCOURSCONTRAT-HMENSANCOURSCONTRAT+HABSANCOURSCONTRAT
  IF DIFFANCOURSCONTRAT#EXTRACT(ENRCONTRAT,80,I) THEN
   MODIF="OUI"
   ENRCONTRAT=REPLACE(ENRCONTRAT,80,I;DIFFANCOURSCONTRAT)
  END
  I=I+1
REPEAT

IF MODIF="OUI" THEN WRITE ENRCONTRAT ON F.CONTRAT,CLE

GOTO 10
