Versions des environnements
Jose Luis:
Quizás este código en el evento VALID del cuadro de texto se sirva
IF ALLTRIM(THIS.Value) = 'S/N'
RETURN .T.
ENDIF
FOR Y = 1 TO 5
IF AT(SUBSTR(THIS.Value,Y,1),'0123456789') = 0
RETURN .F.
ENDIF
NEXT
RETURN .T.
Saludos cordiales
Manuel Tovar
Barranquilla - COLOMBIA
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement