MATI681OPR - Alterar o código da operação durante o recebimento da mensagem de apontamento de produção

Características do Requisito

Linha de Produto:	Protheus
Segmento:	Manufatura
Módulo:	SIGAPCP - Planejamento e Controle da Produção
Parâmetro(s):	PARAMIXB (Array) -> 1: Ordem de produção (H6_OP); 2: Operação (H6_OPERAC); 3: Máquina (H6_RECURSO); 4: Parcial/Total (H6_PT).
País(es):	Todos
Banco(s) de Dados:	Todos
Sistema(s) Operacional(is):	Todos
Versões/Release:	11.80.14

Descrição:

É utilizado para alterar o código da operação que foi recebida na mensagem de apontamento de produção.

Localização:

Function MATI681 -> Adapter de apontamento de produção modelo 2.

Programa Fonte:

MATI681

Retorno:

Nome	Tipo	Descrição	Obrigatório
cNewOper	Caractere	Código da nova operação que será utilizada.	Sim

Exemplo:

User Function MATI681OPR()
Local cNewOper := ""

/*

PARAMIXB[1] - Ordem de produção (H6_OP)
PARAMIXB[2] - Operação (H6_OPERAC)
PARAMIXB[3] - Máquina (H6_RECURSO)
PARAMIXB[4] - Parcial/Total (H6_PT)

*/

If SubStr(PARAMIXB[2], 2,1) == "9"
cNewOper := SOMA1(PARAMIXB[2])
Else
cNewOper := PARAMIXB[2]
EndIf

Return cNewOper