Perguntas CPDBtnVis - Inibe opção de visualização na Consult

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.

Eventos


Programa Fonte
MSLIB.PRW

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.

Observações
Parâmetro PARAMIXB


Estrutura do array:
[1] - Nome da consulta padrão que está sendo executada.
[2] - Alias utilizado na consulta padrão.

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.
EndIf
Return lRet