Get con PASSWORD.

[Yessica]

Maestros del Fivewin, necesito de su ayuda.

Tengo un control GET en un Dialogo.

Local cPass:= Space(10)

REDEFINE GET oGet VAR cPass ID 100 Of oDgl --> Aqui por el momento no lo tengo en PASSWORD.

La pregunta es, ¿es posible qu después que capturan el dato en el Get, que éste se oculte con asteriscos?

Ojo, cuando capturan se debe visualizar lo que se esta capturando no los asteriscos, sólo hasta que salen del Control GET es cuando deseo que se pongan los asteriscos.


Espero me puedan ayudar.

Gracias

[Willi Quintana]

Hola,,, este ejemplo de un GET que permite ver el password te ayudara.

Code: Select all  Expand view

   REDEFINE GET oPass ;
            VAR    cPass ;
            ID 102 OF oDlg; //
            BITMAP "VERPASS" ACTION (oPass:lPassword := .f., oPass:Refresh(), SysWait(0.5), oPass:lPassword := .t., oPass:Refresh() ) ;
            CUEBANNER "Contraseña"
            oPass:lPassword := .t.
            oPass:bGotFocus() := { || lOk := .f.  }
            oPass:SetPos(nPos)


 

[Yessica]

Hola,,, este ejemplo de un GET que permite ver el password te ayudara.

Code: Select all  Expand view

   REDEFINE GET oPass ;
            VAR    cPass ;
            ID 102 OF oDlg; //
            BITMAP "VERPASS" ACTION (oPass:lPassword := .f., oPass:Refresh(), SysWait(0.5), oPass:lPassword := .t., oPass:Refresh() ) ;
            CUEBANNER "Contraseña"
            oPass:lPassword := .t.
            oPass:bGotFocus() := { || lOk := .f.  }
            oPass:SetPos(nPos)


 

Willi, gracias por contestarme, permiteme una pregunta:

Cuando el usuario digite el dato en el Get, lo tiene que ver asi tal cual, como si no fuera para PASSWORD, despues cuando pase a otro control, el contenido del Get debe ahora verse como si fuera un PASSWORD, osea con asteriscos (*************)

Es así tu ejemplo?

[D.Fernandez]

Yessica así me funcionó:

LOCAL oGetpass,cPass:=Space(10)

Redefine Get oGetpas VAR cPass ID 110 OF oDlg FONT oFontArial UPDATE
oGetpass:bValid := {||CambioGet(oGetpass) }

FUNCTION CAMBIOGET(oGetpass)
oGetpass:lPassword:=.t.
oGetpass:Refresh()
Return(.T.)

Saudos

Ruben Dario Fernandez

[Willi Quintana]

Hola Yessica,,, D:Fernandez lo hizo bien,,, creo que es como lo que requieres....

[VitalJavier]

Yesica, yo lo ucupe para la recarga electrónica de Telcel.

asi :

REDEFINE GET oRec[2,1] VAR oRec[2,2] ID 201 OF oDlg_Rec PICTURE "9999999999" FONT aLetras[21]
oRec[2,1]:bLostFocus := {|| oRec[2,1]:lPassword := .T.}
oRec[2,1]:bSetfocuss := {|| oRec[2,1]:lPassword := .F.}

Espero y te sirva.

[Yessica]

Yessica así me funcionó:

LOCAL oGetpass,cPass:=Space(10)

Redefine Get oGetpas VAR cPass ID 110 OF oDlg FONT oFontArial UPDATE
oGetpass:bValid := {||CambioGet(oGetpass) }

FUNCTION CAMBIOGET(oGetpass)
oGetpass:lPassword:=.t.
oGetpass:Refresh()
Return(.T.)

Saudos

Ruben Dario Fernandez

Maestros: Willi y Fernandez, muuchasss gracias, lo probé y quedó. Son buenos colegas!!!

[Yessica]

Compañeros Gracias son realmente muy buenos.

Exactamente esto quería Fernández.

Willi gracias por tu apoyo.