Validar control ComboBox Numerico

112 views
Skip to first unread message

integral

unread,
May 12, 2026, 3:31:01 PM (3 days ago) May 12
to Comunidad de Visual Foxpro en Español
Que tal amigos del Foro:

Muy Buenas Tardes

Estoy tratando de validar el ingreso en un control ComboBox  de tipo numerico que almacena las tasas de interes,pero no lo he logrado hasta el momento y se pasa al siguiente campo.
Adjunto una imagen de lo mencionado y la forma como se carga el control ComboBox desde el SQL Server 2022

Agradezco sus comentarios y sugerencias...

INTERES.jpg

CODIGO_UTIL.jpeg

Atte.,

Integral


RS “Ricardo”

unread,
May 12, 2026, 11:31:06 PM (3 days ago) May 12
to Comunidad de Visual Foxpro en Español
¿En el  Valid podrias poner algo como
if m.interes = 0
   messagebox("Debe seleccionar una tasa de interes",0)
  return 0 &&si quieres que permanezca ahi
endif

RS “Ricardo”

unread,
May 12, 2026, 11:34:00 PM (3 days ago) May 12
to Comunidad de Visual Foxpro en Español
O añgo como lo siguiente (obtenido de copilot)
* Supongamos que en el Init del ComboBox lo llenas así:
SELECT id, nombre FROM clientes INTO CURSOR curClientes
THIS.RowSourceType = 2   && Cursor
THIS.RowSource = "curClientes.nombre"

* Ahora, para validar la selección:
PROCEDURE cmdAceptar.Click
    LOCAL lnSel, lcValor

    lnSel = THISFORM.cboClientes.ListIndex
    IF lnSel = 0
        MESSAGEBOX("Debe seleccionar un cliente.", 48, "Validación")
        RETURN .F.
    ENDIF

    * Obtener el valor seleccionado
    lcValor = THISFORM.cboClientes.Value
    MESSAGEBOX("Seleccionó: " + lcValor, 64, "OK")
ENDPROC

integral

unread,
May 14, 2026, 10:34:49 AM (yesterday) May 14
to Comunidad de Visual Foxpro en Español
Que tal Colega Ricardo

Muy Buenos Días

Gracias por tus comentarios y sugerencias.

Ayer hice la prueba...

 El 1er ejemplo: me marca un error de tipo de datos...

 El 2do. ejemplo simplemente no hace ninguna validación y luego de darle ENTER se pasa al siguiente control.
 Pero si antes en el control ComboBox expando el control en el evento Gotfocus ahí si aparece el...

 segundo mensaje :  MESSAGEBOX("Seleccionó: " + lcValor, 64, "OK") 

Y el mensaje  MESSAGEBOX("Debe seleccionar un cliente.", 48, "Validación")
nunca aparece como mensaje en la validación

Que estoy haciendo mal...

Agradezco sus comentarios y sugerencias.

Atte,

Integral

Zarlu

unread,
May 14, 2026, 1:00:22 PM (yesterday) May 14
to Comunidad de Visual Foxpro en Español
Buenos días Integral!

Quizá debes cerciorarte que tipo de dato arroja el combobox para entonces poder validar correctamente

La validación puedes hacerla con valid, interactivechange, gotfocus o antes de mandar al siguiente proceso.
Son diferentes usos y resultados, entonces dependerá de tu escenario.

Suerte
zarlu
Chetumal, Quintana Roo, México

Suerte
zarlu
Chetumal, Quintana Roo, México
Reply all
Reply to author
Forward
0 new messages