
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "OUVERTURE CONTRAT" ;* en lecture criture

PRINT "Periode"
INPUT W_Periode 

PRINT "Libelle"
INPUT W_Libelle

	W_Mois=W_Periode[5,2]
	W_An=W_Periode[1,4]

	W_DateDeb = ICONV("01/":W_Mois:"/":W_An,"D4/")

	W_Mois=W_Mois+1
	IF W_Mois="13" THEN
		W_Mois="01"
		W_An=W_An+1
	END

	W_DateFin = ICONV("01/":W_Mois:"/":W_An,"D4/")-1

   	EXECUTE 'SELECT CONTRAT AVEC 65 = "" AND AVEC 1 # "02" AND AVEC 4 = "I" AND AVEC 7 <= "':W_DateFin:'" AND AVEC 8 >= "':W_DateDeb:'" OR = ""'

   	W_End="FAUX"

   	LOOP
      		READNEXT W_Cle ELSE W_End = "VRAI"
   	WHILE W_End = "FAUX" DO
      		READ ENR_CONTRAT FROM F.CONTRAT,W_Cle ELSE ENR_CONTRAT=""
     
		IF ENR_CONTRAT<87>="" THEN
			W_Count=1
		END ELSE
			W_Count=DCOUNT(ENR_CONTRAT<87>,CHAR(253))
			W_Count=W_Count+1
		END

      		ENR_CONTRAT<87,W_Count>=W_Periode
      		ENR_CONTRAT<88,W_Count>=W_Libelle

      		WRITE ENR_CONTRAT ON F.CONTRAT,W_Cle

   	REPEAT

STOP
