Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user JOAO RICARDO SANTINI ZANDONÁ

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de entrada que permite ativar/desativar a exibição de alguns botões da rotina

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos / SIGAGFR - Gestão de Frotas

Rotina:

RotinaNome Técnico
MNTA291Atendimento Facilities

Ponto de Entrada

Descrição:

Ponto de entrada que permite ativar/desativar a exibição de alguns botões da rotina.

Programa Fonte:

MNTA291.PRW

Parâmetros

TipoDescrição
array

Lista contendo os botões possíveis para inativação.

PosiçãoTipoDescrição
1string

Chave para identificar o botão:

ChaveBotão
ORDEM

Ordens de Serviço

FECHAFechamento de S.S.
CANCE

Cancelamento da S.S.

HORASReporte de Horas
FILTROFiltro Image Added
IMPRIMIRImprimir Image Added
HISTOHistórico Image Added
CARGACarga da Equipe Image Added
TRANSFTransferir Atendimento Image Added
LEGENDALegenda Image Added
2objectObjeto de controle do botão, o qual deve ser inativado ou ativado conforme a regra.
Bloco de código
languagesql
themeEclipse
titleExemplo do P.E. MNTA2910
linenumberstrue
#include 'totvs.ch'  
   

User Function MNTA2910()
  
    Local aButtons := ParamIXB[1]
    Local nInd1    := 0
     
    For nInd1 := 1 To Len( aButtons )
 
        If aButtons[nInd1,1] == 'ORDEM' // Ordem de Serviço

            aButtons[nInd1,2]:Enable()

        EndIf

        If aButtons[nInd1,1] == 'CANCE' // Cancelamento

            aButtons[nInd1,2]:Disable()

        EndIf

        If aButtons[nInd1,1] == 'FECHA' // Fechamento

            aButtons[nInd1,2]:Enable()

        EndIf

        If aButtons[nInd1,1] == 'HORAS' // Reporte de Horas

            aButtons[nInd1,2]:Disable()

        EndIf

        If aButtons[nInd1,1] == 'FILTRO' // Filtro
 
            aButtons[nInd1,2]:Enable()
 
        EndIf

        If aButtons[nInd1,1] == 'IMPRIMIR' // Imprimir
 
            aButtons[nInd1,2]:Disable()
 
        EndIf

        If aButtons[nInd1,1] == 'HISTO' // Historico
 
            aButtons[nInd1,2]:Enable()
 
        EndIf

        If aButtons[nInd1,1] == 'CARGA' // Carga da Equipe
 
            aButtons[nInd1,2]:Disable()
 
        EndIf

        If aButtons[nInd1,1] == 'TRANSF' // Transferir Atendimento
 
            aButtons[nInd1,2]:Disable()
 
        EndIf
        
        If aButtons[nInd1,1] == 'LEGENDA' // Legenda
 
            aButtons[nInd1,2]:Enable()
 
        EndIf

    Next nInd1
  
Return