* MAJ DES CUMULS D'ASSIETTES BRUTES DES RUBRIQUES URSSAF DANS HISTORCUMUL - MANDATAIRE
EXECUTE 'COMO ON CUMURSSAFM'
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
PRINT "ANNEE DADS (4N) : ":
INPUT ANNEEDADS
EXECUTE 'SELECT HISTORCUMUL = "[':ANNEEDADS:']" AND AVEC NomAide # ""'
10 READNEXT CLE ELSE
 EXECUTE 'COMO OFF'
 STOP
END
READ ENR FROM F.HISTORCUMUL,CLE ELSE GOTO 10
BASERUB043=0
BASERUB039=0
ASSRUB043=0
ASSRUB039=0
BASERUB044=0
BASERUB040=0
ASSRUB044=0
ASSRUB040=0
BASERUB049=0
BASERUB047=0
ASSRUB049=0
ASSRUB047=0
BASERUB050=0
BASERUB048=0
ASSRUB050=0
ASSRUB048=0
INDICERUB043=0
INDICERUB039=0
INDICERUB044=0
INDICERUB040=0
INDICERUB049=0
INDICERUB047=0
INDICERUB050=0
INDICERUB048=0
ASSASSEDIC=0
I=1
LOOP
 CODERUBCHG=EXTRACT(ENR,15,I)
 UNTIL CODERUBCHG="" DO
  IF CODERUBCHG="020" THEN ASSASSEDIC=EXTRACT(ENR,16,I)
  IF CODERUBCHG="043" THEN
   ASSRUB043=EXTRACT(ENR,16,I)
   BASERUB043=EXTRACT(ENR,17,I)
   INDICERUB043=I
  END
  IF CODERUBCHG="039" THEN
   ASSRUB039=EXTRACT(ENR,16,I)
   BASERUB039=EXTRACT(ENR,17,I)
   INDICERUB039=I
  END
  IF CODERUBCHG="044" THEN
   ASSRUB044=EXTRACT(ENR,16,I)
   BASERUB044=EXTRACT(ENR,17,I)
   INDICERUB044=I
  END
  IF CODERUBCHG="040" THEN
   ASSRUB040=EXTRACT(ENR,16,I)
   BASERUB040=EXTRACT(ENR,17,I)
   INDICERUB040=I
  END
  IF CODERUBCHG="047" THEN
   ASSRUB047=EXTRACT(ENR,16,I)
   BASERUB047=EXTRACT(ENR,17,I)
   INDICERUB047=I
  END
  IF CODERUBCHG="049" THEN
   ASSRUB049=EXTRACT(ENR,16,I)
   BASERUB049=EXTRACT(ENR,17,I)
   INDICERUB049=I
  END
  IF CODERUBCHG="050" THEN
   ASSRUB050=EXTRACT(ENR,16,I)
   BASERUB050=EXTRACT(ENR,17,I)
   INDICERUB050=I
  END
  IF CODERUBCHG="048" THEN
   ASSRUB048=EXTRACT(ENR,16,I)
   BASERUB048=EXTRACT(ENR,17,I)
   INDICERUB048=I
  END
  I=I+1
REPEAT
CUMPLAF=BASERUB039+BASERUB040+BASERUB047+BASERUB048
CUMTOT=BASERUB043+BASERUB044+BASERUB049+BASERUB050
IF CUMPLAF#ASSASSEDIC OR CUMTOT#ASSASSEDIC OR CUMPLAF#CUMTOT THEN
 WASSRUB043=ASSRUB043 "R26(#8)"
 WASSRUB039=ASSRUB039 "R26(#8)"
 WASSRUB044=ASSRUB044 "R26(#8)"
 WASSRUB040=ASSRUB040 "R26(#8)"
 WASSRUB049=ASSRUB049 "R26(#8)"
 WASSRUB047=ASSRUB047 "R26(#8)"
 WASSRUB050=ASSRUB050 "R26(#8)"
 WASSRUB048=ASSRUB048 "R26(#8)"
 WBASERUB043=BASERUB043 "R26(#8)"
 WBASERUB039=BASERUB039 "R26(#8)"
 WBASERUB044=BASERUB044 "R26(#8)"
 WBASERUB040=BASERUB040 "R26(#8)"
 WBASERUB049=BASERUB049 "R26(#8)"
 WBASERUB047=BASERUB047 "R26(#8)"
 WBASERUB050=BASERUB050 "R26(#8)"
 WBASERUB048=BASERUB048 "R26(#8)"
 PRINT CLE[1,5]:"ASS.: GAD T.EXO ":WASSRUB043:" / GAD P.EXO ":WASSRUB039:" / GAD T.NEXO ":WASSRUB044:" / GAD P.NEXO ":WASSRUB040
 PRINT "     BASE: GAD T.EXO ":WBASERUB043:" / GAD P.EXO ":WBASERUB039:" / GAD T.NEXO ":WBASERUB044:" / GAD P.NEXO ":WBASERUB040
 PRINT "     ASS.: T 65 SMIC ":WASSRUB049:" / P 65 SMIC ":WASSRUB047:" / T>65 SMIC ":WASSRUB050:" / P>65 SMIC ":WASSRUB048
 PRINT "     BASE: T 65 SMIC ":WBASERUB049:" / P 65 SMIC ":WBASERUB047:" / T>65 SMIC ":WBASERUB050:" / P>65 SMIC ":WBASERUB048
 PRINT
END ELSE
 IF INDICERUB043#0 THEN ENR=REPLACE(ENR,16,INDICERUB043;ASSASSEDIC)
 IF INDICERUB039#0 THEN ENR=REPLACE(ENR,16,INDICERUB039;ASSASSEDIC)
 IF INDICERUB044#0 THEN ENR=REPLACE(ENR,16,INDICERUB044;ASSASSEDIC)
 IF INDICERUB040#0 THEN ENR=REPLACE(ENR,16,INDICERUB040;ASSASSEDIC)
 IF INDICERUB049#0 THEN ENR=REPLACE(ENR,16,INDICERUB049;ASSASSEDIC)
 IF INDICERUB047#0 THEN ENR=REPLACE(ENR,16,INDICERUB047;ASSASSEDIC)
 IF INDICERUB050#0 THEN ENR=REPLACE(ENR,16,INDICERUB050;ASSASSEDIC)
 IF INDICERUB048#0 THEN ENR=REPLACE(ENR,16,INDICERUB048;ASSASSEDIC)
 WRITE ENR ON F.HISTORCUMUL,CLE
END
GOTO 10 

