Cross Segmentos - Backoffice (Linha Protheus) – SIGAFAT – Ponto de Entrada MA030DBT para CRMA980 (versão MVC)

Tempo aproximado para leitura: 00:01:00 min

Dúvida
Qual o exemplo de uso do PE MA030DBT para CRMA980 (versão MVC)?

Ambiente
Cross Segmentos - Backoffice (Linha Protheus) – Faturamento (SIGAFAT) – Protheus 12 e superiores.

Solução
OBS: Não é possível usar o ponto de entrada para as rotinas CRMA980 e MATA030 ao mesmo tempo (MVC e sem MVC), para utilizar sem MVC, utilize esse exemplo: Cross Segmentos - Backoffice (Linha Protheus) – SIGAFAT – Ponto de Entrada MA030DBT para MATA030 (versão não MVC)

Se usar esse ponto de entrada e houver rotinas sem MVC nos menus dos usuários (MV_MVCSA1 - .F. | rotina MATA030 - Cadastro de Clientes), ao entrar nessas rotinas MATA030 dará error.log.

Exemplo do Ponto de Entrada MA030DBT para CRMA980 (versão MVC):

#INCLUDE 'PRTOPDEF.CH'
#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"

//Em MVC

User Function MA030DBT()
Local aButtons := {} //Array dos botões
 
Alert("Passou pelo ponto de entrada MA030DBT em MVC, iniciando.")

// Necessário informar na segunda posição em quais operações o botão irá aparecer
// para que o botão não apareça em nenhuma operação, informar um array vazio

// Visualização (MODEL_OPERATION_VIEW)
// Inclusão     (MODEL_OPERATION_INSERT)
// Alteração    (MODEL_OPERATION_UPDATE)
// Exclusão     (MODEL_OPERATION_DELETE)

aAdd( aButtons, { "perfis tributários", { MODEL_OPERATION_VIEW, MODEL_OPERATION_INSERT, MODEL_OPERATION_UPDATE, MODEL_OPERATION_DELETE } } )
// Opção "Perfir tributários" vai aparecer em todas as operações

aAdd( aButtons, { "referencias", {} } )
// Opção "Referências" não vai aparecer em operação nenhuma (array vazio)
 
Alert("Ponto de entrada MA030DBT - MVC ativado com sucesso.")
 
Return aButtons