Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

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

Versões comparadas

Versão antiga 1

changes.mady.by.user Ana Paula Tiete Lira Martins

Gravado em

comparado com

Nova versão 2

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
PLBLQSUB - Validação de Subcontrato
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:
NomeTipoDescriçãoDefaultObrigatórioReferência
cBloqueio CaracterCódigo de bloqueio do item posicionado (Para Sub-Contratos já bloqueados).
cMotBlq CaracterMotivo do bloqueio/desbloqueio informado na rotina.
dDatBlqDataData do bloqueio/desbloqueio informado na rotina.
cAlias CaracterAlias do cadastro de tipos de bloqueio/desbloqueio utilizado.
dDatIncDataData de inclusão do item posicionado.
dDatPedDataData 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)