ola amigos...
tem como colocar no picture do get para digitar somente letras minusculas?
atenciosament
Robson
Moderador: Moderadores
LOCAL GetList := {}
cls
cEmail=SPAC(40)
@ 10,10 SAY "Endereco de E-mail:" GET cEmail VALID { |oGet| L_OWER(oGet,cEmail) }
READ
RETU
FUNC L_OWER(oGet,v_email)
oGet:buffer := LOWER(v_email)
oGet:assign()
retu .T.
IF AT("@M",oGet:picture)>0
cKey := LOWER( cKey )
ENDIF
cEmail=SPAC(40)
cNome=SPAC(40)
@ 10,10 SAY "Endereco de E-mail:" GET cEmail PICT "@M"
@ 12,10 SAY "Nome:" GET cNome PICT "@!"
READ
Toledo escreveu:Neste GetSys foi incluído na linha 291 o seguinte código:IF AT("@M",oGet:picture)>0
cKey := LOWER( cKey )
ENDIF
Então, quando você colocar na PICTURE a expressão "@M", o GET só vai aceitar letras minúsculas...
IF AT("@U",oGet:picture)>0
cKey := UPPER( cKey )
ENDIF
Augusto escreveu:Diogenes.... Acho q vc não leu o tópico todo... se leu... não entendeu...
Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante