...
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 contábeis (CT2) está configurada totalmente com exclusivacompartilhamento exclusivo em todos os segmentos do campo "Filial" ( Empresa / Unidade Negocio / Filial) . 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 |
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#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)
|
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
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
|
...
