*** MODIF BASE DE COTISATION DANS HISTORCUMUL POUR RUBRIQUE
*** DE CHARGE AVEC TRANCHE B
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
OPEN "","RUBCHARGE" TO F.RUBCHARGE ELSE STOP
10 READNEXT CLE ELSE STOP
READ ENR FROM F.HISTORCUMUL,CLE ELSE GOTO 10
CUMULPLAFOND=EXTRACT(ENR,4)
CUMULBRUT=EXTRACT(ENR,5)
D=1
MODIF="NON"
LOOP
 RUBCHG=EXTRACT(ENR,15,D)
 UNTIL RUBCHG="" DO
  READ ENRRUBCHARGE FROM F.RUBCHARGE,RUBCHG THEN
   IF EXTRACT(ENRRUBCHARGE,2)="003" THEN
    ASSIETTE=EXTRACT(ENR,16,D)
    BASECOTIS=EXTRACT(ENR,17,D)  
    IF BASECOTIS=ASSIETTE THEN
*     IF CUMULBRUT>CUMULPLAFOND THEN
*      BASECOTIS=CUMULBRUT-CUMULPLAFOND
*     END ELSE
      BASECOTIS=0
*     END
     ENR=REPLACE(ENR,17,D;BASECOTIS)
     MODIF="OUI"
    END
   END
  END
  D=D+1
REPEAT
IF MODIF="OUI" THEN WRITE ENR ON F.HISTORCUMUL,CLE
GOTO 10     
