CPDBtnIns - Inibe opção de inclusão na Consulta Padrão

Ponto de Entrada utilizado para efetuar validação que inibe a apresentação da opção de inclusão na Consulta Padrão.

MSLIB.PRW

CPDBtnIns - Inibe opção de inclusão na Consulta Padrão ( [ ParamIXB ] ) --> lRet

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.

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.

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