O ponto de entrada CTBSMEXC permite que o controle do semáforo seja exclusivo por Grupo de Empresa e Filial quando a tabela de movimentos contabeis (CT2) está configurada totalmente com exclusiva. Este ponto de entrada não recebe parâmetros.
Retorno | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| lRet | Logico | Variável lógico indicando se controle sera exclusivo por Filial. .T. - Exclusivo Grupo de Empresa e Filial .F. - Exclusivo Grupo de Empresa (Default) | Sim |
#include "protheus.ch"
User Function CTBSMEXC()
Local lRet := .F.
If MsgYesNo("Deseja que controle de semáforo seja por filial exclusiva")
lRet := .T.
EndIf
Return(lRet)
|
Local lPEFilExc := ExistBlock("CTBSMEXC")
If lPEFilExc
__lExcFil := .F. //coloca como .F. ao iniciar
__lExcFil := ExecBlock( "CTBSMEXC" , .F.,.F. ) //recebe variável logica do ponto de entrada
If Valtype(__lExcFil) != "L" //se não retornar variável logica retorna false
__lExcFil := .F.
EndIf
Else
__lExcFil := .F.
Endif
|
<!-- 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>
|