Histórico da Página
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): |
| ||||||||||||||||||||||||||
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 A650REVEM()
Local cRevisao := ParamIxb[1] // Revisao estr. padrão do cad.do produto
//Customizações do usuário
IF SB1->B1_COD = 'PA-21832 '
cRevisão := '001'
ENDIF
Return {cRevisao} |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas