Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (pauloc), última alteração em 31 dez, 2019

CONTEÚDO

  1. Visão Geral
  2. Retorno
  3. Exemplo de Utilização
  4. Exemplo de Manipulação


01. VISÃO GERAL

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 contábeis (CT2) está configurada totalmente com compartilhamento exclusivo em todos os segmentos do campo "Filial" ( Empresa / Unidade Negocio / Filial) .  Este ponto de entrada não recebe parâmetros.


02. RETORNO

Retorno

Tipo

Descrição

Obrigatório

lRetLogico

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

03. EXEMPLO DE UTILIZAÇÃO


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


04. EXEMPLO DE MANIPULAÇÃO



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