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:SIGAPLS - Plano de Saúde
Função:PLSA498
País:Brasil
Ticket:13043361
Requisito/Story/Issue (informe o requisito relacionado) :DSAUPC-16222


02. SITUAÇÃO/REQUISITO

Criação de Ponto de Entrada no fonte PLSA498, na rotina PLRTGUPEG, que faz a liberação da PEG para pagamento.


03. SOLUÇÃO

Realizada a criação do Ponto de Entrada de nome PL498LIBPG, que permite a Operadora definir se a PEG pode ou não ser liberada, de acordo com suas regras.

04. DEMAIS INFORMAÇÕES

Definições sobre o Ponto de Entrada PL498LIBPG:

Informações de entrada do P.E.
NomeTipoDescrição
lInfAdicLógicoUtilizado para a liberação em lote do PLSA600, para confirmar automaticamente a liberação da PEG, sem exibir os alertas de msgyesno do padrão.
lExibeMsgLógicoSe deve exibir as mensagens proveniente da rotina PLRTGUPEG.

cInfAdic

CaractereTexto que será exibido durante o processamento da rotina PLRTGUPEG.
Informações de saída do P.E.
NomeTipoDescrição
ARetFunArray

O retorno do P.E. deve ser obrigatoriamente um array, contendo duas posições, como: 

{ .F., "Lote não será liberado" } ou { .T., "" }, onde:

1ª posição: retorna se a PEG pode ser liberada para pagamento ou não. Logo, deve ser .T. ou .F.

2ª posição: se o retorno for false, ou seja, a PEG não será liberada para pagamento, pode informar nessa posição um texto do motivo da negação.

OBS 1: A rotina está preparada para que quando existir o P.E. no ambiente, e seu retorno seja falso e exista um texto na segunda posição, exibirá o alerta com o motivo descrito.
 Se o retorno for falso e a segunda posição estiver vazia, o alerta não será exibido, devido a falta do motivo.
OBS 2: a rotina estará posicionada na tabela BCI, caso queira alguma informação a mais sobre a PEG.
Exemplo de uso do P.E. PL498LIBPG 
user function PL498LIBPG()
local lInfAdic	:= paramixb[1]
local lExibeMsg	:= paramixb[2]
local cInfAdic	:= paramixb[3]
local aExmpl	:= {}

MsgAlert("ENTREI no P.E. PL498LIBPG" + CRLF + ;
			"lInfAdic:  " + cvaltochar(lInfAdic)  + CRLF +;
			"lExibeMsg: " + cvaltochar(lExibeMsg) + CRLF +;
			"cInfAdic:  " + cInfAdic, "Atenção")

if lExibeMsg
	aExmpl := {.f., "FALSO, A PEG não será liberada!"}
else	
	aExmpl := {.t., ""}
endif	

return aExmpl


05. ASSUNTOS RELACIONADOS

Não aplicável.