Este código permitirá validar el ingreso de letras o de números en un determinado campo.
Para ello deberá poner el siguiente script en el evento editchanged del datawindow.
//Evento editchanged
String ls_data
if dwo.name = 'nombre' then //Solo letras
if Match(data, "[^A-ZÑa-zñ]+$") then
ls_data = mid(data,len(data),1)
if isnumber(ls_data) then
SetItem(row,"nombre",left(data,len(data) - 1))
SelectText(1, Len(data))
end if
return 1
end if
end if
if dwo.name = 'telefono' then //Solo numeros
if Match(data, "[^0-9]+$") then
SetItem(row,"telefono",left(data,len(data) - 1))
SelectText(1, Len(data))
return 1
end if
end if
Adjunto codigo fuente está en Power Builder 8.0
Autor: achafio
Mostrar Mensajes
