EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","STATACTAIDE" TO F.STATACTAIDE ELSE STOP
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","SECTEUR" TO F.SECTEUR ELSE STOP

W_RequeteMoul=""

PRINT "Periode (AAAAMM) : ":
INPUT W_Periode

PRINT "Code Activite (6N : Entite+Activite) : ":
INPUT W_CodeAct

PRINT "Listage des + ou - 5 ans (+ ou -) : ":
INPUT Annee

PRINT "Listage des + ou - 30 heures (+ ou -) : ":
INPUT Heures

PRINTER ON
EXECUTE 'SELECT STATACTAIDE AVEC PeriodeAct = "':W_Periode:'" AND AVEC 1= "':W_CodeAct:'" PAR SecteurAct PAR NomPrenomAide'

EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.STATACTAIDE TO W_RequeteMoul

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_STATACTAIDE FROM F.STATACTAIDE,W_Cle ELSE STOP
      READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,W_Cle[1,5] ELSE STOP
      i=1
      LOOP
      WHILE ENR_STATACTAIDE<1,i> # W_CodeAct AND ENR_STATACTAIDE<1,i> # "" DO
         i=i+1
      REPEAT
      IF ENR_STATACTAIDE<2,i> # "" THEN
         W_NbHres=ENR_STATACTAIDE<2,i> / 100
         W_Prends="FAUX"
         IF Heures = "+" THEN
            IF ENR_STATACTAIDE<2,i> > 3000 THEN
               W_Prends="VRAI"
            END
         END ELSE
            IF ENR_STATACTAIDE<2,i> <= 3000 THEN
               W_Prends="VRAI"
            END
         END
         IF W_Prends="VRAI" THEN
            i = DCOUNT(ENR_ACTIVITESAIDE<1>,CHAR(253))
            LOOP
            WHILE ENR_ACTIVITESAIDE<1,i> # W_CodeAct AND ENR_ACTIVITESAIDE<1,i> # "" DO
               i=i-1
            REPEAT
            IF ENR_ACTIVITESAIDE<1,i> # "" THEN
               W_DebutAct=OCONV(ENR_ACTIVITESAIDE<2,i>,"D4/")
               W_DebImp=W_DebutAct
               W_DebutAct=W_DebutAct[7,4]:W_DebutAct[4,2]
               W_Periode5=W_Periode[1,4]-5:W_Periode[4,2]
               W_Prends="FAUX"
               IF Annee = "+" THEN
                  IF W_DebutAct < W_Periode5 THEN
                     W_Prends="VRAI"
                  END
               END ELSE
                  IF W_DebutAct => W_Periode5 THEN
                     W_Prends="VRAI"
                  END
               END
            END
            IF W_Prends="VRAI" THEN 
               READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle[1,5] ELSE STOP
               W_Secteur=ENR_CIVILAIDE<40>
               W_Secteur=W_Secteur[1,3]
               READ ENR_SECTEUR FROM F.SECTEUR,W_Secteur ELSE STOP
               W_NomPrenom=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
               W_NomPrenom=W_NomPrenom[1,25]
               W_NomPrenom=W_NomPrenom  "L#25"
               PRINT "Secteur : ":ENR_SECTEUR<1>:"   ":W_Cle[1,5]:"   ":W_NomPrenom:"   ":W_DebImp:"   ":W_NbHres
            END
         END
      END
   REPEAT

END

STOP

* SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURINF\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF
* PRINTER ON
