Ponto-de-Entrada: CPDBtnVis - Inibe opção de visualização na Consulta Padrão
Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Descrição: Ponto de entrada utilizado para validar a apresentação do botão Visualizar, na Consulta Padrão.
Sintaxe CPDBtnVis - Inibe opção de visualização na Consulta Padrão ( [ ParamIXB ] ) --> lRet
Parâmetros: | Nome | | | Tipo | | | Descrição | | | Default | | | Obrigatório | | | Referência | |
| ParamIXB | | | Vetor | | | Vetor com as informações da consulta padrão que está sendo executada | | | | | | | | | | |
Retorno lRet(logico) - Define se o botão Visualizar será apresentado na Conpad. Se .T. apresenta o botão Visualizar, caso contrário o botão não é exibido.
Exemplos #include "protheus.ch"User Function CPDBtnVis()Local lRet := .T. Local cCons := PARAMIXB[1]Local cAliasCons := PARAMIXB[2]// Se for o Administrador e o nome da consulta for SA1 ou a tabela principal da consulta for SA1, inibe a opção Visualizar.If __cUserID == "000000" .And. (cCons == "SA1" .Or. cAliasCons == "SA1") lRet := .F.EndIfReturn lRet