Tempo aproximado para leitura: 00:03:00 min
Dúvida
Exemplo de utilização do Ponto de Entrada CRM980MDEF - Adiciona novas funcionalidades em Ações Relacionadas no browse.
Ambiente
Cross Segmentos - TOTVS Backoffice (Linha Protheus) - SIGAFAT - A partir da release 12.
Solução
A finalidade do ponto de entrada CRM980MDef é permitir inclusão de novas funcionalidades em "Outras Ações" no browse de clientes;
Exemplo
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
User Function CRM980MDEF()
Local aRotina := {}
//----------------------------------------------------------------------------------------------------------
// [n][1] - Nome da Funcionalidade
// [n][2] - Função de Usuário
// [n][3] - Operação (1-Pesquisa; 2-Visualização; 3-Inclusão; 4-Alteração; 5-Exclusão)
// [n][4] - Acesso relacionado a rotina, se esta posição não for informada nenhum acesso será validado
//----------------------------------------------------------------------------------------------------------
aAdd(aRotina,{"Funcao A","ApMsgAlert('Funcao A')",MODEL_OPERATION_VIEW,0})
aAdd(aRotina,{"Funcao B","ApMsgAlert('Funcao B')",MODEL_OPERATION_VIEW,0})
Return( aRotina )
Saiba Mais
PE CRM980MDEF Adiciona novas funcionalidades em Ações Relacionadas no browse
0 Comentários