Linha Microsiga Protheus

Árvore de páginas

CONTEÚDO

  1. Visão Geral
  2. Parâmetros
  3. Retorno
  4. Exemplo de Utilização
  5. Exemplo de Manipulação
  6. 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.


Importante!

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çãoSim


03. RETORNO

Retorno

Tipo

Descrição

Obrigatório

lRetLó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


Exemplo do Ponto de Entrada 
#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


Observação


Exemplo básico de manipulação.

Travando registro atual:


Processo barrado pela manipulação do bloqueio:


Evento de chamada do Ponto de Entrada 
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