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

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.UTILIZAÇÃ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).

MATA650.PRX

A650REVEM - Altera revisão estrutura durante a geração OPs de PIs ( [ ParamIxb[1] ] ) --> ExpA

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.

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.

User Function A650REVEMLocal cRevisao := ParamIxb[1]   // Revisao estr. padrão do cad.do produto// Customizacoes do usuário, por exemplo, abaixo, estará mantendo a revisão da OP:cRevisao := SC2->C2_REVISAOReturn {cRevisao}