P200EXTR - Não incluir produtos na TREE

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):
NomeTipoDescriçãoDefaultObrigatórioReferencia
PARAMIXB[1]Caractere

Código do produto pai (G1_COD)




PARAMIXB[2]CaractereCódigo do componente (G1_COMP)


PARAMIXB[3]CaractereSequência do componente (G1_TRT)


PARAMIXB[4]CaractereGrupo opcional (G1_GROPC)


PARAMIXB[5]CaractereItem opcional (G1_OPC)


Idiomas:

Todos

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:O ponto de entrada P200EXTR permite ao usuário ocultar da tree algum componente.
Localização:

Função AddItemTr do fonte PCPA200.prw

Eventos:

Permite escolher se o componente será exibido ou não na tree.

Programa Fonte:PCPA200.prw

Sintaxe:

P200EXTR

Retorno:

.T. para o componente ser exibido normalmente na tree.

.F. para o componente não ser exibido na tree.

Observações:


#Include "Totvs.ch"

//Ponto de Entrada para não exibir o componente na Tree
User Function P200EXTR()
	Local cProdPai  := ParamixB[1] //Produto Pai (G1_COD)
	Local cProdCmp  := ParamixB[2] //Componente (G1_COMP)
	Local cTRT      := ParamixB[3] //Sequência (G1_TRT)
	Local cGrupoOpc := ParamixB[4] //Grupo Opcional (G1_GROPC)
	Local cItemOpc  := ParamixB[5] //Item Opcional (G1_OPC)
	Local lExibeTree := .F.

	SB1->(dbSetOrder(1))
	If SB1->(dbSeek(xFilial("SB1")+cProdCmp))
		lExibeTree := IIf(SB1->B1_TIPO == "SV", .F., .T.)
	EndIf

Return lExibeTree