** COMPARE LES HEURES PRESENTES DANS DETAILPREST COUPLE PAR COUPLE 
** ET COMPARE CES HEURES AVEC LE CONTENU DE DETAILPRESTINV

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILPREST" TO F.DETAILPREST ELSE STOP
OPEN "","DETAILPRESTINV" TO F.DETAILPRESTINV ELSE STOP
OPEN "","TAMPONDETAILPREST" TO F.TAMPONDETAILPREST ELSE 
	EXECUTE 'CREATE.FILE TAMPONDETAILPREST 1,1'
	OPEN "","TAMPONDETAILPREST" TO F.TAMPONDETAILPREST ELSE STOP
END

PRINT "PERIODE "
INPUT W_PERIODE

PRINT "ENTITE "
INPUT W_ENTITE

EXECUTE 'VIDER-FICHIER TAMPONDETAILPREST'

EXECUTE 'SELECT DETAILPREST AVEC 0 = "[':W_PERIODE:'"'

W_FIN=0

* GENERATION FICHIER TAMPON = INVERSE DETAILPREST

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

	READ ENR_DETAILPREST FROM F.DETAILPREST,CLE ELSE ENR_DETAILPREST=""
	W_NBPREST=DCOUNT(ENR_DETAILPREST<1>,CHAR(253))
	FOR I=1 TO W_NBPREST
		READ ENR_TAMPONDETAILPREST FROM F.TAMPONDETAILPREST,ENR_DETAILPREST<1,I> ELSE ENR_TAMPONDETAILPREST=""
		ENR_TAMPONDETAILPREST<1>=ENR_TAMPONDETAILPREST<1>+ENR_DETAILPREST<3,I>
		WRITE ENR_TAMPONDETAILPREST ON F.TAMPONDETAILPREST,ENR_DETAILPREST<1,I>
	NEXT I

REPEAT

* COMPARE TAMPONDETAILPREST AVEC DETAILPRESTINV

EXECUTE 'SELECT TAMPONDETAILPREST'

W_FIN=0

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

	W_NBHEURES=0
	W_NBHEURESDET=0

	READ ENR_TAMPONDETAILPREST FROM F.TAMPONDETAILPREST,CLE ELSE ENR_TAMPONDETAILPREST=""
	READ ENR_DETAILPRESTINV FROM F.DETAILPRESTINV,CLE:W_ENTITE:W_PERIODE ELSE ENR_DETAILPRESTINV=""

	W_NBPREST=DCOUNT(ENR_DETAILPRESTINV<1>,CHAR(253))
	FOR I=1 TO W_NBPREST
		W_NBHEURES=W_NBHEURES+ENR_DETAILPRESTINV<3,I>

		W_NBPRESTSV=DCOUNT(ENR_DETAILPRESTINV<7>,CHAR(252))
		FOR J=1 TO W_NBPRESTSV
			W_NBHEURESDET=W_NBHEURESDET+ENR_DETAILPRESTINV<7,I,J>
		NEXT J

	NEXT I


	IF (W_NBHEURES+W_NBHEURESDET)#ENR_TAMPONDETAILPREST<1> THEN
		PRINT "ERREUR SUR AIDE ":CLE:" DIFF = ":(W_NBHEURES+W_NBHEURESDET):" *** ":ENR_TAMPONDETAILPREST<1>
	END
REPEAT

	
