Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Prestadores de Serviços Terceirização

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

TOTVS Prestadores de Serviços Terceirização

Função:

TECA894.PRW

TECA680.PRW

País:Brasil
Ticket:20115542
Requisito/Story/Issue (informe o requisito relacionado) :DSERSGS-18773


02. SITUAÇÃO/REQUISITO

  • Ponto de Entrada para adicionar botões no menu do Browse inicial e também no menu interno da rotina.
  • Incluir permissão por perfil para Grupo de Acesso ao menu de Troca de uniformes. 

03. SOLUÇÃO

  • Criado o Ponto de Entrada AT894MNU para que seja possível adicionar botões no menu principal da rotina. Para adicionar botões no menu interno da rotina, por se tratar de uma rotina MVC, deve-se utilizar o Ponto de Entrada padrão MVC manipulando o ID BUTTONBAR.
  • Realizado ajuste para implementação do perfil de no Grupo de Acesso que inclui permissão para acesso a opção 72 - Troca de Uniforme.

04. DEMAIS INFORMAÇÕES

Exemplos:

Exemplo de Implementação do Ponto de Entrada MVC - BUTTONBAR
#Include "TOTVS.CH"
#Include "FWMVCDEF.CH"

User Function TECA894()
    Local aParam := PARAMIXB
    Local xRet := .T.
    Local oObj := ''
    Local cIdPonto := ''
    Local cIdModel := ''


    If aParam <> NIL
        oObj       := aParam[1]
        cIdPonto   := aParam[2]
        cIdModel   := aParam[3]

        If cIdModel == "TECA894"
            If cIdPonto == 'BUTTONBAR'
                ApMsgInfo('Adicionando Botão na Barra de Botões (BUTTONBAR).' + CRLF + 'ID ' + cIdModel )
                xRet := { {'TESTE 01', 'TESTE 01', { || Alert( 'TESTE 01' ) }, 'Botão TESTE 01' } }
            EndIf
        EndIf
    EndIf

Return xRet
Exemplo de Implementação do Ponto de Entrada AT894MNU
#Include "TOTVS.CH"
#Include "FWMVCDEF.CH"
 
User Function AT894MNU()
Local aRotina := {}
 
    ADD OPTION aRotina TITLE 'AT894MNU01' ACTION 'Alert("AT894MNU01")'  OPERATION 9 ACCESS 0
    ADD OPTION aRotina TITLE 'AT894MNU02' ACTION 'Alert("AT894MNU02")'  OPERATION 9 ACCESS 0
 
Return aRotina

05. ASSUNTOS RELACIONADOS