Histórico da Página
CONTEÚDO
- Visão Geral
- Parâmetros
- Retorno
- Exemplo de Utilização
- Exemplo de TelaManipulação
- Documentos Relacionados
01. VISÃO GERAL
O ponto de entrada a seguir CT010BLI visa permitir a manipulação do bloqueio/desbloqueio ou ou impedimento ao alterar o calendário contábil quando utilizado em outro processo, conforme regra logica utilizada lógica implementada no Ponto de Entrada.
Informações | ||
---|---|---|
| ||
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
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
|
05. EXEMPLO DE MANIPULAÇÃO
Informações | ||
---|---|---|
| ||
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. |
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
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
HTML |
---|
<!-- 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> |