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

PRINT "Priode de dbut (AAAAMM) : "
INPUT PERIODEDEB
PRINT "Priode de fin (AAAAMM) : "
INPUT PERIODEFIN
PRINT "Type activit (P, M, I, S): "
INPUT TYPACT

EXECUTE 'SELECT STATACTAIDE AVEC 0 => "[':PERIODEDEB:'" AND AVEC 0 <= "[':PERIODEFIN:'" AND AVEC 2 # "" AND AVEC TypeActiviteAct = "':TYPACT:'" PAR 0'

W_Fini="FAUX"

TOT = 0
CLEANC = ""
CLE = ""

LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
   CLE = W_Cle[1,5]
WHILE W_Fini="FAUX" DO
   IF CLEANC <> CLE THEN
	TOT = TOT + 1
	CLEANC = CLE
   END
REPEAT

PRINT 'TOTAL : ':TOT

STOP
