Get con PASSWORD.

Post Reply
Yessica
Posts: 78
Joined: Thu May 28, 2009 6:58 pm

Get con PASSWORD.

Post by 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
User avatar
Willi Quintana
Posts: 859
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú
Contact:

Re: Get con PASSWORD.

Post by Willi Quintana »

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

Code: Select all


   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
Posts: 78
Joined: Thu May 28, 2009 6:58 pm

Re: Get con PASSWORD.

Post by Yessica »

Willi Quintana wrote:Hola,,, este ejemplo de un GET que permite ver el password te ayudara.

Code: Select all


   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
Posts: 392
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay
Contact:

Re: Get con PASSWORD.

Post by 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
Dario Fernandez
FWH, Harbour, BCC, MySql & MariaDB, tData, Dbf/Cdx
VSCode.
Maldonado - Uruguay
User avatar
Willi Quintana
Posts: 859
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú
Contact:

Re: Get con PASSWORD.

Post by Willi Quintana »

Hola Yessica,,, D:Fernandez lo hizo bien,,, creo que es como lo que requieres....
VitalJavier
Posts: 188
Joined: Mon Jun 10, 2013 6:40 pm

Re: Get con PASSWORD.

Post by 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
Posts: 78
Joined: Thu May 28, 2009 6:58 pm

Re: Get con PASSWORD.

Post by Yessica »

D.Fernandez wrote: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!!! :wink:
Yessica
Posts: 78
Joined: Thu May 28, 2009 6:58 pm

Re: Get con PASSWORD. (Solucionado)

Post by Yessica »

Compañeros Gracias son realmente muy buenos.

Exactamente esto quería Fernández.

Willi gracias por tu apoyo.

:D
Post Reply