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:

O ponto de entrada retorna a variável lRet para posteriores validações internas após logica utilizada.

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

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

<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>