* RATTRAPPAGE DU SUIVI DE CONTRAT POUR BASCULER EN-COURS DANS PRECEDENT
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
EXECUTE 'SELECT CONTRAT AVEC 65 # "O" AND AVEC 1 = "01" AND AVEC 8 = "" OR >= "12328"'

10 READNEXT CLE ELSE STOP

READ ENRCONTRAT FROM F.CONTRAT,CLE ELSE GOTO 10
ATT76=EXTRACT(ENRCONTRAT,76)
ATT77=EXTRACT(ENRCONTRAT,77)
ATT78=EXTRACT(ENRCONTRAT,78)
ATT79=EXTRACT(ENRCONTRAT,79)
ATT80=EXTRACT(ENRCONTRAT,80)
I=DCOUNT(EXTRACT(ENRCONTRAT,76),CHAR(253))
IF EXTRACT(ENRCONTRAT,76,I)="200110" AND I#1 THEN
 ATT76BIS=EXTRACT(ENRCONTRAT,76,I)
 ATT77BIS=EXTRACT(ENRCONTRAT,77,I)
 ATT78BIS=EXTRACT(ENRCONTRAT,78,I)
 ATT79BIS=EXTRACT(ENRCONTRAT,79,I)
 ATT80BIS=EXTRACT(ENRCONTRAT,80,I)
 ENRCONTRAT=DELETE(ENRCONTRAT,76,I)
 ENRCONTRAT=DELETE(ENRCONTRAT,77,I)
 ENRCONTRAT=DELETE(ENRCONTRAT,78,I)
 ENRCONTRAT=DELETE(ENRCONTRAT,79,I)
 ENRCONTRAT=DELETE(ENRCONTRAT,80,I)
 ENRCONTRAT<71>=ENRCONTRAT<76>
 ENRCONTRAT<72>=ENRCONTRAT<77>
 ENRCONTRAT<73>=ENRCONTRAT<78>
 ENRCONTRAT<74>=ENRCONTRAT<79>
 ENRCONTRAT<75>=ENRCONTRAT<80>
 ENRCONTRAT<76>=ATT76BIS
 ENRCONTRAT<77>=ATT77BIS
 ENRCONTRAT<78>=ATT78BIS
 ENRCONTRAT<79>=ATT79BIS
 ENRCONTRAT<80>=ATT80BIS
 WRITE ENRCONTRAT ON F.CONTRAT,CLE
END ELSE
 IF I#1 THEN
  ENRCONTRAT<71>=ENRCONTRAT<76>
  ENRCONTRAT<72>=ENRCONTRAT<77>
  ENRCONTRAT<73>=ENRCONTRAT<78>
  ENRCONTRAT<74>=ENRCONTRAT<79>
  ENRCONTRAT<75>=ENRCONTRAT<80>
  ENRCONTRAT<76>=""
  ENRCONTRAT<77>=""
  ENRCONTRAT<78>=""
  ENRCONTRAT<79>=""
  ENRCONTRAT<80>=""
  WRITE ENRCONTRAT ON F.CONTRAT,CLE
 END
END
GOTO 10
