Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite gravar campos específicos da manutençã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:

RotinaNome Técnico
MNTA135De padrão para manutenção

Chamados Relacionados

DNG-4761 

Países:Todos

Bancos de Dados:

Todos

Sistemas Operacionais:

Todos

Ponto de Entrada

Descrição:

Ponto de entrada acionado após a inclusão que permite customizar campos específicos da Manutenção.

Localização:

SIGAMNT: Miscelânea/Gera Preventivas /a Partir do Padrão

Eventos:

A Partir do Padrão(MNTA135)

Programa Fonte:

MNTA135.prw

Função:

PSTFPROC()

Parâmetros:

Nome

Tipo

Descrição

ParamIXB[1]Caracter

Código do bem que gerou a manutenção.

ParamIXB[2]

Caracter

Código do serviço que gerou a manutenção.

ParamIXB[3]

Caracter

Sequencial do serviço que gerou a manutenção.

 


Exemplo: PE MNTA1351
#INCLUDE "TOTVS.CH"
 
User Function MNTA1351()
 
    Local cCodBem := ParamIXB[1]
    Local cSerTPF := ParamIXB[2]
	Local cSeqTPF := ParamIXB[3]
	Local aArea   := GetArea()
 
    dbSelectArea( 'STF' )
    dbSetOrder( 1 ) //TF_FILIAL+TF_CODBEM+TF_SERVICO+TF_SEQRELA
    If dbSeek( xFilial( 'STF' ) + cCodBem + cSerTPF + cSeqTPF )
		RecLock("STF",.F.)
		STF->TF_XUSER := "Teste"
		MsUnlock()
    EndIf

	RestArea(aArea)
 
Return