	
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
	OPEN "", "CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
	OPEN "", "CONTRAT" TO F.CONTRAT ELSE STOP
	OPEN "", "DETAILPREST" TO F.DETAILPREST ELSE STOP
	OPEN "", "DETAILADMIN" TO F.DETAILADMIN ELSE STOP
	OPEN "", "FUSION" TO F.FUSION ELSE STOP
	
	W_Temp=""
	W_Temp<1>="Code aidant;nom prnom;jours contrat;jours mai;solde"
	W_Ligne=2
		
	W_Str = 'SELECT CONTRAT AVEC 65 = "" AND AVEC 1 # "02"'
	W_Str=W_Str:' AND AVEC 7 <= "14397" AND AVEC 8 >= "14397" OR = ""'
	W_Str=W_Str:' PAR NomPrenomAidantContrat'

	EXECUTE W_Str

	W_Fin = "F"

	LOOP
		READNEXT W_Cle ELSE W_Fin = "V"
	WHILE  W_Fin # "V"
		READ ENR_CONTRAT FROM F.CONTRAT,W_Cle THEN
			READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Cle[1,5] ELSE ENR_CIVILAIDANT=""
		
			W_NbCPRestant=ENR_CONTRAT<39>
			W_NbCFRestant=ENR_CONTRAT<41>
			W_NbRestant=INT(W_NbCPRestant)+INT(W_NbCFRestant)
			
			IF ENR_CONTRAT<6>="A" THEN
				READ ENR_DETAIL FROM F.DETAILADMIN,W_Cle:"200705" ELSE ENR_DETAIL=""
				W_Att=1
				W_AttNbJour=6
			END ELSE
				READ ENR_DETAIL FROM F.DETAILPREST,W_Cle:"200705" ELSE ENR_DETAIL=""
				W_Att=5
				W_AttNbJour=14				
			END

			W_NbMai=0
			W_Count=DCOUNT(ENR_DETAIL<W_Att>,CHAR(253))
			FOR i = 1 TO W_Count
				IF ENR_DETAIL<W_Att,i>="802" OR ENR_DETAIL<W_Att,i>="817" THEN
					W_NbMai=W_NbMai+INT(ENR_DETAIL<W_AttNbJour,i>)
				END
			NEXT i

			W_NbSolde=W_NbRestant-W_NbMai
			IF W_NbSolde > 0 THEN
			
				W_Temp<W_Ligne>=W_Cle[1,5]:";":ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>:";":W_NbRestant/100:";":W_NbMai/100:";":W_NbSolde/100
				W_Ligne=W_Ligne+1
			END
			
			WRITE W_Temp ON F.FUSION,"LISTECPRESTANT.csv"

		END
	REPEAT

STOP
