Frameworksp

Páginas filhas
  • VlDelUsr

Descrição
Ponto de entrada para validação de exclusão de usuários

Parâmetros

NomeTipoDescriçãoObrigatório
PARAMIXBCaracterCódigo de usuário a ser avaliada a possibilidade de exclusãoX


Retorno
lRet - Valor lógico indicando se o usuário pode ser excluído

Exemplo

#include 'totvs.ch'

User Function VlDelUsr()
    Local aLog as array
    Local lRet as logical

    aLog := FWUsrUltLog( PARAMIXB )
    lRet := .T.

    If len( aLog ) > 0
        //Verifica se a data do ultimo acesso está em branco
        If !Empty( aLog[1] )
            lRet := .F.
            Help(, , "VlDelUsr", , "Usuário já realizou um acesso ao sistema.", 1, 0, , , , , , {"Realize o bloqueio do acesso para o usuário."})
        EndIf
    
    EndIf

Return lRet