Linha Microsiga Protheus

Árvore de páginas

Realiza validação que antecede a finalização da OS.

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

MNTA400

Retorno

Rotina(s) envolvida(s)

Nome Técnico

MNTA435Retorno OS Mod 2
MNTA460OS de Reforma
MNTA400Retorno

Issues Relacionadas

12.1.17 / INOVBANCO-14401    

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Retorno:
TipoDescriçãoObrigatório
LógicoIndica que há algum problema e/ou não deverá prosseguir.Sim

Ponto de Entrada

Descrição:

Ponto de entrada executado na finalização da Ordem de Serviço antecedendo as demais validações realizadas pelo sistema. Este permite a inclusão de novas validações.

Localização:

Atualizações/Controle de Oficina/Retorno OS/Retorno

Atualizações/Controle de Oficina/Retorno OS/Retorno Mod. 2

Atualizações/Controle de Oficina/Plano de Manutenção/Cancelamento OS

Eventos:

Retorno (MNTA400)

Retorno Mod. 2 (MNTA435)

OS Reforma (MNTA460)

Programa Fonte:

MNTA400.PRX

Função:

NG400CHKFIM()


Exemplo:

#Include "PROTHEUS.CH"
User Function NGFINALI()
    
    Local lRet := .T.
    
    If M->TJ_DTPRINI == dDataBase .And. M->TJ_HOPRINI > SubStr(Time(),1,5)
        MsgAlert("Atenção", "A hora parada inicio é maior que a hora atual!!")
        lRet := .F.
    EndIf
    
Return lRet