
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE STOP
OPEN "","HRESHISTOR" TO F.HRESHISTOR ELSE STOP

W_RESULTAT = ""

PRINT "Priode de slection : "
INPUT W_Periode

EXECUTE 'SSELECT FACTURAIDE AVEC 0 = "[P':W_Periode:']" AND AVEC 0 = "[0" PAR 0'

EXECUTE 'SAUVE-LISTE W_RESULTAT'
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
	
IF MSGCODE<1> # 209 THEN 

	W_FINI = "FAUX"

	SELECT F.FACTURAIDE TO W_RESULTAT

	LOOP
		READNEXT CLE FROM W_RESULTAT ELSE W_FINI="VRAI"
	WHILE W_FINI = "FAUX"
		READ ENR_FACTURAIDE FROM F.FACTURAIDE,CLE ELSE ENR_FACTURAIDE = ""

		W_HreFact=0
		W_COUNT=DCOUNT(ENR_FACTURAIDE<1>,CHAR(253))
		FOR i=1 TO W_COUNT
			IF ENR_FACTURAIDE<1,i>=W_Periode AND ENR_FACTURAIDE<3,i> # "" AND ENR_FACTURAIDE<2,i>[1,13] # "PARTICIPATION" THEN
				W_HreFact=W_HreFact + ENR_FACTURAIDE<3,i>
			END
		NEXT i

		W_CleHistor=CLE[1,8]:W_Periode
		READ ENR_HRESHISTOR FROM F.HRESHISTOR,W_CleHistor ELSE ENR_HRESHISTOR = ""

		W_HreHist=0
		W_COUNT=DCOUNT(ENR_HRESHISTOR<1>,CHAR(253))
		FOR i=1 TO W_COUNT
			W_HreHist=W_HreHist + ENR_HRESHISTOR<2,i>
		NEXT i
		
		IF W_HreFact # W_HreHist THEN
			PRINT CLE[1,5]
			DEBUG
		END

	REPEAT
	
END

STOP
