Linha Microsiga Protheus

Árvore de páginas


CONTEÚDO

  1. Visão Geral
  2. Parâmetros
  3. Exemplo de Utilização
  4. Opção na rotina
    1. Outras Ações / PE


01. VISÃO GERAL

Esse documento visá demostrar um exemplo do ponto de entrada CT060BUT que pode adicionar novas opções de menu ao browser da rotina.

Observação


Este ponto de entrada é criado após a criação dos menus padrões da rotina.

02. PARÂMETROS


Parâmetro

Tipo

Descrição

Obrigatório

PARAMIXB[1]ArrayNome do menuSim


03. EXEMPLO DE UTILIZAÇÃO


Exemplo do Ponto de Entrada 
#Include 'Protheus.ch'
#Include 'FWMVCDef.ch'

User Function CT060BUT()

	Local aBotoes := ParamIXB

	aAdd(aBotoes,{ "PE" , "Processa( { || CTBA080() })", 0, 0} )

Return aBotoes

Observação


O ponto de entrada retorna a variável aBotoes contendo todos os menus a serem adicionados.



Evento de chamada do Ponto de Entrada 
If ExistBlock("CT060BUT")
	aCT060BUT := ExecBlock("CT060BUT",.F.,.F.,aRotina)
	
	IF ValType(aCT060BUT) == "A" .AND. Len(aCT060BUT) > 0
		For nX := 1 to len(aCT060BUT)
			aAdd(aRotina,aCT060BUT[nX])
		Next
	ENDIF
Endif


04. OPÇÃO NA ROTINA


Aparecerão todas as opções desejáveis a serem adicionadas na aba de Outras Ações:

Outras Ações / PE