Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagec#
firstline1
titleExemplo
linenumberstrue
#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.

	//Não exibir na tree o componente se for do tipo "SV"
	SB1->(dbSetOrder(1))
	If SB1->(dbSeek(xFilial("SB1")+cProdCmp))
		lExibeTree := IIf(SB1->B1_TIPO == "SV", .F., .T.)
	EndIf

Return lExibeTree