Histórico da Página

// Chamar a função depois de montar o ambiente ou de dentro de um menu do sistema.

User Function TstPswVault()

    Local cPass  	:= 'minhasenha'
    Local cID      	:= 'MeuID'
    Local lSucesso  := .F. 
    Local aMessage  := {}
	Local oVault := MPPswVault(aMessage)
    
    lSucesso := oVault:Put(cID, cPass) // lSucesso := .T.
    lSucesso := oVault:Check(cID, cPass) // lSucesso := .T.
	lSucesso := oVault:CheckPut(cID, "123456") // lSucesso := .F. quando a política não permitir sequência numérica
	
    if !lSucesso .And. !Empty(aMessage)
		ConOut( aMessage[1], aMessage[2] )
	endif

    lSucesso := oVault:Delete(cID) // lSucesso := .T.
    lSucesso := oVault:Check(cID) // lSucesso := .F., o registro já foi deletado
 
return