Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que adiciona validações antes do envio do workflow de Manutenção Preventiva Atrasada (MNTW020)

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

MNTW020

Manutenção Preventiva Atrasada


Rotina(s) envolvida(s)

Nome Técnico

MNTW0203

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 Manutenção Preventiva Atrasada (MNTW020) para adicionar validações ao workflow

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Workflow/Manutenção Preventiva Atrasada

Programa Fonte:

MNTW020.prw

Função:

MNTW0203()

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lEnvia

Lógico

Define se a manutenção irá gerar workflow

X

 

Exemplo de Ponto de Entrada MNTW0203()
#INCLUDE 'PROTHEUS.CH'

User Function MNTW0203()

	Local lEnvia := .F. //Define se a Manutenção irá gerar WF
	Local cCentCust := NGSEEK("ST9",STF->TF_CODBEM,1,'T9_CCUSTO')
	Local cCCustFun := "CC"

	If AllTrim(cCentCust) == cCCustFun //Somente envia WF do Centro de Custo "CC"
		lEnvia := .T.
	Else
		MsgStop("WF do bem " + STF->TF_CODBEM + " não enviado por não pentercer ao CC do funcionário","ATENCAO")
	EndIf

Return lEnvia