OPEN "","COTISANAIDE" TO F.COTISANAIDE ELSE STOP
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP
EXECUTE "SELECT ACTIVITESAIDE"
5 READNEXT CLE ELSE STOP
READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,CLE ELSE GOTO 5
I=1
LOOP
 DEBUT=EXTRACT(ENR_ACTIVITESAIDE,2,I)
 UNTIL DEBUT="" DO
  DEBUT=OCONV(DEBUT,"D4/")
  DEBUT=DEBUT[7,4]:DEBUT[4,2]
  IF DEBUT="" THEN GOTO 10
  IF DEBUT>200009 THEN GOTO 10
  FIN=EXTRACT(ENR_ACTIVITESAIDE,3,I)
  IF DEBUT<200001 THEN DEBUT=200001
  IF FIN#"" THEN
   FIN=OCONV(FIN,"D4/")
   FIN=FIN[7,4]:FIN[4,2]
   IF FIN<DEBUT THEN GOTO 10
  END
  ENTITE=EXTRACT(ENR_ACTIVITESAIDE,1,I)
  ENTITE=ENTITE[1,3]
  ENR_COTISANAIDE=""
  ENR_COTISANAIDE=REPLACE(ENR_COTISANAIDE,1;DEBUT)
  IF ENTITE="001" THEN
   ENR_COTISANAIDE=REPLACE(ENR_COTISANAIDE,2;"2000")
  END ELSE
   ENR_COTISANAIDE=REPLACE(ENR_COTISANAIDE,2;"4000")
  END
  WRITE ENR_COTISANAIDE ON F.COTISANAIDE,CLE:ENTITE
10 I=I+1
REPEAT
GOTO 5
