A650REVEM - Altera revisão estrutura durante a geração OPs de PIs

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


	ParamIxb[1]

Caracter

Revisão padrão da estrutura do produto (B1_REVATU)

Ponto de Entrada:

A650REVEM - Altera revisão estrutura durante a geração OPs de PIs

Idiomas:

Português (Brasil)

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:	Permite manipular a revisão de estrutura, que somente neste momento (da recursividade) será obtida do campo Revisão.estr. do cad.produto (B1_REVATU).
Localização:	Função MontEstru() - Responsável por montar array com estrutura do produto.
Em que ponto:	É chamado antes da recursividade, ou seja, antes da função MontEstru ser chamada por ela mesma, para montagem de array das estruturas dos PIs.
Programa Fonte:	MATA650.PRX
Sintaxe:	A650REVEM - Altera revisão estrutura durante a geração OPs de PIs ( [ ParamIxb[1] ] ) --> ExpA
Retorno:	ExpA(array_of_record) Deve ser retornado um array, contendo no 1o. elemento, a nova revisão da estrutura a ser utilizada para a explosão do produto/ geração de OP.
Observações:	O ponto de entrada somente é chamado dentro da própria função MontEstru(), antes da chamada à ela mesma (recursividade). Neste momento, o valor do campo revisão, passado como parâmetro na MontEstru(), é obtido do campo Revisão estr. (B1_REVATU) e pode ser alterado para manter a revisão da OP (C2_REVISAO), por exemplo. O retorno deve ser um array contendo no 1º.elemento a nova revisão.

Exemplo:

Bloco de código

#INCLUDE 'TOTVS.CH'
#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'PARMTYPE.CH'
#INCLUDE "RWMAKE.CH"

User

Function A650REVEMLocal cRevisao

 Function A650REVEM()
Local cRevisao := ParamIxb[1]

   // Revisao estr. padrão do cad.do produto

//

Customizações do

usuário, por exemplo, abaixo, estará mantendo a revisão da OP:c

Revisão := SC2->C2_REVISAOReturn {cRevisao}

 usuário
IF SB1->B1_COD = 'PA-21832                      '
    cRevisão := '001'
ENDIF

Return {cRevisao}