SoloCodigo

Que tal...

Encontre este codigo por ahi en la red.. si necesitas el pbl enviame tu email y te envio para que lo pruebes....

mi emial es jarvizu@mail.telcel.com

Qu estes bien..

*********************************

string  ls
int li , li_cur
boolean lb_paso_numer,lb_paso_letra
//INICIALIZO LAS VARIABLES
lb_paso_numer =  false
lb_paso_letra =  false
//ACEPTO EL BUFFER
this.accepttext( )
// PREGUNTO SI ES CAMPO
if dwo.name='appaterno' or dwo.name='apmaterno' or dwo.name='nombre'  then
  // SI NO SE APRETO BACKSPACE    
  if    not KeyDown(KeyBack!) then
   for li = 1  to len(data)
         /* aqui se ve si son letras mayusculas                 o    espacion               o  si son letras minusculas   */
      if (mid(data, li, 1) >= 'A' and mid(data, li, 1) <= 'Z' ) or  mid(data, li, 1) = ' ' or (mid(data, li, 1) >= 'a' and mid(data, li, 1)<= 'z' )  then
          ls += mid(data, li, 1)
          if not lb_paso_numer then
            // SE COMPARA LA DATA ANTIGUA CON LA NUEVA
            if mid(is_anterior,li,1) = mid(data,li ,1) and not lb_paso_letra then
              li_cur = LEN(DATA) + 1   
            elseif not lb_paso_letra then
              li_cur  = li +1
              lb_paso_letra =  true         
            end if
          end if
      elseif mid(data, li, 1) >= '0' and mid(data, li, 1) <= '9' then
       lb_paso_numer =  true
       li_cur = li            
      end if
      settext(ls)
   next
   //SE ASIGNA LA NUEVA DATA A UNA VARIABLE DE INSTANCIA  PARA COMPARAR DATA
   is_anterior = ls
   selecttext(li_cur,0)
  end if
end if  
*******************************
DECALARAR EN Instance Varibles
STRING is_anterior