Compañeros del foro, nuevamente solicitando su ayuda.
Tengo un combobox en el que tengo una lista de modelos para elegir, el ultimo elemento del array tiene el valor "AGREGAR", obviamente para dar de alta un nuevo modelo, el combobox tiene la clausula "ON CHANGE" que al elegir esta opción muestra una pequeña ventana pidiendo el nuevo modelo, hasta aqui todo perfecto, el problema es que cuando el usuario ha agregado un nuevo modelo necesito que el ultimo elemento del array cambie al valor que el usuario escribio y se actualize en el dialogo que lo llamó, cosa que no hace, es decir que una vez que el usuario escribe un nuevo modelo y da click para aceptar sigo viendo la lista original de elementos en el combobox.
Espero haberme explicado correctamente y tambien espero contar con su ayuda.
Muchas gracias.
Tengo un combobox en el que tengo una lista de modelos para elegir, el ultimo elemento del array tiene el valor "AGREGAR", obviamente para dar de alta un nuevo modelo, el combobox tiene la clausula "ON CHANGE" que al elegir esta opción muestra una pequeña ventana pidiendo el nuevo modelo, hasta aqui todo perfecto, el problema es que cuando el usuario ha agregado un nuevo modelo necesito que el ultimo elemento del array cambie al valor que el usuario escribio y se actualize en el dialogo que lo llamó, cosa que no hace, es decir que una vez que el usuario escribe un nuevo modelo y da click para aceptar sigo viendo la lista original de elementos en el combobox.
Espero haberme explicado correctamente y tambien espero contar con su ayuda.
Muchas gracias.
use &dbtmp1
tregse=reccount()
regm1=tregse+1
declare aModel[regm1]
for urm=1 to tregse
goto urm
aModel[urm] := model
skip
next
aModel[regm1] := "AGREGAR"........
define dialog oDialna resource "DLGNUACT" of oVentprinc
redefine combobox oCbox1na var cModel items aModel ID 4 of oDialna style CBS_DROPDOWN on change vernm() update
activate dialog odialna.......
function vernm
local oDialnmm, oBtn1nm
if cModel="AGREGAR"
DEFINE dialog oDialnm from 5,5 to 10,50 TITLE "Adición de modelo" of odialna
@.4,2 Say"Indica el modelo a agregar"
@.5,13 get oGet1nm var cModel of oDialnm picture "!!!!!!!!!!"
@1.2,10 button oBtn1inm prompt"&Aceptar" of oDialnm action (odialnm:end()) size 50,12
ACTIVATE dialog oDialnm center
aModel[regm1] := cModel
oCbox1na:update()
oDialna:update()
endif
return(cModel)