* GENERATION DES DROITS EN COURS SUR LES CONGES A PARTIR DE DETAILCALCUL

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

EXECUTE 'SELECT CONTRAT AVEC 65 # "O" AND AVEC 31 = "0" AND AVEC 1 = "02" AND AVEC DatFinContrat = "" OR >= "01/05/2001"'

10 READNEXT CLE ELSE STOP

READ ENRCONTRAT FROM F.CONTRAT,CLE ELSE GOTO 10
CUMHEURES=0
CUMBRUT=0
NBJOURS=0
PERCLOTPAIE=EXTRACT(ENRCONTRAT,63)

FOR PERIODE=200006 TO PERCLOTPAIE
 
 READ ENRDETAILCALCUL FROM F.DETAILCALCUL,CLE:PERIODE THEN
  CUMHEURES=CUMHEURES+INT(ENRDETAILCALCUL<6>/10+1/2)
  CUMBRUT=CUMBRUT+INT(ENRDETAILCALCUL<7>/10+1/2)
  NBJOURS=NBJOURS+250
 END

NEXT PERIODE

IF CUMBRUT>ENRCONTRAT<46> THEN
 ENRCONTRAT<44>=NBJOURS
 ENRCONTRAT<45>=CUMHEURES
 ENRCONTRAT<46>=CUMBRUT
 WRITE ENRCONTRAT ON F.CONTRAT,CLE
END

GOTO 10
