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.
O ponto de entrada a seguir visa permitir a manipulação do bloqueio ou impedimento ao alterar o calendário contábil quando utilizado em outro processo, conforme regra logica utilizada no Ponto de Entrada.
Parâmetro | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| PARAMIXB[1] | nOpc | Operação | Sim |
#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>
|