*******************************************************
* VERIFIE MONTANT ACOMPTEBULL AVEC DETAILCALCUL
* + INDIQUE INCOHERENCE ENTRE LES 2
*******************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","ACOMPTEBULL" TO F.ACOMPTEBULL ELSE STOP

PRINT "PERIODE (AAAAMM)"
INPUT W_PERIODE


EXECUTE 'SELECT DETAILCALCUL AVEC 0 = "[':W_PERIODE:'" AND AVEC TypeActivite = "P" AND AVEC 17 = "816"'

W_FIN=0
W_MONTANTACPT=0
W_DIFF=0

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

	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,CLE ELSE ENR_DETAILCALCUL=""

	I=1
	LOOP
		UNTIL ENR_DETAILCALCUL<17,I>="" DO
		
		IF ENR_DETAILCALCUL<17,I>="816" THEN
			IF INT(ENR_DETAILCALCUL<20,I>/100)#ENR_DETAILCALCUL<20,I>/100 THEN
				PRINT "AIDANT ":CLE[1,8]:" - MONTANT AVEC DECIMALES = ":ENR_DETAILCALCUL<20,I>
			END

			READ ENR_ACOMPTEBULL FROM F.ACOMPTEBULL,CLE[1,8]:W_PERIODE ELSE ENR_ACOMPTEBULL=""
			IF ENR_ACOMPTEBULL<1>#-ENR_DETAILCALCUL<20,I> THEN
				PRINT "AIDANT ":CLE[1,8]:" - DIFF ACOMPTE/BS = ":ENR_ACOMPTEBULL<1>:"/":-ENR_DETAILCALCUL<20,I>:" DIFFERENCE = ":-ENR_ACOMPTEBULL<1>-ENR_DETAILCALCUL<20,I>
				W_DIFF=W_DIFF+(-ENR_ACOMPTEBULL<1>-ENR_DETAILCALCUL<20,I>)
			END

			W_MONTANTACPT=W_MONTANTACPT+ENR_DETAILCALCUL<20,I>
		END

		I=I+1
	REPEAT

REPEAT

PRINT W_MONTANTACPT
PRINT W_DIFF
