Linha Microsiga Protheus

Árvore de páginas

CONTEÚDO

  1. Visão Geral
  2. Parâmetros
  3. Retorno
  4. Exemplo de Utilização
  5. Exemplo de Manipulação


01. VISÃO GERAL

O ponto de entrada CT281LOOP permite pular determinada faixa de combinações de entidades ao executar o Rateio Off-line Combinações(CTBA281).


02. PARÂMETROS

Parâmetro

Tipo

Descrição

Obrigatório

PARAMIXB[1]Não se aplica

Não se aplica a esse Ponto de Entrada

Não


03. RETORNO

Retorno

Tipo

Descrição

Obrigatório

Lógico (Verdadeiro ou Falso)LogicoSe ira continuar o Loop ou não.Sim


04. EXEMPLO DE UTILIZAÇÃO


Exemplo do Ponto de Entrada 
#include "protheus.ch"

User Function CT281LOOP()
	Local cConta  		:=  "1010100"
    Local cCusto        :=  "100100"
    Local cClasse       :=  "200300"
    Local cItem         :=  "300200"
	Local lRet			:=	.T.
	

	//Campos do arquivo de trabalho referentes as entidades padrões, Observe que esse PE só utiliza as entidades padrões.
    If TRBCJ->CONTA <> cConta .AND. TRBCJ->CUSTO <> cCusto .AND. TRBCJ->CLVL <> cClasse .AND. TRBCJ->ITEM <> cItem 
        lRet:= .F.
    Endif

Return lRet

Importante !


O exemplo demonstrado é meramente ilustrativo. A regra, o funcionamento e os impactos gerados pelo ponto de entrada no sistema são de responsabilidade do cliente que o utiliza.



05. EXEMPLO DE MANIPULAÇÃO



Evento de chamada do Ponto de Entrada 
If __lCT281Loop
	If !ExecBlock("CT281LOOP",.F.,.F.)
		TRBCJ->(DBSkip())
		Loop
	Endif
Endif