Ayuda con un Get

[remtec]

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: Select all  Expand view  RUN

     @ 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
                                                >

 

[FranciscoA]

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

Code: Select all  Expand view  RUN

@ 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() }

[remtec]

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

Code: Select all  Expand view  RUN

@ 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: Select all  Expand view  RUN

     @ 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() }

 

[FranciscoA]

Code: Select all  Expand view  RUN

@ 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() }

[remtec]

Code: Select all  Expand view  RUN

@ 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

[Ariel]

Hola,

tambien podrias probar el PICTURE "@K!"

Saludos.