• Jueves 22 de Octubre de 2020, 14:53

Autor Tema: [Código Fuente] Permitir solo letras y números en un dw  (Leído 7191 veces)

achafio

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
    • http://www.achafio.midire.com
[Código Fuente] Permitir solo letras y números en un dw
« en: Martes 19 de Junio de 2007, 21:47 »
0
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
  1. //Evento editchanged
  2. String ls_data
  3. if dwo.name = 'nombre' then  //Solo letras
  4.     if Match(data, "[^A-ZÑa-zñ]+$") then
  5.         ls_data = mid(data,len(data),1)
  6.         if isnumber(ls_data) then
  7.            SetItem(row,"nombre",left(data,len(data) - 1))
  8.            SelectText(1, Len(data))
  9.         end if
  10.         return 1
  11.      end if
  12. end if
  13. if dwo.name = 'telefono' then   //Solo numeros
  14.    if Match(data, "[^0-9]+$") then
  15.        SetItem(row,"telefono",left(data,len(data) - 1))
  16.        SelectText(1, Len(data))
  17.        return 1
  18.    end if
  19. end if

Adjunto codigo fuente está en Power Builder 8.0

Autor: achafio
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.
Alberto Chafio Herrera
Bach. en Ingenieria de Sistemas e Informatica
(01) 95366038
Lima - Peru
<a href=\'mailto]achafio@gmail.com[/color]</a>

lengsant2010

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Gracias por el Aporte
« Respuesta #1 en: Domingo 31 de Octubre de 2010, 15:29 »
0
Hola amigo  del  foro  gracias por el  apottecodifique el codigo  y  m funciona  muy  bien