PRINT "PERIODE DEBUT: "
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
INPUT PERIODEDEB
PRINT "PERIODE FIN: "
INPUT PERIODEFIN
PRINT "CONVENTION COLLECTIVE : "
INPUT CONVCOL

EXECUTE 'SELECT DETAILCALCUL AVEC @ID >= "[':PERIODEDEB:'" AND <= "[':PERIODEFIN:'" AND AVEC CodAssoContratDetailCalcul = "001" AND AVEC ConvColContratDetailCalcul = "':CONVCOL:'" AND AVEC TypePersonnel = "P" AND AVEC 6 > "0" PAR @ID'

W_Fini="FAUX"
W_CleAnc=""
Compteur=0
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO
   IF W_Cle[1,5] # W_CleAnc[1,5] THEN
      W_CleAnc[1,5]=W_Cle[1,5]
      Compteur=Compteur+1
   END
REPEAT
PRINT Compteur
STOP
