Page tree
Skip to end of metadata
Go to start of metadata

CRM980MDEF - Adiciona novas funcionalidades em Ações Relacionadas no browse.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

CRM

Rotina:

Rotina

Nome Técnico

CRMA980

Cadastro de Clientes

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Versão:12.1.17 e superior.

Ponto de Entrada

Descrição:

A finalidade do ponto de entrada CRM980MDef é permitir inclusão de novas funcionalidades em Ações Relacionadas no browse de clientes;

Localização:

Atualizações/Vendas/Contas/Clientes

Eventos:

CRM980MMem( ) -> aRotina

Programa Fonte:

CRMA980.prw

Parâmetros:

Nenhum

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRotina

Array

Novas funcionalidades para utilização no browse de clientes.
Este ponto retorna um array sendo que cada elemento é um campo memo a ser tratado pelo cadastro.
Cada elemento é composto por outro array com 2 elementos: 1 - Nome da Funcionalidade. / 2 - Função / 3 - Operação

Sim

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,{"Função A","ApMsgAlert('Função A')",MODEL_OPERATION_VIEW,0})
aAdd(aRotina,{"Função B","ApMsgAlert('Função B')",MODEL_OPERATION_VIEW,0})
Return( aRotina )