Linha Microsiga Protheus

Árvore de páginas

Seleciona os botões que não serão apresentados ou adiciona botões no controle de portaria

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Manufatura.

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas.

Rotina:

Rotina

Nome Técnico

MNTA985

Controle de portaria

Chamados Relacionados

MNG-3150;

DNG-129.

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

Descrição:

Ponto de entrada para selecionar os botões que não serão apresentados ou adiciona botões no controle de portaria.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Controle de Portaria/Portaria

Eventos:

Portaria (MNTA985)

Programa Fonte:

MNTA985.PRW

Função:

MNTA985J()

Parâmetros:

Nome

Tipo

Descrição

aBtn1Array

Array com todos os botões disponíveis para o panel lista de Frota e seus respectivos conteúdos

aBtn2ArrayArray com todos os botões disponíveis para o panel lista de ordens de serviço e seus respectivos conteúdos
aBtn3ArrayArray com todos os botões disponíveis para o panel lista movimentação E/S e seus respectivos conteúdos
aBtn4ArrayArray com todos os botões disponíveis para o panel Lista de visitantes e seus respectivos conteúdos
Posição TipoDescrição
aBtn[x][1]CaractereResource1
aBtn[x][2]Caractere

Resource2

aBtn[x][3]Bloco de código

Bloco de código definindo ação do botão

aBtn[x][4]Caractere

Descrição do botão

aBtn[x][5]CaractereNome do objeto botão



Retorno:

Nome

Tipo

Descrição

Obrigatório

aUserButtonsArrayArray com todos os botões que deveram ser exibidos na rotina e seus respectivos conteúdosSim

 

Exemplo:

Exemplo do ponto de entrada MNTA985J
#include "Protheus.ch"
User Function MNTA985J()
    Local aBtn1 := ParamIXB[1]
    Local aBtn2 := ParamIXB[2]
    Local aBtn3 := ParamIXB[3]
    Local aBtn4 := ParamIXB[4]
    Local nX := 0
    local aBtnTempo := AClone(aBtn3)
    For nX:= 1 to Len(aBtnTempo)
 	 // Deleta o botão para não ser apresentado
         nPos := aScan(aBtnTempo[nX], "Inclusão Histórico Retroativo")
         If nPos > 0
			  ADel(aBtn3, nX)
              ASize(aBtn3, Len(aBtn3) - 1)
         EndIf
    Next nX
    
	// Adiciona novos botões
    aAdd(aBtn1, {"ng_ico_entrada", "ng_ico_entrada", {|| U_ESP985ES() }, "Entrada\Saida", "oBtnES"})
    aAdd(aBtn4, {"ng_ico_entrada", "ng_ico_entrada", {|| U_ESP985ES() }, "Entrada\Saida", "oBtnES"})
    aUserButtons := {aBtn1, aBtn2, aBtn3, aBtn4}
Return aUserButtons



User Function ESP985ES()

    MsgInfo("Ponto de Entrada 'J' ", "Atenção")

Return