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

PRINT "Periode Debut (AAAMM) :":
INPUT W_Periode1

PRINT "Periode Fin (AAAMM) :":
INPUT W_Periode2

W_TabStat=""
W_TabStat<1>=0
W_TabStat<2>=0
W_TabStat<3>=0
W_TabStat<4>=0
W_TabStat<5>=0
W_TabStat<6>=0
W_NbMois = 0
W_Total=0

EXECUTE 'SELECT STATACTAIDE AVEC @ID => "[':W_Periode1:'" AND AVEC @ID =< "[':W_Periode2:'" AND AVEC SecteurAct = "001" PAR @ID'

W_CleAnc=""

W_Fini="FAUX"
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO

   READ ENR_STATACTAIDE FROM F.STATACTAIDE,W_Cle ELSE STOP

   IF W_Cle[1,5] # W_CleAnc[1,5] AND W_CleAnc # "" THEN
      W_Total=W_Total / W_NbMois
      BEGIN CASE
         CASE W_Total < 1600
             W_TabStat<1>=W_TabStat<1> + 1
         CASE W_Total >= 1600 AND W_Total < 2000
             W_TabStat<2>=W_TabStat<2> + 1
         CASE W_Total >= 2000 AND W_Total < 3000
             W_TabStat<3>=W_TabStat<3> + 1
         CASE W_Total >= 3000
             W_TabStat<4>=W_TabStat<4> + 1
         CASE 1
             PRINT W_Cle
             W_TabStat<5>=W_TabStat<5> + 1
      END CASE
      W_TabStat<6>=W_TabStat<6> + 1
      W_NbMois=0
      W_Total=0
   END

   W_NbMois=W_NbMois + 1
   W_Total=W_Total + ENR_STATACTAIDE<2>

   W_CleAnc=W_Cle
 
REPEAT

PRINT "W_TabStat : ":W_TabStat

STOP
