PLBLQFAM - Regra para Validação BloqueioDesbloqueio

Ponto-de-Entrada: PLBLQFAM - Regra para Validação Bloqueio/Desbloqueio

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 a família deve ser bloqueada ou desbloqueada.

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

Programa Fonte

PLSA660B.PRW

Sintaxe

PLBLQFAM - Regra para Validação Bloqueio/Desbloqueio ( [ cBloqueio ], [ cMotBlq ], [ dDatBlq ], [ cAlias ], [ dDatInc ], [ dDatPed ] ) --> Lógico

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

cBloqueio

Caracter

Código de bloqueio do item posicionado (Para Famílias já bloqueadas).

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

Array of Record

Data de pedido do bloqueio.

Retorno

Lógico

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 PLBLQFAM 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 e um bloqueio.    MsgAlert("Ponto de entrada no bloqueio da familia... BLOQUEIO") Else    MsgAlert("'Ponto de entrada no bloqueio da familia... DESBLOQUEIO") Endif             Return(lRet)

Home

Linha Microsiga Protheus

Páginas filhas