Datawindow

HOLA Tengo el código para no dejar espacios en blanco para los
SingleLineEdit :
if len(trim(sle_codtipo.text))=0 then
messagebox("Aviso","¡Ingrese un usuario!",exclamation!)
sle_codtipo.text=""
sle_codtipo.setfocus()
return
end if
Como hago para no dejar espacios en blanco dentro de un DataWindow
tipo Freeform de las columnas respectivas.
Gracias por la ayuda.
1

1 respuesta

Respuesta
1
Solo debes hacer lo siguiente:
En el evento itemchanged del dw coloca:
if dwo.name = 'codigo' then
ls_dato = GetItemString(row,'codigo')
IF ISNULL(ls_dato) or LEN(TRIM(ls_dato))=0 THEN
Muestras el mensaje de error
SetColumn('codigo')
RETURN 2
END IF
end if

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas