* MAJ CUMUL D'ASSIETTE BRUTE (ATT 16 D'HISTORCUMUL) POUR RUBRIQUE URSSAF
EXECUTE 'COMO ON RATCUM'
EXECUTE 'SELECT CONTRAT AVEC 1 = "02" AND AVEC 8 = "" OR >= "12206"'
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
OPEN "","RUBCHARGE" TO F.RUBCHARGE ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP

10 READNEXT CLE ELSE 
 EXECUTE 'COMO OFF'
 STOP
END
READ ENR_CONTRAT FROM F.CONTRAT,CLE ELSE GOTO 10
AIDE=EXTRACT(ENR_CONTRAT,3)
WCLE=CLE[1,5]:"2001":AIDE
READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,WCLE ELSE GOTO 10
W_Count=DCOUNT(ENR_HISTORCUMUL<15>,CHAR(253))
W_MODIF="NON"
FOR j=1 TO W_Count
   READ ENR_RUBCHARGE FROM F.RUBCHARGE,ENR_HISTORCUMUL<15,j> ELSE ENR_RUBCHARGE=""
   IF ENR_RUBCHARGE<16>="01" THEN
      W_ASSIETTE=EXTRACT(ENR_HISTORCUMUL,16,j)
      W_BASECOTIS=EXTRACT(ENR_HISTORCUMUL,17,j)
      IF W_ASSIETTE#W_BASECOTIS THEN
         ENR_HISTORCUMUL=REPLACE(ENR_HISTORCUMUL,16,j;W_BASECOTIS)
         W_MODIF="OUI"
      END
   END 
NEXT j
IF W_MODIF="OUI" THEN
   WRITE ENR_HISTORCUMUL ON F.HISTORCUMUL,WCLE
   PRINT WCLE
END
GOTO 10
