Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Saúde Planos

Linha de Produto:

Linha Protheus 

Segmento:

Saude 

Módulo:PLANO DE SAÚDE (SIGAPLS)
Função:Grupo/Empresa (PLSA660)
Ticket:10721073
Requisito/Story/Issue (informe o requisito relacionado) :DSAUBE-13920


02. SITUAÇÃO/REQUISITO

Necessidade da informação no ponto de entrada PLBLQSUB se será realizado o bloqueio das famílias com bloqueio futuro.

Este ponto de entrada permite inserir uma regra para validar e confirmar se o subcontrato deve ser bloqueado ou desbloqueado.

Ponto de chamada: É executado ao pressionar o botão “Ok” da rotina de bloqueio/desbloqueio do subcontrato, ou seja, após terem sido verificadas todas as regras padrões do sistema. Caso alguma verificação do sistema não permita, o ponto de entrada não será executado.


03. SOLUÇÃO

Adicionado a ponto de entrada PLBLQSUB um novo parâmetro (PARAMIXB[7]) com a informação se será realizado o bloqueio futuro. O Valor do parâmetro será um “Sim” ou “Não”.

Sintaxe

PLBLQSUB - Validação de Subcontrato ( [ cBloqueio ], [ cMotBlq ], [ dDatBlq ], [ cAlias ], [ dDatInc ], [ dDatPed ], [ cBloqFut ] ) --> Logico

Parâmetros:

ParâmetroTipoDescriçãoReferência
cBloqueioCaracterCódigo de bloqueio do item posicionado (Para Sub-Contratos já bloqueados).PARAMIXB[1]
cMotBlqCaracterMotivo do bloqueio/desbloqueio informado na rotina.PARAMIXB[2]
dDatBlqDataData do bloqueio/desbloqueio informado na rotina.PARAMIXB[3]
cAliasCaracterAlias do cadastro de tipos de bloqueio/desbloqueio utilizado.PARAMIXB[4]
dDatIncDataData de inclusão do item posicionado.PARAMIXB[5]
dDatPedDataData de pedido do bloqueio.PARAMIXB[6]
cBloqFutCaracterFamílias com Bloqueio Futuro ("Sim" ou "Não")PARAMIXB[7]

Retorno: Lógico (verdadeiro ou falso), Se verdadeiro, a rotina seguirá, normalmente, o processo de bloqueio, caso seja falso, a rotina não permitirá a confirmação.


Exemplo de uso:
#Include "Protheus.ch"

User Function PLBLQSUB()

    Local lValid := .F.
	Local cBloqueio := PARAMIXB[1]    
	Local cMotBlq := PARAMIXB[2]      
 	Local dDatBlq := PARAMIXB[3]     
 	Local cAlias := PARAMIXB[4]    
 	Local dDatInc := PARAMIXB[5]  
 	Local dDatPed := PARAMIXB[6] 
    Local cBloqFuturo := PARAMIXB[7]

	If Empty(cBloqueio)   
 		// Tratamento para Bloqueio
    Else    
        // Tratamento para Desbloqueio
    Endif

    Do Case
        Case cBloqFuturo == "Sim"
            // Tratamento
        Case cBloqFuturo == "Não"
            // Tratamento
    EndCase
    
Return lValid


04. DEMAIS INFORMAÇÕES

Não se aplica

05. ASSUNTOS RELACIONADOS