EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
CUMBRUT=0
CUMBRUT1=0
CUMIRCEM=0
CUMSANSIRCEM=0
10 READNEXT CLE ELSE
 PRINT CUMBRUT
 PRINT CUMBRUT1
 PRINT CUMIRCEM
 PRINT CUMSANSIRCEM
 STOP
END
READ ENR1 FROM F.CONTRAT,CLE ELSE GOTO 10
DEBUT=ENR1<7>
DEBUT=OCONV(DEBUT,"D4 ")
DEBUT=DEBUT[7,4]:DEBUT[4,2]
FIN=EXTRACT(ENR1,8)
IF FIN="" THEN
 READ ENR FROM F.DETAILCALCUL,CLE:"200204" THEN
  IF DEBUT>200204 THEN PRINT "PB DEBUT CONTRAT ":CLE
  GOSUB 100
  CUMBRUT=CUMBRUT+ENR<7>
 END
 READ ENR FROM F.DETAILCALCUL,CLE:"200205" THEN
  IF DEBUT>200205 THEN PRINT "PB DEBUT CONTRAT ":CLE
  CUMBRUT=CUMBRUT+ENR<7>
  GOSUB 100
 END
 READ ENR FROM F.DETAILCALCUL,CLE:"200206" THEN
  IF DEBUT>200206 THEN PRINT "PB DEBUT CONTRAT ":CLE
  CUMBRUT=CUMBRUT+ENR<7>
  GOSUB 100
 END
 GOTO 10
END
FIN=OCONV(FIN,"D4 ")
FIN=FIN[7,4]:FIN[4,2]
READ ENR FROM F.DETAILCALCUL,CLE:"200204" THEN
 CUMBRUT=CUMBRUT+ENR<7>
 IF DEBUT>200204 THEN PRINT "PB DEBUT CONTRAT ":CLE
 IF FIN<200204 THEN
  CUMBRUT1=CUMBRUT1+ENR<7>
  PRINT CLE:"200204"
 END ELSE
  GOSUB 100
 END
END
READ ENR FROM F.DETAILCALCUL,CLE:"200205" THEN
 CUMBRUT=CUMBRUT+ENR<7>
 IF DEBUT>200205 THEN PRINT "PB DEBUT CONTRAT ":CLE
 IF FIN<200205 THEN
  CUMBRUT1=CUMBRUT1+ENR<7>
  PRINT CLE:"200205"
 END ELSE
  GOSUB 100
 END
END
READ ENR FROM F.DETAILCALCUL,CLE:"200206" THEN
 CUMBRUT=CUMBRUT+ENR<7>
 IF DEBUT>200206 THEN PRINT "PB DEBUT CONTRAT ":CLE
 IF FIN<200206 THEN
  CUMBRUT1=CUMBRUT1+ENR<7>
  PRINT CLE:"200206"
 END ELSE
  GOSUB 100
 END
END
GOTO 10
******
100 I=1
PRES="NON"
LOOP
 RUB=ENR<8,I>
 UNTIL RUB="" DO
  IF RUB="056" THEN
   IF ENR<12,I>#ENR<7> THEN PRINT "# BASE ":CLE:"   ":ENR<7>:"   ":ENR<12,I>
   IF ENR1<29>#"04" THEN PRINT "IRCEM SUR BULLETIN SANS CONTRAT PREV. DS CONTRAT ":CLE
   CUMIRCEM=CUMIRCEM+ENR<7>
   PRES="OUI"
  END
  I=I+1
REPEAT
IF PRES="NON" THEN
 CUMSANSIRCEM=CUMSANSIRCEM+ENR<7>
 IF ENR1<29>="04" THEN PRINT "PAS IRCEM SUR BULLETIN ALORS QUE CONTRAT PREV. DANS CONTRAT ":CLE:"   ":ENR<7>
END
RETURN
