Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 4 minutos


01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

TOTVS Gestão Ambiental

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

TOTVS Manufatura (Linha Protheus) - Gestão Ambiental (SIGASGA)

TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)

Função:MNTA902
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de Entrada executado durante a montagem da tela, permitindo a alteração do título e da imagem dos itens existentes na legenda, além da inclusão de novos itens.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Árvore/Árvore

SIGAMDT: Atualizações/Organização/Árvore Lógica

SIGASGA: Atualizações/Arvore/Arvore

Eventos:

Árvore (MNTA902)

Programa Fonte:

MNTA902.prx

Função:

MNTA902L()

Parâmetros:
NomeTipoDescrição
PARAMIXB[1]Numérico

Módulo responsável pela chamada da rotina.

Valores possíveis:

  • 19 - SIGAMNT / SIGAGFR;
  • 35 - SIGAMDT;
  • 56 - SIGASGA.
PARAMIXB[2]Array

Array contendo o Titulo e a Imagens dos Itens já

existentes na legenda.

Estrutura do Array:

xDescrição
x[ y, 1 ]Imagem utilizada pelo Item
x[ y, 2 ]Titulo do Item
PARAMIXB[3]ObjetoObjeto utilizado para as Legendas
PARAMIXB[4]Objeto

Painel onde as Legendas devem ficar



03. DEMAIS INFORMAÇÕES

Exemplo MNTA902L
#Include 'Protheus.ch'

User Function MNTA902L()

    Local nModulo  := PARAMIXB[1]
    Local aLegenda := PARAMIXB[2]
    Local oLegenda := PARAMIXB[3]
    Local oPainel  := PARAMIXB[4]

    If nModulo == 19

        aLegenda[2, 1] := 'Br_Verde'
        aLegenda[2, 2] := 'Em Dia'

        @ 02,400 Bitmap oLegenda Resource 'Br_Verde' Size 25,25 Pixel Of oPainel Noborder When .F.
        @ 05,415 Say OemToAnsi('Liberadas') Of oPainel Pixel

    ElseIf nModulo == 35

        aLegenda[2, 1] := 'Br_Vermelho'
        aLegenda[2, 2] := 'Funcoes Vermelhas'

        @ 02,400 Bitmap oLegenda Resource 'Br_Vermelho' Size 25,25 Pixel Of oPainel Noborder When .F.
        @ 05,415 Say OemToAnsi('FUNC') Of oPainel Pixel

    Else

        aLegenda[2, 1] := 'Br_Amarelo'
        aLegenda[2, 2] := 'Aspectos Amarelos'

        @ 030,400 Bitmap oLegenda Resource 'Br_Amarelo' Size 25,25 Pixel Of oPainel Noborder When .F.
        @ 033,415 Say OemToAnsi('ASP') Of oPainel Pixel

    EndIf

Return aLegenda


04. ASSUNTOS RELACIONADOS

  • Não se aplica.