Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Saúde Planos

Linha de Produto:

Linha Protheus

Segmento:

Saúde

Módulo:PLANO DE SAUDE SIGAPLS
Função:GRUPO/EMPRESA (PLSA660)
Ticket:8734543
Requisito/Story/Issue (informe o requisito relacionado) :DSAUBE-11234


02. SITUAÇÃO/REQUISITO

A necessidade de criação de ponto de entrada para adicionar novas opções ao menu (aRotina) do Grupo/Empresa e após a inclusão,alteração ou exclusão do Grupo/Empresa (BG9).

03. SOLUÇÃO

Ponto de Entrada PL660MGE que adiciona novas opções ao menu (aRotina) do Grupo/Empresa e Ponto de Entrada PL660GRV que é executado após a gravação total (inclusão,alteração ou exclusão) do Grupo/Empresa.


PL660MGE:

Parâmetros: Nenhum

Retorno: Array - {{'Item menu', 'Nome Função', 0 , nOpcao}}

PL660GRV

Parâmetros: nOpc (3=Inclusão, 4=Alteração, 5=Exclusão)

Retorno: Não espera retorno

Obervação: Esse ponto de entrada é similar ao MODELCOMMITNTTS das rotinas em MVC.


Exemplo de uso:

#include "PROTHEUS.CH"

User Function PL660MGE()

Local aRot := {}

aRot := {{"Ponto de Entrada 1",'Alert("P.E 1")',0,4},;
              {"Ponto de Entrada 2",'Alert("P.E 2")',0,4} }

Return aRot

#include "PROTHEUS.CH"

User Function PL660GRV()

Local nOpc := PARAMIXB[1] // nOpc 3 = Inclusão, 4 = Alteração, 5 = Exclusão

// Tratamento para BG9 posicionada após a gravação

Return


04. DEMAIS INFORMAÇÕES

Não se aplica.

05. ASSUNTOS RELACIONADOS

  • Não se aplica.