topic-25817

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

xBrowse CRYPT
Posted: Fri Mar 08, 2013 11:23 PM

Dear Mr. Rao,
would you be so kind to show how to use decrypt/encrypt with EDIT_GET edit type.
Best regards,
Otto

oBrw:PASSWORD:bEditValue   := { || Decrypt( ALLTRIM( FIELD->PASSWORD ), cPW )  }
oBrw:PASSWORD:nEditType    := EDIT_BUTTON
oBrw:PASSWORD:bEditBlock   := { | r, c, o | EditPASSWORD( r, c, o ) }

oBrw:PASSWORD:bEditValue   := { || Decrypt( ALLTRIM( FIELD->PASSWORD ), cPW )  }
oBrw:PASSWORD:nEditType    := EDIT_GET

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: xBrowse CRYPT
Posted: Sat Mar 09, 2013 05:19 AM

When we want to edit a column, it is advisable to assign bEditValue with SETGET block.

Code (fw): Select all Collapse

:bEditValue := { |x| If( x != nil, FIELD->PASSWORD := Encrypt( x, cPw ), nil ), Decrypt( FIELD->PASSWORD, cPW ) }

Now you can use either EDIT_GET or EDIT_BUTTON.
In case of EDIT_BUTTON, bEditBlock should return the new password without encryption. In case edit is cancelled bEditBlock should return NIL.

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion