
11/01/2007, 10:20
|
| | 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 |