* MAJ DES CUMULS D'ASSIETTES BRUTES DES RUBRIQUES URSSAF DANS HISTORCUMUL - PRESTATAIRE
EXECUTE 'COMO ON CUMURSSAFP'
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
PRINT "ANNEE DADS (4N) : ":
INPUT ANNEEDADS
PRINT "CODE ENTITE JURIDIQUE (3N) : ":
INPUT ENTITE
EXECUTE 'SELECT HISTORCUMUL = "[':ANNEEDADS:ENTITE:'"'
10 READNEXT CLE ELSE
 EXECUTE 'COMO OFF'
 STOP
END
READ ENR FROM F.HISTORCUMUL,CLE ELSE GOTO 10
BASERUB035=0
BASERUB037=0
ASSRUB035=0
ASSRUB037=0
BASERUB038=0
BASERUB036=0
ASSRUB038=0
ASSRUB036=0
BASERUB001=0
BASERUB002=0
ASSRUB001=0
ASSRUB002=0
INDICERUB035=0
INDICERUB037=0
INDICERUB038=0
INDICERUB036=0
INDICERUB001=0
INDICERUB002=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="035" THEN
   ASSRUB035=EXTRACT(ENR,16,I)
   BASERUB035=EXTRACT(ENR,17,I)
   INDICERUB035=I
  END
  IF CODERUBCHG="037" THEN
   ASSRUB037=EXTRACT(ENR,16,I)
   BASERUB037=EXTRACT(ENR,17,I)
   INDICERUB037=I
  END
  IF CODERUBCHG="038" THEN
   ASSRUB038=EXTRACT(ENR,16,I)
   BASERUB038=EXTRACT(ENR,17,I)
   INDICERUB038=I
  END
  IF CODERUBCHG="036" THEN
   ASSRUB036=EXTRACT(ENR,16,I)
   BASERUB036=EXTRACT(ENR,17,I)
   INDICERUB036=I
  END
  IF CODERUBCHG="002" THEN
   ASSRUB002=EXTRACT(ENR,16,I)
   BASERUB002=EXTRACT(ENR,17,I)
   INDICERUB002=I
  END
  IF CODERUBCHG="001" THEN
   ASSRUB001=EXTRACT(ENR,16,I)
   BASERUB001=EXTRACT(ENR,17,I)
   INDICERUB001=I
  END
  I=I+1
REPEAT
CUMPLAF=BASERUB037+BASERUB036+BASERUB002
CUMTOT=BASERUB035+BASERUB038+BASERUB001
IF CUMPLAF#ASSASSEDIC OR CUMTOT#ASSASSEDIC OR CUMPLAF#CUMTOT THEN
 WASSRUB035=ASSRUB035 "R26(#8)"
 WASSRUB037=ASSRUB037 "R26(#8)"
 WASSRUB038=ASSRUB038 "R26(#8)"
 WASSRUB036=ASSRUB036 "R26(#8)"
 WASSRUB001=ASSRUB001 "R26(#8)"
 WASSRUB002=ASSRUB002 "R26(#8)"
 WBASERUB035=BASERUB035 "R26(#8)"
 WBASERUB037=BASERUB037 "R26(#8)"
 WBASERUB038=BASERUB038 "R26(#8)"
 WBASERUB036=BASERUB036 "R26(#8)"
 WBASERUB001=BASERUB001 "R26(#8)"
 WBASERUB002=BASERUB002 "R26(#8)"
 PRINT CLE[1,5]:"ASS.: AAD T.EXO ":WASSRUB035:" / AAD P.EXO ":WASSRUB037:" / AAD T.NEXO ":WASSRUB038:" / AAD P.NEXO ":WASSRUB036:" / GEN T. ":WASSRUB001:" / GEN P. ":WASSRUB002
 PRINT "     BASE: AAD T.EXO ":WBASERUB035:" / AAD P.EXO ":WBASERUB037:" / AAD T.NEXO ":WBASERUB038:" / AAD P.NEXO ":WBASERUB036:" / GEN T. ":WBASERUB001:" / GEN P. ":WBASERUB002
 PRINT
END ELSE
 IF INDICERUB035#0 THEN ENR=REPLACE(ENR,16,INDICERUB035;ASSASSEDIC)
 IF INDICERUB037#0 THEN ENR=REPLACE(ENR,16,INDICERUB037;ASSASSEDIC)
 IF INDICERUB038#0 THEN ENR=REPLACE(ENR,16,INDICERUB038;ASSASSEDIC)
 IF INDICERUB036#0 THEN ENR=REPLACE(ENR,16,INDICERUB036;ASSASSEDIC)
 IF INDICERUB001#0 THEN ENR=REPLACE(ENR,16,INDICERUB001;ASSASSEDIC)
 IF INDICERUB002#0 THEN ENR=REPLACE(ENR,16,INDICERUB002;ASSASSEDIC)
* WRITE ENR ON F.HISTORCUMUL,CLE
END
GOTO 10 

