This is a multi-part message in MIME format.
------=_NextPart_000_0027_01C5CAB7.3E7ECB10
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0028_01C5CAB7.3E7ECB10"
------=_NextPart_001_0028_01C5CAB7.3E7ECB10
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Necesito de un "VALID" de un Edit... en este caso un TMaskEdit.
Para ello, entiendo que debo de utilizar el evento OnExit, y cambiar de =
Foco dependiendo del propio evento...
En mi caso, no quiero que salga del Edit si est=E1 "vacio"
Pues...
METHOD MaskEdit1Exit( oSender, oNextCtl ) CLASS TForm1
If Empty( ::oMaskEdit1:cText )
Return 0
EndIf
RETURN Nil
Y me lanza este error...
***************************** Registro de errores =
*****************************
Fecha: 10/06/05
Hora: 20:42:24
Memoria libre: 514676
Area actual: 1
------------------------- Informaci=F3n del compilador =
--------------------------
Versi=F3n Xailer: Xailer 0.99.5 Pre-release 5a
Compilador: xHarbour build 0.99.51 Intl. (SimpLex) PCode Version: =
7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Informaci=F3n detallada del error =
-----------------------
Subsistema: BASE
C=F3digo de error: 1077
Estado: .F.
Descripci=F3n: Argument error
Operaci=F3n: .NOT.
Argumentos: [ 1] =3D Tipo: N Valor: 0
Fichero:=20
C=F3digo error SO: 0
Pila de llamadas:
TMASKEDIT:WMKILLFOCUS (862)
RUNFORM (0)
TAPPLICATION:RUN (189)
MAIN (15)
Adjunto test
Un Saludo,
Xevi.
------=_NextPart_001_0028_01C5CAB7.3E7ECB10
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2180" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>Necesito de un "VALID" de un Edit... en =
este caso=20
un TMaskEdit.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Para ello, entiendo que debo de =
utilizar el evento=20
OnExit, y cambiar de Foco dependiendo del propio evento...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>En mi caso, no quiero que salga del =
Edit si est=E1=20
"vacio"</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Pues...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>METHOD MaskEdit1Exit( =
oSender,=20
oNextCtl ) CLASS TForm1<BR>ÂÂ If Empty( ::oMaskEdit1:cText=20
)<BR>ÂÂÂÂÂ Return 0<BR>ÂÂ =
EndIf<BR>RETURN=20
Nil<BR></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>Â</DIV></FONT>
<DIV><FONT face=3DArial size=3D2>Y me lanza este error...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 =
size=3D2>*****************************=20
Registro de errores *****************************</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000=20
size=3D2> ÂÂÂÂÂÂ ÂÂÂÂ =
Fecha:=20
10/06/05<BR> ÂÂÂÂÂÂ ÂÂÂÂ&=
nbsp;=20
Hora: 20:42:24<BR>ÂÂ Memoria libre: =
514676<BR>ÂÂÂÂ=20
Area actual: 1</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 =
size=3D2>------------------------- Informaci=F3n=20
del compilador --------------------------</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2>Â Versi=F3n =
Xailer: Xailer 0.99.5=20
Pre-release 5a<BR>ÂÂÂÂÂ Compilador: xHarbour =
build=20
0.99.51 Intl. (SimpLex) PCode Version: 7<BR>Compilador C/C++: Borland =
C++=20
5.5.1<BR>ÂÂÂÂÂ Plataforma: Windows XP =
Professional=20
5.01.2600 Service Pack 2</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2>----------------------- =
Informaci=F3n=20
detallada del error -----------------------</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 =
size=3D2>ÂÂÂÂÂ=20
Subsistema: BASE<BR>ÂC=F3digo de error:=20
1077<BR> ÂÂÂÂÂÂ ÂÂÂ Estado:=20
..F.<BR>ÂÂÂÂ Descripci=F3n: Argument=20
error<BR> ÂÂÂÂÂÂ Operaci=F3n:=20
..NOT.<BR>ÂÂÂÂÂ Argumentos:Â [ 1] =3D Tipo: =
N=20
Valor:ÂÂÂÂÂ& ;nbsp;ÂÂÂ=20
0<BR> ÂÂÂÂÂÂ ÂÂ Fichero: =
<BR>ÂC=F3digo=20
error SO: 0</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2>Pila de =
llamadas:<BR>Â=20
TMASKEDIT:WMKILLFOCUS (862)<BR>Â RUNFORM (0)<BR>Â =
TAPPLICATION:RUN=20
(189)<BR>Â MAIN (15)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Adjunto test</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV></BODY></HTML>
------=_NextPart_001_0028_01C5CAB7.3E7ECB10--
------=_NextPart_000_0027_01C5CAB7.3E7ECB10
Content-Type: application/x-zip-compressed;
name="Pruebas.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Pruebas.zip"
UEsDBBQAAgAIADOlRjMWhddTYQEAAD0CAAALAAAAUHJ1ZWJhcy54cGpNUctu gzAQvCPxK6j0bqlt
SFSqEBCgtlLUg4ENcWNsa21Hyd93DUnUk2d2x/uY3Vd1+bFetT9x1F4NMLhA HGVgexTGCa1YhR46
buOo9M54d+fJLFzpyQgJyC7vHDvtMY4KLlShBy+BbTROaWJwpKiXThgJubKO qx4sS9okjr6rgitx
AOsWnvfUMY4qjnwCB2iJlOuCJRtKfhIPE6XJUxzVIIFbYATfvJBDAGEarq7s pdEHF6i51mI8OirS
Ih+g4HgKFUk3gXIB7suqzctdQ+u/eqcn7kRfwHTmmEEvaYzZg7l9Bp0fc3XQ C228MQjWboWCnZ86
wJDD6d+Pu6Q5anS9d06occl8cVSK2BbOIFlK/miEcjY8TFVwsyFbF+2KYloC eXoLBC11PZE+bJDl
Nd2vrPN12KKhI/SQCWQLIk9VL/0wh24wuGcfujsmp7vfEKCHym7y7VwwfVx8 PuTz/6v+AVBLAwQU
AAIACAAzpUYzB2qeK8wAAAAmAQAAEgAAAFNvdXJjZS9QcnVlYmFzLnByZ12O QYvCMBCF74X+h6Fe
2h5sXdBDwIMg3hRxPew1Ox3sQEzKmCD+bv+ASVbYZS/D8M2b917XQllAC0dx D0LvVNwCfetbpjvG
keQXzie55MOWbig8IT+tgv1zCMbBQEDWix40aDBxTIZRJ0l+2QTvRP3YEo5a Qb/qFn330ffLRLuy
KIsZWzQhOlVfmg3JHMcq8VgPaQhCsNds6yYxANhMOcOzswrP7A2BWkP1bltl zXnn5LqoG3Wge/33
Axr1Obp7MvtndQrviBP5ILH+C1BLAwQUAAIACABKpUYzpie2gA4BAABmAgAA EAAAAFNvdXJjZS9G
b3JtMS5wcme1kMFOhDAQhu8kvMNkvbAb3bKb6IHbBkrcRGADmHjFMkgjUFJK wj63LyAtRteDiQed
0/SbzN9/frKxLdjASYozMiW8uRvxuRgMDTmrUc4wFLLdbXv5YnCAA5O8Z/yt 8ww4jErIpQ2R1YUH
7h3ZuWTvureaEtuyrSvesWYsEVZPBW9Qblm90tx/OGQZ5OYLCNMkWno9AgA/ iU5JTOMcRFQMr7Tk
avfTYP+xE9H8PgnAl1go1FrO+pJ/6tCJKwdEhl2J8hpEjJPyVQNrrUPjwDj7 bn0JYqpaY52Qmz8t
rflrk3AZnLnvWAFte3V2wPO+0vJYPq/AEsFcKapRduCaN+3KY2VbKc0f0xhi 3vzPWe9QSwMEFAAC
AAgASqVGMxbaOzMBAQAAFwIAABAAAABTb3VyY2UvRm9ybTEueGZtnY9Ba4Mw FMfvgt/hkZOCB82c
W4UdVpvixlRoUnqWma5hXRyasn78JVnaOSg79BLy/u/xe79XEVY2CygG3iq+ 7IePIITi5ZFSYKZK
fM/3AIAePvmQT6dsnOeUq3l/kN0YAMZxBIl50lv93MQxnKZeGT8qyB8AWShy cb/spY2Z+QShWxAA
qijQVo5A+SC2KIL7CAx3gpTFXnCpNqJTO4NIU/y3U3LxtrN0nGWu5fihu2rz xEpo5s+kYMamasd3
0gmVWKVTpbVq/hVolf3WbTesyeF3OIJMG860Io4nM40kR/Fz95ltEnSe+BXS FakX/4vhK8Rm2QWx
S2tXhK1XtaX53jdQSwECFAAUAAIACAAzpUYzFoXXU2EBAAA9AgAACwAAAAAA AAAAACAAtIEAAAAA
UHJ1ZWJhcy54cGpQSwECFAAUAAIACAAzpUYzB2qeK8wAAAAmAQAAEgAAAAAA AAAAACAAtIGKAQAA
U291cmNlL1BydWViYXMucHJnUEsBAhQAFAACAAgASqVGM6YntoAOAQAAZgIA ABAAAAAAAAAAAAAg
ALSBhgIAAFNvdXJjZS9Gb3JtMS5wcmdQSwECFAAUAAIACABKpUYzFto7MwEB AAAXAgAAEAAAAAAA
AAAAACAAtIHCAwAAU291cmNlL0Zvcm0xLnhmbVBLBQYAAAAABAAEAPUAAADx BAAAAAA=
------=_NextPart_000_0027_01C5CAB7.3E7ECB10--
Attached files Pruebas.zip (1.5 KB)Â
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
TEdit:OnExit
TEdit:OnExit
Xevi,
Necesito de un "VALID" de un Edit... en este caso un TMaskEdit.
Para ello, entiendo que debo de utilizar el evento OnExit, y cambiar de Foco dependiendo del propio evento...
En mi caso, no quiero que salga del Edit si está "vacio"
Simplemente retorna .T. o .F. si quieres que el foco abandone el control o no. Si rertornas .F., el foco permanece en el control, y si retornas ..T. o Nil lo abandona.
--
Un saludo,
José F. Giménez
--
Necesito de un "VALID" de un Edit... en este caso un TMaskEdit.
Para ello, entiendo que debo de utilizar el evento OnExit, y cambiar de Foco dependiendo del propio evento...
En mi caso, no quiero que salga del Edit si está "vacio"
Simplemente retorna .T. o .F. si quieres que el foco abandone el control o no. Si rertornas .F., el foco permanece en el control, y si retornas ..T. o Nil lo abandona.
--
Un saludo,
José F. Giménez
--
TEdit:OnExit
Muchas Gracias !!!
Sabía que algo lo hacía mal... pero no se me ocurrió volvel .T. o ..F.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:4345732a$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
Necesito de un "VALID" de un Edit... en este caso un TMaskEdit.
Para ello, entiendo que debo de utilizar el evento OnExit, y cambiar de Foco dependiendo del propio evento...
En mi caso, no quiero que salga del Edit si está "vacio"
Simplemente retorna .T. o .F. si quieres que el foco abandone el control o no. Si rertornas .F., el foco permanece en el control, y si retornas .T. o Nil lo abandona.
--
Un saludo,
José F. Giménez
--
Sabía que algo lo hacía mal... pero no se me ocurrió volvel .T. o ..F.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:4345732a$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
Necesito de un "VALID" de un Edit... en este caso un TMaskEdit.
Para ello, entiendo que debo de utilizar el evento OnExit, y cambiar de Foco dependiendo del propio evento...
En mi caso, no quiero que salga del Edit si está "vacio"
Simplemente retorna .T. o .F. si quieres que el foco abandone el control o no. Si rertornas .F., el foco permanece en el control, y si retornas .T. o Nil lo abandona.
--
Un saludo,
José F. Giménez
--