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