**********************************************************
* RATTRAPPAGE DES CONGES EN COURS SUITE A NON PRISE EN COMPTE 
* DU NOMBRE DE JOURS D'ARRET ASSIIMILE A DU TRAVAIL EFFECTIF
**********************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
EXECUTE 'COMO ON COMPCONGESCOURS' 
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","CONTRATCONGCOURS" TO F.CONTRATCONGCOURS ELSE STOP
EXECUTE 'SSELECT CONTRATCONGCOURS' 
W_Fini="FAUX"
LOOP
 READNEXT W_Cle ELSE W_Fini="VRAI"
 UNTIL W_Fini="VRAI" DO
  READ ENR_CONTRAT FROM F.CONTRAT,W_Cle ELSE ENR_CONTRAT=""
  READ ENR_CONTRATCONGCOURS FROM F.CONTRATCONGCOURS,W_Cle ELSE ENR_DG=""
  JCOURSCONTRAT=ENR_CONTRAT<44>
  HCOURSCONTRAT=ENR_CONTRAT<45>
  MCOURSCONTRAT=ENR_CONTRAT<46>
  JRSSUSPENSION=ENR_CONTRAT<70>
  JCOURSDG=ENR_CONTRATCONGCOURS<44>
  HCOURSDG=ENR_CONTRATCONGCOURS<45>
  MCOURSDG=ENR_CONTRATCONGCOURS<46>
  JRSMAINTIEN=ENR_CONTRATCONGCOURS<110>
  IF JCOURSCONTRAT#JCOURSDG OR HCOURSCONTRAT#HCOURSDG OR MCOURSCONTRAT#MCOURSDG THEN
   IF HCOURSCONTRAT=HCOURSDG AND HCOURSDG=0 AND MCOURSCONTRAT=MCOURSDG AND MCOURSDG=0 THEN
    NULL
   END ELSE
    PRINT W_Cle:" ":JCOURSCONTRAT:" ":JCOURSDG:"   ":HCOURSCONTRAT:" ":HCOURSDG:"   ":MCOURSCONTRAT:" ":MCOURSDG:" ":JRSSUSPENSION:" ":JRSMAINTIEN
    ENR_CONTRAT<44>=JCOURSDG
    ENR_CONTRAT<45>=HCOURSDG
    ENR_CONTRAT<46>=MCOURSDG
    ENR_CONTRAT<70>=ENR_CONTRAT<70>-JRSMAINTIEN
    IF ENR_CONTRAT<70><0 THEN ENR_CONTRAT<70>=0
*    WRITE ENR_CONTRAT ON F.CONTRAT,W_Cle
   END 
  END
REPEAT
EXECUTE 'COMO OFF'
STOP