Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada para selecionar os botões que não serão apresentados na EnchoiceBar

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

MNTA435

Retorno O.S. Mod 2

Chamados Relacionados

MNG-3356                                                                  

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 na EnchoiceBar.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Retorno O.S./Retorno O.S. Mod 2

Eventos:

Retorno O.S. Mod 2 (MNTA435)

Programa Fonte:

MNTA435.PRW

Função:

MNTA435J()

Parâmetros:

Nome

Tipo

Descrição

ParamIXB[1]Array

Array com todos os botões disponíveis para a rotina e seus respectivos conteúdos

Posição TipoDescrição
Array[x][1]CaractereResource
Array[x][2]Bloco de código

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

Array[x][3]Caractere

Descrição do botão

Array[x][4]Caractere

Nome do objeto botão

Array[x][5]LógicoVisibilidade do botão
Retorno:

Nome

Tipo

Descrição

Obrigatório

aBtnArray

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

Posição TipoDescrição
Array[x][1]CaractereResource
Array[x][2]Bloco de código

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

Array[x][3]Caractere

Descrição do botão

Array[x][4]Caractere

Nome do objeto botão

Array[x][5]LógicoVisibilidade do botão
Sim

 


Exemplo: PE MNTA435J
#include "Protheus.ch"
User Function MNTA435J()
    Local aBtn := ParamIXB[1]
    Local nX := 0
   
    aBtnTempo := AClone(aBtn)

    For nX:= 1 to Len(aBtnTempo)
        nPos := aScan(aBtnTempo[nX], "oBtSpl")

        If nPos <> 0
            ADel(aBtn, nX)
          ASize(aBtn, Len(aBtn) - 1)
        EndIf

    Next nX

Return aBtn