Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite alterar ordem de serviço pelo Plano de Manutenção (MNTA330)

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

MNTA330

Processamento do Plano de Manutenção

Rotina(s) envolvida(s)

Nome Técnico

MNTA330F

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos




Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Plano de Manutenção (MNTA330) que permite alterar a OS no processo de inclusão de um plano

Localização:

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

Programa Fonte:

MNTA330.prx

Função:

MNTA330F()

Retorno:

Nome

Tipo

Descrição

Obrigatório

 Nulo

-

-

-

 

Exemplo do Ponto de Entrada MNTA330F()
#INCLUDE "PROTHEUS.CH"

User Function MNTA330F()	

	Local cPlano := STI->TI_PLANO	
	
	dbSelectArea("STJ")	
	dbSetOrder(17)	
	dbSeek(xFilial("STJ")+cPlano)	
	While !Eof() .And. xFilial("STJ") == STJ->TJ_FILIAL .And. STJ->TJ_PLANO == cPlano		
		MsgInfo("Ordem de Serviço gerada: " + STJ->TJ_ORDEM)		
		dbSelectAreA("STJ")		
		dbSkip()	
	EndDo
		
Return