Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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
languagecpp
titleExemplo de implementação:
linenumberstrue
#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}