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

W_RequeteMoul=""

EXECUTE 'SELECT ACTIVITESAIDE AVEC DateAideSupp = "" AND AVEC 1 = "001002" OR = "001003"'

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

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

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,W_Cle ELSE STOP
      W_Act1="FAUX"
      W_Act2="FAUX"
      i = 1
      LOOP
      WHILE ENR_ACTIVITESAIDE<1,i> # "" DO
         IF ENR_ACTIVITESAIDE<1,i> = "001001" AND ENR_ACTIVITESAIDE<3,i>="" THEN
            W_Act1="VRAI"
         END ELSE
            IF ENR_ACTIVITESAIDE<1,i> = "001002" AND (ENR_ACTIVITESAIDE<3,i>="" OR ENR_ACTIVITESAIDE<3,i> >= "12875") THEN
                W_Act2="VRAI"
            END ELSE
               IF ENR_ACTIVITESAIDE<1,i> = "001003" AND (ENR_ACTIVITESAIDE<3,i>="" OR ENR_ACTIVITESAIDE<3,i> >= "12875") THEN
                  W_Act2="VRAI"
               END
            END
         END
         i = i + 1
      REPEAT

      IF W_Act1="FAUX" AND W_Act2="VRAI" THEN
         ENR_ACTIVITESAIDE=INSERT(ENR_ACTIVITESAIDE,1,1;"001001")
         ENR_ACTIVITESAIDE=INSERT(ENR_ACTIVITESAIDE,2,1;"1")
         ENR_ACTIVITESAIDE<2,1>=""
         IF ENR_ACTIVITESAIDE<3>="" THEN
            ENR_ACTIVITESAIDE<3,1>="1"
            ENR_ACTIVITESAIDE<3,2>="1"
            ENR_ACTIVITESAIDE<3,1>=""
            ENR_ACTIVITESAIDE<3,2>=""

         END ELSE
            ENR_ACTIVITESAIDE=INSERT(ENR_ACTIVITESAIDE,3,1;"1")
            ENR_ACTIVITESAIDE<3,1>=""
         END
         WRITE ENR_ACTIVITESAIDE ON F.ACTIVITESAIDE,W_Cle
      END

   REPEAT

END

STOP

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