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

W_Str=""
ENR_VIDE=""

W_Str = 'SELECT CONTRAT AVEC 65 # "O"'

W_Str=W_Str:' AND AVEC 7 < "12479" AND AVEC 8 >= "12750" OR = ""'


EXECUTE W_Str

W_Fin = "F"

LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE  W_Fin # "V"
	READ ENR_CONTRAT FROM F.CONTRAT,W_Cle THEN


		OPEN "", "CONTRAT":ENR_CONTRAT<2>:ENR_CONTRAT<1> TO F.CONTRATENTCONV THEN
			WRITE ENR_VIDE ON F.CONTRATENTCONV,W_Cle
  		END


	END
REPEAT

STOP
