topic-42231

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Ayuda con un Get
Posted: Sat Sep 24, 2022 05:59 PM

Amigos, buenas tardes.

Necesito que el Get de caracteres alfanumérico, entre o no con una valor, al momento de tomar el foco para digitar, siempre limpie la variable, y presente el Get sin dato.

Muchos Saludos.

Antonio

Codigo:

Code (fw): Select all Collapse

     @ 160,205 GET oGetz7 Var Can_Apl1 SIZE  90,20 PIXEL OF oDlg2   PICTURE "@!"   COLOR RGB(0,0,128), RGB(159,233,255)   FONT oFont16   UPDATE;
             VALID (EVAL(bCanti_Apl),.T.)

                            bCanti_Apl := <||
                                            IF (Empty(Can_Apl1))
                                                MsgStop("Cantidad Administrada debe tener un valor")
                                                            oGetz7:Refresh()
                                                            oGetz7:SetFocus()
                                            Else
                                                oGetz7:Refresh()
                                            Endif
                                                >

FWH 22.10 - HARBOUR - PELLES C

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Ayuda con un Get
Posted: Sat Sep 24, 2022 08:29 PM

Saludos, Antonio. No lo he probado, pero intenta con:

Code (fw): Select all Collapse

@ 160,205 GET oGetz7 Var Can_Apl1 SIZE  90,20 PIXEL OF oDlg2   PICTURE "@!"   COLOR RGB(0,0,128), RGB(159,233,255)   FONT oFont16   UPDATE
                 oGetz7:bGotFocus := {|| oGetz7:cCaption := space(30), oGetz7:Refresh() }

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: Ayuda con un Get
Posted: Sun Sep 25, 2022 02:05 AM

FranciscoA wrote:Saludos, Antonio. No lo he probado, pero intenta con:

Code (fw): Select all Collapse

@ 160,205 GET oGetz7 Var Can_Apl1 SIZE  90,20 PIXEL OF oDlg2   PICTURE "@!"   COLOR RGB(0,0,128), RGB(159,233,255)   FONT oFont16   UPDATE
                 oGetz7:bGotFocus := {|| oGetz7:cCaption := space(30), oGetz7:Refresh() }

Hola Amigo Francisco.

Como estas?

Me alegro mucho saber de ti.

Muchas gracias como siempre por tu ayuda.

Aplique de la forma que ves y nada, al tomar el foco, mantiene el valor anterior, no limpia la variable.

Muchos saludos

Antonio

Code (fw): Select all Collapse

     @ 160,205 GET oGetz7 Var Can_Apl1 SIZE  90,20 PIXEL OF oDlg2   PICTURE "@!"   COLOR RGB(0,0,128), RGB(159,233,255)   FONT oFont16   UPDATE
                         oGetz7:bGotFocus := {|| oGetz7:cCaption := space(10), oGetz7:Refresh() }

FWH 22.10 - HARBOUR - PELLES C

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Ayuda con un Get
Posted: Sun Sep 25, 2022 03:05 AM

Code (fw): Select all Collapse

@ 160,205 GET oGetz7 Var Can_Apl1 SIZE  90,20 PIXEL OF oDlg2   PICTURE "@!"   COLOR RGB(0,0,128), RGB(159,233,255)   FONT oFont16   UPDATE
                 oGetz7:bGotFocus := {|| Can_Apl1 := space(30), oGetz7:Refresh() }

ó oGetz7:bGotFocus := {|| oGetz7:cText := space(30), oGetz7:Refresh() }

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: Ayuda con un Get
Posted: Sun Sep 25, 2022 03:49 AM

FranciscoA wrote:
Code (fw): Select all Collapse
@ 160,205 GET oGetz7 Var Can_Apl1 SIZE  90,20 PIXEL OF oDlg2   PICTURE "@!"   COLOR RGB(0,0,128), RGB(159,233,255)   FONT oFont16   UPDATE
                 oGetz7:bGotFocus := {|| Can_Apl1 := space(30), oGetz7:Refresh() }
ó oGetz7:bGotFocus := {|| oGetz7:cText := space(30), oGetz7:Refresh() }

Grande Maestro Francisco.

Funciono PERFECTO!!!!

Muchas gracias.

Muy agradecido.

Saludos

Antonio

FWH 22.10 - HARBOUR - PELLES C

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: Ayuda con un Get
Posted: Sun Sep 25, 2022 12:21 PM

Hola,

tambien podrias probar el PICTURE "@K!"

Saludos.

FiveTech Support Forums

Continue the discussion