Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Giovana Niehues

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Giovana Niehues

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de entrada para alteração e inclusão de informações de insumo/etapa e campos de usuários nas rotinas de Ordem de Serviço

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas 

Rotina:

Rotina

Nome Técnico

NGETAPENX

Ponto de Entrada

Rotina(s) envolvida(s)

Nome Técnico

MNTA330

Plano de Lubrificação

MNTA410

O.S. Manual
MNTA420O.S. Corretiva

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada executado nas rotinas de Ordem de Serviço após a gravação de etapas e insumos, para realizar a alteração e inclusão de informações de insumo/etapa e de campos de usuários

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Plano Manutenção/Plano

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Manual

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva

Programa Fonte:

MNTA330.prx

MNTA410.prx

MNTA420.prx

Função:

NGETAPNEX()

Retorno:


.T.


 

Bloco de código
titleExemplo do Ponto de Entrada NGETAPNEX()
#INCLUDE 'PROTHEUS.CH'

User Function NGETAPNEX()

	If cPrograma == "MNTA470"
		dbSelectArea("STL")
		dbSetOrder(1)
		If dbSeek(xFilial("STL") + STJ->TJ_ORDEM)
			While !Eof() .And. xFilial("STL") == STL->TL_FILIAL .And. STJ->TJ_ORDEM == STL->TL_ORDEM
				RecLock("STL")
				STL->TL_LOCAL := "02"
				MsUnLock()
				MsgInfo("Local de estoque alterado.","Atenção")
				dbSkip()
			End
		EndIf
	EndIf

Return .T.