FoxPro/Visual FoxPro - Dividir campos de una tabla entre mil

LOCAL lcLista,i,j,lnFields,lcField,lcTabla

lcLista = "Tabla1,Tabla3,tabla15"

FOR i = 1 TO GETWORDCOUNT(m.lcLista,CHR(44))

	lcTabla = GETWORDNUM(m.lclista,i,CHR(44))

	IF USED(m.lcTabla)

		lnFields = AFIELDS(lafields,m.lcTabla)

		FOR j = 1 TO m.lnFields

			IF lafields[j,2] = "N" ;

				AND laFields[j,3] > 10 ;

				AND laFields[j,4] = 2

				lcField = laFields[j,1]

				SELECT (m.lcTabla)

				SCAN

					replace (lcField) WITH ROUND(EVALUATE(m.lcTabla+"."+m.lcfield)/1000 , 2)

				ENDSCAN

			ENDIF

		NEXT

	ENDIF

NEXT