Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas