EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","DETAILMANDAT" TO F.DETAILMANDAT ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP

EXECUTE 'SELECT DETAILMANDAT AVEC PeriodeDetailMandat = "200605" AND AVEC 6 #"" AND AVEC 7 # ""'

W_FIN=0

LOOP
	READNEXT CLE ELSE W_FIN=1
UNTIL W_FIN=1 DO

	READ ENR_DETAILMANDAT FROM F.DETAILMANDAT,CLE ELSE ENR_DETAILMANDAT=""
	
	W_NB=DCOUNT(ENR_DETAILMANDAT<7>,CHAR(253))
	FOR i=1 TO W_NB
		W_TypeAbs=ENR_DETAILMANDAT<7,i>
		W_TypeAbs=W_TypeAbs[6,2]
		W_NbCpPris=ENR_DETAILMANDAT<6,i>
		* 14 = CP
		IF W_TypeAbs= 14 THEN	
			READ ENR_CONTRAT FROM F.CONTRAT,CLE[1,8] THEN
				IF ENR_CONTRAT<39> = 0 AND ENR_CONTRAT<85> = 0 THEN
					* provision acquis
					ENR_CONTRAT<85>=INT(ENR_CONTRAT<86>/ENR_CONTRAT<44>*W_NbCpPris)

					* provision en cours d'acquisition
					ENR_CONTRAT<86>=ENR_CONTRAT<86>-ENR_CONTRAT<85>
					
					* Cp restant
					ENR_CONTRAT<39>=W_NbCpPris
					
					* heure en cours d'acquisition
					ENR_CONTRAT<45>=ENR_CONTRAT<45>-INT(ENR_CONTRAT<45>/ENR_CONTRAT<44>*W_NbCpPris)
					
					* montant en cours d'acquisition
					ENR_CONTRAT<46>=ENR_CONTRAT<46>-INT(ENR_CONTRAT<46>/ENR_CONTRAT<44>*W_NbCpPris)

					* jour en cours d'acquisition
					ENR_CONTRAT<44>=ENR_CONTRAT<44>-W_NbCpPris
					
					WRITE ENR_CONTRAT ON F.CONTRAT,CLE[1,8]
				END
			END
		END
	NEXT i

REPEAT
