Linha Microsiga Protheus

Árvore de páginas

MT200EXP - Permite expandir a estrutura dos produtos

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):


Nome
Tipo
Descrição
Default
Obrigatório Referência

ParamIxb1


Caracter
Código do produto






Idiomas:

Português(Brasil)

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

MT200EXP - Permite expandir a estrutura dos produtos

Localização:

Function Ma200Monta - Responsável por montar a estrutura para visualização/alteração.

Programa Fonte:MATA200.PRW, PCPA200.PRW.
Retorno:

lRet(logico)

  • TRUE - Será exibida a estrutura abaixo do produto.
  • FALSE - Não será exibida a estrutura abaixo do produto.
Observações:


Exemplos:


User Function MT200EXP()
Local aAliasSB1	:= GetArea("SB1")
Local cComp     := ParamIxb[1] //Código do componente.
Local cGrupo	:= ""
Local lRet      := .T.

cGrupo	:= posicione('SB1',1,xFilial('SB1')+cComp,'B1_GRUPO')      

//Não irá expandir a arvore de componentes de produtos pertencentes ao grupo 9999. 
If cGrupo == "9999"
	lRet := .F.  
EndIf

RestArea(aAliasSB1)

Return lRet