Histórico da Página

01. DADOS GERAIS

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:

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.

#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

• 10721073 DSAUBE-13790 DT Bloqueio do Subcontrato para Famílias com Bloqueio Futuro

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>