Fecha actual Jue Mar 28, 2024 1:49 pm

Todos los horarios son UTC + 1 hora [ DST ]




Nuevo tema Responder al tema  [ 9 mensajes ] 
Autor Mensaje
NotaPublicado: Vie Nov 21, 2014 2:24 pm 

Registrado: Jue Nov 03, 2005 7:20 pm
Mensajes: 132
Ubicación: Teruel(España)
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
-
-


Adjuntos:
Setfocus.jpg [37.17 KiB]
248 veces
Arriba
 Perfil  
Responder citando  
NotaPublicado: Vie Nov 21, 2014 2:36 pm 
Avatar de Usuario

Registrado: Mar Dic 27, 2005 2:58 pm
Mensajes: 75
Amable, mira esto:

amable escribió:
::LabeledEdit6:ReadOnly := .T.
...
::LabeledEdit7:ReadOnly := .T.
Creo que así estás desactivando el foco.


Arriba
 Perfil  
Responder citando  
NotaPublicado: Vie Nov 21, 2014 4:29 pm 

Registrado: Jue Nov 03, 2005 7:20 pm
Mensajes: 132
Ubicación: Teruel(España)
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


Arriba
 Perfil  
Responder citando  
NotaPublicado: Lun Ene 19, 2015 7:39 pm 

Registrado: Jue Nov 03, 2005 7:20 pm
Mensajes: 132
Ubicación: Teruel(España)
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


Arriba
 Perfil  
Responder citando  
NotaPublicado: Vie Ene 23, 2015 1:29 pm 
Avatar de Usuario

Registrado: Dom Oct 09, 2005 11:26 am
Mensajes: 362
Ubicación: Salamanca - España
amable escribió:
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


Arriba
 Perfil  
Responder citando  
NotaPublicado: Vie Ene 23, 2015 1:43 pm 

Registrado: Mar Oct 18, 2005 2:43 pm
Mensajes: 33
Yo también tengo ese problema con el edit al validar con onExit, no devuelve el foco .


Arriba
 Perfil  
Responder citando  
NotaPublicado: Vie Ene 23, 2015 7:34 pm 
Avatar de Usuario

Registrado: Dom Oct 09, 2005 11:26 am
Mensajes: 362
Ubicación: Salamanca - España
Podeis hacer un ejemplo en el ide y lo probamos...???

_________________
Un saludo.
Jesús P. Melgar Velasco


Arriba
 Perfil  
Responder citando  
NotaPublicado: Lun Ene 26, 2015 12:09 am 

Registrado: Jue Nov 03, 2005 7:20 pm
Mensajes: 132
Ubicación: Teruel(España)
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


Adjuntos:
Norma19.zip [61.42 KiB]
220 veces
Arriba
 Perfil  
Responder citando  
NotaPublicado: Mar Mar 24, 2015 8:04 pm 

Registrado: Jue Nov 03, 2005 7:20 pm
Mensajes: 132
Ubicación: Teruel(España)
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


Adjuntos:
PRUEBA.zip [15.25 KiB]
215 veces
Arriba
 Perfil  
Responder citando  
Mostrar mensajes previos:  Ordenar por  
Nuevo tema Responder al tema  [ 9 mensajes ] 

Todos los horarios son UTC + 1 hora [ DST ]


No puede abrir nuevos temas en este Foro
No puede responder a temas en este Foro
No puede editar sus mensajes en este Foro
No puede borrar sus mensajes en este Foro
No puede enviar adjuntos en este Foro

Buscar:
Saltar a:  
cron