** COMPARE LA SOMME DES INTERVENTIONS EN ATT 10 (SOMME DES SOUS-VALEURS) AVEC LE NOMBRE D'HEURES 
** PRESENT EN ATT 3 DU FICHIER DETAILPREST

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

W_Requete=""

PRINT "PERIODE (AAAAMM)"
INPUT W_PERIODE

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

EXECUTE 'SAUVE-LISTE W_Requete'
EXECUTE "LISTE W_Requete" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.DETAILPREST TO W_Requete

   W_Fini="FAUX"
   LOOP
      	READNEXT W_Cle FROM W_Requete ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
     	READ ENR_DETAILPREST FROM F.DETAILPREST,W_Cle THEN
		
           W_TotalAtt3=0
           W_TotalAtt12=0
           W_Count=DCOUNT(ENR_DETAILPREST<3>,CHAR(253))
           FOR i = 1 TO W_Count
	      IF ENR_DETAILPREST<2,i>="" THEN W_TotalAtt3=W_TotalAtt3+ENR_DETAILPREST<3,i>
              W_CountMV=DCOUNT(ENR_DETAILPREST<12,i>,CHAR(252))
	      IF ENR_DETAILPREST<12,i,1># "" THEN
	              FOR j=1 TO W_CountMV
        	         W_TotalAtt12=W_TotalAtt12+ENR_DETAILPREST<12,i,j>
	              NEXT j
	      END
            NEXT i

	    IF W_TotalAtt12#"0" THEN
	            IF W_TotalAtt3 # W_TotalAtt12 THEN
        	       PRINT W_Cle:"  Diffrence = ":W_TotalAtt3-W_TotalAtt12
	            END
	    END
	END
   REPEAT

END

STOP
