Devolver un código de un list
Hola Alonso:
Tengo un form que busca por descripción en una base de datos. base datos=inp
datos=ci,nom donde ci es el codigo producto y el nom la descripcion.
Cuando busco la descripción me aparecen todos los datos de esa descripción, y cuando selecciono un item de esa descripción ya sea con el cursor o el mouse quiero que me devuelva el código del producto de esa descripción, que lo estoy llamado desde un get
ejemplo:
Use inp
@00,00 get civ
loca for civ=ci, (presione techa f7 p/buscar por descripcion)
Selecciono la tecla f7 y me voy al formulario
cuando selecciono el item de esa descripción que me devuelva el código del item al get
si me puedes ayudar te lo agradezco grandemente.
nicolas madrigal sandi de costa rica
[email protected]
Saludos.
Tengo un form que busca por descripción en una base de datos. base datos=inp
datos=ci,nom donde ci es el codigo producto y el nom la descripcion.
Cuando busco la descripción me aparecen todos los datos de esa descripción, y cuando selecciono un item de esa descripción ya sea con el cursor o el mouse quiero que me devuelva el código del producto de esa descripción, que lo estoy llamado desde un get
ejemplo:
Use inp
@00,00 get civ
loca for civ=ci, (presione techa f7 p/buscar por descripcion)
Selecciono la tecla f7 y me voy al formulario
cuando selecciono el item de esa descripción que me devuelva el código del item al get
si me puedes ayudar te lo agradezco grandemente.
nicolas madrigal sandi de costa rica
[email protected]
Saludos.
1 respuesta
Respuesta de Alonso Jarrín Solís
1
Pues supongo que cuando aparece el formulario y seleccionas el artículo y el formulario lo cierras, imagino que esto debe ser así, entonces en el evento Unload del formulario escribes lo siguiente:
Local lcCodigo
LcCodigo ControlFormulario. Value (todo depende de cómo tienes configurado el control)
O bien
lcCodigo = NombreTabla.Codigo (si la tabla está en el entorno de datos del formulario)
Return lcCodigo
Local lcCodigo
LcCodigo ControlFormulario. Value (todo depende de cómo tienes configurado el control)
O bien
lcCodigo = NombreTabla.Codigo (si la tabla está en el entorno de datos del formulario)
Return lcCodigo
Hola Alonso:
Disculpa, mi formulario esta descrito de la siguiente manera:
DESCRIPCION A BUSCAR: text1 evento (InteracticeChange)=
bnom=(alltrim(this.value)+"*"
thisform.list1.columnCount=2
thisform.list1.columnWidths="120,600"
thisform.list1.rowsource=3
thisform.list1.rowsource="Select ci,nom from inp order by nom where like(bnom,nom);
into cursor temporal"
thisform.list1.rowsource=3
thisform.list1.refresh
if thisform.list1.listcount=0
messagebox(" ")
endif
----------------------------------------------------------------------------------
list1 (evento init)
bnom="*"
this.columnCont=2
this.columnWidths="120,600"
this.rowsourcetype=3
this.rowsourcw="Select ci,nom from inp order by nom where like(bnom,nom);
into cursor temporal"
this.rowsourcetype=3
this.refresh
return
------------------------------------------------------------------------------------------
Evento dblclick
Thisform.release
return
Nota:
La base de datos mía se llama inp
ci es el código y nom es la descripción
Lo que necesito es que al seleccionar en el item me devuelva el código ci donde lo estoy llamando
Gracias de nuevo
[email protected]
Disculpa, mi formulario esta descrito de la siguiente manera:
DESCRIPCION A BUSCAR: text1 evento (InteracticeChange)=
bnom=(alltrim(this.value)+"*"
thisform.list1.columnCount=2
thisform.list1.columnWidths="120,600"
thisform.list1.rowsource=3
thisform.list1.rowsource="Select ci,nom from inp order by nom where like(bnom,nom);
into cursor temporal"
thisform.list1.rowsource=3
thisform.list1.refresh
if thisform.list1.listcount=0
messagebox(" ")
endif
----------------------------------------------------------------------------------
list1 (evento init)
bnom="*"
this.columnCont=2
this.columnWidths="120,600"
this.rowsourcetype=3
this.rowsourcw="Select ci,nom from inp order by nom where like(bnom,nom);
into cursor temporal"
this.rowsourcetype=3
this.refresh
return
------------------------------------------------------------------------------------------
Evento dblclick
Thisform.release
return
Nota:
La base de datos mía se llama inp
ci es el código y nom es la descripción
Lo que necesito es que al seleccionar en el item me devuelva el código ci donde lo estoy llamando
Gracias de nuevo
[email protected]
En los eventos init y dblClick del control List no debes incluí la cláusula return y podrías hacer lo siguiente:
Agrega una propiedad al formulario que se llame por así decirlo código y en el evento dblclick del control Listbox puedes escribir lo siguiente:
Thisform.codigo = temporal.ci
Thisform. Release()
Y en el evento unload del formulario puedes escribir lo siguiente:
Return Thisform.Codigo
Agrega una propiedad al formulario que se llame por así decirlo código y en el evento dblclick del control Listbox puedes escribir lo siguiente:
Thisform.codigo = temporal.ci
Thisform. Release()
Y en el evento unload del formulario puedes escribir lo siguiente:
Return Thisform.Codigo
