Tempo aproximado para leitura: 00:03:00 min
Dúvida
Como desabilitar a opção de incluir na consulta padrão?
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80
Solução
Ponto de Entrada utilizado para efetuar validação que inibe a apresentação da opção de inclusão na Consulta Padrão.
Com a utilização do exemplo abaixo, são possíveis os seguintes cenários:
1 - Se a consulta padrão executada for a SA1 ou SB1, o botão Incluir não será apresentado.
2 - 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.
EndIf
Return lRet
Saiba Mais
0 Comentários