*****************************************************
* SUIVI DES HEURES DIF RESTANTES A UNE DATE ARRETEE *
* 14/04/2006                               STEPHANE *
*****************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DIFAIDANT" TO F.DIFAIDANT ELSE STOP
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP

PRINT "DATE D'ARRETE (JJ/MM/AAAA)"
INPUT W_DATE

PRINT "CODE ENTITE"
INPUT W_CODEENTITE

W_DATE = ICONV(W_DATE,"D4/")

EXECUTE 'SELECT DIFAIDANT'

W_FIN = 0
W_TOTALHRESCDIP = 0
W_TOTALHRESCDDP = 0
W_TOTALHRESCDIM = 0
W_TOTALHRESCDDM = 0
LOOP
	READNEXT CLE ELSE W_FIN = 1
	UNTIL W_FIN = 1 DO

	READ ENR_DIFAIDANT FROM F.DIFAIDANT,CLE ELSE ENR_DIFAIDANT = ""

	I = DCOUNT(ENR_DIFAIDANT<1>,CHAR(253))

	LOOP
		UNTIL ENR_DIFAIDANT<I> <= W_DATE OR ENR_DIFAIDANT<I> = "" DO
		I = I - 1
	REPEAT

	IF ENR_DIFAIDANT<I> # "" THEN 
		READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,CLE[1,5] ELSE ENR_CIVILAIDANT = ""
		IF ENR_CIVILAIDANT<36> = "" THEN
			IF ENR_DIFAIDANT<6> = "" THEN
				IF LEN(CLE) = 8 THEN
					IF CLE[6,3] = W_CODEENTITE THEN	W_TOTALHRESCDIP = W_TOTALHRESCDIP + ENR_DIFAIDANT<4,I>
				END ELSE
					W_TOTALHRESCDIM = W_TOTALHRESCDIM + ENR_DIFAIDANT<4,I>
				END
			END ELSE
				IF LEN(CLE) = 8 THEN
					IF CLE[6,3] = W_CODEENTITE THEN	W_TOTALHRESCDDP = W_TOTALHRESCDDP + ENR_DIFAIDANT<4,I>
				END ELSE
					W_TOTALHRESCDDM = W_TOTALHRESCDDM + ENR_DIFAIDANT<4,I>
				END
			END
		END
	END

REPEAT

PRINT "DROITS DIF RESTANT AU : ":OCONV(W_DATE,"D4/")
PRINT " "
PRINT "DROITS EN PRESTATAIRE ENTITE ":W_CODEENTITE
PRINT "NOMBRE HEURES CDI     = ":W_TOTALHRESCDIP/100 "R#9"
PRINT "NOMBRE HEURES CDD     = ":W_TOTALHRESCDDP/100 "R#9"
PRINT "                        ========="
PRINT "NOMBRE HEURES TOTALES = ":(W_TOTALHRESCDIP+W_TOTALHRESCDDP)/100 "R#9"
PRINT " "
PRINT "DROITS EN MANDATAIRE"
PRINT "NOMBRE HEURES CDI     = ":W_TOTALHRESCDIM/100 "R#9"
PRINT "NOMBRE HEURES CDD     = ":W_TOTALHRESCDDM/100 "R#9"
PRINT "                        ========="
PRINT "NOMBRE HEURES TOTALES = ":(W_TOTALHRESCDIM+W_TOTALHRESCDDM)/100 "R#9"
