Exibir origem

CONTEÚDO

Visão Geral
Parâmetros
Retorno
Exemplo de Utilização
Exemplo de Manipulação
Documentos Relacionados

01. VISÃO GERAL

O ponto de entrada CT010BLI visa permitir a manipulação do bloqueio ou impedimento ao alterar o calendário contábil quando utilizado em outro processo, conforme lógica implementada no Ponto de Entrada.

Para utilização desse ponto de entrada é recomendado à utilização junto do ponto de entrada de manipulação do desbloqueio de calendário - CT010BLF.

Informado link na seção de DOCUMENTOS RELACIONADOS.

02. PARÂMETROS

Parâmetro	Tipo	Descrição	Obrigatório
PARAMIXB[1]	Numérico	Número da operação	Sim

03. RETORNO

Retorno	Tipo	Descrição	Obrigatório
lRet	Lógico	Variável lógica retornando verdadeiro para indicar se foi possível bloquear o período do calendário, caso não seja possível deverá retornar falso.	Sim

04. EXEMPLO DE UTILIZAÇÃO

#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

05. EXEMPLO DE MANIPULAÇÃO

Exemplo básico de manipulação.

Travando registro atual:

Linha Microsiga Protheus > CT010BLI - Manipulaçao do bloqueio do calendário quando em outro processo > image2019-12-26_16-23-46.png

Processo barrado pela manipulação do bloqueio:

Linha Microsiga Protheus > CT010BLI - Manipulaçao do bloqueio do calendário quando em outro processo > image2019-12-26_16-25-41.png

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

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

06. DOCUMENTOS RELACIONADOS

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>