Programación General > Power Builder

[Código Fuente] Permitir solo letras y números en un dw

(1/1)

achafio:
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.



--- Código: PowerBuilder ---//Evento editchangedString ls_dataif 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

lengsant2010:
Hola amigo  del  foro  gracias por el  apottecodifique el codigo  y  m funciona  muy  bien

Navegación

[0] Índice de Mensajes