* COMPARE 2 RUBRIQUES DE CHARGES URSSAF TOTALITE ET PLAFONNE ENTRE ELLES DANS HISTORCUMUL
* ET MAJ DES BASES DE COTISATION


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

EXECUTE 'SELECT HISTORCUMUL AVEC 0 = "[2002001" AND AVEC 15 = "035" OR = "036"'


W_FIN=0
K=1
W_SauvePlaf=""

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


        W_MAJ=0
	READ ENR_HISTORCUMUL FROM F.HISTOR,CLE ELSE ENR_HISTORCUMUL=""


        FOR J = 1 TO 3 

	   W_T1=0
	   W_T2=0
           W_Sauve1=0
           W_Sauve2=0

           IF J=1 THEN
              W_RUB1 = "035" ;* TOT
              W_RUB2 = "037" ;* PLAF
           END ELSE
              IF J=2 THEN
                 W_RUB1 = "038" ;* TOT
                 W_RUB2 = "036" ;* PLAF
              END ELSE
                 W_RUB1 = "001" ;* TOT
                 W_RUB2 = "002" ;* PLAF
              END 
           END

	   I=1
	   LOOP
	   	   UNTIL ENR_HISTORCUMUL<15,I>="" DO
	
		   IF ENR_HISTORCUMUL<15,I>=W_RUB1 THEN 
			   W_T1=ENR_HISTORCUMUL<17,I>
                           W_Sauve1=I
		   END
		   IF ENR_HISTORCUMUL<15,I>=W_RUB2 THEN
		 	   W_T2=ENR_HISTORCUMUL<17,I>
                           W_Sauve2=I
		   END
 
		   I=I+1
	   REPEAT

 	   IF INT(W_T1) # INT(W_T2) THEN 
              IF ENR_HISTORCUMUL<17,W_Sauve1> <= ENR_HISTORCUMUL<4> THEN
                 ENR_HISTORCUMUL<17,W_Sauve2>=ENR_HISTORCUMUL<17,W_Sauve1>
                 W_MAJ=1
              END ELSE
                 W_SauvePlaf<K>=CLE
                 K=K+1
              END
           END

        NEXT J

        IF W_MAJ=1 THEN
*              WRITE ENR_HISTORCUMUL ON F.HISTOR,CLE
              PRINT CLE
        END

REPEAT

IF W_SauvePlaf # "" THEN
   PRINT " "
   PRINT "Cas suprieurs au plafond : "
   W_Count=DCOUNT(W_SauvePlaf,CHAR(254))
   FOR K=1 TO W_Count
      PRINT W_SauvePlaf<K>
   NEXT K
END

STOP
