PCOA0507 - Validação de usuário por bloqueio de entidade

Descrição

O ponto de entrada PCOA0507 valida os usuários após realizar o bloqueio de entidades.

Observações

Permite que usuário acrescente validações ou sobreponha a validação padrão referente ao bloqueio de entidades, como por exemplo: centro de custo, Item Contábil e Classe de Valor.

Este ponto não atua na função padrao ExistCpo() quando utilizado os campos especiais como _MSBLQL.

Exemplos

User function PCOA0507()

Local lVldBlq := ParamIXB1
Local lRetorno := .T.

Alert("Evidencia PE: PCOA0507 - VALIDACAO DAS ENTIDADES BLOQUEADAS")

If lVldBlq // se retornou .T. pq passou pela validacao padrao
If !MsgYesNo("Validacao Padrao OK....Customizacao Confirma este item ?", "NAO BLOQUEADO PADRAO")
lRetorno := .F.
EndIf
Else
If !MsgYesNo("Validacao Padrao BLOQUEADO....Customizacao Confirma este item mesmo assim ?", "BLOQUEADO PADRAO")
lRetorno := .F.
EndIf
EndIf

Return(lRetorno) //RETORNO DO PONTO DE ENTRADA

Veja também

ExistCpo()

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

lVld

Retorno

lRetorno

Programa Fonte

PCOA050.PRW