********************************************
* REGARDE NBRE JOURS ABS POUR MALADIE      *
* EN PRESTATAIRE DE JANVIER 01 -> OCT. 01  *
*                                          *
* 13/04/01                        STEPHANE *
********************************************

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

EXECUTE 'SSELECT ABSENCESAIDANT AVEC NumMotifAidant = "01" AND AVEC DebAbsAidant <= "12359" AND AVEC 2 >= "12055" PAR CodeAidant'
EXECUTE 'SAUVE-LISTE ABS'
EXECUTE "LISTE ABS" RETURNING W_MSG
SELECT F.ABSENCESAIDANT TO ABS

PRINTER ON

W_FINI=0
W_CODE=""
W_DUREEABS=0
LOOP
     READNEXT CLE FROM ABS ELSE W_FINI=1
     UNTIL W_FINI=1 DO

     READ ENR_ABSENCESAIDANT FROM F.ABSENCESAIDANT,CLE ELSE ENR_ABSENCESAIDANT=""

     IF ENR_ABSENCESAIDANT<2>>"12055" THEN ENR_ABSENCESAIDANT<2>="12055"
     IF CLE[8,5]<"11841" THEN 
	  W_DEBUT="11841"
     END ELSE
	  W_DEBUT=CLE[8,5]
     END

     IF W_CODE="" THEN W_CODE=CLE[1,5]
     IF W_CODE<>CLE[1,5] THEN
	  * VERIFIE SI CONTRAT ACTIF AU 01/11/01
	  EXECUTE 'SSELECT CONTRAT AVEC @ID = "':W_CODE:']" AND AVEC 1 <> "02" AND AVEC 7 <= "12359" AND AVEC 8 >= "12359" OR = "" AND AVEC 65 <> "O"'
	  EXECUTE 'SAUVE-LISTE CONTRAT'
	  EXECUTE "LISTE CONTRAT" RETURNING W_MSG
	  SELECT F.CONTRAT TO CONTRAT

	  IF W_MSG<1><>209 THEN 
	    IF W_DUREEABS>30 THEN
	       PRINT W_CODE:" DUREE ABS =":W_DUREEABS
	    END
	  END
	  W_DUREEABS=0
	  W_CODE=CLE[1,5]

	  W_ABS=0
	  W_ABS=ENR_ABSENCESAIDANT<2>-W_DEBUT
	  W_DUREEABS=W_DUREEABS+(W_ABS+1)
     END ELSE
	  W_ABS=0
	  W_ABS=ENR_ABSENCESAIDANT<2>-W_DEBUT
	  W_DUREEABS=W_DUREEABS+(W_ABS+1)
     END
REPEAT
