Consulta sobre Get " SOLUCIONADO "

Consulta sobre Get " SOLUCIONADO "

Postby remtec » Thu Apr 21, 2022 7:48 pm

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 view

                 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
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm

Re: Consulta sobre Get

Postby karinha » Thu Apr 21, 2022 9:36 pm

¿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
karinha
 
Posts: 7213
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Consulta sobre Get

Postby FranciscoA » Thu Apr 21, 2022 10:23 pm

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
User avatar
FranciscoA
 
Posts: 2110
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Consulta sobre Get

Postby remtec » Thu Apr 21, 2022 10:37 pm

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
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm

Re: Consulta sobre Get

Postby karinha » Thu Apr 21, 2022 10:53 pm

¿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
User avatar
karinha
 
Posts: 7213
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Consulta sobre Get

Postby remtec » Thu Apr 21, 2022 11:19 pm

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
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm

Re: Consulta sobre Get

Postby Garbi » Fri Apr 22, 2022 7:22 am

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
Garbi
 
Posts: 291
Joined: Wed Nov 02, 2005 3:28 pm

Re: Consulta sobre Get

Postby remtec » Fri Apr 22, 2022 1:37 pm

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
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm

Re: Consulta sobre Get

Postby karinha » Fri Apr 22, 2022 1:49 pm

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
User avatar
karinha
 
Posts: 7213
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Consulta sobre Get

Postby remtec » Fri Apr 22, 2022 8:58 pm

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: 717
Joined: Fri May 12, 2017 2:50 pm

Re: Consulta sobre Get "SOLUCIONADO"

Postby remtec » Fri Apr 22, 2022 8:59 pm

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 view

                 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
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm

Re: Consulta sobre Get " SOLUCIONADO "

Postby jvtecheto » Sat Apr 23, 2022 10:31 am

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 19.06 32 bits + Harbour 3.2dev(r2104281802) + Borland 7.4 + FivEdit
User avatar
jvtecheto
 
Posts: 576
Joined: Mon Mar 04, 2013 4:32 pm
Location: Spain

Re: Consulta sobre Get " SOLUCIONADO "

Postby remtec » Sat Apr 23, 2022 2:22 pm

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
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm

Re: Consulta sobre Get " SOLUCIONADO "

Postby jvtecheto » Sat Apr 23, 2022 2:36 pm

Perfecto amigo.

Asi es como debe ser.

:mrgreen:

Saludos

Jose.
Fwh 19.06 32 bits + Harbour 3.2dev(r2104281802) + Borland 7.4 + FivEdit
User avatar
jvtecheto
 
Posts: 576
Joined: Mon Mar 04, 2013 4:32 pm
Location: Spain

Re: Consulta sobre Get " SOLUCIONADO "

Postby remtec » Sat Apr 23, 2022 2:52 pm

Amigo Jose

Muchas gracias por tu ayuda.

Que tengas un buen día.

Muchos Saludos.

Antonio.
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 717
Joined: Fri May 12, 2017 2:50 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 67 guests