Páginas filhas
  • EDAPPBUT - Desabilita botões.

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
EDAPPBUT - Desabilta botões
EDAPPBUT - Desabilta botões

Ponto-de-Entrada: EDAPPBUT - Desabilta botões
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição:
Ponto de entrada que pode ser executado para realizar algum tratamento para desabilitar os botões da consulta genérica.
Programa Fonte
APLIB230.PRW
Sintaxe

EDAPPBUT - Desabilta botões ( [ ParamIXB ] ) --> aRet

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
ParamIXBVetorVetor que contém a propriedade dos botões da consulta genérica, que define se o item está habilitado.
Retorno
    aRet(vetor)
  • Vetor de retorno do Ponto de Entrada que contém a propriedade dos botões da consulta genérica, que define se o item deve ser habilitado ou desabilitado.
Observações

Parâmetro PARAMIXB

O conteúdo de cada elemento do array deve ser lógico (.T. ou .F.)

Todos os elementos do array são passados com o conteúdo .T., quer dizer, até a execução do Ponto de Entrada, todos os botões estão habilitados.

Posição dos botões no array

  • [1] Arquivo
  • [2] Pesquisa
  • [3] Filtro
  • [4] Dicionário
  • [5] Impressão 
  • [6] Visualizar
  • [7] Exp. Excel (este elemento só é apresentado em client windows)

 

Retorno aRet

O retorno do P.E. deve ser um array com a mesma quantidade de elementos trazida no PARAMIXB.

O conteúdo de cada elemento do array deve ser lógico (.T. ou .F.)
 

Exemplos
#include "protheus.ch"User Function EDAPPBUT()Local aBut := PARAMIXB   //cada posição do array identifica o botão da consulta genérica//No exemplo abaixo iremos desabilitar as opções de Impressão e Visualizar do usuário AdministradorIf __cUserID == "000000"       aBut[5] := .F.       aBut[6] := .F.EndIfReturn  aBut