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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas