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 ou impedimento ao alterar o calendário contábil quando utilizado em outro processo, conforme logica lógica implementada no Ponto de Entrada.
...
| Informações | ||
|---|---|---|
| ||
Esse Para utilização desse ponto de entrada pode ser utilizado é recomendado à utilização junto do ponto de entrada de manipulação do desbloqueio de calendário - CT010BLF, informado . Informado link na seção de DOCUMENTOS RELACIONADOS. |
...
Parâmetro | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| PARAMIXB[1] | nOpcNumérico Operação | 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:
|
| 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
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas