Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLBLQSUB - Validação de Subcontrato

Ponto-de-Entrada: PLBLQSUB - Validação de Subcontrato
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11
Descrição: 
Objetivo: 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 a exclusão, o ponto de entrada não será executado.
Programa Fonte 
PLSA660B.PRW
Sintaxe

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

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cBloqueio Caracter Código de bloqueio do item posicionado (Para Sub-Contratos já bloqueados).
cMotBlq Caracter Motivo do bloqueio/desbloqueio informado na rotina.
dDatBlq Data Data do bloqueio/desbloqueio informado na rotina.
cAlias Caracter Alias do cadastro de tipos de bloqueio/desbloqueio utilizado.
dDatInc Data Data de inclusão do item posicionado.
dDatPed Data Data de pedido do bloqueio.
Retorno
    Logico(logico)
  • 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.
Exemplos 
User Function PLBLQSUB 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 lRet      := .T. If Empty(cBloqueio) // Se estiver vazio é um bloqueio.    MsgAlert("Ponto de entrada no bloqueio do subcontrato... BLOQUEIO") Else    MsgAlert("'Ponto de entrada no bloqueio do subcontrato... DESBLOQUEIO") Endif             Return(lRet)