//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