OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","STATACTAIDE" TO F.STATACTAIDE ELSE STOP
EXECUTE 'SELECT HISTORCUMUL AVEC PrestManda = "M"'
10 READNEXT CLE1 ELSE GOTO 50
DELETE F.HISTORCUMUL,CLE1
GOTO 10
50 EXECUTE 'SELECT DETAILCALCUL AVEC ConvColContratDetailCalcul = "02"'
60 READNEXT CLE2 ELSE GOTO 100
DELETE F.DETAILCALCUL,CLE2
GOTO 60
100 EXECUTE 'SELECT STATACTAIDE AVEC 1 = "001002"'
110 READNEXT CLE3 ELSE STOP
READ ENRSTATACTAIDE FROM F.STATACTAIDE,CLE3 ELSE GOTO 110
D=1
LOOP
 ACTIVITE=EXTRACT(ENRSTATACTAIDE,1,D)
 UNTIL ACTIVITE="001002" OR ACTIVITE="" DO
  D=D+1
REPEAT
IF ACTIVITE="001002" THEN
 ENRSTATACTAIDE=DELETE(ENRSTATACTAIDE,1,D)
 ENRSTATACTAIDE=DELETE(ENRSTATACTAIDE,2,D)
 IF ENRSTATACTAIDE="" THEN
  DELETE F.STATACTAIDE,CLE3
 END ELSE
  WRITE ENRSTATACTAIDE ON F.STATACTAIDE,CLE3
 END
END
GOTO 110

