Histórico da Página
Aviso | ||
---|---|---|
| ||
|
Adição e alteração de campos na geração de Ordem de Produção através da rotina de Ordem de Serviço Corretiva.
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Manufatura | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||
Rotina: |
| ||||||||
Chamados Relacionados | MNG-559 | ||||||||
País(es): | Todos | ||||||||
Banco(s) de Dados: | Todos | ||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de Entrada que possibilita Incluir novos campos a serem passados na geração de Ordem de Produção . | ||||||||
Localização: | SIGAMNT: Atualizações/Ordens de Serviço/Corretiva | ||||||||
Eventos: | Geração de Ordem de Produção (MNTUTIL) | ||||||||
Programa Fonte: | MNTUTIL.PRX | ||||||||
Função: | NGMNTOP() | ||||||||
Retorno: |
|
Exemplo:
#include 'protheus.ch'
#include 'parmtype.ch'
User Function NGMNTOP()
Local aFields := aClone(Paramixb)
Local nPos
// Alterando o valor de um campo já existente no array passado para o execauto de geração de OP
If ( nPos := aScan(aFields, {|x| x[1] == 'C2_CC' }) ) > 0
aFields[nPos][2] := '000000004'
EndIf
// Inserindo um novo campo na geração de OP
aAdd(aFields, {'C2_CLVL', "000000001", NIL}) //Classe Valor Contabil
Return aFields