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