EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
	OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
	OPEN "","AIDANTSECTEURANAL" TO F.AIDANTSECTEURANAL ELSE STOP
	
	W_TABL=""
	
	EXECUTE 'SELECT CONTRAT AVEC CodSecteurContrat="999" AND AVEC 8>="14519" OR ="" PAR 0 SecteurAidantAnal'

	W_Fini="FAUX"
	LOOP 
		READNEXT W_Cle ELSE W_Fini="VRAI"
	WHILE W_Fini="FAUX" DO
		READ ENR_CONTRAT FROM F.CONTRAT,W_Cle ELSE ENR_CONTRAT=""
		IF ENR_CONTRAT<1>#"" THEN
			READ ENR_AIDANTSECTEURANAL FROM F.AIDANTSECTEURANAL,W_Cle ELSE AIDANTSECTEURANAL=""
			IF ENR_AIDANTSECTEURANAL<1>#"" THEN

				W_MAXACTIVITE=DCOUNT(ENR_AIDANTSECTEURANAL<1>,CHAR(253))
				
				FOR I = 1 TO W_MAXACTIVITE
					W_Mtt=0

					W_MAXSECTEUR=DCOUNT(ENR_AIDANTSECTEURANAL<2>,CHAR(252))
					FOR J = 1 TO W_MAXSECTEUR
IF ENR_AIDANTSECTEURANAL<2,I,J> ="999" THEN
	PRINT "SECTEUR 999 cle contrat :":W_Cle
END
						W_Mtt= W_Mtt + ENR_AIDANTSECTEURANAL<3,I,J>
					NEXT J
					IF W_Mtt < 100 THEN
						PRINT W_Cle
					END
				NEXT I
			END
		END

   REPEAT

STOP
 
 
