Hola, otra vez

Tengo unas validaciones usando el metodo Onexit, si pasa la validación lo envio al siguiente campo y sino con setfocus lo devuelvo al mismo. Sin embargo desaparece el cursor, marca un campo cuando realmente está en el campo con el dato erróneo. En la versión V2 lo hacia bien, adjunto imagen como queda la pantalla después de dar error la validación (en este caso es el nif)

Los campos son estos:
::LabeledEdit6 := TLabeledEdit():Create( ::TabSheet4 )
::LabeledEdit6:Picture := "!9999999!"
::LabeledEdit6:SetBounds( 56, 24, 81, 21 )
::LabeledEdit6:TabOrder := 1
::LabeledEdit6:ReadOnly := .T.
::LabeledEdit6:EditLabel:Caption := "Nif/Cif"
::LabeledEdit6:LabelPosition := lpLeft
::LabeledEdit6:OnExit := { | oSender | ::LabeledEdit6OnExit( oSender ) }

::LabeledEdit7 := TLabeledEdit():Create( ::TabSheet4 )
::LabeledEdit7:Picture := "999"
::LabeledEdit7:SetBounds( 176, 24, 33, 21 )
::LabeledEdit7:TabOrder := 2
::LabeledEdit7:ReadOnly := .T.
::LabeledEdit7:EditLabel:Caption := "Sufijo"
::LabeledEdit7:LabelPosition := lpLeft
::LabeledEdit7:OnExit := { | oSender | ::LabeledEdit7OnExit( oSender ) }

/*
* Evento OnExit valida el DNI Emisor
*/
METHOD LabeledEdit6OnExit( oSender ) CLASS TFichero

If !MODNI(::LabeledEdit6:caption) //comprueba que el NIF/CIF sea correcto
oSender:setfocus()
Else
::LabeledEdit7:setfocus() //fuerzo a que rellenen el sufijo
endif

return

/*
* Evento OnExit valida el SUFIJO Emisor
*/
METHOD LabeledEdit7OnExit( oSender ) CLASS TFichero

If !LLENAZERO(::LabeledEdit7:caption,3) //compruebo que rellenen el campo 000, 001, ...
oSender:setfocus()
return
endif
IF ::cEstado ="NUEVOE" //Esta dando de alta
-
-

Amable, mira esto:

Creo que así estás desactivando el foco.

Hola Alberto
El código lo tengo hecho a partir del ejemplo TDDBF.PRG, que visualiza la ficha y al pulsar modificar hace esto:

::LabeledEdit1:ReadOnly := .F. // PREBASE->DNI
::LabeledEdit2:ReadOnly := .F. // PREBASE->SUFIJO

como muestro en la imagen en la versión 2 el comportamiento es el deseado, no asi en la versión 3, realmente deja escribir pero no apunta bien al campo.

Gracias

Hola a todos

Bruno, esto para mi es importante, se puede solucionar ó tengo que replantearme la validación de los campos?

He probado a trabajar sin bloqueo previos de los campos y el comportamiento es el mismo, al marcar setfocus aparentemente está en ese campo pero lo que se escribe se visualiza en otro.

Uso el objeto Labeledit (por la funcionalidad de la etiqueta asociada) no he probado con el Edit pelado

Nadie tiene el mismo problema, como solucion podría ser validar en con los eventos de Alta, Guardar ó Modificar en la base de datos.

Se agradecen sugerencias.

Saludos

Yo también creo que tu problema está relacionado con el ReadOnly.

Yo tengo varias aplicaciones pasadas a la versión 3 y no tengo ningún problema de este tipo.

_________________
Un saludo.
Jesús P. Melgar Velasco

Yo también tengo ese problema con el edit al validar con onExit, no devuelve el foco .

Podeis hacer un ejemplo en el ide y lo probamos...???

_________________
Un saludo.
Jesús P. Melgar Velasco

Hola

El programa que lleva la version 2 de C3 está en http://www04.cajarural.com/teruel/csb3win.exe, hace falta para probar la version compilada con la version 3.
Adjunto fuentes

El mayor problema esta en la edicion que realiza el modulo Titular.prg

Saludos

Hola de nuevo

Perdonar pero el ejemplo anterior no lo entendía ni yo.
Adjunto otro con todo lo necesario, creo que el problema está en que la versión 3 es mucho más estricta.
En preferencias he dejado Nivel de aviso a 1, con 2 da errores de declaración de variables y marcado el check Variables automáticas

En este ejemplo, todos los campos están ReadOnly a falso y el resultado es el mismo, al no pasar la validacion el foco no vuelve al campo, en este caso, IBAN

A ver si alguno me podeis aportar ideas sobre donde puede estar el problema

Saludos