* COMPTABILISATION DES AIDES A UNE ACTIVITE PAR AIDE TECHNIQUE
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ENVIRONAIDE" TO F.ENVIRONAIDE ELSE STOP
OPEN "","ACTIVITESBISAIDE" TO F.ACTIVITESBISAIDE ELSE STOP
OPEN "","TABLES" TO F.TABLES ELSE STOP

TAB=""
NBAIDES=0
READ ENR_TABLES FROM F.TABLES,"AIDETECHNIQUE" ELSE STOP
I=1
LOOP
 UNTIL ENR_TABLES<2,I>="" DO
  TAB<I,1>=ENR_TABLES<2,I>
  TAB<I,2>=ENR_TABLES<3,I>
  TAB<I,3>=0
  I=I+1
REPEAT
MAX=I

PRINT "DATE DEBUT (JJ/MM/AA) ":
INPUT DATEDEB
PRINT "DATE FIN (JJ/MM/AA) ":
INPUT DATEFIN
PRINT "CODE ACTIVITE ":
INPUT CODEACT
DATEDEB=ICONV(DATEDEB,"D2/")
IF DATEDEB="" THEN STOP
DATEFIN=ICONV(DATEFIN,"D2/")
IF DATEFIN="" THEN STOP
IF CODEACT="" THEN STOP

EXECUTE 'TSELECT ACTIVITESBISAIDE AVEC CodeActBisAide = "':CODEACT:'" AND AVEC DateDebAct <= "':DATEFIN:'" AND AVEC 1 = "" OR >= "':DATEDEB:'" PAR CodeAide'
RUPTURE=""
FINI="NON"
LOOP
 READNEXT CLE ELSE FINI="OUI"
 UNTIL FINI="OUI" DO
  IF RUPTURE#CLE[1,5] THEN
   NBAIDES=NBAIDES+1
   READ ENR_ENVIRONAIDE FROM F.ENVIRONAIDE,CLE[1,5] THEN
    I=1
    LOOP
     UNTIL ENR_ENVIRONAIDE<19,I>="" DO
      TAB<ENR_ENVIRONAIDE<19,I>,3>=TAB<ENR_ENVIRONAIDE<19,I>,3>+1
      I=I+1
    REPEAT
   END
   RUPTURE=CLE[1,5]
  END
REPEAT
FOR J=1 TO MAX
 PRINT TAB<J,2> "L(#30)":"   ":TAB<J,3>
NEXT J
PRINT "NOMBRE D'AIDES : ":NBAIDES
STOP


