Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLBLQUSR - Validação de Usuário
  • Criado por Usuário desconhecido (ana.lira), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: PLBLQUSR - Validação de Usuário
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11
Descrição: 
Este ponto de entrada permite inserir uma regra para validar e confirmar se o usuário deve ser bloqueado ou desbloqueado.
Ponto de chamada: É executado ao pressionar o botão “Ok” da rotina de bloqueio/desbloqueio do usuário, ou seja, após terem sido verificadas todas as regras padrões do sistema. Caso alguma verificação não permita a exclusão, o ponto de entrada não será executado.
Programa Fonte 
PLSA660B.PRW
Sintaxe

PLBLQUSR - Validação de Usuário ( [ cBloqueio ], [ cMotBlq ], [ dDatBlq ], [ cAlias ], [ dDatInc ], [ dDatPed ] ) --> Lógico

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cBloqueio Caracter Código de bloqueio do item posicionado (Para Usuários já bloqueados).
cMotBlq Caracter Motivo do bloqueio/desbloqueio informado na rotina.
dDatBlq Data Data do bloqueio/desbloqueio informado na rotina.
cAlias Caracter Alias do cadastro de tipos de bloqueio/desbloqueio utilizado.
dDatInc Data Data de inclusão do item posicionado.
dDatPed Array of Record Data de pedido do bloqueio.
Retorno
    Lógico(logico)
  • Retorno lógico (verdadeiro ou falso). Se verdadeiro, a rotina seguirá, normalmente, o processo de bloqueio, caso seja falso, a rotina não permitirá a confirmação.
Exemplos 
User Function PLBLQUSR Local cBloqueio := paramixb[1]    Local cMotBlq   := paramixb[2]       Local dDatBlq   := paramixb[3]     Local cAlias    := paramixb[4]    Local dDatInc   := paramixb[5]    Local dDatPed   := paramixb[6]    Local lRet      := .T. If Empty(cBloqueio) // Se estiver vazio e um bloqueio.    MsgAlert("Ponto de entrada no bloqueio do usuario... BLOQUEIO") Else    MsgAlert("'Ponto de entrada no bloqueio do usuario... DESBLOQUEIO") Endif      Return(lRet)