Linha Microsiga Protheus

Árvore de páginas

T870NWMNU Retorna os botões do Grid da Gestão de Contratos

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Gestão de Serviços

Rotina:

TECA870

O ponto de entrada é indicado para retornar quais os botões serão utilizados no Grid da rotina de Gestão de Contratos (TECA870)


Ponto de Entrada

Descrição:

AT870NWMNU - Retorna os botões do Grid da Gestão de Cotratos


Localização:

Atualizações>>Contratos de Serviços>>Gestão de Contratos

Programa Fonte:

TECA870.PRW

Função:

TECA870

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aRet

Array

Array contendo os botões a serem adicionados no componente FWFormBrowse pelo método AddButton

aRet[1] - Título do Botão (parâmetro cTitle do método)

aRet[2] - Ação que será executada no clique do botão. Pode ser uma função ou um Code Block. (parâmetro xAction do método)

aRet[3] - Indica a opção real (ordem de criação) do aRotina antigo - Compatibilização com a MBrowse antiga. (parâmetro nRealOpc do método)

Não

 

#Include 'Protheus.ch'
User Function AT870NWMNU()
Local aMenu := { Upper("Visualizar Orçamento"), Upper("Visualizar Contrato"), Upper("Contrato Simplificado")}
Local aMenu := {}
Local nC := 0
Local aRetMenu := {}
Local nTam := 0
//Tratamento do parâmetro de entrada
If ValType(PARAMIXB) == "A"
 
 nTam := Len(PARAMIXB)
 
 For nC := 1 to nTam
  //Localizou o texto do Menu, entao adiciona
  If aScan(aMenu, { |m| m == Upper(RTrim(PARAMIXB[nC][1]) ) }) > 0 
     aAdd(aRetMenu, aClone(PARAMIXB[nC]))
  EndIf
 
 Next nC
EndIf
//Pode adicionar novos menus, substituindo o Ponto de Entrada AT870MNU, 
//neste caso somente adiciona uma posição no array com valor 2 que se refere ao parameto nRealOpc do método AddButton do compomente FWFormBrowse
aAdd( aRetMenu, {"Menu Customizado 1", { || MsgAlert("Customizado 1")} , 2} )
aAdd( aRetMenu, {"Menu Customizado 2 ", { || MsgYesNo("Customizado 2")}, 2 } )

Return aRetMenu