**********************************************************
* COMPARAISON DES CUMULS BASE DE COTISATION DES RUBRIQUES URSSAF
* AVEC UNE AUTRE RUBRIQUE DE CHARGE
**********************************************************
EXECUTE 'COMO ON COMPARERUBCHG'
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
PRINT "RUBRIQUE DE CHARGE PLAF : ":
INPUT RUBCHGPLAF
PRINT "RUBRIQUE DE CHARGE TOT. : ":
INPUT RUBCHGTOT
RUBCHGPLAF1="104"
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
BASERUB038=0
BASERUB036=0
BASERUB001=0
BASERUB002=0
BASERUB120=0
BASERUB121=0
ASSASSEDIC=0
BASEASSEDIC=0
BASERUBCHGPLAF=0
BASERUBCHGTOT=0
BASERUBCHGPLAF1=0
I=1
LOOP
 CODERUBCHG=EXTRACT(ENR,15,I)
 UNTIL CODERUBCHG="" DO
  IF CODERUBCHG="020" THEN
   ASSASSEDIC=EXTRACT(ENR,16,I)
   BASEASSEDIC=EXTRACT(ENR,17,I)
  END
  IF CODERUBCHG="035" THEN
   BASERUB035=EXTRACT(ENR,17,I)
  END
  IF CODERUBCHG="037" THEN
   BASERUB037=EXTRACT(ENR,17,I)
  END
  IF CODERUBCHG="038" THEN
   BASERUB038=EXTRACT(ENR,17,I)
  END
  IF CODERUBCHG="036" THEN
   BASERUB036=EXTRACT(ENR,17,I)
  END
  IF CODERUBCHG="002" THEN
   BASERUB002=EXTRACT(ENR,17,I)
  END
  IF CODERUBCHG="001" THEN
   BASERUB001=EXTRACT(ENR,17,I)
  END
  IF CODERUBCHG="120" THEN
   BASERUB120=EXTRACT(ENR,17,I)
  END
  IF CODERUBCHG="121" THEN
   BASERUB121=EXTRACT(ENR,17,I)
  END
  IF CODERUBCHG=RUBCHGPLAF THEN
   BASERUBCHGPLAF=EXTRACT(ENR,17,I)
  END
  IF CODERUBCHG=RUBCHGPLAF1 THEN
   BASERUBCHGPLAF1=EXTRACT(ENR,17,I)
  END
  IF CODERUBCHG=RUBCHGTOT THEN
   BASERUBCHGTOT=EXTRACT(ENR,17,I)
  END
  I=I+1
REPEAT
EDITER="NON"
CUMPLAF=BASERUB037+BASERUB036+BASERUB002+BASERUB121
CUMTOT=BASERUB035+BASERUB038+BASERUB001+BASERUB120
BASERUBCHGPLAF=BASERUBCHGPLAF+BASERUBCHGPLAF1
IF CUMPLAF#BASERUBCHGPLAF AND BASERUBCHGPLAF#0 THEN
 EDITER="OUI"
END
IF CUMTOT#BASERUBCHGTOT AND BASERUBCHGTOT#0 THEN
 EDITER="OUI"
END
*IF CUMPLAF#CUMTOT THEN
* EDITER="OUI"
*END
IF EDITER="OUI" THEN
 WBASERUBCHGPLAF=BASERUBCHGPLAF "R26(#8)"
 WBASERUBCHGTOT=BASERUBCHGTOT "R26(#8)"
 WCUMTOT=CUMTOT "R26(#8)"
 WCUMPLAF=CUMPLAF "R26(#8)"
 WBASEASSEDIC=BASEASSEDIC "R26(#8)"
 PRINT CLE[1,5]:"CUMTOT ":WCUMTOT:" /CUMPLAF ":WCUMPLAF:" /ASSEDIC ":WBASEASSEDIC:" /CHGTOT ":WBASERUBCHGTOT:" /CHGPLAF ":WBASERUBCHGPLAF
 PRINT 
END
GOTO 10 

