Histórico da Página
...
PLBLQSUB - Validação de Subcontrato ( [ cBloqueio ], [ cMotBlq ], [ dDatBlq ], [ cAlias ], [ dDatInc ], [ dDatPed ], [ cBloqFut ] ) --> Logico
Parâmetros:
| Parâmetro | Tipo | Descrição | Referência |
| cBloqueio | Caracter | Código de bloqueio do item posicionado (Para Sub-Contratos já bloqueados). | PARAMIXB[1] |
| cMotBlq | Caracter | Motivo do bloqueio/desbloqueio informado na rotina. | PARAMIXB[2] |
| dDatBlq | Data | Data do bloqueio/desbloqueio informado na rotina. | PARAMIXB[3] |
| cAlias | Caracter | Alias do cadastro de tipos de bloqueio/desbloqueio utilizado. | PARAMIXB[4] |
| dDatInc | Data | Data de inclusão do item posicionado. | PARAMIXB[5] |
| dDatPed | Data | Data de pedido do bloqueio. | PARAMIXB[6] |
| cBloqFut | Caracter | Famí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.
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas