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

Pos: 55

Val: 19

Dividir campos de una tabla entre mil

Publicado por Rogelio (12 intervenciones) el 03/05/2018 19:04:56

Buenas... Necesito dividir ciertos campos de varias tablas entre 1000. Lo hago de ésta manera:

PUBLIC VDIVISOR
VDIVISOR=1000

SET EXCLUSIVE ON
USE C:\SBTK\SBT32\ICDATA\ICDIST02.DBF
REPLACE ALL AMOUNT WITH ROUND(AMOUNT/VDIVISOR,2)
REPLACE ALL FAMOUNT WITH ROUND(FAMOUNT/VDIVISOR,2)
CLOSE DATABASE
SET EXCLUSIVE OFF

Y así sucesivamente.

Conocen una manera en que pueda abrir varias tablas a la vez y reemplazar solo los campos que sean numéricos por su valor entre 1.000.

Gracias.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 1.011

Dividir campos de una tabla entre mil

Publicado por Fidel José (657 intervenciones) el 04/05/2018 01:53:10

HUmm. Resulta un tanto peligroso.
Podés hacer una lista de tablas (o un array) y basarte en Afields() para saber qué hay que reemplazar.
El tema es que tenés que asegurarte de no repetir el proceso.
Básicamente sería algo así:
* En este caso se modificarán los campos numéricos que tengan más de 10 dígitos y dos decimales *

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

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 1

Val: 1.115

Dividir campos de una tabla entre mil

Publicado por Leonardo Daniel A. (504 intervenciones) el 04/05/2018 20:10:25

Busca en la ayuda de Visual Foxpro la funcion ADIR.... ahi esta tu solucion.... el ejemplo es muy practico y claro

Valora esta respuesta

Comentar

ENTORNO DE DATOS Vs APERTURA MANUAL DE TABLAS

Dividir campos de una tabla entre mil