Consulta sobre Get " SOLUCIONADO "

Post Reply
remtec
Posts: 719
Joined: Fri May 12, 2017 2:50 pm

Consulta sobre Get " SOLUCIONADO "

Post by remtec »

Hola Amigos

Tengo un problema que no me había dado cuenta, es la secuencia de los GETs, al dar ENTER.

. Cuando ingresa, toma el foco el ID 110, al dar ENTER, debiera pasar al ID 120, pero inmediatamente toma el foco el Botón Id 604, que va a validar los 2 Gets.

Como puedo corregir, para que mediante el ENTER, pase de los 2 Gets y luego al botón Aceptar (Id 604)?

En el recurso el índice de los tab Index, están secuencia en los gets.
Muchos saludos

Antonio.

Codigo:

Code: Select all | Expand


                 DEFINE DIALOG oDlg RESOURCE "#1007"     Title " "

                REDEFINE BITMAP oBmp1 ID 601 RESOURCE "#8022" TRANSPARENT OF oDlg
                REDEFINE BITMAP oBmp1 ID 600 RESOURCE "#8023" TRANSPARENT OF oDlg

                REDEFINE SAY oSay1 ID 603 PROMPT OemToAnsi(alltrim("INFORMES DE CAJA")) OF oDlg FONT oFont1  COLORS RGB( 56, 76, 170)

            REDEFINE Get oCod_usu1 Var Cod_usu1 Id 110 Of oDlg UPDATE Picture "@!" COLORS RGB( 9, 43, 47)
           
            REDEFINE Get oCla_usu1 Var Cla_usu1 Id 120 Of oDlg UPDATE Picture "@!" COLORS RGB( 9, 43, 47)
           

            REDEFINE Button Id 605 Of oDlg Border ;
                ACTION (Ing_1:=0,Ing_2:=0,oDlg:End())        // Boton Salida
       

                REDEFINE Button Id 604 Of oDlg ;
              ACTION IF(!Valida_usu(Cod_usu1,Cla_usu1),(MsgStop(Mensa), Ing_1:=0, Ing_2:=0,.F.), ( oDlg:End(), .T.) )           // Aqui Boton Acepta



                            ACTIVATE DIALOG oDlg CENTERED  VALID (!GETKEYSTATE( 27 ))

 

FWH 22.03 Harbour Pelles C
Last edited by remtec on Fri Apr 22, 2022 9:00 pm, edited 2 times in total.
FWH 22.10 - HARBOUR - PELLES C
User avatar
karinha
Posts: 7963
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Been thanked: 5 times
Contact:

Re: Consulta sobre Get

Post by karinha »

¿Identificó las características <1/2> de Workshop.exe? Luego use TAB para ver si están "cayendo" en los GETS correctos. Publique el .RC que lo hace más fácil.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
FranciscoA
Posts: 2164
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Consulta sobre Get

Post by FranciscoA »

Saludos Antonio.
Como dice João, asegurate que, en el WindosStyle (en el editor de recursos), los Gets tengan definido el TabStop como YES.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
remtec
Posts: 719
Joined: Fri May 12, 2017 2:50 pm

Re: Consulta sobre Get

Post by remtec »

Muchas gracias Karinha y Francisco.

Es un archivo RES, si tiene activado los TAbStop estan activados en YES.

El Enter desde el primer Get, me envía directo al botón de validación, solo con el mouse puedo ingresar el dato del segundo Get.

Saludos.

Antonio.
FWH 22.10 - HARBOUR - PELLES C
User avatar
karinha
Posts: 7963
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Been thanked: 5 times
Contact:

Re: Consulta sobre Get

Post by karinha »

¿Qué sucede cuando usa <TAB> en los recursos? ¿"Saltar" correctamente? Es decir, directamente en el Editor de recursos. Esto es imposible con WrorkShop.exe. el mejor.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
remtec
Posts: 719
Joined: Fri May 12, 2017 2:50 pm

Re: Consulta sobre Get

Post by remtec »

Hola Karinha.

Muchas gracias por responder.

Uso Pelles C, recurso RES, si al hacer el Test, salta correctamente desde Primer Get, Segundo Get y Botón Validar.

Muchos Saludos.

Antonio.
FWH 22.10 - HARBOUR - PELLES C
Garbi
Posts: 347
Joined: Wed Nov 02, 2005 3:28 pm

Re: Consulta sobre Get

Post by Garbi »

Se me ocurre lo siguiente.

El campo Cod_usu1 tenga por ejemplo una longitud de 5 posiciones, al llenar las 5 posiciones pasa directamente al Cla_usu1 (segundo get) y el cliente pulsa intro para pasar al segundo get pensando que esta en el primer get pero al estar en el segundo pasa al botón.

Una solución se me ocurre que pongas más posiciones al Cod_usu1 para que el usuario tenga obligación de pulsar intro.

No recuerdo si desde el rc cambiando alguna configuración del get se espera a pulsar intro aunque se llene el campo.
Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com
remtec
Posts: 719
Joined: Fri May 12, 2017 2:50 pm

Re: Consulta sobre Get

Post by remtec »

Hola Garbi

Muchas gracias por responder.

El cliente si usa el TAB, va en secuencia correcta con los Get, hasta el boton validad.

Pero el usar el ENTER, que es su requerimiento, desde el primer Get, el Boton coma el Focus.

Quedo atento a alguna sugerencia.

Saludos

Antonio

FWH 22.03 Harbour - Pelles C
FWH 22.10 - HARBOUR - PELLES C
User avatar
karinha
Posts: 7963
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Been thanked: 5 times
Contact:

Re: Consulta sobre Get

Post by karinha »

Holá, post el .prg y el .RES / .RC para testes en el Mega Upload que simulo en el WorkShop.exe.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
remtec
Posts: 719
Joined: Fri May 12, 2017 2:50 pm

Re: Consulta sobre Get

Post by remtec »

Hola Amigo Karinha

Muchas gracias por tu ayuda.

Ya lo solucione, al parecer era un poco compleja con recursos, asi es que cambie a coordenadas "DEFINE DIALOG oDlg2 SIZE 350,250 PIXEL TRUEPIXEL FONT oFont2 STYLE nOr( WS_POPUP, WS_VISIBLE, WS_DLGFRAME )".

Ahora funciona perfecto.

Muchas gracias por todo.

Saludos

Antonio.

karinha wrote:Holá, post el .prg y el .RES / .RC para testes en el Mega Upload que simulo en el WorkShop.exe.

Regards, saludos.
FWH 22.10 - HARBOUR - PELLES C
remtec
Posts: 719
Joined: Fri May 12, 2017 2:50 pm

Re: Consulta sobre Get "SOLUCIONADO"

Post by remtec »

remtec wrote:Hola Amigos

Tengo un problema que no me había dado cuenta, es la secuencia de los GETs, al dar ENTER.

. Cuando ingresa, toma el foco el ID 110, al dar ENTER, debiera pasar al ID 120, pero inmediatamente toma el foco el Botón Id 604, que va a validar los 2 Gets.

Como puedo corregir, para que mediante el ENTER, pase de los 2 Gets y luego al botón Aceptar (Id 604)?

En el recurso el índice de los tab Index, están secuencia en los gets.
Muchos saludos

Antonio.

Codigo:

Code: Select all | Expand


                 DEFINE DIALOG oDlg RESOURCE "#1007"     Title " "

                REDEFINE BITMAP oBmp1 ID 601 RESOURCE "#8022" TRANSPARENT OF oDlg
                REDEFINE BITMAP oBmp1 ID 600 RESOURCE "#8023" TRANSPARENT OF oDlg

                REDEFINE SAY oSay1 ID 603 PROMPT OemToAnsi(alltrim("INFORMES DE CAJA")) OF oDlg FONT oFont1  COLORS RGB( 56, 76, 170)

            REDEFINE Get oCod_usu1 Var Cod_usu1 Id 110 Of oDlg UPDATE Picture "@!" COLORS RGB( 9, 43, 47)
           
            REDEFINE Get oCla_usu1 Var Cla_usu1 Id 120 Of oDlg UPDATE Picture "@!" COLORS RGB( 9, 43, 47)
           

            REDEFINE Button Id 605 Of oDlg Border ;
                ACTION (Ing_1:=0,Ing_2:=0,oDlg:End())        // Boton Salida
       

                REDEFINE Button Id 604 Of oDlg ;
              ACTION IF(!Valida_usu(Cod_usu1,Cla_usu1),(MsgStop(Mensa), Ing_1:=0, Ing_2:=0,.F.), ( oDlg:End(), .T.) )           // Aqui Boton Acepta



                            ACTIVATE DIALOG oDlg CENTERED  VALID (!GETKEYSTATE( 27 ))

 

FWH 22.03 Harbour Pelles C
FWH 22.10 - HARBOUR - PELLES C
User avatar
jvtecheto
Posts: 603
Joined: Mon Mar 04, 2013 4:32 pm
Location: Spain

Re: Consulta sobre Get " SOLUCIONADO "

Post by jvtecheto »

Hola amigo Remtec.

Me alegro que lo has solucionado, pero yo creo que deberíamos ahondar porque no funciona con recursos, ya que creo es mucho más práctico.

Ahora que tienes tiempo, si puedes postear el prg y el. Rc lo probaríamos, Joao también se ha ofrecido.

Un saludo

Jose.

Enviado desde mi POCOPHONE F1 mediante Tapatalk
Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
remtec
Posts: 719
Joined: Fri May 12, 2017 2:50 pm

Re: Consulta sobre Get " SOLUCIONADO "

Post by remtec »

Amigos João y José.

Muy buen día.

Muchas gracias por su ayuda y tiempo dedicado.

Anoche aun cuando había solucionado el problema, cambiando a coordenadas sin recurso, decidí seguir revisando y efectivamente la definición de tipo de botón Aceptar, tenia una diferencia.

Botón: Estaba definido en el Type como " DefaultPushbutton", lo modifique a "Pushbutton" y se soluciono el problema, ahora pasa del Get 1, Get 2 y Botón Aceptar.

Muchas gracias por todo su interés y ayuda.

Muchos saludos.

Antonio
FWH 22.10 - HARBOUR - PELLES C
User avatar
jvtecheto
Posts: 603
Joined: Mon Mar 04, 2013 4:32 pm
Location: Spain

Re: Consulta sobre Get " SOLUCIONADO "

Post by jvtecheto »

Perfecto amigo.

Asi es como debe ser.

:mrgreen:

Saludos

Jose.
Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
remtec
Posts: 719
Joined: Fri May 12, 2017 2:50 pm

Re: Consulta sobre Get " SOLUCIONADO "

Post by remtec »

Amigo Jose

Muchas gracias por tu ayuda.

Que tengas un buen día.

Muchos Saludos.

Antonio.
FWH 22.10 - HARBOUR - PELLES C
Post Reply