Validar control ComboBox Numerico

194 views
Skip to first unread message

integral

unread,
May 12, 2026, 3:31:01 PMMay 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 PMMay 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 PMMay 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 AMMay 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 PMMay 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

integral

unread,
May 16, 2026, 12:09:33 PMMay 16
to Comunidad de Visual Foxpro en Español
Que tal amigos del Foro:

Muy Buenos Días

Colega Zarlu me diste la pista para obtener la solución. 

Hice la validación como si tratase de una cadena en el evento Valid.

VALIDA_INTERES.jpg

También quiero agradecer al colega Ricardo por los ejemplos mostrados.

Hasta la próxima.

Atte.,

Integral
Reply all
Reply to author
Forward
0 new messages