**********
* SI TOUS LES CONTRATS DE TRAVAIL DE L'AIDANT SONT TERMINES A LA FIN DU MOIS
* PRECEDANT CE PGM, ALORS NOTIFICATION DATE DE SORTIE AU NIVEAU DU FICHIER
* CIVILAIDANT DE FACON A CONSIDERER LE DOSSIER SUPPRIME
**********

OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
EXECUTE "TSELECT CONTRAT"
CODEAIDANT1=""
AIDANTSORTIE="OUI"
DATEFIN=""
DATEDEBMANDAT=""
DATEJOUR=DATE()
DATEJOUR=OCONV(DATEJOUR,"D4 ")
DATEJOUR="01 ":DATEJOUR[4,7]
DATEJOUR=ICONV(DATEJOUR,"D4 ")
DATEJOUR=DATEJOUR-1
10 READNEXT CLE ELSE
 IF AIDANTSORTIE="OUI" OR DATEDEBMANDAT#"" THEN
  READ ENRCIVILAIDANT FROM F.CIVILAIDANT,CODEAIDANT1 THEN
   IF AIDANTSORTIE="OUI" THEN ENRCIVILAIDANT=REPLACE(ENRCIVILAIDANT,36;DATEFIN)
   IF DATEDEBMANDAT#"" THEN ENRCIVILAIDANT=REPLACE(ENRCIVILAIDANT,40;DATEDEBMANDAT)
   WRITE ENRCIVILAIDANT ON F.CIVILAIDANT,CODEAIDANT1
  END
 END
 STOP
END
CODEAIDANT=CLE[1,5]
IF CODEAIDANT1="" THEN CODEAIDANT1=CODEAIDANT
IF CODEAIDANT#CODEAIDANT1 THEN
 IF AIDANTSORTIE="OUI" OR DATEDEBMANDAT#"" THEN
  READ ENRCIVILAIDANT FROM F.CIVILAIDANT,CODEAIDANT1 THEN
   IF AIDANTSORTIE="OUI" THEN ENRCIVILAIDANT=REPLACE(ENRCIVILAIDANT,36;DATEFIN)
   IF DATEDEBMANDAT#"" THEN ENRCIVILAIDANT=REPLACE(ENRCIVILAIDANT,40;DATEDEBMANDAT)
   WRITE ENRCIVILAIDANT ON F.CIVILAIDANT,CODEAIDANT1
  END
 END
 DATEFIN=""
 AIDANTSORTIE="OUI"
 DATEDEBMANDAT=""
 CODEAIDANT1=CODEAIDANT
END
READ ENRCONTRAT FROM F.CONTRAT,CLE ELSE GOTO 10
DEBCONTRAT=EXTRACT(ENRCONTRAT,7)
FINCONTRAT=EXTRACT(ENRCONTRAT,8)
CCN=EXTRACT(ENRCONTRAT,1)
IF CCN="02" THEN
 IF DATEDEBMANDAT="" THEN DATEDEBMANDAT=DEBCONTRAT
 IF DATEDEBMANDAT>DEBCONTRAT THEN DATEDEBMANDAT=DEBCONTRAT
END
IF FINCONTRAT="" THEN
 AIDANTSORTIE="NON"
END ELSE
 IF FINCONTRAT>DATEJOUR THEN AIDANTSORTIE="NON"
 IF DATEFIN="" THEN DATEFIN=FINCONTRAT
 IF DATEFIN<FINCONTRAT THEN DATEFIN=FINCONTRAT
END
GOTO 10
 
 
  