* VIDAGE DU SUIVI DE CONTRAT (Passage aux 35 hres)
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP

PRINT "Convention collective ?"
INPUT W_ConvCol

PRINT "Date de passage aux 35 hres ? (JJ/MM/AAAA)"
INPUT W_Date


PRINT "Etes vous sur de vouloir effacer l'historique du suivi de contrat de l'anne en cours pour TOUS les contrats en production, de type horaires,  la convention ":W_ConvCol:", actifs aprs le ":W_Date:" ?"
INPUT W_Sur

* Suppression caracteres non alpha
W_Sur = ICONV(W_Sur,"MCA")

* Mise en majuscule
W_Sur = ICONV(W_Sur,"MCU")

IF W_Sur # "O" AND W_Sur # "OUI" THEN
	STOP
END

W_Date = ICONV(W_Date,"D4/")
EXECUTE 'SELECT CONTRAT AVEC 65 # "O" AND AVEC 1 = "':W_ConvCol:'" AND AVEC 5 = "H" AND AVEC 6 = "P" AND AVEC 8 >= "':W_Date:'" OR = ""'

10 READNEXT CLE ELSE STOP

READ ENRCONTRAT FROM F.CONTRAT,CLE ELSE GOTO 10

ENRCONTRAT<76>=""
ENRCONTRAT<77>=""
ENRCONTRAT<78>=""
ENRCONTRAT<79>=""
ENRCONTRAT<80>=""
WRITE ENRCONTRAT ON F.CONTRAT,CLE

GOTO 10
