Enviar una variable desde un formulario a un prg

Hola

Quiero enviar desde un formulario una variable como esta a una función
o rutina ?

explico cada ves que quiero usar la función tengo que entrar al prg y cambiar los números a mano "4 5 6 7 8 9 10 11 12 44" por los nuevos números "8 9 10 11 12 44"

ALINES( laNumeros, "4 5 6 7 8 9 10 11 12 44", " " )

saludos

pepemil

1 respuesta

Respuesta
1

¿Pero haber no entiendo algo esos números que quieres enviar como los ingresas en tu form? ¿En un textbox o como? Osea me refiero a que si en un text ingresas toda la serie de números 4 5 6 7 8 9 10 11 12 44 o los vas ingresando numero a numero y los guardas en algún lado y después los quieres pasar a tu función o prg, eso es lo que no me queda claro, explicame mejor para darte alguna solución.

Hola

son números de dos dígitos y varían según lo desee, ejemplo puedo meter hasta 40 números en tex de dos espacios cada uno.

10 20 25 30 32 36.,,,,,,hasta 40 veces y necesito que con cualquier cantidad introducida aunque falten texbox por llenar me ejecute la función.

gracias por tu atención

pepemil

¿En tu función no usas parámetros? Al inicio tu puedes poner

Parameters cNumeros

Y desde el form puedes llamar a tu función con

Nombrefuncion(thisform.txtnumeros.value)

Con eso el valor de txtnumeros pasara al parámetro cnumeros de tu función y con eso puedes trabajar, espero te sea de ayuda y si no es lo que necesitas me comentas, suerte

Hola

lo acabo de probar y me dice que txtnumeros es un miembro desconocido

mi función es esta te la envío completa

create cursor Destino ( n1 c(2), n2 c(2), n3 c(2), n4 c(2), n5 c(2), n6 c(2))
SELECT destino
USE filtrados IN 0
SELECT destino
LOCAL ARRAY laNumeros[35], laDestino[6]
= ALINES( laNumeros, 4 5 6 7 8 9 10 11 12 44 , )
lnQ = ALEN( laNumeros )
FOR I = 1 TO lnQ
FOR J = I+1 TO lnQ
FOR QUE = J+1 TO lnQ
FOR L= QUE+1 TO lnQ
FOR M = L+1 TO lnQ
FOR N = M+1 TO lnQ
laDestino[1] = laNumeros
laDestino[2] = laNumeros[J]
laDestino[3] = laNumeros[QUE]
laDestino[4] = laNumeros[L]
laDestino[5] = laNumeros[M]
laDestino[6] = laNumeros[N]
APPEND BLANK
GATHER FROM laDestino
ENDFOR
ENDFOR
ENDFOR
ENDFOR
ENDFOR
ENDFOR
SELECT * FROM destino INTO TABLE filtrados2

gracias

pepemil

Txtnumeros es un nombre ficticio que yo te puse, tu debes poner el nombre del text que usas en tu form para digitar los números

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas