Ver Mensaje Individual
  #4 (permalink)  
Antiguo 11/01/2007, 10:20
NEST
 
Fecha de Ingreso: octubre-2006
Mensajes: 86
Antigüedad: 18 años, 4 meses
Puntos: 1
Re: Saber el tipo de campo en Fox 9

Muchas gracias aplique la funcion TRANSFORM a las variables y me funciono por si a alguien le interesa aqui dejo el codigo:

SELECT curCoRders
GO TOP
SELECT curCoRders1
GO TOP

ndif = 0
nigual = 0

DO WHILE !EOF()

ndcampo=0

FOR i=1 TO 37 STEP 1
ndcampo=ndcampo+1
vNombre1="curCoRders.Campo"+ALLTRIM(STR(ndcampo))
vNombre2="curCoRders1.Campo"+ALLTRIM(STR(ndcampo))


valor1 = TRANSFORM(&vNombre1)
valor2 = TRANSFORM(&vNombre2)

IF NVL(valor1 , "") != NVL(valor2 , "")
ndif = ndif + 1
WAIT WINDOW "Se modifico de: " + ALLTRIM(valor1) + " a: " + ALLTRIM(valor2) NOWAIT
THISFORM.LISt1.AddItem("Se modifico de: " + ALLTRIM(valor1) + " a: " + ALLTRIM(valor2) + " Pedido No. " + ALLTRIM(curCoRders.id_pedido))
ELSE
nigual = nigual + 1
WAIT WINDOW "Son iguales: " + ALLTRIM(valor1) + " y " + ALLTRIM(valor2) NOWAIT
ENDIF
ENDFOR

SELECT curCoRders
SKIP
SELECT curCoRders1
SKIP
ENDDO