Histórico da Página

#Include 'Protheus.ch'
#Include 'FWMVCDef.ch'

User Function CT010BLI()

    Local nOpc      := PARAMIXB[1]
    Local lRet      := .T.
    Local lBloqRot	:= .F.
    Local lBloqCal	:= .T.

    //--------------------------------------------------------
    // Valida se a consolidação contábil não esta em execução
    //--------------------------------------------------------
    If lBloqCal .And. nOpc <> 2
        CTG->(MSUNLOCK())
        If LockByName("CTBA010",.T.,.T.)
            lBloqRot := .T.
        Else
            lRet := .F.
            Help(" ",1,"Ctb010Cal",,"Não é possível prosseguir com a operação, há um processo em execução para esta filial. Aguarde a finalização.",1,0) //
        EndIf
    EndIf

Return lRet

Exemplo básico de manipulação.

Travando registro atual:

Processo barrado pela manipulação do bloqueio:

If ExistBlock("CT010BLI")
	lRet := ExecBlock("CT010BLI",.F.,.F.,{nOpc})

	If ValType(lRet) <> "L"
		lRet := .T.
	Endif
Endif