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

EXECUTE 'SSELECT CONTRAT AVEC 65 <> "O"'

W_FIN=0
LOOP
	READNEXT CLE ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	READ ENR_CONTRAT FROM F.CONTRAT,CLE THEN
		I=1
		LOOP
			UNTIL ENR_CONTRAT<14,I>="" DO
			IF TRIM(ENR_CONTRAT<22,I>)=" " OR ENR_CONTRAT<22,I>="" THEN ENR_CONTRAT<22,I>=0
			ENR_CONTRAT<22,I>=ENR_CONTRAT<22,I>*1000
			I=I+1
		REPEAT

		WRITE ENR_CONTRAT ON F.CONTRAT,CLE
	END

REPEAT

STOP
