FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Problemas con Valid, MsgRun y button
fgondi
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Problemas con Valid, MsgRun y button
Posted: Thu Nov 29, 2007 08:58 PM

Hola gente,

En mi sistema tengo definido un valid de un get en el que algunas de las tareas que realiza las hace mostrando un msgrun en pantalla.

El problema viene cuando estando en ese get se intenta pulsar en alguno de los button que tengo definidos en el resto de la ventana.
Como al pulsar en el button el get pierde el foco ejecuta el valid y tras terminar y debido a que muestra varios msgrun ya no recuerda que se hab铆a pulsado el bot贸n y ejecuta la acci贸n del mismo.

El probado el mismo procedimiento quitando los msgrun y funciona sin problemas, por lo que esta claro que el problema lo tengo por el msgrun.

Alguien me puede ayudar?
Muchas gracias por vuestra atenci贸n

Un saludo

Fernando Gonz谩lez Diez

ALSIS Sistemas Inform谩ticos
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Problemas con Valid, MsgRun y button
Posted: Thu Nov 29, 2007 09:42 PM

Fernando,

Entonces el problema es que no se ejecuta la acci贸n del bot贸n, si ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Ruben D. Fernandez
Posts: 189
Joined: Sun Jul 08, 2007 01:46 AM
Problemas con Valid, MsgRun y button
Posted: Thu Nov 29, 2007 09:45 PM

Fernando:

Intenta colocarle la clausula CANCEL a los botones que
no deben ejecutar el valid del get.

Saludos.

Ruben Fernandez

fgondi
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Problemas con Valid, MsgRun y button
Posted: Fri Nov 30, 2007 10:17 AM

Antonio,

Correcto, el problema es que no ejecuta la acci贸n del bot贸n.
Pero si quito los msgrun, osea hago las validaciones sin mensaje en pantalla, tras terminar si me ejecuta la acci贸n del bot贸n

Ruben,

No me gustar铆a tener que poner la clausa CANCEL, porque si me interesa que ejecute el valid.

Gracias por vuestras respuestas

Un saludo

Fernando Gonz谩lez Diez

ALSIS Sistemas Inform谩ticos
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 03:03 PM
Problemas con Valid, MsgRun y button
Posted: Fri Nov 30, 2007 12:41 PM

Y, es necesario que sea en el valid ? , no te sirve en 'ON CHANGE'

Saludos



Angel, Valencia, Venezuela



xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
fgondi
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Problemas con Valid, MsgRun y button
Posted: Fri Nov 30, 2007 03:47 PM

Hola ADBLANCO,

La validaci贸n debe hacerla aunque no cambie el contenido del get, por lo no que no puedo usar ON CHANGE

Gracias por tu respuesta.

Un saludo

Fernando Gonz谩lez Diez

ALSIS Sistemas Inform谩ticos
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Problemas con Valid, MsgRun y button
Posted: Fri Nov 30, 2007 03:50 PM

Fernando,

Y ese Get puede pasarle el foco a otro control que no sea el bot贸n ?

El bot贸n se queda con el foco ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
fgondi
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Problemas con Valid, MsgRun y button
Posted: Fri Nov 30, 2007 06:39 PM

Antonio,

El get no pas el foco al bot贸n. Hay una serie de get's en cadena y al intro el foco va cambiando de un get a otro, ejecutando el valid del get que abandona y pasando el foco al get nuevo, y eso funciona sin problemas.

En la misma ventana hay un boton que al pulsarlo con el rat贸n hace una determinada tarea. Pues bien cuando con el rat贸n pulsan en el boton ejecuta el valid del get donde se encontraba el foco y si este contiene mensajes msgrun, no realiza la tarea del boton. Ejecuta el valid y el foco vuelve al mismo get.
Si el get no contiene mensajes msgrun, ejecuta el valid y posteriormente a tarea enconmendada al action del boton que han pulsado con el rat贸n.

Gracias por vuestras respuestas, espero haberlo aclarado algo.

Un saludo

Fernando Gonz谩lez Diez

ALSIS Sistemas Inform谩ticos
fgondi
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Problemas con Valid, MsgRun y button
Posted: Fri Nov 30, 2007 06:53 PM
Antonio,

Dentro de samples esta el prg dbf01.prg, bien pues para reproducirlo s贸lo hay que colocar un valid al primer get's que se visualiza:

Code: Select all Collapse
      REDEFINE GET oDbf:First ID ID_NAME OF oDlg UPDATE ;
      MESSAGE "Please type here the first name of the customer" ;
      Valid ps_tt()

static func ps_tt()
local i, j := 1
msgrun('hola', 'hola', {|| i:= j +1} )
return .T.


De esta forma al entrar en la ventana el foco est谩 en el primer get. Ahora intentamos pulsar con el rat贸n en bot贸n "next" y la primera vez que se pulsa el bot贸n no salta de registro.
Un saludo

Fernando Gonz谩lez Diez

ALSIS Sistemas Inform谩ticos
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Problemas con Valid, MsgRun y button
Posted: Fri Nov 30, 2007 08:33 PM
Fernando,

Prueba as铆 :-)
Code: Select all Collapse
static func ps_tt() 
local i, j := 1 
local h := GetFocus()
msgrun('hola', 'hola', {|| i:= j +1} ) 
if GetClassName( h ) == "Button"
   PostMessage( h, FM_CLICK )
endif   
return .T.
regards, saludos

Antonio Linares
www.fivetechsoft.com
fgondi
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Problemas con Valid, MsgRun y button
Posted: Mon Dec 03, 2007 07:24 AM

Antonio,

Funciona perfectamente.

Muchas gracias por la respuesta.

Un saludo

Fernando Gonz谩lez Diez

ALSIS Sistemas Inform谩ticos

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions