Frameworksp

Páginas filhas
  • CPDBtnIns - Inibe opção de inclusão na Consulta Padrão

Ponto-de-Entrada: CPDBtnIns - Inibe opção de inclusã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 efetuar validação que inibe a apresentação da opção de inclusão na Consulta Padrão.
Programa Fonte 
MSLIB.PRW
Sintaxe

CPDBtnIns - Inibe opção de inclusã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 Incluir será apresentado na Conpad. Se .T., apresenta o botão Incluir, caso contrário o botão não é exibido.
Observações

Caso o Ponto de Entrada retorne .T. ou não seja compilado, o acesso Inclusão de dados via F3 é verificado pelo Sistema.  

Parâmetro ParamIXB

Estrutura do array

  • [1] - Nome da consulta padrão que está sendo executada.
Exemplos 
Com a utilização do exemplo abaixo, são possíveis três cenários:	- Se a consulta padrão executada for a SA1 ou SB1, o botão Incluir não será apresentado. 	- Se for uma outra consulta:		- Se o acesso "Inclusão de dados via F3" estiver habilitado, o botão será apresentado;		- Se o acesso "Inclusão de dados via F3" estiver desabilitado, o botão não será apresentado.//---------------------------------------------------------------------------------------------------------------------		#include "protheus.ch"User Function CPDBTNINS()Local cCons := Alltrim(ParamIXB[1])Local lRet := .T.// Se a consulta padrão que estiver sendo executada for a SA1 ou SB1, não apresenta o botão de inclusão.If cCons $ "SA1|SB1" 	ApMsgAlert("Usuário: "+ __cUserID + " abriu a consulta: " + cAlias + " e o botão Incluir não vai ser apresentado.")	lRet := .F.EndIfReturn lRet

  • Sem rótulos