*********************************************************
* compte le nbre de personne en mandataire par diplome	*
*********************************************************

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

W_Req=""
W_SauveAidant=""
W_SauveDiplome=""
W_Nbre=0
W_Tab=""
i=0

EXECUTE 'SELECT CONTRAT AVEC 1 = "02" AND AVEC 65 = "" AND AVEC 7 <= "13788" AND AVEC 8 >= "13788" OR = "" AND AVEC Diplome # "" PAR Diplome PAR CodeAidant'

EXECUTE 'SAUVE-LISTE W_Req'
EXECUTE "LISTE W_Req" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   	SELECT F.CONTRAT TO W_Req

	W_Fini="FAUX"
   	LOOP
      		READNEXT W_Cle FROM W_Req ELSE W_Fini="VRAI"
   	WHILE W_Fini="FAUX" DO
     		READ ENR_CONTRAT FROM F.CONTRAT,W_Cle THEN
     			READ ENR_FORMEXPAIDANT FROM F.FORMEXPAIDANT,W_Cle[1,5] ELSE ENR_FORMEXPAIDANT=""

			IF W_SauveAidant # W_Cle[1,5] THEN
				IF W_SauveDiplome # ENR_FORMEXPAIDANT<2> THEN
					W_Tab<i,2>=W_Nbre
					W_Nbre=0
					i=i+1
					W_SauveDiplome = ENR_FORMEXPAIDANT<2>
					W_Tab<i,1>=W_SauveDiplome
				END

				W_Nbre=W_Nbre+1
				W_SauveAidant = W_Cle[1,5]

			END

		END
   	REPEAT
	W_Tab<i,2>=W_Nbre
END

READ ENR_TABLES FROM F.TABLES,"DIPLOMES" ELSE ENR_TABLES=""

PRINTER ON

W_Count=DCOUNT(W_Tab,CHAR(254))
FOR i = 1 TO W_Count
	j=1
	LOOP
	UNTIL ENR_TABLES<2,j>=W_Tab<i,1> OR ENR_TABLES<2,j> = "" DO
		j=j+1
	REPEAT
	IF ENR_TABLES<2,j> # "" THEN
		PRINT ENR_TABLES<3,j>:SPACE(30-LEN(ENR_TABLES<3,j>)):W_Tab<i,2>
	END

NEXT i

PRINTER OFF
PRINTER CLOSE

STOP
