Recibir varios parametros

12/09/2003 - 23:27 por Roy Mejia | Informe spam
Saludos

Es posible recibir mas de un parametro cuando ejecutas
metodos de un control Ejem.

En el valid() de un control cualquiera
ndato=dodefault(15)



En el valid() de la clase de eses control
parameters p_num
select campo1,campo2,campo3
from mytabla
where campo=p_num
Return campo1
Si ejecuto este valid del control me devuelve bien el
valor, pero yo quisiera que devolviera mas de un dato, por
ejem

...
Return campo1,campo2,campo3

Gracias

Preguntas similare

Leer las respuestas

#6 Alex Feldstein [MVP]
17/09/2003 - 01:36 | Informe spam
On Fri, 12 Sep 2003 14:27:40 -0700, "Roy Mejia"
wrote:

Es posible recibir mas de un parametro cuando ejecutas
metodos de un control?



Roy:

Una forma de hacerlo es usar un objeto como parámetro:

loParam = CreateObject("custom") && o cualquier clase liviana
* aqui guardas una referencia completa a form1
* y lo pasas al llamar al segundo form
loParam.AddProperty("MiForm",This)

O en lugar de una referencia completa al form ("This" en un form sería
pesado), puedes crear propiedades de tu objeto parámetro sólo para las
variables de tu interés:

loParam.AddProperty("cCust_ID","1234")
loParam.AddProperty("nNumFactura","A4433")
loParam.AddProperty("lBuenCliente",.T.)

El form u objeto que recibe, puede tambien crearlos en runtime,
fijandose si ya existe una propiedad para guardar esto - usando
PEMStatus(5) - y creandola al vuelo si no existe.

De esta forma te evitas tener que pasar un montón de parámetros al
llamar a otro método o form y de tener que recordar en que posición
está cada uno:

En lugar de:
LPARAMETERS tcCust_ID, tnNumFactura, tlBuenCliente && etc. si tienes
muchos más params se te hace complicado

el que recibe los parámetros los puede acceder por nombre:
LPARAMETERS toParam
Thisform.nNumFactura = toParam.nNumFactura

HTH



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(Address scrambled with ROT-13)
How To make good Newsgroups posts
http://dts-l.org/goodpost.htm
RFC 1855: Netiquette Guidelines
http://www.dtcc.edu/cs/rfc1855.html
How To Ask Questions The Smart Way
http://www.catb.org/~esr/faqs/smart-questions.html
Cómo hacer preguntas de manera inteligente:
http://www.sindominio.net/ayuda/pre...entes.html
Respuesta Responder a este mensaje
#7 Paulino Pérez
25/09/2003 - 14:41 | Informe spam
Tienes razón, Alex. Mucho mejor así.
Un saludo


"Alex Feldstein [MVP]" escribió en el mensaje
news:
On Fri, 12 Sep 2003 14:27:40 -0700, "Roy Mejia"
wrote:

>Es posible recibir mas de un parametro cuando ejecutas
>metodos de un control?

Roy:

Una forma de hacerlo es usar un objeto como parámetro:

loParam = CreateObject("custom") && o cualquier clase liviana
* aqui guardas una referencia completa a form1
* y lo pasas al llamar al segundo form
loParam.AddProperty("MiForm",This)

O en lugar de una referencia completa al form ("This" en un form sería
pesado), puedes crear propiedades de tu objeto parámetro sólo para las
variables de tu interés:

loParam.AddProperty("cCust_ID","1234")
loParam.AddProperty("nNumFactura","A4433")
loParam.AddProperty("lBuenCliente",.T.)

El form u objeto que recibe, puede tambien crearlos en runtime,
fijandose si ya existe una propiedad para guardar esto - usando
PEMStatus(5) - y creandola al vuelo si no existe.

De esta forma te evitas tener que pasar un montón de parámetros al
llamar a otro método o form y de tener que recordar en que posición
está cada uno:

En lugar de:
LPARAMETERS tcCust_ID, tnNumFactura, tlBuenCliente && etc. si tienes
muchos más params se te hace complicado

el que recibe los parámetros los puede acceder por nombre:
LPARAMETERS toParam
Thisform.nNumFactura = toParam.nNumFactura

HTH



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(Address scrambled with ROT-13)
How To make good Newsgroups posts
http://dts-l.org/goodpost.htm
RFC 1855: Netiquette Guidelines
http://www.dtcc.edu/cs/rfc1855.html
How To Ask Questions The Smart Way
http://www.catb.org/~esr/faqs/smart-questions.html
Cómo hacer preguntas de manera inteligente:
http://www.sindominio.net/ayuda/pre...entes.html
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida