*****************************************************************
* moulinette  lancer  la mise  niveau                        *
* supprime les absences de l'aidant qui n'ont soit pas de date  *
* de dbut soit pas de date de fin                              *
* vanessa                              janvier 2004             *
*****************************************************************

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

W_RequeteAbs=""
ENR_RAPPORT = ""
EXECUTE 'SELECT ABSENCESAIDANT AVEC 2 = "" OR AVEC DebAbsAidant = "" PAR CodeAidant'
EXECUTE 'SAUVE-LISTE W_RequeteAbs'
EXECUTE "LISTE W_RequeteAbs" RETURNING MSGCODE

EXECUTE "COMO ON ABSENCES.TXT"

IF MSGCODE<1> # 209 THEN
   SELECT F.ABSENCESAIDANT TO W_RequeteAbs

   W_Fini="FAUX"
   LOOP
      	READNEXT W_Cle FROM W_RequeteAbs ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO

     	READ ENR_ABSENCESAIDANT FROM F.ABSENCESAIDANT,W_Cle THEN

           PRINT W_Cle
           PRINT ENR_ABSENCESAIDANT
           PRINT " "
	     ENR_RAPPORT<-1>=W_Cle
	     ENR_RAPPORT<-1>=ENR_ABSENCESAIDANT
           ENR_RAPPORT<-1>=" "

           DELETE F.ABSENCESAIDANT,W_Cle

	END
   REPEAT

END
OPEN "", "TEMPO" TO F.TEMPO THEN
WRITE ENR_RAPPORT ON F.TEMPO,"RapportMoulSupprAbs"
END

EXECUTE "COMO OFF"

STOP
