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 logica implementada no Ponto de Entrada.
Esse ponto de entrada pode ser utilizado junto do ponto de entrada de manipulação do desbloqueio de calendário - CT010BLF, informado link na seção de DOCUMENTOS RELACIONADOS. |
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 |
CT010BLF - Manipulação de Desbloqueio do Calendário Contábil
<!-- 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> |